!STARTOFREGISTRYGENERATEDINCLUDE 'inc/scalar_indices.inc' ! ! WARNING This file is generated automatically by use_registry ! using the data base in the file named Registry. ! Do not edit. Your changes to this file will be lost. ! P_qv = 1 ; F_qv = .FALSE. P_qc = 1 ; F_qc = .FALSE. P_qr = 1 ; F_qr = .FALSE. P_qi = 1 ; F_qi = .FALSE. P_qs = 1 ; F_qs = .FALSE. P_qg = 1 ; F_qg = .FALSE. P_qh = 1 ; F_qh = .FALSE. P_qip = 1 ; F_qip = .FALSE. P_qic = 1 ; F_qic = .FALSE. P_qid = 1 ; F_qid = .FALSE. P_dfi_qv = 1 ; F_dfi_qv = .FALSE. P_dfi_qc = 1 ; F_dfi_qc = .FALSE. P_dfi_qr = 1 ; F_dfi_qr = .FALSE. P_dfi_qi = 1 ; F_dfi_qi = .FALSE. P_dfi_qs = 1 ; F_dfi_qs = .FALSE. P_dfi_qg = 1 ; F_dfi_qg = .FALSE. P_dfi_qh = 1 ; F_dfi_qh = .FALSE. P_qndrop = 1 ; F_qndrop = .FALSE. P_qni = 1 ; F_qni = .FALSE. P_qt = 1 ; F_qt = .FALSE. P_qns = 1 ; F_qns = .FALSE. P_qnr = 1 ; F_qnr = .FALSE. P_qng = 1 ; F_qng = .FALSE. P_qnh = 1 ; F_qnh = .FALSE. P_qnn = 1 ; F_qnn = .FALSE. P_qnc = 1 ; F_qnc = .FALSE. P_qvolg = 1 ; F_qvolg = .FALSE. P_qvolh = 1 ; F_qvolh = .FALSE. P_qrimef = 1 ; F_qrimef = .FALSE. P_qir = 1 ; F_qir = .FALSE. P_qib = 1 ; F_qib = .FALSE. P_qke_adv = 1 ; F_qke_adv = .FALSE. P_ff1i01 = 1 ; F_ff1i01 = .FALSE. P_ff1i02 = 1 ; F_ff1i02 = .FALSE. P_ff1i03 = 1 ; F_ff1i03 = .FALSE. P_ff1i04 = 1 ; F_ff1i04 = .FALSE. P_ff1i05 = 1 ; F_ff1i05 = .FALSE. P_ff1i06 = 1 ; F_ff1i06 = .FALSE. P_ff1i07 = 1 ; F_ff1i07 = .FALSE. P_ff1i08 = 1 ; F_ff1i08 = .FALSE. P_ff1i09 = 1 ; F_ff1i09 = .FALSE. P_ff1i10 = 1 ; F_ff1i10 = .FALSE. P_ff1i11 = 1 ; F_ff1i11 = .FALSE. P_ff1i12 = 1 ; F_ff1i12 = .FALSE. P_ff1i13 = 1 ; F_ff1i13 = .FALSE. P_ff1i14 = 1 ; F_ff1i14 = .FALSE. P_ff1i15 = 1 ; F_ff1i15 = .FALSE. P_ff1i16 = 1 ; F_ff1i16 = .FALSE. P_ff1i17 = 1 ; F_ff1i17 = .FALSE. P_ff1i18 = 1 ; F_ff1i18 = .FALSE. P_ff1i19 = 1 ; F_ff1i19 = .FALSE. P_ff1i20 = 1 ; F_ff1i20 = .FALSE. P_ff1i21 = 1 ; F_ff1i21 = .FALSE. P_ff1i22 = 1 ; F_ff1i22 = .FALSE. P_ff1i23 = 1 ; F_ff1i23 = .FALSE. P_ff1i24 = 1 ; F_ff1i24 = .FALSE. P_ff1i25 = 1 ; F_ff1i25 = .FALSE. P_ff1i26 = 1 ; F_ff1i26 = .FALSE. P_ff1i27 = 1 ; F_ff1i27 = .FALSE. P_ff1i28 = 1 ; F_ff1i28 = .FALSE. P_ff1i29 = 1 ; F_ff1i29 = .FALSE. P_ff1i30 = 1 ; F_ff1i30 = .FALSE. P_ff1i31 = 1 ; F_ff1i31 = .FALSE. P_ff1i32 = 1 ; F_ff1i32 = .FALSE. P_ff1i33 = 1 ; F_ff1i33 = .FALSE. P_ff5i01 = 1 ; F_ff5i01 = .FALSE. P_ff5i02 = 1 ; F_ff5i02 = .FALSE. P_ff5i03 = 1 ; F_ff5i03 = .FALSE. P_ff5i04 = 1 ; F_ff5i04 = .FALSE. P_ff5i05 = 1 ; F_ff5i05 = .FALSE. P_ff5i06 = 1 ; F_ff5i06 = .FALSE. P_ff5i07 = 1 ; F_ff5i07 = .FALSE. P_ff5i08 = 1 ; F_ff5i08 = .FALSE. P_ff5i09 = 1 ; F_ff5i09 = .FALSE. P_ff5i10 = 1 ; F_ff5i10 = .FALSE. P_ff5i11 = 1 ; F_ff5i11 = .FALSE. P_ff5i12 = 1 ; F_ff5i12 = .FALSE. P_ff5i13 = 1 ; F_ff5i13 = .FALSE. P_ff5i14 = 1 ; F_ff5i14 = .FALSE. P_ff5i15 = 1 ; F_ff5i15 = .FALSE. P_ff5i16 = 1 ; F_ff5i16 = .FALSE. P_ff5i17 = 1 ; F_ff5i17 = .FALSE. P_ff5i18 = 1 ; F_ff5i18 = .FALSE. P_ff5i19 = 1 ; F_ff5i19 = .FALSE. P_ff5i20 = 1 ; F_ff5i20 = .FALSE. P_ff5i21 = 1 ; F_ff5i21 = .FALSE. P_ff5i22 = 1 ; F_ff5i22 = .FALSE. P_ff5i23 = 1 ; F_ff5i23 = .FALSE. P_ff5i24 = 1 ; F_ff5i24 = .FALSE. P_ff5i25 = 1 ; F_ff5i25 = .FALSE. P_ff5i26 = 1 ; F_ff5i26 = .FALSE. P_ff5i27 = 1 ; F_ff5i27 = .FALSE. P_ff5i28 = 1 ; F_ff5i28 = .FALSE. P_ff5i29 = 1 ; F_ff5i29 = .FALSE. P_ff5i30 = 1 ; F_ff5i30 = .FALSE. P_ff5i31 = 1 ; F_ff5i31 = .FALSE. P_ff5i32 = 1 ; F_ff5i32 = .FALSE. P_ff5i33 = 1 ; F_ff5i33 = .FALSE. P_ff6i01 = 1 ; F_ff6i01 = .FALSE. P_ff6i02 = 1 ; F_ff6i02 = .FALSE. P_ff6i03 = 1 ; F_ff6i03 = .FALSE. P_ff6i04 = 1 ; F_ff6i04 = .FALSE. P_ff6i05 = 1 ; F_ff6i05 = .FALSE. P_ff6i06 = 1 ; F_ff6i06 = .FALSE. P_ff6i07 = 1 ; F_ff6i07 = .FALSE. P_ff6i08 = 1 ; F_ff6i08 = .FALSE. P_ff6i09 = 1 ; F_ff6i09 = .FALSE. P_ff6i10 = 1 ; F_ff6i10 = .FALSE. P_ff6i11 = 1 ; F_ff6i11 = .FALSE. P_ff6i12 = 1 ; F_ff6i12 = .FALSE. P_ff6i13 = 1 ; F_ff6i13 = .FALSE. P_ff6i14 = 1 ; F_ff6i14 = .FALSE. P_ff6i15 = 1 ; F_ff6i15 = .FALSE. P_ff6i16 = 1 ; F_ff6i16 = .FALSE. P_ff6i17 = 1 ; F_ff6i17 = .FALSE. P_ff6i18 = 1 ; F_ff6i18 = .FALSE. P_ff6i19 = 1 ; F_ff6i19 = .FALSE. P_ff6i20 = 1 ; F_ff6i20 = .FALSE. P_ff6i21 = 1 ; F_ff6i21 = .FALSE. P_ff6i22 = 1 ; F_ff6i22 = .FALSE. P_ff6i23 = 1 ; F_ff6i23 = .FALSE. P_ff6i24 = 1 ; F_ff6i24 = .FALSE. P_ff6i25 = 1 ; F_ff6i25 = .FALSE. P_ff6i26 = 1 ; F_ff6i26 = .FALSE. P_ff6i27 = 1 ; F_ff6i27 = .FALSE. P_ff6i28 = 1 ; F_ff6i28 = .FALSE. P_ff6i29 = 1 ; F_ff6i29 = .FALSE. P_ff6i30 = 1 ; F_ff6i30 = .FALSE. P_ff6i31 = 1 ; F_ff6i31 = .FALSE. P_ff6i32 = 1 ; F_ff6i32 = .FALSE. P_ff6i33 = 1 ; F_ff6i33 = .FALSE. P_ff8i01 = 1 ; F_ff8i01 = .FALSE. P_ff8i02 = 1 ; F_ff8i02 = .FALSE. P_ff8i03 = 1 ; F_ff8i03 = .FALSE. P_ff8i04 = 1 ; F_ff8i04 = .FALSE. P_ff8i05 = 1 ; F_ff8i05 = .FALSE. P_ff8i06 = 1 ; F_ff8i06 = .FALSE. P_ff8i07 = 1 ; F_ff8i07 = .FALSE. P_ff8i08 = 1 ; F_ff8i08 = .FALSE. P_ff8i09 = 1 ; F_ff8i09 = .FALSE. P_ff8i10 = 1 ; F_ff8i10 = .FALSE. P_ff8i11 = 1 ; F_ff8i11 = .FALSE. P_ff8i12 = 1 ; F_ff8i12 = .FALSE. P_ff8i13 = 1 ; F_ff8i13 = .FALSE. P_ff8i14 = 1 ; F_ff8i14 = .FALSE. P_ff8i15 = 1 ; F_ff8i15 = .FALSE. P_ff8i16 = 1 ; F_ff8i16 = .FALSE. P_ff8i17 = 1 ; F_ff8i17 = .FALSE. P_ff8i18 = 1 ; F_ff8i18 = .FALSE. P_ff8i19 = 1 ; F_ff8i19 = .FALSE. P_ff8i20 = 1 ; F_ff8i20 = .FALSE. P_ff8i21 = 1 ; F_ff8i21 = .FALSE. P_ff8i22 = 1 ; F_ff8i22 = .FALSE. P_ff8i23 = 1 ; F_ff8i23 = .FALSE. P_ff8i24 = 1 ; F_ff8i24 = .FALSE. P_ff8i25 = 1 ; F_ff8i25 = .FALSE. P_ff8i26 = 1 ; F_ff8i26 = .FALSE. P_ff8i27 = 1 ; F_ff8i27 = .FALSE. P_ff8i28 = 1 ; F_ff8i28 = .FALSE. P_ff8i29 = 1 ; F_ff8i29 = .FALSE. P_ff8i30 = 1 ; F_ff8i30 = .FALSE. P_ff8i31 = 1 ; F_ff8i31 = .FALSE. P_ff8i32 = 1 ; F_ff8i32 = .FALSE. P_ff8i33 = 1 ; F_ff8i33 = .FALSE. P_ff2i01 = 1 ; F_ff2i01 = .FALSE. P_ff2i02 = 1 ; F_ff2i02 = .FALSE. P_ff2i03 = 1 ; F_ff2i03 = .FALSE. P_ff2i04 = 1 ; F_ff2i04 = .FALSE. P_ff2i05 = 1 ; F_ff2i05 = .FALSE. P_ff2i06 = 1 ; F_ff2i06 = .FALSE. P_ff2i07 = 1 ; F_ff2i07 = .FALSE. P_ff2i08 = 1 ; F_ff2i08 = .FALSE. P_ff2i09 = 1 ; F_ff2i09 = .FALSE. P_ff2i10 = 1 ; F_ff2i10 = .FALSE. P_ff2i11 = 1 ; F_ff2i11 = .FALSE. P_ff2i12 = 1 ; F_ff2i12 = .FALSE. P_ff2i13 = 1 ; F_ff2i13 = .FALSE. P_ff2i14 = 1 ; F_ff2i14 = .FALSE. P_ff2i15 = 1 ; F_ff2i15 = .FALSE. P_ff2i16 = 1 ; F_ff2i16 = .FALSE. P_ff2i17 = 1 ; F_ff2i17 = .FALSE. P_ff2i18 = 1 ; F_ff2i18 = .FALSE. P_ff2i19 = 1 ; F_ff2i19 = .FALSE. P_ff2i20 = 1 ; F_ff2i20 = .FALSE. P_ff2i21 = 1 ; F_ff2i21 = .FALSE. P_ff2i22 = 1 ; F_ff2i22 = .FALSE. P_ff2i23 = 1 ; F_ff2i23 = .FALSE. P_ff2i24 = 1 ; F_ff2i24 = .FALSE. P_ff2i25 = 1 ; F_ff2i25 = .FALSE. P_ff2i26 = 1 ; F_ff2i26 = .FALSE. P_ff2i27 = 1 ; F_ff2i27 = .FALSE. P_ff2i28 = 1 ; F_ff2i28 = .FALSE. P_ff2i29 = 1 ; F_ff2i29 = .FALSE. P_ff2i30 = 1 ; F_ff2i30 = .FALSE. P_ff2i31 = 1 ; F_ff2i31 = .FALSE. P_ff2i32 = 1 ; F_ff2i32 = .FALSE. P_ff2i33 = 1 ; F_ff2i33 = .FALSE. P_ff3i01 = 1 ; F_ff3i01 = .FALSE. P_ff3i02 = 1 ; F_ff3i02 = .FALSE. P_ff3i03 = 1 ; F_ff3i03 = .FALSE. P_ff3i04 = 1 ; F_ff3i04 = .FALSE. P_ff3i05 = 1 ; F_ff3i05 = .FALSE. P_ff3i06 = 1 ; F_ff3i06 = .FALSE. P_ff3i07 = 1 ; F_ff3i07 = .FALSE. P_ff3i08 = 1 ; F_ff3i08 = .FALSE. P_ff3i09 = 1 ; F_ff3i09 = .FALSE. P_ff3i10 = 1 ; F_ff3i10 = .FALSE. P_ff3i11 = 1 ; F_ff3i11 = .FALSE. P_ff3i12 = 1 ; F_ff3i12 = .FALSE. P_ff3i13 = 1 ; F_ff3i13 = .FALSE. P_ff3i14 = 1 ; F_ff3i14 = .FALSE. P_ff3i15 = 1 ; F_ff3i15 = .FALSE. P_ff3i16 = 1 ; F_ff3i16 = .FALSE. P_ff3i17 = 1 ; F_ff3i17 = .FALSE. P_ff3i18 = 1 ; F_ff3i18 = .FALSE. P_ff3i19 = 1 ; F_ff3i19 = .FALSE. P_ff3i20 = 1 ; F_ff3i20 = .FALSE. P_ff3i21 = 1 ; F_ff3i21 = .FALSE. P_ff3i22 = 1 ; F_ff3i22 = .FALSE. P_ff3i23 = 1 ; F_ff3i23 = .FALSE. P_ff3i24 = 1 ; F_ff3i24 = .FALSE. P_ff3i25 = 1 ; F_ff3i25 = .FALSE. P_ff3i26 = 1 ; F_ff3i26 = .FALSE. P_ff3i27 = 1 ; F_ff3i27 = .FALSE. P_ff3i28 = 1 ; F_ff3i28 = .FALSE. P_ff3i29 = 1 ; F_ff3i29 = .FALSE. P_ff3i30 = 1 ; F_ff3i30 = .FALSE. P_ff3i31 = 1 ; F_ff3i31 = .FALSE. P_ff3i32 = 1 ; F_ff3i32 = .FALSE. P_ff3i33 = 1 ; F_ff3i33 = .FALSE. P_ff4i01 = 1 ; F_ff4i01 = .FALSE. P_ff4i02 = 1 ; F_ff4i02 = .FALSE. P_ff4i03 = 1 ; F_ff4i03 = .FALSE. P_ff4i04 = 1 ; F_ff4i04 = .FALSE. P_ff4i05 = 1 ; F_ff4i05 = .FALSE. P_ff4i06 = 1 ; F_ff4i06 = .FALSE. P_ff4i07 = 1 ; F_ff4i07 = .FALSE. P_ff4i08 = 1 ; F_ff4i08 = .FALSE. P_ff4i09 = 1 ; F_ff4i09 = .FALSE. P_ff4i10 = 1 ; F_ff4i10 = .FALSE. P_ff4i11 = 1 ; F_ff4i11 = .FALSE. P_ff4i12 = 1 ; F_ff4i12 = .FALSE. P_ff4i13 = 1 ; F_ff4i13 = .FALSE. P_ff4i14 = 1 ; F_ff4i14 = .FALSE. P_ff4i15 = 1 ; F_ff4i15 = .FALSE. P_ff4i16 = 1 ; F_ff4i16 = .FALSE. P_ff4i17 = 1 ; F_ff4i17 = .FALSE. P_ff4i18 = 1 ; F_ff4i18 = .FALSE. P_ff4i19 = 1 ; F_ff4i19 = .FALSE. P_ff4i20 = 1 ; F_ff4i20 = .FALSE. P_ff4i21 = 1 ; F_ff4i21 = .FALSE. P_ff4i22 = 1 ; F_ff4i22 = .FALSE. P_ff4i23 = 1 ; F_ff4i23 = .FALSE. P_ff4i24 = 1 ; F_ff4i24 = .FALSE. P_ff4i25 = 1 ; F_ff4i25 = .FALSE. P_ff4i26 = 1 ; F_ff4i26 = .FALSE. P_ff4i27 = 1 ; F_ff4i27 = .FALSE. P_ff4i28 = 1 ; F_ff4i28 = .FALSE. P_ff4i29 = 1 ; F_ff4i29 = .FALSE. P_ff4i30 = 1 ; F_ff4i30 = .FALSE. P_ff4i31 = 1 ; F_ff4i31 = .FALSE. P_ff4i32 = 1 ; F_ff4i32 = .FALSE. P_ff4i33 = 1 ; F_ff4i33 = .FALSE. P_ff7i01 = 1 ; F_ff7i01 = .FALSE. P_ff7i02 = 1 ; F_ff7i02 = .FALSE. P_ff7i03 = 1 ; F_ff7i03 = .FALSE. P_ff7i04 = 1 ; F_ff7i04 = .FALSE. P_ff7i05 = 1 ; F_ff7i05 = .FALSE. P_ff7i06 = 1 ; F_ff7i06 = .FALSE. P_ff7i07 = 1 ; F_ff7i07 = .FALSE. P_ff7i08 = 1 ; F_ff7i08 = .FALSE. P_ff7i09 = 1 ; F_ff7i09 = .FALSE. P_ff7i10 = 1 ; F_ff7i10 = .FALSE. P_ff7i11 = 1 ; F_ff7i11 = .FALSE. P_ff7i12 = 1 ; F_ff7i12 = .FALSE. P_ff7i13 = 1 ; F_ff7i13 = .FALSE. P_ff7i14 = 1 ; F_ff7i14 = .FALSE. P_ff7i15 = 1 ; F_ff7i15 = .FALSE. P_ff7i16 = 1 ; F_ff7i16 = .FALSE. P_ff7i17 = 1 ; F_ff7i17 = .FALSE. P_ff7i18 = 1 ; F_ff7i18 = .FALSE. P_ff7i19 = 1 ; F_ff7i19 = .FALSE. P_ff7i20 = 1 ; F_ff7i20 = .FALSE. P_ff7i21 = 1 ; F_ff7i21 = .FALSE. P_ff7i22 = 1 ; F_ff7i22 = .FALSE. P_ff7i23 = 1 ; F_ff7i23 = .FALSE. P_ff7i24 = 1 ; F_ff7i24 = .FALSE. P_ff7i25 = 1 ; F_ff7i25 = .FALSE. P_ff7i26 = 1 ; F_ff7i26 = .FALSE. P_ff7i27 = 1 ; F_ff7i27 = .FALSE. P_ff7i28 = 1 ; F_ff7i28 = .FALSE. P_ff7i29 = 1 ; F_ff7i29 = .FALSE. P_ff7i30 = 1 ; F_ff7i30 = .FALSE. P_ff7i31 = 1 ; F_ff7i31 = .FALSE. P_ff7i32 = 1 ; F_ff7i32 = .FALSE. P_ff7i33 = 1 ; F_ff7i33 = .FALSE. P_qnip = 1 ; F_qnip = .FALSE. P_qnic = 1 ; F_qnic = .FALSE. P_qnid = 1 ; F_qnid = .FALSE. P_effr = 1 ; F_effr = .FALSE. P_ice_effr = 1 ; F_ice_effr = .FALSE. P_tot_effr = 1 ; F_tot_effr = .FALSE. P_qic_effr = 1 ; F_qic_effr = .FALSE. P_qip_effr = 1 ; F_qip_effr = .FALSE. P_qid_effr = 1 ; F_qid_effr = .FALSE. P_scr = 1 ; F_scr = .FALSE. P_scw = 1 ; F_scw = .FALSE. P_sci = 1 ; F_sci = .FALSE. P_scs = 1 ; F_scs = .FALSE. P_sch = 1 ; F_sch = .FALSE. P_schl = 1 ; F_schl = .FALSE. P_sciona = 1 ; F_sciona = .FALSE. P_clnox = 1 ; F_clnox = .FALSE. P_qnwfa = 1 ; F_qnwfa = .FALSE. P_qnifa = 1 ; F_qnifa = .FALSE. P_dfi_qndrop = 1 ; F_dfi_qndrop = .FALSE. P_dfi_qni = 1 ; F_dfi_qni = .FALSE. P_dfi_qt = 1 ; F_dfi_qt = .FALSE. P_dfi_qns = 1 ; F_dfi_qns = .FALSE. P_dfi_qnr = 1 ; F_dfi_qnr = .FALSE. P_dfi_qng = 1 ; F_dfi_qng = .FALSE. P_dfi_qnh = 1 ; F_dfi_qnh = .FALSE. P_dfi_qnn = 1 ; F_dfi_qnn = .FALSE. P_dfi_qnc = 1 ; F_dfi_qnc = .FALSE. P_dfi_qvolg = 1 ; F_dfi_qvolg = .FALSE. P_dfi_qvolh = 1 ; F_dfi_qvolh = .FALSE. P_dfi_qir = 1 ; F_dfi_qir = .FALSE. P_dfi_qib = 1 ; F_dfi_qib = .FALSE. P_dfi_qke_adv = 1 ; F_dfi_qke_adv = .FALSE. P_dfi_qnwfa = 1 ; F_dfi_qnwfa = .FALSE. P_dfi_qnifa = 1 ; F_dfi_qnifa = .FALSE. P_ocarbon = 1 ; F_ocarbon = .FALSE. P_seasalt = 1 ; F_seasalt = .FALSE. P_dust = 1 ; F_dust = .FALSE. P_bcarbon = 1 ; F_bcarbon = .FALSE. P_sulfate = 1 ; F_sulfate = .FALSE. P_upperaer = 1 ; F_upperaer = .FALSE. P_mth01 = 1 ; F_mth01 = .FALSE. P_mth02 = 1 ; F_mth02 = .FALSE. P_mth03 = 1 ; F_mth03 = .FALSE. P_mth04 = 1 ; F_mth04 = .FALSE. P_mth05 = 1 ; F_mth05 = .FALSE. P_mth06 = 1 ; F_mth06 = .FALSE. P_mth07 = 1 ; F_mth07 = .FALSE. P_mth08 = 1 ; F_mth08 = .FALSE. P_mth09 = 1 ; F_mth09 = .FALSE. P_mth10 = 1 ; F_mth10 = .FALSE. P_mth11 = 1 ; F_mth11 = .FALSE. P_mth12 = 1 ; F_mth12 = .FALSE. P_sul = 1 ; F_sul = .FALSE. P_sslt = 1 ; F_sslt = .FALSE. P_dust1 = 1 ; F_dust1 = .FALSE. P_dust2 = 1 ; F_dust2 = .FALSE. P_dust3 = 1 ; F_dust3 = .FALSE. P_dust4 = 1 ; F_dust4 = .FALSE. P_ocpho = 1 ; F_ocpho = .FALSE. P_bcpho = 1 ; F_bcpho = .FALSE. P_ocphi = 1 ; F_ocphi = .FALSE. P_bcphi = 1 ; F_bcphi = .FALSE. P_bg = 1 ; F_bg = .FALSE. P_volc = 1 ; F_volc = .FALSE. P_u_ndg_new = 1 ; F_u_ndg_new = .FALSE. P_v_ndg_new = 1 ; F_v_ndg_new = .FALSE. P_t_ndg_new = 1 ; F_t_ndg_new = .FALSE. P_q_ndg_new = 1 ; F_q_ndg_new = .FALSE. P_ph_ndg_new = 1 ; F_ph_ndg_new = .FALSE. P_u_ndg_old = 1 ; F_u_ndg_old = .FALSE. P_v_ndg_old = 1 ; F_v_ndg_old = .FALSE. P_t_ndg_old = 1 ; F_t_ndg_old = .FALSE. P_q_ndg_old = 1 ; F_q_ndg_old = .FALSE. P_ph_ndg_old = 1 ; F_ph_ndg_old = .FALSE. P_mu_ndg_new = 1 ; F_mu_ndg_new = .FALSE. P_mu_ndg_old = 1 ; F_mu_ndg_old = .FALSE. P_advh_qv = 1 ; F_advh_qv = .FALSE. P_advz_qv = 1 ; F_advz_qv = .FALSE. P_e_iso = 1 ; F_e_iso = .FALSE. P_e_so2 = 1 ; F_e_so2 = .FALSE. P_e_no = 1 ; F_e_no = .FALSE. P_e_co = 1 ; F_e_co = .FALSE. P_e_co2 = 1 ; F_e_co2 = .FALSE. P_e_eth = 1 ; F_e_eth = .FALSE. P_e_hc3 = 1 ; F_e_hc3 = .FALSE. P_e_hc5 = 1 ; F_e_hc5 = .FALSE. P_e_hc8 = 1 ; F_e_hc8 = .FALSE. P_e_xyl = 1 ; F_e_xyl = .FALSE. P_e_ol2 = 1 ; F_e_ol2 = .FALSE. P_e_olt = 1 ; F_e_olt = .FALSE. P_e_oli = 1 ; F_e_oli = .FALSE. P_e_tol = 1 ; F_e_tol = .FALSE. P_e_csl = 1 ; F_e_csl = .FALSE. P_e_hcho = 1 ; F_e_hcho = .FALSE. P_e_ald = 1 ; F_e_ald = .FALSE. P_e_ket = 1 ; F_e_ket = .FALSE. P_e_ora2 = 1 ; F_e_ora2 = .FALSE. P_e_nh3 = 1 ; F_e_nh3 = .FALSE. P_e_pm_25 = 1 ; F_e_pm_25 = .FALSE. P_e_pm_10 = 1 ; F_e_pm_10 = .FALSE. P_e_pm25i = 1 ; F_e_pm25i = .FALSE. P_e_pm25j = 1 ; F_e_pm25j = .FALSE. P_e_eci = 1 ; F_e_eci = .FALSE. P_e_ecj = 1 ; F_e_ecj = .FALSE. P_e_naai = 1 ; F_e_naai = .FALSE. P_e_naaj = 1 ; F_e_naaj = .FALSE. P_e_orgi = 1 ; F_e_orgi = .FALSE. P_e_orgj = 1 ; F_e_orgj = .FALSE. P_e_so4i = 1 ; F_e_so4i = .FALSE. P_e_so4j = 1 ; F_e_so4j = .FALSE. P_e_no3i = 1 ; F_e_no3i = .FALSE. P_e_no3j = 1 ; F_e_no3j = .FALSE. P_e_nh4i = 1 ; F_e_nh4i = .FALSE. P_e_nh4j = 1 ; F_e_nh4j = .FALSE. P_e_nai = 1 ; F_e_nai = .FALSE. P_e_naj = 1 ; F_e_naj = .FALSE. P_e_cli = 1 ; F_e_cli = .FALSE. P_e_clj = 1 ; F_e_clj = .FALSE. P_e_bigalk = 1 ; F_e_bigalk = .FALSE. P_e_bigene = 1 ; F_e_bigene = .FALSE. P_e_c2h4 = 1 ; F_e_c2h4 = .FALSE. P_e_c2h6 = 1 ; F_e_c2h6 = .FALSE. P_e_c3h6 = 1 ; F_e_c3h6 = .FALSE. P_e_c3h8 = 1 ; F_e_c3h8 = .FALSE. P_e_ch2o = 1 ; F_e_ch2o = .FALSE. P_e_ch3cho = 1 ; F_e_ch3cho = .FALSE. P_e_ch3coch3 = 1 ; F_e_ch3coch3 = .FALSE. P_e_mek = 1 ; F_e_mek = .FALSE. P_e_toluene = 1 ; F_e_toluene = .FALSE. P_e_xylene = 1 ; F_e_xylene = .FALSE. P_e_isop = 1 ; F_e_isop = .FALSE. P_e_c10h16 = 1 ; F_e_c10h16 = .FALSE. P_e_voca = 1 ; F_e_voca = .FALSE. P_e_vocbb = 1 ; F_e_vocbb = .FALSE. P_e_macr = 1 ; F_e_macr = .FALSE. P_e_hono = 1 ; F_e_hono = .FALSE. P_e_c5h8 = 1 ; F_e_c5h8 = .FALSE. P_e_tm123b = 1 ; F_e_tm123b = .FALSE. P_e_tm124b = 1 ; F_e_tm124b = .FALSE. P_e_tm135b = 1 ; F_e_tm135b = .FALSE. P_e_oethtol = 1 ; F_e_oethtol = .FALSE. P_e_methtol = 1 ; F_e_methtol = .FALSE. P_e_pethtol = 1 ; F_e_pethtol = .FALSE. P_e_dime35eb = 1 ; F_e_dime35eb = .FALSE. P_e_c2h5cho = 1 ; F_e_c2h5cho = .FALSE. P_e_benzene = 1 ; F_e_benzene = .FALSE. P_e_nc4h10 = 1 ; F_e_nc4h10 = .FALSE. P_e_oxyl = 1 ; F_e_oxyl = .FALSE. P_e_tbut2ene = 1 ; F_e_tbut2ene = .FALSE. P_e_ch3co2h = 1 ; F_e_ch3co2h = .FALSE. P_e_bc_1 = 1 ; F_e_bc_1 = .FALSE. P_e_ec_1_25 = 1 ; F_e_ec_1_25 = .FALSE. P_e_ec_25_10 = 1 ; F_e_ec_25_10 = .FALSE. P_e_oc_dom = 1 ; F_e_oc_dom = .FALSE. P_e_oc_tra = 1 ; F_e_oc_tra = .FALSE. P_e_oc_25_10 = 1 ; F_e_oc_25_10 = .FALSE. P_e_pm25 = 1 ; F_e_pm25 = .FALSE. P_e_pm10 = 1 ; F_e_pm10 = .FALSE. P_e_oin_25 = 1 ; F_e_oin_25 = .FALSE. P_e_oin_10 = 1 ; F_e_oin_10 = .FALSE. P_e_no2 = 1 ; F_e_no2 = .FALSE. P_e_ch3oh = 1 ; F_e_ch3oh = .FALSE. P_e_c2h5oh = 1 ; F_e_c2h5oh = .FALSE. P_e_so4c = 1 ; F_e_so4c = .FALSE. P_e_no3c = 1 ; F_e_no3c = .FALSE. P_e_nh4c = 1 ; F_e_nh4c = .FALSE. P_e_nac = 1 ; F_e_nac = .FALSE. P_e_clc = 1 ; F_e_clc = .FALSE. P_e_orgc = 1 ; F_e_orgc = .FALSE. P_e_ecc = 1 ; F_e_ecc = .FALSE. P_e_orgi_a = 1 ; F_e_orgi_a = .FALSE. P_e_orgj_a = 1 ; F_e_orgj_a = .FALSE. P_e_orgi_bb = 1 ; F_e_orgi_bb = .FALSE. P_e_orgj_bb = 1 ; F_e_orgj_bb = .FALSE. P_e_co_a = 1 ; F_e_co_a = .FALSE. P_e_co_bb = 1 ; F_e_co_bb = .FALSE. P_e_bc = 1 ; F_e_bc = .FALSE. P_e_oc = 1 ; F_e_oc = .FALSE. P_e_sulf = 1 ; F_e_sulf = .FALSE. P_e_soag_bigalk = 1 ; F_e_soag_bigalk = .FALSE. P_e_soag_bigene = 1 ; F_e_soag_bigene = .FALSE. P_e_soag_isoprene = 1 ; F_e_soag_isoprene = .FALSE. P_e_soag_terpene = 1 ; F_e_soag_terpene = .FALSE. P_e_soag_toluene = 1 ; F_e_soag_toluene = .FALSE. P_e_dust_a1 = 1 ; F_e_dust_a1 = .FALSE. P_e_dust_a3 = 1 ; F_e_dust_a3 = .FALSE. P_e_ncl_a1 = 1 ; F_e_ncl_a1 = .FALSE. P_e_ncl_a2 = 1 ; F_e_ncl_a2 = .FALSE. P_e_ncl_a3 = 1 ; F_e_ncl_a3 = .FALSE. P_e_orgj_num = 1 ; F_e_orgj_num = .FALSE. P_e_ecj_num = 1 ; F_e_ecj_num = .FALSE. P_e_so4j_num = 1 ; F_e_so4j_num = .FALSE. P_e_so4i_num = 1 ; F_e_so4i_num = .FALSE. P_e_num_a3 = 1 ; F_e_num_a3 = .FALSE. P_e_dms = 1 ; F_e_dms = .FALSE. P_e_c2h2 = 1 ; F_e_c2h2 = .FALSE. P_e_alk3 = 1 ; F_e_alk3 = .FALSE. P_e_alk4 = 1 ; F_e_alk4 = .FALSE. P_e_alk5 = 1 ; F_e_alk5 = .FALSE. P_e_ethene = 1 ; F_e_ethene = .FALSE. P_e_ole1 = 1 ; F_e_ole1 = .FALSE. P_e_ole2 = 1 ; F_e_ole2 = .FALSE. P_e_aro1 = 1 ; F_e_aro1 = .FALSE. P_e_aro2 = 1 ; F_e_aro2 = .FALSE. P_e_ccho = 1 ; F_e_ccho = .FALSE. P_e_rcho = 1 ; F_e_rcho = .FALSE. P_e_acet = 1 ; F_e_acet = .FALSE. P_e_isoprene = 1 ; F_e_isoprene = .FALSE. P_e_terp = 1 ; F_e_terp = .FALSE. P_e_sesq = 1 ; F_e_sesq = .FALSE. P_e_phen = 1 ; F_e_phen = .FALSE. P_e_cres = 1 ; F_e_cres = .FALSE. P_e_meoh = 1 ; F_e_meoh = .FALSE. P_e_gly = 1 ; F_e_gly = .FALSE. P_e_mgly = 1 ; F_e_mgly = .FALSE. P_e_bacl = 1 ; F_e_bacl = .FALSE. P_e_isoprod = 1 ; F_e_isoprod = .FALSE. P_e_methacro = 1 ; F_e_methacro = .FALSE. P_e_mvk = 1 ; F_e_mvk = .FALSE. P_e_prod2 = 1 ; F_e_prod2 = .FALSE. P_e_ch4 = 1 ; F_e_ch4 = .FALSE. P_e_bald = 1 ; F_e_bald = .FALSE. P_e_hcooh = 1 ; F_e_hcooh = .FALSE. P_e_cco_oh = 1 ; F_e_cco_oh = .FALSE. P_e_rco_oh = 1 ; F_e_rco_oh = .FALSE. P_e_co2tst = 1 ; F_e_co2tst = .FALSE. P_e_cotst = 1 ; F_e_cotst = .FALSE. P_e_ch4tst = 1 ; F_e_ch4tst = .FALSE. P_e_hcl = 1 ; F_e_hcl = .FALSE. P_e_aldx = 1 ; F_e_aldx = .FALSE. P_e_par = 1 ; F_e_par = .FALSE. P_e_ole = 1 ; F_e_ole = .FALSE. P_e_iole = 1 ; F_e_iole = .FALSE. P_e_form = 1 ; F_e_form = .FALSE. P_e_etha = 1 ; F_e_etha = .FALSE. P_e_etoh = 1 ; F_e_etoh = .FALSE. P_e_ald2 = 1 ; F_e_ald2 = .FALSE. P_e_meo2 = 1 ; F_e_meo2 = .FALSE. P_e_psulf = 1 ; F_e_psulf = .FALSE. P_e_ccooh = 1 ; F_e_ccooh = .FALSE. P_e_iprod = 1 ; F_e_iprod = .FALSE. P_e_hg2 = 1 ; F_e_hg2 = .FALSE. P_e_hg0 = 1 ; F_e_hg0 = .FALSE. P_e_fmcl = 1 ; F_e_fmcl = .FALSE. P_e_hgp = 1 ; F_e_hgp = .FALSE. P_e_apin = 1 ; F_e_apin = .FALSE. P_e_bpin = 1 ; F_e_bpin = .FALSE. P_e_lim = 1 ; F_e_lim = .FALSE. P_e_ter = 1 ; F_e_ter = .FALSE. P_e_oci = 1 ; F_e_oci = .FALSE. P_e_hum = 1 ; F_e_hum = .FALSE. P_ebio_gee = 1 ; F_ebio_gee = .FALSE. P_ebio_res = 1 ; F_ebio_res = .FALSE. P_ebio_ch4wet = 1 ; F_ebio_ch4wet = .FALSE. P_ebio_ch4soil = 1 ; F_ebio_ch4soil = .FALSE. P_ebio_ch4term = 1 ; F_ebio_ch4term = .FALSE. P_edust1 = 1 ; F_edust1 = .FALSE. P_edust2 = 1 ; F_edust2 = .FALSE. P_edust3 = 1 ; F_edust3 = .FALSE. P_edust4 = 1 ; F_edust4 = .FALSE. P_edust5 = 1 ; F_edust5 = .FALSE. P_eseas1 = 1 ; F_eseas1 = .FALSE. P_eseas2 = 1 ; F_eseas2 = .FALSE. P_eseas3 = 1 ; F_eseas3 = .FALSE. P_eseas4 = 1 ; F_eseas4 = .FALSE. P_eseasj = 1 ; F_eseasj = .FALSE. P_eseasc = 1 ; F_eseasc = .FALSE. P_e_vash1 = 1 ; F_e_vash1 = .FALSE. P_e_vash2 = 1 ; F_e_vash2 = .FALSE. P_e_vash3 = 1 ; F_e_vash3 = .FALSE. P_e_vash4 = 1 ; F_e_vash4 = .FALSE. P_e_vash5 = 1 ; F_e_vash5 = .FALSE. P_e_vash6 = 1 ; F_e_vash6 = .FALSE. P_e_vash7 = 1 ; F_e_vash7 = .FALSE. P_e_vash8 = 1 ; F_e_vash8 = .FALSE. P_e_vash9 = 1 ; F_e_vash9 = .FALSE. P_e_vash10 = 1 ; F_e_vash10 = .FALSE. P_e_vso2 = 1 ; F_e_vso2 = .FALSE. P_ebu_no = 1 ; F_ebu_no = .FALSE. P_ebu_no2 = 1 ; F_ebu_no2 = .FALSE. P_ebu_co = 1 ; F_ebu_co = .FALSE. P_ebu_co2 = 1 ; F_ebu_co2 = .FALSE. P_ebu_eth = 1 ; F_ebu_eth = .FALSE. P_ebu_hc3 = 1 ; F_ebu_hc3 = .FALSE. P_ebu_hc5 = 1 ; F_ebu_hc5 = .FALSE. P_ebu_hc8 = 1 ; F_ebu_hc8 = .FALSE. P_ebu_ete = 1 ; F_ebu_ete = .FALSE. P_ebu_olt = 1 ; F_ebu_olt = .FALSE. P_ebu_oli = 1 ; F_ebu_oli = .FALSE. P_ebu_pm25 = 1 ; F_ebu_pm25 = .FALSE. P_ebu_pm10 = 1 ; F_ebu_pm10 = .FALSE. P_ebu_dien = 1 ; F_ebu_dien = .FALSE. P_ebu_iso = 1 ; F_ebu_iso = .FALSE. P_ebu_api = 1 ; F_ebu_api = .FALSE. P_ebu_lim = 1 ; F_ebu_lim = .FALSE. P_ebu_tol = 1 ; F_ebu_tol = .FALSE. P_ebu_xyl = 1 ; F_ebu_xyl = .FALSE. P_ebu_csl = 1 ; F_ebu_csl = .FALSE. P_ebu_hcho = 1 ; F_ebu_hcho = .FALSE. P_ebu_ald = 1 ; F_ebu_ald = .FALSE. P_ebu_ket = 1 ; F_ebu_ket = .FALSE. P_ebu_macr = 1 ; F_ebu_macr = .FALSE. P_ebu_ora1 = 1 ; F_ebu_ora1 = .FALSE. P_ebu_ora2 = 1 ; F_ebu_ora2 = .FALSE. P_ebu_nh3 = 1 ; F_ebu_nh3 = .FALSE. P_ebu_so2 = 1 ; F_ebu_so2 = .FALSE. P_ebu_dms = 1 ; F_ebu_dms = .FALSE. P_ebu_oc = 1 ; F_ebu_oc = .FALSE. P_ebu_bc = 1 ; F_ebu_bc = .FALSE. P_ebu_sulf = 1 ; F_ebu_sulf = .FALSE. P_ebu_bigalk = 1 ; F_ebu_bigalk = .FALSE. P_ebu_bigene = 1 ; F_ebu_bigene = .FALSE. P_ebu_c2h4 = 1 ; F_ebu_c2h4 = .FALSE. P_ebu_c2h5oh = 1 ; F_ebu_c2h5oh = .FALSE. P_ebu_c2h6 = 1 ; F_ebu_c2h6 = .FALSE. P_ebu_c3h6 = 1 ; F_ebu_c3h6 = .FALSE. P_ebu_c3h8 = 1 ; F_ebu_c3h8 = .FALSE. P_ebu_ch2o = 1 ; F_ebu_ch2o = .FALSE. P_ebu_ch3cho = 1 ; F_ebu_ch3cho = .FALSE. P_ebu_ch3coch3 = 1 ; F_ebu_ch3coch3 = .FALSE. P_ebu_ch3oh = 1 ; F_ebu_ch3oh = .FALSE. P_ebu_mek = 1 ; F_ebu_mek = .FALSE. P_ebu_toluene = 1 ; F_ebu_toluene = .FALSE. P_ebu_open = 1 ; F_ebu_open = .FALSE. P_ebu_c10h16 = 1 ; F_ebu_c10h16 = .FALSE. P_ebu_mgly = 1 ; F_ebu_mgly = .FALSE. P_ebu_ch3cooh = 1 ; F_ebu_ch3cooh = .FALSE. P_ebu_cres = 1 ; F_ebu_cres = .FALSE. P_ebu_glyald = 1 ; F_ebu_glyald = .FALSE. P_ebu_gly = 1 ; F_ebu_gly = .FALSE. P_ebu_acetol = 1 ; F_ebu_acetol = .FALSE. P_ebu_isop = 1 ; F_ebu_isop = .FALSE. P_ebu_mvk = 1 ; F_ebu_mvk = .FALSE. P_ebu_ch4 = 1 ; F_ebu_ch4 = .FALSE. P_ebu_in_no = 1 ; F_ebu_in_no = .FALSE. P_ebu_in_no2 = 1 ; F_ebu_in_no2 = .FALSE. P_ebu_in_co = 1 ; F_ebu_in_co = .FALSE. P_ebu_in_co2 = 1 ; F_ebu_in_co2 = .FALSE. P_ebu_in_eth = 1 ; F_ebu_in_eth = .FALSE. P_ebu_in_hc3 = 1 ; F_ebu_in_hc3 = .FALSE. P_ebu_in_hc5 = 1 ; F_ebu_in_hc5 = .FALSE. P_ebu_in_hc8 = 1 ; F_ebu_in_hc8 = .FALSE. P_ebu_in_ete = 1 ; F_ebu_in_ete = .FALSE. P_ebu_in_olt = 1 ; F_ebu_in_olt = .FALSE. P_ebu_in_oli = 1 ; F_ebu_in_oli = .FALSE. P_ebu_in_pm25 = 1 ; F_ebu_in_pm25 = .FALSE. P_ebu_in_pm10 = 1 ; F_ebu_in_pm10 = .FALSE. P_ebu_in_dien = 1 ; F_ebu_in_dien = .FALSE. P_ebu_in_iso = 1 ; F_ebu_in_iso = .FALSE. P_ebu_in_api = 1 ; F_ebu_in_api = .FALSE. P_ebu_in_lim = 1 ; F_ebu_in_lim = .FALSE. P_ebu_in_tol = 1 ; F_ebu_in_tol = .FALSE. P_ebu_in_xyl = 1 ; F_ebu_in_xyl = .FALSE. P_ebu_in_csl = 1 ; F_ebu_in_csl = .FALSE. P_ebu_in_hcho = 1 ; F_ebu_in_hcho = .FALSE. P_ebu_in_ald = 1 ; F_ebu_in_ald = .FALSE. P_ebu_in_ket = 1 ; F_ebu_in_ket = .FALSE. P_ebu_in_macr = 1 ; F_ebu_in_macr = .FALSE. P_ebu_in_ora1 = 1 ; F_ebu_in_ora1 = .FALSE. P_ebu_in_ora2 = 1 ; F_ebu_in_ora2 = .FALSE. P_ebu_in_nh3 = 1 ; F_ebu_in_nh3 = .FALSE. P_ebu_in_so2 = 1 ; F_ebu_in_so2 = .FALSE. P_ebu_in_dms = 1 ; F_ebu_in_dms = .FALSE. P_ebu_in_oc = 1 ; F_ebu_in_oc = .FALSE. P_ebu_in_bc = 1 ; F_ebu_in_bc = .FALSE. P_ebu_in_sulf = 1 ; F_ebu_in_sulf = .FALSE. P_ebu_in_ash = 1 ; F_ebu_in_ash = .FALSE. P_ebu_in_bigalk = 1 ; F_ebu_in_bigalk = .FALSE. P_ebu_in_bigene = 1 ; F_ebu_in_bigene = .FALSE. P_ebu_in_c2h4 = 1 ; F_ebu_in_c2h4 = .FALSE. P_ebu_in_c2h5oh = 1 ; F_ebu_in_c2h5oh = .FALSE. P_ebu_in_c2h6 = 1 ; F_ebu_in_c2h6 = .FALSE. P_ebu_in_c3h6 = 1 ; F_ebu_in_c3h6 = .FALSE. P_ebu_in_c3h8 = 1 ; F_ebu_in_c3h8 = .FALSE. P_ebu_in_ch2o = 1 ; F_ebu_in_ch2o = .FALSE. P_ebu_in_ch3cho = 1 ; F_ebu_in_ch3cho = .FALSE. P_ebu_in_ch3coch3 = 1 ; F_ebu_in_ch3coch3 = .FALSE. P_ebu_in_ch3oh = 1 ; F_ebu_in_ch3oh = .FALSE. P_ebu_in_mek = 1 ; F_ebu_in_mek = .FALSE. P_ebu_in_toluene = 1 ; F_ebu_in_toluene = .FALSE. P_ebu_in_open = 1 ; F_ebu_in_open = .FALSE. P_ebu_in_c10h16 = 1 ; F_ebu_in_c10h16 = .FALSE. P_ebu_in_mgly = 1 ; F_ebu_in_mgly = .FALSE. P_ebu_in_ch3cooh = 1 ; F_ebu_in_ch3cooh = .FALSE. P_ebu_in_cres = 1 ; F_ebu_in_cres = .FALSE. P_ebu_in_glyald = 1 ; F_ebu_in_glyald = .FALSE. P_ebu_in_gly = 1 ; F_ebu_in_gly = .FALSE. P_ebu_in_acetol = 1 ; F_ebu_in_acetol = .FALSE. P_ebu_in_isop = 1 ; F_ebu_in_isop = .FALSE. P_ebu_in_mvk = 1 ; F_ebu_in_mvk = .FALSE. P_ebu_in_ch4 = 1 ; F_ebu_in_ch4 = .FALSE. P_eac_so2 = 1 ; F_eac_so2 = .FALSE. P_eac_no = 1 ; F_eac_no = .FALSE. P_eac_co = 1 ; F_eac_co = .FALSE. P_eac_ch4 = 1 ; F_eac_ch4 = .FALSE. P_extcof3 = 1 ; F_extcof3 = .FALSE. P_extcof55 = 1 ; F_extcof55 = .FALSE. P_extcof106 = 1 ; F_extcof106 = .FALSE. P_extcof3_5 = 1 ; F_extcof3_5 = .FALSE. P_extcof8_12 = 1 ; F_extcof8_12 = .FALSE. P_bscof3 = 1 ; F_bscof3 = .FALSE. P_bscof55 = 1 ; F_bscof55 = .FALSE. P_bscof106 = 1 ; F_bscof106 = .FALSE. P_asympar3 = 1 ; F_asympar3 = .FALSE. P_asympar55 = 1 ; F_asympar55 = .FALSE. P_asympar106 = 1 ; F_asympar106 = .FALSE. P_conv_co = 1 ; F_conv_co = .FALSE. P_conv_o3 = 1 ; F_conv_o3 = .FALSE. P_conv_no = 1 ; F_conv_no = .FALSE. P_conv_no2 = 1 ; F_conv_no2 = .FALSE. P_conv_hno3 = 1 ; F_conv_hno3 = .FALSE. P_conv_iso = 1 ; F_conv_iso = .FALSE. P_conv_ho = 1 ; F_conv_ho = .FALSE. P_conv_ho2 = 1 ; F_conv_ho2 = .FALSE. P_chem_co = 1 ; F_chem_co = .FALSE. P_chem_o3 = 1 ; F_chem_o3 = .FALSE. P_chem_no = 1 ; F_chem_no = .FALSE. P_chem_no2 = 1 ; F_chem_no2 = .FALSE. P_chem_hno3 = 1 ; F_chem_hno3 = .FALSE. P_chem_iso = 1 ; F_chem_iso = .FALSE. P_chem_ho = 1 ; F_chem_ho = .FALSE. P_chem_ho2 = 1 ; F_chem_ho2 = .FALSE. P_vmix_co = 1 ; F_vmix_co = .FALSE. P_vmix_o3 = 1 ; F_vmix_o3 = .FALSE. P_vmix_no = 1 ; F_vmix_no = .FALSE. P_vmix_no2 = 1 ; F_vmix_no2 = .FALSE. P_vmix_hno3 = 1 ; F_vmix_hno3 = .FALSE. P_vmix_iso = 1 ; F_vmix_iso = .FALSE. P_vmix_ho = 1 ; F_vmix_ho = .FALSE. P_vmix_ho2 = 1 ; F_vmix_ho2 = .FALSE. P_advh_co = 1 ; F_advh_co = .FALSE. P_advh_o3 = 1 ; F_advh_o3 = .FALSE. P_advh_no = 1 ; F_advh_no = .FALSE. P_advh_no2 = 1 ; F_advh_no2 = .FALSE. P_advh_hno3 = 1 ; F_advh_hno3 = .FALSE. P_advh_iso = 1 ; F_advh_iso = .FALSE. P_advh_ho = 1 ; F_advh_ho = .FALSE. P_advh_ho2 = 1 ; F_advh_ho2 = .FALSE. P_advz_co = 1 ; F_advz_co = .FALSE. P_advz_o3 = 1 ; F_advz_o3 = .FALSE. P_advz_no = 1 ; F_advz_no = .FALSE. P_advz_no2 = 1 ; F_advz_no2 = .FALSE. P_advz_hno3 = 1 ; F_advz_hno3 = .FALSE. P_advz_iso = 1 ; F_advz_iso = .FALSE. P_advz_ho = 1 ; F_advz_ho = .FALSE. P_advz_ho2 = 1 ; F_advz_ho2 = .FALSE. P_dvel_o3 = 1 ; F_dvel_o3 = .FALSE. P_dvel_no = 1 ; F_dvel_no = .FALSE. P_dvel_no2 = 1 ; F_dvel_no2 = .FALSE. P_dvel_nh3 = 1 ; F_dvel_nh3 = .FALSE. P_dvel_hno3 = 1 ; F_dvel_hno3 = .FALSE. P_dvel_hno4 = 1 ; F_dvel_hno4 = .FALSE. P_dvel_h2o2 = 1 ; F_dvel_h2o2 = .FALSE. P_dvel_co = 1 ; F_dvel_co = .FALSE. P_dvel_ch3ooh = 1 ; F_dvel_ch3ooh = .FALSE. P_dvel_hcho = 1 ; F_dvel_hcho = .FALSE. P_dvel_ch3oh = 1 ; F_dvel_ch3oh = .FALSE. P_dvel_eo2 = 1 ; F_dvel_eo2 = .FALSE. P_dvel_ald = 1 ; F_dvel_ald = .FALSE. P_dvel_ch3cooh = 1 ; F_dvel_ch3cooh = .FALSE. P_dvel_acet = 1 ; F_dvel_acet = .FALSE. P_dvel_mgly = 1 ; F_dvel_mgly = .FALSE. P_dvel_gly = 1 ; F_dvel_gly = .FALSE. P_dvel_paa = 1 ; F_dvel_paa = .FALSE. P_dvel_pooh = 1 ; F_dvel_pooh = .FALSE. P_dvel_pan = 1 ; F_dvel_pan = .FALSE. P_dvel_mpan = 1 ; F_dvel_mpan = .FALSE. P_dvel_mco3 = 1 ; F_dvel_mco3 = .FALSE. P_dvel_mvkooh = 1 ; F_dvel_mvkooh = .FALSE. P_dvel_c2h5oh = 1 ; F_dvel_c2h5oh = .FALSE. P_dvel_etooh = 1 ; F_dvel_etooh = .FALSE. P_dvel_prooh = 1 ; F_dvel_prooh = .FALSE. P_dvel_acetp = 1 ; F_dvel_acetp = .FALSE. P_dvel_onit = 1 ; F_dvel_onit = .FALSE. P_dvel_onitr = 1 ; F_dvel_onitr = .FALSE. P_dvel_isooh = 1 ; F_dvel_isooh = .FALSE. P_dvel_acetol = 1 ; F_dvel_acetol = .FALSE. P_dvel_glyald = 1 ; F_dvel_glyald = .FALSE. P_dvel_hydrald = 1 ; F_dvel_hydrald = .FALSE. P_dvel_alkooh = 1 ; F_dvel_alkooh = .FALSE. P_dvel_mekooh = 1 ; F_dvel_mekooh = .FALSE. P_dvel_tolooh = 1 ; F_dvel_tolooh = .FALSE. P_dvel_xooh = 1 ; F_dvel_xooh = .FALSE. P_dvel_so2 = 1 ; F_dvel_so2 = .FALSE. P_dvel_so4 = 1 ; F_dvel_so4 = .FALSE. P_dvel_terpooh = 1 ; F_dvel_terpooh = .FALSE. P_dvel_cvasoax = 1 ; F_dvel_cvasoax = .FALSE. P_dvel_cvasoa1 = 1 ; F_dvel_cvasoa1 = .FALSE. P_dvel_cvasoa2 = 1 ; F_dvel_cvasoa2 = .FALSE. P_dvel_cvasoa3 = 1 ; F_dvel_cvasoa3 = .FALSE. P_dvel_cvasoa4 = 1 ; F_dvel_cvasoa4 = .FALSE. P_dvel_cvbsoax = 1 ; F_dvel_cvbsoax = .FALSE. P_dvel_cvbsoa1 = 1 ; F_dvel_cvbsoa1 = .FALSE. P_dvel_cvbsoa2 = 1 ; F_dvel_cvbsoa2 = .FALSE. P_dvel_cvbsoa3 = 1 ; F_dvel_cvbsoa3 = .FALSE. P_dvel_cvbsoa4 = 1 ; F_dvel_cvbsoa4 = .FALSE. P_ddmass_o3 = 1 ; F_ddmass_o3 = .FALSE. P_ddmass_no = 1 ; F_ddmass_no = .FALSE. P_ddmass_no2 = 1 ; F_ddmass_no2 = .FALSE. P_ddmass_nh3 = 1 ; F_ddmass_nh3 = .FALSE. P_ddmass_hno3 = 1 ; F_ddmass_hno3 = .FALSE. P_ddmass_hno4 = 1 ; F_ddmass_hno4 = .FALSE. P_ddmass_h2o2 = 1 ; F_ddmass_h2o2 = .FALSE. P_ddmass_co = 1 ; F_ddmass_co = .FALSE. P_ddmass_ch3ooh = 1 ; F_ddmass_ch3ooh = .FALSE. P_ddmass_hcho = 1 ; F_ddmass_hcho = .FALSE. P_ddmass_ch3oh = 1 ; F_ddmass_ch3oh = .FALSE. P_ddmass_eo2 = 1 ; F_ddmass_eo2 = .FALSE. P_ddmass_ald = 1 ; F_ddmass_ald = .FALSE. P_ddmass_ch3cooh = 1 ; F_ddmass_ch3cooh = .FALSE. P_ddmass_acet = 1 ; F_ddmass_acet = .FALSE. P_ddmass_mgly = 1 ; F_ddmass_mgly = .FALSE. P_ddmass_gly = 1 ; F_ddmass_gly = .FALSE. P_ddmass_paa = 1 ; F_ddmass_paa = .FALSE. P_ddmass_pooh = 1 ; F_ddmass_pooh = .FALSE. P_ddmass_pan = 1 ; F_ddmass_pan = .FALSE. P_ddmass_mpan = 1 ; F_ddmass_mpan = .FALSE. P_ddmass_mco3 = 1 ; F_ddmass_mco3 = .FALSE. P_ddmass_mvkooh = 1 ; F_ddmass_mvkooh = .FALSE. P_ddmass_c2h5oh = 1 ; F_ddmass_c2h5oh = .FALSE. P_ddmass_etooh = 1 ; F_ddmass_etooh = .FALSE. P_ddmass_prooh = 1 ; F_ddmass_prooh = .FALSE. P_ddmass_acetp = 1 ; F_ddmass_acetp = .FALSE. P_ddmass_onit = 1 ; F_ddmass_onit = .FALSE. P_ddmass_onitr = 1 ; F_ddmass_onitr = .FALSE. P_ddmass_isooh = 1 ; F_ddmass_isooh = .FALSE. P_ddmass_acetol = 1 ; F_ddmass_acetol = .FALSE. P_ddmass_glyald = 1 ; F_ddmass_glyald = .FALSE. P_ddmass_hydrald = 1 ; F_ddmass_hydrald = .FALSE. P_ddmass_alkooh = 1 ; F_ddmass_alkooh = .FALSE. P_ddmass_mekooh = 1 ; F_ddmass_mekooh = .FALSE. P_ddmass_tolooh = 1 ; F_ddmass_tolooh = .FALSE. P_ddmass_xooh = 1 ; F_ddmass_xooh = .FALSE. P_ddmass_so2 = 1 ; F_ddmass_so2 = .FALSE. P_ddmass_so4 = 1 ; F_ddmass_so4 = .FALSE. P_ddmass_terpooh = 1 ; F_ddmass_terpooh = .FALSE. P_ddmass_cvasoax = 1 ; F_ddmass_cvasoax = .FALSE. P_ddmass_cvasoa1 = 1 ; F_ddmass_cvasoa1 = .FALSE. P_ddmass_cvasoa2 = 1 ; F_ddmass_cvasoa2 = .FALSE. P_ddmass_cvasoa3 = 1 ; F_ddmass_cvasoa3 = .FALSE. P_ddmass_cvasoa4 = 1 ; F_ddmass_cvasoa4 = .FALSE. P_ddmass_cvbsoax = 1 ; F_ddmass_cvbsoax = .FALSE. P_ddmass_cvbsoa1 = 1 ; F_ddmass_cvbsoa1 = .FALSE. P_ddmass_cvbsoa2 = 1 ; F_ddmass_cvbsoa2 = .FALSE. P_ddmass_cvbsoa3 = 1 ; F_ddmass_cvbsoa3 = .FALSE. P_ddmass_cvbsoa4 = 1 ; F_ddmass_cvbsoa4 = .FALSE. P_ddmass_so4aj = 1 ; F_ddmass_so4aj = .FALSE. P_ddmass_so4ai = 1 ; F_ddmass_so4ai = .FALSE. P_ddmass_no3aj = 1 ; F_ddmass_no3aj = .FALSE. P_ddmass_no3ai = 1 ; F_ddmass_no3ai = .FALSE. P_ddmass_nh4aj = 1 ; F_ddmass_nh4aj = .FALSE. P_ddmass_nh4ai = 1 ; F_ddmass_nh4ai = .FALSE. P_ddmass_so4_a01 = 1 ; F_ddmass_so4_a01 = .FALSE. P_ddmass_no3_a01 = 1 ; F_ddmass_no3_a01 = .FALSE. P_ddmass_cl_a01 = 1 ; F_ddmass_cl_a01 = .FALSE. P_ddmass_nh4_a01 = 1 ; F_ddmass_nh4_a01 = .FALSE. P_ddmass_na_a01 = 1 ; F_ddmass_na_a01 = .FALSE. P_ddmass_oin_a01 = 1 ; F_ddmass_oin_a01 = .FALSE. P_ddmass_oc_a01 = 1 ; F_ddmass_oc_a01 = .FALSE. P_ddmass_bc_a01 = 1 ; F_ddmass_bc_a01 = .FALSE. P_ddmass_smpa_a01 = 1 ; F_ddmass_smpa_a01 = .FALSE. P_ddmass_smpbb_a01 = 1 ; F_ddmass_smpbb_a01 = .FALSE. P_ddmass_glysoa_a01 = 1 ; F_ddmass_glysoa_a01 = .FALSE. P_ddmass_biog1_c_a01 = 1 ; F_ddmass_biog1_c_a01 = .FALSE. P_ddmass_biog1_o_a01 = 1 ; F_ddmass_biog1_o_a01 = .FALSE. P_ddmass_asoax_a01 = 1 ; F_ddmass_asoax_a01 = .FALSE. P_ddmass_asoa1_a01 = 1 ; F_ddmass_asoa1_a01 = .FALSE. P_ddmass_asoa2_a01 = 1 ; F_ddmass_asoa2_a01 = .FALSE. P_ddmass_asoa3_a01 = 1 ; F_ddmass_asoa3_a01 = .FALSE. P_ddmass_asoa4_a01 = 1 ; F_ddmass_asoa4_a01 = .FALSE. P_ddmass_bsoax_a01 = 1 ; F_ddmass_bsoax_a01 = .FALSE. P_ddmass_bsoa1_a01 = 1 ; F_ddmass_bsoa1_a01 = .FALSE. P_ddmass_bsoa2_a01 = 1 ; F_ddmass_bsoa2_a01 = .FALSE. P_ddmass_bsoa3_a01 = 1 ; F_ddmass_bsoa3_a01 = .FALSE. P_ddmass_bsoa4_a01 = 1 ; F_ddmass_bsoa4_a01 = .FALSE. P_ddmass_so4_a02 = 1 ; F_ddmass_so4_a02 = .FALSE. P_ddmass_no3_a02 = 1 ; F_ddmass_no3_a02 = .FALSE. P_ddmass_cl_a02 = 1 ; F_ddmass_cl_a02 = .FALSE. P_ddmass_nh4_a02 = 1 ; F_ddmass_nh4_a02 = .FALSE. P_ddmass_na_a02 = 1 ; F_ddmass_na_a02 = .FALSE. P_ddmass_oin_a02 = 1 ; F_ddmass_oin_a02 = .FALSE. P_ddmass_oc_a02 = 1 ; F_ddmass_oc_a02 = .FALSE. P_ddmass_bc_a02 = 1 ; F_ddmass_bc_a02 = .FALSE. P_ddmass_smpa_a02 = 1 ; F_ddmass_smpa_a02 = .FALSE. P_ddmass_smpbb_a02 = 1 ; F_ddmass_smpbb_a02 = .FALSE. P_ddmass_glysoa_a02 = 1 ; F_ddmass_glysoa_a02 = .FALSE. P_ddmass_biog1_c_a02 = 1 ; F_ddmass_biog1_c_a02 = .FALSE. P_ddmass_biog1_o_a02 = 1 ; F_ddmass_biog1_o_a02 = .FALSE. P_ddmass_asoax_a02 = 1 ; F_ddmass_asoax_a02 = .FALSE. P_ddmass_asoa1_a02 = 1 ; F_ddmass_asoa1_a02 = .FALSE. P_ddmass_asoa2_a02 = 1 ; F_ddmass_asoa2_a02 = .FALSE. P_ddmass_asoa3_a02 = 1 ; F_ddmass_asoa3_a02 = .FALSE. P_ddmass_asoa4_a02 = 1 ; F_ddmass_asoa4_a02 = .FALSE. P_ddmass_bsoax_a02 = 1 ; F_ddmass_bsoax_a02 = .FALSE. P_ddmass_bsoa1_a02 = 1 ; F_ddmass_bsoa1_a02 = .FALSE. P_ddmass_bsoa2_a02 = 1 ; F_ddmass_bsoa2_a02 = .FALSE. P_ddmass_bsoa3_a02 = 1 ; F_ddmass_bsoa3_a02 = .FALSE. P_ddmass_bsoa4_a02 = 1 ; F_ddmass_bsoa4_a02 = .FALSE. P_ddmass_so4_a03 = 1 ; F_ddmass_so4_a03 = .FALSE. P_ddmass_no3_a03 = 1 ; F_ddmass_no3_a03 = .FALSE. P_ddmass_cl_a03 = 1 ; F_ddmass_cl_a03 = .FALSE. P_ddmass_nh4_a03 = 1 ; F_ddmass_nh4_a03 = .FALSE. P_ddmass_na_a03 = 1 ; F_ddmass_na_a03 = .FALSE. P_ddmass_oin_a03 = 1 ; F_ddmass_oin_a03 = .FALSE. P_ddmass_oc_a03 = 1 ; F_ddmass_oc_a03 = .FALSE. P_ddmass_bc_a03 = 1 ; F_ddmass_bc_a03 = .FALSE. P_ddmass_smpa_a03 = 1 ; F_ddmass_smpa_a03 = .FALSE. P_ddmass_smpbb_a03 = 1 ; F_ddmass_smpbb_a03 = .FALSE. P_ddmass_glysoa_a03 = 1 ; F_ddmass_glysoa_a03 = .FALSE. P_ddmass_biog1_c_a03 = 1 ; F_ddmass_biog1_c_a03 = .FALSE. P_ddmass_biog1_o_a03 = 1 ; F_ddmass_biog1_o_a03 = .FALSE. P_ddmass_asoax_a03 = 1 ; F_ddmass_asoax_a03 = .FALSE. P_ddmass_asoa1_a03 = 1 ; F_ddmass_asoa1_a03 = .FALSE. P_ddmass_asoa2_a03 = 1 ; F_ddmass_asoa2_a03 = .FALSE. P_ddmass_asoa3_a03 = 1 ; F_ddmass_asoa3_a03 = .FALSE. P_ddmass_asoa4_a03 = 1 ; F_ddmass_asoa4_a03 = .FALSE. P_ddmass_bsoax_a03 = 1 ; F_ddmass_bsoax_a03 = .FALSE. P_ddmass_bsoa1_a03 = 1 ; F_ddmass_bsoa1_a03 = .FALSE. P_ddmass_bsoa2_a03 = 1 ; F_ddmass_bsoa2_a03 = .FALSE. P_ddmass_bsoa3_a03 = 1 ; F_ddmass_bsoa3_a03 = .FALSE. P_ddmass_bsoa4_a03 = 1 ; F_ddmass_bsoa4_a03 = .FALSE. P_ddmass_so4_a04 = 1 ; F_ddmass_so4_a04 = .FALSE. P_ddmass_no3_a04 = 1 ; F_ddmass_no3_a04 = .FALSE. P_ddmass_cl_a04 = 1 ; F_ddmass_cl_a04 = .FALSE. P_ddmass_nh4_a04 = 1 ; F_ddmass_nh4_a04 = .FALSE. P_ddmass_na_a04 = 1 ; F_ddmass_na_a04 = .FALSE. P_ddmass_oin_a04 = 1 ; F_ddmass_oin_a04 = .FALSE. P_ddmass_oc_a04 = 1 ; F_ddmass_oc_a04 = .FALSE. P_ddmass_bc_a04 = 1 ; F_ddmass_bc_a04 = .FALSE. P_ddmass_smpa_a04 = 1 ; F_ddmass_smpa_a04 = .FALSE. P_ddmass_smpbb_a04 = 1 ; F_ddmass_smpbb_a04 = .FALSE. P_ddmass_glysoa_a04 = 1 ; F_ddmass_glysoa_a04 = .FALSE. P_ddmass_biog1_c_a04 = 1 ; F_ddmass_biog1_c_a04 = .FALSE. P_ddmass_biog1_o_a04 = 1 ; F_ddmass_biog1_o_a04 = .FALSE. P_ddmass_asoax_a04 = 1 ; F_ddmass_asoax_a04 = .FALSE. P_ddmass_asoa1_a04 = 1 ; F_ddmass_asoa1_a04 = .FALSE. P_ddmass_asoa2_a04 = 1 ; F_ddmass_asoa2_a04 = .FALSE. P_ddmass_asoa3_a04 = 1 ; F_ddmass_asoa3_a04 = .FALSE. P_ddmass_asoa4_a04 = 1 ; F_ddmass_asoa4_a04 = .FALSE. P_ddmass_bsoax_a04 = 1 ; F_ddmass_bsoax_a04 = .FALSE. P_ddmass_bsoa1_a04 = 1 ; F_ddmass_bsoa1_a04 = .FALSE. P_ddmass_bsoa2_a04 = 1 ; F_ddmass_bsoa2_a04 = .FALSE. P_ddmass_bsoa3_a04 = 1 ; F_ddmass_bsoa3_a04 = .FALSE. P_ddmass_bsoa4_a04 = 1 ; F_ddmass_bsoa4_a04 = .FALSE. P_ddmass_ca_a01 = 1 ; F_ddmass_ca_a01 = .FALSE. P_ddmass_ca_a02 = 1 ; F_ddmass_ca_a02 = .FALSE. P_ddmass_ca_a03 = 1 ; F_ddmass_ca_a03 = .FALSE. P_ddmass_ca_a04 = 1 ; F_ddmass_ca_a04 = .FALSE. P_ddmass_co3_a01 = 1 ; F_ddmass_co3_a01 = .FALSE. P_ddmass_co3_a02 = 1 ; F_ddmass_co3_a02 = .FALSE. P_ddmass_co3_a03 = 1 ; F_ddmass_co3_a03 = .FALSE. P_ddmass_co3_a04 = 1 ; F_ddmass_co3_a04 = .FALSE. P_ddmass_so4_cw01 = 1 ; F_ddmass_so4_cw01 = .FALSE. P_ddmass_no3_cw01 = 1 ; F_ddmass_no3_cw01 = .FALSE. P_ddmass_cl_cw01 = 1 ; F_ddmass_cl_cw01 = .FALSE. P_ddmass_nh4_cw01 = 1 ; F_ddmass_nh4_cw01 = .FALSE. P_ddmass_na_cw01 = 1 ; F_ddmass_na_cw01 = .FALSE. P_ddmass_oin_cw01 = 1 ; F_ddmass_oin_cw01 = .FALSE. P_ddmass_oc_cw01 = 1 ; F_ddmass_oc_cw01 = .FALSE. P_ddmass_bc_cw01 = 1 ; F_ddmass_bc_cw01 = .FALSE. P_ddmass_smpa_cw01 = 1 ; F_ddmass_smpa_cw01 = .FALSE. P_ddmass_smpbb_cw01 = 1 ; F_ddmass_smpbb_cw01 = .FALSE. P_ddmass_glysoa_cw01 = 1 ; F_ddmass_glysoa_cw01 = .FALSE. P_ddmass_biog1_c_cw01 = 1 ; F_ddmass_biog1_c_cw01 = .FALSE. P_ddmass_biog1_o_cw01 = 1 ; F_ddmass_biog1_o_cw01 = .FALSE. P_ddmass_asoax_cw01 = 1 ; F_ddmass_asoax_cw01 = .FALSE. P_ddmass_asoa1_cw01 = 1 ; F_ddmass_asoa1_cw01 = .FALSE. P_ddmass_asoa2_cw01 = 1 ; F_ddmass_asoa2_cw01 = .FALSE. P_ddmass_asoa3_cw01 = 1 ; F_ddmass_asoa3_cw01 = .FALSE. P_ddmass_asoa4_cw01 = 1 ; F_ddmass_asoa4_cw01 = .FALSE. P_ddmass_bsoax_cw01 = 1 ; F_ddmass_bsoax_cw01 = .FALSE. P_ddmass_bsoa1_cw01 = 1 ; F_ddmass_bsoa1_cw01 = .FALSE. P_ddmass_bsoa2_cw01 = 1 ; F_ddmass_bsoa2_cw01 = .FALSE. P_ddmass_bsoa3_cw01 = 1 ; F_ddmass_bsoa3_cw01 = .FALSE. P_ddmass_bsoa4_cw01 = 1 ; F_ddmass_bsoa4_cw01 = .FALSE. P_ddmass_so4_cw02 = 1 ; F_ddmass_so4_cw02 = .FALSE. P_ddmass_no3_cw02 = 1 ; F_ddmass_no3_cw02 = .FALSE. P_ddmass_cl_cw02 = 1 ; F_ddmass_cl_cw02 = .FALSE. P_ddmass_nh4_cw02 = 1 ; F_ddmass_nh4_cw02 = .FALSE. P_ddmass_na_cw02 = 1 ; F_ddmass_na_cw02 = .FALSE. P_ddmass_oin_cw02 = 1 ; F_ddmass_oin_cw02 = .FALSE. P_ddmass_oc_cw02 = 1 ; F_ddmass_oc_cw02 = .FALSE. P_ddmass_bc_cw02 = 1 ; F_ddmass_bc_cw02 = .FALSE. P_ddmass_smpa_cw02 = 1 ; F_ddmass_smpa_cw02 = .FALSE. P_ddmass_smpbb_cw02 = 1 ; F_ddmass_smpbb_cw02 = .FALSE. P_ddmass_glysoa_cw02 = 1 ; F_ddmass_glysoa_cw02 = .FALSE. P_ddmass_biog1_c_cw02 = 1 ; F_ddmass_biog1_c_cw02 = .FALSE. P_ddmass_biog1_o_cw02 = 1 ; F_ddmass_biog1_o_cw02 = .FALSE. P_ddmass_asoax_cw02 = 1 ; F_ddmass_asoax_cw02 = .FALSE. P_ddmass_asoa1_cw02 = 1 ; F_ddmass_asoa1_cw02 = .FALSE. P_ddmass_asoa2_cw02 = 1 ; F_ddmass_asoa2_cw02 = .FALSE. P_ddmass_asoa3_cw02 = 1 ; F_ddmass_asoa3_cw02 = .FALSE. P_ddmass_asoa4_cw02 = 1 ; F_ddmass_asoa4_cw02 = .FALSE. P_ddmass_bsoax_cw02 = 1 ; F_ddmass_bsoax_cw02 = .FALSE. P_ddmass_bsoa1_cw02 = 1 ; F_ddmass_bsoa1_cw02 = .FALSE. P_ddmass_bsoa2_cw02 = 1 ; F_ddmass_bsoa2_cw02 = .FALSE. P_ddmass_bsoa3_cw02 = 1 ; F_ddmass_bsoa3_cw02 = .FALSE. P_ddmass_bsoa4_cw02 = 1 ; F_ddmass_bsoa4_cw02 = .FALSE. P_ddmass_so4_cw03 = 1 ; F_ddmass_so4_cw03 = .FALSE. P_ddmass_no3_cw03 = 1 ; F_ddmass_no3_cw03 = .FALSE. P_ddmass_cl_cw03 = 1 ; F_ddmass_cl_cw03 = .FALSE. P_ddmass_nh4_cw03 = 1 ; F_ddmass_nh4_cw03 = .FALSE. P_ddmass_na_cw03 = 1 ; F_ddmass_na_cw03 = .FALSE. P_ddmass_oin_cw03 = 1 ; F_ddmass_oin_cw03 = .FALSE. P_ddmass_oc_cw03 = 1 ; F_ddmass_oc_cw03 = .FALSE. P_ddmass_bc_cw03 = 1 ; F_ddmass_bc_cw03 = .FALSE. P_ddmass_smpa_cw03 = 1 ; F_ddmass_smpa_cw03 = .FALSE. P_ddmass_smpbb_cw03 = 1 ; F_ddmass_smpbb_cw03 = .FALSE. P_ddmass_glysoa_cw03 = 1 ; F_ddmass_glysoa_cw03 = .FALSE. P_ddmass_biog1_c_cw03 = 1 ; F_ddmass_biog1_c_cw03 = .FALSE. P_ddmass_biog1_o_cw03 = 1 ; F_ddmass_biog1_o_cw03 = .FALSE. P_ddmass_asoax_cw03 = 1 ; F_ddmass_asoax_cw03 = .FALSE. P_ddmass_asoa1_cw03 = 1 ; F_ddmass_asoa1_cw03 = .FALSE. P_ddmass_asoa2_cw03 = 1 ; F_ddmass_asoa2_cw03 = .FALSE. P_ddmass_asoa3_cw03 = 1 ; F_ddmass_asoa3_cw03 = .FALSE. P_ddmass_asoa4_cw03 = 1 ; F_ddmass_asoa4_cw03 = .FALSE. P_ddmass_bsoax_cw03 = 1 ; F_ddmass_bsoax_cw03 = .FALSE. P_ddmass_bsoa1_cw03 = 1 ; F_ddmass_bsoa1_cw03 = .FALSE. P_ddmass_bsoa2_cw03 = 1 ; F_ddmass_bsoa2_cw03 = .FALSE. P_ddmass_bsoa3_cw03 = 1 ; F_ddmass_bsoa3_cw03 = .FALSE. P_ddmass_bsoa4_cw03 = 1 ; F_ddmass_bsoa4_cw03 = .FALSE. P_ddmass_so4_cw04 = 1 ; F_ddmass_so4_cw04 = .FALSE. P_ddmass_no3_cw04 = 1 ; F_ddmass_no3_cw04 = .FALSE. P_ddmass_cl_cw04 = 1 ; F_ddmass_cl_cw04 = .FALSE. P_ddmass_nh4_cw04 = 1 ; F_ddmass_nh4_cw04 = .FALSE. P_ddmass_na_cw04 = 1 ; F_ddmass_na_cw04 = .FALSE. P_ddmass_oin_cw04 = 1 ; F_ddmass_oin_cw04 = .FALSE. P_ddmass_oc_cw04 = 1 ; F_ddmass_oc_cw04 = .FALSE. P_ddmass_bc_cw04 = 1 ; F_ddmass_bc_cw04 = .FALSE. P_ddmass_smpa_cw04 = 1 ; F_ddmass_smpa_cw04 = .FALSE. P_ddmass_smpbb_cw04 = 1 ; F_ddmass_smpbb_cw04 = .FALSE. P_ddmass_glysoa_cw04 = 1 ; F_ddmass_glysoa_cw04 = .FALSE. P_ddmass_biog1_c_cw04 = 1 ; F_ddmass_biog1_c_cw04 = .FALSE. P_ddmass_biog1_o_cw04 = 1 ; F_ddmass_biog1_o_cw04 = .FALSE. P_ddmass_asoax_cw04 = 1 ; F_ddmass_asoax_cw04 = .FALSE. P_ddmass_asoa1_cw04 = 1 ; F_ddmass_asoa1_cw04 = .FALSE. P_ddmass_asoa2_cw04 = 1 ; F_ddmass_asoa2_cw04 = .FALSE. P_ddmass_asoa3_cw04 = 1 ; F_ddmass_asoa3_cw04 = .FALSE. P_ddmass_asoa4_cw04 = 1 ; F_ddmass_asoa4_cw04 = .FALSE. P_ddmass_bsoax_cw04 = 1 ; F_ddmass_bsoax_cw04 = .FALSE. P_ddmass_bsoa1_cw04 = 1 ; F_ddmass_bsoa1_cw04 = .FALSE. P_ddmass_bsoa2_cw04 = 1 ; F_ddmass_bsoa2_cw04 = .FALSE. P_ddmass_bsoa3_cw04 = 1 ; F_ddmass_bsoa3_cw04 = .FALSE. P_ddmass_bsoa4_cw04 = 1 ; F_ddmass_bsoa4_cw04 = .FALSE. P_ddmass_ca_cw01 = 1 ; F_ddmass_ca_cw01 = .FALSE. P_ddmass_ca_cw02 = 1 ; F_ddmass_ca_cw02 = .FALSE. P_ddmass_ca_cw03 = 1 ; F_ddmass_ca_cw03 = .FALSE. P_ddmass_ca_cw04 = 1 ; F_ddmass_ca_cw04 = .FALSE. P_ddmass_co3_cw01 = 1 ; F_ddmass_co3_cw01 = .FALSE. P_ddmass_co3_cw02 = 1 ; F_ddmass_co3_cw02 = .FALSE. P_ddmass_co3_cw03 = 1 ; F_ddmass_co3_cw03 = .FALSE. P_ddmass_co3_cw04 = 1 ; F_ddmass_co3_cw04 = .FALSE. P_vegfra_vprm = 1 ; F_vegfra_vprm = .FALSE. P_evi = 1 ; F_evi = .FALSE. P_evi_min = 1 ; F_evi_min = .FALSE. P_evi_max = 1 ; F_evi_max = .FALSE. P_lswi = 1 ; F_lswi = .FALSE. P_lswi_max = 1 ; F_lswi_max = .FALSE. P_lswi_min = 1 ; F_lswi_min = .FALSE. P_cpool = 1 ; F_cpool = .FALSE. P_wetmap = 1 ; F_wetmap = .FALSE. P_t_ann = 1 ; F_t_ann = .FALSE. P_so2 = 1 ; F_so2 = .FALSE. P_sulf = 1 ; F_sulf = .FALSE. P_no2 = 1 ; F_no2 = .FALSE. P_no = 1 ; F_no = .FALSE. P_o3 = 1 ; F_o3 = .FALSE. P_hno3 = 1 ; F_hno3 = .FALSE. P_h2o2 = 1 ; F_h2o2 = .FALSE. P_ald = 1 ; F_ald = .FALSE. P_hcho = 1 ; F_hcho = .FALSE. P_op1 = 1 ; F_op1 = .FALSE. P_op2 = 1 ; F_op2 = .FALSE. P_paa = 1 ; F_paa = .FALSE. P_ora1 = 1 ; F_ora1 = .FALSE. P_ora2 = 1 ; F_ora2 = .FALSE. P_nh3 = 1 ; F_nh3 = .FALSE. P_n2o5 = 1 ; F_n2o5 = .FALSE. P_no3 = 1 ; F_no3 = .FALSE. P_pan = 1 ; F_pan = .FALSE. P_hc3 = 1 ; F_hc3 = .FALSE. P_hc5 = 1 ; F_hc5 = .FALSE. P_hc8 = 1 ; F_hc8 = .FALSE. P_eth = 1 ; F_eth = .FALSE. P_co = 1 ; F_co = .FALSE. P_ol2 = 1 ; F_ol2 = .FALSE. P_olt = 1 ; F_olt = .FALSE. P_oli = 1 ; F_oli = .FALSE. P_tol = 1 ; F_tol = .FALSE. P_xyl = 1 ; F_xyl = .FALSE. P_aco3 = 1 ; F_aco3 = .FALSE. P_tpan = 1 ; F_tpan = .FALSE. P_hono = 1 ; F_hono = .FALSE. P_hno4 = 1 ; F_hno4 = .FALSE. P_ket = 1 ; F_ket = .FALSE. P_gly = 1 ; F_gly = .FALSE. P_mgly = 1 ; F_mgly = .FALSE. P_dcb = 1 ; F_dcb = .FALSE. P_onit = 1 ; F_onit = .FALSE. P_csl = 1 ; F_csl = .FALSE. P_iso = 1 ; F_iso = .FALSE. P_hcl = 1 ; F_hcl = .FALSE. P_ho = 1 ; F_ho = .FALSE. P_ho2 = 1 ; F_ho2 = .FALSE. P_aro1 = 1 ; F_aro1 = .FALSE. P_aro2 = 1 ; F_aro2 = .FALSE. P_alk1 = 1 ; F_alk1 = .FALSE. P_ole1 = 1 ; F_ole1 = .FALSE. P_api1 = 1 ; F_api1 = .FALSE. P_api2 = 1 ; F_api2 = .FALSE. P_lim1 = 1 ; F_lim1 = .FALSE. P_lim2 = 1 ; F_lim2 = .FALSE. P_psd1 = 1 ; F_psd1 = .FALSE. P_psd2 = 1 ; F_psd2 = .FALSE. P_nume = 1 ; F_nume = .FALSE. P_den = 1 ; F_den = .FALSE. P_bgas = 1 ; F_bgas = .FALSE. P_agas = 1 ; F_agas = .FALSE. P_pcg1_b_c = 1 ; F_pcg1_b_c = .FALSE. P_pcg2_b_c = 1 ; F_pcg2_b_c = .FALSE. P_pcg3_b_c = 1 ; F_pcg3_b_c = .FALSE. P_pcg4_b_c = 1 ; F_pcg4_b_c = .FALSE. P_pcg5_b_c = 1 ; F_pcg5_b_c = .FALSE. P_pcg6_b_c = 1 ; F_pcg6_b_c = .FALSE. P_pcg7_b_c = 1 ; F_pcg7_b_c = .FALSE. P_pcg8_b_c = 1 ; F_pcg8_b_c = .FALSE. P_pcg9_b_c = 1 ; F_pcg9_b_c = .FALSE. P_pcg1_b_o = 1 ; F_pcg1_b_o = .FALSE. P_pcg2_b_o = 1 ; F_pcg2_b_o = .FALSE. P_pcg3_b_o = 1 ; F_pcg3_b_o = .FALSE. P_pcg4_b_o = 1 ; F_pcg4_b_o = .FALSE. P_pcg5_b_o = 1 ; F_pcg5_b_o = .FALSE. P_pcg6_b_o = 1 ; F_pcg6_b_o = .FALSE. P_pcg7_b_o = 1 ; F_pcg7_b_o = .FALSE. P_pcg8_b_o = 1 ; F_pcg8_b_o = .FALSE. P_pcg9_b_o = 1 ; F_pcg9_b_o = .FALSE. P_pcg1_f_c = 1 ; F_pcg1_f_c = .FALSE. P_pcg2_f_c = 1 ; F_pcg2_f_c = .FALSE. P_pcg3_f_c = 1 ; F_pcg3_f_c = .FALSE. P_pcg4_f_c = 1 ; F_pcg4_f_c = .FALSE. P_pcg5_f_c = 1 ; F_pcg5_f_c = .FALSE. P_pcg6_f_c = 1 ; F_pcg6_f_c = .FALSE. P_pcg7_f_c = 1 ; F_pcg7_f_c = .FALSE. P_pcg8_f_c = 1 ; F_pcg8_f_c = .FALSE. P_pcg9_f_c = 1 ; F_pcg9_f_c = .FALSE. P_pcg1_f_o = 1 ; F_pcg1_f_o = .FALSE. P_pcg2_f_o = 1 ; F_pcg2_f_o = .FALSE. P_pcg3_f_o = 1 ; F_pcg3_f_o = .FALSE. P_pcg4_f_o = 1 ; F_pcg4_f_o = .FALSE. P_pcg5_f_o = 1 ; F_pcg5_f_o = .FALSE. P_pcg6_f_o = 1 ; F_pcg6_f_o = .FALSE. P_pcg7_f_o = 1 ; F_pcg7_f_o = .FALSE. P_pcg8_f_o = 1 ; F_pcg8_f_o = .FALSE. P_pcg9_f_o = 1 ; F_pcg9_f_o = .FALSE. P_opcg1_b_c = 1 ; F_opcg1_b_c = .FALSE. P_opcg2_b_c = 1 ; F_opcg2_b_c = .FALSE. P_opcg3_b_c = 1 ; F_opcg3_b_c = .FALSE. P_opcg4_b_c = 1 ; F_opcg4_b_c = .FALSE. P_opcg5_b_c = 1 ; F_opcg5_b_c = .FALSE. P_opcg6_b_c = 1 ; F_opcg6_b_c = .FALSE. P_opcg7_b_c = 1 ; F_opcg7_b_c = .FALSE. P_opcg8_b_c = 1 ; F_opcg8_b_c = .FALSE. P_opcg1_b_o = 1 ; F_opcg1_b_o = .FALSE. P_opcg2_b_o = 1 ; F_opcg2_b_o = .FALSE. P_opcg3_b_o = 1 ; F_opcg3_b_o = .FALSE. P_opcg4_b_o = 1 ; F_opcg4_b_o = .FALSE. P_opcg5_b_o = 1 ; F_opcg5_b_o = .FALSE. P_opcg6_b_o = 1 ; F_opcg6_b_o = .FALSE. P_opcg7_b_o = 1 ; F_opcg7_b_o = .FALSE. P_opcg8_b_o = 1 ; F_opcg8_b_o = .FALSE. P_opcg1_f_c = 1 ; F_opcg1_f_c = .FALSE. P_opcg2_f_c = 1 ; F_opcg2_f_c = .FALSE. P_opcg3_f_c = 1 ; F_opcg3_f_c = .FALSE. P_opcg4_f_c = 1 ; F_opcg4_f_c = .FALSE. P_opcg5_f_c = 1 ; F_opcg5_f_c = .FALSE. P_opcg6_f_c = 1 ; F_opcg6_f_c = .FALSE. P_opcg7_f_c = 1 ; F_opcg7_f_c = .FALSE. P_opcg8_f_c = 1 ; F_opcg8_f_c = .FALSE. P_opcg1_f_o = 1 ; F_opcg1_f_o = .FALSE. P_opcg2_f_o = 1 ; F_opcg2_f_o = .FALSE. P_opcg3_f_o = 1 ; F_opcg3_f_o = .FALSE. P_opcg4_f_o = 1 ; F_opcg4_f_o = .FALSE. P_opcg5_f_o = 1 ; F_opcg5_f_o = .FALSE. P_opcg6_f_o = 1 ; F_opcg6_f_o = .FALSE. P_opcg7_f_o = 1 ; F_opcg7_f_o = .FALSE. P_opcg8_f_o = 1 ; F_opcg8_f_o = .FALSE. P_ant1_c = 1 ; F_ant1_c = .FALSE. P_ant2_c = 1 ; F_ant2_c = .FALSE. P_ant3_c = 1 ; F_ant3_c = .FALSE. P_ant4_c = 1 ; F_ant4_c = .FALSE. P_ant1_o = 1 ; F_ant1_o = .FALSE. P_ant2_o = 1 ; F_ant2_o = .FALSE. P_ant3_o = 1 ; F_ant3_o = .FALSE. P_ant4_o = 1 ; F_ant4_o = .FALSE. P_biog1_c = 1 ; F_biog1_c = .FALSE. P_biog2_c = 1 ; F_biog2_c = .FALSE. P_biog3_c = 1 ; F_biog3_c = .FALSE. P_biog4_c = 1 ; F_biog4_c = .FALSE. P_biog1_o = 1 ; F_biog1_o = .FALSE. P_biog2_o = 1 ; F_biog2_o = .FALSE. P_biog3_o = 1 ; F_biog3_o = .FALSE. P_biog4_o = 1 ; F_biog4_o = .FALSE. P_smpa = 1 ; F_smpa = .FALSE. P_smpbb = 1 ; F_smpbb = .FALSE. P_ete = 1 ; F_ete = .FALSE. P_co2 = 1 ; F_co2 = .FALSE. P_ch4 = 1 ; F_ch4 = .FALSE. P_udd = 1 ; F_udd = .FALSE. P_hket = 1 ; F_hket = .FALSE. P_api = 1 ; F_api = .FALSE. P_lim = 1 ; F_lim = .FALSE. P_dien = 1 ; F_dien = .FALSE. P_macr = 1 ; F_macr = .FALSE. P_mbo = 1 ; F_mbo = .FALSE. P_cvasoax = 1 ; F_cvasoax = .FALSE. P_cvasoa1 = 1 ; F_cvasoa1 = .FALSE. P_cvasoa2 = 1 ; F_cvasoa2 = .FALSE. P_cvasoa3 = 1 ; F_cvasoa3 = .FALSE. P_cvasoa4 = 1 ; F_cvasoa4 = .FALSE. P_cvbsoax = 1 ; F_cvbsoax = .FALSE. P_cvbsoa1 = 1 ; F_cvbsoa1 = .FALSE. P_cvbsoa2 = 1 ; F_cvbsoa2 = .FALSE. P_cvbsoa3 = 1 ; F_cvbsoa3 = .FALSE. P_cvbsoa4 = 1 ; F_cvbsoa4 = .FALSE. P_ch3o2 = 1 ; F_ch3o2 = .FALSE. P_ethp = 1 ; F_ethp = .FALSE. P_ch3oh = 1 ; F_ch3oh = .FALSE. P_c2h5oh = 1 ; F_c2h5oh = .FALSE. P_par = 1 ; F_par = .FALSE. P_to2 = 1 ; F_to2 = .FALSE. P_cro = 1 ; F_cro = .FALSE. P_open = 1 ; F_open = .FALSE. P_op3 = 1 ; F_op3 = .FALSE. P_c2o3 = 1 ; F_c2o3 = .FALSE. P_ro2 = 1 ; F_ro2 = .FALSE. P_ano2 = 1 ; F_ano2 = .FALSE. P_nap = 1 ; F_nap = .FALSE. P_xo2 = 1 ; F_xo2 = .FALSE. P_xpar = 1 ; F_xpar = .FALSE. P_isoprd = 1 ; F_isoprd = .FALSE. P_isopp = 1 ; F_isopp = .FALSE. P_isopn = 1 ; F_isopn = .FALSE. P_isopo2 = 1 ; F_isopo2 = .FALSE. P_dms = 1 ; F_dms = .FALSE. P_msa = 1 ; F_msa = .FALSE. P_dmso = 1 ; F_dmso = .FALSE. P_dmso2 = 1 ; F_dmso2 = .FALSE. P_ch3so2h = 1 ; F_ch3so2h = .FALSE. P_ch3sch2oo = 1 ; F_ch3sch2oo = .FALSE. P_ch3so2 = 1 ; F_ch3so2 = .FALSE. P_ch3so3 = 1 ; F_ch3so3 = .FALSE. P_ch3so2oo = 1 ; F_ch3so2oo = .FALSE. P_ch3so2ch2oo = 1 ; F_ch3so2ch2oo = .FALSE. P_mtf = 1 ; F_mtf = .FALSE. P_ald2 = 1 ; F_ald2 = .FALSE. P_ror = 1 ; F_ror = .FALSE. P_ole = 1 ; F_ole = .FALSE. P_cres = 1 ; F_cres = .FALSE. P_xo2n = 1 ; F_xo2n = .FALSE. P_pna = 1 ; F_pna = .FALSE. P_o = 1 ; F_o = .FALSE. P_o1d_cb4 = 1 ; F_o1d_cb4 = .FALSE. P_n2o = 1 ; F_n2o = .FALSE. P_ch3ooh = 1 ; F_ch3ooh = .FALSE. P_h2 = 1 ; F_h2 = .FALSE. P_so4 = 1 ; F_so4 = .FALSE. P_eo2 = 1 ; F_eo2 = .FALSE. P_mco3 = 1 ; F_mco3 = .FALSE. P_xooh = 1 ; F_xooh = .FALSE. P_onitr = 1 ; F_onitr = .FALSE. P_glyald = 1 ; F_glyald = .FALSE. P_alkooh = 1 ; F_alkooh = .FALSE. P_tolooh = 1 ; F_tolooh = .FALSE. P_terpooh = 1 ; F_terpooh = .FALSE. P_nh4 = 1 ; F_nh4 = .FALSE. P_eo = 1 ; F_eo = .FALSE. P_po2 = 1 ; F_po2 = .FALSE. P_bigene = 1 ; F_bigene = .FALSE. P_bigalk = 1 ; F_bigalk = .FALSE. P_eneo2 = 1 ; F_eneo2 = .FALSE. P_alko2 = 1 ; F_alko2 = .FALSE. P_hydrald = 1 ; F_hydrald = .FALSE. P_c10h16 = 1 ; F_c10h16 = .FALSE. P_terpo2 = 1 ; F_terpo2 = .FALSE. P_tolo2 = 1 ; F_tolo2 = .FALSE. P_xoh = 1 ; F_xoh = .FALSE. P_hoch2oo = 1 ; F_hoch2oo = .FALSE. P_bepomuc = 1 ; F_bepomuc = .FALSE. P_benzo2 = 1 ; F_benzo2 = .FALSE. P_pheno2 = 1 ; F_pheno2 = .FALSE. P_pheno = 1 ; F_pheno = .FALSE. P_phenooh = 1 ; F_phenooh = .FALSE. P_c6h5o2 = 1 ; F_c6h5o2 = .FALSE. P_c6h5ooh = 1 ; F_c6h5ooh = .FALSE. P_benzooh = 1 ; F_benzooh = .FALSE. P_bigald1 = 1 ; F_bigald1 = .FALSE. P_bigald2 = 1 ; F_bigald2 = .FALSE. P_bigald3 = 1 ; F_bigald3 = .FALSE. P_bigald4 = 1 ; F_bigald4 = .FALSE. P_malo2 = 1 ; F_malo2 = .FALSE. P_tepomuc = 1 ; F_tepomuc = .FALSE. P_bzoo = 1 ; F_bzoo = .FALSE. P_bzooh = 1 ; F_bzooh = .FALSE. P_acbzo2 = 1 ; F_acbzo2 = .FALSE. P_dicarbo2 = 1 ; F_dicarbo2 = .FALSE. P_mdialo2 = 1 ; F_mdialo2 = .FALSE. P_xylenes = 1 ; F_xylenes = .FALSE. P_xylol = 1 ; F_xylol = .FALSE. P_xylolo2 = 1 ; F_xylolo2 = .FALSE. P_xylolooh = 1 ; F_xylolooh = .FALSE. P_xyleno2 = 1 ; F_xyleno2 = .FALSE. P_xylenooh = 1 ; F_xylenooh = .FALSE. P_pbznit = 1 ; F_pbznit = .FALSE. P_mboo2 = 1 ; F_mboo2 = .FALSE. P_hmprop = 1 ; F_hmprop = .FALSE. P_hmpropo2 = 1 ; F_hmpropo2 = .FALSE. P_mboooh = 1 ; F_mboooh = .FALSE. P_mbono3o2 = 1 ; F_mbono3o2 = .FALSE. P_apin = 1 ; F_apin = .FALSE. P_bpin = 1 ; F_bpin = .FALSE. P_limon = 1 ; F_limon = .FALSE. P_myrc = 1 ; F_myrc = .FALSE. P_bcary = 1 ; F_bcary = .FALSE. P_terprod1 = 1 ; F_terprod1 = .FALSE. P_terprod2 = 1 ; F_terprod2 = .FALSE. P_terp2o2 = 1 ; F_terp2o2 = .FALSE. P_terp2ooh = 1 ; F_terp2ooh = .FALSE. P_nterpo2 = 1 ; F_nterpo2 = .FALSE. P_vash_1 = 1 ; F_vash_1 = .FALSE. P_vash_2 = 1 ; F_vash_2 = .FALSE. P_vash_3 = 1 ; F_vash_3 = .FALSE. P_vash_4 = 1 ; F_vash_4 = .FALSE. P_vash_5 = 1 ; F_vash_5 = .FALSE. P_vash_6 = 1 ; F_vash_6 = .FALSE. P_vash_7 = 1 ; F_vash_7 = .FALSE. P_vash_8 = 1 ; F_vash_8 = .FALSE. P_vash_9 = 1 ; F_vash_9 = .FALSE. P_vash_10 = 1 ; F_vash_10 = .FALSE. P_hso3 = 1 ; F_hso3 = .FALSE. P_so3 = 1 ; F_so3 = .FALSE. P_nc4h10 = 1 ; F_nc4h10 = .FALSE. P_benzene = 1 ; F_benzene = .FALSE. P_oxyl = 1 ; F_oxyl = .FALSE. P_npropol = 1 ; F_npropol = .FALSE. P_tbut2ene = 1 ; F_tbut2ene = .FALSE. P_c2h5cho = 1 ; F_c2h5cho = .FALSE. P_ch3co2h = 1 ; F_ch3co2h = .FALSE. P_ic3h7no3 = 1 ; F_ic3h7no3 = .FALSE. P_ipropol = 1 ; F_ipropol = .FALSE. P_ch3no3 = 1 ; F_ch3no3 = .FALSE. P_c2h5no3 = 1 ; F_c2h5no3 = .FALSE. P_hoc2h4no3 = 1 ; F_hoc2h4no3 = .FALSE. P_hoc2h4ooh = 1 ; F_hoc2h4ooh = .FALSE. P_carb14 = 1 ; F_carb14 = .FALSE. P_carb17 = 1 ; F_carb17 = .FALSE. P_rn10no3 = 1 ; F_rn10no3 = .FALSE. P_rn13no3 = 1 ; F_rn13no3 = .FALSE. P_rn19no3 = 1 ; F_rn19no3 = .FALSE. P_rn9no3 = 1 ; F_rn9no3 = .FALSE. P_rn12no3 = 1 ; F_rn12no3 = .FALSE. P_rn15no3 = 1 ; F_rn15no3 = .FALSE. P_rn18no3 = 1 ; F_rn18no3 = .FALSE. P_rn16no3 = 1 ; F_rn16no3 = .FALSE. P_rn10ooh = 1 ; F_rn10ooh = .FALSE. P_rn13ooh = 1 ; F_rn13ooh = .FALSE. P_rn16ooh = 1 ; F_rn16ooh = .FALSE. P_rn19ooh = 1 ; F_rn19ooh = .FALSE. P_rn8ooh = 1 ; F_rn8ooh = .FALSE. P_rn11ooh = 1 ; F_rn11ooh = .FALSE. P_rn14ooh = 1 ; F_rn14ooh = .FALSE. P_rn17ooh = 1 ; F_rn17ooh = .FALSE. P_rn9ooh = 1 ; F_rn9ooh = .FALSE. P_rn12ooh = 1 ; F_rn12ooh = .FALSE. P_rn15ooh = 1 ; F_rn15ooh = .FALSE. P_rn18ooh = 1 ; F_rn18ooh = .FALSE. P_nrn6ooh = 1 ; F_nrn6ooh = .FALSE. P_nrn9ooh = 1 ; F_nrn9ooh = .FALSE. P_nrn12ooh = 1 ; F_nrn12ooh = .FALSE. P_apinene = 1 ; F_apinene = .FALSE. P_bpinene = 1 ; F_bpinene = .FALSE. P_carb7 = 1 ; F_carb7 = .FALSE. P_carb10 = 1 ; F_carb10 = .FALSE. P_carb13 = 1 ; F_carb13 = .FALSE. P_carb16 = 1 ; F_carb16 = .FALSE. P_carb3 = 1 ; F_carb3 = .FALSE. P_carb6 = 1 ; F_carb6 = .FALSE. P_carb9 = 1 ; F_carb9 = .FALSE. P_carb12 = 1 ; F_carb12 = .FALSE. P_carb15 = 1 ; F_carb15 = .FALSE. P_c2h5co3h = 1 ; F_c2h5co3h = .FALSE. P_c2h5co3 = 1 ; F_c2h5co3 = .FALSE. P_ppn = 1 ; F_ppn = .FALSE. P_hoch2cho = 1 ; F_hoch2cho = .FALSE. P_hoch2co3 = 1 ; F_hoch2co3 = .FALSE. P_hoch2co3h = 1 ; F_hoch2co3h = .FALSE. P_phan = 1 ; F_phan = .FALSE. P_ccarb12 = 1 ; F_ccarb12 = .FALSE. P_ch3cl = 1 ; F_ch3cl = .FALSE. P_ch2cl2 = 1 ; F_ch2cl2 = .FALSE. P_chcl3 = 1 ; F_chcl3 = .FALSE. P_ch3ccl3 = 1 ; F_ch3ccl3 = .FALSE. P_cdicleth = 1 ; F_cdicleth = .FALSE. P_tdicleth = 1 ; F_tdicleth = .FALSE. P_tricleth = 1 ; F_tricleth = .FALSE. P_tce = 1 ; F_tce = .FALSE. P_ucarb12 = 1 ; F_ucarb12 = .FALSE. P_ucarb10 = 1 ; F_ucarb10 = .FALSE. P_ru14no3 = 1 ; F_ru14no3 = .FALSE. P_ru14ooh = 1 ; F_ru14ooh = .FALSE. P_ru12ooh = 1 ; F_ru12ooh = .FALSE. P_ru10ooh = 1 ; F_ru10ooh = .FALSE. P_ru12pan = 1 ; F_ru12pan = .FALSE. P_nucarb12 = 1 ; F_nucarb12 = .FALSE. P_nru14ooh = 1 ; F_nru14ooh = .FALSE. P_nru12ooh = 1 ; F_nru12ooh = .FALSE. P_noa = 1 ; F_noa = .FALSE. P_ra13no3 = 1 ; F_ra13no3 = .FALSE. P_ra13ooh = 1 ; F_ra13ooh = .FALSE. P_udcarb8 = 1 ; F_udcarb8 = .FALSE. P_aroh14 = 1 ; F_aroh14 = .FALSE. P_raroh14 = 1 ; F_raroh14 = .FALSE. P_arnoh14 = 1 ; F_arnoh14 = .FALSE. P_ra16no3 = 1 ; F_ra16no3 = .FALSE. P_ra16ooh = 1 ; F_ra16ooh = .FALSE. P_udcarb11 = 1 ; F_udcarb11 = .FALSE. P_aroh17 = 1 ; F_aroh17 = .FALSE. P_raroh17 = 1 ; F_raroh17 = .FALSE. P_arnoh17 = 1 ; F_arnoh17 = .FALSE. P_udcarb14 = 1 ; F_udcarb14 = .FALSE. P_ra19no3 = 1 ; F_ra19no3 = .FALSE. P_ra19ooh = 1 ; F_ra19ooh = .FALSE. P_rtn28no3 = 1 ; F_rtn28no3 = .FALSE. P_rtn28ooh = 1 ; F_rtn28ooh = .FALSE. P_tncarb26 = 1 ; F_tncarb26 = .FALSE. P_rtn26ooh = 1 ; F_rtn26ooh = .FALSE. P_nrtn28ooh = 1 ; F_nrtn28ooh = .FALSE. P_rtn26pan = 1 ; F_rtn26pan = .FALSE. P_rtn25ooh = 1 ; F_rtn25ooh = .FALSE. P_rtn24ooh = 1 ; F_rtn24ooh = .FALSE. P_rtn23ooh = 1 ; F_rtn23ooh = .FALSE. P_rtn14ooh = 1 ; F_rtn14ooh = .FALSE. P_rtn10ooh = 1 ; F_rtn10ooh = .FALSE. P_tncarb10 = 1 ; F_tncarb10 = .FALSE. P_rtn25no3 = 1 ; F_rtn25no3 = .FALSE. P_tncarb15 = 1 ; F_tncarb15 = .FALSE. P_rcooh25 = 1 ; F_rcooh25 = .FALSE. P_rtx28no3 = 1 ; F_rtx28no3 = .FALSE. P_rtx28ooh = 1 ; F_rtx28ooh = .FALSE. P_txcarb24 = 1 ; F_txcarb24 = .FALSE. P_rtx24no3 = 1 ; F_rtx24no3 = .FALSE. P_rtx24ooh = 1 ; F_rtx24ooh = .FALSE. P_txcarb22 = 1 ; F_txcarb22 = .FALSE. P_rtx22no3 = 1 ; F_rtx22no3 = .FALSE. P_rtx22ooh = 1 ; F_rtx22ooh = .FALSE. P_nrtx28ooh = 1 ; F_nrtx28ooh = .FALSE. P_carb11a = 1 ; F_carb11a = .FALSE. P_anhy = 1 ; F_anhy = .FALSE. P_ch3o2no2 = 1 ; F_ch3o2no2 = .FALSE. P_c2h5ooh = 1 ; F_c2h5ooh = .FALSE. P_ch3cho = 1 ; F_ch3cho = .FALSE. P_c5h8 = 1 ; F_c5h8 = .FALSE. P_toluene = 1 ; F_toluene = .FALSE. P_rtn23no3 = 1 ; F_rtn23no3 = .FALSE. P_tncarb12 = 1 ; F_tncarb12 = .FALSE. P_tncarb11 = 1 ; F_tncarb11 = .FALSE. P_tm123b = 1 ; F_tm123b = .FALSE. P_tm124b = 1 ; F_tm124b = .FALSE. P_tm135b = 1 ; F_tm135b = .FALSE. P_oethtol = 1 ; F_oethtol = .FALSE. P_methtol = 1 ; F_methtol = .FALSE. P_pethtol = 1 ; F_pethtol = .FALSE. P_ra22no3 = 1 ; F_ra22no3 = .FALSE. P_ra22ooh = 1 ; F_ra22ooh = .FALSE. P_dime35eb = 1 ; F_dime35eb = .FALSE. P_ra25no3 = 1 ; F_ra25no3 = .FALSE. P_udcarb17 = 1 ; F_udcarb17 = .FALSE. P_ra25ooh = 1 ; F_ra25ooh = .FALSE. P_ch3s = 1 ; F_ch3s = .FALSE. P_ch3so = 1 ; F_ch3so = .FALSE. P_msia = 1 ; F_msia = .FALSE. P_clno2 = 1 ; F_clno2 = .FALSE. P_ch3oo = 1 ; F_ch3oo = .FALSE. P_c2h5o2 = 1 ; F_c2h5o2 = .FALSE. P_hoch2ch2o2 = 1 ; F_hoch2ch2o2 = .FALSE. P_ic3h7o2 = 1 ; F_ic3h7o2 = .FALSE. P_rn10o2 = 1 ; F_rn10o2 = .FALSE. P_rn13o2 = 1 ; F_rn13o2 = .FALSE. P_rn16o2 = 1 ; F_rn16o2 = .FALSE. P_rn19o2 = 1 ; F_rn19o2 = .FALSE. P_rn9o2 = 1 ; F_rn9o2 = .FALSE. P_rn12o2 = 1 ; F_rn12o2 = .FALSE. P_rn15o2 = 1 ; F_rn15o2 = .FALSE. P_rn18o2 = 1 ; F_rn18o2 = .FALSE. P_nrn6o2 = 1 ; F_nrn6o2 = .FALSE. P_nrn9o2 = 1 ; F_nrn9o2 = .FALSE. P_nrn12o2 = 1 ; F_nrn12o2 = .FALSE. P_rn11o2 = 1 ; F_rn11o2 = .FALSE. P_rn14o2 = 1 ; F_rn14o2 = .FALSE. P_rn8o2 = 1 ; F_rn8o2 = .FALSE. P_rn17o2 = 1 ; F_rn17o2 = .FALSE. P_rn13ao2 = 1 ; F_rn13ao2 = .FALSE. P_rn16ao2 = 1 ; F_rn16ao2 = .FALSE. P_rn15ao2 = 1 ; F_rn15ao2 = .FALSE. P_rn18ao2 = 1 ; F_rn18ao2 = .FALSE. P_ru10o2 = 1 ; F_ru10o2 = .FALSE. P_nru14o2 = 1 ; F_nru14o2 = .FALSE. P_nru12o2 = 1 ; F_nru12o2 = .FALSE. P_ra13o2 = 1 ; F_ra13o2 = .FALSE. P_nrtx28o2 = 1 ; F_nrtx28o2 = .FALSE. P_rtx24o2 = 1 ; F_rtx24o2 = .FALSE. P_rtx28o2 = 1 ; F_rtx28o2 = .FALSE. P_rtn25o2 = 1 ; F_rtn25o2 = .FALSE. P_rtn24o2 = 1 ; F_rtn24o2 = .FALSE. P_rtn23o2 = 1 ; F_rtn23o2 = .FALSE. P_rtn14o2 = 1 ; F_rtn14o2 = .FALSE. P_rtn10o2 = 1 ; F_rtn10o2 = .FALSE. P_nrtn28o2 = 1 ; F_nrtn28o2 = .FALSE. P_rtn26o2 = 1 ; F_rtn26o2 = .FALSE. P_rtn28o2 = 1 ; F_rtn28o2 = .FALSE. P_ra19ao2 = 1 ; F_ra19ao2 = .FALSE. P_ru14o2 = 1 ; F_ru14o2 = .FALSE. P_ru12o2 = 1 ; F_ru12o2 = .FALSE. P_ra16o2 = 1 ; F_ra16o2 = .FALSE. P_rtx22o2 = 1 ; F_rtx22o2 = .FALSE. P_ra22ao2 = 1 ; F_ra22ao2 = .FALSE. P_ra22bo2 = 1 ; F_ra22bo2 = .FALSE. P_ra25o2 = 1 ; F_ra25o2 = .FALSE. P_ra19co2 = 1 ; F_ra19co2 = .FALSE. P_tracer_1 = 1 ; F_tracer_1 = .FALSE. P_tracer_2 = 1 ; F_tracer_2 = .FALSE. P_tracer_3 = 1 ; F_tracer_3 = .FALSE. P_tracer_4 = 1 ; F_tracer_4 = .FALSE. P_tracer_5 = 1 ; F_tracer_5 = .FALSE. P_tracer_6 = 1 ; F_tracer_6 = .FALSE. P_tracer_7 = 1 ; F_tracer_7 = .FALSE. P_tracer_8 = 1 ; F_tracer_8 = .FALSE. P_tracer_9 = 1 ; F_tracer_9 = .FALSE. P_tracer_10 = 1 ; F_tracer_10 = .FALSE. P_tracer_11 = 1 ; F_tracer_11 = .FALSE. P_tracer_12 = 1 ; F_tracer_12 = .FALSE. P_tracer_13 = 1 ; F_tracer_13 = .FALSE. P_tracer_14 = 1 ; F_tracer_14 = .FALSE. P_tracer_15 = 1 ; F_tracer_15 = .FALSE. P_tracer_16 = 1 ; F_tracer_16 = .FALSE. P_tracer_17 = 1 ; F_tracer_17 = .FALSE. P_tracer_18 = 1 ; F_tracer_18 = .FALSE. P_tracer_19 = 1 ; F_tracer_19 = .FALSE. P_tracer_20 = 1 ; F_tracer_20 = .FALSE. P_tracer_ens = 1 ; F_tracer_ens = .FALSE. P_co2_bio = 1 ; F_co2_bio = .FALSE. P_co2_ant = 1 ; F_co2_ant = .FALSE. P_co2_oce = 1 ; F_co2_oce = .FALSE. P_co2_bck = 1 ; F_co2_bck = .FALSE. P_co2_bbu = 1 ; F_co2_bbu = .FALSE. P_co2_tst = 1 ; F_co2_tst = .FALSE. P_co_bck = 1 ; F_co_bck = .FALSE. P_co_ant = 1 ; F_co_ant = .FALSE. P_co_bbu = 1 ; F_co_bbu = .FALSE. P_co_tst = 1 ; F_co_tst = .FALSE. P_ch4_bio = 1 ; F_ch4_bio = .FALSE. P_ch4_ant = 1 ; F_ch4_ant = .FALSE. P_ch4_bbu = 1 ; F_ch4_bbu = .FALSE. P_ch4_bck = 1 ; F_ch4_bck = .FALSE. P_ch4_tst = 1 ; F_ch4_tst = .FALSE. P_h2so4 = 1 ; F_h2so4 = .FALSE. P_ccho = 1 ; F_ccho = .FALSE. P_rcho = 1 ; F_rcho = .FALSE. P_etoh = 1 ; F_etoh = .FALSE. P_cco_oh = 1 ; F_cco_oh = .FALSE. P_rco_oh = 1 ; F_rco_oh = .FALSE. P_bacl = 1 ; F_bacl = .FALSE. P_bald = 1 ; F_bald = .FALSE. P_isoprod = 1 ; F_isoprod = .FALSE. P_methacro = 1 ; F_methacro = .FALSE. P_prod2 = 1 ; F_prod2 = .FALSE. P_dcb1 = 1 ; F_dcb1 = .FALSE. P_dcb2 = 1 ; F_dcb2 = .FALSE. P_dcb3 = 1 ; F_dcb3 = .FALSE. P_ethene = 1 ; F_ethene = .FALSE. P_isoprene = 1 ; F_isoprene = .FALSE. P_c2h2 = 1 ; F_c2h2 = .FALSE. P_alk3 = 1 ; F_alk3 = .FALSE. P_alk4 = 1 ; F_alk4 = .FALSE. P_alk5 = 1 ; F_alk5 = .FALSE. P_ole2 = 1 ; F_ole2 = .FALSE. P_terp = 1 ; F_terp = .FALSE. P_sesq = 1 ; F_sesq = .FALSE. P_rno3 = 1 ; F_rno3 = .FALSE. P_nphe = 1 ; F_nphe = .FALSE. P_phen = 1 ; F_phen = .FALSE. P_pan2 = 1 ; F_pan2 = .FALSE. P_pbzn = 1 ; F_pbzn = .FALSE. P_ma_pan = 1 ; F_ma_pan = .FALSE. P_bc_spr = 1 ; F_bc_spr = .FALSE. P_oc_spr = 1 ; F_oc_spr = .FALSE. P_ssf = 1 ; F_ssf = .FALSE. P_ssc = 1 ; F_ssc = .FALSE. P_pm10_spr = 1 ; F_pm10_spr = .FALSE. P_pm25_spr = 1 ; F_pm25_spr = .FALSE. P_dst1 = 1 ; F_dst1 = .FALSE. P_dst2 = 1 ; F_dst2 = .FALSE. P_dst3 = 1 ; F_dst3 = .FALSE. P_cco_ooh = 1 ; F_cco_ooh = .FALSE. P_rco_o2 = 1 ; F_rco_o2 = .FALSE. P_rco_ooh = 1 ; F_rco_ooh = .FALSE. P_xn = 1 ; F_xn = .FALSE. P_xc = 1 ; F_xc = .FALSE. P_c_o2 = 1 ; F_c_o2 = .FALSE. P_cooh = 1 ; F_cooh = .FALSE. P_rooh = 1 ; F_rooh = .FALSE. P_ro2_r = 1 ; F_ro2_r = .FALSE. P_r2o2 = 1 ; F_r2o2 = .FALSE. P_ro2_n = 1 ; F_ro2_n = .FALSE. P_cco_o2 = 1 ; F_cco_o2 = .FALSE. P_bzco_o2 = 1 ; F_bzco_o2 = .FALSE. P_ma_rco3 = 1 ; F_ma_rco3 = .FALSE. P_voca = 1 ; F_voca = .FALSE. P_vocbb = 1 ; F_vocbb = .FALSE. P_o1d = 1 ; F_o1d = .FALSE. P_oh = 1 ; F_oh = .FALSE. P_ntr = 1 ; F_ntr = .FALSE. P_form = 1 ; F_form = .FALSE. P_aldx = 1 ; F_aldx = .FALSE. P_mepx = 1 ; F_mepx = .FALSE. P_hco3 = 1 ; F_hco3 = .FALSE. P_facd = 1 ; F_facd = .FALSE. P_pacd = 1 ; F_pacd = .FALSE. P_aacd = 1 ; F_aacd = .FALSE. P_cxo3 = 1 ; F_cxo3 = .FALSE. P_panx = 1 ; F_panx = .FALSE. P_iole = 1 ; F_iole = .FALSE. P_tolaer1 = 1 ; F_tolaer1 = .FALSE. P_tolaer2 = 1 ; F_tolaer2 = .FALSE. P_cslaer = 1 ; F_cslaer = .FALSE. P_xylaer1 = 1 ; F_xylaer1 = .FALSE. P_xylaer2 = 1 ; F_xylaer2 = .FALSE. P_isop = 1 ; F_isop = .FALSE. P_ispd = 1 ; F_ispd = .FALSE. P_isoaer1 = 1 ; F_isoaer1 = .FALSE. P_isoaer2 = 1 ; F_isoaer2 = .FALSE. P_sulaer = 1 ; F_sulaer = .FALSE. P_etha = 1 ; F_etha = .FALSE. P_terpaer = 1 ; F_terpaer = .FALSE. P_hum = 1 ; F_hum = .FALSE. P_humaer = 1 ; F_humaer = .FALSE. P_limaer1 = 1 ; F_limaer1 = .FALSE. P_limaer2 = 1 ; F_limaer2 = .FALSE. P_oci = 1 ; F_oci = .FALSE. P_ociaer1 = 1 ; F_ociaer1 = .FALSE. P_ociaer2 = 1 ; F_ociaer2 = .FALSE. P_apinaer1 = 1 ; F_apinaer1 = .FALSE. P_apinaer2 = 1 ; F_apinaer2 = .FALSE. P_apinaer3 = 1 ; F_apinaer3 = .FALSE. P_apinaer4 = 1 ; F_apinaer4 = .FALSE. P_bpinaer1 = 1 ; F_bpinaer1 = .FALSE. P_bpinaer2 = 1 ; F_bpinaer2 = .FALSE. P_bpinaer3 = 1 ; F_bpinaer3 = .FALSE. P_bpinaer4 = 1 ; F_bpinaer4 = .FALSE. P_bpinaer5 = 1 ; F_bpinaer5 = .FALSE. P_ter = 1 ; F_ter = .FALSE. P_teraer1 = 1 ; F_teraer1 = .FALSE. P_teraer2 = 1 ; F_teraer2 = .FALSE. P_alkh = 1 ; F_alkh = .FALSE. P_alkhaer1 = 1 ; F_alkhaer1 = .FALSE. P_pah = 1 ; F_pah = .FALSE. P_pahaer1 = 1 ; F_pahaer1 = .FALSE. P_pahaer2 = 1 ; F_pahaer2 = .FALSE. P_hg0 = 1 ; F_hg0 = .FALSE. P_hg2 = 1 ; F_hg2 = .FALSE. P_fmcl = 1 ; F_fmcl = .FALSE. P_cl = 1 ; F_cl = .FALSE. P_cl2 = 1 ; F_cl2 = .FALSE. P_hocl = 1 ; F_hocl = .FALSE. P_clo = 1 ; F_clo = .FALSE. P_pm_25 = 1 ; F_pm_25 = .FALSE. P_pm_10 = 1 ; F_pm_10 = .FALSE. P_so4aj = 1 ; F_so4aj = .FALSE. P_so4ai = 1 ; F_so4ai = .FALSE. P_nh4aj = 1 ; F_nh4aj = .FALSE. P_nh4ai = 1 ; F_nh4ai = .FALSE. P_no3aj = 1 ; F_no3aj = .FALSE. P_no3ai = 1 ; F_no3ai = .FALSE. P_naaj = 1 ; F_naaj = .FALSE. P_naai = 1 ; F_naai = .FALSE. P_claj = 1 ; F_claj = .FALSE. P_clai = 1 ; F_clai = .FALSE. P_orgaro1j = 1 ; F_orgaro1j = .FALSE. P_orgaro1i = 1 ; F_orgaro1i = .FALSE. P_orgaro2j = 1 ; F_orgaro2j = .FALSE. P_orgaro2i = 1 ; F_orgaro2i = .FALSE. P_orgalk1j = 1 ; F_orgalk1j = .FALSE. P_orgalk1i = 1 ; F_orgalk1i = .FALSE. P_orgole1j = 1 ; F_orgole1j = .FALSE. P_orgole1i = 1 ; F_orgole1i = .FALSE. P_orgba1j = 1 ; F_orgba1j = .FALSE. P_orgba1i = 1 ; F_orgba1i = .FALSE. P_orgba2j = 1 ; F_orgba2j = .FALSE. P_orgba2i = 1 ; F_orgba2i = .FALSE. P_orgba3j = 1 ; F_orgba3j = .FALSE. P_orgba3i = 1 ; F_orgba3i = .FALSE. P_orgba4j = 1 ; F_orgba4j = .FALSE. P_orgba4i = 1 ; F_orgba4i = .FALSE. P_orgpaj = 1 ; F_orgpaj = .FALSE. P_orgpai = 1 ; F_orgpai = .FALSE. P_ecj = 1 ; F_ecj = .FALSE. P_eci = 1 ; F_eci = .FALSE. P_p25j = 1 ; F_p25j = .FALSE. P_p25i = 1 ; F_p25i = .FALSE. P_antha = 1 ; F_antha = .FALSE. P_seas = 1 ; F_seas = .FALSE. P_soila = 1 ; F_soila = .FALSE. P_nu0 = 1 ; F_nu0 = .FALSE. P_ac0 = 1 ; F_ac0 = .FALSE. P_corn = 1 ; F_corn = .FALSE. P_asoa1j = 1 ; F_asoa1j = .FALSE. P_asoa1i = 1 ; F_asoa1i = .FALSE. P_asoa2j = 1 ; F_asoa2j = .FALSE. P_asoa2i = 1 ; F_asoa2i = .FALSE. P_asoa3j = 1 ; F_asoa3j = .FALSE. P_asoa3i = 1 ; F_asoa3i = .FALSE. P_asoa4j = 1 ; F_asoa4j = .FALSE. P_asoa4i = 1 ; F_asoa4i = .FALSE. P_bsoa1j = 1 ; F_bsoa1j = .FALSE. P_bsoa1i = 1 ; F_bsoa1i = .FALSE. P_bsoa2j = 1 ; F_bsoa2j = .FALSE. P_bsoa2i = 1 ; F_bsoa2i = .FALSE. P_bsoa3j = 1 ; F_bsoa3j = .FALSE. P_bsoa3i = 1 ; F_bsoa3i = .FALSE. P_bsoa4j = 1 ; F_bsoa4j = .FALSE. P_bsoa4i = 1 ; F_bsoa4i = .FALSE. P_so4cwj = 1 ; F_so4cwj = .FALSE. P_so4cwi = 1 ; F_so4cwi = .FALSE. P_nh4cwj = 1 ; F_nh4cwj = .FALSE. P_nh4cwi = 1 ; F_nh4cwi = .FALSE. P_no3cwj = 1 ; F_no3cwj = .FALSE. P_no3cwi = 1 ; F_no3cwi = .FALSE. P_nacwj = 1 ; F_nacwj = .FALSE. P_nacwi = 1 ; F_nacwi = .FALSE. P_clcwj = 1 ; F_clcwj = .FALSE. P_clcwi = 1 ; F_clcwi = .FALSE. P_orgaro1cwj = 1 ; F_orgaro1cwj = .FALSE. P_orgaro1cwi = 1 ; F_orgaro1cwi = .FALSE. P_orgaro2cwj = 1 ; F_orgaro2cwj = .FALSE. P_orgaro2cwi = 1 ; F_orgaro2cwi = .FALSE. P_orgalk1cwj = 1 ; F_orgalk1cwj = .FALSE. P_orgalk1cwi = 1 ; F_orgalk1cwi = .FALSE. P_orgole1cwj = 1 ; F_orgole1cwj = .FALSE. P_orgole1cwi = 1 ; F_orgole1cwi = .FALSE. P_orgba1cwj = 1 ; F_orgba1cwj = .FALSE. P_orgba1cwi = 1 ; F_orgba1cwi = .FALSE. P_orgba2cwj = 1 ; F_orgba2cwj = .FALSE. P_orgba2cwi = 1 ; F_orgba2cwi = .FALSE. P_orgba3cwj = 1 ; F_orgba3cwj = .FALSE. P_orgba3cwi = 1 ; F_orgba3cwi = .FALSE. P_orgba4cwj = 1 ; F_orgba4cwj = .FALSE. P_orgba4cwi = 1 ; F_orgba4cwi = .FALSE. P_orgpacwj = 1 ; F_orgpacwj = .FALSE. P_orgpacwi = 1 ; F_orgpacwi = .FALSE. P_eccwj = 1 ; F_eccwj = .FALSE. P_eccwi = 1 ; F_eccwi = .FALSE. P_p25cwj = 1 ; F_p25cwj = .FALSE. P_p25cwi = 1 ; F_p25cwi = .FALSE. P_anthcw = 1 ; F_anthcw = .FALSE. P_seascw = 1 ; F_seascw = .FALSE. P_soilcw = 1 ; F_soilcw = .FALSE. P_nu0cw = 1 ; F_nu0cw = .FALSE. P_ac0cw = 1 ; F_ac0cw = .FALSE. P_corncw = 1 ; F_corncw = .FALSE. P_asoa1cwj = 1 ; F_asoa1cwj = .FALSE. P_asoa1cwi = 1 ; F_asoa1cwi = .FALSE. P_asoa2cwj = 1 ; F_asoa2cwj = .FALSE. P_asoa2cwi = 1 ; F_asoa2cwi = .FALSE. P_asoa3cwj = 1 ; F_asoa3cwj = .FALSE. P_asoa3cwi = 1 ; F_asoa3cwi = .FALSE. P_asoa4cwj = 1 ; F_asoa4cwj = .FALSE. P_asoa4cwi = 1 ; F_asoa4cwi = .FALSE. P_bsoa1cwj = 1 ; F_bsoa1cwj = .FALSE. P_bsoa1cwi = 1 ; F_bsoa1cwi = .FALSE. P_bsoa2cwj = 1 ; F_bsoa2cwj = .FALSE. P_bsoa2cwi = 1 ; F_bsoa2cwi = .FALSE. P_bsoa3cwj = 1 ; F_bsoa3cwj = .FALSE. P_bsoa3cwi = 1 ; F_bsoa3cwi = .FALSE. P_bsoa4cwj = 1 ; F_bsoa4cwj = .FALSE. P_bsoa4cwi = 1 ; F_bsoa4cwi = .FALSE. P_hace = 1 ; F_hace = .FALSE. P_ishp = 1 ; F_ishp = .FALSE. P_ison = 1 ; F_ison = .FALSE. P_mahp = 1 ; F_mahp = .FALSE. P_mpan = 1 ; F_mpan = .FALSE. P_nald = 1 ; F_nald = .FALSE. P_so4_a01 = 1 ; F_so4_a01 = .FALSE. P_no3_a01 = 1 ; F_no3_a01 = .FALSE. P_aro1_a01 = 1 ; F_aro1_a01 = .FALSE. P_aro2_a01 = 1 ; F_aro2_a01 = .FALSE. P_alk1_a01 = 1 ; F_alk1_a01 = .FALSE. P_ole1_a01 = 1 ; F_ole1_a01 = .FALSE. P_api1_a01 = 1 ; F_api1_a01 = .FALSE. P_api2_a01 = 1 ; F_api2_a01 = .FALSE. P_lim1_a01 = 1 ; F_lim1_a01 = .FALSE. P_lim2_a01 = 1 ; F_lim2_a01 = .FALSE. P_pcg1_b_c_a01 = 1 ; F_pcg1_b_c_a01 = .FALSE. P_pcg2_b_c_a01 = 1 ; F_pcg2_b_c_a01 = .FALSE. P_pcg3_b_c_a01 = 1 ; F_pcg3_b_c_a01 = .FALSE. P_pcg4_b_c_a01 = 1 ; F_pcg4_b_c_a01 = .FALSE. P_pcg5_b_c_a01 = 1 ; F_pcg5_b_c_a01 = .FALSE. P_pcg6_b_c_a01 = 1 ; F_pcg6_b_c_a01 = .FALSE. P_pcg7_b_c_a01 = 1 ; F_pcg7_b_c_a01 = .FALSE. P_pcg8_b_c_a01 = 1 ; F_pcg8_b_c_a01 = .FALSE. P_pcg9_b_c_a01 = 1 ; F_pcg9_b_c_a01 = .FALSE. P_pcg1_b_o_a01 = 1 ; F_pcg1_b_o_a01 = .FALSE. P_pcg2_b_o_a01 = 1 ; F_pcg2_b_o_a01 = .FALSE. P_pcg3_b_o_a01 = 1 ; F_pcg3_b_o_a01 = .FALSE. P_pcg4_b_o_a01 = 1 ; F_pcg4_b_o_a01 = .FALSE. P_pcg5_b_o_a01 = 1 ; F_pcg5_b_o_a01 = .FALSE. P_pcg6_b_o_a01 = 1 ; F_pcg6_b_o_a01 = .FALSE. P_pcg7_b_o_a01 = 1 ; F_pcg7_b_o_a01 = .FALSE. P_pcg8_b_o_a01 = 1 ; F_pcg8_b_o_a01 = .FALSE. P_pcg9_b_o_a01 = 1 ; F_pcg9_b_o_a01 = .FALSE. P_pcg1_f_c_a01 = 1 ; F_pcg1_f_c_a01 = .FALSE. P_pcg2_f_c_a01 = 1 ; F_pcg2_f_c_a01 = .FALSE. P_pcg3_f_c_a01 = 1 ; F_pcg3_f_c_a01 = .FALSE. P_pcg4_f_c_a01 = 1 ; F_pcg4_f_c_a01 = .FALSE. P_pcg5_f_c_a01 = 1 ; F_pcg5_f_c_a01 = .FALSE. P_pcg6_f_c_a01 = 1 ; F_pcg6_f_c_a01 = .FALSE. P_pcg7_f_c_a01 = 1 ; F_pcg7_f_c_a01 = .FALSE. P_pcg8_f_c_a01 = 1 ; F_pcg8_f_c_a01 = .FALSE. P_pcg9_f_c_a01 = 1 ; F_pcg9_f_c_a01 = .FALSE. P_pcg1_f_o_a01 = 1 ; F_pcg1_f_o_a01 = .FALSE. P_pcg2_f_o_a01 = 1 ; F_pcg2_f_o_a01 = .FALSE. P_pcg3_f_o_a01 = 1 ; F_pcg3_f_o_a01 = .FALSE. P_pcg4_f_o_a01 = 1 ; F_pcg4_f_o_a01 = .FALSE. P_pcg5_f_o_a01 = 1 ; F_pcg5_f_o_a01 = .FALSE. P_pcg6_f_o_a01 = 1 ; F_pcg6_f_o_a01 = .FALSE. P_pcg7_f_o_a01 = 1 ; F_pcg7_f_o_a01 = .FALSE. P_pcg8_f_o_a01 = 1 ; F_pcg8_f_o_a01 = .FALSE. P_pcg9_f_o_a01 = 1 ; F_pcg9_f_o_a01 = .FALSE. P_opcg1_b_c_a01 = 1 ; F_opcg1_b_c_a01 = .FALSE. P_opcg2_b_c_a01 = 1 ; F_opcg2_b_c_a01 = .FALSE. P_opcg3_b_c_a01 = 1 ; F_opcg3_b_c_a01 = .FALSE. P_opcg4_b_c_a01 = 1 ; F_opcg4_b_c_a01 = .FALSE. P_opcg5_b_c_a01 = 1 ; F_opcg5_b_c_a01 = .FALSE. P_opcg6_b_c_a01 = 1 ; F_opcg6_b_c_a01 = .FALSE. P_opcg7_b_c_a01 = 1 ; F_opcg7_b_c_a01 = .FALSE. P_opcg8_b_c_a01 = 1 ; F_opcg8_b_c_a01 = .FALSE. P_opcg1_b_o_a01 = 1 ; F_opcg1_b_o_a01 = .FALSE. P_opcg2_b_o_a01 = 1 ; F_opcg2_b_o_a01 = .FALSE. P_opcg3_b_o_a01 = 1 ; F_opcg3_b_o_a01 = .FALSE. P_opcg4_b_o_a01 = 1 ; F_opcg4_b_o_a01 = .FALSE. P_opcg5_b_o_a01 = 1 ; F_opcg5_b_o_a01 = .FALSE. P_opcg6_b_o_a01 = 1 ; F_opcg6_b_o_a01 = .FALSE. P_opcg7_b_o_a01 = 1 ; F_opcg7_b_o_a01 = .FALSE. P_opcg8_b_o_a01 = 1 ; F_opcg8_b_o_a01 = .FALSE. P_opcg1_f_c_a01 = 1 ; F_opcg1_f_c_a01 = .FALSE. P_opcg2_f_c_a01 = 1 ; F_opcg2_f_c_a01 = .FALSE. P_opcg3_f_c_a01 = 1 ; F_opcg3_f_c_a01 = .FALSE. P_opcg4_f_c_a01 = 1 ; F_opcg4_f_c_a01 = .FALSE. P_opcg5_f_c_a01 = 1 ; F_opcg5_f_c_a01 = .FALSE. P_opcg6_f_c_a01 = 1 ; F_opcg6_f_c_a01 = .FALSE. P_opcg7_f_c_a01 = 1 ; F_opcg7_f_c_a01 = .FALSE. P_opcg8_f_c_a01 = 1 ; F_opcg8_f_c_a01 = .FALSE. P_opcg1_f_o_a01 = 1 ; F_opcg1_f_o_a01 = .FALSE. P_opcg2_f_o_a01 = 1 ; F_opcg2_f_o_a01 = .FALSE. P_opcg3_f_o_a01 = 1 ; F_opcg3_f_o_a01 = .FALSE. P_opcg4_f_o_a01 = 1 ; F_opcg4_f_o_a01 = .FALSE. P_opcg5_f_o_a01 = 1 ; F_opcg5_f_o_a01 = .FALSE. P_opcg6_f_o_a01 = 1 ; F_opcg6_f_o_a01 = .FALSE. P_opcg7_f_o_a01 = 1 ; F_opcg7_f_o_a01 = .FALSE. P_opcg8_f_o_a01 = 1 ; F_opcg8_f_o_a01 = .FALSE. P_smpa_a01 = 1 ; F_smpa_a01 = .FALSE. P_smpbb_a01 = 1 ; F_smpbb_a01 = .FALSE. P_ant1_c_a01 = 1 ; F_ant1_c_a01 = .FALSE. P_ant2_c_a01 = 1 ; F_ant2_c_a01 = .FALSE. P_ant3_c_a01 = 1 ; F_ant3_c_a01 = .FALSE. P_ant4_c_a01 = 1 ; F_ant4_c_a01 = .FALSE. P_ant1_o_a01 = 1 ; F_ant1_o_a01 = .FALSE. P_ant2_o_a01 = 1 ; F_ant2_o_a01 = .FALSE. P_ant3_o_a01 = 1 ; F_ant3_o_a01 = .FALSE. P_ant4_o_a01 = 1 ; F_ant4_o_a01 = .FALSE. P_biog1_c_a01 = 1 ; F_biog1_c_a01 = .FALSE. P_biog2_c_a01 = 1 ; F_biog2_c_a01 = .FALSE. P_biog3_c_a01 = 1 ; F_biog3_c_a01 = .FALSE. P_biog4_c_a01 = 1 ; F_biog4_c_a01 = .FALSE. P_biog1_o_a01 = 1 ; F_biog1_o_a01 = .FALSE. P_biog2_o_a01 = 1 ; F_biog2_o_a01 = .FALSE. P_biog3_o_a01 = 1 ; F_biog3_o_a01 = .FALSE. P_biog4_o_a01 = 1 ; F_biog4_o_a01 = .FALSE. P_asoax_a01 = 1 ; F_asoax_a01 = .FALSE. P_asoa1_a01 = 1 ; F_asoa1_a01 = .FALSE. P_asoa2_a01 = 1 ; F_asoa2_a01 = .FALSE. P_asoa3_a01 = 1 ; F_asoa3_a01 = .FALSE. P_asoa4_a01 = 1 ; F_asoa4_a01 = .FALSE. P_bsoax_a01 = 1 ; F_bsoax_a01 = .FALSE. P_bsoa1_a01 = 1 ; F_bsoa1_a01 = .FALSE. P_bsoa2_a01 = 1 ; F_bsoa2_a01 = .FALSE. P_bsoa3_a01 = 1 ; F_bsoa3_a01 = .FALSE. P_bsoa4_a01 = 1 ; F_bsoa4_a01 = .FALSE. P_glysoa_r1_a01 = 1 ; F_glysoa_r1_a01 = .FALSE. P_glysoa_r2_a01 = 1 ; F_glysoa_r2_a01 = .FALSE. P_glysoa_sfc_a01 = 1 ; F_glysoa_sfc_a01 = .FALSE. P_glysoa_nh4_a01 = 1 ; F_glysoa_nh4_a01 = .FALSE. P_glysoa_oh_a01 = 1 ; F_glysoa_oh_a01 = .FALSE. P_cl_a01 = 1 ; F_cl_a01 = .FALSE. P_msa_a01 = 1 ; F_msa_a01 = .FALSE. P_co3_a01 = 1 ; F_co3_a01 = .FALSE. P_nh4_a01 = 1 ; F_nh4_a01 = .FALSE. P_na_a01 = 1 ; F_na_a01 = .FALSE. P_ca_a01 = 1 ; F_ca_a01 = .FALSE. P_oin_a01 = 1 ; F_oin_a01 = .FALSE. P_oc_a01 = 1 ; F_oc_a01 = .FALSE. P_bc_a01 = 1 ; F_bc_a01 = .FALSE. P_hysw_a01 = 1 ; F_hysw_a01 = .FALSE. P_water_a01 = 1 ; F_water_a01 = .FALSE. P_num_a01 = 1 ; F_num_a01 = .FALSE. P_so4_a02 = 1 ; F_so4_a02 = .FALSE. P_no3_a02 = 1 ; F_no3_a02 = .FALSE. P_aro1_a02 = 1 ; F_aro1_a02 = .FALSE. P_aro2_a02 = 1 ; F_aro2_a02 = .FALSE. P_alk1_a02 = 1 ; F_alk1_a02 = .FALSE. P_ole1_a02 = 1 ; F_ole1_a02 = .FALSE. P_api1_a02 = 1 ; F_api1_a02 = .FALSE. P_api2_a02 = 1 ; F_api2_a02 = .FALSE. P_lim1_a02 = 1 ; F_lim1_a02 = .FALSE. P_lim2_a02 = 1 ; F_lim2_a02 = .FALSE. P_pcg1_b_c_a02 = 1 ; F_pcg1_b_c_a02 = .FALSE. P_pcg2_b_c_a02 = 1 ; F_pcg2_b_c_a02 = .FALSE. P_pcg3_b_c_a02 = 1 ; F_pcg3_b_c_a02 = .FALSE. P_pcg4_b_c_a02 = 1 ; F_pcg4_b_c_a02 = .FALSE. P_pcg5_b_c_a02 = 1 ; F_pcg5_b_c_a02 = .FALSE. P_pcg6_b_c_a02 = 1 ; F_pcg6_b_c_a02 = .FALSE. P_pcg7_b_c_a02 = 1 ; F_pcg7_b_c_a02 = .FALSE. P_pcg8_b_c_a02 = 1 ; F_pcg8_b_c_a02 = .FALSE. P_pcg9_b_c_a02 = 1 ; F_pcg9_b_c_a02 = .FALSE. P_pcg1_b_o_a02 = 1 ; F_pcg1_b_o_a02 = .FALSE. P_pcg2_b_o_a02 = 1 ; F_pcg2_b_o_a02 = .FALSE. P_pcg3_b_o_a02 = 1 ; F_pcg3_b_o_a02 = .FALSE. P_pcg4_b_o_a02 = 1 ; F_pcg4_b_o_a02 = .FALSE. P_pcg5_b_o_a02 = 1 ; F_pcg5_b_o_a02 = .FALSE. P_pcg6_b_o_a02 = 1 ; F_pcg6_b_o_a02 = .FALSE. P_pcg7_b_o_a02 = 1 ; F_pcg7_b_o_a02 = .FALSE. P_pcg8_b_o_a02 = 1 ; F_pcg8_b_o_a02 = .FALSE. P_pcg9_b_o_a02 = 1 ; F_pcg9_b_o_a02 = .FALSE. P_pcg1_f_c_a02 = 1 ; F_pcg1_f_c_a02 = .FALSE. P_pcg2_f_c_a02 = 1 ; F_pcg2_f_c_a02 = .FALSE. P_pcg3_f_c_a02 = 1 ; F_pcg3_f_c_a02 = .FALSE. P_pcg4_f_c_a02 = 1 ; F_pcg4_f_c_a02 = .FALSE. P_pcg5_f_c_a02 = 1 ; F_pcg5_f_c_a02 = .FALSE. P_pcg6_f_c_a02 = 1 ; F_pcg6_f_c_a02 = .FALSE. P_pcg7_f_c_a02 = 1 ; F_pcg7_f_c_a02 = .FALSE. P_pcg8_f_c_a02 = 1 ; F_pcg8_f_c_a02 = .FALSE. P_pcg9_f_c_a02 = 1 ; F_pcg9_f_c_a02 = .FALSE. P_pcg1_f_o_a02 = 1 ; F_pcg1_f_o_a02 = .FALSE. P_pcg2_f_o_a02 = 1 ; F_pcg2_f_o_a02 = .FALSE. P_pcg3_f_o_a02 = 1 ; F_pcg3_f_o_a02 = .FALSE. P_pcg4_f_o_a02 = 1 ; F_pcg4_f_o_a02 = .FALSE. P_pcg5_f_o_a02 = 1 ; F_pcg5_f_o_a02 = .FALSE. P_pcg6_f_o_a02 = 1 ; F_pcg6_f_o_a02 = .FALSE. P_pcg7_f_o_a02 = 1 ; F_pcg7_f_o_a02 = .FALSE. P_pcg8_f_o_a02 = 1 ; F_pcg8_f_o_a02 = .FALSE. P_pcg9_f_o_a02 = 1 ; F_pcg9_f_o_a02 = .FALSE. P_opcg1_b_c_a02 = 1 ; F_opcg1_b_c_a02 = .FALSE. P_opcg2_b_c_a02 = 1 ; F_opcg2_b_c_a02 = .FALSE. P_opcg3_b_c_a02 = 1 ; F_opcg3_b_c_a02 = .FALSE. P_opcg4_b_c_a02 = 1 ; F_opcg4_b_c_a02 = .FALSE. P_opcg5_b_c_a02 = 1 ; F_opcg5_b_c_a02 = .FALSE. P_opcg6_b_c_a02 = 1 ; F_opcg6_b_c_a02 = .FALSE. P_opcg7_b_c_a02 = 1 ; F_opcg7_b_c_a02 = .FALSE. P_opcg8_b_c_a02 = 1 ; F_opcg8_b_c_a02 = .FALSE. P_opcg1_b_o_a02 = 1 ; F_opcg1_b_o_a02 = .FALSE. P_opcg2_b_o_a02 = 1 ; F_opcg2_b_o_a02 = .FALSE. P_opcg3_b_o_a02 = 1 ; F_opcg3_b_o_a02 = .FALSE. P_opcg4_b_o_a02 = 1 ; F_opcg4_b_o_a02 = .FALSE. P_opcg5_b_o_a02 = 1 ; F_opcg5_b_o_a02 = .FALSE. P_opcg6_b_o_a02 = 1 ; F_opcg6_b_o_a02 = .FALSE. P_opcg7_b_o_a02 = 1 ; F_opcg7_b_o_a02 = .FALSE. P_opcg8_b_o_a02 = 1 ; F_opcg8_b_o_a02 = .FALSE. P_opcg1_f_c_a02 = 1 ; F_opcg1_f_c_a02 = .FALSE. P_opcg2_f_c_a02 = 1 ; F_opcg2_f_c_a02 = .FALSE. P_opcg3_f_c_a02 = 1 ; F_opcg3_f_c_a02 = .FALSE. P_opcg4_f_c_a02 = 1 ; F_opcg4_f_c_a02 = .FALSE. P_opcg5_f_c_a02 = 1 ; F_opcg5_f_c_a02 = .FALSE. P_opcg6_f_c_a02 = 1 ; F_opcg6_f_c_a02 = .FALSE. P_opcg7_f_c_a02 = 1 ; F_opcg7_f_c_a02 = .FALSE. P_opcg8_f_c_a02 = 1 ; F_opcg8_f_c_a02 = .FALSE. P_opcg1_f_o_a02 = 1 ; F_opcg1_f_o_a02 = .FALSE. P_opcg2_f_o_a02 = 1 ; F_opcg2_f_o_a02 = .FALSE. P_opcg3_f_o_a02 = 1 ; F_opcg3_f_o_a02 = .FALSE. P_opcg4_f_o_a02 = 1 ; F_opcg4_f_o_a02 = .FALSE. P_opcg5_f_o_a02 = 1 ; F_opcg5_f_o_a02 = .FALSE. P_opcg6_f_o_a02 = 1 ; F_opcg6_f_o_a02 = .FALSE. P_opcg7_f_o_a02 = 1 ; F_opcg7_f_o_a02 = .FALSE. P_opcg8_f_o_a02 = 1 ; F_opcg8_f_o_a02 = .FALSE. P_smpa_a02 = 1 ; F_smpa_a02 = .FALSE. P_smpbb_a02 = 1 ; F_smpbb_a02 = .FALSE. P_ant1_c_a02 = 1 ; F_ant1_c_a02 = .FALSE. P_ant2_c_a02 = 1 ; F_ant2_c_a02 = .FALSE. P_ant3_c_a02 = 1 ; F_ant3_c_a02 = .FALSE. P_ant4_c_a02 = 1 ; F_ant4_c_a02 = .FALSE. P_ant1_o_a02 = 1 ; F_ant1_o_a02 = .FALSE. P_ant2_o_a02 = 1 ; F_ant2_o_a02 = .FALSE. P_ant3_o_a02 = 1 ; F_ant3_o_a02 = .FALSE. P_ant4_o_a02 = 1 ; F_ant4_o_a02 = .FALSE. P_biog1_c_a02 = 1 ; F_biog1_c_a02 = .FALSE. P_biog2_c_a02 = 1 ; F_biog2_c_a02 = .FALSE. P_biog3_c_a02 = 1 ; F_biog3_c_a02 = .FALSE. P_biog4_c_a02 = 1 ; F_biog4_c_a02 = .FALSE. P_biog1_o_a02 = 1 ; F_biog1_o_a02 = .FALSE. P_biog2_o_a02 = 1 ; F_biog2_o_a02 = .FALSE. P_biog3_o_a02 = 1 ; F_biog3_o_a02 = .FALSE. P_biog4_o_a02 = 1 ; F_biog4_o_a02 = .FALSE. P_asoax_a02 = 1 ; F_asoax_a02 = .FALSE. P_asoa1_a02 = 1 ; F_asoa1_a02 = .FALSE. P_asoa2_a02 = 1 ; F_asoa2_a02 = .FALSE. P_asoa3_a02 = 1 ; F_asoa3_a02 = .FALSE. P_asoa4_a02 = 1 ; F_asoa4_a02 = .FALSE. P_bsoax_a02 = 1 ; F_bsoax_a02 = .FALSE. P_bsoa1_a02 = 1 ; F_bsoa1_a02 = .FALSE. P_bsoa2_a02 = 1 ; F_bsoa2_a02 = .FALSE. P_bsoa3_a02 = 1 ; F_bsoa3_a02 = .FALSE. P_bsoa4_a02 = 1 ; F_bsoa4_a02 = .FALSE. P_glysoa_r1_a02 = 1 ; F_glysoa_r1_a02 = .FALSE. P_glysoa_r2_a02 = 1 ; F_glysoa_r2_a02 = .FALSE. P_glysoa_sfc_a02 = 1 ; F_glysoa_sfc_a02 = .FALSE. P_glysoa_nh4_a02 = 1 ; F_glysoa_nh4_a02 = .FALSE. P_glysoa_oh_a02 = 1 ; F_glysoa_oh_a02 = .FALSE. P_cl_a02 = 1 ; F_cl_a02 = .FALSE. P_msa_a02 = 1 ; F_msa_a02 = .FALSE. P_co3_a02 = 1 ; F_co3_a02 = .FALSE. P_nh4_a02 = 1 ; F_nh4_a02 = .FALSE. P_na_a02 = 1 ; F_na_a02 = .FALSE. P_ca_a02 = 1 ; F_ca_a02 = .FALSE. P_oin_a02 = 1 ; F_oin_a02 = .FALSE. P_oc_a02 = 1 ; F_oc_a02 = .FALSE. P_bc_a02 = 1 ; F_bc_a02 = .FALSE. P_hysw_a02 = 1 ; F_hysw_a02 = .FALSE. P_water_a02 = 1 ; F_water_a02 = .FALSE. P_num_a02 = 1 ; F_num_a02 = .FALSE. P_so4_a03 = 1 ; F_so4_a03 = .FALSE. P_no3_a03 = 1 ; F_no3_a03 = .FALSE. P_aro1_a03 = 1 ; F_aro1_a03 = .FALSE. P_aro2_a03 = 1 ; F_aro2_a03 = .FALSE. P_alk1_a03 = 1 ; F_alk1_a03 = .FALSE. P_ole1_a03 = 1 ; F_ole1_a03 = .FALSE. P_api1_a03 = 1 ; F_api1_a03 = .FALSE. P_api2_a03 = 1 ; F_api2_a03 = .FALSE. P_lim1_a03 = 1 ; F_lim1_a03 = .FALSE. P_lim2_a03 = 1 ; F_lim2_a03 = .FALSE. P_pcg1_b_c_a03 = 1 ; F_pcg1_b_c_a03 = .FALSE. P_pcg2_b_c_a03 = 1 ; F_pcg2_b_c_a03 = .FALSE. P_pcg3_b_c_a03 = 1 ; F_pcg3_b_c_a03 = .FALSE. P_pcg4_b_c_a03 = 1 ; F_pcg4_b_c_a03 = .FALSE. P_pcg5_b_c_a03 = 1 ; F_pcg5_b_c_a03 = .FALSE. P_pcg6_b_c_a03 = 1 ; F_pcg6_b_c_a03 = .FALSE. P_pcg7_b_c_a03 = 1 ; F_pcg7_b_c_a03 = .FALSE. P_pcg8_b_c_a03 = 1 ; F_pcg8_b_c_a03 = .FALSE. P_pcg9_b_c_a03 = 1 ; F_pcg9_b_c_a03 = .FALSE. P_pcg1_b_o_a03 = 1 ; F_pcg1_b_o_a03 = .FALSE. P_pcg2_b_o_a03 = 1 ; F_pcg2_b_o_a03 = .FALSE. P_pcg3_b_o_a03 = 1 ; F_pcg3_b_o_a03 = .FALSE. P_pcg4_b_o_a03 = 1 ; F_pcg4_b_o_a03 = .FALSE. P_pcg5_b_o_a03 = 1 ; F_pcg5_b_o_a03 = .FALSE. P_pcg6_b_o_a03 = 1 ; F_pcg6_b_o_a03 = .FALSE. P_pcg7_b_o_a03 = 1 ; F_pcg7_b_o_a03 = .FALSE. P_pcg8_b_o_a03 = 1 ; F_pcg8_b_o_a03 = .FALSE. P_pcg9_b_o_a03 = 1 ; F_pcg9_b_o_a03 = .FALSE. P_pcg1_f_c_a03 = 1 ; F_pcg1_f_c_a03 = .FALSE. P_pcg2_f_c_a03 = 1 ; F_pcg2_f_c_a03 = .FALSE. P_pcg3_f_c_a03 = 1 ; F_pcg3_f_c_a03 = .FALSE. P_pcg4_f_c_a03 = 1 ; F_pcg4_f_c_a03 = .FALSE. P_pcg5_f_c_a03 = 1 ; F_pcg5_f_c_a03 = .FALSE. P_pcg6_f_c_a03 = 1 ; F_pcg6_f_c_a03 = .FALSE. P_pcg7_f_c_a03 = 1 ; F_pcg7_f_c_a03 = .FALSE. P_pcg8_f_c_a03 = 1 ; F_pcg8_f_c_a03 = .FALSE. P_pcg9_f_c_a03 = 1 ; F_pcg9_f_c_a03 = .FALSE. P_pcg1_f_o_a03 = 1 ; F_pcg1_f_o_a03 = .FALSE. P_pcg2_f_o_a03 = 1 ; F_pcg2_f_o_a03 = .FALSE. P_pcg3_f_o_a03 = 1 ; F_pcg3_f_o_a03 = .FALSE. P_pcg4_f_o_a03 = 1 ; F_pcg4_f_o_a03 = .FALSE. P_pcg5_f_o_a03 = 1 ; F_pcg5_f_o_a03 = .FALSE. P_pcg6_f_o_a03 = 1 ; F_pcg6_f_o_a03 = .FALSE. P_pcg7_f_o_a03 = 1 ; F_pcg7_f_o_a03 = .FALSE. P_pcg8_f_o_a03 = 1 ; F_pcg8_f_o_a03 = .FALSE. P_pcg9_f_o_a03 = 1 ; F_pcg9_f_o_a03 = .FALSE. P_opcg1_b_c_a03 = 1 ; F_opcg1_b_c_a03 = .FALSE. P_opcg2_b_c_a03 = 1 ; F_opcg2_b_c_a03 = .FALSE. P_opcg3_b_c_a03 = 1 ; F_opcg3_b_c_a03 = .FALSE. P_opcg4_b_c_a03 = 1 ; F_opcg4_b_c_a03 = .FALSE. P_opcg5_b_c_a03 = 1 ; F_opcg5_b_c_a03 = .FALSE. P_opcg6_b_c_a03 = 1 ; F_opcg6_b_c_a03 = .FALSE. P_opcg7_b_c_a03 = 1 ; F_opcg7_b_c_a03 = .FALSE. P_opcg8_b_c_a03 = 1 ; F_opcg8_b_c_a03 = .FALSE. P_opcg1_b_o_a03 = 1 ; F_opcg1_b_o_a03 = .FALSE. P_opcg2_b_o_a03 = 1 ; F_opcg2_b_o_a03 = .FALSE. P_opcg3_b_o_a03 = 1 ; F_opcg3_b_o_a03 = .FALSE. P_opcg4_b_o_a03 = 1 ; F_opcg4_b_o_a03 = .FALSE. P_opcg5_b_o_a03 = 1 ; F_opcg5_b_o_a03 = .FALSE. P_opcg6_b_o_a03 = 1 ; F_opcg6_b_o_a03 = .FALSE. P_opcg7_b_o_a03 = 1 ; F_opcg7_b_o_a03 = .FALSE. P_opcg8_b_o_a03 = 1 ; F_opcg8_b_o_a03 = .FALSE. P_opcg1_f_c_a03 = 1 ; F_opcg1_f_c_a03 = .FALSE. P_opcg2_f_c_a03 = 1 ; F_opcg2_f_c_a03 = .FALSE. P_opcg3_f_c_a03 = 1 ; F_opcg3_f_c_a03 = .FALSE. P_opcg4_f_c_a03 = 1 ; F_opcg4_f_c_a03 = .FALSE. P_opcg5_f_c_a03 = 1 ; F_opcg5_f_c_a03 = .FALSE. P_opcg6_f_c_a03 = 1 ; F_opcg6_f_c_a03 = .FALSE. P_opcg7_f_c_a03 = 1 ; F_opcg7_f_c_a03 = .FALSE. P_opcg8_f_c_a03 = 1 ; F_opcg8_f_c_a03 = .FALSE. P_opcg1_f_o_a03 = 1 ; F_opcg1_f_o_a03 = .FALSE. P_opcg2_f_o_a03 = 1 ; F_opcg2_f_o_a03 = .FALSE. P_opcg3_f_o_a03 = 1 ; F_opcg3_f_o_a03 = .FALSE. P_opcg4_f_o_a03 = 1 ; F_opcg4_f_o_a03 = .FALSE. P_opcg5_f_o_a03 = 1 ; F_opcg5_f_o_a03 = .FALSE. P_opcg6_f_o_a03 = 1 ; F_opcg6_f_o_a03 = .FALSE. P_opcg7_f_o_a03 = 1 ; F_opcg7_f_o_a03 = .FALSE. P_opcg8_f_o_a03 = 1 ; F_opcg8_f_o_a03 = .FALSE. P_smpa_a03 = 1 ; F_smpa_a03 = .FALSE. P_smpbb_a03 = 1 ; F_smpbb_a03 = .FALSE. P_ant1_c_a03 = 1 ; F_ant1_c_a03 = .FALSE. P_ant2_c_a03 = 1 ; F_ant2_c_a03 = .FALSE. P_ant3_c_a03 = 1 ; F_ant3_c_a03 = .FALSE. P_ant4_c_a03 = 1 ; F_ant4_c_a03 = .FALSE. P_ant1_o_a03 = 1 ; F_ant1_o_a03 = .FALSE. P_ant2_o_a03 = 1 ; F_ant2_o_a03 = .FALSE. P_ant3_o_a03 = 1 ; F_ant3_o_a03 = .FALSE. P_ant4_o_a03 = 1 ; F_ant4_o_a03 = .FALSE. P_biog1_c_a03 = 1 ; F_biog1_c_a03 = .FALSE. P_biog2_c_a03 = 1 ; F_biog2_c_a03 = .FALSE. P_biog3_c_a03 = 1 ; F_biog3_c_a03 = .FALSE. P_biog4_c_a03 = 1 ; F_biog4_c_a03 = .FALSE. P_biog1_o_a03 = 1 ; F_biog1_o_a03 = .FALSE. P_biog2_o_a03 = 1 ; F_biog2_o_a03 = .FALSE. P_biog3_o_a03 = 1 ; F_biog3_o_a03 = .FALSE. P_biog4_o_a03 = 1 ; F_biog4_o_a03 = .FALSE. P_asoax_a03 = 1 ; F_asoax_a03 = .FALSE. P_asoa1_a03 = 1 ; F_asoa1_a03 = .FALSE. P_asoa2_a03 = 1 ; F_asoa2_a03 = .FALSE. P_asoa3_a03 = 1 ; F_asoa3_a03 = .FALSE. P_asoa4_a03 = 1 ; F_asoa4_a03 = .FALSE. P_bsoax_a03 = 1 ; F_bsoax_a03 = .FALSE. P_bsoa1_a03 = 1 ; F_bsoa1_a03 = .FALSE. P_bsoa2_a03 = 1 ; F_bsoa2_a03 = .FALSE. P_bsoa3_a03 = 1 ; F_bsoa3_a03 = .FALSE. P_bsoa4_a03 = 1 ; F_bsoa4_a03 = .FALSE. P_glysoa_r1_a03 = 1 ; F_glysoa_r1_a03 = .FALSE. P_glysoa_r2_a03 = 1 ; F_glysoa_r2_a03 = .FALSE. P_glysoa_sfc_a03 = 1 ; F_glysoa_sfc_a03 = .FALSE. P_glysoa_nh4_a03 = 1 ; F_glysoa_nh4_a03 = .FALSE. P_glysoa_oh_a03 = 1 ; F_glysoa_oh_a03 = .FALSE. P_cl_a03 = 1 ; F_cl_a03 = .FALSE. P_msa_a03 = 1 ; F_msa_a03 = .FALSE. P_co3_a03 = 1 ; F_co3_a03 = .FALSE. P_nh4_a03 = 1 ; F_nh4_a03 = .FALSE. P_na_a03 = 1 ; F_na_a03 = .FALSE. P_ca_a03 = 1 ; F_ca_a03 = .FALSE. P_oin_a03 = 1 ; F_oin_a03 = .FALSE. P_oc_a03 = 1 ; F_oc_a03 = .FALSE. P_bc_a03 = 1 ; F_bc_a03 = .FALSE. P_hysw_a03 = 1 ; F_hysw_a03 = .FALSE. P_water_a03 = 1 ; F_water_a03 = .FALSE. P_num_a03 = 1 ; F_num_a03 = .FALSE. P_so4_a04 = 1 ; F_so4_a04 = .FALSE. P_no3_a04 = 1 ; F_no3_a04 = .FALSE. P_aro1_a04 = 1 ; F_aro1_a04 = .FALSE. P_aro2_a04 = 1 ; F_aro2_a04 = .FALSE. P_alk1_a04 = 1 ; F_alk1_a04 = .FALSE. P_ole1_a04 = 1 ; F_ole1_a04 = .FALSE. P_api1_a04 = 1 ; F_api1_a04 = .FALSE. P_api2_a04 = 1 ; F_api2_a04 = .FALSE. P_lim1_a04 = 1 ; F_lim1_a04 = .FALSE. P_lim2_a04 = 1 ; F_lim2_a04 = .FALSE. P_pcg1_b_c_a04 = 1 ; F_pcg1_b_c_a04 = .FALSE. P_pcg2_b_c_a04 = 1 ; F_pcg2_b_c_a04 = .FALSE. P_pcg3_b_c_a04 = 1 ; F_pcg3_b_c_a04 = .FALSE. P_pcg4_b_c_a04 = 1 ; F_pcg4_b_c_a04 = .FALSE. P_pcg5_b_c_a04 = 1 ; F_pcg5_b_c_a04 = .FALSE. P_pcg6_b_c_a04 = 1 ; F_pcg6_b_c_a04 = .FALSE. P_pcg7_b_c_a04 = 1 ; F_pcg7_b_c_a04 = .FALSE. P_pcg8_b_c_a04 = 1 ; F_pcg8_b_c_a04 = .FALSE. P_pcg9_b_c_a04 = 1 ; F_pcg9_b_c_a04 = .FALSE. P_pcg1_b_o_a04 = 1 ; F_pcg1_b_o_a04 = .FALSE. P_pcg2_b_o_a04 = 1 ; F_pcg2_b_o_a04 = .FALSE. P_pcg3_b_o_a04 = 1 ; F_pcg3_b_o_a04 = .FALSE. P_pcg4_b_o_a04 = 1 ; F_pcg4_b_o_a04 = .FALSE. P_pcg5_b_o_a04 = 1 ; F_pcg5_b_o_a04 = .FALSE. P_pcg6_b_o_a04 = 1 ; F_pcg6_b_o_a04 = .FALSE. P_pcg7_b_o_a04 = 1 ; F_pcg7_b_o_a04 = .FALSE. P_pcg8_b_o_a04 = 1 ; F_pcg8_b_o_a04 = .FALSE. P_pcg9_b_o_a04 = 1 ; F_pcg9_b_o_a04 = .FALSE. P_pcg1_f_c_a04 = 1 ; F_pcg1_f_c_a04 = .FALSE. P_pcg2_f_c_a04 = 1 ; F_pcg2_f_c_a04 = .FALSE. P_pcg3_f_c_a04 = 1 ; F_pcg3_f_c_a04 = .FALSE. P_pcg4_f_c_a04 = 1 ; F_pcg4_f_c_a04 = .FALSE. P_pcg5_f_c_a04 = 1 ; F_pcg5_f_c_a04 = .FALSE. P_pcg6_f_c_a04 = 1 ; F_pcg6_f_c_a04 = .FALSE. P_pcg7_f_c_a04 = 1 ; F_pcg7_f_c_a04 = .FALSE. P_pcg8_f_c_a04 = 1 ; F_pcg8_f_c_a04 = .FALSE. P_pcg9_f_c_a04 = 1 ; F_pcg9_f_c_a04 = .FALSE. P_pcg1_f_o_a04 = 1 ; F_pcg1_f_o_a04 = .FALSE. P_pcg2_f_o_a04 = 1 ; F_pcg2_f_o_a04 = .FALSE. P_pcg3_f_o_a04 = 1 ; F_pcg3_f_o_a04 = .FALSE. P_pcg4_f_o_a04 = 1 ; F_pcg4_f_o_a04 = .FALSE. P_pcg5_f_o_a04 = 1 ; F_pcg5_f_o_a04 = .FALSE. P_pcg6_f_o_a04 = 1 ; F_pcg6_f_o_a04 = .FALSE. P_pcg7_f_o_a04 = 1 ; F_pcg7_f_o_a04 = .FALSE. P_pcg8_f_o_a04 = 1 ; F_pcg8_f_o_a04 = .FALSE. P_pcg9_f_o_a04 = 1 ; F_pcg9_f_o_a04 = .FALSE. P_opcg1_b_c_a04 = 1 ; F_opcg1_b_c_a04 = .FALSE. P_opcg2_b_c_a04 = 1 ; F_opcg2_b_c_a04 = .FALSE. P_opcg3_b_c_a04 = 1 ; F_opcg3_b_c_a04 = .FALSE. P_opcg4_b_c_a04 = 1 ; F_opcg4_b_c_a04 = .FALSE. P_opcg5_b_c_a04 = 1 ; F_opcg5_b_c_a04 = .FALSE. P_opcg6_b_c_a04 = 1 ; F_opcg6_b_c_a04 = .FALSE. P_opcg7_b_c_a04 = 1 ; F_opcg7_b_c_a04 = .FALSE. P_opcg8_b_c_a04 = 1 ; F_opcg8_b_c_a04 = .FALSE. P_opcg1_b_o_a04 = 1 ; F_opcg1_b_o_a04 = .FALSE. P_opcg2_b_o_a04 = 1 ; F_opcg2_b_o_a04 = .FALSE. P_opcg3_b_o_a04 = 1 ; F_opcg3_b_o_a04 = .FALSE. P_opcg4_b_o_a04 = 1 ; F_opcg4_b_o_a04 = .FALSE. P_opcg5_b_o_a04 = 1 ; F_opcg5_b_o_a04 = .FALSE. P_opcg6_b_o_a04 = 1 ; F_opcg6_b_o_a04 = .FALSE. P_opcg7_b_o_a04 = 1 ; F_opcg7_b_o_a04 = .FALSE. P_opcg8_b_o_a04 = 1 ; F_opcg8_b_o_a04 = .FALSE. P_opcg1_f_c_a04 = 1 ; F_opcg1_f_c_a04 = .FALSE. P_opcg2_f_c_a04 = 1 ; F_opcg2_f_c_a04 = .FALSE. P_opcg3_f_c_a04 = 1 ; F_opcg3_f_c_a04 = .FALSE. P_opcg4_f_c_a04 = 1 ; F_opcg4_f_c_a04 = .FALSE. P_opcg5_f_c_a04 = 1 ; F_opcg5_f_c_a04 = .FALSE. P_opcg6_f_c_a04 = 1 ; F_opcg6_f_c_a04 = .FALSE. P_opcg7_f_c_a04 = 1 ; F_opcg7_f_c_a04 = .FALSE. P_opcg8_f_c_a04 = 1 ; F_opcg8_f_c_a04 = .FALSE. P_opcg1_f_o_a04 = 1 ; F_opcg1_f_o_a04 = .FALSE. P_opcg2_f_o_a04 = 1 ; F_opcg2_f_o_a04 = .FALSE. P_opcg3_f_o_a04 = 1 ; F_opcg3_f_o_a04 = .FALSE. P_opcg4_f_o_a04 = 1 ; F_opcg4_f_o_a04 = .FALSE. P_opcg5_f_o_a04 = 1 ; F_opcg5_f_o_a04 = .FALSE. P_opcg6_f_o_a04 = 1 ; F_opcg6_f_o_a04 = .FALSE. P_opcg7_f_o_a04 = 1 ; F_opcg7_f_o_a04 = .FALSE. P_opcg8_f_o_a04 = 1 ; F_opcg8_f_o_a04 = .FALSE. P_smpa_a04 = 1 ; F_smpa_a04 = .FALSE. P_smpbb_a04 = 1 ; F_smpbb_a04 = .FALSE. P_ant1_c_a04 = 1 ; F_ant1_c_a04 = .FALSE. P_ant2_c_a04 = 1 ; F_ant2_c_a04 = .FALSE. P_ant3_c_a04 = 1 ; F_ant3_c_a04 = .FALSE. P_ant4_c_a04 = 1 ; F_ant4_c_a04 = .FALSE. P_ant1_o_a04 = 1 ; F_ant1_o_a04 = .FALSE. P_ant2_o_a04 = 1 ; F_ant2_o_a04 = .FALSE. P_ant3_o_a04 = 1 ; F_ant3_o_a04 = .FALSE. P_ant4_o_a04 = 1 ; F_ant4_o_a04 = .FALSE. P_biog1_c_a04 = 1 ; F_biog1_c_a04 = .FALSE. P_biog2_c_a04 = 1 ; F_biog2_c_a04 = .FALSE. P_biog3_c_a04 = 1 ; F_biog3_c_a04 = .FALSE. P_biog4_c_a04 = 1 ; F_biog4_c_a04 = .FALSE. P_biog1_o_a04 = 1 ; F_biog1_o_a04 = .FALSE. P_biog2_o_a04 = 1 ; F_biog2_o_a04 = .FALSE. P_biog3_o_a04 = 1 ; F_biog3_o_a04 = .FALSE. P_biog4_o_a04 = 1 ; F_biog4_o_a04 = .FALSE. P_asoax_a04 = 1 ; F_asoax_a04 = .FALSE. P_asoa1_a04 = 1 ; F_asoa1_a04 = .FALSE. P_asoa2_a04 = 1 ; F_asoa2_a04 = .FALSE. P_asoa3_a04 = 1 ; F_asoa3_a04 = .FALSE. P_asoa4_a04 = 1 ; F_asoa4_a04 = .FALSE. P_bsoax_a04 = 1 ; F_bsoax_a04 = .FALSE. P_bsoa1_a04 = 1 ; F_bsoa1_a04 = .FALSE. P_bsoa2_a04 = 1 ; F_bsoa2_a04 = .FALSE. P_bsoa3_a04 = 1 ; F_bsoa3_a04 = .FALSE. P_bsoa4_a04 = 1 ; F_bsoa4_a04 = .FALSE. P_glysoa_r1_a04 = 1 ; F_glysoa_r1_a04 = .FALSE. P_glysoa_r2_a04 = 1 ; F_glysoa_r2_a04 = .FALSE. P_glysoa_sfc_a04 = 1 ; F_glysoa_sfc_a04 = .FALSE. P_glysoa_nh4_a04 = 1 ; F_glysoa_nh4_a04 = .FALSE. P_glysoa_oh_a04 = 1 ; F_glysoa_oh_a04 = .FALSE. P_cl_a04 = 1 ; F_cl_a04 = .FALSE. P_msa_a04 = 1 ; F_msa_a04 = .FALSE. P_co3_a04 = 1 ; F_co3_a04 = .FALSE. P_nh4_a04 = 1 ; F_nh4_a04 = .FALSE. P_na_a04 = 1 ; F_na_a04 = .FALSE. P_ca_a04 = 1 ; F_ca_a04 = .FALSE. P_oin_a04 = 1 ; F_oin_a04 = .FALSE. P_oc_a04 = 1 ; F_oc_a04 = .FALSE. P_bc_a04 = 1 ; F_bc_a04 = .FALSE. P_hysw_a04 = 1 ; F_hysw_a04 = .FALSE. P_water_a04 = 1 ; F_water_a04 = .FALSE. P_num_a04 = 1 ; F_num_a04 = .FALSE. P_so4_a05 = 1 ; F_so4_a05 = .FALSE. P_no3_a05 = 1 ; F_no3_a05 = .FALSE. P_aro1_a05 = 1 ; F_aro1_a05 = .FALSE. P_aro2_a05 = 1 ; F_aro2_a05 = .FALSE. P_alk1_a05 = 1 ; F_alk1_a05 = .FALSE. P_ole1_a05 = 1 ; F_ole1_a05 = .FALSE. P_api1_a05 = 1 ; F_api1_a05 = .FALSE. P_api2_a05 = 1 ; F_api2_a05 = .FALSE. P_lim1_a05 = 1 ; F_lim1_a05 = .FALSE. P_lim2_a05 = 1 ; F_lim2_a05 = .FALSE. P_pcg1_b_c_a05 = 1 ; F_pcg1_b_c_a05 = .FALSE. P_pcg2_b_c_a05 = 1 ; F_pcg2_b_c_a05 = .FALSE. P_pcg3_b_c_a05 = 1 ; F_pcg3_b_c_a05 = .FALSE. P_pcg4_b_c_a05 = 1 ; F_pcg4_b_c_a05 = .FALSE. P_pcg5_b_c_a05 = 1 ; F_pcg5_b_c_a05 = .FALSE. P_pcg6_b_c_a05 = 1 ; F_pcg6_b_c_a05 = .FALSE. P_pcg7_b_c_a05 = 1 ; F_pcg7_b_c_a05 = .FALSE. P_pcg8_b_c_a05 = 1 ; F_pcg8_b_c_a05 = .FALSE. P_pcg9_b_c_a05 = 1 ; F_pcg9_b_c_a05 = .FALSE. P_pcg1_b_o_a05 = 1 ; F_pcg1_b_o_a05 = .FALSE. P_pcg2_b_o_a05 = 1 ; F_pcg2_b_o_a05 = .FALSE. P_pcg3_b_o_a05 = 1 ; F_pcg3_b_o_a05 = .FALSE. P_pcg4_b_o_a05 = 1 ; F_pcg4_b_o_a05 = .FALSE. P_pcg5_b_o_a05 = 1 ; F_pcg5_b_o_a05 = .FALSE. P_pcg6_b_o_a05 = 1 ; F_pcg6_b_o_a05 = .FALSE. P_pcg7_b_o_a05 = 1 ; F_pcg7_b_o_a05 = .FALSE. P_pcg8_b_o_a05 = 1 ; F_pcg8_b_o_a05 = .FALSE. P_pcg9_b_o_a05 = 1 ; F_pcg9_b_o_a05 = .FALSE. P_pcg1_f_c_a05 = 1 ; F_pcg1_f_c_a05 = .FALSE. P_pcg2_f_c_a05 = 1 ; F_pcg2_f_c_a05 = .FALSE. P_pcg3_f_c_a05 = 1 ; F_pcg3_f_c_a05 = .FALSE. P_pcg4_f_c_a05 = 1 ; F_pcg4_f_c_a05 = .FALSE. P_pcg5_f_c_a05 = 1 ; F_pcg5_f_c_a05 = .FALSE. P_pcg6_f_c_a05 = 1 ; F_pcg6_f_c_a05 = .FALSE. P_pcg7_f_c_a05 = 1 ; F_pcg7_f_c_a05 = .FALSE. P_pcg8_f_c_a05 = 1 ; F_pcg8_f_c_a05 = .FALSE. P_pcg9_f_c_a05 = 1 ; F_pcg9_f_c_a05 = .FALSE. P_pcg1_f_o_a05 = 1 ; F_pcg1_f_o_a05 = .FALSE. P_pcg2_f_o_a05 = 1 ; F_pcg2_f_o_a05 = .FALSE. P_pcg3_f_o_a05 = 1 ; F_pcg3_f_o_a05 = .FALSE. P_pcg4_f_o_a05 = 1 ; F_pcg4_f_o_a05 = .FALSE. P_pcg5_f_o_a05 = 1 ; F_pcg5_f_o_a05 = .FALSE. P_pcg6_f_o_a05 = 1 ; F_pcg6_f_o_a05 = .FALSE. P_pcg7_f_o_a05 = 1 ; F_pcg7_f_o_a05 = .FALSE. P_pcg8_f_o_a05 = 1 ; F_pcg8_f_o_a05 = .FALSE. P_pcg9_f_o_a05 = 1 ; F_pcg9_f_o_a05 = .FALSE. P_opcg1_b_c_a05 = 1 ; F_opcg1_b_c_a05 = .FALSE. P_opcg2_b_c_a05 = 1 ; F_opcg2_b_c_a05 = .FALSE. P_opcg3_b_c_a05 = 1 ; F_opcg3_b_c_a05 = .FALSE. P_opcg4_b_c_a05 = 1 ; F_opcg4_b_c_a05 = .FALSE. P_opcg5_b_c_a05 = 1 ; F_opcg5_b_c_a05 = .FALSE. P_opcg6_b_c_a05 = 1 ; F_opcg6_b_c_a05 = .FALSE. P_opcg7_b_c_a05 = 1 ; F_opcg7_b_c_a05 = .FALSE. P_opcg8_b_c_a05 = 1 ; F_opcg8_b_c_a05 = .FALSE. P_opcg1_b_o_a05 = 1 ; F_opcg1_b_o_a05 = .FALSE. P_opcg2_b_o_a05 = 1 ; F_opcg2_b_o_a05 = .FALSE. P_opcg3_b_o_a05 = 1 ; F_opcg3_b_o_a05 = .FALSE. P_opcg4_b_o_a05 = 1 ; F_opcg4_b_o_a05 = .FALSE. P_opcg5_b_o_a05 = 1 ; F_opcg5_b_o_a05 = .FALSE. P_opcg6_b_o_a05 = 1 ; F_opcg6_b_o_a05 = .FALSE. P_opcg7_b_o_a05 = 1 ; F_opcg7_b_o_a05 = .FALSE. P_opcg8_b_o_a05 = 1 ; F_opcg8_b_o_a05 = .FALSE. P_opcg1_f_c_a05 = 1 ; F_opcg1_f_c_a05 = .FALSE. P_opcg2_f_c_a05 = 1 ; F_opcg2_f_c_a05 = .FALSE. P_opcg3_f_c_a05 = 1 ; F_opcg3_f_c_a05 = .FALSE. P_opcg4_f_c_a05 = 1 ; F_opcg4_f_c_a05 = .FALSE. P_opcg5_f_c_a05 = 1 ; F_opcg5_f_c_a05 = .FALSE. P_opcg6_f_c_a05 = 1 ; F_opcg6_f_c_a05 = .FALSE. P_opcg7_f_c_a05 = 1 ; F_opcg7_f_c_a05 = .FALSE. P_opcg8_f_c_a05 = 1 ; F_opcg8_f_c_a05 = .FALSE. P_opcg1_f_o_a05 = 1 ; F_opcg1_f_o_a05 = .FALSE. P_opcg2_f_o_a05 = 1 ; F_opcg2_f_o_a05 = .FALSE. P_opcg3_f_o_a05 = 1 ; F_opcg3_f_o_a05 = .FALSE. P_opcg4_f_o_a05 = 1 ; F_opcg4_f_o_a05 = .FALSE. P_opcg5_f_o_a05 = 1 ; F_opcg5_f_o_a05 = .FALSE. P_opcg6_f_o_a05 = 1 ; F_opcg6_f_o_a05 = .FALSE. P_opcg7_f_o_a05 = 1 ; F_opcg7_f_o_a05 = .FALSE. P_opcg8_f_o_a05 = 1 ; F_opcg8_f_o_a05 = .FALSE. P_ant1_c_a05 = 1 ; F_ant1_c_a05 = .FALSE. P_ant2_c_a05 = 1 ; F_ant2_c_a05 = .FALSE. P_ant3_c_a05 = 1 ; F_ant3_c_a05 = .FALSE. P_ant4_c_a05 = 1 ; F_ant4_c_a05 = .FALSE. P_ant1_o_a05 = 1 ; F_ant1_o_a05 = .FALSE. P_ant2_o_a05 = 1 ; F_ant2_o_a05 = .FALSE. P_ant3_o_a05 = 1 ; F_ant3_o_a05 = .FALSE. P_ant4_o_a05 = 1 ; F_ant4_o_a05 = .FALSE. P_biog1_c_a05 = 1 ; F_biog1_c_a05 = .FALSE. P_biog2_c_a05 = 1 ; F_biog2_c_a05 = .FALSE. P_biog3_c_a05 = 1 ; F_biog3_c_a05 = .FALSE. P_biog4_c_a05 = 1 ; F_biog4_c_a05 = .FALSE. P_biog1_o_a05 = 1 ; F_biog1_o_a05 = .FALSE. P_biog2_o_a05 = 1 ; F_biog2_o_a05 = .FALSE. P_biog3_o_a05 = 1 ; F_biog3_o_a05 = .FALSE. P_biog4_o_a05 = 1 ; F_biog4_o_a05 = .FALSE. P_cl_a05 = 1 ; F_cl_a05 = .FALSE. P_msa_a05 = 1 ; F_msa_a05 = .FALSE. P_co3_a05 = 1 ; F_co3_a05 = .FALSE. P_nh4_a05 = 1 ; F_nh4_a05 = .FALSE. P_na_a05 = 1 ; F_na_a05 = .FALSE. P_ca_a05 = 1 ; F_ca_a05 = .FALSE. P_oin_a05 = 1 ; F_oin_a05 = .FALSE. P_oc_a05 = 1 ; F_oc_a05 = .FALSE. P_bc_a05 = 1 ; F_bc_a05 = .FALSE. P_hysw_a05 = 1 ; F_hysw_a05 = .FALSE. P_water_a05 = 1 ; F_water_a05 = .FALSE. P_num_a05 = 1 ; F_num_a05 = .FALSE. P_so4_a06 = 1 ; F_so4_a06 = .FALSE. P_no3_a06 = 1 ; F_no3_a06 = .FALSE. P_aro1_a06 = 1 ; F_aro1_a06 = .FALSE. P_aro2_a06 = 1 ; F_aro2_a06 = .FALSE. P_alk1_a06 = 1 ; F_alk1_a06 = .FALSE. P_ole1_a06 = 1 ; F_ole1_a06 = .FALSE. P_api1_a06 = 1 ; F_api1_a06 = .FALSE. P_api2_a06 = 1 ; F_api2_a06 = .FALSE. P_lim1_a06 = 1 ; F_lim1_a06 = .FALSE. P_lim2_a06 = 1 ; F_lim2_a06 = .FALSE. P_pcg1_b_c_a06 = 1 ; F_pcg1_b_c_a06 = .FALSE. P_pcg2_b_c_a06 = 1 ; F_pcg2_b_c_a06 = .FALSE. P_pcg3_b_c_a06 = 1 ; F_pcg3_b_c_a06 = .FALSE. P_pcg4_b_c_a06 = 1 ; F_pcg4_b_c_a06 = .FALSE. P_pcg5_b_c_a06 = 1 ; F_pcg5_b_c_a06 = .FALSE. P_pcg6_b_c_a06 = 1 ; F_pcg6_b_c_a06 = .FALSE. P_pcg7_b_c_a06 = 1 ; F_pcg7_b_c_a06 = .FALSE. P_pcg8_b_c_a06 = 1 ; F_pcg8_b_c_a06 = .FALSE. P_pcg9_b_c_a06 = 1 ; F_pcg9_b_c_a06 = .FALSE. P_pcg1_b_o_a06 = 1 ; F_pcg1_b_o_a06 = .FALSE. P_pcg2_b_o_a06 = 1 ; F_pcg2_b_o_a06 = .FALSE. P_pcg3_b_o_a06 = 1 ; F_pcg3_b_o_a06 = .FALSE. P_pcg4_b_o_a06 = 1 ; F_pcg4_b_o_a06 = .FALSE. P_pcg5_b_o_a06 = 1 ; F_pcg5_b_o_a06 = .FALSE. P_pcg6_b_o_a06 = 1 ; F_pcg6_b_o_a06 = .FALSE. P_pcg7_b_o_a06 = 1 ; F_pcg7_b_o_a06 = .FALSE. P_pcg8_b_o_a06 = 1 ; F_pcg8_b_o_a06 = .FALSE. P_pcg9_b_o_a06 = 1 ; F_pcg9_b_o_a06 = .FALSE. P_pcg1_f_c_a06 = 1 ; F_pcg1_f_c_a06 = .FALSE. P_pcg2_f_c_a06 = 1 ; F_pcg2_f_c_a06 = .FALSE. P_pcg3_f_c_a06 = 1 ; F_pcg3_f_c_a06 = .FALSE. P_pcg4_f_c_a06 = 1 ; F_pcg4_f_c_a06 = .FALSE. P_pcg5_f_c_a06 = 1 ; F_pcg5_f_c_a06 = .FALSE. P_pcg6_f_c_a06 = 1 ; F_pcg6_f_c_a06 = .FALSE. P_pcg7_f_c_a06 = 1 ; F_pcg7_f_c_a06 = .FALSE. P_pcg8_f_c_a06 = 1 ; F_pcg8_f_c_a06 = .FALSE. P_pcg9_f_c_a06 = 1 ; F_pcg9_f_c_a06 = .FALSE. P_pcg1_f_o_a06 = 1 ; F_pcg1_f_o_a06 = .FALSE. P_pcg2_f_o_a06 = 1 ; F_pcg2_f_o_a06 = .FALSE. P_pcg3_f_o_a06 = 1 ; F_pcg3_f_o_a06 = .FALSE. P_pcg4_f_o_a06 = 1 ; F_pcg4_f_o_a06 = .FALSE. P_pcg5_f_o_a06 = 1 ; F_pcg5_f_o_a06 = .FALSE. P_pcg6_f_o_a06 = 1 ; F_pcg6_f_o_a06 = .FALSE. P_pcg7_f_o_a06 = 1 ; F_pcg7_f_o_a06 = .FALSE. P_pcg8_f_o_a06 = 1 ; F_pcg8_f_o_a06 = .FALSE. P_pcg9_f_o_a06 = 1 ; F_pcg9_f_o_a06 = .FALSE. P_opcg1_b_c_a06 = 1 ; F_opcg1_b_c_a06 = .FALSE. P_opcg2_b_c_a06 = 1 ; F_opcg2_b_c_a06 = .FALSE. P_opcg3_b_c_a06 = 1 ; F_opcg3_b_c_a06 = .FALSE. P_opcg4_b_c_a06 = 1 ; F_opcg4_b_c_a06 = .FALSE. P_opcg5_b_c_a06 = 1 ; F_opcg5_b_c_a06 = .FALSE. P_opcg6_b_c_a06 = 1 ; F_opcg6_b_c_a06 = .FALSE. P_opcg7_b_c_a06 = 1 ; F_opcg7_b_c_a06 = .FALSE. P_opcg8_b_c_a06 = 1 ; F_opcg8_b_c_a06 = .FALSE. P_opcg1_b_o_a06 = 1 ; F_opcg1_b_o_a06 = .FALSE. P_opcg2_b_o_a06 = 1 ; F_opcg2_b_o_a06 = .FALSE. P_opcg3_b_o_a06 = 1 ; F_opcg3_b_o_a06 = .FALSE. P_opcg4_b_o_a06 = 1 ; F_opcg4_b_o_a06 = .FALSE. P_opcg5_b_o_a06 = 1 ; F_opcg5_b_o_a06 = .FALSE. P_opcg6_b_o_a06 = 1 ; F_opcg6_b_o_a06 = .FALSE. P_opcg7_b_o_a06 = 1 ; F_opcg7_b_o_a06 = .FALSE. P_opcg8_b_o_a06 = 1 ; F_opcg8_b_o_a06 = .FALSE. P_opcg1_f_c_a06 = 1 ; F_opcg1_f_c_a06 = .FALSE. P_opcg2_f_c_a06 = 1 ; F_opcg2_f_c_a06 = .FALSE. P_opcg3_f_c_a06 = 1 ; F_opcg3_f_c_a06 = .FALSE. P_opcg4_f_c_a06 = 1 ; F_opcg4_f_c_a06 = .FALSE. P_opcg5_f_c_a06 = 1 ; F_opcg5_f_c_a06 = .FALSE. P_opcg6_f_c_a06 = 1 ; F_opcg6_f_c_a06 = .FALSE. P_opcg7_f_c_a06 = 1 ; F_opcg7_f_c_a06 = .FALSE. P_opcg8_f_c_a06 = 1 ; F_opcg8_f_c_a06 = .FALSE. P_opcg1_f_o_a06 = 1 ; F_opcg1_f_o_a06 = .FALSE. P_opcg2_f_o_a06 = 1 ; F_opcg2_f_o_a06 = .FALSE. P_opcg3_f_o_a06 = 1 ; F_opcg3_f_o_a06 = .FALSE. P_opcg4_f_o_a06 = 1 ; F_opcg4_f_o_a06 = .FALSE. P_opcg5_f_o_a06 = 1 ; F_opcg5_f_o_a06 = .FALSE. P_opcg6_f_o_a06 = 1 ; F_opcg6_f_o_a06 = .FALSE. P_opcg7_f_o_a06 = 1 ; F_opcg7_f_o_a06 = .FALSE. P_opcg8_f_o_a06 = 1 ; F_opcg8_f_o_a06 = .FALSE. P_ant1_c_a06 = 1 ; F_ant1_c_a06 = .FALSE. P_ant2_c_a06 = 1 ; F_ant2_c_a06 = .FALSE. P_ant3_c_a06 = 1 ; F_ant3_c_a06 = .FALSE. P_ant4_c_a06 = 1 ; F_ant4_c_a06 = .FALSE. P_ant1_o_a06 = 1 ; F_ant1_o_a06 = .FALSE. P_ant2_o_a06 = 1 ; F_ant2_o_a06 = .FALSE. P_ant3_o_a06 = 1 ; F_ant3_o_a06 = .FALSE. P_ant4_o_a06 = 1 ; F_ant4_o_a06 = .FALSE. P_biog1_c_a06 = 1 ; F_biog1_c_a06 = .FALSE. P_biog2_c_a06 = 1 ; F_biog2_c_a06 = .FALSE. P_biog3_c_a06 = 1 ; F_biog3_c_a06 = .FALSE. P_biog4_c_a06 = 1 ; F_biog4_c_a06 = .FALSE. P_biog1_o_a06 = 1 ; F_biog1_o_a06 = .FALSE. P_biog2_o_a06 = 1 ; F_biog2_o_a06 = .FALSE. P_biog3_o_a06 = 1 ; F_biog3_o_a06 = .FALSE. P_biog4_o_a06 = 1 ; F_biog4_o_a06 = .FALSE. P_cl_a06 = 1 ; F_cl_a06 = .FALSE. P_msa_a06 = 1 ; F_msa_a06 = .FALSE. P_co3_a06 = 1 ; F_co3_a06 = .FALSE. P_nh4_a06 = 1 ; F_nh4_a06 = .FALSE. P_na_a06 = 1 ; F_na_a06 = .FALSE. P_ca_a06 = 1 ; F_ca_a06 = .FALSE. P_oin_a06 = 1 ; F_oin_a06 = .FALSE. P_oc_a06 = 1 ; F_oc_a06 = .FALSE. P_bc_a06 = 1 ; F_bc_a06 = .FALSE. P_hysw_a06 = 1 ; F_hysw_a06 = .FALSE. P_water_a06 = 1 ; F_water_a06 = .FALSE. P_num_a06 = 1 ; F_num_a06 = .FALSE. P_so4_a07 = 1 ; F_so4_a07 = .FALSE. P_no3_a07 = 1 ; F_no3_a07 = .FALSE. P_aro1_a07 = 1 ; F_aro1_a07 = .FALSE. P_aro2_a07 = 1 ; F_aro2_a07 = .FALSE. P_alk1_a07 = 1 ; F_alk1_a07 = .FALSE. P_ole1_a07 = 1 ; F_ole1_a07 = .FALSE. P_api1_a07 = 1 ; F_api1_a07 = .FALSE. P_api2_a07 = 1 ; F_api2_a07 = .FALSE. P_lim1_a07 = 1 ; F_lim1_a07 = .FALSE. P_lim2_a07 = 1 ; F_lim2_a07 = .FALSE. P_pcg1_b_c_a07 = 1 ; F_pcg1_b_c_a07 = .FALSE. P_pcg2_b_c_a07 = 1 ; F_pcg2_b_c_a07 = .FALSE. P_pcg3_b_c_a07 = 1 ; F_pcg3_b_c_a07 = .FALSE. P_pcg4_b_c_a07 = 1 ; F_pcg4_b_c_a07 = .FALSE. P_pcg5_b_c_a07 = 1 ; F_pcg5_b_c_a07 = .FALSE. P_pcg6_b_c_a07 = 1 ; F_pcg6_b_c_a07 = .FALSE. P_pcg7_b_c_a07 = 1 ; F_pcg7_b_c_a07 = .FALSE. P_pcg8_b_c_a07 = 1 ; F_pcg8_b_c_a07 = .FALSE. P_pcg9_b_c_a07 = 1 ; F_pcg9_b_c_a07 = .FALSE. P_pcg1_b_o_a07 = 1 ; F_pcg1_b_o_a07 = .FALSE. P_pcg2_b_o_a07 = 1 ; F_pcg2_b_o_a07 = .FALSE. P_pcg3_b_o_a07 = 1 ; F_pcg3_b_o_a07 = .FALSE. P_pcg4_b_o_a07 = 1 ; F_pcg4_b_o_a07 = .FALSE. P_pcg5_b_o_a07 = 1 ; F_pcg5_b_o_a07 = .FALSE. P_pcg6_b_o_a07 = 1 ; F_pcg6_b_o_a07 = .FALSE. P_pcg7_b_o_a07 = 1 ; F_pcg7_b_o_a07 = .FALSE. P_pcg8_b_o_a07 = 1 ; F_pcg8_b_o_a07 = .FALSE. P_pcg9_b_o_a07 = 1 ; F_pcg9_b_o_a07 = .FALSE. P_pcg1_f_c_a07 = 1 ; F_pcg1_f_c_a07 = .FALSE. P_pcg2_f_c_a07 = 1 ; F_pcg2_f_c_a07 = .FALSE. P_pcg3_f_c_a07 = 1 ; F_pcg3_f_c_a07 = .FALSE. P_pcg4_f_c_a07 = 1 ; F_pcg4_f_c_a07 = .FALSE. P_pcg5_f_c_a07 = 1 ; F_pcg5_f_c_a07 = .FALSE. P_pcg6_f_c_a07 = 1 ; F_pcg6_f_c_a07 = .FALSE. P_pcg7_f_c_a07 = 1 ; F_pcg7_f_c_a07 = .FALSE. P_pcg8_f_c_a07 = 1 ; F_pcg8_f_c_a07 = .FALSE. P_pcg9_f_c_a07 = 1 ; F_pcg9_f_c_a07 = .FALSE. P_pcg1_f_o_a07 = 1 ; F_pcg1_f_o_a07 = .FALSE. P_pcg2_f_o_a07 = 1 ; F_pcg2_f_o_a07 = .FALSE. P_pcg3_f_o_a07 = 1 ; F_pcg3_f_o_a07 = .FALSE. P_pcg4_f_o_a07 = 1 ; F_pcg4_f_o_a07 = .FALSE. P_pcg5_f_o_a07 = 1 ; F_pcg5_f_o_a07 = .FALSE. P_pcg6_f_o_a07 = 1 ; F_pcg6_f_o_a07 = .FALSE. P_pcg7_f_o_a07 = 1 ; F_pcg7_f_o_a07 = .FALSE. P_pcg8_f_o_a07 = 1 ; F_pcg8_f_o_a07 = .FALSE. P_pcg9_f_o_a07 = 1 ; F_pcg9_f_o_a07 = .FALSE. P_opcg1_b_c_a07 = 1 ; F_opcg1_b_c_a07 = .FALSE. P_opcg2_b_c_a07 = 1 ; F_opcg2_b_c_a07 = .FALSE. P_opcg3_b_c_a07 = 1 ; F_opcg3_b_c_a07 = .FALSE. P_opcg4_b_c_a07 = 1 ; F_opcg4_b_c_a07 = .FALSE. P_opcg5_b_c_a07 = 1 ; F_opcg5_b_c_a07 = .FALSE. P_opcg6_b_c_a07 = 1 ; F_opcg6_b_c_a07 = .FALSE. P_opcg7_b_c_a07 = 1 ; F_opcg7_b_c_a07 = .FALSE. P_opcg8_b_c_a07 = 1 ; F_opcg8_b_c_a07 = .FALSE. P_opcg1_b_o_a07 = 1 ; F_opcg1_b_o_a07 = .FALSE. P_opcg2_b_o_a07 = 1 ; F_opcg2_b_o_a07 = .FALSE. P_opcg3_b_o_a07 = 1 ; F_opcg3_b_o_a07 = .FALSE. P_opcg4_b_o_a07 = 1 ; F_opcg4_b_o_a07 = .FALSE. P_opcg5_b_o_a07 = 1 ; F_opcg5_b_o_a07 = .FALSE. P_opcg6_b_o_a07 = 1 ; F_opcg6_b_o_a07 = .FALSE. P_opcg7_b_o_a07 = 1 ; F_opcg7_b_o_a07 = .FALSE. P_opcg8_b_o_a07 = 1 ; F_opcg8_b_o_a07 = .FALSE. P_opcg1_f_c_a07 = 1 ; F_opcg1_f_c_a07 = .FALSE. P_opcg2_f_c_a07 = 1 ; F_opcg2_f_c_a07 = .FALSE. P_opcg3_f_c_a07 = 1 ; F_opcg3_f_c_a07 = .FALSE. P_opcg4_f_c_a07 = 1 ; F_opcg4_f_c_a07 = .FALSE. P_opcg5_f_c_a07 = 1 ; F_opcg5_f_c_a07 = .FALSE. P_opcg6_f_c_a07 = 1 ; F_opcg6_f_c_a07 = .FALSE. P_opcg7_f_c_a07 = 1 ; F_opcg7_f_c_a07 = .FALSE. P_opcg8_f_c_a07 = 1 ; F_opcg8_f_c_a07 = .FALSE. P_opcg1_f_o_a07 = 1 ; F_opcg1_f_o_a07 = .FALSE. P_opcg2_f_o_a07 = 1 ; F_opcg2_f_o_a07 = .FALSE. P_opcg3_f_o_a07 = 1 ; F_opcg3_f_o_a07 = .FALSE. P_opcg4_f_o_a07 = 1 ; F_opcg4_f_o_a07 = .FALSE. P_opcg5_f_o_a07 = 1 ; F_opcg5_f_o_a07 = .FALSE. P_opcg6_f_o_a07 = 1 ; F_opcg6_f_o_a07 = .FALSE. P_opcg7_f_o_a07 = 1 ; F_opcg7_f_o_a07 = .FALSE. P_opcg8_f_o_a07 = 1 ; F_opcg8_f_o_a07 = .FALSE. P_ant1_c_a07 = 1 ; F_ant1_c_a07 = .FALSE. P_ant2_c_a07 = 1 ; F_ant2_c_a07 = .FALSE. P_ant3_c_a07 = 1 ; F_ant3_c_a07 = .FALSE. P_ant4_c_a07 = 1 ; F_ant4_c_a07 = .FALSE. P_ant1_o_a07 = 1 ; F_ant1_o_a07 = .FALSE. P_ant2_o_a07 = 1 ; F_ant2_o_a07 = .FALSE. P_ant3_o_a07 = 1 ; F_ant3_o_a07 = .FALSE. P_ant4_o_a07 = 1 ; F_ant4_o_a07 = .FALSE. P_biog1_c_a07 = 1 ; F_biog1_c_a07 = .FALSE. P_biog2_c_a07 = 1 ; F_biog2_c_a07 = .FALSE. P_biog3_c_a07 = 1 ; F_biog3_c_a07 = .FALSE. P_biog4_c_a07 = 1 ; F_biog4_c_a07 = .FALSE. P_biog1_o_a07 = 1 ; F_biog1_o_a07 = .FALSE. P_biog2_o_a07 = 1 ; F_biog2_o_a07 = .FALSE. P_biog3_o_a07 = 1 ; F_biog3_o_a07 = .FALSE. P_biog4_o_a07 = 1 ; F_biog4_o_a07 = .FALSE. P_cl_a07 = 1 ; F_cl_a07 = .FALSE. P_msa_a07 = 1 ; F_msa_a07 = .FALSE. P_co3_a07 = 1 ; F_co3_a07 = .FALSE. P_nh4_a07 = 1 ; F_nh4_a07 = .FALSE. P_na_a07 = 1 ; F_na_a07 = .FALSE. P_ca_a07 = 1 ; F_ca_a07 = .FALSE. P_oin_a07 = 1 ; F_oin_a07 = .FALSE. P_oc_a07 = 1 ; F_oc_a07 = .FALSE. P_bc_a07 = 1 ; F_bc_a07 = .FALSE. P_hysw_a07 = 1 ; F_hysw_a07 = .FALSE. P_water_a07 = 1 ; F_water_a07 = .FALSE. P_num_a07 = 1 ; F_num_a07 = .FALSE. P_so4_a08 = 1 ; F_so4_a08 = .FALSE. P_no3_a08 = 1 ; F_no3_a08 = .FALSE. P_aro1_a08 = 1 ; F_aro1_a08 = .FALSE. P_aro2_a08 = 1 ; F_aro2_a08 = .FALSE. P_alk1_a08 = 1 ; F_alk1_a08 = .FALSE. P_ole1_a08 = 1 ; F_ole1_a08 = .FALSE. P_api1_a08 = 1 ; F_api1_a08 = .FALSE. P_api2_a08 = 1 ; F_api2_a08 = .FALSE. P_lim1_a08 = 1 ; F_lim1_a08 = .FALSE. P_lim2_a08 = 1 ; F_lim2_a08 = .FALSE. P_pcg1_b_c_a08 = 1 ; F_pcg1_b_c_a08 = .FALSE. P_pcg2_b_c_a08 = 1 ; F_pcg2_b_c_a08 = .FALSE. P_pcg3_b_c_a08 = 1 ; F_pcg3_b_c_a08 = .FALSE. P_pcg4_b_c_a08 = 1 ; F_pcg4_b_c_a08 = .FALSE. P_pcg5_b_c_a08 = 1 ; F_pcg5_b_c_a08 = .FALSE. P_pcg6_b_c_a08 = 1 ; F_pcg6_b_c_a08 = .FALSE. P_pcg7_b_c_a08 = 1 ; F_pcg7_b_c_a08 = .FALSE. P_pcg8_b_c_a08 = 1 ; F_pcg8_b_c_a08 = .FALSE. P_pcg9_b_c_a08 = 1 ; F_pcg9_b_c_a08 = .FALSE. P_pcg1_b_o_a08 = 1 ; F_pcg1_b_o_a08 = .FALSE. P_pcg2_b_o_a08 = 1 ; F_pcg2_b_o_a08 = .FALSE. P_pcg3_b_o_a08 = 1 ; F_pcg3_b_o_a08 = .FALSE. P_pcg4_b_o_a08 = 1 ; F_pcg4_b_o_a08 = .FALSE. P_pcg5_b_o_a08 = 1 ; F_pcg5_b_o_a08 = .FALSE. P_pcg6_b_o_a08 = 1 ; F_pcg6_b_o_a08 = .FALSE. P_pcg7_b_o_a08 = 1 ; F_pcg7_b_o_a08 = .FALSE. P_pcg8_b_o_a08 = 1 ; F_pcg8_b_o_a08 = .FALSE. P_pcg9_b_o_a08 = 1 ; F_pcg9_b_o_a08 = .FALSE. P_pcg1_f_c_a08 = 1 ; F_pcg1_f_c_a08 = .FALSE. P_pcg2_f_c_a08 = 1 ; F_pcg2_f_c_a08 = .FALSE. P_pcg3_f_c_a08 = 1 ; F_pcg3_f_c_a08 = .FALSE. P_pcg4_f_c_a08 = 1 ; F_pcg4_f_c_a08 = .FALSE. P_pcg5_f_c_a08 = 1 ; F_pcg5_f_c_a08 = .FALSE. P_pcg6_f_c_a08 = 1 ; F_pcg6_f_c_a08 = .FALSE. P_pcg7_f_c_a08 = 1 ; F_pcg7_f_c_a08 = .FALSE. P_pcg8_f_c_a08 = 1 ; F_pcg8_f_c_a08 = .FALSE. P_pcg9_f_c_a08 = 1 ; F_pcg9_f_c_a08 = .FALSE. P_pcg1_f_o_a08 = 1 ; F_pcg1_f_o_a08 = .FALSE. P_pcg2_f_o_a08 = 1 ; F_pcg2_f_o_a08 = .FALSE. P_pcg3_f_o_a08 = 1 ; F_pcg3_f_o_a08 = .FALSE. P_pcg4_f_o_a08 = 1 ; F_pcg4_f_o_a08 = .FALSE. P_pcg5_f_o_a08 = 1 ; F_pcg5_f_o_a08 = .FALSE. P_pcg6_f_o_a08 = 1 ; F_pcg6_f_o_a08 = .FALSE. P_pcg7_f_o_a08 = 1 ; F_pcg7_f_o_a08 = .FALSE. P_pcg8_f_o_a08 = 1 ; F_pcg8_f_o_a08 = .FALSE. P_pcg9_f_o_a08 = 1 ; F_pcg9_f_o_a08 = .FALSE. P_opcg1_b_c_a08 = 1 ; F_opcg1_b_c_a08 = .FALSE. P_opcg2_b_c_a08 = 1 ; F_opcg2_b_c_a08 = .FALSE. P_opcg3_b_c_a08 = 1 ; F_opcg3_b_c_a08 = .FALSE. P_opcg4_b_c_a08 = 1 ; F_opcg4_b_c_a08 = .FALSE. P_opcg5_b_c_a08 = 1 ; F_opcg5_b_c_a08 = .FALSE. P_opcg6_b_c_a08 = 1 ; F_opcg6_b_c_a08 = .FALSE. P_opcg7_b_c_a08 = 1 ; F_opcg7_b_c_a08 = .FALSE. P_opcg8_b_c_a08 = 1 ; F_opcg8_b_c_a08 = .FALSE. P_opcg1_b_o_a08 = 1 ; F_opcg1_b_o_a08 = .FALSE. P_opcg2_b_o_a08 = 1 ; F_opcg2_b_o_a08 = .FALSE. P_opcg3_b_o_a08 = 1 ; F_opcg3_b_o_a08 = .FALSE. P_opcg4_b_o_a08 = 1 ; F_opcg4_b_o_a08 = .FALSE. P_opcg5_b_o_a08 = 1 ; F_opcg5_b_o_a08 = .FALSE. P_opcg6_b_o_a08 = 1 ; F_opcg6_b_o_a08 = .FALSE. P_opcg7_b_o_a08 = 1 ; F_opcg7_b_o_a08 = .FALSE. P_opcg8_b_o_a08 = 1 ; F_opcg8_b_o_a08 = .FALSE. P_opcg1_f_c_a08 = 1 ; F_opcg1_f_c_a08 = .FALSE. P_opcg2_f_c_a08 = 1 ; F_opcg2_f_c_a08 = .FALSE. P_opcg3_f_c_a08 = 1 ; F_opcg3_f_c_a08 = .FALSE. P_opcg4_f_c_a08 = 1 ; F_opcg4_f_c_a08 = .FALSE. P_opcg5_f_c_a08 = 1 ; F_opcg5_f_c_a08 = .FALSE. P_opcg6_f_c_a08 = 1 ; F_opcg6_f_c_a08 = .FALSE. P_opcg7_f_c_a08 = 1 ; F_opcg7_f_c_a08 = .FALSE. P_opcg8_f_c_a08 = 1 ; F_opcg8_f_c_a08 = .FALSE. P_opcg1_f_o_a08 = 1 ; F_opcg1_f_o_a08 = .FALSE. P_opcg2_f_o_a08 = 1 ; F_opcg2_f_o_a08 = .FALSE. P_opcg3_f_o_a08 = 1 ; F_opcg3_f_o_a08 = .FALSE. P_opcg4_f_o_a08 = 1 ; F_opcg4_f_o_a08 = .FALSE. P_opcg5_f_o_a08 = 1 ; F_opcg5_f_o_a08 = .FALSE. P_opcg6_f_o_a08 = 1 ; F_opcg6_f_o_a08 = .FALSE. P_opcg7_f_o_a08 = 1 ; F_opcg7_f_o_a08 = .FALSE. P_opcg8_f_o_a08 = 1 ; F_opcg8_f_o_a08 = .FALSE. P_ant1_c_a08 = 1 ; F_ant1_c_a08 = .FALSE. P_ant2_c_a08 = 1 ; F_ant2_c_a08 = .FALSE. P_ant3_c_a08 = 1 ; F_ant3_c_a08 = .FALSE. P_ant4_c_a08 = 1 ; F_ant4_c_a08 = .FALSE. P_ant1_o_a08 = 1 ; F_ant1_o_a08 = .FALSE. P_ant2_o_a08 = 1 ; F_ant2_o_a08 = .FALSE. P_ant3_o_a08 = 1 ; F_ant3_o_a08 = .FALSE. P_ant4_o_a08 = 1 ; F_ant4_o_a08 = .FALSE. P_biog1_c_a08 = 1 ; F_biog1_c_a08 = .FALSE. P_biog2_c_a08 = 1 ; F_biog2_c_a08 = .FALSE. P_biog3_c_a08 = 1 ; F_biog3_c_a08 = .FALSE. P_biog4_c_a08 = 1 ; F_biog4_c_a08 = .FALSE. P_biog1_o_a08 = 1 ; F_biog1_o_a08 = .FALSE. P_biog2_o_a08 = 1 ; F_biog2_o_a08 = .FALSE. P_biog3_o_a08 = 1 ; F_biog3_o_a08 = .FALSE. P_biog4_o_a08 = 1 ; F_biog4_o_a08 = .FALSE. P_cl_a08 = 1 ; F_cl_a08 = .FALSE. P_msa_a08 = 1 ; F_msa_a08 = .FALSE. P_co3_a08 = 1 ; F_co3_a08 = .FALSE. P_nh4_a08 = 1 ; F_nh4_a08 = .FALSE. P_na_a08 = 1 ; F_na_a08 = .FALSE. P_ca_a08 = 1 ; F_ca_a08 = .FALSE. P_oin_a08 = 1 ; F_oin_a08 = .FALSE. P_oc_a08 = 1 ; F_oc_a08 = .FALSE. P_bc_a08 = 1 ; F_bc_a08 = .FALSE. P_hysw_a08 = 1 ; F_hysw_a08 = .FALSE. P_water_a08 = 1 ; F_water_a08 = .FALSE. P_num_a08 = 1 ; F_num_a08 = .FALSE. P_so4_cw01 = 1 ; F_so4_cw01 = .FALSE. P_no3_cw01 = 1 ; F_no3_cw01 = .FALSE. P_cl_cw01 = 1 ; F_cl_cw01 = .FALSE. P_msa_cw01 = 1 ; F_msa_cw01 = .FALSE. P_co3_cw01 = 1 ; F_co3_cw01 = .FALSE. P_nh4_cw01 = 1 ; F_nh4_cw01 = .FALSE. P_na_cw01 = 1 ; F_na_cw01 = .FALSE. P_ca_cw01 = 1 ; F_ca_cw01 = .FALSE. P_oin_cw01 = 1 ; F_oin_cw01 = .FALSE. P_oc_cw01 = 1 ; F_oc_cw01 = .FALSE. P_bc_cw01 = 1 ; F_bc_cw01 = .FALSE. P_glysoa_r1_cw01 = 1 ; F_glysoa_r1_cw01 = .FALSE. P_glysoa_r2_cw01 = 1 ; F_glysoa_r2_cw01 = .FALSE. P_glysoa_sfc_cw01 = 1 ; F_glysoa_sfc_cw01 = .FALSE. P_glysoa_nh4_cw01 = 1 ; F_glysoa_nh4_cw01 = .FALSE. P_glysoa_oh_cw01 = 1 ; F_glysoa_oh_cw01 = .FALSE. P_num_cw01 = 1 ; F_num_cw01 = .FALSE. P_so4_cw02 = 1 ; F_so4_cw02 = .FALSE. P_no3_cw02 = 1 ; F_no3_cw02 = .FALSE. P_cl_cw02 = 1 ; F_cl_cw02 = .FALSE. P_msa_cw02 = 1 ; F_msa_cw02 = .FALSE. P_co3_cw02 = 1 ; F_co3_cw02 = .FALSE. P_nh4_cw02 = 1 ; F_nh4_cw02 = .FALSE. P_na_cw02 = 1 ; F_na_cw02 = .FALSE. P_ca_cw02 = 1 ; F_ca_cw02 = .FALSE. P_oin_cw02 = 1 ; F_oin_cw02 = .FALSE. P_oc_cw02 = 1 ; F_oc_cw02 = .FALSE. P_bc_cw02 = 1 ; F_bc_cw02 = .FALSE. P_glysoa_r1_cw02 = 1 ; F_glysoa_r1_cw02 = .FALSE. P_glysoa_r2_cw02 = 1 ; F_glysoa_r2_cw02 = .FALSE. P_glysoa_sfc_cw02 = 1 ; F_glysoa_sfc_cw02 = .FALSE. P_glysoa_nh4_cw02 = 1 ; F_glysoa_nh4_cw02 = .FALSE. P_glysoa_oh_cw02 = 1 ; F_glysoa_oh_cw02 = .FALSE. P_biog1_c_cw02 = 1 ; F_biog1_c_cw02 = .FALSE. P_biog1_o_cw02 = 1 ; F_biog1_o_cw02 = .FALSE. P_num_cw02 = 1 ; F_num_cw02 = .FALSE. P_so4_cw03 = 1 ; F_so4_cw03 = .FALSE. P_no3_cw03 = 1 ; F_no3_cw03 = .FALSE. P_cl_cw03 = 1 ; F_cl_cw03 = .FALSE. P_msa_cw03 = 1 ; F_msa_cw03 = .FALSE. P_co3_cw03 = 1 ; F_co3_cw03 = .FALSE. P_nh4_cw03 = 1 ; F_nh4_cw03 = .FALSE. P_na_cw03 = 1 ; F_na_cw03 = .FALSE. P_ca_cw03 = 1 ; F_ca_cw03 = .FALSE. P_oin_cw03 = 1 ; F_oin_cw03 = .FALSE. P_oc_cw03 = 1 ; F_oc_cw03 = .FALSE. P_bc_cw03 = 1 ; F_bc_cw03 = .FALSE. P_glysoa_r1_cw03 = 1 ; F_glysoa_r1_cw03 = .FALSE. P_glysoa_r2_cw03 = 1 ; F_glysoa_r2_cw03 = .FALSE. P_glysoa_sfc_cw03 = 1 ; F_glysoa_sfc_cw03 = .FALSE. P_glysoa_nh4_cw03 = 1 ; F_glysoa_nh4_cw03 = .FALSE. P_glysoa_oh_cw03 = 1 ; F_glysoa_oh_cw03 = .FALSE. P_biog1_c_cw03 = 1 ; F_biog1_c_cw03 = .FALSE. P_biog1_o_cw03 = 1 ; F_biog1_o_cw03 = .FALSE. P_num_cw03 = 1 ; F_num_cw03 = .FALSE. P_so4_cw04 = 1 ; F_so4_cw04 = .FALSE. P_no3_cw04 = 1 ; F_no3_cw04 = .FALSE. P_cl_cw04 = 1 ; F_cl_cw04 = .FALSE. P_msa_cw04 = 1 ; F_msa_cw04 = .FALSE. P_co3_cw04 = 1 ; F_co3_cw04 = .FALSE. P_nh4_cw04 = 1 ; F_nh4_cw04 = .FALSE. P_na_cw04 = 1 ; F_na_cw04 = .FALSE. P_ca_cw04 = 1 ; F_ca_cw04 = .FALSE. P_oin_cw04 = 1 ; F_oin_cw04 = .FALSE. P_oc_cw04 = 1 ; F_oc_cw04 = .FALSE. P_bc_cw04 = 1 ; F_bc_cw04 = .FALSE. P_glysoa_r1_cw04 = 1 ; F_glysoa_r1_cw04 = .FALSE. P_glysoa_r2_cw04 = 1 ; F_glysoa_r2_cw04 = .FALSE. P_glysoa_sfc_cw04 = 1 ; F_glysoa_sfc_cw04 = .FALSE. P_glysoa_nh4_cw04 = 1 ; F_glysoa_nh4_cw04 = .FALSE. P_glysoa_oh_cw04 = 1 ; F_glysoa_oh_cw04 = .FALSE. P_num_cw04 = 1 ; F_num_cw04 = .FALSE. P_so4_cw05 = 1 ; F_so4_cw05 = .FALSE. P_no3_cw05 = 1 ; F_no3_cw05 = .FALSE. P_cl_cw05 = 1 ; F_cl_cw05 = .FALSE. P_msa_cw05 = 1 ; F_msa_cw05 = .FALSE. P_co3_cw05 = 1 ; F_co3_cw05 = .FALSE. P_nh4_cw05 = 1 ; F_nh4_cw05 = .FALSE. P_na_cw05 = 1 ; F_na_cw05 = .FALSE. P_ca_cw05 = 1 ; F_ca_cw05 = .FALSE. P_oin_cw05 = 1 ; F_oin_cw05 = .FALSE. P_oc_cw05 = 1 ; F_oc_cw05 = .FALSE. P_bc_cw05 = 1 ; F_bc_cw05 = .FALSE. P_num_cw05 = 1 ; F_num_cw05 = .FALSE. P_so4_cw06 = 1 ; F_so4_cw06 = .FALSE. P_no3_cw06 = 1 ; F_no3_cw06 = .FALSE. P_cl_cw06 = 1 ; F_cl_cw06 = .FALSE. P_msa_cw06 = 1 ; F_msa_cw06 = .FALSE. P_co3_cw06 = 1 ; F_co3_cw06 = .FALSE. P_nh4_cw06 = 1 ; F_nh4_cw06 = .FALSE. P_na_cw06 = 1 ; F_na_cw06 = .FALSE. P_ca_cw06 = 1 ; F_ca_cw06 = .FALSE. P_oin_cw06 = 1 ; F_oin_cw06 = .FALSE. P_oc_cw06 = 1 ; F_oc_cw06 = .FALSE. P_bc_cw06 = 1 ; F_bc_cw06 = .FALSE. P_num_cw06 = 1 ; F_num_cw06 = .FALSE. P_so4_cw07 = 1 ; F_so4_cw07 = .FALSE. P_no3_cw07 = 1 ; F_no3_cw07 = .FALSE. P_cl_cw07 = 1 ; F_cl_cw07 = .FALSE. P_msa_cw07 = 1 ; F_msa_cw07 = .FALSE. P_co3_cw07 = 1 ; F_co3_cw07 = .FALSE. P_nh4_cw07 = 1 ; F_nh4_cw07 = .FALSE. P_na_cw07 = 1 ; F_na_cw07 = .FALSE. P_ca_cw07 = 1 ; F_ca_cw07 = .FALSE. P_oin_cw07 = 1 ; F_oin_cw07 = .FALSE. P_oc_cw07 = 1 ; F_oc_cw07 = .FALSE. P_bc_cw07 = 1 ; F_bc_cw07 = .FALSE. P_num_cw07 = 1 ; F_num_cw07 = .FALSE. P_so4_cw08 = 1 ; F_so4_cw08 = .FALSE. P_no3_cw08 = 1 ; F_no3_cw08 = .FALSE. P_cl_cw08 = 1 ; F_cl_cw08 = .FALSE. P_msa_cw08 = 1 ; F_msa_cw08 = .FALSE. P_co3_cw08 = 1 ; F_co3_cw08 = .FALSE. P_nh4_cw08 = 1 ; F_nh4_cw08 = .FALSE. P_na_cw08 = 1 ; F_na_cw08 = .FALSE. P_ca_cw08 = 1 ; F_ca_cw08 = .FALSE. P_oin_cw08 = 1 ; F_oin_cw08 = .FALSE. P_oc_cw08 = 1 ; F_oc_cw08 = .FALSE. P_bc_cw08 = 1 ; F_bc_cw08 = .FALSE. P_num_cw08 = 1 ; F_num_cw08 = .FALSE. P_asoax_cw01 = 1 ; F_asoax_cw01 = .FALSE. P_asoa1_cw01 = 1 ; F_asoa1_cw01 = .FALSE. P_asoa2_cw01 = 1 ; F_asoa2_cw01 = .FALSE. P_asoa3_cw01 = 1 ; F_asoa3_cw01 = .FALSE. P_asoa4_cw01 = 1 ; F_asoa4_cw01 = .FALSE. P_bsoax_cw01 = 1 ; F_bsoax_cw01 = .FALSE. P_bsoa1_cw01 = 1 ; F_bsoa1_cw01 = .FALSE. P_bsoa2_cw01 = 1 ; F_bsoa2_cw01 = .FALSE. P_bsoa3_cw01 = 1 ; F_bsoa3_cw01 = .FALSE. P_bsoa4_cw01 = 1 ; F_bsoa4_cw01 = .FALSE. P_asoax_cw02 = 1 ; F_asoax_cw02 = .FALSE. P_asoa1_cw02 = 1 ; F_asoa1_cw02 = .FALSE. P_asoa2_cw02 = 1 ; F_asoa2_cw02 = .FALSE. P_asoa3_cw02 = 1 ; F_asoa3_cw02 = .FALSE. P_asoa4_cw02 = 1 ; F_asoa4_cw02 = .FALSE. P_bsoax_cw02 = 1 ; F_bsoax_cw02 = .FALSE. P_bsoa1_cw02 = 1 ; F_bsoa1_cw02 = .FALSE. P_bsoa2_cw02 = 1 ; F_bsoa2_cw02 = .FALSE. P_bsoa3_cw02 = 1 ; F_bsoa3_cw02 = .FALSE. P_bsoa4_cw02 = 1 ; F_bsoa4_cw02 = .FALSE. P_asoax_cw03 = 1 ; F_asoax_cw03 = .FALSE. P_asoa1_cw03 = 1 ; F_asoa1_cw03 = .FALSE. P_asoa2_cw03 = 1 ; F_asoa2_cw03 = .FALSE. P_asoa3_cw03 = 1 ; F_asoa3_cw03 = .FALSE. P_asoa4_cw03 = 1 ; F_asoa4_cw03 = .FALSE. P_bsoax_cw03 = 1 ; F_bsoax_cw03 = .FALSE. P_bsoa1_cw03 = 1 ; F_bsoa1_cw03 = .FALSE. P_bsoa2_cw03 = 1 ; F_bsoa2_cw03 = .FALSE. P_bsoa3_cw03 = 1 ; F_bsoa3_cw03 = .FALSE. P_bsoa4_cw03 = 1 ; F_bsoa4_cw03 = .FALSE. P_asoax_cw04 = 1 ; F_asoax_cw04 = .FALSE. P_asoa1_cw04 = 1 ; F_asoa1_cw04 = .FALSE. P_asoa2_cw04 = 1 ; F_asoa2_cw04 = .FALSE. P_asoa3_cw04 = 1 ; F_asoa3_cw04 = .FALSE. P_asoa4_cw04 = 1 ; F_asoa4_cw04 = .FALSE. P_bsoax_cw04 = 1 ; F_bsoax_cw04 = .FALSE. P_bsoa1_cw04 = 1 ; F_bsoa1_cw04 = .FALSE. P_bsoa2_cw04 = 1 ; F_bsoa2_cw04 = .FALSE. P_bsoa3_cw04 = 1 ; F_bsoa3_cw04 = .FALSE. P_bsoa4_cw04 = 1 ; F_bsoa4_cw04 = .FALSE. P_pcg1_b_c_cw01 = 1 ; F_pcg1_b_c_cw01 = .FALSE. P_pcg1_b_o_cw01 = 1 ; F_pcg1_b_o_cw01 = .FALSE. P_opcg1_b_c_cw01 = 1 ; F_opcg1_b_c_cw01 = .FALSE. P_opcg1_b_o_cw01 = 1 ; F_opcg1_b_o_cw01 = .FALSE. P_pcg1_f_c_cw01 = 1 ; F_pcg1_f_c_cw01 = .FALSE. P_pcg1_f_o_cw01 = 1 ; F_pcg1_f_o_cw01 = .FALSE. P_opcg1_f_c_cw01 = 1 ; F_opcg1_f_c_cw01 = .FALSE. P_opcg1_f_o_cw01 = 1 ; F_opcg1_f_o_cw01 = .FALSE. P_ant1_c_cw01 = 1 ; F_ant1_c_cw01 = .FALSE. P_biog1_c_cw01 = 1 ; F_biog1_c_cw01 = .FALSE. P_pcg1_b_c_cw02 = 1 ; F_pcg1_b_c_cw02 = .FALSE. P_pcg1_b_o_cw02 = 1 ; F_pcg1_b_o_cw02 = .FALSE. P_opcg1_b_c_cw02 = 1 ; F_opcg1_b_c_cw02 = .FALSE. P_opcg1_b_o_cw02 = 1 ; F_opcg1_b_o_cw02 = .FALSE. P_pcg1_f_c_cw02 = 1 ; F_pcg1_f_c_cw02 = .FALSE. P_pcg1_f_o_cw02 = 1 ; F_pcg1_f_o_cw02 = .FALSE. P_opcg1_f_c_cw02 = 1 ; F_opcg1_f_c_cw02 = .FALSE. P_opcg1_f_o_cw02 = 1 ; F_opcg1_f_o_cw02 = .FALSE. P_ant1_c_cw02 = 1 ; F_ant1_c_cw02 = .FALSE. P_pcg1_b_c_cw03 = 1 ; F_pcg1_b_c_cw03 = .FALSE. P_pcg1_b_o_cw03 = 1 ; F_pcg1_b_o_cw03 = .FALSE. P_opcg1_b_c_cw03 = 1 ; F_opcg1_b_c_cw03 = .FALSE. P_opcg1_b_o_cw03 = 1 ; F_opcg1_b_o_cw03 = .FALSE. P_pcg1_f_c_cw03 = 1 ; F_pcg1_f_c_cw03 = .FALSE. P_pcg1_f_o_cw03 = 1 ; F_pcg1_f_o_cw03 = .FALSE. P_opcg1_f_c_cw03 = 1 ; F_opcg1_f_c_cw03 = .FALSE. P_opcg1_f_o_cw03 = 1 ; F_opcg1_f_o_cw03 = .FALSE. P_ant1_c_cw03 = 1 ; F_ant1_c_cw03 = .FALSE. P_pcg1_b_c_cw04 = 1 ; F_pcg1_b_c_cw04 = .FALSE. P_pcg1_b_o_cw04 = 1 ; F_pcg1_b_o_cw04 = .FALSE. P_opcg1_b_c_cw04 = 1 ; F_opcg1_b_c_cw04 = .FALSE. P_opcg1_b_o_cw04 = 1 ; F_opcg1_b_o_cw04 = .FALSE. P_pcg1_f_c_cw04 = 1 ; F_pcg1_f_c_cw04 = .FALSE. P_pcg1_f_o_cw04 = 1 ; F_pcg1_f_o_cw04 = .FALSE. P_opcg1_f_c_cw04 = 1 ; F_opcg1_f_c_cw04 = .FALSE. P_opcg1_f_o_cw04 = 1 ; F_opcg1_f_o_cw04 = .FALSE. P_ant1_c_cw04 = 1 ; F_ant1_c_cw04 = .FALSE. P_biog1_c_cw04 = 1 ; F_biog1_c_cw04 = .FALSE. P_pcg1_b_c_cw05 = 1 ; F_pcg1_b_c_cw05 = .FALSE. P_pcg1_b_o_cw05 = 1 ; F_pcg1_b_o_cw05 = .FALSE. P_opcg1_b_c_cw05 = 1 ; F_opcg1_b_c_cw05 = .FALSE. P_opcg1_b_o_cw05 = 1 ; F_opcg1_b_o_cw05 = .FALSE. P_pcg1_f_c_cw05 = 1 ; F_pcg1_f_c_cw05 = .FALSE. P_pcg1_f_o_cw05 = 1 ; F_pcg1_f_o_cw05 = .FALSE. P_opcg1_f_c_cw05 = 1 ; F_opcg1_f_c_cw05 = .FALSE. P_opcg1_f_o_cw05 = 1 ; F_opcg1_f_o_cw05 = .FALSE. P_ant1_c_cw05 = 1 ; F_ant1_c_cw05 = .FALSE. P_biog1_c_cw05 = 1 ; F_biog1_c_cw05 = .FALSE. P_pcg1_b_c_cw06 = 1 ; F_pcg1_b_c_cw06 = .FALSE. P_pcg1_b_o_cw06 = 1 ; F_pcg1_b_o_cw06 = .FALSE. P_opcg1_b_c_cw06 = 1 ; F_opcg1_b_c_cw06 = .FALSE. P_opcg1_b_o_cw06 = 1 ; F_opcg1_b_o_cw06 = .FALSE. P_pcg1_f_c_cw06 = 1 ; F_pcg1_f_c_cw06 = .FALSE. P_pcg1_f_o_cw06 = 1 ; F_pcg1_f_o_cw06 = .FALSE. P_opcg1_f_c_cw06 = 1 ; F_opcg1_f_c_cw06 = .FALSE. P_opcg1_f_o_cw06 = 1 ; F_opcg1_f_o_cw06 = .FALSE. P_ant1_c_cw06 = 1 ; F_ant1_c_cw06 = .FALSE. P_biog1_c_cw06 = 1 ; F_biog1_c_cw06 = .FALSE. P_pcg1_b_c_cw07 = 1 ; F_pcg1_b_c_cw07 = .FALSE. P_pcg1_b_o_cw07 = 1 ; F_pcg1_b_o_cw07 = .FALSE. P_opcg1_b_c_cw07 = 1 ; F_opcg1_b_c_cw07 = .FALSE. P_opcg1_b_o_cw07 = 1 ; F_opcg1_b_o_cw07 = .FALSE. P_pcg1_f_c_cw07 = 1 ; F_pcg1_f_c_cw07 = .FALSE. P_pcg1_f_o_cw07 = 1 ; F_pcg1_f_o_cw07 = .FALSE. P_opcg1_f_c_cw07 = 1 ; F_opcg1_f_c_cw07 = .FALSE. P_opcg1_f_o_cw07 = 1 ; F_opcg1_f_o_cw07 = .FALSE. P_ant1_c_cw07 = 1 ; F_ant1_c_cw07 = .FALSE. P_biog1_c_cw07 = 1 ; F_biog1_c_cw07 = .FALSE. P_pcg1_b_c_cw08 = 1 ; F_pcg1_b_c_cw08 = .FALSE. P_pcg1_b_o_cw08 = 1 ; F_pcg1_b_o_cw08 = .FALSE. P_opcg1_b_c_cw08 = 1 ; F_opcg1_b_c_cw08 = .FALSE. P_opcg1_b_o_cw08 = 1 ; F_opcg1_b_o_cw08 = .FALSE. P_pcg1_f_c_cw08 = 1 ; F_pcg1_f_c_cw08 = .FALSE. P_pcg1_f_o_cw08 = 1 ; F_pcg1_f_o_cw08 = .FALSE. P_opcg1_f_c_cw08 = 1 ; F_opcg1_f_c_cw08 = .FALSE. P_opcg1_f_o_cw08 = 1 ; F_opcg1_f_o_cw08 = .FALSE. P_ant1_c_cw08 = 1 ; F_ant1_c_cw08 = .FALSE. P_biog1_c_cw08 = 1 ; F_biog1_c_cw08 = .FALSE. P_bc1 = 1 ; F_bc1 = .FALSE. P_bc2 = 1 ; F_bc2 = .FALSE. P_oc1 = 1 ; F_oc1 = .FALSE. P_oc2 = 1 ; F_oc2 = .FALSE. P_p25 = 1 ; F_p25 = .FALSE. P_p10 = 1 ; F_p10 = .FALSE. P_dust_1 = 1 ; F_dust_1 = .FALSE. P_dust_2 = 1 ; F_dust_2 = .FALSE. P_dust_3 = 1 ; F_dust_3 = .FALSE. P_dust_4 = 1 ; F_dust_4 = .FALSE. P_dust_5 = 1 ; F_dust_5 = .FALSE. P_seas_1 = 1 ; F_seas_1 = .FALSE. P_seas_2 = 1 ; F_seas_2 = .FALSE. P_seas_3 = 1 ; F_seas_3 = .FALSE. P_seas_4 = 1 ; F_seas_4 = .FALSE. P_soag = 1 ; F_soag = .FALSE. P_so4_a1 = 1 ; F_so4_a1 = .FALSE. P_nh4_a1 = 1 ; F_nh4_a1 = .FALSE. P_bc_a1 = 1 ; F_bc_a1 = .FALSE. P_pom_a1 = 1 ; F_pom_a1 = .FALSE. P_soa_a1 = 1 ; F_soa_a1 = .FALSE. P_ncl_a1 = 1 ; F_ncl_a1 = .FALSE. P_dst_a1 = 1 ; F_dst_a1 = .FALSE. P_wtr_a1 = 1 ; F_wtr_a1 = .FALSE. P_num_a1 = 1 ; F_num_a1 = .FALSE. P_so4_a2 = 1 ; F_so4_a2 = .FALSE. P_nh4_a2 = 1 ; F_nh4_a2 = .FALSE. P_soa_a2 = 1 ; F_soa_a2 = .FALSE. P_ncl_a2 = 1 ; F_ncl_a2 = .FALSE. P_wtr_a2 = 1 ; F_wtr_a2 = .FALSE. P_num_a2 = 1 ; F_num_a2 = .FALSE. P_so4_a3 = 1 ; F_so4_a3 = .FALSE. P_bc_a3 = 1 ; F_bc_a3 = .FALSE. P_pom_a3 = 1 ; F_pom_a3 = .FALSE. P_ncl_a3 = 1 ; F_ncl_a3 = .FALSE. P_dst_a3 = 1 ; F_dst_a3 = .FALSE. P_wtr_a3 = 1 ; F_wtr_a3 = .FALSE. P_num_a3 = 1 ; F_num_a3 = .FALSE. P_so4_a4 = 1 ; F_so4_a4 = .FALSE. P_nh4_a4 = 1 ; F_nh4_a4 = .FALSE. P_ncl_a4 = 1 ; F_ncl_a4 = .FALSE. P_wtr_a4 = 1 ; F_wtr_a4 = .FALSE. P_num_a4 = 1 ; F_num_a4 = .FALSE. P_so4_a5 = 1 ; F_so4_a5 = .FALSE. P_nh4_a5 = 1 ; F_nh4_a5 = .FALSE. P_dst_a5 = 1 ; F_dst_a5 = .FALSE. P_wtr_a5 = 1 ; F_wtr_a5 = .FALSE. P_num_a5 = 1 ; F_num_a5 = .FALSE. P_so4_a6 = 1 ; F_so4_a6 = .FALSE. P_nh4_a6 = 1 ; F_nh4_a6 = .FALSE. P_ncl_a6 = 1 ; F_ncl_a6 = .FALSE. P_wtr_a6 = 1 ; F_wtr_a6 = .FALSE. P_num_a6 = 1 ; F_num_a6 = .FALSE. P_so4_a7 = 1 ; F_so4_a7 = .FALSE. P_nh4_a7 = 1 ; F_nh4_a7 = .FALSE. P_dst_a7 = 1 ; F_dst_a7 = .FALSE. P_wtr_a7 = 1 ; F_wtr_a7 = .FALSE. P_num_a7 = 1 ; F_num_a7 = .FALSE. P_so4_c1 = 1 ; F_so4_c1 = .FALSE. P_nh4_c1 = 1 ; F_nh4_c1 = .FALSE. P_bc_c1 = 1 ; F_bc_c1 = .FALSE. P_pom_c1 = 1 ; F_pom_c1 = .FALSE. P_soa_c1 = 1 ; F_soa_c1 = .FALSE. P_ncl_c1 = 1 ; F_ncl_c1 = .FALSE. P_dst_c1 = 1 ; F_dst_c1 = .FALSE. P_num_c1 = 1 ; F_num_c1 = .FALSE. P_so4_c2 = 1 ; F_so4_c2 = .FALSE. P_nh4_c2 = 1 ; F_nh4_c2 = .FALSE. P_soa_c2 = 1 ; F_soa_c2 = .FALSE. P_ncl_c2 = 1 ; F_ncl_c2 = .FALSE. P_num_c2 = 1 ; F_num_c2 = .FALSE. P_so4_c3 = 1 ; F_so4_c3 = .FALSE. P_bc_c3 = 1 ; F_bc_c3 = .FALSE. P_pom_c3 = 1 ; F_pom_c3 = .FALSE. P_ncl_c3 = 1 ; F_ncl_c3 = .FALSE. P_dst_c3 = 1 ; F_dst_c3 = .FALSE. P_num_c3 = 1 ; F_num_c3 = .FALSE. P_so4_c4 = 1 ; F_so4_c4 = .FALSE. P_nh4_c4 = 1 ; F_nh4_c4 = .FALSE. P_ncl_c4 = 1 ; F_ncl_c4 = .FALSE. P_num_c4 = 1 ; F_num_c4 = .FALSE. P_so4_c5 = 1 ; F_so4_c5 = .FALSE. P_nh4_c5 = 1 ; F_nh4_c5 = .FALSE. P_dst_c5 = 1 ; F_dst_c5 = .FALSE. P_num_c5 = 1 ; F_num_c5 = .FALSE. P_so4_c6 = 1 ; F_so4_c6 = .FALSE. P_nh4_c6 = 1 ; F_nh4_c6 = .FALSE. P_ncl_c6 = 1 ; F_ncl_c6 = .FALSE. P_num_c6 = 1 ; F_num_c6 = .FALSE. P_so4_c7 = 1 ; F_so4_c7 = .FALSE. P_nh4_c7 = 1 ; F_nh4_c7 = .FALSE. P_dst_c7 = 1 ; F_dst_c7 = .FALSE. P_num_c7 = 1 ; F_num_c7 = .FALSE. P_pa = 1 ; F_pa = .FALSE. P_aca = 1 ; F_aca = .FALSE. P_acet = 1 ; F_acet = .FALSE. P_isopr = 1 ; F_isopr = .FALSE. P_mvk = 1 ; F_mvk = .FALSE. P_iso2 = 1 ; F_iso2 = .FALSE. P_isooh = 1 ; F_isooh = .FALSE. P_mvko2 = 1 ; F_mvko2 = .FALSE. P_mvkooh = 1 ; F_mvkooh = .FALSE. P_acol = 1 ; F_acol = .FALSE. P_hcooh = 1 ; F_hcooh = .FALSE. P_naca = 1 ; F_naca = .FALSE. P_mglo = 1 ; F_mglo = .FALSE. P_c2h6 = 1 ; F_c2h6 = .FALSE. P_etooh = 1 ; F_etooh = .FALSE. P_c3h8 = 1 ; F_c3h8 = .FALSE. P_prooh = 1 ; F_prooh = .FALSE. P_acooh = 1 ; F_acooh = .FALSE. P_eto2 = 1 ; F_eto2 = .FALSE. P_pro2 = 1 ; F_pro2 = .FALSE. P_aco2 = 1 ; F_aco2 = .FALSE. P_c3h6 = 1 ; F_c3h6 = .FALSE. P_c3h6ooh = 1 ; F_c3h6ooh = .FALSE. P_c2h4 = 1 ; F_c2h4 = .FALSE. P_c4h10 = 1 ; F_c4h10 = .FALSE. P_buooh = 1 ; F_buooh = .FALSE. P_mek = 1 ; F_mek = .FALSE. P_mekooh = 1 ; F_mekooh = .FALSE. P_mecoco = 1 ; F_mecoco = .FALSE. P_c3h6o2 = 1 ; F_c3h6o2 = .FALSE. P_c4h9o2 = 1 ; F_c4h9o2 = .FALSE. P_meko2 = 1 ; F_meko2 = .FALSE. P_prono2 = 1 ; F_prono2 = .FALSE. P_acetol = 1 ; F_acetol = .FALSE. P_acetp = 1 ; F_acetp = .FALSE. P_aceto2 = 1 ; F_aceto2 = .FALSE. P_ch3cooh = 1 ; F_ch3cooh = .FALSE. P_c4h9ooh = 1 ; F_c4h9ooh = .FALSE. P_meo2 = 1 ; F_meo2 = .FALSE. P_meoh = 1 ; F_meoh = .FALSE. P_meo2no2 = 1 ; F_meo2no2 = .FALSE. P_smoke = 1 ; F_smoke = .FALSE. P_tr17_1 = 1 ; F_tr17_1 = .FALSE. P_tr17_2 = 1 ; F_tr17_2 = .FALSE. P_tr17_3 = 1 ; F_tr17_3 = .FALSE. P_tr17_4 = 1 ; F_tr17_4 = .FALSE. P_tr17_5 = 1 ; F_tr17_5 = .FALSE. P_tr17_6 = 1 ; F_tr17_6 = .FALSE. P_tr17_7 = 1 ; F_tr17_7 = .FALSE. P_tr17_8 = 1 ; F_tr17_8 = .FALSE. P_tr18_0 = 1 ; F_tr18_0 = .FALSE. P_tr18_1 = 1 ; F_tr18_1 = .FALSE. P_tr18_2 = 1 ; F_tr18_2 = .FALSE. P_tr18_3 = 1 ; F_tr18_3 = .FALSE. P_tr18_4 = 1 ; F_tr18_4 = .FALSE. P_tr18_5 = 1 ; F_tr18_5 = .FALSE. P_tr18_6 = 1 ; F_tr18_6 = .FALSE. P_tr18_7 = 1 ; F_tr18_7 = .FALSE. P_tr18_8 = 1 ; F_tr18_8 = .FALSE. P_tr18_9 = 1 ; F_tr18_9 = .FALSE. P_lnox_total = 1 ; F_lnox_total = .FALSE. P_lnox_ic = 1 ; F_lnox_ic = .FALSE. P_lnox_cg = 1 ; F_lnox_cg = .FALSE. P_h2o2_hv_irr = 1 ; F_h2o2_hv_irr = .FALSE. P_o2_hv_irr = 1 ; F_o2_hv_irr = .FALSE. P_o3_hv_irr = 1 ; F_o3_hv_irr = .FALSE. P_o3_hv_a_irr = 1 ; F_o3_hv_a_irr = .FALSE. P_hno3_hv_irr = 1 ; F_hno3_hv_irr = .FALSE. P_ho2no2_hv_irr = 1 ; F_ho2no2_hv_irr = .FALSE. P_n2o_hv_irr = 1 ; F_n2o_hv_irr = .FALSE. P_n2o5_hv_irr = 1 ; F_n2o5_hv_irr = .FALSE. P_no2_hv_irr = 1 ; F_no2_hv_irr = .FALSE. P_no3_hv_irr = 1 ; F_no3_hv_irr = .FALSE. P_alknit_hv_irr = 1 ; F_alknit_hv_irr = .FALSE. P_alkooh_hv_irr = 1 ; F_alkooh_hv_irr = .FALSE. P_benzooh_hv_irr = 1 ; F_benzooh_hv_irr = .FALSE. P_bepomuc_hv_irr = 1 ; F_bepomuc_hv_irr = .FALSE. P_bigald_hv_irr = 1 ; F_bigald_hv_irr = .FALSE. P_bigald1_hv_irr = 1 ; F_bigald1_hv_irr = .FALSE. P_bigald2_hv_irr = 1 ; F_bigald2_hv_irr = .FALSE. P_bigald3_hv_irr = 1 ; F_bigald3_hv_irr = .FALSE. P_bigald4_hv_irr = 1 ; F_bigald4_hv_irr = .FALSE. P_bzooh_hv_irr = 1 ; F_bzooh_hv_irr = .FALSE. P_c2h5ooh_hv_irr = 1 ; F_c2h5ooh_hv_irr = .FALSE. P_c3h7ooh_hv_irr = 1 ; F_c3h7ooh_hv_irr = .FALSE. P_c6h5ooh_hv_irr = 1 ; F_c6h5ooh_hv_irr = .FALSE. P_ch2o_hv_irr = 1 ; F_ch2o_hv_irr = .FALSE. P_ch2o_hv_a_irr = 1 ; F_ch2o_hv_a_irr = .FALSE. P_ch3cho_hv_irr = 1 ; F_ch3cho_hv_irr = .FALSE. P_ch3coch3_hv_irr = 1 ; F_ch3coch3_hv_irr = .FALSE. P_ch3cocho_hv_irr = 1 ; F_ch3cocho_hv_irr = .FALSE. P_ch3coooh_hv_irr = 1 ; F_ch3coooh_hv_irr = .FALSE. P_ch3ooh_hv_irr = 1 ; F_ch3ooh_hv_irr = .FALSE. P_eooh_hv_irr = 1 ; F_eooh_hv_irr = .FALSE. P_glyald_hv_irr = 1 ; F_glyald_hv_irr = .FALSE. P_glyoxal_hv_irr = 1 ; F_glyoxal_hv_irr = .FALSE. P_hmprop_hv_irr = 1 ; F_hmprop_hv_irr = .FALSE. P_honitr_hv_irr = 1 ; F_honitr_hv_irr = .FALSE. P_hpald_hv_irr = 1 ; F_hpald_hv_irr = .FALSE. P_hyac_hv_irr = 1 ; F_hyac_hv_irr = .FALSE. P_isopnooh_hv_irr = 1 ; F_isopnooh_hv_irr = .FALSE. P_isopooh_hv_irr = 1 ; F_isopooh_hv_irr = .FALSE. P_macr_hv_irr = 1 ; F_macr_hv_irr = .FALSE. P_mboooh_hv_irr = 1 ; F_mboooh_hv_irr = .FALSE. P_mek_hv_irr = 1 ; F_mek_hv_irr = .FALSE. P_mekooh_hv_irr = 1 ; F_mekooh_hv_irr = .FALSE. P_mpan_hv_irr = 1 ; F_mpan_hv_irr = .FALSE. P_mvk_hv_irr = 1 ; F_mvk_hv_irr = .FALSE. P_nc4cho_hv_irr = 1 ; F_nc4cho_hv_irr = .FALSE. P_noa_hv_irr = 1 ; F_noa_hv_irr = .FALSE. P_nterpooh_hv_irr = 1 ; F_nterpooh_hv_irr = .FALSE. P_onitr_hv_irr = 1 ; F_onitr_hv_irr = .FALSE. P_pan_hv_irr = 1 ; F_pan_hv_irr = .FALSE. P_phenooh_hv_irr = 1 ; F_phenooh_hv_irr = .FALSE. P_pooh_hv_irr = 1 ; F_pooh_hv_irr = .FALSE. P_rooh_hv_irr = 1 ; F_rooh_hv_irr = .FALSE. P_tepomuc_hv_irr = 1 ; F_tepomuc_hv_irr = .FALSE. P_terp2ooh_hv_irr = 1 ; F_terp2ooh_hv_irr = .FALSE. P_terpnit_hv_irr = 1 ; F_terpnit_hv_irr = .FALSE. P_terpooh_hv_irr = 1 ; F_terpooh_hv_irr = .FALSE. P_terprod1_hv_irr = 1 ; F_terprod1_hv_irr = .FALSE. P_terprod2_hv_irr = 1 ; F_terprod2_hv_irr = .FALSE. P_tolooh_hv_irr = 1 ; F_tolooh_hv_irr = .FALSE. P_xooh_hv_irr = 1 ; F_xooh_hv_irr = .FALSE. P_xylenooh_hv_irr = 1 ; F_xylenooh_hv_irr = .FALSE. P_xylolooh_hv_irr = 1 ; F_xylolooh_hv_irr = .FALSE. P_o1d_ch4_irr = 1 ; F_o1d_ch4_irr = .FALSE. P_o1d_h2_irr = 1 ; F_o1d_h2_irr = .FALSE. P_o1d_h2o_irr = 1 ; F_o1d_h2o_irr = .FALSE. P_o1d_n2_irr = 1 ; F_o1d_n2_irr = .FALSE. P_o1d_o2_irr = 1 ; F_o1d_o2_irr = .FALSE. P_o1d_o3_irr = 1 ; F_o1d_o3_irr = .FALSE. P_o_o3_irr = 1 ; F_o_o3_irr = .FALSE. P_o_o_m_irr = 1 ; F_o_o_m_irr = .FALSE. P_o_o2_m_irr = 1 ; F_o_o2_m_irr = .FALSE. P_h2_o_irr = 1 ; F_h2_o_irr = .FALSE. P_h2o2_o_irr = 1 ; F_h2o2_o_irr = .FALSE. P_ho2_o_irr = 1 ; F_ho2_o_irr = .FALSE. P_ho2_o3_irr = 1 ; F_ho2_o3_irr = .FALSE. P_oh_h2_irr = 1 ; F_oh_h2_irr = .FALSE. P_oh_h2o2_irr = 1 ; F_oh_h2o2_irr = .FALSE. P_oh_ho2_irr = 1 ; F_oh_ho2_irr = .FALSE. P_oh_o_irr = 1 ; F_oh_o_irr = .FALSE. P_oh_o3_irr = 1 ; F_oh_o3_irr = .FALSE. P_oh_oh_irr = 1 ; F_oh_oh_irr = .FALSE. P_oh_oh_a_irr = 1 ; F_oh_oh_a_irr = .FALSE. P_ho2_ho2_irr = 1 ; F_ho2_ho2_irr = .FALSE. P_ho2no2_oh_irr = 1 ; F_ho2no2_oh_irr = .FALSE. P_no2_o_irr = 1 ; F_no2_o_irr = .FALSE. P_no2_o3_irr = 1 ; F_no2_o3_irr = .FALSE. P_no2_o_a_irr = 1 ; F_no2_o_a_irr = .FALSE. P_no3_ho2_irr = 1 ; F_no3_ho2_irr = .FALSE. P_no3_no_irr = 1 ; F_no3_no_irr = .FALSE. P_no3_o_irr = 1 ; F_no3_o_irr = .FALSE. P_no3_oh_irr = 1 ; F_no3_oh_irr = .FALSE. P_no_ho2_irr = 1 ; F_no_ho2_irr = .FALSE. P_no_o3_irr = 1 ; F_no_o3_irr = .FALSE. P_no_o_irr = 1 ; F_no_o_irr = .FALSE. P_o1d_n2o_irr = 1 ; F_o1d_n2o_irr = .FALSE. P_o1d_n2o_a_irr = 1 ; F_o1d_n2o_a_irr = .FALSE. P_no2_ho2_irr = 1 ; F_no2_ho2_irr = .FALSE. P_no2_no3_irr = 1 ; F_no2_no3_irr = .FALSE. P_no2_oh_irr = 1 ; F_no2_oh_irr = .FALSE. P_hno3_oh_irr = 1 ; F_hno3_oh_irr = .FALSE. P_ho2no2_m_irr = 1 ; F_ho2no2_m_irr = .FALSE. P_n2o5_m_irr = 1 ; F_n2o5_m_irr = .FALSE. P_ch2o_ho2_irr = 1 ; F_ch2o_ho2_irr = .FALSE. P_ch2o_no3_irr = 1 ; F_ch2o_no3_irr = .FALSE. P_ch2o_o_irr = 1 ; F_ch2o_o_irr = .FALSE. P_ch2o_oh_irr = 1 ; F_ch2o_oh_irr = .FALSE. P_ch3o2_ch3o2_irr = 1 ; F_ch3o2_ch3o2_irr = .FALSE. P_ch3o2_ch3o2_a_irr = 1 ; F_ch3o2_ch3o2_a_irr = .FALSE. P_ch3o2_ho2_irr = 1 ; F_ch3o2_ho2_irr = .FALSE. P_ch3o2_no_irr = 1 ; F_ch3o2_no_irr = .FALSE. P_ch3oh_oh_irr = 1 ; F_ch3oh_oh_irr = .FALSE. P_ch3ooh_oh_irr = 1 ; F_ch3ooh_oh_irr = .FALSE. P_ch4_oh_irr = 1 ; F_ch4_oh_irr = .FALSE. P_hcn_oh_irr = 1 ; F_hcn_oh_irr = .FALSE. P_hcooh_oh_irr = 1 ; F_hcooh_oh_irr = .FALSE. P_hoch2oo_ho2_irr = 1 ; F_hoch2oo_ho2_irr = .FALSE. P_hoch2oo_irr = 1 ; F_hoch2oo_irr = .FALSE. P_hoch2oo_no_irr = 1 ; F_hoch2oo_no_irr = .FALSE. P_o1d_hcn_irr = 1 ; F_o1d_hcn_irr = .FALSE. P_co_oh_irr = 1 ; F_co_oh_irr = .FALSE. P_c2h2_oh_irr = 1 ; F_c2h2_oh_irr = .FALSE. P_c2h4_o3_irr = 1 ; F_c2h4_o3_irr = .FALSE. P_c2h5o2_c2h5o2_irr = 1 ; F_c2h5o2_c2h5o2_irr = .FALSE. P_c2h5o2_ch3o2_irr = 1 ; F_c2h5o2_ch3o2_irr = .FALSE. P_c2h5o2_ho2_irr = 1 ; F_c2h5o2_ho2_irr = .FALSE. P_c2h5o2_no_irr = 1 ; F_c2h5o2_no_irr = .FALSE. P_c2h5oh_oh_irr = 1 ; F_c2h5oh_oh_irr = .FALSE. P_c2h5ooh_oh_irr = 1 ; F_c2h5ooh_oh_irr = .FALSE. P_c2h6_oh_irr = 1 ; F_c2h6_oh_irr = .FALSE. P_ch3cho_no3_irr = 1 ; F_ch3cho_no3_irr = .FALSE. P_ch3cho_oh_irr = 1 ; F_ch3cho_oh_irr = .FALSE. P_ch3cn_oh_irr = 1 ; F_ch3cn_oh_irr = .FALSE. P_ch3co3_ch3co3_irr = 1 ; F_ch3co3_ch3co3_irr = .FALSE. P_ch3co3_ch3o2_irr = 1 ; F_ch3co3_ch3o2_irr = .FALSE. P_ch3co3_ho2_irr = 1 ; F_ch3co3_ho2_irr = .FALSE. P_ch3co3_no_irr = 1 ; F_ch3co3_no_irr = .FALSE. P_ch3cooh_oh_irr = 1 ; F_ch3cooh_oh_irr = .FALSE. P_ch3coooh_oh_irr = 1 ; F_ch3coooh_oh_irr = .FALSE. P_eo2_ho2_irr = 1 ; F_eo2_ho2_irr = .FALSE. P_eo2_no_irr = 1 ; F_eo2_no_irr = .FALSE. P_eo_irr = 1 ; F_eo_irr = .FALSE. P_eo_o2_irr = 1 ; F_eo_o2_irr = .FALSE. P_glyald_oh_irr = 1 ; F_glyald_oh_irr = .FALSE. P_glyoxal_oh_irr = 1 ; F_glyoxal_oh_irr = .FALSE. P_pan_oh_irr = 1 ; F_pan_oh_irr = .FALSE. P_c2h4_oh_irr = 1 ; F_c2h4_oh_irr = .FALSE. P_ch3co3_no2_irr = 1 ; F_ch3co3_no2_irr = .FALSE. P_pan_m_irr = 1 ; F_pan_m_irr = .FALSE. P_c3h6_no3_irr = 1 ; F_c3h6_no3_irr = .FALSE. P_c3h6_o3_irr = 1 ; F_c3h6_o3_irr = .FALSE. P_c3h7o2_ch3o2_irr = 1 ; F_c3h7o2_ch3o2_irr = .FALSE. P_c3h7o2_ho2_irr = 1 ; F_c3h7o2_ho2_irr = .FALSE. P_c3h7o2_no_irr = 1 ; F_c3h7o2_no_irr = .FALSE. P_c3h7ooh_oh_irr = 1 ; F_c3h7ooh_oh_irr = .FALSE. P_c3h8_oh_irr = 1 ; F_c3h8_oh_irr = .FALSE. P_ch3cocho_no3_irr = 1 ; F_ch3cocho_no3_irr = .FALSE. P_ch3cocho_oh_irr = 1 ; F_ch3cocho_oh_irr = .FALSE. P_hyac_oh_irr = 1 ; F_hyac_oh_irr = .FALSE. P_noa_oh_irr = 1 ; F_noa_oh_irr = .FALSE. P_po2_ho2_irr = 1 ; F_po2_ho2_irr = .FALSE. P_po2_no_irr = 1 ; F_po2_no_irr = .FALSE. P_pooh_oh_irr = 1 ; F_pooh_oh_irr = .FALSE. P_ro2_ch3o2_irr = 1 ; F_ro2_ch3o2_irr = .FALSE. P_ro2_ho2_irr = 1 ; F_ro2_ho2_irr = .FALSE. P_ro2_no_irr = 1 ; F_ro2_no_irr = .FALSE. P_rooh_oh_irr = 1 ; F_rooh_oh_irr = .FALSE. P_c3h6_oh_irr = 1 ; F_c3h6_oh_irr = .FALSE. P_ch3coch3_oh_irr = 1 ; F_ch3coch3_oh_irr = .FALSE. P_bigene_no3_irr = 1 ; F_bigene_no3_irr = .FALSE. P_bigene_oh_irr = 1 ; F_bigene_oh_irr = .FALSE. P_eneo2_no_irr = 1 ; F_eneo2_no_irr = .FALSE. P_eneo2_no_a_irr = 1 ; F_eneo2_no_a_irr = .FALSE. P_honitr_oh_irr = 1 ; F_honitr_oh_irr = .FALSE. P_macro2_ch3co3_irr = 1 ; F_macro2_ch3co3_irr = .FALSE. P_macro2_ch3o2_irr = 1 ; F_macro2_ch3o2_irr = .FALSE. P_macro2_ho2_irr = 1 ; F_macro2_ho2_irr = .FALSE. P_macro2_no3_irr = 1 ; F_macro2_no3_irr = .FALSE. P_macro2_no_irr = 1 ; F_macro2_no_irr = .FALSE. P_macro2_no_a_irr = 1 ; F_macro2_no_a_irr = .FALSE. P_macr_o3_irr = 1 ; F_macr_o3_irr = .FALSE. P_macr_oh_irr = 1 ; F_macr_oh_irr = .FALSE. P_macrooh_oh_irr = 1 ; F_macrooh_oh_irr = .FALSE. P_mco3_ch3co3_irr = 1 ; F_mco3_ch3co3_irr = .FALSE. P_mco3_ch3o2_irr = 1 ; F_mco3_ch3o2_irr = .FALSE. P_mco3_ho2_irr = 1 ; F_mco3_ho2_irr = .FALSE. P_mco3_mco3_irr = 1 ; F_mco3_mco3_irr = .FALSE. P_mco3_no_irr = 1 ; F_mco3_no_irr = .FALSE. P_mco3_no3_irr = 1 ; F_mco3_no3_irr = .FALSE. P_meko2_ho2_irr = 1 ; F_meko2_ho2_irr = .FALSE. P_meko2_no_irr = 1 ; F_meko2_no_irr = .FALSE. P_mek_oh_irr = 1 ; F_mek_oh_irr = .FALSE. P_mekooh_oh_irr = 1 ; F_mekooh_oh_irr = .FALSE. P_mpan_oh_irr = 1 ; F_mpan_oh_irr = .FALSE. P_mvk_o3_irr = 1 ; F_mvk_o3_irr = .FALSE. P_mvk_oh_irr = 1 ; F_mvk_oh_irr = .FALSE. P_mco3_no2_m_irr = 1 ; F_mco3_no2_m_irr = .FALSE. P_mpan_m_irr = 1 ; F_mpan_m_irr = .FALSE. P_alknit_oh_irr = 1 ; F_alknit_oh_irr = .FALSE. P_alko2_ho2_irr = 1 ; F_alko2_ho2_irr = .FALSE. P_alko2_no_irr = 1 ; F_alko2_no_irr = .FALSE. P_alko2_no_a_irr = 1 ; F_alko2_no_a_irr = .FALSE. P_alkooh_oh_irr = 1 ; F_alkooh_oh_irr = .FALSE. P_bigalk_oh_irr = 1 ; F_bigalk_oh_irr = .FALSE. P_hpald_oh_irr = 1 ; F_hpald_oh_irr = .FALSE. P_hydrald_oh_irr = 1 ; F_hydrald_oh_irr = .FALSE. P_iepox_oh_irr = 1 ; F_iepox_oh_irr = .FALSE. P_isopao2_ch3co3_irr = 1 ; F_isopao2_ch3co3_irr = .FALSE. P_isopao2_ch3o2_irr = 1 ; F_isopao2_ch3o2_irr = .FALSE. P_isopao2_ho2_irr = 1 ; F_isopao2_ho2_irr = .FALSE. P_isopao2_no_irr = 1 ; F_isopao2_no_irr = .FALSE. P_isopao2_no3_irr = 1 ; F_isopao2_no3_irr = .FALSE. P_isopbo2_ch3co3_irr = 1 ; F_isopbo2_ch3co3_irr = .FALSE. P_isopbo2_ch3o2_irr = 1 ; F_isopbo2_ch3o2_irr = .FALSE. P_isopbo2_ho2_irr = 1 ; F_isopbo2_ho2_irr = .FALSE. P_isopbo2_irr = 1 ; F_isopbo2_irr = .FALSE. P_isopbo2_no_irr = 1 ; F_isopbo2_no_irr = .FALSE. P_isopbo2_no3_irr = 1 ; F_isopbo2_no3_irr = .FALSE. P_isopnita_oh_irr = 1 ; F_isopnita_oh_irr = .FALSE. P_isopnitb_oh_irr = 1 ; F_isopnitb_oh_irr = .FALSE. P_isop_no3_irr = 1 ; F_isop_no3_irr = .FALSE. P_isopno3_ch3co3_irr = 1 ; F_isopno3_ch3co3_irr = .FALSE. P_isopno3_ch3o2_irr = 1 ; F_isopno3_ch3o2_irr = .FALSE. P_isopno3_ho2_irr = 1 ; F_isopno3_ho2_irr = .FALSE. P_isopno3_no_irr = 1 ; F_isopno3_no_irr = .FALSE. P_isopno3_no3_irr = 1 ; F_isopno3_no3_irr = .FALSE. P_isopnooh_oh_irr = 1 ; F_isopnooh_oh_irr = .FALSE. P_isop_o3_irr = 1 ; F_isop_o3_irr = .FALSE. P_isop_oh_irr = 1 ; F_isop_oh_irr = .FALSE. P_isopooh_oh_irr = 1 ; F_isopooh_oh_irr = .FALSE. P_nc4ch2oh_oh_irr = 1 ; F_nc4ch2oh_oh_irr = .FALSE. P_nc4cho_oh_irr = 1 ; F_nc4cho_oh_irr = .FALSE. P_xo2_ch3co3_irr = 1 ; F_xo2_ch3co3_irr = .FALSE. P_xo2_ch3o2_irr = 1 ; F_xo2_ch3o2_irr = .FALSE. P_xo2_ho2_irr = 1 ; F_xo2_ho2_irr = .FALSE. P_xo2_no_irr = 1 ; F_xo2_no_irr = .FALSE. P_xo2_no3_irr = 1 ; F_xo2_no3_irr = .FALSE. P_xooh_oh_irr = 1 ; F_xooh_oh_irr = .FALSE. P_hmpropo2_ho2_irr = 1 ; F_hmpropo2_ho2_irr = .FALSE. P_hmpropo2_no_irr = 1 ; F_hmpropo2_no_irr = .FALSE. P_hmprop_oh_irr = 1 ; F_hmprop_oh_irr = .FALSE. P_mbo_no3_irr = 1 ; F_mbo_no3_irr = .FALSE. P_mbono3o2_ho2_irr = 1 ; F_mbono3o2_ho2_irr = .FALSE. P_mbono3o2_no_irr = 1 ; F_mbono3o2_no_irr = .FALSE. P_mbono3o2_no3_irr = 1 ; F_mbono3o2_no3_irr = .FALSE. P_mboo2_ch3o2_irr = 1 ; F_mboo2_ch3o2_irr = .FALSE. P_mboo2_ho2_irr = 1 ; F_mboo2_ho2_irr = .FALSE. P_mboo2_no_irr = 1 ; F_mboo2_no_irr = .FALSE. P_mbo_o3_irr = 1 ; F_mbo_o3_irr = .FALSE. P_mbo_oh_irr = 1 ; F_mbo_oh_irr = .FALSE. P_mboooh_oh_irr = 1 ; F_mboooh_oh_irr = .FALSE. P_acbzo2_ho2_irr = 1 ; F_acbzo2_ho2_irr = .FALSE. P_acbzo2_no_irr = 1 ; F_acbzo2_no_irr = .FALSE. P_benzene_oh_irr = 1 ; F_benzene_oh_irr = .FALSE. P_benzo2_ho2_irr = 1 ; F_benzo2_ho2_irr = .FALSE. P_benzo2_no_irr = 1 ; F_benzo2_no_irr = .FALSE. P_benzooh_oh_irr = 1 ; F_benzooh_oh_irr = .FALSE. P_bzald_oh_irr = 1 ; F_bzald_oh_irr = .FALSE. P_bzoo_ho2_irr = 1 ; F_bzoo_ho2_irr = .FALSE. P_bzooh_oh_irr = 1 ; F_bzooh_oh_irr = .FALSE. P_bzoo_no_irr = 1 ; F_bzoo_no_irr = .FALSE. P_c6h5o2_ho2_irr = 1 ; F_c6h5o2_ho2_irr = .FALSE. P_c6h5o2_no_irr = 1 ; F_c6h5o2_no_irr = .FALSE. P_c6h5ooh_oh_irr = 1 ; F_c6h5ooh_oh_irr = .FALSE. P_cresol_oh_irr = 1 ; F_cresol_oh_irr = .FALSE. P_dicarbo2_ho2_irr = 1 ; F_dicarbo2_ho2_irr = .FALSE. P_dicarbo2_no_irr = 1 ; F_dicarbo2_no_irr = .FALSE. P_dicarbo2_no2_irr = 1 ; F_dicarbo2_no2_irr = .FALSE. P_malo2_ho2_irr = 1 ; F_malo2_ho2_irr = .FALSE. P_malo2_no_irr = 1 ; F_malo2_no_irr = .FALSE. P_malo2_no2_irr = 1 ; F_malo2_no2_irr = .FALSE. P_mdialo2_ho2_irr = 1 ; F_mdialo2_ho2_irr = .FALSE. P_mdialo2_no_irr = 1 ; F_mdialo2_no_irr = .FALSE. P_mdialo2_no2_irr = 1 ; F_mdialo2_no2_irr = .FALSE. P_pheno2_ho2_irr = 1 ; F_pheno2_ho2_irr = .FALSE. P_pheno2_no_irr = 1 ; F_pheno2_no_irr = .FALSE. P_phenol_oh_irr = 1 ; F_phenol_oh_irr = .FALSE. P_pheno_no2_irr = 1 ; F_pheno_no2_irr = .FALSE. P_pheno_o3_irr = 1 ; F_pheno_o3_irr = .FALSE. P_phenooh_oh_irr = 1 ; F_phenooh_oh_irr = .FALSE. P_acbzo2_no2_irr = 1 ; F_acbzo2_no2_irr = .FALSE. P_tolo2_ho2_irr = 1 ; F_tolo2_ho2_irr = .FALSE. P_tolo2_no_irr = 1 ; F_tolo2_no_irr = .FALSE. P_tolooh_oh_irr = 1 ; F_tolooh_oh_irr = .FALSE. P_toluene_oh_irr = 1 ; F_toluene_oh_irr = .FALSE. P_pbznit_m_irr = 1 ; F_pbznit_m_irr = .FALSE. P_xylenes_oh_irr = 1 ; F_xylenes_oh_irr = .FALSE. P_xyleno2_ho2_irr = 1 ; F_xyleno2_ho2_irr = .FALSE. P_xyleno2_no_irr = 1 ; F_xyleno2_no_irr = .FALSE. P_xylenooh_oh_irr = 1 ; F_xylenooh_oh_irr = .FALSE. P_xylolo2_ho2_irr = 1 ; F_xylolo2_ho2_irr = .FALSE. P_xylolo2_no_irr = 1 ; F_xylolo2_no_irr = .FALSE. P_xylol_oh_irr = 1 ; F_xylol_oh_irr = .FALSE. P_xylolooh_oh_irr = 1 ; F_xylolooh_oh_irr = .FALSE. P_apin_no3_irr = 1 ; F_apin_no3_irr = .FALSE. P_apin_o3_irr = 1 ; F_apin_o3_irr = .FALSE. P_apin_oh_irr = 1 ; F_apin_oh_irr = .FALSE. P_bcary_no3_irr = 1 ; F_bcary_no3_irr = .FALSE. P_bcary_o3_irr = 1 ; F_bcary_o3_irr = .FALSE. P_bcary_oh_irr = 1 ; F_bcary_oh_irr = .FALSE. P_bpin_no3_irr = 1 ; F_bpin_no3_irr = .FALSE. P_bpin_o3_irr = 1 ; F_bpin_o3_irr = .FALSE. P_bpin_oh_irr = 1 ; F_bpin_oh_irr = .FALSE. P_limon_no3_irr = 1 ; F_limon_no3_irr = .FALSE. P_limon_o3_irr = 1 ; F_limon_o3_irr = .FALSE. P_limon_oh_irr = 1 ; F_limon_oh_irr = .FALSE. P_myrc_no3_irr = 1 ; F_myrc_no3_irr = .FALSE. P_myrc_o3_irr = 1 ; F_myrc_o3_irr = .FALSE. P_myrc_oh_irr = 1 ; F_myrc_oh_irr = .FALSE. P_nterpo2_ch3o2_irr = 1 ; F_nterpo2_ch3o2_irr = .FALSE. P_nterpo2_ho2_irr = 1 ; F_nterpo2_ho2_irr = .FALSE. P_nterpo2_no_irr = 1 ; F_nterpo2_no_irr = .FALSE. P_nterpo2_no3_irr = 1 ; F_nterpo2_no3_irr = .FALSE. P_nterpooh_oh_irr = 1 ; F_nterpooh_oh_irr = .FALSE. P_terp2o2_ch3o2_irr = 1 ; F_terp2o2_ch3o2_irr = .FALSE. P_terp2o2_ho2_irr = 1 ; F_terp2o2_ho2_irr = .FALSE. P_terp2o2_no_irr = 1 ; F_terp2o2_no_irr = .FALSE. P_terp2ooh_oh_irr = 1 ; F_terp2ooh_oh_irr = .FALSE. P_terpnit_oh_irr = 1 ; F_terpnit_oh_irr = .FALSE. P_terpo2_ch3o2_irr = 1 ; F_terpo2_ch3o2_irr = .FALSE. P_terpo2_ho2_irr = 1 ; F_terpo2_ho2_irr = .FALSE. P_terpo2_no_irr = 1 ; F_terpo2_no_irr = .FALSE. P_terpooh_oh_irr = 1 ; F_terpooh_oh_irr = .FALSE. P_terprod1_no3_irr = 1 ; F_terprod1_no3_irr = .FALSE. P_terprod1_oh_irr = 1 ; F_terprod1_oh_irr = .FALSE. P_terprod2_oh_irr = 1 ; F_terprod2_oh_irr = .FALSE. P_dms_no3_irr = 1 ; F_dms_no3_irr = .FALSE. P_dms_oh_irr = 1 ; F_dms_oh_irr = .FALSE. P_nh3_oh_irr = 1 ; F_nh3_oh_irr = .FALSE. P_dms_oh_a_irr = 1 ; F_dms_oh_a_irr = .FALSE. P_ho2_irr = 1 ; F_ho2_irr = .FALSE. P_n2o5_irr = 1 ; F_n2o5_irr = .FALSE. P_no2_irr = 1 ; F_no2_irr = .FALSE. P_no3_irr = 1 ; F_no3_irr = .FALSE. P_so2_oh_irr = 1 ; F_so2_oh_irr = .FALSE. P_m11 = 1 ; F_m11 = .FALSE. P_m22 = 1 ; F_m22 = .FALSE. P_m33 = 1 ; F_m33 = .FALSE. P_m12 = 1 ; F_m12 = .FALSE. P_m13 = 1 ; F_m13 = .FALSE. P_m23 = 1 ; F_m23 = .FALSE. P_r12 = 1 ; F_r12 = .FALSE. P_r13 = 1 ; F_r13 = .FALSE. P_r23 = 1 ; F_r23 = .FALSE. P_smnsmn = 1 ; F_smnsmn = .FALSE. IF (model_config_rec%mp_physics(idomain)==0)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==1)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==2)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==3)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==4)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==5)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( scalar_index_table( PARAM_qt , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qt = scalar_num_table(idomain) scalar_index_table( PARAM_qt , idomain ) = P_qt ELSE P_qt = scalar_index_table( PARAM_qt , idomain ) END IF scalar_boundary_table( idomain, P_qt ) = .TRUE. scalar_dname_table( idomain, P_qt ) = 'CWM' scalar_desc_table( idomain, P_qt ) = 'Total condensate mixing ratio' scalar_units_table( idomain, P_qt ) = 'kg kg-1' scalar_streams_table( idomain, P_qt )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qt )%stream(2) = 2097152 ! 00200000 F_qt = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==15)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( scalar_index_table( PARAM_qrimef , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qrimef = scalar_num_table(idomain) scalar_index_table( PARAM_qrimef , idomain ) = P_qrimef ELSE P_qrimef = scalar_index_table( PARAM_qrimef , idomain ) END IF scalar_boundary_table( idomain, P_qrimef ) = .TRUE. scalar_dname_table( idomain, P_qrimef ) = 'QRIMEF' scalar_desc_table( idomain, P_qrimef ) = 'rime factor * qi' scalar_units_table( idomain, P_qrimef ) = 'kg kg-1' scalar_streams_table( idomain, P_qrimef )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qrimef )%stream(2) = 2097152 ! 00200000 F_qrimef = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==6)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==7)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==8)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 ! 00200000 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==9)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( moist_index_table( PARAM_qh , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qh = moist_num_table(idomain) moist_index_table( PARAM_qh , idomain ) = P_qh ELSE P_qh = moist_index_table( PARAM_qh , idomain ) END IF moist_boundary_table( idomain, P_qh ) = .TRUE. moist_dname_table( idomain, P_qh ) = 'QHAIL' moist_desc_table( idomain, P_qh ) = 'Hail mixing ratio' moist_units_table( idomain, P_qh ) = 'kg kg-1' moist_streams_table( idomain, P_qh )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qh )%stream(2) = 2097152 ! 00200000 F_qh = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 ! 00200000 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 ! 00200000 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 ! 00200000 F_qns = .TRUE. IF ( scalar_index_table( PARAM_qng , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qng = scalar_num_table(idomain) scalar_index_table( PARAM_qng , idomain ) = P_qng ELSE P_qng = scalar_index_table( PARAM_qng , idomain ) END IF scalar_boundary_table( idomain, P_qng ) = .TRUE. scalar_dname_table( idomain, P_qng ) = 'QNGRAUPEL' scalar_desc_table( idomain, P_qng ) = 'Graupel Number concentration' scalar_units_table( idomain, P_qng ) = ' kg(-1)' scalar_streams_table( idomain, P_qng )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qng )%stream(2) = 2097152 ! 00200000 F_qng = .TRUE. IF ( scalar_index_table( PARAM_qnh , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnh = scalar_num_table(idomain) scalar_index_table( PARAM_qnh , idomain ) = P_qnh ELSE P_qnh = scalar_index_table( PARAM_qnh , idomain ) END IF scalar_boundary_table( idomain, P_qnh ) = .TRUE. scalar_dname_table( idomain, P_qnh ) = 'QNHAIL' scalar_desc_table( idomain, P_qnh ) = 'Hail Number concentration' scalar_units_table( idomain, P_qnh ) = ' kg(-1)' scalar_streams_table( idomain, P_qnh )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnh )%stream(2) = 2097152 ! 00200000 F_qnh = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==10)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 ! 00200000 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 ! 00200000 F_qns = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qng , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qng = scalar_num_table(idomain) scalar_index_table( PARAM_qng , idomain ) = P_qng ELSE P_qng = scalar_index_table( PARAM_qng , idomain ) END IF scalar_boundary_table( idomain, P_qng ) = .TRUE. scalar_dname_table( idomain, P_qng ) = 'QNGRAUPEL' scalar_desc_table( idomain, P_qng ) = 'Graupel Number concentration' scalar_units_table( idomain, P_qng ) = ' kg(-1)' scalar_streams_table( idomain, P_qng )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qng )%stream(2) = 2097152 ! 00200000 F_qng = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==11)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 ! 00200000 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 ! 00200000 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 ! 00200000 F_qns = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==13)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==14)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( scalar_index_table( PARAM_qnn , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnn = scalar_num_table(idomain) scalar_index_table( PARAM_qnn , idomain ) = P_qnn ELSE P_qnn = scalar_index_table( PARAM_qnn , idomain ) END IF scalar_boundary_table( idomain, P_qnn ) = .TRUE. scalar_dname_table( idomain, P_qnn ) = 'QNCCN' scalar_desc_table( idomain, P_qnn ) = 'CCN Number concentration' scalar_units_table( idomain, P_qnn ) = ' kg(-1)' scalar_streams_table( idomain, P_qnn )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnn )%stream(2) = 2097152 ! 00200000 F_qnn = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 ! 00200000 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==16)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( scalar_index_table( PARAM_qnn , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnn = scalar_num_table(idomain) scalar_index_table( PARAM_qnn , idomain ) = P_qnn ELSE P_qnn = scalar_index_table( PARAM_qnn , idomain ) END IF scalar_boundary_table( idomain, P_qnn ) = .TRUE. scalar_dname_table( idomain, P_qnn ) = 'QNCCN' scalar_desc_table( idomain, P_qnn ) = 'CCN Number concentration' scalar_units_table( idomain, P_qnn ) = ' kg(-1)' scalar_streams_table( idomain, P_qnn )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnn )%stream(2) = 2097152 ! 00200000 F_qnn = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 ! 00200000 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==17)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( moist_index_table( PARAM_qh , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qh = moist_num_table(idomain) moist_index_table( PARAM_qh , idomain ) = P_qh ELSE P_qh = moist_index_table( PARAM_qh , idomain ) END IF moist_boundary_table( idomain, P_qh ) = .TRUE. moist_dname_table( idomain, P_qh ) = 'QHAIL' moist_desc_table( idomain, P_qh ) = 'Hail mixing ratio' moist_units_table( idomain, P_qh ) = 'kg kg-1' moist_streams_table( idomain, P_qh )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qh )%stream(2) = 2097152 ! 00200000 F_qh = .TRUE. IF ( scalar_index_table( PARAM_qndrop , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qndrop = scalar_num_table(idomain) scalar_index_table( PARAM_qndrop , idomain ) = P_qndrop ELSE P_qndrop = scalar_index_table( PARAM_qndrop , idomain ) END IF scalar_boundary_table( idomain, P_qndrop ) = .TRUE. scalar_dname_table( idomain, P_qndrop ) = 'QNDROP' scalar_desc_table( idomain, P_qndrop ) = 'Droplet number mixing ratio' scalar_units_table( idomain, P_qndrop ) = ' kg-1' scalar_streams_table( idomain, P_qndrop )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qndrop )%stream(2) = 2097152 ! 00200000 F_qndrop = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 ! 00200000 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 ! 00200000 F_qns = .TRUE. IF ( scalar_index_table( PARAM_qng , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qng = scalar_num_table(idomain) scalar_index_table( PARAM_qng , idomain ) = P_qng ELSE P_qng = scalar_index_table( PARAM_qng , idomain ) END IF scalar_boundary_table( idomain, P_qng ) = .TRUE. scalar_dname_table( idomain, P_qng ) = 'QNGRAUPEL' scalar_desc_table( idomain, P_qng ) = 'Graupel Number concentration' scalar_units_table( idomain, P_qng ) = ' kg(-1)' scalar_streams_table( idomain, P_qng )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qng )%stream(2) = 2097152 ! 00200000 F_qng = .TRUE. IF ( scalar_index_table( PARAM_qnh , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnh = scalar_num_table(idomain) scalar_index_table( PARAM_qnh , idomain ) = P_qnh ELSE P_qnh = scalar_index_table( PARAM_qnh , idomain ) END IF scalar_boundary_table( idomain, P_qnh ) = .TRUE. scalar_dname_table( idomain, P_qnh ) = 'QNHAIL' scalar_desc_table( idomain, P_qnh ) = 'Hail Number concentration' scalar_units_table( idomain, P_qnh ) = ' kg(-1)' scalar_streams_table( idomain, P_qnh )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnh )%stream(2) = 2097152 ! 00200000 F_qnh = .TRUE. IF ( scalar_index_table( PARAM_qvolg , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qvolg = scalar_num_table(idomain) scalar_index_table( PARAM_qvolg , idomain ) = P_qvolg ELSE P_qvolg = scalar_index_table( PARAM_qvolg , idomain ) END IF scalar_boundary_table( idomain, P_qvolg ) = .TRUE. scalar_dname_table( idomain, P_qvolg ) = 'QVGRAUPEL' scalar_desc_table( idomain, P_qvolg ) = 'Graupel Particle Volume' scalar_units_table( idomain, P_qvolg ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qvolg )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qvolg )%stream(2) = 2097152 ! 00200000 F_qvolg = .TRUE. IF ( scalar_index_table( PARAM_qvolh , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qvolh = scalar_num_table(idomain) scalar_index_table( PARAM_qvolh , idomain ) = P_qvolh ELSE P_qvolh = scalar_index_table( PARAM_qvolh , idomain ) END IF scalar_boundary_table( idomain, P_qvolh ) = .TRUE. scalar_dname_table( idomain, P_qvolh ) = 'QVHAIL' scalar_desc_table( idomain, P_qvolh ) = 'Hail Particle Volume' scalar_units_table( idomain, P_qvolh ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qvolh )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qvolh )%stream(2) = 2097152 ! 00200000 F_qvolh = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==18)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( moist_index_table( PARAM_qh , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qh = moist_num_table(idomain) moist_index_table( PARAM_qh , idomain ) = P_qh ELSE P_qh = moist_index_table( PARAM_qh , idomain ) END IF moist_boundary_table( idomain, P_qh ) = .TRUE. moist_dname_table( idomain, P_qh ) = 'QHAIL' moist_desc_table( idomain, P_qh ) = 'Hail mixing ratio' moist_units_table( idomain, P_qh ) = 'kg kg-1' moist_streams_table( idomain, P_qh )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qh )%stream(2) = 2097152 ! 00200000 F_qh = .TRUE. IF ( scalar_index_table( PARAM_qnn , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnn = scalar_num_table(idomain) scalar_index_table( PARAM_qnn , idomain ) = P_qnn ELSE P_qnn = scalar_index_table( PARAM_qnn , idomain ) END IF scalar_boundary_table( idomain, P_qnn ) = .TRUE. scalar_dname_table( idomain, P_qnn ) = 'QNCCN' scalar_desc_table( idomain, P_qnn ) = 'CCN Number concentration' scalar_units_table( idomain, P_qnn ) = ' kg(-1)' scalar_streams_table( idomain, P_qnn )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnn )%stream(2) = 2097152 ! 00200000 F_qnn = .TRUE. IF ( scalar_index_table( PARAM_qndrop , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qndrop = scalar_num_table(idomain) scalar_index_table( PARAM_qndrop , idomain ) = P_qndrop ELSE P_qndrop = scalar_index_table( PARAM_qndrop , idomain ) END IF scalar_boundary_table( idomain, P_qndrop ) = .TRUE. scalar_dname_table( idomain, P_qndrop ) = 'QNDROP' scalar_desc_table( idomain, P_qndrop ) = 'Droplet number mixing ratio' scalar_units_table( idomain, P_qndrop ) = ' kg-1' scalar_streams_table( idomain, P_qndrop )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qndrop )%stream(2) = 2097152 ! 00200000 F_qndrop = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 ! 00200000 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 ! 00200000 F_qns = .TRUE. IF ( scalar_index_table( PARAM_qng , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qng = scalar_num_table(idomain) scalar_index_table( PARAM_qng , idomain ) = P_qng ELSE P_qng = scalar_index_table( PARAM_qng , idomain ) END IF scalar_boundary_table( idomain, P_qng ) = .TRUE. scalar_dname_table( idomain, P_qng ) = 'QNGRAUPEL' scalar_desc_table( idomain, P_qng ) = 'Graupel Number concentration' scalar_units_table( idomain, P_qng ) = ' kg(-1)' scalar_streams_table( idomain, P_qng )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qng )%stream(2) = 2097152 ! 00200000 F_qng = .TRUE. IF ( scalar_index_table( PARAM_qnh , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnh = scalar_num_table(idomain) scalar_index_table( PARAM_qnh , idomain ) = P_qnh ELSE P_qnh = scalar_index_table( PARAM_qnh , idomain ) END IF scalar_boundary_table( idomain, P_qnh ) = .TRUE. scalar_dname_table( idomain, P_qnh ) = 'QNHAIL' scalar_desc_table( idomain, P_qnh ) = 'Hail Number concentration' scalar_units_table( idomain, P_qnh ) = ' kg(-1)' scalar_streams_table( idomain, P_qnh )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnh )%stream(2) = 2097152 ! 00200000 F_qnh = .TRUE. IF ( scalar_index_table( PARAM_qvolg , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qvolg = scalar_num_table(idomain) scalar_index_table( PARAM_qvolg , idomain ) = P_qvolg ELSE P_qvolg = scalar_index_table( PARAM_qvolg , idomain ) END IF scalar_boundary_table( idomain, P_qvolg ) = .TRUE. scalar_dname_table( idomain, P_qvolg ) = 'QVGRAUPEL' scalar_desc_table( idomain, P_qvolg ) = 'Graupel Particle Volume' scalar_units_table( idomain, P_qvolg ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qvolg )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qvolg )%stream(2) = 2097152 ! 00200000 F_qvolg = .TRUE. IF ( scalar_index_table( PARAM_qvolh , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qvolh = scalar_num_table(idomain) scalar_index_table( PARAM_qvolh , idomain ) = P_qvolh ELSE P_qvolh = scalar_index_table( PARAM_qvolh , idomain ) END IF scalar_boundary_table( idomain, P_qvolh ) = .TRUE. scalar_dname_table( idomain, P_qvolh ) = 'QVHAIL' scalar_desc_table( idomain, P_qvolh ) = 'Hail Particle Volume' scalar_units_table( idomain, P_qvolh ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qvolh )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qvolh )%stream(2) = 2097152 ! 00200000 F_qvolh = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==19)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( moist_index_table( PARAM_qh , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qh = moist_num_table(idomain) moist_index_table( PARAM_qh , idomain ) = P_qh ELSE P_qh = moist_index_table( PARAM_qh , idomain ) END IF moist_boundary_table( idomain, P_qh ) = .TRUE. moist_dname_table( idomain, P_qh ) = 'QHAIL' moist_desc_table( idomain, P_qh ) = 'Hail mixing ratio' moist_units_table( idomain, P_qh ) = 'kg kg-1' moist_streams_table( idomain, P_qh )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qh )%stream(2) = 2097152 ! 00200000 F_qh = .TRUE. IF ( scalar_index_table( PARAM_qvolg , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qvolg = scalar_num_table(idomain) scalar_index_table( PARAM_qvolg , idomain ) = P_qvolg ELSE P_qvolg = scalar_index_table( PARAM_qvolg , idomain ) END IF scalar_boundary_table( idomain, P_qvolg ) = .TRUE. scalar_dname_table( idomain, P_qvolg ) = 'QVGRAUPEL' scalar_desc_table( idomain, P_qvolg ) = 'Graupel Particle Volume' scalar_units_table( idomain, P_qvolg ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qvolg )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qvolg )%stream(2) = 2097152 ! 00200000 F_qvolg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==21)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==22)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( scalar_index_table( PARAM_qndrop , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qndrop = scalar_num_table(idomain) scalar_index_table( PARAM_qndrop , idomain ) = P_qndrop ELSE P_qndrop = scalar_index_table( PARAM_qndrop , idomain ) END IF scalar_boundary_table( idomain, P_qndrop ) = .TRUE. scalar_dname_table( idomain, P_qndrop ) = 'QNDROP' scalar_desc_table( idomain, P_qndrop ) = 'Droplet number mixing ratio' scalar_units_table( idomain, P_qndrop ) = ' kg-1' scalar_streams_table( idomain, P_qndrop )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qndrop )%stream(2) = 2097152 ! 00200000 F_qndrop = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 ! 00200000 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 ! 00200000 F_qns = .TRUE. IF ( scalar_index_table( PARAM_qng , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qng = scalar_num_table(idomain) scalar_index_table( PARAM_qng , idomain ) = P_qng ELSE P_qng = scalar_index_table( PARAM_qng , idomain ) END IF scalar_boundary_table( idomain, P_qng ) = .TRUE. scalar_dname_table( idomain, P_qng ) = 'QNGRAUPEL' scalar_desc_table( idomain, P_qng ) = 'Graupel Number concentration' scalar_units_table( idomain, P_qng ) = ' kg(-1)' scalar_streams_table( idomain, P_qng )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qng )%stream(2) = 2097152 ! 00200000 F_qng = .TRUE. IF ( scalar_index_table( PARAM_qvolg , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qvolg = scalar_num_table(idomain) scalar_index_table( PARAM_qvolg , idomain ) = P_qvolg ELSE P_qvolg = scalar_index_table( PARAM_qvolg , idomain ) END IF scalar_boundary_table( idomain, P_qvolg ) = .TRUE. scalar_dname_table( idomain, P_qvolg ) = 'QVGRAUPEL' scalar_desc_table( idomain, P_qvolg ) = 'Graupel Particle Volume' scalar_units_table( idomain, P_qvolg ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qvolg )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qvolg )%stream(2) = 2097152 ! 00200000 F_qvolg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==28)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 ! 00200000 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 ! 00200000 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qnwfa , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnwfa = scalar_num_table(idomain) scalar_index_table( PARAM_qnwfa , idomain ) = P_qnwfa ELSE P_qnwfa = scalar_index_table( PARAM_qnwfa , idomain ) END IF scalar_boundary_table( idomain, P_qnwfa ) = .TRUE. scalar_dname_table( idomain, P_qnwfa ) = 'QNWFA' scalar_desc_table( idomain, P_qnwfa ) = 'water-friendly aerosol number con' scalar_units_table( idomain, P_qnwfa ) = ' kg(-1)' scalar_streams_table( idomain, P_qnwfa )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnwfa )%stream(2) = 2097152 ! 00200000 F_qnwfa = .TRUE. IF ( scalar_index_table( PARAM_qnifa , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnifa = scalar_num_table(idomain) scalar_index_table( PARAM_qnifa , idomain ) = P_qnifa ELSE P_qnifa = scalar_index_table( PARAM_qnifa , idomain ) END IF scalar_boundary_table( idomain, P_qnifa ) = .TRUE. scalar_dname_table( idomain, P_qnifa ) = 'QNIFA' scalar_desc_table( idomain, P_qnifa ) = 'ice-friendly aerosol number con' scalar_units_table( idomain, P_qnifa ) = ' kg(-1)' scalar_streams_table( idomain, P_qnifa )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnifa )%stream(2) = 2097152 ! 00200000 F_qnifa = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==50)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 ! 00200000 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qir , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qir = scalar_num_table(idomain) scalar_index_table( PARAM_qir , idomain ) = P_qir ELSE P_qir = scalar_index_table( PARAM_qir , idomain ) END IF scalar_boundary_table( idomain, P_qir ) = .TRUE. scalar_dname_table( idomain, P_qir ) = 'QIR' scalar_desc_table( idomain, P_qir ) = 'Rime ice mass-1 mixing ratio' scalar_units_table( idomain, P_qir ) = 'kg kg(-1)' scalar_streams_table( idomain, P_qir )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qir )%stream(2) = 2097152 ! 00200000 F_qir = .TRUE. IF ( scalar_index_table( PARAM_qib , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qib = scalar_num_table(idomain) scalar_index_table( PARAM_qib , idomain ) = P_qib ELSE P_qib = scalar_index_table( PARAM_qib , idomain ) END IF scalar_boundary_table( idomain, P_qib ) = .TRUE. scalar_dname_table( idomain, P_qib ) = 'QIB' scalar_desc_table( idomain, P_qib ) = 'Rime ice volume-1 mixing ratio' scalar_units_table( idomain, P_qib ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qib )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qib )%stream(2) = 2097152 ! 00200000 F_qib = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==51)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 ! 00200000 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 ! 00200000 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qir , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qir = scalar_num_table(idomain) scalar_index_table( PARAM_qir , idomain ) = P_qir ELSE P_qir = scalar_index_table( PARAM_qir , idomain ) END IF scalar_boundary_table( idomain, P_qir ) = .TRUE. scalar_dname_table( idomain, P_qir ) = 'QIR' scalar_desc_table( idomain, P_qir ) = 'Rime ice mass-1 mixing ratio' scalar_units_table( idomain, P_qir ) = 'kg kg(-1)' scalar_streams_table( idomain, P_qir )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qir )%stream(2) = 2097152 ! 00200000 F_qir = .TRUE. IF ( scalar_index_table( PARAM_qib , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qib = scalar_num_table(idomain) scalar_index_table( PARAM_qib , idomain ) = P_qib ELSE P_qib = scalar_index_table( PARAM_qib , idomain ) END IF scalar_boundary_table( idomain, P_qib ) = .TRUE. scalar_dname_table( idomain, P_qib ) = 'QIB' scalar_desc_table( idomain, P_qib ) = 'Rime ice volume-1 mixing ratio' scalar_units_table( idomain, P_qib ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qib )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qib )%stream(2) = 2097152 ! 00200000 F_qib = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==95)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( scalar_index_table( PARAM_qt , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qt = scalar_num_table(idomain) scalar_index_table( PARAM_qt , idomain ) = P_qt ELSE P_qt = scalar_index_table( PARAM_qt , idomain ) END IF scalar_boundary_table( idomain, P_qt ) = .TRUE. scalar_dname_table( idomain, P_qt ) = 'CWM' scalar_desc_table( idomain, P_qt ) = 'Total condensate mixing ratio' scalar_units_table( idomain, P_qt ) = 'kg kg-1' scalar_streams_table( idomain, P_qt )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qt )%stream(2) = 2097152 ! 00200000 F_qt = .TRUE. END IF IF (model_config_rec%compute_radar_ref==1)THEN END IF IF (model_config_rec%mp_physics_dfi(idomain)==-1)THEN END IF IF (model_config_rec%mp_physics_dfi(idomain)==0)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==1)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==2)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 ! 00200000 F_dfi_qg = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==3)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==4)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==5)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qt , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qt = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qt , idomain ) = P_dfi_qt ELSE P_dfi_qt = dfi_scalar_index_table( PARAM_dfi_qt , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qt ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qt ) = 'DFI_CWM' dfi_scalar_desc_table( idomain, P_dfi_qt ) = 'DFI Total condensate mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qt ) = 'kg kg-1' dfi_scalar_streams_table( idomain, P_dfi_qt )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qt )%stream(2) = 2097152 ! 00200000 F_dfi_qt = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==6)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 ! 00200000 F_dfi_qg = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==7)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 ! 00200000 F_dfi_qg = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==8)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 ! 00200000 F_dfi_qg = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = 'DFI Ice Number concentration' dfi_scalar_units_table( idomain, P_dfi_qni ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(2) = 2097152 ! 00200000 F_dfi_qni = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 ! 00200000 F_dfi_qnr = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==9)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 ! 00200000 F_dfi_qg = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qh , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qh = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qh , idomain ) = P_dfi_qh ELSE P_dfi_qh = dfi_moist_index_table( PARAM_dfi_qh , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qh ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qh ) = 'DFI_QHAIL' dfi_moist_desc_table( idomain, P_dfi_qh ) = 'Hail mixing ratio' dfi_moist_units_table( idomain, P_dfi_qh ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qh )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qh )%stream(2) = 2097152 ! 00200000 F_dfi_qh = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnc = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) = P_dfi_qnc ELSE P_dfi_qnc = dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnc ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnc ) = 'DFI_QNCLOUD' dfi_scalar_desc_table( idomain, P_dfi_qnc ) = 'DFI Cloud Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnc ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(2) = 2097152 ! 00200000 F_dfi_qnc = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 ! 00200000 F_dfi_qnr = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = 'DFI Ice Number concentration' dfi_scalar_units_table( idomain, P_dfi_qni ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(2) = 2097152 ! 00200000 F_dfi_qni = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qns , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qns = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qns , idomain ) = P_dfi_qns ELSE P_dfi_qns = dfi_scalar_index_table( PARAM_dfi_qns , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qns ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qns ) = 'DFI_QNSNOW' dfi_scalar_desc_table( idomain, P_dfi_qns ) = 'DFI Snow Number concentration' dfi_scalar_units_table( idomain, P_dfi_qns ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qns )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qns )%stream(2) = 2097152 ! 00200000 F_dfi_qns = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qng , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qng = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qng , idomain ) = P_dfi_qng ELSE P_dfi_qng = dfi_scalar_index_table( PARAM_dfi_qng , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qng ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qng ) = 'DFI_QNGRAUPEL' dfi_scalar_desc_table( idomain, P_dfi_qng ) = 'DFI Graupel Number concentration' dfi_scalar_units_table( idomain, P_dfi_qng ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qng )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qng )%stream(2) = 2097152 ! 00200000 F_dfi_qng = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnh = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) = P_dfi_qnh ELSE P_dfi_qnh = dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnh ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnh ) = 'DFI_QNHAIL' dfi_scalar_desc_table( idomain, P_dfi_qnh ) = 'DFI Hail Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnh ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnh )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnh )%stream(2) = 2097152 ! 00200000 F_dfi_qnh = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==10)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 ! 00200000 F_dfi_qg = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = 'DFI Ice Number concentration' dfi_scalar_units_table( idomain, P_dfi_qni ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(2) = 2097152 ! 00200000 F_dfi_qni = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qns , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qns = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qns , idomain ) = P_dfi_qns ELSE P_dfi_qns = dfi_scalar_index_table( PARAM_dfi_qns , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qns ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qns ) = 'DFI_QNSNOW' dfi_scalar_desc_table( idomain, P_dfi_qns ) = 'DFI Snow Number concentration' dfi_scalar_units_table( idomain, P_dfi_qns ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qns )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qns )%stream(2) = 2097152 ! 00200000 F_dfi_qns = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 ! 00200000 F_dfi_qnr = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qng , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qng = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qng , idomain ) = P_dfi_qng ELSE P_dfi_qng = dfi_scalar_index_table( PARAM_dfi_qng , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qng ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qng ) = 'DFI_QNGRAUPEL' dfi_scalar_desc_table( idomain, P_dfi_qng ) = 'DFI Graupel Number concentration' dfi_scalar_units_table( idomain, P_dfi_qng ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qng )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qng )%stream(2) = 2097152 ! 00200000 F_dfi_qng = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==14)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnn = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) = P_dfi_qnn ELSE P_dfi_qnn = dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnn ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnn ) = 'DFI_QNCC' dfi_scalar_desc_table( idomain, P_dfi_qnn ) = 'DFI CNN Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnn ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnn )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnn )%stream(2) = 2097152 ! 00200000 F_dfi_qnn = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnc = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) = P_dfi_qnc ELSE P_dfi_qnc = dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnc ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnc ) = 'DFI_QNCLOUD' dfi_scalar_desc_table( idomain, P_dfi_qnc ) = 'DFI Cloud Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnc ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(2) = 2097152 ! 00200000 F_dfi_qnc = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 ! 00200000 F_dfi_qnr = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==16)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 ! 00200000 F_dfi_qg = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnn = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) = P_dfi_qnn ELSE P_dfi_qnn = dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnn ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnn ) = 'DFI_QNCC' dfi_scalar_desc_table( idomain, P_dfi_qnn ) = 'DFI CNN Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnn ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnn )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnn )%stream(2) = 2097152 ! 00200000 F_dfi_qnn = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnc = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) = P_dfi_qnc ELSE P_dfi_qnc = dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnc ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnc ) = 'DFI_QNCLOUD' dfi_scalar_desc_table( idomain, P_dfi_qnc ) = 'DFI Cloud Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnc ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(2) = 2097152 ! 00200000 F_dfi_qnc = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 ! 00200000 F_dfi_qnr = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==17)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 ! 00200000 F_dfi_qg = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qh , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qh = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qh , idomain ) = P_dfi_qh ELSE P_dfi_qh = dfi_moist_index_table( PARAM_dfi_qh , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qh ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qh ) = 'DFI_QHAIL' dfi_moist_desc_table( idomain, P_dfi_qh ) = 'Hail mixing ratio' dfi_moist_units_table( idomain, P_dfi_qh ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qh )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qh )%stream(2) = 2097152 ! 00200000 F_dfi_qh = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qndrop = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) = P_dfi_qndrop ELSE P_dfi_qndrop = dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qndrop ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qndrop ) = 'DFI_QNDROP' dfi_scalar_desc_table( idomain, P_dfi_qndrop ) = 'DFI Droplet number mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qndrop ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qndrop )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qndrop )%stream(2) = 2097152 ! 00200000 F_dfi_qndrop = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 ! 00200000 F_dfi_qnr = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = 'DFI Ice Number concentration' dfi_scalar_units_table( idomain, P_dfi_qni ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(2) = 2097152 ! 00200000 F_dfi_qni = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qns , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qns = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qns , idomain ) = P_dfi_qns ELSE P_dfi_qns = dfi_scalar_index_table( PARAM_dfi_qns , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qns ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qns ) = 'DFI_QNSNOW' dfi_scalar_desc_table( idomain, P_dfi_qns ) = 'DFI Snow Number concentration' dfi_scalar_units_table( idomain, P_dfi_qns ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qns )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qns )%stream(2) = 2097152 ! 00200000 F_dfi_qns = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qng , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qng = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qng , idomain ) = P_dfi_qng ELSE P_dfi_qng = dfi_scalar_index_table( PARAM_dfi_qng , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qng ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qng ) = 'DFI_QNGRAUPEL' dfi_scalar_desc_table( idomain, P_dfi_qng ) = 'DFI Graupel Number concentration' dfi_scalar_units_table( idomain, P_dfi_qng ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qng )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qng )%stream(2) = 2097152 ! 00200000 F_dfi_qng = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnh = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) = P_dfi_qnh ELSE P_dfi_qnh = dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnh ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnh ) = 'DFI_QNHAIL' dfi_scalar_desc_table( idomain, P_dfi_qnh ) = 'DFI Hail Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnh ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnh )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnh )%stream(2) = 2097152 ! 00200000 F_dfi_qnh = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qvolg = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) = P_dfi_qvolg ELSE P_dfi_qvolg = dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qvolg ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qvolg ) = 'DFI_QVGRAUPEL' dfi_scalar_desc_table( idomain, P_dfi_qvolg ) = 'DFI Graupel Particle Volume' dfi_scalar_units_table( idomain, P_dfi_qvolg ) = 'm(3) kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qvolg )%stream(1) = 1 ! 00000001 dfi_scalar_streams_table( idomain, P_dfi_qvolg )%stream(2) = 2097152 ! 00200000 F_dfi_qvolg = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qvolh , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qvolh = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qvolh , idomain ) = P_dfi_qvolh ELSE P_dfi_qvolh = dfi_scalar_index_table( PARAM_dfi_qvolh , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qvolh ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qvolh ) = 'DFI_QVHAIL' dfi_scalar_desc_table( idomain, P_dfi_qvolh ) = 'DFI Hail Particle Volume' dfi_scalar_units_table( idomain, P_dfi_qvolh ) = 'm(3) kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qvolh )%stream(1) = 1 ! 00000001 dfi_scalar_streams_table( idomain, P_dfi_qvolh )%stream(2) = 2097152 ! 00200000 F_dfi_qvolh = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==18)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 ! 00200000 F_dfi_qg = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qh , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qh = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qh , idomain ) = P_dfi_qh ELSE P_dfi_qh = dfi_moist_index_table( PARAM_dfi_qh , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qh ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qh ) = 'DFI_QHAIL' dfi_moist_desc_table( idomain, P_dfi_qh ) = 'Hail mixing ratio' dfi_moist_units_table( idomain, P_dfi_qh ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qh )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qh )%stream(2) = 2097152 ! 00200000 F_dfi_qh = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qndrop = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) = P_dfi_qndrop ELSE P_dfi_qndrop = dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qndrop ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qndrop ) = 'DFI_QNDROP' dfi_scalar_desc_table( idomain, P_dfi_qndrop ) = 'DFI Droplet number mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qndrop ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qndrop )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qndrop )%stream(2) = 2097152 ! 00200000 F_dfi_qndrop = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnn = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) = P_dfi_qnn ELSE P_dfi_qnn = dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnn ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnn ) = 'DFI_QNCC' dfi_scalar_desc_table( idomain, P_dfi_qnn ) = 'DFI CNN Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnn ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnn )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnn )%stream(2) = 2097152 ! 00200000 F_dfi_qnn = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 ! 00200000 F_dfi_qnr = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = 'DFI Ice Number concentration' dfi_scalar_units_table( idomain, P_dfi_qni ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(2) = 2097152 ! 00200000 F_dfi_qni = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qns , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qns = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qns , idomain ) = P_dfi_qns ELSE P_dfi_qns = dfi_scalar_index_table( PARAM_dfi_qns , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qns ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qns ) = 'DFI_QNSNOW' dfi_scalar_desc_table( idomain, P_dfi_qns ) = 'DFI Snow Number concentration' dfi_scalar_units_table( idomain, P_dfi_qns ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qns )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qns )%stream(2) = 2097152 ! 00200000 F_dfi_qns = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qng , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qng = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qng , idomain ) = P_dfi_qng ELSE P_dfi_qng = dfi_scalar_index_table( PARAM_dfi_qng , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qng ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qng ) = 'DFI_QNGRAUPEL' dfi_scalar_desc_table( idomain, P_dfi_qng ) = 'DFI Graupel Number concentration' dfi_scalar_units_table( idomain, P_dfi_qng ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qng )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qng )%stream(2) = 2097152 ! 00200000 F_dfi_qng = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnh = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) = P_dfi_qnh ELSE P_dfi_qnh = dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnh ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnh ) = 'DFI_QNHAIL' dfi_scalar_desc_table( idomain, P_dfi_qnh ) = 'DFI Hail Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnh ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnh )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnh )%stream(2) = 2097152 ! 00200000 F_dfi_qnh = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qvolg = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) = P_dfi_qvolg ELSE P_dfi_qvolg = dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qvolg ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qvolg ) = 'DFI_QVGRAUPEL' dfi_scalar_desc_table( idomain, P_dfi_qvolg ) = 'DFI Graupel Particle Volume' dfi_scalar_units_table( idomain, P_dfi_qvolg ) = 'm(3) kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qvolg )%stream(1) = 1 ! 00000001 dfi_scalar_streams_table( idomain, P_dfi_qvolg )%stream(2) = 2097152 ! 00200000 F_dfi_qvolg = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==19)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 ! 00200000 F_dfi_qg = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qh , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qh = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qh , idomain ) = P_dfi_qh ELSE P_dfi_qh = dfi_moist_index_table( PARAM_dfi_qh , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qh ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qh ) = 'DFI_QHAIL' dfi_moist_desc_table( idomain, P_dfi_qh ) = 'Hail mixing ratio' dfi_moist_units_table( idomain, P_dfi_qh ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qh )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qh )%stream(2) = 2097152 ! 00200000 F_dfi_qh = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qvolg = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) = P_dfi_qvolg ELSE P_dfi_qvolg = dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qvolg ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qvolg ) = 'DFI_QVGRAUPEL' dfi_scalar_desc_table( idomain, P_dfi_qvolg ) = 'DFI Graupel Particle Volume' dfi_scalar_units_table( idomain, P_dfi_qvolg ) = 'm(3) kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qvolg )%stream(1) = 1 ! 00000001 dfi_scalar_streams_table( idomain, P_dfi_qvolg )%stream(2) = 2097152 ! 00200000 F_dfi_qvolg = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==21)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 ! 00200000 F_dfi_qg = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==28)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 ! 00200000 F_dfi_qg = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = 'DFI Ice Number concentration' dfi_scalar_units_table( idomain, P_dfi_qni ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(2) = 2097152 ! 00200000 F_dfi_qni = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 ! 00200000 F_dfi_qnr = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnc = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) = P_dfi_qnc ELSE P_dfi_qnc = dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnc ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnc ) = 'DFI_QNCLOUD' dfi_scalar_desc_table( idomain, P_dfi_qnc ) = 'DFI Cloud Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnc ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(2) = 2097152 ! 00200000 F_dfi_qnc = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnwfa , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnwfa = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnwfa , idomain ) = P_dfi_qnwfa ELSE P_dfi_qnwfa = dfi_scalar_index_table( PARAM_dfi_qnwfa , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnwfa ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnwfa ) = 'DFI_QNWFA' dfi_scalar_desc_table( idomain, P_dfi_qnwfa ) = 'DFI water-friendly aerosol number con' dfi_scalar_units_table( idomain, P_dfi_qnwfa ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnwfa )%stream(1) = 33554433 ! 02000001 dfi_scalar_streams_table( idomain, P_dfi_qnwfa )%stream(2) = 2097152 ! 00200000 F_dfi_qnwfa = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnifa , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnifa = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnifa , idomain ) = P_dfi_qnifa ELSE P_dfi_qnifa = dfi_scalar_index_table( PARAM_dfi_qnifa , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnifa ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnifa ) = 'DFI_QNIFA' dfi_scalar_desc_table( idomain, P_dfi_qnifa ) = 'DFI ice-friendly aerosol number con' dfi_scalar_units_table( idomain, P_dfi_qnifa ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnifa )%stream(1) = 33554433 ! 02000001 dfi_scalar_streams_table( idomain, P_dfi_qnifa )%stream(2) = 2097152 ! 00200000 F_dfi_qnifa = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==50)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = 'DFI Ice Number concentration' dfi_scalar_units_table( idomain, P_dfi_qni ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(2) = 2097152 ! 00200000 F_dfi_qni = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 ! 00200000 F_dfi_qnr = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qir , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qir = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qir , idomain ) = P_dfi_qir ELSE P_dfi_qir = dfi_scalar_index_table( PARAM_dfi_qir , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qir ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qir ) = 'DFI_QIR' dfi_scalar_desc_table( idomain, P_dfi_qir ) = 'DFI Rime ice mass-1 mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qir ) = 'kg kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qir )%stream(1) = 1 ! 00000001 dfi_scalar_streams_table( idomain, P_dfi_qir )%stream(2) = 2097152 ! 00200000 F_dfi_qir = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qib , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qib = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qib , idomain ) = P_dfi_qib ELSE P_dfi_qib = dfi_scalar_index_table( PARAM_dfi_qib , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qib ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qib ) = 'DFI_QIB' dfi_scalar_desc_table( idomain, P_dfi_qib ) = 'DFI Rime ice volume-1 mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qib ) = 'm(3) kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qib )%stream(1) = 1 ! 00000001 dfi_scalar_streams_table( idomain, P_dfi_qib )%stream(2) = 2097152 ! 00200000 F_dfi_qib = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==51)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnc = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) = P_dfi_qnc ELSE P_dfi_qnc = dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnc ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnc ) = 'DFI_QNCLOUD' dfi_scalar_desc_table( idomain, P_dfi_qnc ) = 'DFI Cloud Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnc ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(2) = 2097152 ! 00200000 F_dfi_qnc = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = 'DFI Ice Number concentration' dfi_scalar_units_table( idomain, P_dfi_qni ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(2) = 2097152 ! 00200000 F_dfi_qni = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 ! 00200000 F_dfi_qnr = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qir , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qir = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qir , idomain ) = P_dfi_qir ELSE P_dfi_qir = dfi_scalar_index_table( PARAM_dfi_qir , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qir ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qir ) = 'DFI_QIR' dfi_scalar_desc_table( idomain, P_dfi_qir ) = 'DFI Rime ice mass-1 mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qir ) = 'kg kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qir )%stream(1) = 1 ! 00000001 dfi_scalar_streams_table( idomain, P_dfi_qir )%stream(2) = 2097152 ! 00200000 F_dfi_qir = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qib , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qib = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qib , idomain ) = P_dfi_qib ELSE P_dfi_qib = dfi_scalar_index_table( PARAM_dfi_qib , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qib ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qib ) = 'DFI_QIB' dfi_scalar_desc_table( idomain, P_dfi_qib ) = 'DFI Rime ice volume-1 mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qib ) = 'm(3) kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qib )%stream(1) = 1 ! 00000001 dfi_scalar_streams_table( idomain, P_dfi_qib )%stream(2) = 2097152 ! 00200000 F_dfi_qib = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==95)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qt , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qt = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qt , idomain ) = P_dfi_qt ELSE P_dfi_qt = dfi_scalar_index_table( PARAM_dfi_qt , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qt ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qt ) = 'DFI_CWM' dfi_scalar_desc_table( idomain, P_dfi_qt ) = 'DFI Total condensate mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qt ) = 'kg kg-1' dfi_scalar_streams_table( idomain, P_dfi_qt )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qt )%stream(2) = 2097152 ! 00200000 F_dfi_qt = .TRUE. END IF IF (model_config_rec%progn(idomain)==0)THEN END IF IF (model_config_rec%progn(idomain)==1)THEN IF ( scalar_index_table( PARAM_qndrop , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qndrop = scalar_num_table(idomain) scalar_index_table( PARAM_qndrop , idomain ) = P_qndrop ELSE P_qndrop = scalar_index_table( PARAM_qndrop , idomain ) END IF scalar_boundary_table( idomain, P_qndrop ) = .TRUE. scalar_dname_table( idomain, P_qndrop ) = 'QNDROP' scalar_desc_table( idomain, P_qndrop ) = 'Droplet number mixing ratio' scalar_units_table( idomain, P_qndrop ) = ' kg-1' scalar_streams_table( idomain, P_qndrop )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qndrop )%stream(2) = 2097152 ! 00200000 F_qndrop = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qndrop = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) = P_dfi_qndrop ELSE P_dfi_qndrop = dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qndrop ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qndrop ) = 'DFI_QNDROP' dfi_scalar_desc_table( idomain, P_dfi_qndrop ) = 'DFI Droplet number mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qndrop ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qndrop )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qndrop )%stream(2) = 2097152 ! 00200000 F_dfi_qndrop = .TRUE. END IF IF (model_config_rec%alloc_qndropsource==0)THEN END IF IF (model_config_rec%alloc_qndropsource==1)THEN END IF IF (model_config_rec%ra_lw_physics(idomain)==1)THEN END IF IF (model_config_rec%ra_lw_physics(idomain)==3)THEN IF ( ozmixm_index_table( PARAM_mth01 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth01 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth01 , idomain ) = P_mth01 ELSE P_mth01 = ozmixm_index_table( PARAM_mth01 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth01 ) = .FALSE. ozmixm_dname_table( idomain, P_mth01 ) = '' ozmixm_desc_table( idomain, P_mth01 ) = '-' ozmixm_units_table( idomain, P_mth01 ) = '-' ozmixm_streams_table( idomain, P_mth01 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth01 )%stream(2) = 0 ! 00000000 F_mth01 = .TRUE. IF ( ozmixm_index_table( PARAM_mth02 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth02 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth02 , idomain ) = P_mth02 ELSE P_mth02 = ozmixm_index_table( PARAM_mth02 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth02 ) = .FALSE. ozmixm_dname_table( idomain, P_mth02 ) = '' ozmixm_desc_table( idomain, P_mth02 ) = '-' ozmixm_units_table( idomain, P_mth02 ) = '-' ozmixm_streams_table( idomain, P_mth02 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth02 )%stream(2) = 0 ! 00000000 F_mth02 = .TRUE. IF ( ozmixm_index_table( PARAM_mth03 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth03 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth03 , idomain ) = P_mth03 ELSE P_mth03 = ozmixm_index_table( PARAM_mth03 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth03 ) = .FALSE. ozmixm_dname_table( idomain, P_mth03 ) = '' ozmixm_desc_table( idomain, P_mth03 ) = '-' ozmixm_units_table( idomain, P_mth03 ) = '-' ozmixm_streams_table( idomain, P_mth03 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth03 )%stream(2) = 0 ! 00000000 F_mth03 = .TRUE. IF ( ozmixm_index_table( PARAM_mth04 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth04 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth04 , idomain ) = P_mth04 ELSE P_mth04 = ozmixm_index_table( PARAM_mth04 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth04 ) = .FALSE. ozmixm_dname_table( idomain, P_mth04 ) = '' ozmixm_desc_table( idomain, P_mth04 ) = '-' ozmixm_units_table( idomain, P_mth04 ) = '-' ozmixm_streams_table( idomain, P_mth04 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth04 )%stream(2) = 0 ! 00000000 F_mth04 = .TRUE. IF ( ozmixm_index_table( PARAM_mth05 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth05 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth05 , idomain ) = P_mth05 ELSE P_mth05 = ozmixm_index_table( PARAM_mth05 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth05 ) = .FALSE. ozmixm_dname_table( idomain, P_mth05 ) = '' ozmixm_desc_table( idomain, P_mth05 ) = '-' ozmixm_units_table( idomain, P_mth05 ) = '-' ozmixm_streams_table( idomain, P_mth05 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth05 )%stream(2) = 0 ! 00000000 F_mth05 = .TRUE. IF ( ozmixm_index_table( PARAM_mth06 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth06 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth06 , idomain ) = P_mth06 ELSE P_mth06 = ozmixm_index_table( PARAM_mth06 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth06 ) = .FALSE. ozmixm_dname_table( idomain, P_mth06 ) = '' ozmixm_desc_table( idomain, P_mth06 ) = '-' ozmixm_units_table( idomain, P_mth06 ) = '-' ozmixm_streams_table( idomain, P_mth06 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth06 )%stream(2) = 0 ! 00000000 F_mth06 = .TRUE. IF ( ozmixm_index_table( PARAM_mth07 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth07 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth07 , idomain ) = P_mth07 ELSE P_mth07 = ozmixm_index_table( PARAM_mth07 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth07 ) = .FALSE. ozmixm_dname_table( idomain, P_mth07 ) = '' ozmixm_desc_table( idomain, P_mth07 ) = '-' ozmixm_units_table( idomain, P_mth07 ) = '-' ozmixm_streams_table( idomain, P_mth07 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth07 )%stream(2) = 0 ! 00000000 F_mth07 = .TRUE. IF ( ozmixm_index_table( PARAM_mth08 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth08 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth08 , idomain ) = P_mth08 ELSE P_mth08 = ozmixm_index_table( PARAM_mth08 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth08 ) = .FALSE. ozmixm_dname_table( idomain, P_mth08 ) = '' ozmixm_desc_table( idomain, P_mth08 ) = '-' ozmixm_units_table( idomain, P_mth08 ) = '-' ozmixm_streams_table( idomain, P_mth08 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth08 )%stream(2) = 0 ! 00000000 F_mth08 = .TRUE. IF ( ozmixm_index_table( PARAM_mth09 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth09 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth09 , idomain ) = P_mth09 ELSE P_mth09 = ozmixm_index_table( PARAM_mth09 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth09 ) = .FALSE. ozmixm_dname_table( idomain, P_mth09 ) = '' ozmixm_desc_table( idomain, P_mth09 ) = '-' ozmixm_units_table( idomain, P_mth09 ) = '-' ozmixm_streams_table( idomain, P_mth09 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth09 )%stream(2) = 0 ! 00000000 F_mth09 = .TRUE. IF ( ozmixm_index_table( PARAM_mth10 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth10 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth10 , idomain ) = P_mth10 ELSE P_mth10 = ozmixm_index_table( PARAM_mth10 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth10 ) = .FALSE. ozmixm_dname_table( idomain, P_mth10 ) = '' ozmixm_desc_table( idomain, P_mth10 ) = '-' ozmixm_units_table( idomain, P_mth10 ) = '-' ozmixm_streams_table( idomain, P_mth10 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth10 )%stream(2) = 0 ! 00000000 F_mth10 = .TRUE. IF ( ozmixm_index_table( PARAM_mth11 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth11 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth11 , idomain ) = P_mth11 ELSE P_mth11 = ozmixm_index_table( PARAM_mth11 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth11 ) = .FALSE. ozmixm_dname_table( idomain, P_mth11 ) = '' ozmixm_desc_table( idomain, P_mth11 ) = '-' ozmixm_units_table( idomain, P_mth11 ) = '-' ozmixm_streams_table( idomain, P_mth11 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth11 )%stream(2) = 0 ! 00000000 F_mth11 = .TRUE. IF ( ozmixm_index_table( PARAM_mth12 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth12 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth12 , idomain ) = P_mth12 ELSE P_mth12 = ozmixm_index_table( PARAM_mth12 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth12 ) = .FALSE. ozmixm_dname_table( idomain, P_mth12 ) = '' ozmixm_desc_table( idomain, P_mth12 ) = '-' ozmixm_units_table( idomain, P_mth12 ) = '-' ozmixm_streams_table( idomain, P_mth12 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth12 )%stream(2) = 0 ! 00000000 F_mth12 = .TRUE. IF ( aerosolc_index_table( PARAM_sul , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_sul = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_sul , idomain ) = P_sul ELSE P_sul = aerosolc_index_table( PARAM_sul , idomain ) END IF aerosolc_boundary_table( idomain, P_sul ) = .FALSE. aerosolc_dname_table( idomain, P_sul ) = 'SUL' aerosolc_desc_table( idomain, P_sul ) = 'SUL aerosol concentration' aerosolc_units_table( idomain, P_sul ) = '-' aerosolc_streams_table( idomain, P_sul )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_sul )%stream(2) = 0 ! 00000000 F_sul = .TRUE. IF ( aerosolc_index_table( PARAM_sslt , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_sslt = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_sslt , idomain ) = P_sslt ELSE P_sslt = aerosolc_index_table( PARAM_sslt , idomain ) END IF aerosolc_boundary_table( idomain, P_sslt ) = .FALSE. aerosolc_dname_table( idomain, P_sslt ) = 'SSLT' aerosolc_desc_table( idomain, P_sslt ) = 'SSLT aerosol concentration' aerosolc_units_table( idomain, P_sslt ) = '-' aerosolc_streams_table( idomain, P_sslt )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_sslt )%stream(2) = 0 ! 00000000 F_sslt = .TRUE. IF ( aerosolc_index_table( PARAM_dust1 , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_dust1 = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_dust1 , idomain ) = P_dust1 ELSE P_dust1 = aerosolc_index_table( PARAM_dust1 , idomain ) END IF aerosolc_boundary_table( idomain, P_dust1 ) = .FALSE. aerosolc_dname_table( idomain, P_dust1 ) = 'DUST1' aerosolc_desc_table( idomain, P_dust1 ) = 'DUST1 aerosol concentration' aerosolc_units_table( idomain, P_dust1 ) = '-' aerosolc_streams_table( idomain, P_dust1 )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_dust1 )%stream(2) = 0 ! 00000000 F_dust1 = .TRUE. IF ( aerosolc_index_table( PARAM_dust2 , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_dust2 = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_dust2 , idomain ) = P_dust2 ELSE P_dust2 = aerosolc_index_table( PARAM_dust2 , idomain ) END IF aerosolc_boundary_table( idomain, P_dust2 ) = .FALSE. aerosolc_dname_table( idomain, P_dust2 ) = 'DUST2' aerosolc_desc_table( idomain, P_dust2 ) = 'DUST2 aerosol concentration' aerosolc_units_table( idomain, P_dust2 ) = '-' aerosolc_streams_table( idomain, P_dust2 )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_dust2 )%stream(2) = 0 ! 00000000 F_dust2 = .TRUE. IF ( aerosolc_index_table( PARAM_dust3 , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_dust3 = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_dust3 , idomain ) = P_dust3 ELSE P_dust3 = aerosolc_index_table( PARAM_dust3 , idomain ) END IF aerosolc_boundary_table( idomain, P_dust3 ) = .FALSE. aerosolc_dname_table( idomain, P_dust3 ) = 'DUST3' aerosolc_desc_table( idomain, P_dust3 ) = 'DUST3 aerosol concentration' aerosolc_units_table( idomain, P_dust3 ) = '-' aerosolc_streams_table( idomain, P_dust3 )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_dust3 )%stream(2) = 0 ! 00000000 F_dust3 = .TRUE. IF ( aerosolc_index_table( PARAM_dust4 , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_dust4 = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_dust4 , idomain ) = P_dust4 ELSE P_dust4 = aerosolc_index_table( PARAM_dust4 , idomain ) END IF aerosolc_boundary_table( idomain, P_dust4 ) = .FALSE. aerosolc_dname_table( idomain, P_dust4 ) = 'DUST4' aerosolc_desc_table( idomain, P_dust4 ) = 'DUST4 aerosol concentration' aerosolc_units_table( idomain, P_dust4 ) = '-' aerosolc_streams_table( idomain, P_dust4 )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_dust4 )%stream(2) = 0 ! 00000000 F_dust4 = .TRUE. IF ( aerosolc_index_table( PARAM_ocpho , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_ocpho = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_ocpho , idomain ) = P_ocpho ELSE P_ocpho = aerosolc_index_table( PARAM_ocpho , idomain ) END IF aerosolc_boundary_table( idomain, P_ocpho ) = .FALSE. aerosolc_dname_table( idomain, P_ocpho ) = 'OCPHO' aerosolc_desc_table( idomain, P_ocpho ) = 'OCPHO aerosol concentration' aerosolc_units_table( idomain, P_ocpho ) = '-' aerosolc_streams_table( idomain, P_ocpho )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_ocpho )%stream(2) = 0 ! 00000000 F_ocpho = .TRUE. IF ( aerosolc_index_table( PARAM_bcpho , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_bcpho = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_bcpho , idomain ) = P_bcpho ELSE P_bcpho = aerosolc_index_table( PARAM_bcpho , idomain ) END IF aerosolc_boundary_table( idomain, P_bcpho ) = .FALSE. aerosolc_dname_table( idomain, P_bcpho ) = 'BCPHO' aerosolc_desc_table( idomain, P_bcpho ) = 'BCPHO aerosol concentration' aerosolc_units_table( idomain, P_bcpho ) = '-' aerosolc_streams_table( idomain, P_bcpho )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_bcpho )%stream(2) = 0 ! 00000000 F_bcpho = .TRUE. IF ( aerosolc_index_table( PARAM_ocphi , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_ocphi = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_ocphi , idomain ) = P_ocphi ELSE P_ocphi = aerosolc_index_table( PARAM_ocphi , idomain ) END IF aerosolc_boundary_table( idomain, P_ocphi ) = .FALSE. aerosolc_dname_table( idomain, P_ocphi ) = 'OCPHI' aerosolc_desc_table( idomain, P_ocphi ) = 'OCPHI aerosol concentration' aerosolc_units_table( idomain, P_ocphi ) = '-' aerosolc_streams_table( idomain, P_ocphi )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_ocphi )%stream(2) = 0 ! 00000000 F_ocphi = .TRUE. IF ( aerosolc_index_table( PARAM_bcphi , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_bcphi = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_bcphi , idomain ) = P_bcphi ELSE P_bcphi = aerosolc_index_table( PARAM_bcphi , idomain ) END IF aerosolc_boundary_table( idomain, P_bcphi ) = .FALSE. aerosolc_dname_table( idomain, P_bcphi ) = 'BCPHI' aerosolc_desc_table( idomain, P_bcphi ) = 'BCPHI aerosol concentration' aerosolc_units_table( idomain, P_bcphi ) = '-' aerosolc_streams_table( idomain, P_bcphi )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_bcphi )%stream(2) = 0 ! 00000000 F_bcphi = .TRUE. IF ( aerosolc_index_table( PARAM_bg , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_bg = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_bg , idomain ) = P_bg ELSE P_bg = aerosolc_index_table( PARAM_bg , idomain ) END IF aerosolc_boundary_table( idomain, P_bg ) = .FALSE. aerosolc_dname_table( idomain, P_bg ) = 'BG' aerosolc_desc_table( idomain, P_bg ) = 'BG aerosol concentration' aerosolc_units_table( idomain, P_bg ) = '-' aerosolc_streams_table( idomain, P_bg )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_bg )%stream(2) = 0 ! 00000000 F_bg = .TRUE. IF ( aerosolc_index_table( PARAM_volc , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_volc = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_volc , idomain ) = P_volc ELSE P_volc = aerosolc_index_table( PARAM_volc , idomain ) END IF aerosolc_boundary_table( idomain, P_volc ) = .FALSE. aerosolc_dname_table( idomain, P_volc ) = 'VOLC' aerosolc_desc_table( idomain, P_volc ) = 'VOLC aerosol concentration' aerosolc_units_table( idomain, P_volc ) = '-' aerosolc_streams_table( idomain, P_volc )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_volc )%stream(2) = 0 ! 00000000 F_volc = .TRUE. END IF IF (model_config_rec%ra_lw_physics(idomain)==4)THEN IF ( ozmixm_index_table( PARAM_mth01 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth01 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth01 , idomain ) = P_mth01 ELSE P_mth01 = ozmixm_index_table( PARAM_mth01 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth01 ) = .FALSE. ozmixm_dname_table( idomain, P_mth01 ) = '' ozmixm_desc_table( idomain, P_mth01 ) = '-' ozmixm_units_table( idomain, P_mth01 ) = '-' ozmixm_streams_table( idomain, P_mth01 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth01 )%stream(2) = 0 ! 00000000 F_mth01 = .TRUE. IF ( ozmixm_index_table( PARAM_mth02 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth02 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth02 , idomain ) = P_mth02 ELSE P_mth02 = ozmixm_index_table( PARAM_mth02 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth02 ) = .FALSE. ozmixm_dname_table( idomain, P_mth02 ) = '' ozmixm_desc_table( idomain, P_mth02 ) = '-' ozmixm_units_table( idomain, P_mth02 ) = '-' ozmixm_streams_table( idomain, P_mth02 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth02 )%stream(2) = 0 ! 00000000 F_mth02 = .TRUE. IF ( ozmixm_index_table( PARAM_mth03 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth03 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth03 , idomain ) = P_mth03 ELSE P_mth03 = ozmixm_index_table( PARAM_mth03 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth03 ) = .FALSE. ozmixm_dname_table( idomain, P_mth03 ) = '' ozmixm_desc_table( idomain, P_mth03 ) = '-' ozmixm_units_table( idomain, P_mth03 ) = '-' ozmixm_streams_table( idomain, P_mth03 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth03 )%stream(2) = 0 ! 00000000 F_mth03 = .TRUE. IF ( ozmixm_index_table( PARAM_mth04 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth04 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth04 , idomain ) = P_mth04 ELSE P_mth04 = ozmixm_index_table( PARAM_mth04 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth04 ) = .FALSE. ozmixm_dname_table( idomain, P_mth04 ) = '' ozmixm_desc_table( idomain, P_mth04 ) = '-' ozmixm_units_table( idomain, P_mth04 ) = '-' ozmixm_streams_table( idomain, P_mth04 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth04 )%stream(2) = 0 ! 00000000 F_mth04 = .TRUE. IF ( ozmixm_index_table( PARAM_mth05 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth05 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth05 , idomain ) = P_mth05 ELSE P_mth05 = ozmixm_index_table( PARAM_mth05 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth05 ) = .FALSE. ozmixm_dname_table( idomain, P_mth05 ) = '' ozmixm_desc_table( idomain, P_mth05 ) = '-' ozmixm_units_table( idomain, P_mth05 ) = '-' ozmixm_streams_table( idomain, P_mth05 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth05 )%stream(2) = 0 ! 00000000 F_mth05 = .TRUE. IF ( ozmixm_index_table( PARAM_mth06 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth06 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth06 , idomain ) = P_mth06 ELSE P_mth06 = ozmixm_index_table( PARAM_mth06 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth06 ) = .FALSE. ozmixm_dname_table( idomain, P_mth06 ) = '' ozmixm_desc_table( idomain, P_mth06 ) = '-' ozmixm_units_table( idomain, P_mth06 ) = '-' ozmixm_streams_table( idomain, P_mth06 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth06 )%stream(2) = 0 ! 00000000 F_mth06 = .TRUE. IF ( ozmixm_index_table( PARAM_mth07 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth07 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth07 , idomain ) = P_mth07 ELSE P_mth07 = ozmixm_index_table( PARAM_mth07 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth07 ) = .FALSE. ozmixm_dname_table( idomain, P_mth07 ) = '' ozmixm_desc_table( idomain, P_mth07 ) = '-' ozmixm_units_table( idomain, P_mth07 ) = '-' ozmixm_streams_table( idomain, P_mth07 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth07 )%stream(2) = 0 ! 00000000 F_mth07 = .TRUE. IF ( ozmixm_index_table( PARAM_mth08 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth08 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth08 , idomain ) = P_mth08 ELSE P_mth08 = ozmixm_index_table( PARAM_mth08 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth08 ) = .FALSE. ozmixm_dname_table( idomain, P_mth08 ) = '' ozmixm_desc_table( idomain, P_mth08 ) = '-' ozmixm_units_table( idomain, P_mth08 ) = '-' ozmixm_streams_table( idomain, P_mth08 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth08 )%stream(2) = 0 ! 00000000 F_mth08 = .TRUE. IF ( ozmixm_index_table( PARAM_mth09 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth09 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth09 , idomain ) = P_mth09 ELSE P_mth09 = ozmixm_index_table( PARAM_mth09 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth09 ) = .FALSE. ozmixm_dname_table( idomain, P_mth09 ) = '' ozmixm_desc_table( idomain, P_mth09 ) = '-' ozmixm_units_table( idomain, P_mth09 ) = '-' ozmixm_streams_table( idomain, P_mth09 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth09 )%stream(2) = 0 ! 00000000 F_mth09 = .TRUE. IF ( ozmixm_index_table( PARAM_mth10 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth10 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth10 , idomain ) = P_mth10 ELSE P_mth10 = ozmixm_index_table( PARAM_mth10 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth10 ) = .FALSE. ozmixm_dname_table( idomain, P_mth10 ) = '' ozmixm_desc_table( idomain, P_mth10 ) = '-' ozmixm_units_table( idomain, P_mth10 ) = '-' ozmixm_streams_table( idomain, P_mth10 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth10 )%stream(2) = 0 ! 00000000 F_mth10 = .TRUE. IF ( ozmixm_index_table( PARAM_mth11 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth11 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth11 , idomain ) = P_mth11 ELSE P_mth11 = ozmixm_index_table( PARAM_mth11 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth11 ) = .FALSE. ozmixm_dname_table( idomain, P_mth11 ) = '' ozmixm_desc_table( idomain, P_mth11 ) = '-' ozmixm_units_table( idomain, P_mth11 ) = '-' ozmixm_streams_table( idomain, P_mth11 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth11 )%stream(2) = 0 ! 00000000 F_mth11 = .TRUE. IF ( ozmixm_index_table( PARAM_mth12 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth12 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth12 , idomain ) = P_mth12 ELSE P_mth12 = ozmixm_index_table( PARAM_mth12 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth12 ) = .FALSE. ozmixm_dname_table( idomain, P_mth12 ) = '' ozmixm_desc_table( idomain, P_mth12 ) = '-' ozmixm_units_table( idomain, P_mth12 ) = '-' ozmixm_streams_table( idomain, P_mth12 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth12 )%stream(2) = 0 ! 00000000 F_mth12 = .TRUE. END IF IF (model_config_rec%ra_lw_physics(idomain)==24)THEN IF ( ozmixm_index_table( PARAM_mth01 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth01 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth01 , idomain ) = P_mth01 ELSE P_mth01 = ozmixm_index_table( PARAM_mth01 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth01 ) = .FALSE. ozmixm_dname_table( idomain, P_mth01 ) = '' ozmixm_desc_table( idomain, P_mth01 ) = '-' ozmixm_units_table( idomain, P_mth01 ) = '-' ozmixm_streams_table( idomain, P_mth01 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth01 )%stream(2) = 0 ! 00000000 F_mth01 = .TRUE. IF ( ozmixm_index_table( PARAM_mth02 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth02 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth02 , idomain ) = P_mth02 ELSE P_mth02 = ozmixm_index_table( PARAM_mth02 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth02 ) = .FALSE. ozmixm_dname_table( idomain, P_mth02 ) = '' ozmixm_desc_table( idomain, P_mth02 ) = '-' ozmixm_units_table( idomain, P_mth02 ) = '-' ozmixm_streams_table( idomain, P_mth02 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth02 )%stream(2) = 0 ! 00000000 F_mth02 = .TRUE. IF ( ozmixm_index_table( PARAM_mth03 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth03 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth03 , idomain ) = P_mth03 ELSE P_mth03 = ozmixm_index_table( PARAM_mth03 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth03 ) = .FALSE. ozmixm_dname_table( idomain, P_mth03 ) = '' ozmixm_desc_table( idomain, P_mth03 ) = '-' ozmixm_units_table( idomain, P_mth03 ) = '-' ozmixm_streams_table( idomain, P_mth03 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth03 )%stream(2) = 0 ! 00000000 F_mth03 = .TRUE. IF ( ozmixm_index_table( PARAM_mth04 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth04 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth04 , idomain ) = P_mth04 ELSE P_mth04 = ozmixm_index_table( PARAM_mth04 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth04 ) = .FALSE. ozmixm_dname_table( idomain, P_mth04 ) = '' ozmixm_desc_table( idomain, P_mth04 ) = '-' ozmixm_units_table( idomain, P_mth04 ) = '-' ozmixm_streams_table( idomain, P_mth04 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth04 )%stream(2) = 0 ! 00000000 F_mth04 = .TRUE. IF ( ozmixm_index_table( PARAM_mth05 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth05 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth05 , idomain ) = P_mth05 ELSE P_mth05 = ozmixm_index_table( PARAM_mth05 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth05 ) = .FALSE. ozmixm_dname_table( idomain, P_mth05 ) = '' ozmixm_desc_table( idomain, P_mth05 ) = '-' ozmixm_units_table( idomain, P_mth05 ) = '-' ozmixm_streams_table( idomain, P_mth05 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth05 )%stream(2) = 0 ! 00000000 F_mth05 = .TRUE. IF ( ozmixm_index_table( PARAM_mth06 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth06 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth06 , idomain ) = P_mth06 ELSE P_mth06 = ozmixm_index_table( PARAM_mth06 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth06 ) = .FALSE. ozmixm_dname_table( idomain, P_mth06 ) = '' ozmixm_desc_table( idomain, P_mth06 ) = '-' ozmixm_units_table( idomain, P_mth06 ) = '-' ozmixm_streams_table( idomain, P_mth06 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth06 )%stream(2) = 0 ! 00000000 F_mth06 = .TRUE. IF ( ozmixm_index_table( PARAM_mth07 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth07 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth07 , idomain ) = P_mth07 ELSE P_mth07 = ozmixm_index_table( PARAM_mth07 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth07 ) = .FALSE. ozmixm_dname_table( idomain, P_mth07 ) = '' ozmixm_desc_table( idomain, P_mth07 ) = '-' ozmixm_units_table( idomain, P_mth07 ) = '-' ozmixm_streams_table( idomain, P_mth07 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth07 )%stream(2) = 0 ! 00000000 F_mth07 = .TRUE. IF ( ozmixm_index_table( PARAM_mth08 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth08 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth08 , idomain ) = P_mth08 ELSE P_mth08 = ozmixm_index_table( PARAM_mth08 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth08 ) = .FALSE. ozmixm_dname_table( idomain, P_mth08 ) = '' ozmixm_desc_table( idomain, P_mth08 ) = '-' ozmixm_units_table( idomain, P_mth08 ) = '-' ozmixm_streams_table( idomain, P_mth08 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth08 )%stream(2) = 0 ! 00000000 F_mth08 = .TRUE. IF ( ozmixm_index_table( PARAM_mth09 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth09 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth09 , idomain ) = P_mth09 ELSE P_mth09 = ozmixm_index_table( PARAM_mth09 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth09 ) = .FALSE. ozmixm_dname_table( idomain, P_mth09 ) = '' ozmixm_desc_table( idomain, P_mth09 ) = '-' ozmixm_units_table( idomain, P_mth09 ) = '-' ozmixm_streams_table( idomain, P_mth09 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth09 )%stream(2) = 0 ! 00000000 F_mth09 = .TRUE. IF ( ozmixm_index_table( PARAM_mth10 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth10 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth10 , idomain ) = P_mth10 ELSE P_mth10 = ozmixm_index_table( PARAM_mth10 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth10 ) = .FALSE. ozmixm_dname_table( idomain, P_mth10 ) = '' ozmixm_desc_table( idomain, P_mth10 ) = '-' ozmixm_units_table( idomain, P_mth10 ) = '-' ozmixm_streams_table( idomain, P_mth10 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth10 )%stream(2) = 0 ! 00000000 F_mth10 = .TRUE. IF ( ozmixm_index_table( PARAM_mth11 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth11 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth11 , idomain ) = P_mth11 ELSE P_mth11 = ozmixm_index_table( PARAM_mth11 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth11 ) = .FALSE. ozmixm_dname_table( idomain, P_mth11 ) = '' ozmixm_desc_table( idomain, P_mth11 ) = '-' ozmixm_units_table( idomain, P_mth11 ) = '-' ozmixm_streams_table( idomain, P_mth11 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth11 )%stream(2) = 0 ! 00000000 F_mth11 = .TRUE. IF ( ozmixm_index_table( PARAM_mth12 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth12 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth12 , idomain ) = P_mth12 ELSE P_mth12 = ozmixm_index_table( PARAM_mth12 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth12 ) = .FALSE. ozmixm_dname_table( idomain, P_mth12 ) = '' ozmixm_desc_table( idomain, P_mth12 ) = '-' ozmixm_units_table( idomain, P_mth12 ) = '-' ozmixm_streams_table( idomain, P_mth12 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth12 )%stream(2) = 0 ! 00000000 F_mth12 = .TRUE. END IF IF (model_config_rec%ra_lw_physics(idomain)==5)THEN END IF IF (model_config_rec%ra_lw_physics(idomain)==7)THEN END IF IF (model_config_rec%ra_lw_physics(idomain)==31)THEN END IF IF (model_config_rec%ra_lw_physics(idomain)==99)THEN END IF IF (model_config_rec%ra_sw_physics(idomain)==1)THEN END IF IF (model_config_rec%ra_sw_physics(idomain)==2)THEN END IF IF (model_config_rec%ra_sw_physics(idomain)==3)THEN IF ( ozmixm_index_table( PARAM_mth01 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth01 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth01 , idomain ) = P_mth01 ELSE P_mth01 = ozmixm_index_table( PARAM_mth01 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth01 ) = .FALSE. ozmixm_dname_table( idomain, P_mth01 ) = '' ozmixm_desc_table( idomain, P_mth01 ) = '-' ozmixm_units_table( idomain, P_mth01 ) = '-' ozmixm_streams_table( idomain, P_mth01 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth01 )%stream(2) = 0 ! 00000000 F_mth01 = .TRUE. IF ( ozmixm_index_table( PARAM_mth02 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth02 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth02 , idomain ) = P_mth02 ELSE P_mth02 = ozmixm_index_table( PARAM_mth02 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth02 ) = .FALSE. ozmixm_dname_table( idomain, P_mth02 ) = '' ozmixm_desc_table( idomain, P_mth02 ) = '-' ozmixm_units_table( idomain, P_mth02 ) = '-' ozmixm_streams_table( idomain, P_mth02 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth02 )%stream(2) = 0 ! 00000000 F_mth02 = .TRUE. IF ( ozmixm_index_table( PARAM_mth03 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth03 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth03 , idomain ) = P_mth03 ELSE P_mth03 = ozmixm_index_table( PARAM_mth03 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth03 ) = .FALSE. ozmixm_dname_table( idomain, P_mth03 ) = '' ozmixm_desc_table( idomain, P_mth03 ) = '-' ozmixm_units_table( idomain, P_mth03 ) = '-' ozmixm_streams_table( idomain, P_mth03 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth03 )%stream(2) = 0 ! 00000000 F_mth03 = .TRUE. IF ( ozmixm_index_table( PARAM_mth04 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth04 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth04 , idomain ) = P_mth04 ELSE P_mth04 = ozmixm_index_table( PARAM_mth04 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth04 ) = .FALSE. ozmixm_dname_table( idomain, P_mth04 ) = '' ozmixm_desc_table( idomain, P_mth04 ) = '-' ozmixm_units_table( idomain, P_mth04 ) = '-' ozmixm_streams_table( idomain, P_mth04 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth04 )%stream(2) = 0 ! 00000000 F_mth04 = .TRUE. IF ( ozmixm_index_table( PARAM_mth05 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth05 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth05 , idomain ) = P_mth05 ELSE P_mth05 = ozmixm_index_table( PARAM_mth05 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth05 ) = .FALSE. ozmixm_dname_table( idomain, P_mth05 ) = '' ozmixm_desc_table( idomain, P_mth05 ) = '-' ozmixm_units_table( idomain, P_mth05 ) = '-' ozmixm_streams_table( idomain, P_mth05 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth05 )%stream(2) = 0 ! 00000000 F_mth05 = .TRUE. IF ( ozmixm_index_table( PARAM_mth06 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth06 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth06 , idomain ) = P_mth06 ELSE P_mth06 = ozmixm_index_table( PARAM_mth06 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth06 ) = .FALSE. ozmixm_dname_table( idomain, P_mth06 ) = '' ozmixm_desc_table( idomain, P_mth06 ) = '-' ozmixm_units_table( idomain, P_mth06 ) = '-' ozmixm_streams_table( idomain, P_mth06 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth06 )%stream(2) = 0 ! 00000000 F_mth06 = .TRUE. IF ( ozmixm_index_table( PARAM_mth07 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth07 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth07 , idomain ) = P_mth07 ELSE P_mth07 = ozmixm_index_table( PARAM_mth07 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth07 ) = .FALSE. ozmixm_dname_table( idomain, P_mth07 ) = '' ozmixm_desc_table( idomain, P_mth07 ) = '-' ozmixm_units_table( idomain, P_mth07 ) = '-' ozmixm_streams_table( idomain, P_mth07 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth07 )%stream(2) = 0 ! 00000000 F_mth07 = .TRUE. IF ( ozmixm_index_table( PARAM_mth08 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth08 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth08 , idomain ) = P_mth08 ELSE P_mth08 = ozmixm_index_table( PARAM_mth08 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth08 ) = .FALSE. ozmixm_dname_table( idomain, P_mth08 ) = '' ozmixm_desc_table( idomain, P_mth08 ) = '-' ozmixm_units_table( idomain, P_mth08 ) = '-' ozmixm_streams_table( idomain, P_mth08 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth08 )%stream(2) = 0 ! 00000000 F_mth08 = .TRUE. IF ( ozmixm_index_table( PARAM_mth09 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth09 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth09 , idomain ) = P_mth09 ELSE P_mth09 = ozmixm_index_table( PARAM_mth09 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth09 ) = .FALSE. ozmixm_dname_table( idomain, P_mth09 ) = '' ozmixm_desc_table( idomain, P_mth09 ) = '-' ozmixm_units_table( idomain, P_mth09 ) = '-' ozmixm_streams_table( idomain, P_mth09 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth09 )%stream(2) = 0 ! 00000000 F_mth09 = .TRUE. IF ( ozmixm_index_table( PARAM_mth10 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth10 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth10 , idomain ) = P_mth10 ELSE P_mth10 = ozmixm_index_table( PARAM_mth10 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth10 ) = .FALSE. ozmixm_dname_table( idomain, P_mth10 ) = '' ozmixm_desc_table( idomain, P_mth10 ) = '-' ozmixm_units_table( idomain, P_mth10 ) = '-' ozmixm_streams_table( idomain, P_mth10 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth10 )%stream(2) = 0 ! 00000000 F_mth10 = .TRUE. IF ( ozmixm_index_table( PARAM_mth11 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth11 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth11 , idomain ) = P_mth11 ELSE P_mth11 = ozmixm_index_table( PARAM_mth11 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth11 ) = .FALSE. ozmixm_dname_table( idomain, P_mth11 ) = '' ozmixm_desc_table( idomain, P_mth11 ) = '-' ozmixm_units_table( idomain, P_mth11 ) = '-' ozmixm_streams_table( idomain, P_mth11 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth11 )%stream(2) = 0 ! 00000000 F_mth11 = .TRUE. IF ( ozmixm_index_table( PARAM_mth12 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth12 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth12 , idomain ) = P_mth12 ELSE P_mth12 = ozmixm_index_table( PARAM_mth12 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth12 ) = .FALSE. ozmixm_dname_table( idomain, P_mth12 ) = '' ozmixm_desc_table( idomain, P_mth12 ) = '-' ozmixm_units_table( idomain, P_mth12 ) = '-' ozmixm_streams_table( idomain, P_mth12 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth12 )%stream(2) = 0 ! 00000000 F_mth12 = .TRUE. IF ( aerosolc_index_table( PARAM_sul , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_sul = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_sul , idomain ) = P_sul ELSE P_sul = aerosolc_index_table( PARAM_sul , idomain ) END IF aerosolc_boundary_table( idomain, P_sul ) = .FALSE. aerosolc_dname_table( idomain, P_sul ) = 'SUL' aerosolc_desc_table( idomain, P_sul ) = 'SUL aerosol concentration' aerosolc_units_table( idomain, P_sul ) = '-' aerosolc_streams_table( idomain, P_sul )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_sul )%stream(2) = 0 ! 00000000 F_sul = .TRUE. IF ( aerosolc_index_table( PARAM_sslt , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_sslt = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_sslt , idomain ) = P_sslt ELSE P_sslt = aerosolc_index_table( PARAM_sslt , idomain ) END IF aerosolc_boundary_table( idomain, P_sslt ) = .FALSE. aerosolc_dname_table( idomain, P_sslt ) = 'SSLT' aerosolc_desc_table( idomain, P_sslt ) = 'SSLT aerosol concentration' aerosolc_units_table( idomain, P_sslt ) = '-' aerosolc_streams_table( idomain, P_sslt )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_sslt )%stream(2) = 0 ! 00000000 F_sslt = .TRUE. IF ( aerosolc_index_table( PARAM_dust1 , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_dust1 = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_dust1 , idomain ) = P_dust1 ELSE P_dust1 = aerosolc_index_table( PARAM_dust1 , idomain ) END IF aerosolc_boundary_table( idomain, P_dust1 ) = .FALSE. aerosolc_dname_table( idomain, P_dust1 ) = 'DUST1' aerosolc_desc_table( idomain, P_dust1 ) = 'DUST1 aerosol concentration' aerosolc_units_table( idomain, P_dust1 ) = '-' aerosolc_streams_table( idomain, P_dust1 )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_dust1 )%stream(2) = 0 ! 00000000 F_dust1 = .TRUE. IF ( aerosolc_index_table( PARAM_dust2 , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_dust2 = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_dust2 , idomain ) = P_dust2 ELSE P_dust2 = aerosolc_index_table( PARAM_dust2 , idomain ) END IF aerosolc_boundary_table( idomain, P_dust2 ) = .FALSE. aerosolc_dname_table( idomain, P_dust2 ) = 'DUST2' aerosolc_desc_table( idomain, P_dust2 ) = 'DUST2 aerosol concentration' aerosolc_units_table( idomain, P_dust2 ) = '-' aerosolc_streams_table( idomain, P_dust2 )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_dust2 )%stream(2) = 0 ! 00000000 F_dust2 = .TRUE. IF ( aerosolc_index_table( PARAM_dust3 , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_dust3 = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_dust3 , idomain ) = P_dust3 ELSE P_dust3 = aerosolc_index_table( PARAM_dust3 , idomain ) END IF aerosolc_boundary_table( idomain, P_dust3 ) = .FALSE. aerosolc_dname_table( idomain, P_dust3 ) = 'DUST3' aerosolc_desc_table( idomain, P_dust3 ) = 'DUST3 aerosol concentration' aerosolc_units_table( idomain, P_dust3 ) = '-' aerosolc_streams_table( idomain, P_dust3 )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_dust3 )%stream(2) = 0 ! 00000000 F_dust3 = .TRUE. IF ( aerosolc_index_table( PARAM_dust4 , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_dust4 = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_dust4 , idomain ) = P_dust4 ELSE P_dust4 = aerosolc_index_table( PARAM_dust4 , idomain ) END IF aerosolc_boundary_table( idomain, P_dust4 ) = .FALSE. aerosolc_dname_table( idomain, P_dust4 ) = 'DUST4' aerosolc_desc_table( idomain, P_dust4 ) = 'DUST4 aerosol concentration' aerosolc_units_table( idomain, P_dust4 ) = '-' aerosolc_streams_table( idomain, P_dust4 )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_dust4 )%stream(2) = 0 ! 00000000 F_dust4 = .TRUE. IF ( aerosolc_index_table( PARAM_ocpho , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_ocpho = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_ocpho , idomain ) = P_ocpho ELSE P_ocpho = aerosolc_index_table( PARAM_ocpho , idomain ) END IF aerosolc_boundary_table( idomain, P_ocpho ) = .FALSE. aerosolc_dname_table( idomain, P_ocpho ) = 'OCPHO' aerosolc_desc_table( idomain, P_ocpho ) = 'OCPHO aerosol concentration' aerosolc_units_table( idomain, P_ocpho ) = '-' aerosolc_streams_table( idomain, P_ocpho )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_ocpho )%stream(2) = 0 ! 00000000 F_ocpho = .TRUE. IF ( aerosolc_index_table( PARAM_bcpho , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_bcpho = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_bcpho , idomain ) = P_bcpho ELSE P_bcpho = aerosolc_index_table( PARAM_bcpho , idomain ) END IF aerosolc_boundary_table( idomain, P_bcpho ) = .FALSE. aerosolc_dname_table( idomain, P_bcpho ) = 'BCPHO' aerosolc_desc_table( idomain, P_bcpho ) = 'BCPHO aerosol concentration' aerosolc_units_table( idomain, P_bcpho ) = '-' aerosolc_streams_table( idomain, P_bcpho )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_bcpho )%stream(2) = 0 ! 00000000 F_bcpho = .TRUE. IF ( aerosolc_index_table( PARAM_ocphi , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_ocphi = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_ocphi , idomain ) = P_ocphi ELSE P_ocphi = aerosolc_index_table( PARAM_ocphi , idomain ) END IF aerosolc_boundary_table( idomain, P_ocphi ) = .FALSE. aerosolc_dname_table( idomain, P_ocphi ) = 'OCPHI' aerosolc_desc_table( idomain, P_ocphi ) = 'OCPHI aerosol concentration' aerosolc_units_table( idomain, P_ocphi ) = '-' aerosolc_streams_table( idomain, P_ocphi )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_ocphi )%stream(2) = 0 ! 00000000 F_ocphi = .TRUE. IF ( aerosolc_index_table( PARAM_bcphi , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_bcphi = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_bcphi , idomain ) = P_bcphi ELSE P_bcphi = aerosolc_index_table( PARAM_bcphi , idomain ) END IF aerosolc_boundary_table( idomain, P_bcphi ) = .FALSE. aerosolc_dname_table( idomain, P_bcphi ) = 'BCPHI' aerosolc_desc_table( idomain, P_bcphi ) = 'BCPHI aerosol concentration' aerosolc_units_table( idomain, P_bcphi ) = '-' aerosolc_streams_table( idomain, P_bcphi )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_bcphi )%stream(2) = 0 ! 00000000 F_bcphi = .TRUE. IF ( aerosolc_index_table( PARAM_bg , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_bg = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_bg , idomain ) = P_bg ELSE P_bg = aerosolc_index_table( PARAM_bg , idomain ) END IF aerosolc_boundary_table( idomain, P_bg ) = .FALSE. aerosolc_dname_table( idomain, P_bg ) = 'BG' aerosolc_desc_table( idomain, P_bg ) = 'BG aerosol concentration' aerosolc_units_table( idomain, P_bg ) = '-' aerosolc_streams_table( idomain, P_bg )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_bg )%stream(2) = 0 ! 00000000 F_bg = .TRUE. IF ( aerosolc_index_table( PARAM_volc , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_volc = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_volc , idomain ) = P_volc ELSE P_volc = aerosolc_index_table( PARAM_volc , idomain ) END IF aerosolc_boundary_table( idomain, P_volc ) = .FALSE. aerosolc_dname_table( idomain, P_volc ) = 'VOLC' aerosolc_desc_table( idomain, P_volc ) = 'VOLC aerosol concentration' aerosolc_units_table( idomain, P_volc ) = '-' aerosolc_streams_table( idomain, P_volc )%stream(1) = 0 ! 00000000 aerosolc_streams_table( idomain, P_volc )%stream(2) = 0 ! 00000000 F_volc = .TRUE. END IF IF (model_config_rec%ra_sw_physics(idomain)==4)THEN IF ( ozmixm_index_table( PARAM_mth01 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth01 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth01 , idomain ) = P_mth01 ELSE P_mth01 = ozmixm_index_table( PARAM_mth01 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth01 ) = .FALSE. ozmixm_dname_table( idomain, P_mth01 ) = '' ozmixm_desc_table( idomain, P_mth01 ) = '-' ozmixm_units_table( idomain, P_mth01 ) = '-' ozmixm_streams_table( idomain, P_mth01 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth01 )%stream(2) = 0 ! 00000000 F_mth01 = .TRUE. IF ( ozmixm_index_table( PARAM_mth02 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth02 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth02 , idomain ) = P_mth02 ELSE P_mth02 = ozmixm_index_table( PARAM_mth02 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth02 ) = .FALSE. ozmixm_dname_table( idomain, P_mth02 ) = '' ozmixm_desc_table( idomain, P_mth02 ) = '-' ozmixm_units_table( idomain, P_mth02 ) = '-' ozmixm_streams_table( idomain, P_mth02 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth02 )%stream(2) = 0 ! 00000000 F_mth02 = .TRUE. IF ( ozmixm_index_table( PARAM_mth03 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth03 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth03 , idomain ) = P_mth03 ELSE P_mth03 = ozmixm_index_table( PARAM_mth03 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth03 ) = .FALSE. ozmixm_dname_table( idomain, P_mth03 ) = '' ozmixm_desc_table( idomain, P_mth03 ) = '-' ozmixm_units_table( idomain, P_mth03 ) = '-' ozmixm_streams_table( idomain, P_mth03 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth03 )%stream(2) = 0 ! 00000000 F_mth03 = .TRUE. IF ( ozmixm_index_table( PARAM_mth04 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth04 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth04 , idomain ) = P_mth04 ELSE P_mth04 = ozmixm_index_table( PARAM_mth04 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth04 ) = .FALSE. ozmixm_dname_table( idomain, P_mth04 ) = '' ozmixm_desc_table( idomain, P_mth04 ) = '-' ozmixm_units_table( idomain, P_mth04 ) = '-' ozmixm_streams_table( idomain, P_mth04 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth04 )%stream(2) = 0 ! 00000000 F_mth04 = .TRUE. IF ( ozmixm_index_table( PARAM_mth05 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth05 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth05 , idomain ) = P_mth05 ELSE P_mth05 = ozmixm_index_table( PARAM_mth05 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth05 ) = .FALSE. ozmixm_dname_table( idomain, P_mth05 ) = '' ozmixm_desc_table( idomain, P_mth05 ) = '-' ozmixm_units_table( idomain, P_mth05 ) = '-' ozmixm_streams_table( idomain, P_mth05 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth05 )%stream(2) = 0 ! 00000000 F_mth05 = .TRUE. IF ( ozmixm_index_table( PARAM_mth06 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth06 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth06 , idomain ) = P_mth06 ELSE P_mth06 = ozmixm_index_table( PARAM_mth06 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth06 ) = .FALSE. ozmixm_dname_table( idomain, P_mth06 ) = '' ozmixm_desc_table( idomain, P_mth06 ) = '-' ozmixm_units_table( idomain, P_mth06 ) = '-' ozmixm_streams_table( idomain, P_mth06 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth06 )%stream(2) = 0 ! 00000000 F_mth06 = .TRUE. IF ( ozmixm_index_table( PARAM_mth07 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth07 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth07 , idomain ) = P_mth07 ELSE P_mth07 = ozmixm_index_table( PARAM_mth07 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth07 ) = .FALSE. ozmixm_dname_table( idomain, P_mth07 ) = '' ozmixm_desc_table( idomain, P_mth07 ) = '-' ozmixm_units_table( idomain, P_mth07 ) = '-' ozmixm_streams_table( idomain, P_mth07 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth07 )%stream(2) = 0 ! 00000000 F_mth07 = .TRUE. IF ( ozmixm_index_table( PARAM_mth08 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth08 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth08 , idomain ) = P_mth08 ELSE P_mth08 = ozmixm_index_table( PARAM_mth08 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth08 ) = .FALSE. ozmixm_dname_table( idomain, P_mth08 ) = '' ozmixm_desc_table( idomain, P_mth08 ) = '-' ozmixm_units_table( idomain, P_mth08 ) = '-' ozmixm_streams_table( idomain, P_mth08 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth08 )%stream(2) = 0 ! 00000000 F_mth08 = .TRUE. IF ( ozmixm_index_table( PARAM_mth09 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth09 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth09 , idomain ) = P_mth09 ELSE P_mth09 = ozmixm_index_table( PARAM_mth09 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth09 ) = .FALSE. ozmixm_dname_table( idomain, P_mth09 ) = '' ozmixm_desc_table( idomain, P_mth09 ) = '-' ozmixm_units_table( idomain, P_mth09 ) = '-' ozmixm_streams_table( idomain, P_mth09 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth09 )%stream(2) = 0 ! 00000000 F_mth09 = .TRUE. IF ( ozmixm_index_table( PARAM_mth10 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth10 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth10 , idomain ) = P_mth10 ELSE P_mth10 = ozmixm_index_table( PARAM_mth10 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth10 ) = .FALSE. ozmixm_dname_table( idomain, P_mth10 ) = '' ozmixm_desc_table( idomain, P_mth10 ) = '-' ozmixm_units_table( idomain, P_mth10 ) = '-' ozmixm_streams_table( idomain, P_mth10 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth10 )%stream(2) = 0 ! 00000000 F_mth10 = .TRUE. IF ( ozmixm_index_table( PARAM_mth11 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth11 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth11 , idomain ) = P_mth11 ELSE P_mth11 = ozmixm_index_table( PARAM_mth11 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth11 ) = .FALSE. ozmixm_dname_table( idomain, P_mth11 ) = '' ozmixm_desc_table( idomain, P_mth11 ) = '-' ozmixm_units_table( idomain, P_mth11 ) = '-' ozmixm_streams_table( idomain, P_mth11 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth11 )%stream(2) = 0 ! 00000000 F_mth11 = .TRUE. IF ( ozmixm_index_table( PARAM_mth12 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth12 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth12 , idomain ) = P_mth12 ELSE P_mth12 = ozmixm_index_table( PARAM_mth12 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth12 ) = .FALSE. ozmixm_dname_table( idomain, P_mth12 ) = '' ozmixm_desc_table( idomain, P_mth12 ) = '-' ozmixm_units_table( idomain, P_mth12 ) = '-' ozmixm_streams_table( idomain, P_mth12 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth12 )%stream(2) = 0 ! 00000000 F_mth12 = .TRUE. IF ( aerod_index_table( PARAM_ocarbon , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_ocarbon = aerod_num_table(idomain) aerod_index_table( PARAM_ocarbon , idomain ) = P_ocarbon ELSE P_ocarbon = aerod_index_table( PARAM_ocarbon , idomain ) END IF aerod_boundary_table( idomain, P_ocarbon ) = .FALSE. aerod_dname_table( idomain, P_ocarbon ) = 'ocarbon' aerod_desc_table( idomain, P_ocarbon ) = 'organic carbon' aerod_units_table( idomain, P_ocarbon ) = '-' aerod_streams_table( idomain, P_ocarbon )%stream(1) = 0 ! 00000000 aerod_streams_table( idomain, P_ocarbon )%stream(2) = 0 ! 00000000 F_ocarbon = .TRUE. IF ( aerod_index_table( PARAM_seasalt , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_seasalt = aerod_num_table(idomain) aerod_index_table( PARAM_seasalt , idomain ) = P_seasalt ELSE P_seasalt = aerod_index_table( PARAM_seasalt , idomain ) END IF aerod_boundary_table( idomain, P_seasalt ) = .FALSE. aerod_dname_table( idomain, P_seasalt ) = 'seasalt' aerod_desc_table( idomain, P_seasalt ) = 'sea salt' aerod_units_table( idomain, P_seasalt ) = '-' aerod_streams_table( idomain, P_seasalt )%stream(1) = 0 ! 00000000 aerod_streams_table( idomain, P_seasalt )%stream(2) = 0 ! 00000000 F_seasalt = .TRUE. IF ( aerod_index_table( PARAM_dust , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_dust = aerod_num_table(idomain) aerod_index_table( PARAM_dust , idomain ) = P_dust ELSE P_dust = aerod_index_table( PARAM_dust , idomain ) END IF aerod_boundary_table( idomain, P_dust ) = .FALSE. aerod_dname_table( idomain, P_dust ) = 'dust' aerod_desc_table( idomain, P_dust ) = 'dust' aerod_units_table( idomain, P_dust ) = '-' aerod_streams_table( idomain, P_dust )%stream(1) = 0 ! 00000000 aerod_streams_table( idomain, P_dust )%stream(2) = 0 ! 00000000 F_dust = .TRUE. IF ( aerod_index_table( PARAM_bcarbon , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_bcarbon = aerod_num_table(idomain) aerod_index_table( PARAM_bcarbon , idomain ) = P_bcarbon ELSE P_bcarbon = aerod_index_table( PARAM_bcarbon , idomain ) END IF aerod_boundary_table( idomain, P_bcarbon ) = .FALSE. aerod_dname_table( idomain, P_bcarbon ) = 'bcarbon' aerod_desc_table( idomain, P_bcarbon ) = 'black carbon' aerod_units_table( idomain, P_bcarbon ) = '-' aerod_streams_table( idomain, P_bcarbon )%stream(1) = 0 ! 00000000 aerod_streams_table( idomain, P_bcarbon )%stream(2) = 0 ! 00000000 F_bcarbon = .TRUE. IF ( aerod_index_table( PARAM_sulfate , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_sulfate = aerod_num_table(idomain) aerod_index_table( PARAM_sulfate , idomain ) = P_sulfate ELSE P_sulfate = aerod_index_table( PARAM_sulfate , idomain ) END IF aerod_boundary_table( idomain, P_sulfate ) = .FALSE. aerod_dname_table( idomain, P_sulfate ) = 'sulfate' aerod_desc_table( idomain, P_sulfate ) = 'sulfate' aerod_units_table( idomain, P_sulfate ) = '-' aerod_streams_table( idomain, P_sulfate )%stream(1) = 0 ! 00000000 aerod_streams_table( idomain, P_sulfate )%stream(2) = 0 ! 00000000 F_sulfate = .TRUE. IF ( aerod_index_table( PARAM_upperaer , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_upperaer = aerod_num_table(idomain) aerod_index_table( PARAM_upperaer , idomain ) = P_upperaer ELSE P_upperaer = aerod_index_table( PARAM_upperaer , idomain ) END IF aerod_boundary_table( idomain, P_upperaer ) = .FALSE. aerod_dname_table( idomain, P_upperaer ) = 'upperaer' aerod_desc_table( idomain, P_upperaer ) = 'volcanic ash' aerod_units_table( idomain, P_upperaer ) = '-' aerod_streams_table( idomain, P_upperaer )%stream(1) = 0 ! 00000000 aerod_streams_table( idomain, P_upperaer )%stream(2) = 0 ! 00000000 F_upperaer = .TRUE. END IF IF (model_config_rec%ra_sw_physics(idomain)==24)THEN IF ( ozmixm_index_table( PARAM_mth01 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth01 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth01 , idomain ) = P_mth01 ELSE P_mth01 = ozmixm_index_table( PARAM_mth01 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth01 ) = .FALSE. ozmixm_dname_table( idomain, P_mth01 ) = '' ozmixm_desc_table( idomain, P_mth01 ) = '-' ozmixm_units_table( idomain, P_mth01 ) = '-' ozmixm_streams_table( idomain, P_mth01 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth01 )%stream(2) = 0 ! 00000000 F_mth01 = .TRUE. IF ( ozmixm_index_table( PARAM_mth02 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth02 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth02 , idomain ) = P_mth02 ELSE P_mth02 = ozmixm_index_table( PARAM_mth02 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth02 ) = .FALSE. ozmixm_dname_table( idomain, P_mth02 ) = '' ozmixm_desc_table( idomain, P_mth02 ) = '-' ozmixm_units_table( idomain, P_mth02 ) = '-' ozmixm_streams_table( idomain, P_mth02 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth02 )%stream(2) = 0 ! 00000000 F_mth02 = .TRUE. IF ( ozmixm_index_table( PARAM_mth03 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth03 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth03 , idomain ) = P_mth03 ELSE P_mth03 = ozmixm_index_table( PARAM_mth03 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth03 ) = .FALSE. ozmixm_dname_table( idomain, P_mth03 ) = '' ozmixm_desc_table( idomain, P_mth03 ) = '-' ozmixm_units_table( idomain, P_mth03 ) = '-' ozmixm_streams_table( idomain, P_mth03 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth03 )%stream(2) = 0 ! 00000000 F_mth03 = .TRUE. IF ( ozmixm_index_table( PARAM_mth04 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth04 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth04 , idomain ) = P_mth04 ELSE P_mth04 = ozmixm_index_table( PARAM_mth04 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth04 ) = .FALSE. ozmixm_dname_table( idomain, P_mth04 ) = '' ozmixm_desc_table( idomain, P_mth04 ) = '-' ozmixm_units_table( idomain, P_mth04 ) = '-' ozmixm_streams_table( idomain, P_mth04 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth04 )%stream(2) = 0 ! 00000000 F_mth04 = .TRUE. IF ( ozmixm_index_table( PARAM_mth05 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth05 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth05 , idomain ) = P_mth05 ELSE P_mth05 = ozmixm_index_table( PARAM_mth05 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth05 ) = .FALSE. ozmixm_dname_table( idomain, P_mth05 ) = '' ozmixm_desc_table( idomain, P_mth05 ) = '-' ozmixm_units_table( idomain, P_mth05 ) = '-' ozmixm_streams_table( idomain, P_mth05 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth05 )%stream(2) = 0 ! 00000000 F_mth05 = .TRUE. IF ( ozmixm_index_table( PARAM_mth06 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth06 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth06 , idomain ) = P_mth06 ELSE P_mth06 = ozmixm_index_table( PARAM_mth06 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth06 ) = .FALSE. ozmixm_dname_table( idomain, P_mth06 ) = '' ozmixm_desc_table( idomain, P_mth06 ) = '-' ozmixm_units_table( idomain, P_mth06 ) = '-' ozmixm_streams_table( idomain, P_mth06 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth06 )%stream(2) = 0 ! 00000000 F_mth06 = .TRUE. IF ( ozmixm_index_table( PARAM_mth07 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth07 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth07 , idomain ) = P_mth07 ELSE P_mth07 = ozmixm_index_table( PARAM_mth07 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth07 ) = .FALSE. ozmixm_dname_table( idomain, P_mth07 ) = '' ozmixm_desc_table( idomain, P_mth07 ) = '-' ozmixm_units_table( idomain, P_mth07 ) = '-' ozmixm_streams_table( idomain, P_mth07 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth07 )%stream(2) = 0 ! 00000000 F_mth07 = .TRUE. IF ( ozmixm_index_table( PARAM_mth08 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth08 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth08 , idomain ) = P_mth08 ELSE P_mth08 = ozmixm_index_table( PARAM_mth08 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth08 ) = .FALSE. ozmixm_dname_table( idomain, P_mth08 ) = '' ozmixm_desc_table( idomain, P_mth08 ) = '-' ozmixm_units_table( idomain, P_mth08 ) = '-' ozmixm_streams_table( idomain, P_mth08 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth08 )%stream(2) = 0 ! 00000000 F_mth08 = .TRUE. IF ( ozmixm_index_table( PARAM_mth09 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth09 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth09 , idomain ) = P_mth09 ELSE P_mth09 = ozmixm_index_table( PARAM_mth09 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth09 ) = .FALSE. ozmixm_dname_table( idomain, P_mth09 ) = '' ozmixm_desc_table( idomain, P_mth09 ) = '-' ozmixm_units_table( idomain, P_mth09 ) = '-' ozmixm_streams_table( idomain, P_mth09 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth09 )%stream(2) = 0 ! 00000000 F_mth09 = .TRUE. IF ( ozmixm_index_table( PARAM_mth10 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth10 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth10 , idomain ) = P_mth10 ELSE P_mth10 = ozmixm_index_table( PARAM_mth10 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth10 ) = .FALSE. ozmixm_dname_table( idomain, P_mth10 ) = '' ozmixm_desc_table( idomain, P_mth10 ) = '-' ozmixm_units_table( idomain, P_mth10 ) = '-' ozmixm_streams_table( idomain, P_mth10 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth10 )%stream(2) = 0 ! 00000000 F_mth10 = .TRUE. IF ( ozmixm_index_table( PARAM_mth11 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth11 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth11 , idomain ) = P_mth11 ELSE P_mth11 = ozmixm_index_table( PARAM_mth11 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth11 ) = .FALSE. ozmixm_dname_table( idomain, P_mth11 ) = '' ozmixm_desc_table( idomain, P_mth11 ) = '-' ozmixm_units_table( idomain, P_mth11 ) = '-' ozmixm_streams_table( idomain, P_mth11 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth11 )%stream(2) = 0 ! 00000000 F_mth11 = .TRUE. IF ( ozmixm_index_table( PARAM_mth12 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth12 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth12 , idomain ) = P_mth12 ELSE P_mth12 = ozmixm_index_table( PARAM_mth12 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth12 ) = .FALSE. ozmixm_dname_table( idomain, P_mth12 ) = '' ozmixm_desc_table( idomain, P_mth12 ) = '-' ozmixm_units_table( idomain, P_mth12 ) = '-' ozmixm_streams_table( idomain, P_mth12 )%stream(1) = 0 ! 00000000 ozmixm_streams_table( idomain, P_mth12 )%stream(2) = 0 ! 00000000 F_mth12 = .TRUE. IF ( aerod_index_table( PARAM_ocarbon , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_ocarbon = aerod_num_table(idomain) aerod_index_table( PARAM_ocarbon , idomain ) = P_ocarbon ELSE P_ocarbon = aerod_index_table( PARAM_ocarbon , idomain ) END IF aerod_boundary_table( idomain, P_ocarbon ) = .FALSE. aerod_dname_table( idomain, P_ocarbon ) = 'ocarbon' aerod_desc_table( idomain, P_ocarbon ) = 'organic carbon' aerod_units_table( idomain, P_ocarbon ) = '-' aerod_streams_table( idomain, P_ocarbon )%stream(1) = 0 ! 00000000 aerod_streams_table( idomain, P_ocarbon )%stream(2) = 0 ! 00000000 F_ocarbon = .TRUE. IF ( aerod_index_table( PARAM_seasalt , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_seasalt = aerod_num_table(idomain) aerod_index_table( PARAM_seasalt , idomain ) = P_seasalt ELSE P_seasalt = aerod_index_table( PARAM_seasalt , idomain ) END IF aerod_boundary_table( idomain, P_seasalt ) = .FALSE. aerod_dname_table( idomain, P_seasalt ) = 'seasalt' aerod_desc_table( idomain, P_seasalt ) = 'sea salt' aerod_units_table( idomain, P_seasalt ) = '-' aerod_streams_table( idomain, P_seasalt )%stream(1) = 0 ! 00000000 aerod_streams_table( idomain, P_seasalt )%stream(2) = 0 ! 00000000 F_seasalt = .TRUE. IF ( aerod_index_table( PARAM_dust , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_dust = aerod_num_table(idomain) aerod_index_table( PARAM_dust , idomain ) = P_dust ELSE P_dust = aerod_index_table( PARAM_dust , idomain ) END IF aerod_boundary_table( idomain, P_dust ) = .FALSE. aerod_dname_table( idomain, P_dust ) = 'dust' aerod_desc_table( idomain, P_dust ) = 'dust' aerod_units_table( idomain, P_dust ) = '-' aerod_streams_table( idomain, P_dust )%stream(1) = 0 ! 00000000 aerod_streams_table( idomain, P_dust )%stream(2) = 0 ! 00000000 F_dust = .TRUE. IF ( aerod_index_table( PARAM_bcarbon , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_bcarbon = aerod_num_table(idomain) aerod_index_table( PARAM_bcarbon , idomain ) = P_bcarbon ELSE P_bcarbon = aerod_index_table( PARAM_bcarbon , idomain ) END IF aerod_boundary_table( idomain, P_bcarbon ) = .FALSE. aerod_dname_table( idomain, P_bcarbon ) = 'bcarbon' aerod_desc_table( idomain, P_bcarbon ) = 'black carbon' aerod_units_table( idomain, P_bcarbon ) = '-' aerod_streams_table( idomain, P_bcarbon )%stream(1) = 0 ! 00000000 aerod_streams_table( idomain, P_bcarbon )%stream(2) = 0 ! 00000000 F_bcarbon = .TRUE. IF ( aerod_index_table( PARAM_sulfate , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_sulfate = aerod_num_table(idomain) aerod_index_table( PARAM_sulfate , idomain ) = P_sulfate ELSE P_sulfate = aerod_index_table( PARAM_sulfate , idomain ) END IF aerod_boundary_table( idomain, P_sulfate ) = .FALSE. aerod_dname_table( idomain, P_sulfate ) = 'sulfate' aerod_desc_table( idomain, P_sulfate ) = 'sulfate' aerod_units_table( idomain, P_sulfate ) = '-' aerod_streams_table( idomain, P_sulfate )%stream(1) = 0 ! 00000000 aerod_streams_table( idomain, P_sulfate )%stream(2) = 0 ! 00000000 F_sulfate = .TRUE. IF ( aerod_index_table( PARAM_upperaer , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_upperaer = aerod_num_table(idomain) aerod_index_table( PARAM_upperaer , idomain ) = P_upperaer ELSE P_upperaer = aerod_index_table( PARAM_upperaer , idomain ) END IF aerod_boundary_table( idomain, P_upperaer ) = .FALSE. aerod_dname_table( idomain, P_upperaer ) = 'upperaer' aerod_desc_table( idomain, P_upperaer ) = 'volcanic ash' aerod_units_table( idomain, P_upperaer ) = '-' aerod_streams_table( idomain, P_upperaer )%stream(1) = 0 ! 00000000 aerod_streams_table( idomain, P_upperaer )%stream(2) = 0 ! 00000000 F_upperaer = .TRUE. END IF IF (model_config_rec%ra_sw_physics(idomain)==5)THEN END IF IF (model_config_rec%ra_sw_physics(idomain)==7)THEN END IF IF (model_config_rec%ra_sw_physics(idomain)==99)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==1)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==2)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==3)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==4)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==5)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==7)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==10)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==89)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==91)THEN END IF IF (model_config_rec%sf_urban_physics(idomain)==1)THEN END IF IF (model_config_rec%sf_urban_physics(idomain)==2)THEN END IF IF (model_config_rec%sf_urban_physics(idomain)==3)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==1)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==2)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==3)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==4)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==5)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==7)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==8)THEN END IF IF (model_config_rec%sf_surface_mosaic==1)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==1)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==2)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==3)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==4)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==5)THEN IF ( scalar_index_table( PARAM_qke_adv , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qke_adv = scalar_num_table(idomain) scalar_index_table( PARAM_qke_adv , idomain ) = P_qke_adv ELSE P_qke_adv = scalar_index_table( PARAM_qke_adv , idomain ) END IF scalar_boundary_table( idomain, P_qke_adv ) = .TRUE. scalar_dname_table( idomain, P_qke_adv ) = 'qke_adv' scalar_desc_table( idomain, P_qke_adv ) = 'twice TKE from MYNN' scalar_units_table( idomain, P_qke_adv ) = 'm2 s-2' scalar_streams_table( idomain, P_qke_adv )%stream(1) = 33554432 ! 02000000 scalar_streams_table( idomain, P_qke_adv )%stream(2) = 2097152 ! 00200000 F_qke_adv = .TRUE. END IF IF (model_config_rec%bl_pbl_physics(idomain)==6)THEN IF ( scalar_index_table( PARAM_qke_adv , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qke_adv = scalar_num_table(idomain) scalar_index_table( PARAM_qke_adv , idomain ) = P_qke_adv ELSE P_qke_adv = scalar_index_table( PARAM_qke_adv , idomain ) END IF scalar_boundary_table( idomain, P_qke_adv ) = .TRUE. scalar_dname_table( idomain, P_qke_adv ) = 'qke_adv' scalar_desc_table( idomain, P_qke_adv ) = 'twice TKE from MYNN' scalar_units_table( idomain, P_qke_adv ) = 'm2 s-2' scalar_streams_table( idomain, P_qke_adv )%stream(1) = 33554432 ! 02000000 scalar_streams_table( idomain, P_qke_adv )%stream(2) = 2097152 ! 00200000 F_qke_adv = .TRUE. END IF IF (model_config_rec%bl_pbl_physics(idomain)==7)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==8)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==9)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==10)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==11)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==12)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==99)THEN END IF IF (model_config_rec%bl_mynn_tkebudget(idomain)==1)THEN END IF IF (model_config_rec%bl_mynn_edmf(idomain)==1)THEN END IF IF (model_config_rec%bl_mynn_edmf(idomain)==2)THEN END IF IF (model_config_rec%icloud_bl==1)THEN END IF IF (model_config_rec%bl_pbl_physics_dfi(idomain)==5)THEN IF ( dfi_scalar_index_table( PARAM_dfi_qke_adv , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qke_adv = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qke_adv , idomain ) = P_dfi_qke_adv ELSE P_dfi_qke_adv = dfi_scalar_index_table( PARAM_dfi_qke_adv , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qke_adv ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qke_adv ) = 'dfi_qke_adv' dfi_scalar_desc_table( idomain, P_dfi_qke_adv ) = 'DFI twice TKE from MYNN' dfi_scalar_units_table( idomain, P_dfi_qke_adv ) = 'm2 s-2' dfi_scalar_streams_table( idomain, P_dfi_qke_adv )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qke_adv )%stream(2) = 2097152 ! 00200000 F_dfi_qke_adv = .TRUE. END IF IF (model_config_rec%bl_pbl_physics_dfi(idomain)==6)THEN IF ( dfi_scalar_index_table( PARAM_dfi_qke_adv , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qke_adv = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qke_adv , idomain ) = P_dfi_qke_adv ELSE P_dfi_qke_adv = dfi_scalar_index_table( PARAM_dfi_qke_adv , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qke_adv ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qke_adv ) = 'dfi_qke_adv' dfi_scalar_desc_table( idomain, P_dfi_qke_adv ) = 'DFI twice TKE from MYNN' dfi_scalar_units_table( idomain, P_dfi_qke_adv ) = 'm2 s-2' dfi_scalar_streams_table( idomain, P_dfi_qke_adv )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qke_adv )%stream(2) = 2097152 ! 00200000 F_dfi_qke_adv = .TRUE. END IF IF (model_config_rec%cu_physics(idomain)==0)THEN END IF IF (model_config_rec%cu_physics(idomain)==1)THEN END IF IF (model_config_rec%cu_physics(idomain)==2)THEN END IF IF (model_config_rec%cu_physics(idomain)==3)THEN END IF IF (model_config_rec%cu_physics(idomain)==4)THEN END IF IF (model_config_rec%cu_physics(idomain)==5)THEN END IF IF (model_config_rec%cu_physics(idomain)==6)THEN END IF IF (model_config_rec%cu_physics(idomain)==7)THEN END IF IF (model_config_rec%cu_physics(idomain)==10)THEN END IF IF (model_config_rec%cu_physics(idomain)==11)THEN END IF IF (model_config_rec%cu_physics(idomain)==14)THEN END IF IF (model_config_rec%cu_physics(idomain)==16)THEN END IF IF (model_config_rec%cu_physics(idomain)==93)THEN END IF IF (model_config_rec%cu_physics(idomain)==94)THEN END IF IF (model_config_rec%cu_physics(idomain)==95)THEN END IF IF (model_config_rec%cu_physics(idomain)==99)THEN END IF IF (model_config_rec%cu_diag(idomain)==1)THEN END IF IF (model_config_rec%kf_edrates(idomain)==1)THEN END IF IF (model_config_rec%cu_used==0)THEN END IF IF (model_config_rec%cu_used==1)THEN END IF IF (model_config_rec%cam_used==0)THEN END IF IF (model_config_rec%cam_used==1)THEN END IF IF (model_config_rec%shcu_physics(idomain)==0)THEN END IF IF (model_config_rec%shcu_physics(idomain)==1)THEN END IF IF (model_config_rec%shcu_physics(idomain)==2)THEN END IF IF (model_config_rec%shcu_physics(idomain)==3)THEN END IF IF (model_config_rec%shcu_used==0)THEN END IF IF (model_config_rec%shcu_used==1)THEN END IF IF (model_config_rec%grav_settling(idomain)==0)THEN END IF IF (model_config_rec%grav_settling(idomain)==1)THEN END IF IF (model_config_rec%grav_settling(idomain)==2)THEN END IF IF (model_config_rec%grid_fdda(idomain)==1)THEN IF ( fdda3d_index_table( PARAM_u_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_u_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_u_ndg_old , idomain ) = P_u_ndg_old ELSE P_u_ndg_old = fdda3d_index_table( PARAM_u_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_u_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_u_ndg_old ) = 'U_NDG_OLD' fdda3d_desc_table( idomain, P_u_ndg_old ) = 'OLD X WIND FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_u_ndg_old ) = 'm s-1' fdda3d_streams_table( idomain, P_u_ndg_old )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_u_ndg_old )%stream(2) = 2097168 ! 00200010 F_u_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_v_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_v_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_v_ndg_old , idomain ) = P_v_ndg_old ELSE P_v_ndg_old = fdda3d_index_table( PARAM_v_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_v_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_v_ndg_old ) = 'V_NDG_OLD' fdda3d_desc_table( idomain, P_v_ndg_old ) = 'OLD Y WIND FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_v_ndg_old ) = 'm s-1' fdda3d_streams_table( idomain, P_v_ndg_old )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_v_ndg_old )%stream(2) = 2097168 ! 00200010 F_v_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_t_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_t_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_t_ndg_old , idomain ) = P_t_ndg_old ELSE P_t_ndg_old = fdda3d_index_table( PARAM_t_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_t_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_t_ndg_old ) = 'T_NDG_OLD' fdda3d_desc_table( idomain, P_t_ndg_old ) = 'OLD PERT POT TEMP FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_t_ndg_old ) = 'K' fdda3d_streams_table( idomain, P_t_ndg_old )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_t_ndg_old )%stream(2) = 2097168 ! 00200010 F_t_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_q_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_q_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_q_ndg_old , idomain ) = P_q_ndg_old ELSE P_q_ndg_old = fdda3d_index_table( PARAM_q_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_q_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_q_ndg_old ) = 'Q_NDG_OLD' fdda3d_desc_table( idomain, P_q_ndg_old ) = 'OLD WATER VAPOR MIX RATIO FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_q_ndg_old ) = 'kg/kg' fdda3d_streams_table( idomain, P_q_ndg_old )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_q_ndg_old )%stream(2) = 2097168 ! 00200010 F_q_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_ph_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_ph_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_ph_ndg_old , idomain ) = P_ph_ndg_old ELSE P_ph_ndg_old = fdda3d_index_table( PARAM_ph_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_ph_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_ph_ndg_old ) = 'PH_NDG_OLD' fdda3d_desc_table( idomain, P_ph_ndg_old ) = 'OLD PERT GEOPOTENTIAL FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_ph_ndg_old ) = 'kg/kg' fdda3d_streams_table( idomain, P_ph_ndg_old )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_ph_ndg_old )%stream(2) = 2097168 ! 00200010 F_ph_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_u_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_u_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_u_ndg_new , idomain ) = P_u_ndg_new ELSE P_u_ndg_new = fdda3d_index_table( PARAM_u_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_u_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_u_ndg_new ) = 'U_NDG_NEW' fdda3d_desc_table( idomain, P_u_ndg_new ) = 'NEW X WIND FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_u_ndg_new ) = 'm s-1' fdda3d_streams_table( idomain, P_u_ndg_new )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_u_ndg_new )%stream(2) = 2097168 ! 00200010 F_u_ndg_new = .TRUE. IF ( fdda3d_index_table( PARAM_v_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_v_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_v_ndg_new , idomain ) = P_v_ndg_new ELSE P_v_ndg_new = fdda3d_index_table( PARAM_v_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_v_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_v_ndg_new ) = 'V_NDG_NEW' fdda3d_desc_table( idomain, P_v_ndg_new ) = 'NEW Y WIND FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_v_ndg_new ) = 'm s-1' fdda3d_streams_table( idomain, P_v_ndg_new )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_v_ndg_new )%stream(2) = 2097168 ! 00200010 F_v_ndg_new = .TRUE. IF ( fdda3d_index_table( PARAM_t_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_t_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_t_ndg_new , idomain ) = P_t_ndg_new ELSE P_t_ndg_new = fdda3d_index_table( PARAM_t_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_t_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_t_ndg_new ) = 'T_NDG_NEW' fdda3d_desc_table( idomain, P_t_ndg_new ) = 'NEW PERT POT TEMP FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_t_ndg_new ) = 'K' fdda3d_streams_table( idomain, P_t_ndg_new )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_t_ndg_new )%stream(2) = 2097168 ! 00200010 F_t_ndg_new = .TRUE. IF ( fdda3d_index_table( PARAM_q_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_q_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_q_ndg_new , idomain ) = P_q_ndg_new ELSE P_q_ndg_new = fdda3d_index_table( PARAM_q_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_q_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_q_ndg_new ) = 'Q_NDG_NEW' fdda3d_desc_table( idomain, P_q_ndg_new ) = 'NEW WATER VAPOR MIX RATIO FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_q_ndg_new ) = 'kg/kg' fdda3d_streams_table( idomain, P_q_ndg_new )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_q_ndg_new )%stream(2) = 2097168 ! 00200010 F_q_ndg_new = .TRUE. IF ( fdda3d_index_table( PARAM_ph_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_ph_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_ph_ndg_new , idomain ) = P_ph_ndg_new ELSE P_ph_ndg_new = fdda3d_index_table( PARAM_ph_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_ph_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_ph_ndg_new ) = 'PH_NDG_NEW' fdda3d_desc_table( idomain, P_ph_ndg_new ) = 'NEW PERT GEOPOTENTIAL FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_ph_ndg_new ) = 'kg/kg' fdda3d_streams_table( idomain, P_ph_ndg_new )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_ph_ndg_new )%stream(2) = 2097168 ! 00200010 F_ph_ndg_new = .TRUE. IF ( fdda2d_index_table( PARAM_mu_ndg_old , idomain ) .lt. 1 ) THEN fdda2d_num_table(idomain) = fdda2d_num_table(idomain) + 1 P_mu_ndg_old = fdda2d_num_table(idomain) fdda2d_index_table( PARAM_mu_ndg_old , idomain ) = P_mu_ndg_old ELSE P_mu_ndg_old = fdda2d_index_table( PARAM_mu_ndg_old , idomain ) END IF fdda2d_boundary_table( idomain, P_mu_ndg_old ) = .FALSE. fdda2d_dname_table( idomain, P_mu_ndg_old ) = 'MU_NDG_OLD' fdda2d_desc_table( idomain, P_mu_ndg_old ) = 'OLD PERT COLUMN DRY MASS FOR FDDA GRID NUDGING' fdda2d_units_table( idomain, P_mu_ndg_old ) = 'Pa' fdda2d_streams_table( idomain, P_mu_ndg_old )%stream(1) = 0 ! 00000000 fdda2d_streams_table( idomain, P_mu_ndg_old )%stream(2) = 2097168 ! 00200010 F_mu_ndg_old = .TRUE. IF ( fdda2d_index_table( PARAM_mu_ndg_new , idomain ) .lt. 1 ) THEN fdda2d_num_table(idomain) = fdda2d_num_table(idomain) + 1 P_mu_ndg_new = fdda2d_num_table(idomain) fdda2d_index_table( PARAM_mu_ndg_new , idomain ) = P_mu_ndg_new ELSE P_mu_ndg_new = fdda2d_index_table( PARAM_mu_ndg_new , idomain ) END IF fdda2d_boundary_table( idomain, P_mu_ndg_new ) = .FALSE. fdda2d_dname_table( idomain, P_mu_ndg_new ) = 'MU_NDG_NEW' fdda2d_desc_table( idomain, P_mu_ndg_new ) = 'NEW PERT COLUMN DRY MASS FOR FDDA GRID NUDGING' fdda2d_units_table( idomain, P_mu_ndg_new ) = 'Pa' fdda2d_streams_table( idomain, P_mu_ndg_new )%stream(1) = 0 ! 00000000 fdda2d_streams_table( idomain, P_mu_ndg_new )%stream(2) = 2097168 ! 00200010 F_mu_ndg_new = .TRUE. END IF IF (model_config_rec%grid_fdda(idomain)==2)THEN IF ( fdda3d_index_table( PARAM_u_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_u_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_u_ndg_old , idomain ) = P_u_ndg_old ELSE P_u_ndg_old = fdda3d_index_table( PARAM_u_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_u_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_u_ndg_old ) = 'U_NDG_OLD' fdda3d_desc_table( idomain, P_u_ndg_old ) = 'OLD X WIND FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_u_ndg_old ) = 'm s-1' fdda3d_streams_table( idomain, P_u_ndg_old )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_u_ndg_old )%stream(2) = 2097168 ! 00200010 F_u_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_v_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_v_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_v_ndg_old , idomain ) = P_v_ndg_old ELSE P_v_ndg_old = fdda3d_index_table( PARAM_v_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_v_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_v_ndg_old ) = 'V_NDG_OLD' fdda3d_desc_table( idomain, P_v_ndg_old ) = 'OLD Y WIND FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_v_ndg_old ) = 'm s-1' fdda3d_streams_table( idomain, P_v_ndg_old )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_v_ndg_old )%stream(2) = 2097168 ! 00200010 F_v_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_t_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_t_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_t_ndg_old , idomain ) = P_t_ndg_old ELSE P_t_ndg_old = fdda3d_index_table( PARAM_t_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_t_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_t_ndg_old ) = 'T_NDG_OLD' fdda3d_desc_table( idomain, P_t_ndg_old ) = 'OLD PERT POT TEMP FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_t_ndg_old ) = 'K' fdda3d_streams_table( idomain, P_t_ndg_old )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_t_ndg_old )%stream(2) = 2097168 ! 00200010 F_t_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_q_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_q_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_q_ndg_old , idomain ) = P_q_ndg_old ELSE P_q_ndg_old = fdda3d_index_table( PARAM_q_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_q_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_q_ndg_old ) = 'Q_NDG_OLD' fdda3d_desc_table( idomain, P_q_ndg_old ) = 'OLD WATER VAPOR MIX RATIO FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_q_ndg_old ) = 'kg/kg' fdda3d_streams_table( idomain, P_q_ndg_old )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_q_ndg_old )%stream(2) = 2097168 ! 00200010 F_q_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_ph_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_ph_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_ph_ndg_old , idomain ) = P_ph_ndg_old ELSE P_ph_ndg_old = fdda3d_index_table( PARAM_ph_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_ph_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_ph_ndg_old ) = 'PH_NDG_OLD' fdda3d_desc_table( idomain, P_ph_ndg_old ) = 'OLD PERT GEOPOTENTIAL FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_ph_ndg_old ) = 'kg/kg' fdda3d_streams_table( idomain, P_ph_ndg_old )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_ph_ndg_old )%stream(2) = 2097168 ! 00200010 F_ph_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_u_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_u_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_u_ndg_new , idomain ) = P_u_ndg_new ELSE P_u_ndg_new = fdda3d_index_table( PARAM_u_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_u_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_u_ndg_new ) = 'U_NDG_NEW' fdda3d_desc_table( idomain, P_u_ndg_new ) = 'NEW X WIND FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_u_ndg_new ) = 'm s-1' fdda3d_streams_table( idomain, P_u_ndg_new )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_u_ndg_new )%stream(2) = 2097168 ! 00200010 F_u_ndg_new = .TRUE. IF ( fdda3d_index_table( PARAM_v_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_v_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_v_ndg_new , idomain ) = P_v_ndg_new ELSE P_v_ndg_new = fdda3d_index_table( PARAM_v_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_v_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_v_ndg_new ) = 'V_NDG_NEW' fdda3d_desc_table( idomain, P_v_ndg_new ) = 'NEW Y WIND FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_v_ndg_new ) = 'm s-1' fdda3d_streams_table( idomain, P_v_ndg_new )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_v_ndg_new )%stream(2) = 2097168 ! 00200010 F_v_ndg_new = .TRUE. IF ( fdda3d_index_table( PARAM_t_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_t_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_t_ndg_new , idomain ) = P_t_ndg_new ELSE P_t_ndg_new = fdda3d_index_table( PARAM_t_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_t_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_t_ndg_new ) = 'T_NDG_NEW' fdda3d_desc_table( idomain, P_t_ndg_new ) = 'NEW PERT POT TEMP FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_t_ndg_new ) = 'K' fdda3d_streams_table( idomain, P_t_ndg_new )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_t_ndg_new )%stream(2) = 2097168 ! 00200010 F_t_ndg_new = .TRUE. IF ( fdda3d_index_table( PARAM_q_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_q_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_q_ndg_new , idomain ) = P_q_ndg_new ELSE P_q_ndg_new = fdda3d_index_table( PARAM_q_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_q_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_q_ndg_new ) = 'Q_NDG_NEW' fdda3d_desc_table( idomain, P_q_ndg_new ) = 'NEW WATER VAPOR MIX RATIO FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_q_ndg_new ) = 'kg/kg' fdda3d_streams_table( idomain, P_q_ndg_new )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_q_ndg_new )%stream(2) = 2097168 ! 00200010 F_q_ndg_new = .TRUE. IF ( fdda3d_index_table( PARAM_ph_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_ph_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_ph_ndg_new , idomain ) = P_ph_ndg_new ELSE P_ph_ndg_new = fdda3d_index_table( PARAM_ph_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_ph_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_ph_ndg_new ) = 'PH_NDG_NEW' fdda3d_desc_table( idomain, P_ph_ndg_new ) = 'NEW PERT GEOPOTENTIAL FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_ph_ndg_new ) = 'kg/kg' fdda3d_streams_table( idomain, P_ph_ndg_new )%stream(1) = 0 ! 00000000 fdda3d_streams_table( idomain, P_ph_ndg_new )%stream(2) = 2097168 ! 00200010 F_ph_ndg_new = .TRUE. IF ( fdda2d_index_table( PARAM_mu_ndg_old , idomain ) .lt. 1 ) THEN fdda2d_num_table(idomain) = fdda2d_num_table(idomain) + 1 P_mu_ndg_old = fdda2d_num_table(idomain) fdda2d_index_table( PARAM_mu_ndg_old , idomain ) = P_mu_ndg_old ELSE P_mu_ndg_old = fdda2d_index_table( PARAM_mu_ndg_old , idomain ) END IF fdda2d_boundary_table( idomain, P_mu_ndg_old ) = .FALSE. fdda2d_dname_table( idomain, P_mu_ndg_old ) = 'MU_NDG_OLD' fdda2d_desc_table( idomain, P_mu_ndg_old ) = 'OLD PERT COLUMN DRY MASS FOR FDDA GRID NUDGING' fdda2d_units_table( idomain, P_mu_ndg_old ) = 'Pa' fdda2d_streams_table( idomain, P_mu_ndg_old )%stream(1) = 0 ! 00000000 fdda2d_streams_table( idomain, P_mu_ndg_old )%stream(2) = 2097168 ! 00200010 F_mu_ndg_old = .TRUE. IF ( fdda2d_index_table( PARAM_mu_ndg_new , idomain ) .lt. 1 ) THEN fdda2d_num_table(idomain) = fdda2d_num_table(idomain) + 1 P_mu_ndg_new = fdda2d_num_table(idomain) fdda2d_index_table( PARAM_mu_ndg_new , idomain ) = P_mu_ndg_new ELSE P_mu_ndg_new = fdda2d_index_table( PARAM_mu_ndg_new , idomain ) END IF fdda2d_boundary_table( idomain, P_mu_ndg_new ) = .FALSE. fdda2d_dname_table( idomain, P_mu_ndg_new ) = 'MU_NDG_NEW' fdda2d_desc_table( idomain, P_mu_ndg_new ) = 'NEW PERT COLUMN DRY MASS FOR FDDA GRID NUDGING' fdda2d_units_table( idomain, P_mu_ndg_new ) = 'Pa' fdda2d_streams_table( idomain, P_mu_ndg_new )%stream(1) = 0 ! 00000000 fdda2d_streams_table( idomain, P_mu_ndg_new )%stream(2) = 2097168 ! 00200010 F_mu_ndg_new = .TRUE. END IF IF (model_config_rec%grid_sfdda(idomain)==1)THEN END IF IF (model_config_rec%obs_nudge_opt(idomain)==1)THEN END IF IF (model_config_rec%grid_sfdda(idomain)==2)THEN END IF IF (model_config_rec%aer_opt==1)THEN END IF IF (model_config_rec%aer_opt==2)THEN END IF IF (model_config_rec%slope_rad(idomain)==1)THEN END IF IF (model_config_rec%gwd_opt==1)THEN END IF IF (model_config_rec%sf_ocean_physics==1)THEN END IF IF (model_config_rec%sf_ocean_physics==2)THEN END IF IF (model_config_rec%scm_force==1)THEN END IF IF (model_config_rec%prec_acc_opt==1)THEN END IF IF (model_config_rec%bucketr_opt==1)THEN END IF IF (model_config_rec%bucketf_opt==1)THEN END IF IF (model_config_rec%momentum_adv_opt(idomain)==1)THEN END IF IF (model_config_rec%momentum_adv_opt(idomain)==3)THEN END IF IF (model_config_rec%moist_adv_opt(idomain)==0)THEN END IF IF (model_config_rec%moist_adv_opt(idomain)==1)THEN END IF IF (model_config_rec%moist_adv_opt(idomain)==2)THEN END IF IF (model_config_rec%moist_adv_opt(idomain)==3)THEN END IF IF (model_config_rec%moist_adv_opt(idomain)==4)THEN END IF IF (model_config_rec%output_diagnostics==1)THEN END IF IF (model_config_rec%nwp_diagnostics==1)THEN END IF IF (model_config_rec%dfi_stage(idomain)==0)THEN END IF IF (model_config_rec%dfi_stage(idomain)==1)THEN END IF IF (model_config_rec%dfi_stage(idomain)==2)THEN END IF IF (model_config_rec%dfi_stage(idomain)==3)THEN END IF IF (model_config_rec%dfi_stage(idomain)==4)THEN END IF IF (model_config_rec%dfi_stage(idomain)==5)THEN END IF IF (model_config_rec%dfi_opt==0)THEN END IF IF (model_config_rec%dfi_opt==1)THEN END IF IF (model_config_rec%dfi_opt==2)THEN END IF IF (model_config_rec%dfi_opt==3)THEN END IF IF (model_config_rec%nest_interp_coord==0)THEN END IF IF (model_config_rec%nest_interp_coord==1)THEN END IF IF (model_config_rec%tenddiag(idomain)==0)THEN END IF IF (model_config_rec%tenddiag(idomain)==1)THEN IF ( advh_t_index_table( PARAM_advh_qv , idomain ) .lt. 1 ) THEN advh_t_num_table(idomain) = advh_t_num_table(idomain) + 1 P_advh_qv = advh_t_num_table(idomain) advh_t_index_table( PARAM_advh_qv , idomain ) = P_advh_qv ELSE P_advh_qv = advh_t_index_table( PARAM_advh_qv , idomain ) END IF advh_t_boundary_table( idomain, P_advh_qv ) = .FALSE. advh_t_dname_table( idomain, P_advh_qv ) = 'advh_qv' advh_t_desc_table( idomain, P_advh_qv ) = 'ACCUMULATED HORIZONTAL TENDENCY FOR WATER VAPOR' advh_t_units_table( idomain, P_advh_qv ) = 'kg kg-1' advh_t_streams_table( idomain, P_advh_qv )%stream(1) = 0 ! 00000000 advh_t_streams_table( idomain, P_advh_qv )%stream(2) = 0 ! 00000000 F_advh_qv = .TRUE. IF ( advz_t_index_table( PARAM_advz_qv , idomain ) .lt. 1 ) THEN advz_t_num_table(idomain) = advz_t_num_table(idomain) + 1 P_advz_qv = advz_t_num_table(idomain) advz_t_index_table( PARAM_advz_qv , idomain ) = P_advz_qv ELSE P_advz_qv = advz_t_index_table( PARAM_advz_qv , idomain ) END IF advz_t_boundary_table( idomain, P_advz_qv ) = .FALSE. advz_t_dname_table( idomain, P_advz_qv ) = 'advz_qv' advz_t_desc_table( idomain, P_advz_qv ) = 'ACCUMULATED VERTICAL TENDENCY FOR WATER VAPOR' advz_t_units_table( idomain, P_advz_qv ) = 'kg kg-1' advz_t_streams_table( idomain, P_advz_qv )%stream(1) = 0 ! 00000000 advz_t_streams_table( idomain, P_advz_qv )%stream(2) = 0 ! 00000000 F_advz_qv = .TRUE. END IF IF (model_config_rec%traj_opt==0)THEN END IF IF (model_config_rec%traj_opt==1)THEN END IF IF (model_config_rec%seaice_albedo_opt==0)THEN END IF IF (model_config_rec%seaice_albedo_opt==1)THEN END IF IF (model_config_rec%seaice_albedo_opt==2)THEN END IF IF (model_config_rec%seaice_snowdepth_opt==0)THEN END IF IF (model_config_rec%seaice_snowdepth_opt==1)THEN END IF IF (model_config_rec%seaice_thickness_opt==0)THEN END IF IF (model_config_rec%seaice_thickness_opt==1)THEN END IF IF (model_config_rec%process_time_series==0)THEN END IF IF (model_config_rec%process_time_series==1)THEN END IF IF (model_config_rec%hailcast_opt(idomain)==1)THEN END IF IF (model_config_rec%lightning_option(idomain)==0)THEN END IF IF (model_config_rec%lightning_option(idomain)==1)THEN END IF IF (model_config_rec%lightning_option(idomain)==2)THEN END IF IF (model_config_rec%lightning_option(idomain)==11)THEN END IF IF (model_config_rec%lightning_option(idomain)==3)THEN END IF IF (model_config_rec%io_form_restart==1)THEN END IF IF (model_config_rec%io_form_restart==2)THEN END IF IF (model_config_rec%io_form_restart==3)THEN END IF IF (model_config_rec%io_form_restart==4)THEN END IF IF (model_config_rec%io_form_restart==5)THEN END IF IF (model_config_rec%io_form_restart==6)THEN END IF IF (model_config_rec%io_form_restart==7)THEN END IF IF (model_config_rec%io_form_restart==8)THEN END IF IF (model_config_rec%io_form_restart==9)THEN END IF IF (model_config_rec%io_form_restart==10)THEN END IF IF (model_config_rec%io_form_restart==11)THEN END IF IF (model_config_rec%io_form_restart==12)THEN END IF IF (model_config_rec%wrf_hydro==0)THEN END IF IF (model_config_rec%wrf_hydro==1)THEN END IF IF (model_config_rec%windfarm_opt(idomain)==0)THEN END IF IF (model_config_rec%windfarm_opt(idomain)==1)THEN END IF IF (model_config_rec%fft_used==0)THEN END IF IF (model_config_rec%fft_used==1)THEN END IF IF (model_config_rec%chem_opt(idomain)==0)THEN END IF IF (model_config_rec%chem_opt(idomain)==1)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==2)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 ! 00200040 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 ! 00200040 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 ! 00200040 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 ! 00200040 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 ! 00200040 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 ! 00200040 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 ! 00200040 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 ! 00200040 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 ! 00200040 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 ! 00200040 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 ! 00200040 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 ! 00200040 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 ! 00200040 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 ! 00200040 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 ! 00200040 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 ! 00200040 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 ! 00200040 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 ! 00200040 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 ! 00200040 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 ! 00200040 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 ! 00200040 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 ! 00200040 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 ! 00200040 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 ! 00200040 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 ! 00200040 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 ! 00200040 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 ! 00200040 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 ! 00200040 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 ! 00200040 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 ! 00200040 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 ! 00200040 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 ! 00200040 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 ! 00200040 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 ! 00200040 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 ! 00200040 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 ! 00200040 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 ! 00200040 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 ! 00200040 F_corn = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==5)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 ! 00200040 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 ! 00200040 F_msa = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 ! 00200040 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 ! 00200040 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3so2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2h = chem_num_table(idomain) chem_index_table( PARAM_ch3so2h , idomain ) = P_ch3so2h ELSE P_ch3so2h = chem_index_table( PARAM_ch3so2h , idomain ) END IF chem_boundary_table( idomain, P_ch3so2h ) = .TRUE. chem_dname_table( idomain, P_ch3so2h ) = 'ch3so2h' chem_desc_table( idomain, P_ch3so2h ) = 'CH3SO2H mixing ratio' chem_units_table( idomain, P_ch3so2h ) = 'ppmv' chem_streams_table( idomain, P_ch3so2h )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2h )%stream(2) = 2097216 ! 00200040 F_ch3so2h = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 ! 00200040 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 ! 00200040 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 ! 00200040 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_ch3so2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2oo , idomain ) = P_ch3so2oo ELSE P_ch3so2oo = chem_index_table( PARAM_ch3so2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2oo ) = 'ch3so2oo' chem_desc_table( idomain, P_ch3so2oo ) = 'CH3SO2OO mixing ratio' chem_units_table( idomain, P_ch3so2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2oo )%stream(2) = 2097216 ! 00200040 F_ch3so2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2ch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2ch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2ch2oo , idomain ) = P_ch3so2ch2oo ELSE P_ch3so2ch2oo = chem_index_table( PARAM_ch3so2ch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2ch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2ch2oo ) = 'ch3so2ch2oo' chem_desc_table( idomain, P_ch3so2ch2oo ) = 'CH3SO2CH2OO mixing ratio' chem_units_table( idomain, P_ch3so2ch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2ch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2ch2oo )%stream(2) = 2097216 ! 00200040 F_ch3so2ch2oo = .TRUE. IF ( chem_index_table( PARAM_mtf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mtf = chem_num_table(idomain) chem_index_table( PARAM_mtf , idomain ) = P_mtf ELSE P_mtf = chem_index_table( PARAM_mtf , idomain ) END IF chem_boundary_table( idomain, P_mtf ) = .TRUE. chem_dname_table( idomain, P_mtf ) = 'mtf' chem_desc_table( idomain, P_mtf ) = 'MTF mixing ratio' chem_units_table( idomain, P_mtf ) = 'ppmv' chem_streams_table( idomain, P_mtf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mtf )%stream(2) = 2097216 ! 00200040 F_mtf = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==6)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==7)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 ! 00200040 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 ! 00200040 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 ! 00200040 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 ! 00200040 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 ! 00200040 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 ! 00200040 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 ! 00200040 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 ! 00200040 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 ! 00200040 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 ! 00200040 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 ! 00200040 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 ! 00200040 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 ! 00200040 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 ! 00200040 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 ! 00200040 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 ! 00200040 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 ! 00200040 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 ! 00200040 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 ! 00200040 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 ! 00200040 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 ! 00200040 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 ! 00200040 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 ! 00200040 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 ! 00200040 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 ! 00200040 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 ! 00200040 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 ! 00200040 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 ! 00200040 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 ! 00200040 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 ! 00200040 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 ! 00200040 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 ! 00200040 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 ! 00200040 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 ! 00200040 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 ! 00200040 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 ! 00200040 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 ! 00200040 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 ! 00200040 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 ! 00200040 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 ! 00200040 F_num_a04 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==8)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 ! 00200040 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 ! 00200040 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 ! 00200040 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 ! 00200040 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 ! 00200040 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 ! 00200040 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 ! 00200040 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 ! 00200040 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 ! 00200040 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 ! 00200040 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 ! 00200040 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 ! 00200040 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 ! 00200040 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 ! 00200040 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 ! 00200040 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 ! 00200040 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 ! 00200040 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 ! 00200040 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 ! 00200040 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 ! 00200040 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 ! 00200040 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 ! 00200040 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 ! 00200040 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 ! 00200040 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 ! 00200040 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 ! 00200040 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 ! 00200040 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 ! 00200040 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 ! 00200040 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 ! 00200040 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 ! 00200040 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 ! 00200040 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 ! 00200040 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 ! 00200040 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 ! 00200040 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 ! 00200040 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 ! 00200040 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 ! 00200040 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 ! 00200040 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 ! 00200040 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a05 = chem_num_table(idomain) chem_index_table( PARAM_so4_a05 , idomain ) = P_so4_a05 ELSE P_so4_a05 = chem_index_table( PARAM_so4_a05 , idomain ) END IF chem_boundary_table( idomain, P_so4_a05 ) = .TRUE. chem_dname_table( idomain, P_so4_a05 ) = 'so4_a05' chem_desc_table( idomain, P_so4_a05 ) = 'Sulfate, aerosol bin 05' chem_units_table( idomain, P_so4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a05 )%stream(2) = 2097216 ! 00200040 F_so4_a05 = .TRUE. IF ( chem_index_table( PARAM_no3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a05 = chem_num_table(idomain) chem_index_table( PARAM_no3_a05 , idomain ) = P_no3_a05 ELSE P_no3_a05 = chem_index_table( PARAM_no3_a05 , idomain ) END IF chem_boundary_table( idomain, P_no3_a05 ) = .TRUE. chem_dname_table( idomain, P_no3_a05 ) = 'no3_a05' chem_desc_table( idomain, P_no3_a05 ) = 'Nitrate, aerosol bin 05' chem_units_table( idomain, P_no3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a05 )%stream(2) = 2097216 ! 00200040 F_no3_a05 = .TRUE. IF ( chem_index_table( PARAM_cl_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a05 = chem_num_table(idomain) chem_index_table( PARAM_cl_a05 , idomain ) = P_cl_a05 ELSE P_cl_a05 = chem_index_table( PARAM_cl_a05 , idomain ) END IF chem_boundary_table( idomain, P_cl_a05 ) = .TRUE. chem_dname_table( idomain, P_cl_a05 ) = 'cl_a05' chem_desc_table( idomain, P_cl_a05 ) = 'Chloride, aerosol bin 05' chem_units_table( idomain, P_cl_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a05 )%stream(2) = 2097216 ! 00200040 F_cl_a05 = .TRUE. IF ( chem_index_table( PARAM_nh4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a05 , idomain ) = P_nh4_a05 ELSE P_nh4_a05 = chem_index_table( PARAM_nh4_a05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a05 ) = .TRUE. chem_dname_table( idomain, P_nh4_a05 ) = 'nh4_a05' chem_desc_table( idomain, P_nh4_a05 ) = 'Ammonium, aerosol bin 05' chem_units_table( idomain, P_nh4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a05 )%stream(2) = 2097216 ! 00200040 F_nh4_a05 = .TRUE. IF ( chem_index_table( PARAM_na_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a05 = chem_num_table(idomain) chem_index_table( PARAM_na_a05 , idomain ) = P_na_a05 ELSE P_na_a05 = chem_index_table( PARAM_na_a05 , idomain ) END IF chem_boundary_table( idomain, P_na_a05 ) = .TRUE. chem_dname_table( idomain, P_na_a05 ) = 'na_a05' chem_desc_table( idomain, P_na_a05 ) = 'Sodium, aerosol bin 05' chem_units_table( idomain, P_na_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a05 )%stream(2) = 2097216 ! 00200040 F_na_a05 = .TRUE. IF ( chem_index_table( PARAM_oin_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a05 = chem_num_table(idomain) chem_index_table( PARAM_oin_a05 , idomain ) = P_oin_a05 ELSE P_oin_a05 = chem_index_table( PARAM_oin_a05 , idomain ) END IF chem_boundary_table( idomain, P_oin_a05 ) = .TRUE. chem_dname_table( idomain, P_oin_a05 ) = 'oin_a05' chem_desc_table( idomain, P_oin_a05 ) = 'Other inorganics, aerosol bin 05' chem_units_table( idomain, P_oin_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a05 )%stream(2) = 2097216 ! 00200040 F_oin_a05 = .TRUE. IF ( chem_index_table( PARAM_oc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a05 = chem_num_table(idomain) chem_index_table( PARAM_oc_a05 , idomain ) = P_oc_a05 ELSE P_oc_a05 = chem_index_table( PARAM_oc_a05 , idomain ) END IF chem_boundary_table( idomain, P_oc_a05 ) = .TRUE. chem_dname_table( idomain, P_oc_a05 ) = 'oc_a05' chem_desc_table( idomain, P_oc_a05 ) = 'Organic carbon, aerosol bin 05' chem_units_table( idomain, P_oc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a05 )%stream(2) = 2097216 ! 00200040 F_oc_a05 = .TRUE. IF ( chem_index_table( PARAM_bc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a05 = chem_num_table(idomain) chem_index_table( PARAM_bc_a05 , idomain ) = P_bc_a05 ELSE P_bc_a05 = chem_index_table( PARAM_bc_a05 , idomain ) END IF chem_boundary_table( idomain, P_bc_a05 ) = .TRUE. chem_dname_table( idomain, P_bc_a05 ) = 'bc_a05' chem_desc_table( idomain, P_bc_a05 ) = 'Black carbon, aerosol bin 05' chem_units_table( idomain, P_bc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a05 )%stream(2) = 2097216 ! 00200040 F_bc_a05 = .TRUE. IF ( chem_index_table( PARAM_hysw_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a05 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a05 , idomain ) = P_hysw_a05 ELSE P_hysw_a05 = chem_index_table( PARAM_hysw_a05 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a05 ) = .TRUE. chem_dname_table( idomain, P_hysw_a05 ) = 'hysw_a05' chem_desc_table( idomain, P_hysw_a05 ) = 'Hysteresis water, aerosol bin 05' chem_units_table( idomain, P_hysw_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a05 )%stream(2) = 2097216 ! 00200040 F_hysw_a05 = .TRUE. IF ( chem_index_table( PARAM_water_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a05 = chem_num_table(idomain) chem_index_table( PARAM_water_a05 , idomain ) = P_water_a05 ELSE P_water_a05 = chem_index_table( PARAM_water_a05 , idomain ) END IF chem_boundary_table( idomain, P_water_a05 ) = .TRUE. chem_dname_table( idomain, P_water_a05 ) = 'water_a05' chem_desc_table( idomain, P_water_a05 ) = 'Water, aerosol bin 05' chem_units_table( idomain, P_water_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a05 )%stream(2) = 2097216 ! 00200040 F_water_a05 = .TRUE. IF ( chem_index_table( PARAM_num_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a05 = chem_num_table(idomain) chem_index_table( PARAM_num_a05 , idomain ) = P_num_a05 ELSE P_num_a05 = chem_index_table( PARAM_num_a05 , idomain ) END IF chem_boundary_table( idomain, P_num_a05 ) = .TRUE. chem_dname_table( idomain, P_num_a05 ) = 'num_a05' chem_desc_table( idomain, P_num_a05 ) = 'Number, aerosol bin 05' chem_units_table( idomain, P_num_a05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a05 )%stream(2) = 2097216 ! 00200040 F_num_a05 = .TRUE. IF ( chem_index_table( PARAM_so4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a06 = chem_num_table(idomain) chem_index_table( PARAM_so4_a06 , idomain ) = P_so4_a06 ELSE P_so4_a06 = chem_index_table( PARAM_so4_a06 , idomain ) END IF chem_boundary_table( idomain, P_so4_a06 ) = .TRUE. chem_dname_table( idomain, P_so4_a06 ) = 'so4_a06' chem_desc_table( idomain, P_so4_a06 ) = 'Sulfate, aerosol bin 06' chem_units_table( idomain, P_so4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a06 )%stream(2) = 2097216 ! 00200040 F_so4_a06 = .TRUE. IF ( chem_index_table( PARAM_no3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a06 = chem_num_table(idomain) chem_index_table( PARAM_no3_a06 , idomain ) = P_no3_a06 ELSE P_no3_a06 = chem_index_table( PARAM_no3_a06 , idomain ) END IF chem_boundary_table( idomain, P_no3_a06 ) = .TRUE. chem_dname_table( idomain, P_no3_a06 ) = 'no3_a06' chem_desc_table( idomain, P_no3_a06 ) = 'Nitrate, aerosol bin 06' chem_units_table( idomain, P_no3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a06 )%stream(2) = 2097216 ! 00200040 F_no3_a06 = .TRUE. IF ( chem_index_table( PARAM_cl_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a06 = chem_num_table(idomain) chem_index_table( PARAM_cl_a06 , idomain ) = P_cl_a06 ELSE P_cl_a06 = chem_index_table( PARAM_cl_a06 , idomain ) END IF chem_boundary_table( idomain, P_cl_a06 ) = .TRUE. chem_dname_table( idomain, P_cl_a06 ) = 'cl_a06' chem_desc_table( idomain, P_cl_a06 ) = 'Chloride, aerosol bin 06' chem_units_table( idomain, P_cl_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a06 )%stream(2) = 2097216 ! 00200040 F_cl_a06 = .TRUE. IF ( chem_index_table( PARAM_nh4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a06 , idomain ) = P_nh4_a06 ELSE P_nh4_a06 = chem_index_table( PARAM_nh4_a06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a06 ) = .TRUE. chem_dname_table( idomain, P_nh4_a06 ) = 'nh4_a06' chem_desc_table( idomain, P_nh4_a06 ) = 'Ammonium, aerosol bin 06' chem_units_table( idomain, P_nh4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a06 )%stream(2) = 2097216 ! 00200040 F_nh4_a06 = .TRUE. IF ( chem_index_table( PARAM_na_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a06 = chem_num_table(idomain) chem_index_table( PARAM_na_a06 , idomain ) = P_na_a06 ELSE P_na_a06 = chem_index_table( PARAM_na_a06 , idomain ) END IF chem_boundary_table( idomain, P_na_a06 ) = .TRUE. chem_dname_table( idomain, P_na_a06 ) = 'na_a06' chem_desc_table( idomain, P_na_a06 ) = 'Sodium, aerosol bin 06' chem_units_table( idomain, P_na_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a06 )%stream(2) = 2097216 ! 00200040 F_na_a06 = .TRUE. IF ( chem_index_table( PARAM_oin_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a06 = chem_num_table(idomain) chem_index_table( PARAM_oin_a06 , idomain ) = P_oin_a06 ELSE P_oin_a06 = chem_index_table( PARAM_oin_a06 , idomain ) END IF chem_boundary_table( idomain, P_oin_a06 ) = .TRUE. chem_dname_table( idomain, P_oin_a06 ) = 'oin_a06' chem_desc_table( idomain, P_oin_a06 ) = 'Other inorganics, aerosol bin 06' chem_units_table( idomain, P_oin_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a06 )%stream(2) = 2097216 ! 00200040 F_oin_a06 = .TRUE. IF ( chem_index_table( PARAM_oc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a06 = chem_num_table(idomain) chem_index_table( PARAM_oc_a06 , idomain ) = P_oc_a06 ELSE P_oc_a06 = chem_index_table( PARAM_oc_a06 , idomain ) END IF chem_boundary_table( idomain, P_oc_a06 ) = .TRUE. chem_dname_table( idomain, P_oc_a06 ) = 'oc_a06' chem_desc_table( idomain, P_oc_a06 ) = 'Organic carbon, aerosol bin 06' chem_units_table( idomain, P_oc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a06 )%stream(2) = 2097216 ! 00200040 F_oc_a06 = .TRUE. IF ( chem_index_table( PARAM_bc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a06 = chem_num_table(idomain) chem_index_table( PARAM_bc_a06 , idomain ) = P_bc_a06 ELSE P_bc_a06 = chem_index_table( PARAM_bc_a06 , idomain ) END IF chem_boundary_table( idomain, P_bc_a06 ) = .TRUE. chem_dname_table( idomain, P_bc_a06 ) = 'bc_a06' chem_desc_table( idomain, P_bc_a06 ) = 'Black carbon, aerosol bin 06' chem_units_table( idomain, P_bc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a06 )%stream(2) = 2097216 ! 00200040 F_bc_a06 = .TRUE. IF ( chem_index_table( PARAM_hysw_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a06 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a06 , idomain ) = P_hysw_a06 ELSE P_hysw_a06 = chem_index_table( PARAM_hysw_a06 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a06 ) = .TRUE. chem_dname_table( idomain, P_hysw_a06 ) = 'hysw_a06' chem_desc_table( idomain, P_hysw_a06 ) = 'Hysteresis water, aerosol bin 06' chem_units_table( idomain, P_hysw_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a06 )%stream(2) = 2097216 ! 00200040 F_hysw_a06 = .TRUE. IF ( chem_index_table( PARAM_water_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a06 = chem_num_table(idomain) chem_index_table( PARAM_water_a06 , idomain ) = P_water_a06 ELSE P_water_a06 = chem_index_table( PARAM_water_a06 , idomain ) END IF chem_boundary_table( idomain, P_water_a06 ) = .TRUE. chem_dname_table( idomain, P_water_a06 ) = 'water_a06' chem_desc_table( idomain, P_water_a06 ) = 'Water, aerosol bin 06' chem_units_table( idomain, P_water_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a06 )%stream(2) = 2097216 ! 00200040 F_water_a06 = .TRUE. IF ( chem_index_table( PARAM_num_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a06 = chem_num_table(idomain) chem_index_table( PARAM_num_a06 , idomain ) = P_num_a06 ELSE P_num_a06 = chem_index_table( PARAM_num_a06 , idomain ) END IF chem_boundary_table( idomain, P_num_a06 ) = .TRUE. chem_dname_table( idomain, P_num_a06 ) = 'num_a06' chem_desc_table( idomain, P_num_a06 ) = 'Number, aerosol bin 06' chem_units_table( idomain, P_num_a06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a06 )%stream(2) = 2097216 ! 00200040 F_num_a06 = .TRUE. IF ( chem_index_table( PARAM_so4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a07 = chem_num_table(idomain) chem_index_table( PARAM_so4_a07 , idomain ) = P_so4_a07 ELSE P_so4_a07 = chem_index_table( PARAM_so4_a07 , idomain ) END IF chem_boundary_table( idomain, P_so4_a07 ) = .TRUE. chem_dname_table( idomain, P_so4_a07 ) = 'so4_a07' chem_desc_table( idomain, P_so4_a07 ) = 'Sulfate, aerosol bin 07' chem_units_table( idomain, P_so4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a07 )%stream(2) = 2097216 ! 00200040 F_so4_a07 = .TRUE. IF ( chem_index_table( PARAM_no3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a07 = chem_num_table(idomain) chem_index_table( PARAM_no3_a07 , idomain ) = P_no3_a07 ELSE P_no3_a07 = chem_index_table( PARAM_no3_a07 , idomain ) END IF chem_boundary_table( idomain, P_no3_a07 ) = .TRUE. chem_dname_table( idomain, P_no3_a07 ) = 'no3_a07' chem_desc_table( idomain, P_no3_a07 ) = 'Nitrate, aerosol bin 07' chem_units_table( idomain, P_no3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a07 )%stream(2) = 2097216 ! 00200040 F_no3_a07 = .TRUE. IF ( chem_index_table( PARAM_cl_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a07 = chem_num_table(idomain) chem_index_table( PARAM_cl_a07 , idomain ) = P_cl_a07 ELSE P_cl_a07 = chem_index_table( PARAM_cl_a07 , idomain ) END IF chem_boundary_table( idomain, P_cl_a07 ) = .TRUE. chem_dname_table( idomain, P_cl_a07 ) = 'cl_a07' chem_desc_table( idomain, P_cl_a07 ) = 'Chloride, aerosol bin 07' chem_units_table( idomain, P_cl_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a07 )%stream(2) = 2097216 ! 00200040 F_cl_a07 = .TRUE. IF ( chem_index_table( PARAM_nh4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a07 , idomain ) = P_nh4_a07 ELSE P_nh4_a07 = chem_index_table( PARAM_nh4_a07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a07 ) = .TRUE. chem_dname_table( idomain, P_nh4_a07 ) = 'nh4_a07' chem_desc_table( idomain, P_nh4_a07 ) = 'Ammonium, aerosol bin 07' chem_units_table( idomain, P_nh4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a07 )%stream(2) = 2097216 ! 00200040 F_nh4_a07 = .TRUE. IF ( chem_index_table( PARAM_na_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a07 = chem_num_table(idomain) chem_index_table( PARAM_na_a07 , idomain ) = P_na_a07 ELSE P_na_a07 = chem_index_table( PARAM_na_a07 , idomain ) END IF chem_boundary_table( idomain, P_na_a07 ) = .TRUE. chem_dname_table( idomain, P_na_a07 ) = 'na_a07' chem_desc_table( idomain, P_na_a07 ) = 'Sodium, aerosol bin 07' chem_units_table( idomain, P_na_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a07 )%stream(2) = 2097216 ! 00200040 F_na_a07 = .TRUE. IF ( chem_index_table( PARAM_oin_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a07 = chem_num_table(idomain) chem_index_table( PARAM_oin_a07 , idomain ) = P_oin_a07 ELSE P_oin_a07 = chem_index_table( PARAM_oin_a07 , idomain ) END IF chem_boundary_table( idomain, P_oin_a07 ) = .TRUE. chem_dname_table( idomain, P_oin_a07 ) = 'oin_a07' chem_desc_table( idomain, P_oin_a07 ) = 'Other inorganics, aerosol bin 07' chem_units_table( idomain, P_oin_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a07 )%stream(2) = 2097216 ! 00200040 F_oin_a07 = .TRUE. IF ( chem_index_table( PARAM_oc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a07 = chem_num_table(idomain) chem_index_table( PARAM_oc_a07 , idomain ) = P_oc_a07 ELSE P_oc_a07 = chem_index_table( PARAM_oc_a07 , idomain ) END IF chem_boundary_table( idomain, P_oc_a07 ) = .TRUE. chem_dname_table( idomain, P_oc_a07 ) = 'oc_a07' chem_desc_table( idomain, P_oc_a07 ) = 'Organic carbon, aerosol bin 07' chem_units_table( idomain, P_oc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a07 )%stream(2) = 2097216 ! 00200040 F_oc_a07 = .TRUE. IF ( chem_index_table( PARAM_bc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a07 = chem_num_table(idomain) chem_index_table( PARAM_bc_a07 , idomain ) = P_bc_a07 ELSE P_bc_a07 = chem_index_table( PARAM_bc_a07 , idomain ) END IF chem_boundary_table( idomain, P_bc_a07 ) = .TRUE. chem_dname_table( idomain, P_bc_a07 ) = 'bc_a07' chem_desc_table( idomain, P_bc_a07 ) = 'Black carbon, aerosol bin 07' chem_units_table( idomain, P_bc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a07 )%stream(2) = 2097216 ! 00200040 F_bc_a07 = .TRUE. IF ( chem_index_table( PARAM_hysw_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a07 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a07 , idomain ) = P_hysw_a07 ELSE P_hysw_a07 = chem_index_table( PARAM_hysw_a07 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a07 ) = .TRUE. chem_dname_table( idomain, P_hysw_a07 ) = 'hysw_a07' chem_desc_table( idomain, P_hysw_a07 ) = 'Hysteresis water, aerosol bin 07' chem_units_table( idomain, P_hysw_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a07 )%stream(2) = 2097216 ! 00200040 F_hysw_a07 = .TRUE. IF ( chem_index_table( PARAM_water_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a07 = chem_num_table(idomain) chem_index_table( PARAM_water_a07 , idomain ) = P_water_a07 ELSE P_water_a07 = chem_index_table( PARAM_water_a07 , idomain ) END IF chem_boundary_table( idomain, P_water_a07 ) = .TRUE. chem_dname_table( idomain, P_water_a07 ) = 'water_a07' chem_desc_table( idomain, P_water_a07 ) = 'Water, aerosol bin 07' chem_units_table( idomain, P_water_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a07 )%stream(2) = 2097216 ! 00200040 F_water_a07 = .TRUE. IF ( chem_index_table( PARAM_num_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a07 = chem_num_table(idomain) chem_index_table( PARAM_num_a07 , idomain ) = P_num_a07 ELSE P_num_a07 = chem_index_table( PARAM_num_a07 , idomain ) END IF chem_boundary_table( idomain, P_num_a07 ) = .TRUE. chem_dname_table( idomain, P_num_a07 ) = 'num_a07' chem_desc_table( idomain, P_num_a07 ) = 'Number, aerosol bin 07' chem_units_table( idomain, P_num_a07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a07 )%stream(2) = 2097216 ! 00200040 F_num_a07 = .TRUE. IF ( chem_index_table( PARAM_so4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a08 = chem_num_table(idomain) chem_index_table( PARAM_so4_a08 , idomain ) = P_so4_a08 ELSE P_so4_a08 = chem_index_table( PARAM_so4_a08 , idomain ) END IF chem_boundary_table( idomain, P_so4_a08 ) = .TRUE. chem_dname_table( idomain, P_so4_a08 ) = 'so4_a08' chem_desc_table( idomain, P_so4_a08 ) = 'Sulfate, aerosol bin 08' chem_units_table( idomain, P_so4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a08 )%stream(2) = 2097216 ! 00200040 F_so4_a08 = .TRUE. IF ( chem_index_table( PARAM_no3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a08 = chem_num_table(idomain) chem_index_table( PARAM_no3_a08 , idomain ) = P_no3_a08 ELSE P_no3_a08 = chem_index_table( PARAM_no3_a08 , idomain ) END IF chem_boundary_table( idomain, P_no3_a08 ) = .TRUE. chem_dname_table( idomain, P_no3_a08 ) = 'no3_a08' chem_desc_table( idomain, P_no3_a08 ) = 'Nitrate, aerosol bin 08' chem_units_table( idomain, P_no3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a08 )%stream(2) = 2097216 ! 00200040 F_no3_a08 = .TRUE. IF ( chem_index_table( PARAM_cl_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a08 = chem_num_table(idomain) chem_index_table( PARAM_cl_a08 , idomain ) = P_cl_a08 ELSE P_cl_a08 = chem_index_table( PARAM_cl_a08 , idomain ) END IF chem_boundary_table( idomain, P_cl_a08 ) = .TRUE. chem_dname_table( idomain, P_cl_a08 ) = 'cl_a08' chem_desc_table( idomain, P_cl_a08 ) = 'Chloride, aerosol bin 08' chem_units_table( idomain, P_cl_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a08 )%stream(2) = 2097216 ! 00200040 F_cl_a08 = .TRUE. IF ( chem_index_table( PARAM_nh4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a08 , idomain ) = P_nh4_a08 ELSE P_nh4_a08 = chem_index_table( PARAM_nh4_a08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a08 ) = .TRUE. chem_dname_table( idomain, P_nh4_a08 ) = 'nh4_a08' chem_desc_table( idomain, P_nh4_a08 ) = 'Ammonium, aerosol bin 08' chem_units_table( idomain, P_nh4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a08 )%stream(2) = 2097216 ! 00200040 F_nh4_a08 = .TRUE. IF ( chem_index_table( PARAM_na_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a08 = chem_num_table(idomain) chem_index_table( PARAM_na_a08 , idomain ) = P_na_a08 ELSE P_na_a08 = chem_index_table( PARAM_na_a08 , idomain ) END IF chem_boundary_table( idomain, P_na_a08 ) = .TRUE. chem_dname_table( idomain, P_na_a08 ) = 'na_a08' chem_desc_table( idomain, P_na_a08 ) = 'Sodium, aerosol bin 08' chem_units_table( idomain, P_na_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a08 )%stream(2) = 2097216 ! 00200040 F_na_a08 = .TRUE. IF ( chem_index_table( PARAM_oin_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a08 = chem_num_table(idomain) chem_index_table( PARAM_oin_a08 , idomain ) = P_oin_a08 ELSE P_oin_a08 = chem_index_table( PARAM_oin_a08 , idomain ) END IF chem_boundary_table( idomain, P_oin_a08 ) = .TRUE. chem_dname_table( idomain, P_oin_a08 ) = 'oin_a08' chem_desc_table( idomain, P_oin_a08 ) = 'Other inorganics, aerosol bin 08' chem_units_table( idomain, P_oin_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a08 )%stream(2) = 2097216 ! 00200040 F_oin_a08 = .TRUE. IF ( chem_index_table( PARAM_oc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a08 = chem_num_table(idomain) chem_index_table( PARAM_oc_a08 , idomain ) = P_oc_a08 ELSE P_oc_a08 = chem_index_table( PARAM_oc_a08 , idomain ) END IF chem_boundary_table( idomain, P_oc_a08 ) = .TRUE. chem_dname_table( idomain, P_oc_a08 ) = 'oc_a08' chem_desc_table( idomain, P_oc_a08 ) = 'Organic carbon, aerosol bin 08' chem_units_table( idomain, P_oc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a08 )%stream(2) = 2097216 ! 00200040 F_oc_a08 = .TRUE. IF ( chem_index_table( PARAM_bc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a08 = chem_num_table(idomain) chem_index_table( PARAM_bc_a08 , idomain ) = P_bc_a08 ELSE P_bc_a08 = chem_index_table( PARAM_bc_a08 , idomain ) END IF chem_boundary_table( idomain, P_bc_a08 ) = .TRUE. chem_dname_table( idomain, P_bc_a08 ) = 'bc_a08' chem_desc_table( idomain, P_bc_a08 ) = 'Black carbon, aerosol bin 08' chem_units_table( idomain, P_bc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a08 )%stream(2) = 2097216 ! 00200040 F_bc_a08 = .TRUE. IF ( chem_index_table( PARAM_hysw_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a08 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a08 , idomain ) = P_hysw_a08 ELSE P_hysw_a08 = chem_index_table( PARAM_hysw_a08 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a08 ) = .TRUE. chem_dname_table( idomain, P_hysw_a08 ) = 'hysw_a08' chem_desc_table( idomain, P_hysw_a08 ) = 'Hysteresis water, aerosol bin 08' chem_units_table( idomain, P_hysw_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a08 )%stream(2) = 2097216 ! 00200040 F_hysw_a08 = .TRUE. IF ( chem_index_table( PARAM_water_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a08 = chem_num_table(idomain) chem_index_table( PARAM_water_a08 , idomain ) = P_water_a08 ELSE P_water_a08 = chem_index_table( PARAM_water_a08 , idomain ) END IF chem_boundary_table( idomain, P_water_a08 ) = .TRUE. chem_dname_table( idomain, P_water_a08 ) = 'water_a08' chem_desc_table( idomain, P_water_a08 ) = 'Water, aerosol bin 08' chem_units_table( idomain, P_water_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a08 )%stream(2) = 2097216 ! 00200040 F_water_a08 = .TRUE. IF ( chem_index_table( PARAM_num_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a08 = chem_num_table(idomain) chem_index_table( PARAM_num_a08 , idomain ) = P_num_a08 ELSE P_num_a08 = chem_index_table( PARAM_num_a08 , idomain ) END IF chem_boundary_table( idomain, P_num_a08 ) = .TRUE. chem_dname_table( idomain, P_num_a08 ) = 'num_a08' chem_desc_table( idomain, P_num_a08 ) = 'Number, aerosol bin 08' chem_units_table( idomain, P_num_a08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a08 )%stream(2) = 2097216 ! 00200040 F_num_a08 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 ! 00200040 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 ! 00200040 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 ! 00200040 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 ! 00200040 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a05 = chem_num_table(idomain) chem_index_table( PARAM_ca_a05 , idomain ) = P_ca_a05 ELSE P_ca_a05 = chem_index_table( PARAM_ca_a05 , idomain ) END IF chem_boundary_table( idomain, P_ca_a05 ) = .TRUE. chem_dname_table( idomain, P_ca_a05 ) = 'ca_a05' chem_desc_table( idomain, P_ca_a05 ) = 'Calcium, aerosol bin 05' chem_units_table( idomain, P_ca_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a05 )%stream(2) = 2097216 ! 00200040 F_ca_a05 = .TRUE. IF ( chem_index_table( PARAM_ca_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a06 = chem_num_table(idomain) chem_index_table( PARAM_ca_a06 , idomain ) = P_ca_a06 ELSE P_ca_a06 = chem_index_table( PARAM_ca_a06 , idomain ) END IF chem_boundary_table( idomain, P_ca_a06 ) = .TRUE. chem_dname_table( idomain, P_ca_a06 ) = 'ca_a06' chem_desc_table( idomain, P_ca_a06 ) = 'Calcium, aerosol bin 06' chem_units_table( idomain, P_ca_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a06 )%stream(2) = 2097216 ! 00200040 F_ca_a06 = .TRUE. IF ( chem_index_table( PARAM_ca_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a07 = chem_num_table(idomain) chem_index_table( PARAM_ca_a07 , idomain ) = P_ca_a07 ELSE P_ca_a07 = chem_index_table( PARAM_ca_a07 , idomain ) END IF chem_boundary_table( idomain, P_ca_a07 ) = .TRUE. chem_dname_table( idomain, P_ca_a07 ) = 'ca_a07' chem_desc_table( idomain, P_ca_a07 ) = 'Calcium, aerosol bin 07' chem_units_table( idomain, P_ca_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a07 )%stream(2) = 2097216 ! 00200040 F_ca_a07 = .TRUE. IF ( chem_index_table( PARAM_ca_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a08 = chem_num_table(idomain) chem_index_table( PARAM_ca_a08 , idomain ) = P_ca_a08 ELSE P_ca_a08 = chem_index_table( PARAM_ca_a08 , idomain ) END IF chem_boundary_table( idomain, P_ca_a08 ) = .TRUE. chem_dname_table( idomain, P_ca_a08 ) = 'ca_a08' chem_desc_table( idomain, P_ca_a08 ) = 'Calcium, aerosol bin 08' chem_units_table( idomain, P_ca_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a08 )%stream(2) = 2097216 ! 00200040 F_ca_a08 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 ! 00200040 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 ! 00200040 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 ! 00200040 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 ! 00200040 F_co3_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a05 = chem_num_table(idomain) chem_index_table( PARAM_co3_a05 , idomain ) = P_co3_a05 ELSE P_co3_a05 = chem_index_table( PARAM_co3_a05 , idomain ) END IF chem_boundary_table( idomain, P_co3_a05 ) = .TRUE. chem_dname_table( idomain, P_co3_a05 ) = 'co3_a05' chem_desc_table( idomain, P_co3_a05 ) = 'Carbonate, aerosol bin 05' chem_units_table( idomain, P_co3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a05 )%stream(2) = 2097216 ! 00200040 F_co3_a05 = .TRUE. IF ( chem_index_table( PARAM_co3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a06 = chem_num_table(idomain) chem_index_table( PARAM_co3_a06 , idomain ) = P_co3_a06 ELSE P_co3_a06 = chem_index_table( PARAM_co3_a06 , idomain ) END IF chem_boundary_table( idomain, P_co3_a06 ) = .TRUE. chem_dname_table( idomain, P_co3_a06 ) = 'co3_a06' chem_desc_table( idomain, P_co3_a06 ) = 'Carbonate, aerosol bin 06' chem_units_table( idomain, P_co3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a06 )%stream(2) = 2097216 ! 00200040 F_co3_a06 = .TRUE. IF ( chem_index_table( PARAM_co3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a07 = chem_num_table(idomain) chem_index_table( PARAM_co3_a07 , idomain ) = P_co3_a07 ELSE P_co3_a07 = chem_index_table( PARAM_co3_a07 , idomain ) END IF chem_boundary_table( idomain, P_co3_a07 ) = .TRUE. chem_dname_table( idomain, P_co3_a07 ) = 'co3_a07' chem_desc_table( idomain, P_co3_a07 ) = 'Carbonate, aerosol bin 07' chem_units_table( idomain, P_co3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a07 )%stream(2) = 2097216 ! 00200040 F_co3_a07 = .TRUE. IF ( chem_index_table( PARAM_co3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a08 = chem_num_table(idomain) chem_index_table( PARAM_co3_a08 , idomain ) = P_co3_a08 ELSE P_co3_a08 = chem_index_table( PARAM_co3_a08 , idomain ) END IF chem_boundary_table( idomain, P_co3_a08 ) = .TRUE. chem_dname_table( idomain, P_co3_a08 ) = 'co3_a08' chem_desc_table( idomain, P_co3_a08 ) = 'Carbonate, aerosol bin 08' chem_units_table( idomain, P_co3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a08 )%stream(2) = 2097216 ! 00200040 F_co3_a08 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==9)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 ! 00200040 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 ! 00200040 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 ! 00200040 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 ! 00200040 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 ! 00200040 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 ! 00200040 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 ! 00200040 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 ! 00200040 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 ! 00200040 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 ! 00200040 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 ! 00200040 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 ! 00200040 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 ! 00200040 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 ! 00200040 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 ! 00200040 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 ! 00200040 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 ! 00200040 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 ! 00200040 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 ! 00200040 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 ! 00200040 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 ! 00200040 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 ! 00200040 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 ! 00200040 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 ! 00200040 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 ! 00200040 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 ! 00200040 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 ! 00200040 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 ! 00200040 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 ! 00200040 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 ! 00200040 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 ! 00200040 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 ! 00200040 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 ! 00200040 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 ! 00200040 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 ! 00200040 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 ! 00200040 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 ! 00200040 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 ! 00200040 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 ! 00200040 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 ! 00200040 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw01 , idomain ) = P_so4_cw01 ELSE P_so4_cw01 = chem_index_table( PARAM_so4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw01 ) = .TRUE. chem_dname_table( idomain, P_so4_cw01 ) = 'so4_cw01' chem_desc_table( idomain, P_so4_cw01 ) = 'Sulfate, aerosol in cloud bin 01' chem_units_table( idomain, P_so4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw01 )%stream(2) = 2097216 ! 00200040 F_so4_cw01 = .TRUE. IF ( chem_index_table( PARAM_no3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw01 , idomain ) = P_no3_cw01 ELSE P_no3_cw01 = chem_index_table( PARAM_no3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw01 ) = .TRUE. chem_dname_table( idomain, P_no3_cw01 ) = 'no3_cw01' chem_desc_table( idomain, P_no3_cw01 ) = 'Nitrate, aerosol in cloud bin 01' chem_units_table( idomain, P_no3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw01 )%stream(2) = 2097216 ! 00200040 F_no3_cw01 = .TRUE. IF ( chem_index_table( PARAM_cl_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw01 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw01 , idomain ) = P_cl_cw01 ELSE P_cl_cw01 = chem_index_table( PARAM_cl_cw01 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw01 ) = .TRUE. chem_dname_table( idomain, P_cl_cw01 ) = 'cl_cw01' chem_desc_table( idomain, P_cl_cw01 ) = 'Chloride, aerosol in cloud bin 01' chem_units_table( idomain, P_cl_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw01 )%stream(2) = 2097216 ! 00200040 F_cl_cw01 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw01 , idomain ) = P_nh4_cw01 ELSE P_nh4_cw01 = chem_index_table( PARAM_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw01 ) = 'nh4_cw01' chem_desc_table( idomain, P_nh4_cw01 ) = 'Ammonium, aerosol in cloud bin 01' chem_units_table( idomain, P_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw01 )%stream(2) = 2097216 ! 00200040 F_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_na_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw01 = chem_num_table(idomain) chem_index_table( PARAM_na_cw01 , idomain ) = P_na_cw01 ELSE P_na_cw01 = chem_index_table( PARAM_na_cw01 , idomain ) END IF chem_boundary_table( idomain, P_na_cw01 ) = .TRUE. chem_dname_table( idomain, P_na_cw01 ) = 'na_cw01' chem_desc_table( idomain, P_na_cw01 ) = 'Sodium, aerosol in cloud bin 01' chem_units_table( idomain, P_na_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw01 )%stream(2) = 2097216 ! 00200040 F_na_cw01 = .TRUE. IF ( chem_index_table( PARAM_oin_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw01 , idomain ) = P_oin_cw01 ELSE P_oin_cw01 = chem_index_table( PARAM_oin_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw01 ) = .TRUE. chem_dname_table( idomain, P_oin_cw01 ) = 'oin_cw01' chem_desc_table( idomain, P_oin_cw01 ) = 'Other inorganics, aerosol in cloud bin 01' chem_units_table( idomain, P_oin_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw01 )%stream(2) = 2097216 ! 00200040 F_oin_cw01 = .TRUE. IF ( chem_index_table( PARAM_oc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw01 , idomain ) = P_oc_cw01 ELSE P_oc_cw01 = chem_index_table( PARAM_oc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw01 ) = .TRUE. chem_dname_table( idomain, P_oc_cw01 ) = 'oc_cw01' chem_desc_table( idomain, P_oc_cw01 ) = 'Organic carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_oc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw01 )%stream(2) = 2097216 ! 00200040 F_oc_cw01 = .TRUE. IF ( chem_index_table( PARAM_bc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw01 , idomain ) = P_bc_cw01 ELSE P_bc_cw01 = chem_index_table( PARAM_bc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw01 ) = .TRUE. chem_dname_table( idomain, P_bc_cw01 ) = 'bc_cw01' chem_desc_table( idomain, P_bc_cw01 ) = 'Black carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_bc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw01 )%stream(2) = 2097216 ! 00200040 F_bc_cw01 = .TRUE. IF ( chem_index_table( PARAM_num_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw01 = chem_num_table(idomain) chem_index_table( PARAM_num_cw01 , idomain ) = P_num_cw01 ELSE P_num_cw01 = chem_index_table( PARAM_num_cw01 , idomain ) END IF chem_boundary_table( idomain, P_num_cw01 ) = .TRUE. chem_dname_table( idomain, P_num_cw01 ) = 'num_cw01' chem_desc_table( idomain, P_num_cw01 ) = 'Number, aerosol in cloud bin 01' chem_units_table( idomain, P_num_cw01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw01 )%stream(2) = 2097216 ! 00200040 F_num_cw01 = .TRUE. IF ( chem_index_table( PARAM_so4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw02 , idomain ) = P_so4_cw02 ELSE P_so4_cw02 = chem_index_table( PARAM_so4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw02 ) = .TRUE. chem_dname_table( idomain, P_so4_cw02 ) = 'so4_cw02' chem_desc_table( idomain, P_so4_cw02 ) = 'Sulfate, aerosol in cloud bin 02' chem_units_table( idomain, P_so4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw02 )%stream(2) = 2097216 ! 00200040 F_so4_cw02 = .TRUE. IF ( chem_index_table( PARAM_no3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw02 , idomain ) = P_no3_cw02 ELSE P_no3_cw02 = chem_index_table( PARAM_no3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw02 ) = .TRUE. chem_dname_table( idomain, P_no3_cw02 ) = 'no3_cw02' chem_desc_table( idomain, P_no3_cw02 ) = 'Nitrate, aerosol in cloud bin 02' chem_units_table( idomain, P_no3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw02 )%stream(2) = 2097216 ! 00200040 F_no3_cw02 = .TRUE. IF ( chem_index_table( PARAM_cl_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw02 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw02 , idomain ) = P_cl_cw02 ELSE P_cl_cw02 = chem_index_table( PARAM_cl_cw02 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw02 ) = .TRUE. chem_dname_table( idomain, P_cl_cw02 ) = 'cl_cw02' chem_desc_table( idomain, P_cl_cw02 ) = 'Chloride, aerosol in cloud bin 02' chem_units_table( idomain, P_cl_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw02 )%stream(2) = 2097216 ! 00200040 F_cl_cw02 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw02 , idomain ) = P_nh4_cw02 ELSE P_nh4_cw02 = chem_index_table( PARAM_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw02 ) = 'nh4_cw02' chem_desc_table( idomain, P_nh4_cw02 ) = 'Ammonium, aerosol in cloud bin 02' chem_units_table( idomain, P_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw02 )%stream(2) = 2097216 ! 00200040 F_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_na_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw02 = chem_num_table(idomain) chem_index_table( PARAM_na_cw02 , idomain ) = P_na_cw02 ELSE P_na_cw02 = chem_index_table( PARAM_na_cw02 , idomain ) END IF chem_boundary_table( idomain, P_na_cw02 ) = .TRUE. chem_dname_table( idomain, P_na_cw02 ) = 'na_cw02' chem_desc_table( idomain, P_na_cw02 ) = 'Sodium, aerosol in cloud bin 02' chem_units_table( idomain, P_na_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw02 )%stream(2) = 2097216 ! 00200040 F_na_cw02 = .TRUE. IF ( chem_index_table( PARAM_oin_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw02 , idomain ) = P_oin_cw02 ELSE P_oin_cw02 = chem_index_table( PARAM_oin_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw02 ) = .TRUE. chem_dname_table( idomain, P_oin_cw02 ) = 'oin_cw02' chem_desc_table( idomain, P_oin_cw02 ) = 'Other inorganics, aerosol in cloud bin 02' chem_units_table( idomain, P_oin_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw02 )%stream(2) = 2097216 ! 00200040 F_oin_cw02 = .TRUE. IF ( chem_index_table( PARAM_oc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw02 , idomain ) = P_oc_cw02 ELSE P_oc_cw02 = chem_index_table( PARAM_oc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw02 ) = .TRUE. chem_dname_table( idomain, P_oc_cw02 ) = 'oc_cw02' chem_desc_table( idomain, P_oc_cw02 ) = 'Organic carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_oc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw02 )%stream(2) = 2097216 ! 00200040 F_oc_cw02 = .TRUE. IF ( chem_index_table( PARAM_bc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw02 , idomain ) = P_bc_cw02 ELSE P_bc_cw02 = chem_index_table( PARAM_bc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw02 ) = .TRUE. chem_dname_table( idomain, P_bc_cw02 ) = 'bc_cw02' chem_desc_table( idomain, P_bc_cw02 ) = 'Black carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_bc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw02 )%stream(2) = 2097216 ! 00200040 F_bc_cw02 = .TRUE. IF ( chem_index_table( PARAM_num_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw02 = chem_num_table(idomain) chem_index_table( PARAM_num_cw02 , idomain ) = P_num_cw02 ELSE P_num_cw02 = chem_index_table( PARAM_num_cw02 , idomain ) END IF chem_boundary_table( idomain, P_num_cw02 ) = .TRUE. chem_dname_table( idomain, P_num_cw02 ) = 'num_cw02' chem_desc_table( idomain, P_num_cw02 ) = 'Number, aerosol in cloud bin 02' chem_units_table( idomain, P_num_cw02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw02 )%stream(2) = 2097216 ! 00200040 F_num_cw02 = .TRUE. IF ( chem_index_table( PARAM_so4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw03 , idomain ) = P_so4_cw03 ELSE P_so4_cw03 = chem_index_table( PARAM_so4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw03 ) = .TRUE. chem_dname_table( idomain, P_so4_cw03 ) = 'so4_cw03' chem_desc_table( idomain, P_so4_cw03 ) = 'Sulfate, aerosol in cloud bin 03' chem_units_table( idomain, P_so4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw03 )%stream(2) = 2097216 ! 00200040 F_so4_cw03 = .TRUE. IF ( chem_index_table( PARAM_no3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw03 , idomain ) = P_no3_cw03 ELSE P_no3_cw03 = chem_index_table( PARAM_no3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw03 ) = .TRUE. chem_dname_table( idomain, P_no3_cw03 ) = 'no3_cw03' chem_desc_table( idomain, P_no3_cw03 ) = 'Nitrate, aerosol in cloud bin 03' chem_units_table( idomain, P_no3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw03 )%stream(2) = 2097216 ! 00200040 F_no3_cw03 = .TRUE. IF ( chem_index_table( PARAM_cl_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw03 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw03 , idomain ) = P_cl_cw03 ELSE P_cl_cw03 = chem_index_table( PARAM_cl_cw03 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw03 ) = .TRUE. chem_dname_table( idomain, P_cl_cw03 ) = 'cl_cw03' chem_desc_table( idomain, P_cl_cw03 ) = 'Chloride, aerosol in cloud bin 03' chem_units_table( idomain, P_cl_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw03 )%stream(2) = 2097216 ! 00200040 F_cl_cw03 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw03 , idomain ) = P_nh4_cw03 ELSE P_nh4_cw03 = chem_index_table( PARAM_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw03 ) = 'nh4_cw03' chem_desc_table( idomain, P_nh4_cw03 ) = 'Ammonium, aerosol in cloud bin 03' chem_units_table( idomain, P_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw03 )%stream(2) = 2097216 ! 00200040 F_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_na_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw03 = chem_num_table(idomain) chem_index_table( PARAM_na_cw03 , idomain ) = P_na_cw03 ELSE P_na_cw03 = chem_index_table( PARAM_na_cw03 , idomain ) END IF chem_boundary_table( idomain, P_na_cw03 ) = .TRUE. chem_dname_table( idomain, P_na_cw03 ) = 'na_cw03' chem_desc_table( idomain, P_na_cw03 ) = 'Sodium, aerosol in cloud bin 03' chem_units_table( idomain, P_na_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw03 )%stream(2) = 2097216 ! 00200040 F_na_cw03 = .TRUE. IF ( chem_index_table( PARAM_oin_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw03 , idomain ) = P_oin_cw03 ELSE P_oin_cw03 = chem_index_table( PARAM_oin_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw03 ) = .TRUE. chem_dname_table( idomain, P_oin_cw03 ) = 'oin_cw03' chem_desc_table( idomain, P_oin_cw03 ) = 'Other inorganics, aerosol in cloud bin 03' chem_units_table( idomain, P_oin_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw03 )%stream(2) = 2097216 ! 00200040 F_oin_cw03 = .TRUE. IF ( chem_index_table( PARAM_oc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw03 , idomain ) = P_oc_cw03 ELSE P_oc_cw03 = chem_index_table( PARAM_oc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw03 ) = .TRUE. chem_dname_table( idomain, P_oc_cw03 ) = 'oc_cw03' chem_desc_table( idomain, P_oc_cw03 ) = 'Organic carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_oc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw03 )%stream(2) = 2097216 ! 00200040 F_oc_cw03 = .TRUE. IF ( chem_index_table( PARAM_bc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw03 , idomain ) = P_bc_cw03 ELSE P_bc_cw03 = chem_index_table( PARAM_bc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw03 ) = .TRUE. chem_dname_table( idomain, P_bc_cw03 ) = 'bc_cw03' chem_desc_table( idomain, P_bc_cw03 ) = 'Black carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_bc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw03 )%stream(2) = 2097216 ! 00200040 F_bc_cw03 = .TRUE. IF ( chem_index_table( PARAM_num_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw03 = chem_num_table(idomain) chem_index_table( PARAM_num_cw03 , idomain ) = P_num_cw03 ELSE P_num_cw03 = chem_index_table( PARAM_num_cw03 , idomain ) END IF chem_boundary_table( idomain, P_num_cw03 ) = .TRUE. chem_dname_table( idomain, P_num_cw03 ) = 'num_cw03' chem_desc_table( idomain, P_num_cw03 ) = 'Number, aerosol in cloud bin 03' chem_units_table( idomain, P_num_cw03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw03 )%stream(2) = 2097216 ! 00200040 F_num_cw03 = .TRUE. IF ( chem_index_table( PARAM_so4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw04 , idomain ) = P_so4_cw04 ELSE P_so4_cw04 = chem_index_table( PARAM_so4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw04 ) = .TRUE. chem_dname_table( idomain, P_so4_cw04 ) = 'so4_cw04' chem_desc_table( idomain, P_so4_cw04 ) = 'Sulfate, aerosol in cloud bin 04' chem_units_table( idomain, P_so4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw04 )%stream(2) = 2097216 ! 00200040 F_so4_cw04 = .TRUE. IF ( chem_index_table( PARAM_no3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw04 , idomain ) = P_no3_cw04 ELSE P_no3_cw04 = chem_index_table( PARAM_no3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw04 ) = .TRUE. chem_dname_table( idomain, P_no3_cw04 ) = 'no3_cw04' chem_desc_table( idomain, P_no3_cw04 ) = 'Nitrate, aerosol in cloud bin 04' chem_units_table( idomain, P_no3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw04 )%stream(2) = 2097216 ! 00200040 F_no3_cw04 = .TRUE. IF ( chem_index_table( PARAM_cl_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw04 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw04 , idomain ) = P_cl_cw04 ELSE P_cl_cw04 = chem_index_table( PARAM_cl_cw04 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw04 ) = .TRUE. chem_dname_table( idomain, P_cl_cw04 ) = 'cl_cw04' chem_desc_table( idomain, P_cl_cw04 ) = 'Chloride, aerosol in cloud bin 04' chem_units_table( idomain, P_cl_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw04 )%stream(2) = 2097216 ! 00200040 F_cl_cw04 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw04 , idomain ) = P_nh4_cw04 ELSE P_nh4_cw04 = chem_index_table( PARAM_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw04 ) = 'nh4_cw04' chem_desc_table( idomain, P_nh4_cw04 ) = 'Ammonium, aerosol in cloud bin 04' chem_units_table( idomain, P_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw04 )%stream(2) = 2097216 ! 00200040 F_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_na_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw04 = chem_num_table(idomain) chem_index_table( PARAM_na_cw04 , idomain ) = P_na_cw04 ELSE P_na_cw04 = chem_index_table( PARAM_na_cw04 , idomain ) END IF chem_boundary_table( idomain, P_na_cw04 ) = .TRUE. chem_dname_table( idomain, P_na_cw04 ) = 'na_cw04' chem_desc_table( idomain, P_na_cw04 ) = 'Sodium, aerosol in cloud bin 04' chem_units_table( idomain, P_na_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw04 )%stream(2) = 2097216 ! 00200040 F_na_cw04 = .TRUE. IF ( chem_index_table( PARAM_oin_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw04 , idomain ) = P_oin_cw04 ELSE P_oin_cw04 = chem_index_table( PARAM_oin_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw04 ) = .TRUE. chem_dname_table( idomain, P_oin_cw04 ) = 'oin_cw04' chem_desc_table( idomain, P_oin_cw04 ) = 'Other inorganics, aerosol in cloud bin 04' chem_units_table( idomain, P_oin_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw04 )%stream(2) = 2097216 ! 00200040 F_oin_cw04 = .TRUE. IF ( chem_index_table( PARAM_oc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw04 , idomain ) = P_oc_cw04 ELSE P_oc_cw04 = chem_index_table( PARAM_oc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw04 ) = .TRUE. chem_dname_table( idomain, P_oc_cw04 ) = 'oc_cw04' chem_desc_table( idomain, P_oc_cw04 ) = 'Organic carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_oc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw04 )%stream(2) = 2097216 ! 00200040 F_oc_cw04 = .TRUE. IF ( chem_index_table( PARAM_bc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw04 , idomain ) = P_bc_cw04 ELSE P_bc_cw04 = chem_index_table( PARAM_bc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw04 ) = .TRUE. chem_dname_table( idomain, P_bc_cw04 ) = 'bc_cw04' chem_desc_table( idomain, P_bc_cw04 ) = 'Black carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_bc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw04 )%stream(2) = 2097216 ! 00200040 F_bc_cw04 = .TRUE. IF ( chem_index_table( PARAM_num_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw04 = chem_num_table(idomain) chem_index_table( PARAM_num_cw04 , idomain ) = P_num_cw04 ELSE P_num_cw04 = chem_index_table( PARAM_num_cw04 , idomain ) END IF chem_boundary_table( idomain, P_num_cw04 ) = .TRUE. chem_dname_table( idomain, P_num_cw04 ) = 'num_cw04' chem_desc_table( idomain, P_num_cw04 ) = 'Number, aerosol in cloud bin 04' chem_units_table( idomain, P_num_cw04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw04 )%stream(2) = 2097216 ! 00200040 F_num_cw04 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==10)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 ! 00200040 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 ! 00200040 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 ! 00200040 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 ! 00200040 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 ! 00200040 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 ! 00200040 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 ! 00200040 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 ! 00200040 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 ! 00200040 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 ! 00200040 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 ! 00200040 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 ! 00200040 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 ! 00200040 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 ! 00200040 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 ! 00200040 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 ! 00200040 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 ! 00200040 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 ! 00200040 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 ! 00200040 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 ! 00200040 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 ! 00200040 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 ! 00200040 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 ! 00200040 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 ! 00200040 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 ! 00200040 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 ! 00200040 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 ! 00200040 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 ! 00200040 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 ! 00200040 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 ! 00200040 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 ! 00200040 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 ! 00200040 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 ! 00200040 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 ! 00200040 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 ! 00200040 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 ! 00200040 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 ! 00200040 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 ! 00200040 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 ! 00200040 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 ! 00200040 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a05 = chem_num_table(idomain) chem_index_table( PARAM_so4_a05 , idomain ) = P_so4_a05 ELSE P_so4_a05 = chem_index_table( PARAM_so4_a05 , idomain ) END IF chem_boundary_table( idomain, P_so4_a05 ) = .TRUE. chem_dname_table( idomain, P_so4_a05 ) = 'so4_a05' chem_desc_table( idomain, P_so4_a05 ) = 'Sulfate, aerosol bin 05' chem_units_table( idomain, P_so4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a05 )%stream(2) = 2097216 ! 00200040 F_so4_a05 = .TRUE. IF ( chem_index_table( PARAM_no3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a05 = chem_num_table(idomain) chem_index_table( PARAM_no3_a05 , idomain ) = P_no3_a05 ELSE P_no3_a05 = chem_index_table( PARAM_no3_a05 , idomain ) END IF chem_boundary_table( idomain, P_no3_a05 ) = .TRUE. chem_dname_table( idomain, P_no3_a05 ) = 'no3_a05' chem_desc_table( idomain, P_no3_a05 ) = 'Nitrate, aerosol bin 05' chem_units_table( idomain, P_no3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a05 )%stream(2) = 2097216 ! 00200040 F_no3_a05 = .TRUE. IF ( chem_index_table( PARAM_cl_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a05 = chem_num_table(idomain) chem_index_table( PARAM_cl_a05 , idomain ) = P_cl_a05 ELSE P_cl_a05 = chem_index_table( PARAM_cl_a05 , idomain ) END IF chem_boundary_table( idomain, P_cl_a05 ) = .TRUE. chem_dname_table( idomain, P_cl_a05 ) = 'cl_a05' chem_desc_table( idomain, P_cl_a05 ) = 'Chloride, aerosol bin 05' chem_units_table( idomain, P_cl_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a05 )%stream(2) = 2097216 ! 00200040 F_cl_a05 = .TRUE. IF ( chem_index_table( PARAM_nh4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a05 , idomain ) = P_nh4_a05 ELSE P_nh4_a05 = chem_index_table( PARAM_nh4_a05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a05 ) = .TRUE. chem_dname_table( idomain, P_nh4_a05 ) = 'nh4_a05' chem_desc_table( idomain, P_nh4_a05 ) = 'Ammonium, aerosol bin 05' chem_units_table( idomain, P_nh4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a05 )%stream(2) = 2097216 ! 00200040 F_nh4_a05 = .TRUE. IF ( chem_index_table( PARAM_na_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a05 = chem_num_table(idomain) chem_index_table( PARAM_na_a05 , idomain ) = P_na_a05 ELSE P_na_a05 = chem_index_table( PARAM_na_a05 , idomain ) END IF chem_boundary_table( idomain, P_na_a05 ) = .TRUE. chem_dname_table( idomain, P_na_a05 ) = 'na_a05' chem_desc_table( idomain, P_na_a05 ) = 'Sodium, aerosol bin 05' chem_units_table( idomain, P_na_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a05 )%stream(2) = 2097216 ! 00200040 F_na_a05 = .TRUE. IF ( chem_index_table( PARAM_oin_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a05 = chem_num_table(idomain) chem_index_table( PARAM_oin_a05 , idomain ) = P_oin_a05 ELSE P_oin_a05 = chem_index_table( PARAM_oin_a05 , idomain ) END IF chem_boundary_table( idomain, P_oin_a05 ) = .TRUE. chem_dname_table( idomain, P_oin_a05 ) = 'oin_a05' chem_desc_table( idomain, P_oin_a05 ) = 'Other inorganics, aerosol bin 05' chem_units_table( idomain, P_oin_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a05 )%stream(2) = 2097216 ! 00200040 F_oin_a05 = .TRUE. IF ( chem_index_table( PARAM_oc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a05 = chem_num_table(idomain) chem_index_table( PARAM_oc_a05 , idomain ) = P_oc_a05 ELSE P_oc_a05 = chem_index_table( PARAM_oc_a05 , idomain ) END IF chem_boundary_table( idomain, P_oc_a05 ) = .TRUE. chem_dname_table( idomain, P_oc_a05 ) = 'oc_a05' chem_desc_table( idomain, P_oc_a05 ) = 'Organic carbon, aerosol bin 05' chem_units_table( idomain, P_oc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a05 )%stream(2) = 2097216 ! 00200040 F_oc_a05 = .TRUE. IF ( chem_index_table( PARAM_bc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a05 = chem_num_table(idomain) chem_index_table( PARAM_bc_a05 , idomain ) = P_bc_a05 ELSE P_bc_a05 = chem_index_table( PARAM_bc_a05 , idomain ) END IF chem_boundary_table( idomain, P_bc_a05 ) = .TRUE. chem_dname_table( idomain, P_bc_a05 ) = 'bc_a05' chem_desc_table( idomain, P_bc_a05 ) = 'Black carbon, aerosol bin 05' chem_units_table( idomain, P_bc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a05 )%stream(2) = 2097216 ! 00200040 F_bc_a05 = .TRUE. IF ( chem_index_table( PARAM_hysw_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a05 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a05 , idomain ) = P_hysw_a05 ELSE P_hysw_a05 = chem_index_table( PARAM_hysw_a05 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a05 ) = .TRUE. chem_dname_table( idomain, P_hysw_a05 ) = 'hysw_a05' chem_desc_table( idomain, P_hysw_a05 ) = 'Hysteresis water, aerosol bin 05' chem_units_table( idomain, P_hysw_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a05 )%stream(2) = 2097216 ! 00200040 F_hysw_a05 = .TRUE. IF ( chem_index_table( PARAM_water_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a05 = chem_num_table(idomain) chem_index_table( PARAM_water_a05 , idomain ) = P_water_a05 ELSE P_water_a05 = chem_index_table( PARAM_water_a05 , idomain ) END IF chem_boundary_table( idomain, P_water_a05 ) = .TRUE. chem_dname_table( idomain, P_water_a05 ) = 'water_a05' chem_desc_table( idomain, P_water_a05 ) = 'Water, aerosol bin 05' chem_units_table( idomain, P_water_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a05 )%stream(2) = 2097216 ! 00200040 F_water_a05 = .TRUE. IF ( chem_index_table( PARAM_num_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a05 = chem_num_table(idomain) chem_index_table( PARAM_num_a05 , idomain ) = P_num_a05 ELSE P_num_a05 = chem_index_table( PARAM_num_a05 , idomain ) END IF chem_boundary_table( idomain, P_num_a05 ) = .TRUE. chem_dname_table( idomain, P_num_a05 ) = 'num_a05' chem_desc_table( idomain, P_num_a05 ) = 'Number, aerosol bin 05' chem_units_table( idomain, P_num_a05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a05 )%stream(2) = 2097216 ! 00200040 F_num_a05 = .TRUE. IF ( chem_index_table( PARAM_so4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a06 = chem_num_table(idomain) chem_index_table( PARAM_so4_a06 , idomain ) = P_so4_a06 ELSE P_so4_a06 = chem_index_table( PARAM_so4_a06 , idomain ) END IF chem_boundary_table( idomain, P_so4_a06 ) = .TRUE. chem_dname_table( idomain, P_so4_a06 ) = 'so4_a06' chem_desc_table( idomain, P_so4_a06 ) = 'Sulfate, aerosol bin 06' chem_units_table( idomain, P_so4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a06 )%stream(2) = 2097216 ! 00200040 F_so4_a06 = .TRUE. IF ( chem_index_table( PARAM_no3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a06 = chem_num_table(idomain) chem_index_table( PARAM_no3_a06 , idomain ) = P_no3_a06 ELSE P_no3_a06 = chem_index_table( PARAM_no3_a06 , idomain ) END IF chem_boundary_table( idomain, P_no3_a06 ) = .TRUE. chem_dname_table( idomain, P_no3_a06 ) = 'no3_a06' chem_desc_table( idomain, P_no3_a06 ) = 'Nitrate, aerosol bin 06' chem_units_table( idomain, P_no3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a06 )%stream(2) = 2097216 ! 00200040 F_no3_a06 = .TRUE. IF ( chem_index_table( PARAM_cl_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a06 = chem_num_table(idomain) chem_index_table( PARAM_cl_a06 , idomain ) = P_cl_a06 ELSE P_cl_a06 = chem_index_table( PARAM_cl_a06 , idomain ) END IF chem_boundary_table( idomain, P_cl_a06 ) = .TRUE. chem_dname_table( idomain, P_cl_a06 ) = 'cl_a06' chem_desc_table( idomain, P_cl_a06 ) = 'Chloride, aerosol bin 06' chem_units_table( idomain, P_cl_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a06 )%stream(2) = 2097216 ! 00200040 F_cl_a06 = .TRUE. IF ( chem_index_table( PARAM_nh4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a06 , idomain ) = P_nh4_a06 ELSE P_nh4_a06 = chem_index_table( PARAM_nh4_a06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a06 ) = .TRUE. chem_dname_table( idomain, P_nh4_a06 ) = 'nh4_a06' chem_desc_table( idomain, P_nh4_a06 ) = 'Ammonium, aerosol bin 06' chem_units_table( idomain, P_nh4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a06 )%stream(2) = 2097216 ! 00200040 F_nh4_a06 = .TRUE. IF ( chem_index_table( PARAM_na_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a06 = chem_num_table(idomain) chem_index_table( PARAM_na_a06 , idomain ) = P_na_a06 ELSE P_na_a06 = chem_index_table( PARAM_na_a06 , idomain ) END IF chem_boundary_table( idomain, P_na_a06 ) = .TRUE. chem_dname_table( idomain, P_na_a06 ) = 'na_a06' chem_desc_table( idomain, P_na_a06 ) = 'Sodium, aerosol bin 06' chem_units_table( idomain, P_na_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a06 )%stream(2) = 2097216 ! 00200040 F_na_a06 = .TRUE. IF ( chem_index_table( PARAM_oin_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a06 = chem_num_table(idomain) chem_index_table( PARAM_oin_a06 , idomain ) = P_oin_a06 ELSE P_oin_a06 = chem_index_table( PARAM_oin_a06 , idomain ) END IF chem_boundary_table( idomain, P_oin_a06 ) = .TRUE. chem_dname_table( idomain, P_oin_a06 ) = 'oin_a06' chem_desc_table( idomain, P_oin_a06 ) = 'Other inorganics, aerosol bin 06' chem_units_table( idomain, P_oin_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a06 )%stream(2) = 2097216 ! 00200040 F_oin_a06 = .TRUE. IF ( chem_index_table( PARAM_oc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a06 = chem_num_table(idomain) chem_index_table( PARAM_oc_a06 , idomain ) = P_oc_a06 ELSE P_oc_a06 = chem_index_table( PARAM_oc_a06 , idomain ) END IF chem_boundary_table( idomain, P_oc_a06 ) = .TRUE. chem_dname_table( idomain, P_oc_a06 ) = 'oc_a06' chem_desc_table( idomain, P_oc_a06 ) = 'Organic carbon, aerosol bin 06' chem_units_table( idomain, P_oc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a06 )%stream(2) = 2097216 ! 00200040 F_oc_a06 = .TRUE. IF ( chem_index_table( PARAM_bc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a06 = chem_num_table(idomain) chem_index_table( PARAM_bc_a06 , idomain ) = P_bc_a06 ELSE P_bc_a06 = chem_index_table( PARAM_bc_a06 , idomain ) END IF chem_boundary_table( idomain, P_bc_a06 ) = .TRUE. chem_dname_table( idomain, P_bc_a06 ) = 'bc_a06' chem_desc_table( idomain, P_bc_a06 ) = 'Black carbon, aerosol bin 06' chem_units_table( idomain, P_bc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a06 )%stream(2) = 2097216 ! 00200040 F_bc_a06 = .TRUE. IF ( chem_index_table( PARAM_hysw_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a06 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a06 , idomain ) = P_hysw_a06 ELSE P_hysw_a06 = chem_index_table( PARAM_hysw_a06 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a06 ) = .TRUE. chem_dname_table( idomain, P_hysw_a06 ) = 'hysw_a06' chem_desc_table( idomain, P_hysw_a06 ) = 'Hysteresis water, aerosol bin 06' chem_units_table( idomain, P_hysw_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a06 )%stream(2) = 2097216 ! 00200040 F_hysw_a06 = .TRUE. IF ( chem_index_table( PARAM_water_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a06 = chem_num_table(idomain) chem_index_table( PARAM_water_a06 , idomain ) = P_water_a06 ELSE P_water_a06 = chem_index_table( PARAM_water_a06 , idomain ) END IF chem_boundary_table( idomain, P_water_a06 ) = .TRUE. chem_dname_table( idomain, P_water_a06 ) = 'water_a06' chem_desc_table( idomain, P_water_a06 ) = 'Water, aerosol bin 06' chem_units_table( idomain, P_water_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a06 )%stream(2) = 2097216 ! 00200040 F_water_a06 = .TRUE. IF ( chem_index_table( PARAM_num_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a06 = chem_num_table(idomain) chem_index_table( PARAM_num_a06 , idomain ) = P_num_a06 ELSE P_num_a06 = chem_index_table( PARAM_num_a06 , idomain ) END IF chem_boundary_table( idomain, P_num_a06 ) = .TRUE. chem_dname_table( idomain, P_num_a06 ) = 'num_a06' chem_desc_table( idomain, P_num_a06 ) = 'Number, aerosol bin 06' chem_units_table( idomain, P_num_a06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a06 )%stream(2) = 2097216 ! 00200040 F_num_a06 = .TRUE. IF ( chem_index_table( PARAM_so4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a07 = chem_num_table(idomain) chem_index_table( PARAM_so4_a07 , idomain ) = P_so4_a07 ELSE P_so4_a07 = chem_index_table( PARAM_so4_a07 , idomain ) END IF chem_boundary_table( idomain, P_so4_a07 ) = .TRUE. chem_dname_table( idomain, P_so4_a07 ) = 'so4_a07' chem_desc_table( idomain, P_so4_a07 ) = 'Sulfate, aerosol bin 07' chem_units_table( idomain, P_so4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a07 )%stream(2) = 2097216 ! 00200040 F_so4_a07 = .TRUE. IF ( chem_index_table( PARAM_no3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a07 = chem_num_table(idomain) chem_index_table( PARAM_no3_a07 , idomain ) = P_no3_a07 ELSE P_no3_a07 = chem_index_table( PARAM_no3_a07 , idomain ) END IF chem_boundary_table( idomain, P_no3_a07 ) = .TRUE. chem_dname_table( idomain, P_no3_a07 ) = 'no3_a07' chem_desc_table( idomain, P_no3_a07 ) = 'Nitrate, aerosol bin 07' chem_units_table( idomain, P_no3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a07 )%stream(2) = 2097216 ! 00200040 F_no3_a07 = .TRUE. IF ( chem_index_table( PARAM_cl_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a07 = chem_num_table(idomain) chem_index_table( PARAM_cl_a07 , idomain ) = P_cl_a07 ELSE P_cl_a07 = chem_index_table( PARAM_cl_a07 , idomain ) END IF chem_boundary_table( idomain, P_cl_a07 ) = .TRUE. chem_dname_table( idomain, P_cl_a07 ) = 'cl_a07' chem_desc_table( idomain, P_cl_a07 ) = 'Chloride, aerosol bin 07' chem_units_table( idomain, P_cl_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a07 )%stream(2) = 2097216 ! 00200040 F_cl_a07 = .TRUE. IF ( chem_index_table( PARAM_nh4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a07 , idomain ) = P_nh4_a07 ELSE P_nh4_a07 = chem_index_table( PARAM_nh4_a07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a07 ) = .TRUE. chem_dname_table( idomain, P_nh4_a07 ) = 'nh4_a07' chem_desc_table( idomain, P_nh4_a07 ) = 'Ammonium, aerosol bin 07' chem_units_table( idomain, P_nh4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a07 )%stream(2) = 2097216 ! 00200040 F_nh4_a07 = .TRUE. IF ( chem_index_table( PARAM_na_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a07 = chem_num_table(idomain) chem_index_table( PARAM_na_a07 , idomain ) = P_na_a07 ELSE P_na_a07 = chem_index_table( PARAM_na_a07 , idomain ) END IF chem_boundary_table( idomain, P_na_a07 ) = .TRUE. chem_dname_table( idomain, P_na_a07 ) = 'na_a07' chem_desc_table( idomain, P_na_a07 ) = 'Sodium, aerosol bin 07' chem_units_table( idomain, P_na_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a07 )%stream(2) = 2097216 ! 00200040 F_na_a07 = .TRUE. IF ( chem_index_table( PARAM_oin_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a07 = chem_num_table(idomain) chem_index_table( PARAM_oin_a07 , idomain ) = P_oin_a07 ELSE P_oin_a07 = chem_index_table( PARAM_oin_a07 , idomain ) END IF chem_boundary_table( idomain, P_oin_a07 ) = .TRUE. chem_dname_table( idomain, P_oin_a07 ) = 'oin_a07' chem_desc_table( idomain, P_oin_a07 ) = 'Other inorganics, aerosol bin 07' chem_units_table( idomain, P_oin_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a07 )%stream(2) = 2097216 ! 00200040 F_oin_a07 = .TRUE. IF ( chem_index_table( PARAM_oc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a07 = chem_num_table(idomain) chem_index_table( PARAM_oc_a07 , idomain ) = P_oc_a07 ELSE P_oc_a07 = chem_index_table( PARAM_oc_a07 , idomain ) END IF chem_boundary_table( idomain, P_oc_a07 ) = .TRUE. chem_dname_table( idomain, P_oc_a07 ) = 'oc_a07' chem_desc_table( idomain, P_oc_a07 ) = 'Organic carbon, aerosol bin 07' chem_units_table( idomain, P_oc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a07 )%stream(2) = 2097216 ! 00200040 F_oc_a07 = .TRUE. IF ( chem_index_table( PARAM_bc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a07 = chem_num_table(idomain) chem_index_table( PARAM_bc_a07 , idomain ) = P_bc_a07 ELSE P_bc_a07 = chem_index_table( PARAM_bc_a07 , idomain ) END IF chem_boundary_table( idomain, P_bc_a07 ) = .TRUE. chem_dname_table( idomain, P_bc_a07 ) = 'bc_a07' chem_desc_table( idomain, P_bc_a07 ) = 'Black carbon, aerosol bin 07' chem_units_table( idomain, P_bc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a07 )%stream(2) = 2097216 ! 00200040 F_bc_a07 = .TRUE. IF ( chem_index_table( PARAM_hysw_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a07 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a07 , idomain ) = P_hysw_a07 ELSE P_hysw_a07 = chem_index_table( PARAM_hysw_a07 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a07 ) = .TRUE. chem_dname_table( idomain, P_hysw_a07 ) = 'hysw_a07' chem_desc_table( idomain, P_hysw_a07 ) = 'Hysteresis water, aerosol bin 07' chem_units_table( idomain, P_hysw_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a07 )%stream(2) = 2097216 ! 00200040 F_hysw_a07 = .TRUE. IF ( chem_index_table( PARAM_water_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a07 = chem_num_table(idomain) chem_index_table( PARAM_water_a07 , idomain ) = P_water_a07 ELSE P_water_a07 = chem_index_table( PARAM_water_a07 , idomain ) END IF chem_boundary_table( idomain, P_water_a07 ) = .TRUE. chem_dname_table( idomain, P_water_a07 ) = 'water_a07' chem_desc_table( idomain, P_water_a07 ) = 'Water, aerosol bin 07' chem_units_table( idomain, P_water_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a07 )%stream(2) = 2097216 ! 00200040 F_water_a07 = .TRUE. IF ( chem_index_table( PARAM_num_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a07 = chem_num_table(idomain) chem_index_table( PARAM_num_a07 , idomain ) = P_num_a07 ELSE P_num_a07 = chem_index_table( PARAM_num_a07 , idomain ) END IF chem_boundary_table( idomain, P_num_a07 ) = .TRUE. chem_dname_table( idomain, P_num_a07 ) = 'num_a07' chem_desc_table( idomain, P_num_a07 ) = 'Number, aerosol bin 07' chem_units_table( idomain, P_num_a07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a07 )%stream(2) = 2097216 ! 00200040 F_num_a07 = .TRUE. IF ( chem_index_table( PARAM_so4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a08 = chem_num_table(idomain) chem_index_table( PARAM_so4_a08 , idomain ) = P_so4_a08 ELSE P_so4_a08 = chem_index_table( PARAM_so4_a08 , idomain ) END IF chem_boundary_table( idomain, P_so4_a08 ) = .TRUE. chem_dname_table( idomain, P_so4_a08 ) = 'so4_a08' chem_desc_table( idomain, P_so4_a08 ) = 'Sulfate, aerosol bin 08' chem_units_table( idomain, P_so4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a08 )%stream(2) = 2097216 ! 00200040 F_so4_a08 = .TRUE. IF ( chem_index_table( PARAM_no3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a08 = chem_num_table(idomain) chem_index_table( PARAM_no3_a08 , idomain ) = P_no3_a08 ELSE P_no3_a08 = chem_index_table( PARAM_no3_a08 , idomain ) END IF chem_boundary_table( idomain, P_no3_a08 ) = .TRUE. chem_dname_table( idomain, P_no3_a08 ) = 'no3_a08' chem_desc_table( idomain, P_no3_a08 ) = 'Nitrate, aerosol bin 08' chem_units_table( idomain, P_no3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a08 )%stream(2) = 2097216 ! 00200040 F_no3_a08 = .TRUE. IF ( chem_index_table( PARAM_cl_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a08 = chem_num_table(idomain) chem_index_table( PARAM_cl_a08 , idomain ) = P_cl_a08 ELSE P_cl_a08 = chem_index_table( PARAM_cl_a08 , idomain ) END IF chem_boundary_table( idomain, P_cl_a08 ) = .TRUE. chem_dname_table( idomain, P_cl_a08 ) = 'cl_a08' chem_desc_table( idomain, P_cl_a08 ) = 'Chloride, aerosol bin 08' chem_units_table( idomain, P_cl_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a08 )%stream(2) = 2097216 ! 00200040 F_cl_a08 = .TRUE. IF ( chem_index_table( PARAM_nh4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a08 , idomain ) = P_nh4_a08 ELSE P_nh4_a08 = chem_index_table( PARAM_nh4_a08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a08 ) = .TRUE. chem_dname_table( idomain, P_nh4_a08 ) = 'nh4_a08' chem_desc_table( idomain, P_nh4_a08 ) = 'Ammonium, aerosol bin 08' chem_units_table( idomain, P_nh4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a08 )%stream(2) = 2097216 ! 00200040 F_nh4_a08 = .TRUE. IF ( chem_index_table( PARAM_na_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a08 = chem_num_table(idomain) chem_index_table( PARAM_na_a08 , idomain ) = P_na_a08 ELSE P_na_a08 = chem_index_table( PARAM_na_a08 , idomain ) END IF chem_boundary_table( idomain, P_na_a08 ) = .TRUE. chem_dname_table( idomain, P_na_a08 ) = 'na_a08' chem_desc_table( idomain, P_na_a08 ) = 'Sodium, aerosol bin 08' chem_units_table( idomain, P_na_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a08 )%stream(2) = 2097216 ! 00200040 F_na_a08 = .TRUE. IF ( chem_index_table( PARAM_oin_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a08 = chem_num_table(idomain) chem_index_table( PARAM_oin_a08 , idomain ) = P_oin_a08 ELSE P_oin_a08 = chem_index_table( PARAM_oin_a08 , idomain ) END IF chem_boundary_table( idomain, P_oin_a08 ) = .TRUE. chem_dname_table( idomain, P_oin_a08 ) = 'oin_a08' chem_desc_table( idomain, P_oin_a08 ) = 'Other inorganics, aerosol bin 08' chem_units_table( idomain, P_oin_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a08 )%stream(2) = 2097216 ! 00200040 F_oin_a08 = .TRUE. IF ( chem_index_table( PARAM_oc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a08 = chem_num_table(idomain) chem_index_table( PARAM_oc_a08 , idomain ) = P_oc_a08 ELSE P_oc_a08 = chem_index_table( PARAM_oc_a08 , idomain ) END IF chem_boundary_table( idomain, P_oc_a08 ) = .TRUE. chem_dname_table( idomain, P_oc_a08 ) = 'oc_a08' chem_desc_table( idomain, P_oc_a08 ) = 'Organic carbon, aerosol bin 08' chem_units_table( idomain, P_oc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a08 )%stream(2) = 2097216 ! 00200040 F_oc_a08 = .TRUE. IF ( chem_index_table( PARAM_bc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a08 = chem_num_table(idomain) chem_index_table( PARAM_bc_a08 , idomain ) = P_bc_a08 ELSE P_bc_a08 = chem_index_table( PARAM_bc_a08 , idomain ) END IF chem_boundary_table( idomain, P_bc_a08 ) = .TRUE. chem_dname_table( idomain, P_bc_a08 ) = 'bc_a08' chem_desc_table( idomain, P_bc_a08 ) = 'Black carbon, aerosol bin 08' chem_units_table( idomain, P_bc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a08 )%stream(2) = 2097216 ! 00200040 F_bc_a08 = .TRUE. IF ( chem_index_table( PARAM_hysw_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a08 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a08 , idomain ) = P_hysw_a08 ELSE P_hysw_a08 = chem_index_table( PARAM_hysw_a08 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a08 ) = .TRUE. chem_dname_table( idomain, P_hysw_a08 ) = 'hysw_a08' chem_desc_table( idomain, P_hysw_a08 ) = 'Hysteresis water, aerosol bin 08' chem_units_table( idomain, P_hysw_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a08 )%stream(2) = 2097216 ! 00200040 F_hysw_a08 = .TRUE. IF ( chem_index_table( PARAM_water_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a08 = chem_num_table(idomain) chem_index_table( PARAM_water_a08 , idomain ) = P_water_a08 ELSE P_water_a08 = chem_index_table( PARAM_water_a08 , idomain ) END IF chem_boundary_table( idomain, P_water_a08 ) = .TRUE. chem_dname_table( idomain, P_water_a08 ) = 'water_a08' chem_desc_table( idomain, P_water_a08 ) = 'Water, aerosol bin 08' chem_units_table( idomain, P_water_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a08 )%stream(2) = 2097216 ! 00200040 F_water_a08 = .TRUE. IF ( chem_index_table( PARAM_num_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a08 = chem_num_table(idomain) chem_index_table( PARAM_num_a08 , idomain ) = P_num_a08 ELSE P_num_a08 = chem_index_table( PARAM_num_a08 , idomain ) END IF chem_boundary_table( idomain, P_num_a08 ) = .TRUE. chem_dname_table( idomain, P_num_a08 ) = 'num_a08' chem_desc_table( idomain, P_num_a08 ) = 'Number, aerosol bin 08' chem_units_table( idomain, P_num_a08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a08 )%stream(2) = 2097216 ! 00200040 F_num_a08 = .TRUE. IF ( chem_index_table( PARAM_so4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw01 , idomain ) = P_so4_cw01 ELSE P_so4_cw01 = chem_index_table( PARAM_so4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw01 ) = .TRUE. chem_dname_table( idomain, P_so4_cw01 ) = 'so4_cw01' chem_desc_table( idomain, P_so4_cw01 ) = 'Sulfate, aerosol in cloud bin 01' chem_units_table( idomain, P_so4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw01 )%stream(2) = 2097216 ! 00200040 F_so4_cw01 = .TRUE. IF ( chem_index_table( PARAM_no3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw01 , idomain ) = P_no3_cw01 ELSE P_no3_cw01 = chem_index_table( PARAM_no3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw01 ) = .TRUE. chem_dname_table( idomain, P_no3_cw01 ) = 'no3_cw01' chem_desc_table( idomain, P_no3_cw01 ) = 'Nitrate, aerosol in cloud bin 01' chem_units_table( idomain, P_no3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw01 )%stream(2) = 2097216 ! 00200040 F_no3_cw01 = .TRUE. IF ( chem_index_table( PARAM_cl_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw01 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw01 , idomain ) = P_cl_cw01 ELSE P_cl_cw01 = chem_index_table( PARAM_cl_cw01 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw01 ) = .TRUE. chem_dname_table( idomain, P_cl_cw01 ) = 'cl_cw01' chem_desc_table( idomain, P_cl_cw01 ) = 'Chloride, aerosol in cloud bin 01' chem_units_table( idomain, P_cl_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw01 )%stream(2) = 2097216 ! 00200040 F_cl_cw01 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw01 , idomain ) = P_nh4_cw01 ELSE P_nh4_cw01 = chem_index_table( PARAM_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw01 ) = 'nh4_cw01' chem_desc_table( idomain, P_nh4_cw01 ) = 'Ammonium, aerosol in cloud bin 01' chem_units_table( idomain, P_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw01 )%stream(2) = 2097216 ! 00200040 F_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_na_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw01 = chem_num_table(idomain) chem_index_table( PARAM_na_cw01 , idomain ) = P_na_cw01 ELSE P_na_cw01 = chem_index_table( PARAM_na_cw01 , idomain ) END IF chem_boundary_table( idomain, P_na_cw01 ) = .TRUE. chem_dname_table( idomain, P_na_cw01 ) = 'na_cw01' chem_desc_table( idomain, P_na_cw01 ) = 'Sodium, aerosol in cloud bin 01' chem_units_table( idomain, P_na_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw01 )%stream(2) = 2097216 ! 00200040 F_na_cw01 = .TRUE. IF ( chem_index_table( PARAM_oin_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw01 , idomain ) = P_oin_cw01 ELSE P_oin_cw01 = chem_index_table( PARAM_oin_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw01 ) = .TRUE. chem_dname_table( idomain, P_oin_cw01 ) = 'oin_cw01' chem_desc_table( idomain, P_oin_cw01 ) = 'Other inorganics, aerosol in cloud bin 01' chem_units_table( idomain, P_oin_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw01 )%stream(2) = 2097216 ! 00200040 F_oin_cw01 = .TRUE. IF ( chem_index_table( PARAM_oc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw01 , idomain ) = P_oc_cw01 ELSE P_oc_cw01 = chem_index_table( PARAM_oc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw01 ) = .TRUE. chem_dname_table( idomain, P_oc_cw01 ) = 'oc_cw01' chem_desc_table( idomain, P_oc_cw01 ) = 'Organic carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_oc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw01 )%stream(2) = 2097216 ! 00200040 F_oc_cw01 = .TRUE. IF ( chem_index_table( PARAM_bc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw01 , idomain ) = P_bc_cw01 ELSE P_bc_cw01 = chem_index_table( PARAM_bc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw01 ) = .TRUE. chem_dname_table( idomain, P_bc_cw01 ) = 'bc_cw01' chem_desc_table( idomain, P_bc_cw01 ) = 'Black carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_bc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw01 )%stream(2) = 2097216 ! 00200040 F_bc_cw01 = .TRUE. IF ( chem_index_table( PARAM_num_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw01 = chem_num_table(idomain) chem_index_table( PARAM_num_cw01 , idomain ) = P_num_cw01 ELSE P_num_cw01 = chem_index_table( PARAM_num_cw01 , idomain ) END IF chem_boundary_table( idomain, P_num_cw01 ) = .TRUE. chem_dname_table( idomain, P_num_cw01 ) = 'num_cw01' chem_desc_table( idomain, P_num_cw01 ) = 'Number, aerosol in cloud bin 01' chem_units_table( idomain, P_num_cw01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw01 )%stream(2) = 2097216 ! 00200040 F_num_cw01 = .TRUE. IF ( chem_index_table( PARAM_so4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw02 , idomain ) = P_so4_cw02 ELSE P_so4_cw02 = chem_index_table( PARAM_so4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw02 ) = .TRUE. chem_dname_table( idomain, P_so4_cw02 ) = 'so4_cw02' chem_desc_table( idomain, P_so4_cw02 ) = 'Sulfate, aerosol in cloud bin 02' chem_units_table( idomain, P_so4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw02 )%stream(2) = 2097216 ! 00200040 F_so4_cw02 = .TRUE. IF ( chem_index_table( PARAM_no3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw02 , idomain ) = P_no3_cw02 ELSE P_no3_cw02 = chem_index_table( PARAM_no3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw02 ) = .TRUE. chem_dname_table( idomain, P_no3_cw02 ) = 'no3_cw02' chem_desc_table( idomain, P_no3_cw02 ) = 'Nitrate, aerosol in cloud bin 02' chem_units_table( idomain, P_no3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw02 )%stream(2) = 2097216 ! 00200040 F_no3_cw02 = .TRUE. IF ( chem_index_table( PARAM_cl_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw02 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw02 , idomain ) = P_cl_cw02 ELSE P_cl_cw02 = chem_index_table( PARAM_cl_cw02 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw02 ) = .TRUE. chem_dname_table( idomain, P_cl_cw02 ) = 'cl_cw02' chem_desc_table( idomain, P_cl_cw02 ) = 'Chloride, aerosol in cloud bin 02' chem_units_table( idomain, P_cl_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw02 )%stream(2) = 2097216 ! 00200040 F_cl_cw02 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw02 , idomain ) = P_nh4_cw02 ELSE P_nh4_cw02 = chem_index_table( PARAM_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw02 ) = 'nh4_cw02' chem_desc_table( idomain, P_nh4_cw02 ) = 'Ammonium, aerosol in cloud bin 02' chem_units_table( idomain, P_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw02 )%stream(2) = 2097216 ! 00200040 F_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_na_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw02 = chem_num_table(idomain) chem_index_table( PARAM_na_cw02 , idomain ) = P_na_cw02 ELSE P_na_cw02 = chem_index_table( PARAM_na_cw02 , idomain ) END IF chem_boundary_table( idomain, P_na_cw02 ) = .TRUE. chem_dname_table( idomain, P_na_cw02 ) = 'na_cw02' chem_desc_table( idomain, P_na_cw02 ) = 'Sodium, aerosol in cloud bin 02' chem_units_table( idomain, P_na_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw02 )%stream(2) = 2097216 ! 00200040 F_na_cw02 = .TRUE. IF ( chem_index_table( PARAM_oin_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw02 , idomain ) = P_oin_cw02 ELSE P_oin_cw02 = chem_index_table( PARAM_oin_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw02 ) = .TRUE. chem_dname_table( idomain, P_oin_cw02 ) = 'oin_cw02' chem_desc_table( idomain, P_oin_cw02 ) = 'Other inorganics, aerosol in cloud bin 02' chem_units_table( idomain, P_oin_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw02 )%stream(2) = 2097216 ! 00200040 F_oin_cw02 = .TRUE. IF ( chem_index_table( PARAM_oc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw02 , idomain ) = P_oc_cw02 ELSE P_oc_cw02 = chem_index_table( PARAM_oc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw02 ) = .TRUE. chem_dname_table( idomain, P_oc_cw02 ) = 'oc_cw02' chem_desc_table( idomain, P_oc_cw02 ) = 'Organic carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_oc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw02 )%stream(2) = 2097216 ! 00200040 F_oc_cw02 = .TRUE. IF ( chem_index_table( PARAM_bc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw02 , idomain ) = P_bc_cw02 ELSE P_bc_cw02 = chem_index_table( PARAM_bc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw02 ) = .TRUE. chem_dname_table( idomain, P_bc_cw02 ) = 'bc_cw02' chem_desc_table( idomain, P_bc_cw02 ) = 'Black carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_bc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw02 )%stream(2) = 2097216 ! 00200040 F_bc_cw02 = .TRUE. IF ( chem_index_table( PARAM_num_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw02 = chem_num_table(idomain) chem_index_table( PARAM_num_cw02 , idomain ) = P_num_cw02 ELSE P_num_cw02 = chem_index_table( PARAM_num_cw02 , idomain ) END IF chem_boundary_table( idomain, P_num_cw02 ) = .TRUE. chem_dname_table( idomain, P_num_cw02 ) = 'num_cw02' chem_desc_table( idomain, P_num_cw02 ) = 'Number, aerosol in cloud bin 02' chem_units_table( idomain, P_num_cw02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw02 )%stream(2) = 2097216 ! 00200040 F_num_cw02 = .TRUE. IF ( chem_index_table( PARAM_so4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw03 , idomain ) = P_so4_cw03 ELSE P_so4_cw03 = chem_index_table( PARAM_so4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw03 ) = .TRUE. chem_dname_table( idomain, P_so4_cw03 ) = 'so4_cw03' chem_desc_table( idomain, P_so4_cw03 ) = 'Sulfate, aerosol in cloud bin 03' chem_units_table( idomain, P_so4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw03 )%stream(2) = 2097216 ! 00200040 F_so4_cw03 = .TRUE. IF ( chem_index_table( PARAM_no3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw03 , idomain ) = P_no3_cw03 ELSE P_no3_cw03 = chem_index_table( PARAM_no3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw03 ) = .TRUE. chem_dname_table( idomain, P_no3_cw03 ) = 'no3_cw03' chem_desc_table( idomain, P_no3_cw03 ) = 'Nitrate, aerosol in cloud bin 03' chem_units_table( idomain, P_no3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw03 )%stream(2) = 2097216 ! 00200040 F_no3_cw03 = .TRUE. IF ( chem_index_table( PARAM_cl_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw03 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw03 , idomain ) = P_cl_cw03 ELSE P_cl_cw03 = chem_index_table( PARAM_cl_cw03 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw03 ) = .TRUE. chem_dname_table( idomain, P_cl_cw03 ) = 'cl_cw03' chem_desc_table( idomain, P_cl_cw03 ) = 'Chloride, aerosol in cloud bin 03' chem_units_table( idomain, P_cl_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw03 )%stream(2) = 2097216 ! 00200040 F_cl_cw03 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw03 , idomain ) = P_nh4_cw03 ELSE P_nh4_cw03 = chem_index_table( PARAM_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw03 ) = 'nh4_cw03' chem_desc_table( idomain, P_nh4_cw03 ) = 'Ammonium, aerosol in cloud bin 03' chem_units_table( idomain, P_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw03 )%stream(2) = 2097216 ! 00200040 F_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_na_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw03 = chem_num_table(idomain) chem_index_table( PARAM_na_cw03 , idomain ) = P_na_cw03 ELSE P_na_cw03 = chem_index_table( PARAM_na_cw03 , idomain ) END IF chem_boundary_table( idomain, P_na_cw03 ) = .TRUE. chem_dname_table( idomain, P_na_cw03 ) = 'na_cw03' chem_desc_table( idomain, P_na_cw03 ) = 'Sodium, aerosol in cloud bin 03' chem_units_table( idomain, P_na_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw03 )%stream(2) = 2097216 ! 00200040 F_na_cw03 = .TRUE. IF ( chem_index_table( PARAM_oin_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw03 , idomain ) = P_oin_cw03 ELSE P_oin_cw03 = chem_index_table( PARAM_oin_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw03 ) = .TRUE. chem_dname_table( idomain, P_oin_cw03 ) = 'oin_cw03' chem_desc_table( idomain, P_oin_cw03 ) = 'Other inorganics, aerosol in cloud bin 03' chem_units_table( idomain, P_oin_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw03 )%stream(2) = 2097216 ! 00200040 F_oin_cw03 = .TRUE. IF ( chem_index_table( PARAM_oc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw03 , idomain ) = P_oc_cw03 ELSE P_oc_cw03 = chem_index_table( PARAM_oc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw03 ) = .TRUE. chem_dname_table( idomain, P_oc_cw03 ) = 'oc_cw03' chem_desc_table( idomain, P_oc_cw03 ) = 'Organic carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_oc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw03 )%stream(2) = 2097216 ! 00200040 F_oc_cw03 = .TRUE. IF ( chem_index_table( PARAM_bc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw03 , idomain ) = P_bc_cw03 ELSE P_bc_cw03 = chem_index_table( PARAM_bc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw03 ) = .TRUE. chem_dname_table( idomain, P_bc_cw03 ) = 'bc_cw03' chem_desc_table( idomain, P_bc_cw03 ) = 'Black carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_bc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw03 )%stream(2) = 2097216 ! 00200040 F_bc_cw03 = .TRUE. IF ( chem_index_table( PARAM_num_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw03 = chem_num_table(idomain) chem_index_table( PARAM_num_cw03 , idomain ) = P_num_cw03 ELSE P_num_cw03 = chem_index_table( PARAM_num_cw03 , idomain ) END IF chem_boundary_table( idomain, P_num_cw03 ) = .TRUE. chem_dname_table( idomain, P_num_cw03 ) = 'num_cw03' chem_desc_table( idomain, P_num_cw03 ) = 'Number, aerosol in cloud bin 03' chem_units_table( idomain, P_num_cw03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw03 )%stream(2) = 2097216 ! 00200040 F_num_cw03 = .TRUE. IF ( chem_index_table( PARAM_so4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw04 , idomain ) = P_so4_cw04 ELSE P_so4_cw04 = chem_index_table( PARAM_so4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw04 ) = .TRUE. chem_dname_table( idomain, P_so4_cw04 ) = 'so4_cw04' chem_desc_table( idomain, P_so4_cw04 ) = 'Sulfate, aerosol in cloud bin 04' chem_units_table( idomain, P_so4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw04 )%stream(2) = 2097216 ! 00200040 F_so4_cw04 = .TRUE. IF ( chem_index_table( PARAM_no3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw04 , idomain ) = P_no3_cw04 ELSE P_no3_cw04 = chem_index_table( PARAM_no3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw04 ) = .TRUE. chem_dname_table( idomain, P_no3_cw04 ) = 'no3_cw04' chem_desc_table( idomain, P_no3_cw04 ) = 'Nitrate, aerosol in cloud bin 04' chem_units_table( idomain, P_no3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw04 )%stream(2) = 2097216 ! 00200040 F_no3_cw04 = .TRUE. IF ( chem_index_table( PARAM_cl_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw04 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw04 , idomain ) = P_cl_cw04 ELSE P_cl_cw04 = chem_index_table( PARAM_cl_cw04 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw04 ) = .TRUE. chem_dname_table( idomain, P_cl_cw04 ) = 'cl_cw04' chem_desc_table( idomain, P_cl_cw04 ) = 'Chloride, aerosol in cloud bin 04' chem_units_table( idomain, P_cl_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw04 )%stream(2) = 2097216 ! 00200040 F_cl_cw04 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw04 , idomain ) = P_nh4_cw04 ELSE P_nh4_cw04 = chem_index_table( PARAM_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw04 ) = 'nh4_cw04' chem_desc_table( idomain, P_nh4_cw04 ) = 'Ammonium, aerosol in cloud bin 04' chem_units_table( idomain, P_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw04 )%stream(2) = 2097216 ! 00200040 F_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_na_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw04 = chem_num_table(idomain) chem_index_table( PARAM_na_cw04 , idomain ) = P_na_cw04 ELSE P_na_cw04 = chem_index_table( PARAM_na_cw04 , idomain ) END IF chem_boundary_table( idomain, P_na_cw04 ) = .TRUE. chem_dname_table( idomain, P_na_cw04 ) = 'na_cw04' chem_desc_table( idomain, P_na_cw04 ) = 'Sodium, aerosol in cloud bin 04' chem_units_table( idomain, P_na_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw04 )%stream(2) = 2097216 ! 00200040 F_na_cw04 = .TRUE. IF ( chem_index_table( PARAM_oin_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw04 , idomain ) = P_oin_cw04 ELSE P_oin_cw04 = chem_index_table( PARAM_oin_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw04 ) = .TRUE. chem_dname_table( idomain, P_oin_cw04 ) = 'oin_cw04' chem_desc_table( idomain, P_oin_cw04 ) = 'Other inorganics, aerosol in cloud bin 04' chem_units_table( idomain, P_oin_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw04 )%stream(2) = 2097216 ! 00200040 F_oin_cw04 = .TRUE. IF ( chem_index_table( PARAM_oc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw04 , idomain ) = P_oc_cw04 ELSE P_oc_cw04 = chem_index_table( PARAM_oc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw04 ) = .TRUE. chem_dname_table( idomain, P_oc_cw04 ) = 'oc_cw04' chem_desc_table( idomain, P_oc_cw04 ) = 'Organic carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_oc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw04 )%stream(2) = 2097216 ! 00200040 F_oc_cw04 = .TRUE. IF ( chem_index_table( PARAM_bc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw04 , idomain ) = P_bc_cw04 ELSE P_bc_cw04 = chem_index_table( PARAM_bc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw04 ) = .TRUE. chem_dname_table( idomain, P_bc_cw04 ) = 'bc_cw04' chem_desc_table( idomain, P_bc_cw04 ) = 'Black carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_bc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw04 )%stream(2) = 2097216 ! 00200040 F_bc_cw04 = .TRUE. IF ( chem_index_table( PARAM_num_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw04 = chem_num_table(idomain) chem_index_table( PARAM_num_cw04 , idomain ) = P_num_cw04 ELSE P_num_cw04 = chem_index_table( PARAM_num_cw04 , idomain ) END IF chem_boundary_table( idomain, P_num_cw04 ) = .TRUE. chem_dname_table( idomain, P_num_cw04 ) = 'num_cw04' chem_desc_table( idomain, P_num_cw04 ) = 'Number, aerosol in cloud bin 04' chem_units_table( idomain, P_num_cw04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw04 )%stream(2) = 2097216 ! 00200040 F_num_cw04 = .TRUE. IF ( chem_index_table( PARAM_so4_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw05 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw05 , idomain ) = P_so4_cw05 ELSE P_so4_cw05 = chem_index_table( PARAM_so4_cw05 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw05 ) = .TRUE. chem_dname_table( idomain, P_so4_cw05 ) = 'so4_cw05' chem_desc_table( idomain, P_so4_cw05 ) = 'Sulfate, aerosol in cloud bin 05' chem_units_table( idomain, P_so4_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw05 )%stream(2) = 2097216 ! 00200040 F_so4_cw05 = .TRUE. IF ( chem_index_table( PARAM_no3_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw05 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw05 , idomain ) = P_no3_cw05 ELSE P_no3_cw05 = chem_index_table( PARAM_no3_cw05 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw05 ) = .TRUE. chem_dname_table( idomain, P_no3_cw05 ) = 'no3_cw05' chem_desc_table( idomain, P_no3_cw05 ) = 'Nitrate, aerosol in cloud bin 05' chem_units_table( idomain, P_no3_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw05 )%stream(2) = 2097216 ! 00200040 F_no3_cw05 = .TRUE. IF ( chem_index_table( PARAM_cl_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw05 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw05 , idomain ) = P_cl_cw05 ELSE P_cl_cw05 = chem_index_table( PARAM_cl_cw05 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw05 ) = .TRUE. chem_dname_table( idomain, P_cl_cw05 ) = 'cl_cw05' chem_desc_table( idomain, P_cl_cw05 ) = 'Chloride, aerosol in cloud bin 05' chem_units_table( idomain, P_cl_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw05 )%stream(2) = 2097216 ! 00200040 F_cl_cw05 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw05 , idomain ) = P_nh4_cw05 ELSE P_nh4_cw05 = chem_index_table( PARAM_nh4_cw05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw05 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw05 ) = 'nh4_cw05' chem_desc_table( idomain, P_nh4_cw05 ) = 'Ammonium, aerosol in cloud bin 05' chem_units_table( idomain, P_nh4_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw05 )%stream(2) = 2097216 ! 00200040 F_nh4_cw05 = .TRUE. IF ( chem_index_table( PARAM_na_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw05 = chem_num_table(idomain) chem_index_table( PARAM_na_cw05 , idomain ) = P_na_cw05 ELSE P_na_cw05 = chem_index_table( PARAM_na_cw05 , idomain ) END IF chem_boundary_table( idomain, P_na_cw05 ) = .TRUE. chem_dname_table( idomain, P_na_cw05 ) = 'na_cw05' chem_desc_table( idomain, P_na_cw05 ) = 'Sodium, aerosol in cloud bin 05' chem_units_table( idomain, P_na_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw05 )%stream(2) = 2097216 ! 00200040 F_na_cw05 = .TRUE. IF ( chem_index_table( PARAM_oin_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw05 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw05 , idomain ) = P_oin_cw05 ELSE P_oin_cw05 = chem_index_table( PARAM_oin_cw05 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw05 ) = .TRUE. chem_dname_table( idomain, P_oin_cw05 ) = 'oin_cw05' chem_desc_table( idomain, P_oin_cw05 ) = 'Other inorganics, aerosol in cloud bin 05' chem_units_table( idomain, P_oin_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw05 )%stream(2) = 2097216 ! 00200040 F_oin_cw05 = .TRUE. IF ( chem_index_table( PARAM_oc_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw05 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw05 , idomain ) = P_oc_cw05 ELSE P_oc_cw05 = chem_index_table( PARAM_oc_cw05 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw05 ) = .TRUE. chem_dname_table( idomain, P_oc_cw05 ) = 'oc_cw05' chem_desc_table( idomain, P_oc_cw05 ) = 'Organic carbon, aerosol in cloud bin 05' chem_units_table( idomain, P_oc_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw05 )%stream(2) = 2097216 ! 00200040 F_oc_cw05 = .TRUE. IF ( chem_index_table( PARAM_bc_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw05 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw05 , idomain ) = P_bc_cw05 ELSE P_bc_cw05 = chem_index_table( PARAM_bc_cw05 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw05 ) = .TRUE. chem_dname_table( idomain, P_bc_cw05 ) = 'bc_cw05' chem_desc_table( idomain, P_bc_cw05 ) = 'Black carbon, aerosol in cloud bin 05' chem_units_table( idomain, P_bc_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw05 )%stream(2) = 2097216 ! 00200040 F_bc_cw05 = .TRUE. IF ( chem_index_table( PARAM_num_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw05 = chem_num_table(idomain) chem_index_table( PARAM_num_cw05 , idomain ) = P_num_cw05 ELSE P_num_cw05 = chem_index_table( PARAM_num_cw05 , idomain ) END IF chem_boundary_table( idomain, P_num_cw05 ) = .TRUE. chem_dname_table( idomain, P_num_cw05 ) = 'num_cw05' chem_desc_table( idomain, P_num_cw05 ) = 'Number, aerosol in cloud bin 05' chem_units_table( idomain, P_num_cw05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw05 )%stream(2) = 2097216 ! 00200040 F_num_cw05 = .TRUE. IF ( chem_index_table( PARAM_so4_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw06 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw06 , idomain ) = P_so4_cw06 ELSE P_so4_cw06 = chem_index_table( PARAM_so4_cw06 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw06 ) = .TRUE. chem_dname_table( idomain, P_so4_cw06 ) = 'so4_cw06' chem_desc_table( idomain, P_so4_cw06 ) = 'Sulfate, aerosol in cloud bin 06' chem_units_table( idomain, P_so4_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw06 )%stream(2) = 2097216 ! 00200040 F_so4_cw06 = .TRUE. IF ( chem_index_table( PARAM_no3_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw06 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw06 , idomain ) = P_no3_cw06 ELSE P_no3_cw06 = chem_index_table( PARAM_no3_cw06 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw06 ) = .TRUE. chem_dname_table( idomain, P_no3_cw06 ) = 'no3_cw06' chem_desc_table( idomain, P_no3_cw06 ) = 'Nitrate, aerosol in cloud bin 06' chem_units_table( idomain, P_no3_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw06 )%stream(2) = 2097216 ! 00200040 F_no3_cw06 = .TRUE. IF ( chem_index_table( PARAM_cl_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw06 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw06 , idomain ) = P_cl_cw06 ELSE P_cl_cw06 = chem_index_table( PARAM_cl_cw06 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw06 ) = .TRUE. chem_dname_table( idomain, P_cl_cw06 ) = 'cl_cw06' chem_desc_table( idomain, P_cl_cw06 ) = 'Chloride, aerosol in cloud bin 06' chem_units_table( idomain, P_cl_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw06 )%stream(2) = 2097216 ! 00200040 F_cl_cw06 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw06 , idomain ) = P_nh4_cw06 ELSE P_nh4_cw06 = chem_index_table( PARAM_nh4_cw06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw06 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw06 ) = 'nh4_cw06' chem_desc_table( idomain, P_nh4_cw06 ) = 'Ammonium, aerosol in cloud bin 06' chem_units_table( idomain, P_nh4_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw06 )%stream(2) = 2097216 ! 00200040 F_nh4_cw06 = .TRUE. IF ( chem_index_table( PARAM_na_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw06 = chem_num_table(idomain) chem_index_table( PARAM_na_cw06 , idomain ) = P_na_cw06 ELSE P_na_cw06 = chem_index_table( PARAM_na_cw06 , idomain ) END IF chem_boundary_table( idomain, P_na_cw06 ) = .TRUE. chem_dname_table( idomain, P_na_cw06 ) = 'na_cw06' chem_desc_table( idomain, P_na_cw06 ) = 'Sodium, aerosol in cloud bin 06' chem_units_table( idomain, P_na_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw06 )%stream(2) = 2097216 ! 00200040 F_na_cw06 = .TRUE. IF ( chem_index_table( PARAM_oin_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw06 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw06 , idomain ) = P_oin_cw06 ELSE P_oin_cw06 = chem_index_table( PARAM_oin_cw06 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw06 ) = .TRUE. chem_dname_table( idomain, P_oin_cw06 ) = 'oin_cw06' chem_desc_table( idomain, P_oin_cw06 ) = 'Other inorganics, aerosol in cloud bin 06' chem_units_table( idomain, P_oin_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw06 )%stream(2) = 2097216 ! 00200040 F_oin_cw06 = .TRUE. IF ( chem_index_table( PARAM_oc_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw06 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw06 , idomain ) = P_oc_cw06 ELSE P_oc_cw06 = chem_index_table( PARAM_oc_cw06 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw06 ) = .TRUE. chem_dname_table( idomain, P_oc_cw06 ) = 'oc_cw06' chem_desc_table( idomain, P_oc_cw06 ) = 'Organic carbon, aerosol in cloud bin 06' chem_units_table( idomain, P_oc_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw06 )%stream(2) = 2097216 ! 00200040 F_oc_cw06 = .TRUE. IF ( chem_index_table( PARAM_bc_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw06 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw06 , idomain ) = P_bc_cw06 ELSE P_bc_cw06 = chem_index_table( PARAM_bc_cw06 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw06 ) = .TRUE. chem_dname_table( idomain, P_bc_cw06 ) = 'bc_cw06' chem_desc_table( idomain, P_bc_cw06 ) = 'Black carbon, aerosol in cloud bin 06' chem_units_table( idomain, P_bc_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw06 )%stream(2) = 2097216 ! 00200040 F_bc_cw06 = .TRUE. IF ( chem_index_table( PARAM_num_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw06 = chem_num_table(idomain) chem_index_table( PARAM_num_cw06 , idomain ) = P_num_cw06 ELSE P_num_cw06 = chem_index_table( PARAM_num_cw06 , idomain ) END IF chem_boundary_table( idomain, P_num_cw06 ) = .TRUE. chem_dname_table( idomain, P_num_cw06 ) = 'num_cw06' chem_desc_table( idomain, P_num_cw06 ) = 'Number, aerosol in cloud bin 06' chem_units_table( idomain, P_num_cw06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw06 )%stream(2) = 2097216 ! 00200040 F_num_cw06 = .TRUE. IF ( chem_index_table( PARAM_so4_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw07 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw07 , idomain ) = P_so4_cw07 ELSE P_so4_cw07 = chem_index_table( PARAM_so4_cw07 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw07 ) = .TRUE. chem_dname_table( idomain, P_so4_cw07 ) = 'so4_cw07' chem_desc_table( idomain, P_so4_cw07 ) = 'Sulfate, aerosol in cloud bin 07' chem_units_table( idomain, P_so4_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw07 )%stream(2) = 2097216 ! 00200040 F_so4_cw07 = .TRUE. IF ( chem_index_table( PARAM_no3_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw07 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw07 , idomain ) = P_no3_cw07 ELSE P_no3_cw07 = chem_index_table( PARAM_no3_cw07 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw07 ) = .TRUE. chem_dname_table( idomain, P_no3_cw07 ) = 'no3_cw07' chem_desc_table( idomain, P_no3_cw07 ) = 'Nitrate, aerosol in cloud bin 07' chem_units_table( idomain, P_no3_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw07 )%stream(2) = 2097216 ! 00200040 F_no3_cw07 = .TRUE. IF ( chem_index_table( PARAM_cl_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw07 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw07 , idomain ) = P_cl_cw07 ELSE P_cl_cw07 = chem_index_table( PARAM_cl_cw07 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw07 ) = .TRUE. chem_dname_table( idomain, P_cl_cw07 ) = 'cl_cw07' chem_desc_table( idomain, P_cl_cw07 ) = 'Chloride, aerosol in cloud bin 07' chem_units_table( idomain, P_cl_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw07 )%stream(2) = 2097216 ! 00200040 F_cl_cw07 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw07 , idomain ) = P_nh4_cw07 ELSE P_nh4_cw07 = chem_index_table( PARAM_nh4_cw07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw07 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw07 ) = 'nh4_cw07' chem_desc_table( idomain, P_nh4_cw07 ) = 'Ammonium, aerosol in cloud bin 07' chem_units_table( idomain, P_nh4_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw07 )%stream(2) = 2097216 ! 00200040 F_nh4_cw07 = .TRUE. IF ( chem_index_table( PARAM_na_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw07 = chem_num_table(idomain) chem_index_table( PARAM_na_cw07 , idomain ) = P_na_cw07 ELSE P_na_cw07 = chem_index_table( PARAM_na_cw07 , idomain ) END IF chem_boundary_table( idomain, P_na_cw07 ) = .TRUE. chem_dname_table( idomain, P_na_cw07 ) = 'na_cw07' chem_desc_table( idomain, P_na_cw07 ) = 'Sodium, aerosol in cloud bin 07' chem_units_table( idomain, P_na_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw07 )%stream(2) = 2097216 ! 00200040 F_na_cw07 = .TRUE. IF ( chem_index_table( PARAM_oin_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw07 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw07 , idomain ) = P_oin_cw07 ELSE P_oin_cw07 = chem_index_table( PARAM_oin_cw07 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw07 ) = .TRUE. chem_dname_table( idomain, P_oin_cw07 ) = 'oin_cw07' chem_desc_table( idomain, P_oin_cw07 ) = 'Other inorganics, aerosol in cloud bin 07' chem_units_table( idomain, P_oin_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw07 )%stream(2) = 2097216 ! 00200040 F_oin_cw07 = .TRUE. IF ( chem_index_table( PARAM_oc_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw07 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw07 , idomain ) = P_oc_cw07 ELSE P_oc_cw07 = chem_index_table( PARAM_oc_cw07 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw07 ) = .TRUE. chem_dname_table( idomain, P_oc_cw07 ) = 'oc_cw07' chem_desc_table( idomain, P_oc_cw07 ) = 'Organic carbon, aerosol in cloud bin 07' chem_units_table( idomain, P_oc_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw07 )%stream(2) = 2097216 ! 00200040 F_oc_cw07 = .TRUE. IF ( chem_index_table( PARAM_bc_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw07 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw07 , idomain ) = P_bc_cw07 ELSE P_bc_cw07 = chem_index_table( PARAM_bc_cw07 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw07 ) = .TRUE. chem_dname_table( idomain, P_bc_cw07 ) = 'bc_cw07' chem_desc_table( idomain, P_bc_cw07 ) = 'Black carbon, aerosol in cloud bin 07' chem_units_table( idomain, P_bc_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw07 )%stream(2) = 2097216 ! 00200040 F_bc_cw07 = .TRUE. IF ( chem_index_table( PARAM_num_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw07 = chem_num_table(idomain) chem_index_table( PARAM_num_cw07 , idomain ) = P_num_cw07 ELSE P_num_cw07 = chem_index_table( PARAM_num_cw07 , idomain ) END IF chem_boundary_table( idomain, P_num_cw07 ) = .TRUE. chem_dname_table( idomain, P_num_cw07 ) = 'num_cw07' chem_desc_table( idomain, P_num_cw07 ) = 'Number, aerosol in cloud bin 07' chem_units_table( idomain, P_num_cw07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw07 )%stream(2) = 2097216 ! 00200040 F_num_cw07 = .TRUE. IF ( chem_index_table( PARAM_so4_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw08 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw08 , idomain ) = P_so4_cw08 ELSE P_so4_cw08 = chem_index_table( PARAM_so4_cw08 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw08 ) = .TRUE. chem_dname_table( idomain, P_so4_cw08 ) = 'so4_cw08' chem_desc_table( idomain, P_so4_cw08 ) = 'Sulfate, aerosol in cloud bin 08' chem_units_table( idomain, P_so4_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw08 )%stream(2) = 2097216 ! 00200040 F_so4_cw08 = .TRUE. IF ( chem_index_table( PARAM_no3_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw08 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw08 , idomain ) = P_no3_cw08 ELSE P_no3_cw08 = chem_index_table( PARAM_no3_cw08 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw08 ) = .TRUE. chem_dname_table( idomain, P_no3_cw08 ) = 'no3_cw08' chem_desc_table( idomain, P_no3_cw08 ) = 'Nitrate, aerosol in cloud bin 08' chem_units_table( idomain, P_no3_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw08 )%stream(2) = 2097216 ! 00200040 F_no3_cw08 = .TRUE. IF ( chem_index_table( PARAM_cl_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw08 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw08 , idomain ) = P_cl_cw08 ELSE P_cl_cw08 = chem_index_table( PARAM_cl_cw08 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw08 ) = .TRUE. chem_dname_table( idomain, P_cl_cw08 ) = 'cl_cw08' chem_desc_table( idomain, P_cl_cw08 ) = 'Chloride, aerosol in cloud bin 08' chem_units_table( idomain, P_cl_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw08 )%stream(2) = 2097216 ! 00200040 F_cl_cw08 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw08 , idomain ) = P_nh4_cw08 ELSE P_nh4_cw08 = chem_index_table( PARAM_nh4_cw08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw08 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw08 ) = 'nh4_cw08' chem_desc_table( idomain, P_nh4_cw08 ) = 'Ammonium, aerosol in cloud bin 08' chem_units_table( idomain, P_nh4_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw08 )%stream(2) = 2097216 ! 00200040 F_nh4_cw08 = .TRUE. IF ( chem_index_table( PARAM_na_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw08 = chem_num_table(idomain) chem_index_table( PARAM_na_cw08 , idomain ) = P_na_cw08 ELSE P_na_cw08 = chem_index_table( PARAM_na_cw08 , idomain ) END IF chem_boundary_table( idomain, P_na_cw08 ) = .TRUE. chem_dname_table( idomain, P_na_cw08 ) = 'na_cw08' chem_desc_table( idomain, P_na_cw08 ) = 'Sodium, aerosol in cloud bin 08' chem_units_table( idomain, P_na_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw08 )%stream(2) = 2097216 ! 00200040 F_na_cw08 = .TRUE. IF ( chem_index_table( PARAM_oin_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw08 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw08 , idomain ) = P_oin_cw08 ELSE P_oin_cw08 = chem_index_table( PARAM_oin_cw08 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw08 ) = .TRUE. chem_dname_table( idomain, P_oin_cw08 ) = 'oin_cw08' chem_desc_table( idomain, P_oin_cw08 ) = 'Other inorganics, aerosol in cloud bin 08' chem_units_table( idomain, P_oin_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw08 )%stream(2) = 2097216 ! 00200040 F_oin_cw08 = .TRUE. IF ( chem_index_table( PARAM_oc_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw08 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw08 , idomain ) = P_oc_cw08 ELSE P_oc_cw08 = chem_index_table( PARAM_oc_cw08 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw08 ) = .TRUE. chem_dname_table( idomain, P_oc_cw08 ) = 'oc_cw08' chem_desc_table( idomain, P_oc_cw08 ) = 'Organic carbon, aerosol in cloud bin 08' chem_units_table( idomain, P_oc_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw08 )%stream(2) = 2097216 ! 00200040 F_oc_cw08 = .TRUE. IF ( chem_index_table( PARAM_bc_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw08 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw08 , idomain ) = P_bc_cw08 ELSE P_bc_cw08 = chem_index_table( PARAM_bc_cw08 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw08 ) = .TRUE. chem_dname_table( idomain, P_bc_cw08 ) = 'bc_cw08' chem_desc_table( idomain, P_bc_cw08 ) = 'Black carbon, aerosol in cloud bin 08' chem_units_table( idomain, P_bc_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw08 )%stream(2) = 2097216 ! 00200040 F_bc_cw08 = .TRUE. IF ( chem_index_table( PARAM_num_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw08 = chem_num_table(idomain) chem_index_table( PARAM_num_cw08 , idomain ) = P_num_cw08 ELSE P_num_cw08 = chem_index_table( PARAM_num_cw08 , idomain ) END IF chem_boundary_table( idomain, P_num_cw08 ) = .TRUE. chem_dname_table( idomain, P_num_cw08 ) = 'num_cw08' chem_desc_table( idomain, P_num_cw08 ) = 'Number, aerosol in cloud bin 08' chem_units_table( idomain, P_num_cw08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw08 )%stream(2) = 2097216 ! 00200040 F_num_cw08 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==11)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 ! 00200040 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 ! 00200040 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 ! 00200040 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 ! 00200040 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 ! 00200040 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 ! 00200040 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 ! 00200040 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 ! 00200040 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 ! 00200040 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 ! 00200040 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 ! 00200040 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 ! 00200040 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 ! 00200040 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 ! 00200040 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 ! 00200040 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 ! 00200040 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 ! 00200040 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 ! 00200040 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 ! 00200040 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 ! 00200040 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 ! 00200040 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 ! 00200040 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 ! 00200040 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 ! 00200040 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 ! 00200040 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 ! 00200040 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 ! 00200040 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 ! 00200040 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 ! 00200040 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 ! 00200040 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 ! 00200040 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 ! 00200040 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 ! 00200040 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 ! 00200040 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 ! 00200040 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 ! 00200040 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 ! 00200040 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 ! 00200040 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 ! 00200040 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 ! 00200040 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 ! 00200040 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 ! 00200040 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 ! 00200040 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 ! 00200040 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 ! 00200040 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 ! 00200040 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 ! 00200040 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 ! 00200040 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwj , idomain ) = P_orgaro1cwj ELSE P_orgaro1cwj = chem_index_table( PARAM_orgaro1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwj ) = 'orgaro1cwj' chem_desc_table( idomain, P_orgaro1cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1cwj )%stream(2) = 2097216 ! 00200040 F_orgaro1cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwi , idomain ) = P_orgaro1cwi ELSE P_orgaro1cwi = chem_index_table( PARAM_orgaro1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwi ) = 'orgaro1cwi' chem_desc_table( idomain, P_orgaro1cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1cwi )%stream(2) = 2097216 ! 00200040 F_orgaro1cwi = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwj , idomain ) = P_orgaro2cwj ELSE P_orgaro2cwj = chem_index_table( PARAM_orgaro2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwj ) = 'orgaro2cwj' chem_desc_table( idomain, P_orgaro2cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2cwj )%stream(2) = 2097216 ! 00200040 F_orgaro2cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwi , idomain ) = P_orgaro2cwi ELSE P_orgaro2cwi = chem_index_table( PARAM_orgaro2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwi ) = 'orgaro2cwi' chem_desc_table( idomain, P_orgaro2cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2cwi )%stream(2) = 2097216 ! 00200040 F_orgaro2cwi = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwj , idomain ) = P_orgalk1cwj ELSE P_orgalk1cwj = chem_index_table( PARAM_orgalk1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwj ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwj ) = 'orgalk1cwj' chem_desc_table( idomain, P_orgalk1cwj ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgalk1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1cwj )%stream(2) = 2097216 ! 00200040 F_orgalk1cwj = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwi , idomain ) = P_orgalk1cwi ELSE P_orgalk1cwi = chem_index_table( PARAM_orgalk1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwi ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwi ) = 'orgalk1cwi' chem_desc_table( idomain, P_orgalk1cwi ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgalk1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1cwi )%stream(2) = 2097216 ! 00200040 F_orgalk1cwi = .TRUE. IF ( chem_index_table( PARAM_orgole1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwj , idomain ) = P_orgole1cwj ELSE P_orgole1cwj = chem_index_table( PARAM_orgole1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwj ) = .TRUE. chem_dname_table( idomain, P_orgole1cwj ) = 'orgole1cwj' chem_desc_table( idomain, P_orgole1cwj ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgole1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1cwj )%stream(2) = 2097216 ! 00200040 F_orgole1cwj = .TRUE. IF ( chem_index_table( PARAM_orgole1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwi , idomain ) = P_orgole1cwi ELSE P_orgole1cwi = chem_index_table( PARAM_orgole1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwi ) = .TRUE. chem_dname_table( idomain, P_orgole1cwi ) = 'orgole1cwi' chem_desc_table( idomain, P_orgole1cwi ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgole1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1cwi )%stream(2) = 2097216 ! 00200040 F_orgole1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwj , idomain ) = P_orgba1cwj ELSE P_orgba1cwj = chem_index_table( PARAM_orgba1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwj ) = .TRUE. chem_dname_table( idomain, P_orgba1cwj ) = 'orgba1cwj' chem_desc_table( idomain, P_orgba1cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1cwj )%stream(2) = 2097216 ! 00200040 F_orgba1cwj = .TRUE. IF ( chem_index_table( PARAM_orgba1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwi , idomain ) = P_orgba1cwi ELSE P_orgba1cwi = chem_index_table( PARAM_orgba1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwi ) = .TRUE. chem_dname_table( idomain, P_orgba1cwi ) = 'orgba1cwi' chem_desc_table( idomain, P_orgba1cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1cwi )%stream(2) = 2097216 ! 00200040 F_orgba1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwj , idomain ) = P_orgba2cwj ELSE P_orgba2cwj = chem_index_table( PARAM_orgba2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwj ) = .TRUE. chem_dname_table( idomain, P_orgba2cwj ) = 'orgba2cwj' chem_desc_table( idomain, P_orgba2cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2cwj )%stream(2) = 2097216 ! 00200040 F_orgba2cwj = .TRUE. IF ( chem_index_table( PARAM_orgba2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwi , idomain ) = P_orgba2cwi ELSE P_orgba2cwi = chem_index_table( PARAM_orgba2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwi ) = .TRUE. chem_dname_table( idomain, P_orgba2cwi ) = 'orgba2cwi' chem_desc_table( idomain, P_orgba2cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2cwi )%stream(2) = 2097216 ! 00200040 F_orgba2cwi = .TRUE. IF ( chem_index_table( PARAM_orgba3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwj , idomain ) = P_orgba3cwj ELSE P_orgba3cwj = chem_index_table( PARAM_orgba3cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwj ) = .TRUE. chem_dname_table( idomain, P_orgba3cwj ) = 'orgba3cwj' chem_desc_table( idomain, P_orgba3cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3cwj )%stream(2) = 2097216 ! 00200040 F_orgba3cwj = .TRUE. IF ( chem_index_table( PARAM_orgba3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwi , idomain ) = P_orgba3cwi ELSE P_orgba3cwi = chem_index_table( PARAM_orgba3cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwi ) = .TRUE. chem_dname_table( idomain, P_orgba3cwi ) = 'orgba3cwi' chem_desc_table( idomain, P_orgba3cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3cwi )%stream(2) = 2097216 ! 00200040 F_orgba3cwi = .TRUE. IF ( chem_index_table( PARAM_orgba4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwj , idomain ) = P_orgba4cwj ELSE P_orgba4cwj = chem_index_table( PARAM_orgba4cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwj ) = .TRUE. chem_dname_table( idomain, P_orgba4cwj ) = 'orgba4cwj' chem_desc_table( idomain, P_orgba4cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4cwj )%stream(2) = 2097216 ! 00200040 F_orgba4cwj = .TRUE. IF ( chem_index_table( PARAM_orgba4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwi , idomain ) = P_orgba4cwi ELSE P_orgba4cwi = chem_index_table( PARAM_orgba4cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwi ) = .TRUE. chem_dname_table( idomain, P_orgba4cwi ) = 'orgba4cwi' chem_desc_table( idomain, P_orgba4cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4cwi )%stream(2) = 2097216 ! 00200040 F_orgba4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 ! 00200040 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 ! 00200040 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 ! 00200040 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 ! 00200040 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 ! 00200040 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 ! 00200040 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 ! 00200040 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 ! 00200040 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 ! 00200040 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 ! 00200040 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 ! 00200040 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 ! 00200040 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==12)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 ! 00200040 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 ! 00200040 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 ! 00200040 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api )%stream(2) = 2097216 ! 00200040 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 ! 00200040 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 ! 00200040 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 ! 00200040 F_macr = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 ! 00200040 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 ! 00200040 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 ! 00200040 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 ! 00200040 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 ! 00200040 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 ! 00200040 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 ! 00200040 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 ! 00200040 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 ! 00200040 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 ! 00200040 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 ! 00200040 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 ! 00200040 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 ! 00200040 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 ! 00200040 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 ! 00200040 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 ! 00200040 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 ! 00200040 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 ! 00200040 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 ! 00200040 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 ! 00200040 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 ! 00200040 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 ! 00200040 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 ! 00200040 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 ! 00200040 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 ! 00200040 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 ! 00200040 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 ! 00200040 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 ! 00200040 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 ! 00200040 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 ! 00200040 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 ! 00200040 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 ! 00200040 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 ! 00200040 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 ! 00200040 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 ! 00200040 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 ! 00200040 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 ! 00200040 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 ! 00200040 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 ! 00200040 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 ! 00200040 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 ! 00200040 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 ! 00200040 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 ! 00200040 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 ! 00200040 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 ! 00200040 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 ! 00200040 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 ! 00200040 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 ! 00200040 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwj , idomain ) = P_orgaro1cwj ELSE P_orgaro1cwj = chem_index_table( PARAM_orgaro1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwj ) = 'orgaro1cwj' chem_desc_table( idomain, P_orgaro1cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1cwj )%stream(2) = 2097216 ! 00200040 F_orgaro1cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwi , idomain ) = P_orgaro1cwi ELSE P_orgaro1cwi = chem_index_table( PARAM_orgaro1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwi ) = 'orgaro1cwi' chem_desc_table( idomain, P_orgaro1cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1cwi )%stream(2) = 2097216 ! 00200040 F_orgaro1cwi = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwj , idomain ) = P_orgaro2cwj ELSE P_orgaro2cwj = chem_index_table( PARAM_orgaro2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwj ) = 'orgaro2cwj' chem_desc_table( idomain, P_orgaro2cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2cwj )%stream(2) = 2097216 ! 00200040 F_orgaro2cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwi , idomain ) = P_orgaro2cwi ELSE P_orgaro2cwi = chem_index_table( PARAM_orgaro2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwi ) = 'orgaro2cwi' chem_desc_table( idomain, P_orgaro2cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2cwi )%stream(2) = 2097216 ! 00200040 F_orgaro2cwi = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwj , idomain ) = P_orgalk1cwj ELSE P_orgalk1cwj = chem_index_table( PARAM_orgalk1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwj ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwj ) = 'orgalk1cwj' chem_desc_table( idomain, P_orgalk1cwj ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgalk1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1cwj )%stream(2) = 2097216 ! 00200040 F_orgalk1cwj = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwi , idomain ) = P_orgalk1cwi ELSE P_orgalk1cwi = chem_index_table( PARAM_orgalk1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwi ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwi ) = 'orgalk1cwi' chem_desc_table( idomain, P_orgalk1cwi ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgalk1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1cwi )%stream(2) = 2097216 ! 00200040 F_orgalk1cwi = .TRUE. IF ( chem_index_table( PARAM_orgole1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwj , idomain ) = P_orgole1cwj ELSE P_orgole1cwj = chem_index_table( PARAM_orgole1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwj ) = .TRUE. chem_dname_table( idomain, P_orgole1cwj ) = 'orgole1cwj' chem_desc_table( idomain, P_orgole1cwj ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgole1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1cwj )%stream(2) = 2097216 ! 00200040 F_orgole1cwj = .TRUE. IF ( chem_index_table( PARAM_orgole1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwi , idomain ) = P_orgole1cwi ELSE P_orgole1cwi = chem_index_table( PARAM_orgole1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwi ) = .TRUE. chem_dname_table( idomain, P_orgole1cwi ) = 'orgole1cwi' chem_desc_table( idomain, P_orgole1cwi ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgole1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1cwi )%stream(2) = 2097216 ! 00200040 F_orgole1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwj , idomain ) = P_orgba1cwj ELSE P_orgba1cwj = chem_index_table( PARAM_orgba1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwj ) = .TRUE. chem_dname_table( idomain, P_orgba1cwj ) = 'orgba1cwj' chem_desc_table( idomain, P_orgba1cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1cwj )%stream(2) = 2097216 ! 00200040 F_orgba1cwj = .TRUE. IF ( chem_index_table( PARAM_orgba1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwi , idomain ) = P_orgba1cwi ELSE P_orgba1cwi = chem_index_table( PARAM_orgba1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwi ) = .TRUE. chem_dname_table( idomain, P_orgba1cwi ) = 'orgba1cwi' chem_desc_table( idomain, P_orgba1cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1cwi )%stream(2) = 2097216 ! 00200040 F_orgba1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwj , idomain ) = P_orgba2cwj ELSE P_orgba2cwj = chem_index_table( PARAM_orgba2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwj ) = .TRUE. chem_dname_table( idomain, P_orgba2cwj ) = 'orgba2cwj' chem_desc_table( idomain, P_orgba2cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2cwj )%stream(2) = 2097216 ! 00200040 F_orgba2cwj = .TRUE. IF ( chem_index_table( PARAM_orgba2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwi , idomain ) = P_orgba2cwi ELSE P_orgba2cwi = chem_index_table( PARAM_orgba2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwi ) = .TRUE. chem_dname_table( idomain, P_orgba2cwi ) = 'orgba2cwi' chem_desc_table( idomain, P_orgba2cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2cwi )%stream(2) = 2097216 ! 00200040 F_orgba2cwi = .TRUE. IF ( chem_index_table( PARAM_orgba3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwj , idomain ) = P_orgba3cwj ELSE P_orgba3cwj = chem_index_table( PARAM_orgba3cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwj ) = .TRUE. chem_dname_table( idomain, P_orgba3cwj ) = 'orgba3cwj' chem_desc_table( idomain, P_orgba3cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3cwj )%stream(2) = 2097216 ! 00200040 F_orgba3cwj = .TRUE. IF ( chem_index_table( PARAM_orgba3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwi , idomain ) = P_orgba3cwi ELSE P_orgba3cwi = chem_index_table( PARAM_orgba3cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwi ) = .TRUE. chem_dname_table( idomain, P_orgba3cwi ) = 'orgba3cwi' chem_desc_table( idomain, P_orgba3cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3cwi )%stream(2) = 2097216 ! 00200040 F_orgba3cwi = .TRUE. IF ( chem_index_table( PARAM_orgba4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwj , idomain ) = P_orgba4cwj ELSE P_orgba4cwj = chem_index_table( PARAM_orgba4cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwj ) = .TRUE. chem_dname_table( idomain, P_orgba4cwj ) = 'orgba4cwj' chem_desc_table( idomain, P_orgba4cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4cwj )%stream(2) = 2097216 ! 00200040 F_orgba4cwj = .TRUE. IF ( chem_index_table( PARAM_orgba4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwi , idomain ) = P_orgba4cwi ELSE P_orgba4cwi = chem_index_table( PARAM_orgba4cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwi ) = .TRUE. chem_dname_table( idomain, P_orgba4cwi ) = 'orgba4cwi' chem_desc_table( idomain, P_orgba4cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4cwi )%stream(2) = 2097216 ! 00200040 F_orgba4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 ! 00200040 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 ! 00200040 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 ! 00200040 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 ! 00200040 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 ! 00200040 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 ! 00200040 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 ! 00200040 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 ! 00200040 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 ! 00200040 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 ! 00200040 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 ! 00200040 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 ! 00200040 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==13)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==14)THEN IF ( chem_index_table( PARAM_tracer_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_1 = chem_num_table(idomain) chem_index_table( PARAM_tracer_1 , idomain ) = P_tracer_1 ELSE P_tracer_1 = chem_index_table( PARAM_tracer_1 , idomain ) END IF chem_boundary_table( idomain, P_tracer_1 ) = .TRUE. chem_dname_table( idomain, P_tracer_1 ) = 'tracer_1' chem_desc_table( idomain, P_tracer_1 ) = 'tracer1 mix ratio' chem_units_table( idomain, P_tracer_1 ) = 'ppmv' chem_streams_table( idomain, P_tracer_1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_1 )%stream(2) = 2097216 ! 00200040 F_tracer_1 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==15)THEN IF ( chem_index_table( PARAM_tracer_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_1 = chem_num_table(idomain) chem_index_table( PARAM_tracer_1 , idomain ) = P_tracer_1 ELSE P_tracer_1 = chem_index_table( PARAM_tracer_1 , idomain ) END IF chem_boundary_table( idomain, P_tracer_1 ) = .TRUE. chem_dname_table( idomain, P_tracer_1 ) = 'tracer_1' chem_desc_table( idomain, P_tracer_1 ) = 'tracer1 mix ratio' chem_units_table( idomain, P_tracer_1 ) = 'ppmv' chem_streams_table( idomain, P_tracer_1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_1 )%stream(2) = 2097216 ! 00200040 F_tracer_1 = .TRUE. IF ( chem_index_table( PARAM_tracer_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_2 = chem_num_table(idomain) chem_index_table( PARAM_tracer_2 , idomain ) = P_tracer_2 ELSE P_tracer_2 = chem_index_table( PARAM_tracer_2 , idomain ) END IF chem_boundary_table( idomain, P_tracer_2 ) = .TRUE. chem_dname_table( idomain, P_tracer_2 ) = 'tracer_2' chem_desc_table( idomain, P_tracer_2 ) = 'tracer2 mix ratio' chem_units_table( idomain, P_tracer_2 ) = 'ppmv' chem_streams_table( idomain, P_tracer_2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_2 )%stream(2) = 2097216 ! 00200040 F_tracer_2 = .TRUE. IF ( chem_index_table( PARAM_tracer_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_3 = chem_num_table(idomain) chem_index_table( PARAM_tracer_3 , idomain ) = P_tracer_3 ELSE P_tracer_3 = chem_index_table( PARAM_tracer_3 , idomain ) END IF chem_boundary_table( idomain, P_tracer_3 ) = .TRUE. chem_dname_table( idomain, P_tracer_3 ) = 'tracer_3' chem_desc_table( idomain, P_tracer_3 ) = 'tracer3 mix ratio' chem_units_table( idomain, P_tracer_3 ) = 'ppmv' chem_streams_table( idomain, P_tracer_3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_3 )%stream(2) = 2097216 ! 00200040 F_tracer_3 = .TRUE. IF ( chem_index_table( PARAM_tracer_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_4 = chem_num_table(idomain) chem_index_table( PARAM_tracer_4 , idomain ) = P_tracer_4 ELSE P_tracer_4 = chem_index_table( PARAM_tracer_4 , idomain ) END IF chem_boundary_table( idomain, P_tracer_4 ) = .TRUE. chem_dname_table( idomain, P_tracer_4 ) = 'tracer_4' chem_desc_table( idomain, P_tracer_4 ) = 'tracer4 mix ratio' chem_units_table( idomain, P_tracer_4 ) = 'ppmv' chem_streams_table( idomain, P_tracer_4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_4 )%stream(2) = 2097216 ! 00200040 F_tracer_4 = .TRUE. IF ( chem_index_table( PARAM_tracer_5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_5 = chem_num_table(idomain) chem_index_table( PARAM_tracer_5 , idomain ) = P_tracer_5 ELSE P_tracer_5 = chem_index_table( PARAM_tracer_5 , idomain ) END IF chem_boundary_table( idomain, P_tracer_5 ) = .TRUE. chem_dname_table( idomain, P_tracer_5 ) = 'tracer_5' chem_desc_table( idomain, P_tracer_5 ) = 'tracer5 mix ratio' chem_units_table( idomain, P_tracer_5 ) = 'ppmv' chem_streams_table( idomain, P_tracer_5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_5 )%stream(2) = 2097216 ! 00200040 F_tracer_5 = .TRUE. IF ( chem_index_table( PARAM_tracer_6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_6 = chem_num_table(idomain) chem_index_table( PARAM_tracer_6 , idomain ) = P_tracer_6 ELSE P_tracer_6 = chem_index_table( PARAM_tracer_6 , idomain ) END IF chem_boundary_table( idomain, P_tracer_6 ) = .TRUE. chem_dname_table( idomain, P_tracer_6 ) = 'tracer_6' chem_desc_table( idomain, P_tracer_6 ) = 'tracer6 mix ratio' chem_units_table( idomain, P_tracer_6 ) = 'ppmv' chem_streams_table( idomain, P_tracer_6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_6 )%stream(2) = 2097216 ! 00200040 F_tracer_6 = .TRUE. IF ( chem_index_table( PARAM_tracer_7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_7 = chem_num_table(idomain) chem_index_table( PARAM_tracer_7 , idomain ) = P_tracer_7 ELSE P_tracer_7 = chem_index_table( PARAM_tracer_7 , idomain ) END IF chem_boundary_table( idomain, P_tracer_7 ) = .TRUE. chem_dname_table( idomain, P_tracer_7 ) = 'tracer_7' chem_desc_table( idomain, P_tracer_7 ) = 'tracer7 mix ratio' chem_units_table( idomain, P_tracer_7 ) = 'ppmv' chem_streams_table( idomain, P_tracer_7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_7 )%stream(2) = 2097216 ! 00200040 F_tracer_7 = .TRUE. IF ( chem_index_table( PARAM_tracer_8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_8 = chem_num_table(idomain) chem_index_table( PARAM_tracer_8 , idomain ) = P_tracer_8 ELSE P_tracer_8 = chem_index_table( PARAM_tracer_8 , idomain ) END IF chem_boundary_table( idomain, P_tracer_8 ) = .TRUE. chem_dname_table( idomain, P_tracer_8 ) = 'tracer_8' chem_desc_table( idomain, P_tracer_8 ) = 'tracer8 mix ratio' chem_units_table( idomain, P_tracer_8 ) = 'ppmv' chem_streams_table( idomain, P_tracer_8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_8 )%stream(2) = 2097216 ! 00200040 F_tracer_8 = .TRUE. IF ( chem_index_table( PARAM_tracer_9 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_9 = chem_num_table(idomain) chem_index_table( PARAM_tracer_9 , idomain ) = P_tracer_9 ELSE P_tracer_9 = chem_index_table( PARAM_tracer_9 , idomain ) END IF chem_boundary_table( idomain, P_tracer_9 ) = .TRUE. chem_dname_table( idomain, P_tracer_9 ) = 'tracer_9' chem_desc_table( idomain, P_tracer_9 ) = 'tracer9 mix ratio' chem_units_table( idomain, P_tracer_9 ) = 'ppmv' chem_streams_table( idomain, P_tracer_9 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_9 )%stream(2) = 2097216 ! 00200040 F_tracer_9 = .TRUE. IF ( chem_index_table( PARAM_tracer_10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_10 = chem_num_table(idomain) chem_index_table( PARAM_tracer_10 , idomain ) = P_tracer_10 ELSE P_tracer_10 = chem_index_table( PARAM_tracer_10 , idomain ) END IF chem_boundary_table( idomain, P_tracer_10 ) = .TRUE. chem_dname_table( idomain, P_tracer_10 ) = 'tracer_10' chem_desc_table( idomain, P_tracer_10 ) = 'tracer10 mix ratio' chem_units_table( idomain, P_tracer_10 ) = 'ppmv' chem_streams_table( idomain, P_tracer_10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_10 )%stream(2) = 2097216 ! 00200040 F_tracer_10 = .TRUE. IF ( chem_index_table( PARAM_tracer_11 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_11 = chem_num_table(idomain) chem_index_table( PARAM_tracer_11 , idomain ) = P_tracer_11 ELSE P_tracer_11 = chem_index_table( PARAM_tracer_11 , idomain ) END IF chem_boundary_table( idomain, P_tracer_11 ) = .TRUE. chem_dname_table( idomain, P_tracer_11 ) = 'tracer_11' chem_desc_table( idomain, P_tracer_11 ) = 'tracer11 mix ratio' chem_units_table( idomain, P_tracer_11 ) = 'ppmv' chem_streams_table( idomain, P_tracer_11 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_11 )%stream(2) = 2097216 ! 00200040 F_tracer_11 = .TRUE. IF ( chem_index_table( PARAM_tracer_12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_12 = chem_num_table(idomain) chem_index_table( PARAM_tracer_12 , idomain ) = P_tracer_12 ELSE P_tracer_12 = chem_index_table( PARAM_tracer_12 , idomain ) END IF chem_boundary_table( idomain, P_tracer_12 ) = .TRUE. chem_dname_table( idomain, P_tracer_12 ) = 'tracer_12' chem_desc_table( idomain, P_tracer_12 ) = 'tracer12 mix ratio' chem_units_table( idomain, P_tracer_12 ) = 'ppmv' chem_streams_table( idomain, P_tracer_12 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_12 )%stream(2) = 2097216 ! 00200040 F_tracer_12 = .TRUE. IF ( chem_index_table( PARAM_tracer_13 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_13 = chem_num_table(idomain) chem_index_table( PARAM_tracer_13 , idomain ) = P_tracer_13 ELSE P_tracer_13 = chem_index_table( PARAM_tracer_13 , idomain ) END IF chem_boundary_table( idomain, P_tracer_13 ) = .TRUE. chem_dname_table( idomain, P_tracer_13 ) = 'tracer_13' chem_desc_table( idomain, P_tracer_13 ) = 'tracer13 mix ratio' chem_units_table( idomain, P_tracer_13 ) = 'ppmv' chem_streams_table( idomain, P_tracer_13 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_13 )%stream(2) = 2097216 ! 00200040 F_tracer_13 = .TRUE. IF ( chem_index_table( PARAM_tracer_14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_14 = chem_num_table(idomain) chem_index_table( PARAM_tracer_14 , idomain ) = P_tracer_14 ELSE P_tracer_14 = chem_index_table( PARAM_tracer_14 , idomain ) END IF chem_boundary_table( idomain, P_tracer_14 ) = .TRUE. chem_dname_table( idomain, P_tracer_14 ) = 'tracer_14' chem_desc_table( idomain, P_tracer_14 ) = 'tracer14 mix ratio' chem_units_table( idomain, P_tracer_14 ) = 'ppmv' chem_streams_table( idomain, P_tracer_14 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_14 )%stream(2) = 2097216 ! 00200040 F_tracer_14 = .TRUE. IF ( chem_index_table( PARAM_tracer_15 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_15 = chem_num_table(idomain) chem_index_table( PARAM_tracer_15 , idomain ) = P_tracer_15 ELSE P_tracer_15 = chem_index_table( PARAM_tracer_15 , idomain ) END IF chem_boundary_table( idomain, P_tracer_15 ) = .TRUE. chem_dname_table( idomain, P_tracer_15 ) = 'tracer_15' chem_desc_table( idomain, P_tracer_15 ) = 'tracer15 mix ratio' chem_units_table( idomain, P_tracer_15 ) = 'ppmv' chem_streams_table( idomain, P_tracer_15 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_15 )%stream(2) = 2097216 ! 00200040 F_tracer_15 = .TRUE. IF ( chem_index_table( PARAM_tracer_16 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_16 = chem_num_table(idomain) chem_index_table( PARAM_tracer_16 , idomain ) = P_tracer_16 ELSE P_tracer_16 = chem_index_table( PARAM_tracer_16 , idomain ) END IF chem_boundary_table( idomain, P_tracer_16 ) = .TRUE. chem_dname_table( idomain, P_tracer_16 ) = 'tracer_16' chem_desc_table( idomain, P_tracer_16 ) = 'tracer16 mix ratio' chem_units_table( idomain, P_tracer_16 ) = 'ppmv' chem_streams_table( idomain, P_tracer_16 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_16 )%stream(2) = 2097216 ! 00200040 F_tracer_16 = .TRUE. IF ( chem_index_table( PARAM_tracer_17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_17 = chem_num_table(idomain) chem_index_table( PARAM_tracer_17 , idomain ) = P_tracer_17 ELSE P_tracer_17 = chem_index_table( PARAM_tracer_17 , idomain ) END IF chem_boundary_table( idomain, P_tracer_17 ) = .TRUE. chem_dname_table( idomain, P_tracer_17 ) = 'tracer_17' chem_desc_table( idomain, P_tracer_17 ) = 'tracer17 mix ratio' chem_units_table( idomain, P_tracer_17 ) = 'ppmv' chem_streams_table( idomain, P_tracer_17 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_17 )%stream(2) = 2097216 ! 00200040 F_tracer_17 = .TRUE. IF ( chem_index_table( PARAM_tracer_18 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_18 = chem_num_table(idomain) chem_index_table( PARAM_tracer_18 , idomain ) = P_tracer_18 ELSE P_tracer_18 = chem_index_table( PARAM_tracer_18 , idomain ) END IF chem_boundary_table( idomain, P_tracer_18 ) = .TRUE. chem_dname_table( idomain, P_tracer_18 ) = 'tracer_18' chem_desc_table( idomain, P_tracer_18 ) = 'tracer18 mix ratio' chem_units_table( idomain, P_tracer_18 ) = 'ppmv' chem_streams_table( idomain, P_tracer_18 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_18 )%stream(2) = 2097216 ! 00200040 F_tracer_18 = .TRUE. IF ( chem_index_table( PARAM_tracer_19 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_19 = chem_num_table(idomain) chem_index_table( PARAM_tracer_19 , idomain ) = P_tracer_19 ELSE P_tracer_19 = chem_index_table( PARAM_tracer_19 , idomain ) END IF chem_boundary_table( idomain, P_tracer_19 ) = .TRUE. chem_dname_table( idomain, P_tracer_19 ) = 'tracer_19' chem_desc_table( idomain, P_tracer_19 ) = 'tracer19 mix ratio' chem_units_table( idomain, P_tracer_19 ) = 'ppmv' chem_streams_table( idomain, P_tracer_19 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_19 )%stream(2) = 2097216 ! 00200040 F_tracer_19 = .TRUE. IF ( chem_index_table( PARAM_tracer_20 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_20 = chem_num_table(idomain) chem_index_table( PARAM_tracer_20 , idomain ) = P_tracer_20 ELSE P_tracer_20 = chem_index_table( PARAM_tracer_20 , idomain ) END IF chem_boundary_table( idomain, P_tracer_20 ) = .TRUE. chem_dname_table( idomain, P_tracer_20 ) = 'tracer_20' chem_desc_table( idomain, P_tracer_20 ) = 'tracer20 mix ratio' chem_units_table( idomain, P_tracer_20 ) = 'ppmv' chem_streams_table( idomain, P_tracer_20 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_20 )%stream(2) = 2097216 ! 00200040 F_tracer_20 = .TRUE. IF ( chem_index_table( PARAM_tracer_ens , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_ens = chem_num_table(idomain) chem_index_table( PARAM_tracer_ens , idomain ) = P_tracer_ens ELSE P_tracer_ens = chem_index_table( PARAM_tracer_ens , idomain ) END IF chem_boundary_table( idomain, P_tracer_ens ) = .TRUE. chem_dname_table( idomain, P_tracer_ens ) = 'tracer_ens' chem_desc_table( idomain, P_tracer_ens ) = 'tracer- ensemble average mix ratio' chem_units_table( idomain, P_tracer_ens ) = 'ppmv' chem_streams_table( idomain, P_tracer_ens )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tracer_ens )%stream(2) = 2097216 ! 00200040 F_tracer_ens = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==16)THEN IF ( chem_index_table( PARAM_co2_ant , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_ant = chem_num_table(idomain) chem_index_table( PARAM_co2_ant , idomain ) = P_co2_ant ELSE P_co2_ant = chem_index_table( PARAM_co2_ant , idomain ) END IF chem_boundary_table( idomain, P_co2_ant ) = .TRUE. chem_dname_table( idomain, P_co2_ant ) = 'CO2_ANT' chem_desc_table( idomain, P_co2_ant ) = 'mixing ratio of anthropogenic CO2' chem_units_table( idomain, P_co2_ant ) = 'ppmv' chem_streams_table( idomain, P_co2_ant )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2_ant )%stream(2) = 2097216 ! 00200040 F_co2_ant = .TRUE. IF ( chem_index_table( PARAM_co2_bio , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_bio = chem_num_table(idomain) chem_index_table( PARAM_co2_bio , idomain ) = P_co2_bio ELSE P_co2_bio = chem_index_table( PARAM_co2_bio , idomain ) END IF chem_boundary_table( idomain, P_co2_bio ) = .TRUE. chem_dname_table( idomain, P_co2_bio ) = 'CO2_BIO' chem_desc_table( idomain, P_co2_bio ) = 'mixing ratio of VPRM CO2' chem_units_table( idomain, P_co2_bio ) = 'ppmv' chem_streams_table( idomain, P_co2_bio )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2_bio )%stream(2) = 2097216 ! 00200040 F_co2_bio = .TRUE. IF ( chem_index_table( PARAM_co2_oce , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_oce = chem_num_table(idomain) chem_index_table( PARAM_co2_oce , idomain ) = P_co2_oce ELSE P_co2_oce = chem_index_table( PARAM_co2_oce , idomain ) END IF chem_boundary_table( idomain, P_co2_oce ) = .TRUE. chem_dname_table( idomain, P_co2_oce ) = 'CO2_OCE' chem_desc_table( idomain, P_co2_oce ) = 'mixing ratio of ocean CO2' chem_units_table( idomain, P_co2_oce ) = 'ppmv' chem_streams_table( idomain, P_co2_oce )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2_oce )%stream(2) = 2097216 ! 00200040 F_co2_oce = .TRUE. IF ( chem_index_table( PARAM_co2_bck , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_bck = chem_num_table(idomain) chem_index_table( PARAM_co2_bck , idomain ) = P_co2_bck ELSE P_co2_bck = chem_index_table( PARAM_co2_bck , idomain ) END IF chem_boundary_table( idomain, P_co2_bck ) = .TRUE. chem_dname_table( idomain, P_co2_bck ) = 'CO2_BCK' chem_desc_table( idomain, P_co2_bck ) = 'mixing ratio of background CO2' chem_units_table( idomain, P_co2_bck ) = 'ppmv' chem_streams_table( idomain, P_co2_bck )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2_bck )%stream(2) = 2097216 ! 00200040 F_co2_bck = .TRUE. IF ( chem_index_table( PARAM_co2_tst , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_tst = chem_num_table(idomain) chem_index_table( PARAM_co2_tst , idomain ) = P_co2_tst ELSE P_co2_tst = chem_index_table( PARAM_co2_tst , idomain ) END IF chem_boundary_table( idomain, P_co2_tst ) = .TRUE. chem_dname_table( idomain, P_co2_tst ) = 'CO2_TST' chem_desc_table( idomain, P_co2_tst ) = 'mixing ratio of CO2, anthropogenic test fluxes' chem_units_table( idomain, P_co2_tst ) = 'ppmv' chem_streams_table( idomain, P_co2_tst )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2_tst )%stream(2) = 2097216 ! 00200040 F_co2_tst = .TRUE. IF ( chem_index_table( PARAM_co_ant , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co_ant = chem_num_table(idomain) chem_index_table( PARAM_co_ant , idomain ) = P_co_ant ELSE P_co_ant = chem_index_table( PARAM_co_ant , idomain ) END IF chem_boundary_table( idomain, P_co_ant ) = .TRUE. chem_dname_table( idomain, P_co_ant ) = 'CO_ANT' chem_desc_table( idomain, P_co_ant ) = 'mixing ratio of anthropogenic CO' chem_units_table( idomain, P_co_ant ) = 'ppmv' chem_streams_table( idomain, P_co_ant )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co_ant )%stream(2) = 2097216 ! 00200040 F_co_ant = .TRUE. IF ( chem_index_table( PARAM_co_bck , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co_bck = chem_num_table(idomain) chem_index_table( PARAM_co_bck , idomain ) = P_co_bck ELSE P_co_bck = chem_index_table( PARAM_co_bck , idomain ) END IF chem_boundary_table( idomain, P_co_bck ) = .TRUE. chem_dname_table( idomain, P_co_bck ) = 'CO_BCK' chem_desc_table( idomain, P_co_bck ) = 'mixing ratio of background CO' chem_units_table( idomain, P_co_bck ) = 'ppmv' chem_streams_table( idomain, P_co_bck )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co_bck )%stream(2) = 2097216 ! 00200040 F_co_bck = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==17)THEN IF ( chem_index_table( PARAM_co2_ant , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_ant = chem_num_table(idomain) chem_index_table( PARAM_co2_ant , idomain ) = P_co2_ant ELSE P_co2_ant = chem_index_table( PARAM_co2_ant , idomain ) END IF chem_boundary_table( idomain, P_co2_ant ) = .TRUE. chem_dname_table( idomain, P_co2_ant ) = 'CO2_ANT' chem_desc_table( idomain, P_co2_ant ) = 'mixing ratio of anthropogenic CO2' chem_units_table( idomain, P_co2_ant ) = 'ppmv' chem_streams_table( idomain, P_co2_ant )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2_ant )%stream(2) = 2097216 ! 00200040 F_co2_ant = .TRUE. IF ( chem_index_table( PARAM_co2_bio , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_bio = chem_num_table(idomain) chem_index_table( PARAM_co2_bio , idomain ) = P_co2_bio ELSE P_co2_bio = chem_index_table( PARAM_co2_bio , idomain ) END IF chem_boundary_table( idomain, P_co2_bio ) = .TRUE. chem_dname_table( idomain, P_co2_bio ) = 'CO2_BIO' chem_desc_table( idomain, P_co2_bio ) = 'mixing ratio of VPRM CO2' chem_units_table( idomain, P_co2_bio ) = 'ppmv' chem_streams_table( idomain, P_co2_bio )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2_bio )%stream(2) = 2097216 ! 00200040 F_co2_bio = .TRUE. IF ( chem_index_table( PARAM_co2_oce , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_oce = chem_num_table(idomain) chem_index_table( PARAM_co2_oce , idomain ) = P_co2_oce ELSE P_co2_oce = chem_index_table( PARAM_co2_oce , idomain ) END IF chem_boundary_table( idomain, P_co2_oce ) = .TRUE. chem_dname_table( idomain, P_co2_oce ) = 'CO2_OCE' chem_desc_table( idomain, P_co2_oce ) = 'mixing ratio of ocean CO2' chem_units_table( idomain, P_co2_oce ) = 'ppmv' chem_streams_table( idomain, P_co2_oce )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2_oce )%stream(2) = 2097216 ! 00200040 F_co2_oce = .TRUE. IF ( chem_index_table( PARAM_co2_bck , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_bck = chem_num_table(idomain) chem_index_table( PARAM_co2_bck , idomain ) = P_co2_bck ELSE P_co2_bck = chem_index_table( PARAM_co2_bck , idomain ) END IF chem_boundary_table( idomain, P_co2_bck ) = .TRUE. chem_dname_table( idomain, P_co2_bck ) = 'CO2_BCK' chem_desc_table( idomain, P_co2_bck ) = 'mixing ratio of background CO2' chem_units_table( idomain, P_co2_bck ) = 'ppmv' chem_streams_table( idomain, P_co2_bck )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2_bck )%stream(2) = 2097216 ! 00200040 F_co2_bck = .TRUE. IF ( chem_index_table( PARAM_co2_tst , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_tst = chem_num_table(idomain) chem_index_table( PARAM_co2_tst , idomain ) = P_co2_tst ELSE P_co2_tst = chem_index_table( PARAM_co2_tst , idomain ) END IF chem_boundary_table( idomain, P_co2_tst ) = .TRUE. chem_dname_table( idomain, P_co2_tst ) = 'CO2_TST' chem_desc_table( idomain, P_co2_tst ) = 'mixing ratio of CO2, anthropogenic test fluxes' chem_units_table( idomain, P_co2_tst ) = 'ppmv' chem_streams_table( idomain, P_co2_tst )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2_tst )%stream(2) = 2097216 ! 00200040 F_co2_tst = .TRUE. IF ( chem_index_table( PARAM_co2_bbu , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_bbu = chem_num_table(idomain) chem_index_table( PARAM_co2_bbu , idomain ) = P_co2_bbu ELSE P_co2_bbu = chem_index_table( PARAM_co2_bbu , idomain ) END IF chem_boundary_table( idomain, P_co2_bbu ) = .TRUE. chem_dname_table( idomain, P_co2_bbu ) = 'CO2_BBU' chem_desc_table( idomain, P_co2_bbu ) = 'mixing ratio of biomass burning CO2' chem_units_table( idomain, P_co2_bbu ) = 'ppmv' chem_streams_table( idomain, P_co2_bbu )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2_bbu )%stream(2) = 2097216 ! 00200040 F_co2_bbu = .TRUE. IF ( chem_index_table( PARAM_co_ant , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co_ant = chem_num_table(idomain) chem_index_table( PARAM_co_ant , idomain ) = P_co_ant ELSE P_co_ant = chem_index_table( PARAM_co_ant , idomain ) END IF chem_boundary_table( idomain, P_co_ant ) = .TRUE. chem_dname_table( idomain, P_co_ant ) = 'CO_ANT' chem_desc_table( idomain, P_co_ant ) = 'mixing ratio of anthropogenic CO' chem_units_table( idomain, P_co_ant ) = 'ppmv' chem_streams_table( idomain, P_co_ant )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co_ant )%stream(2) = 2097216 ! 00200040 F_co_ant = .TRUE. IF ( chem_index_table( PARAM_co_bck , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co_bck = chem_num_table(idomain) chem_index_table( PARAM_co_bck , idomain ) = P_co_bck ELSE P_co_bck = chem_index_table( PARAM_co_bck , idomain ) END IF chem_boundary_table( idomain, P_co_bck ) = .TRUE. chem_dname_table( idomain, P_co_bck ) = 'CO_BCK' chem_desc_table( idomain, P_co_bck ) = 'mixing ratio of background CO' chem_units_table( idomain, P_co_bck ) = 'ppmv' chem_streams_table( idomain, P_co_bck )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co_bck )%stream(2) = 2097216 ! 00200040 F_co_bck = .TRUE. IF ( chem_index_table( PARAM_co_bbu , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co_bbu = chem_num_table(idomain) chem_index_table( PARAM_co_bbu , idomain ) = P_co_bbu ELSE P_co_bbu = chem_index_table( PARAM_co_bbu , idomain ) END IF chem_boundary_table( idomain, P_co_bbu ) = .TRUE. chem_dname_table( idomain, P_co_bbu ) = 'CO_BBU' chem_desc_table( idomain, P_co_bbu ) = 'mixing ratio of biomass burning CO' chem_units_table( idomain, P_co_bbu ) = 'ppmv' chem_streams_table( idomain, P_co_bbu )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co_bbu )%stream(2) = 2097216 ! 00200040 F_co_bbu = .TRUE. IF ( chem_index_table( PARAM_co_tst , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co_tst = chem_num_table(idomain) chem_index_table( PARAM_co_tst , idomain ) = P_co_tst ELSE P_co_tst = chem_index_table( PARAM_co_tst , idomain ) END IF chem_boundary_table( idomain, P_co_tst ) = .TRUE. chem_dname_table( idomain, P_co_tst ) = 'CO_TST' chem_desc_table( idomain, P_co_tst ) = 'mixing ratio of CO, test fluxes' chem_units_table( idomain, P_co_tst ) = 'ppmv' chem_streams_table( idomain, P_co_tst )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co_tst )%stream(2) = 2097216 ! 00200040 F_co_tst = .TRUE. IF ( chem_index_table( PARAM_ch4_ant , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4_ant = chem_num_table(idomain) chem_index_table( PARAM_ch4_ant , idomain ) = P_ch4_ant ELSE P_ch4_ant = chem_index_table( PARAM_ch4_ant , idomain ) END IF chem_boundary_table( idomain, P_ch4_ant ) = .TRUE. chem_dname_table( idomain, P_ch4_ant ) = 'CH4_ANT' chem_desc_table( idomain, P_ch4_ant ) = 'mixing ratio of anthropogenic CH4' chem_units_table( idomain, P_ch4_ant ) = 'ppmv' chem_streams_table( idomain, P_ch4_ant )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4_ant )%stream(2) = 2097216 ! 00200040 F_ch4_ant = .TRUE. IF ( chem_index_table( PARAM_ch4_bio , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4_bio = chem_num_table(idomain) chem_index_table( PARAM_ch4_bio , idomain ) = P_ch4_bio ELSE P_ch4_bio = chem_index_table( PARAM_ch4_bio , idomain ) END IF chem_boundary_table( idomain, P_ch4_bio ) = .TRUE. chem_dname_table( idomain, P_ch4_bio ) = 'CH4_BIO' chem_desc_table( idomain, P_ch4_bio ) = 'mixing ratio of natural biogenic CH4' chem_units_table( idomain, P_ch4_bio ) = 'ppmv' chem_streams_table( idomain, P_ch4_bio )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4_bio )%stream(2) = 2097216 ! 00200040 F_ch4_bio = .TRUE. IF ( chem_index_table( PARAM_ch4_bck , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4_bck = chem_num_table(idomain) chem_index_table( PARAM_ch4_bck , idomain ) = P_ch4_bck ELSE P_ch4_bck = chem_index_table( PARAM_ch4_bck , idomain ) END IF chem_boundary_table( idomain, P_ch4_bck ) = .TRUE. chem_dname_table( idomain, P_ch4_bck ) = 'CH4_BCK' chem_desc_table( idomain, P_ch4_bck ) = 'mixing ratio of background CH4' chem_units_table( idomain, P_ch4_bck ) = 'ppmv' chem_streams_table( idomain, P_ch4_bck )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4_bck )%stream(2) = 2097216 ! 00200040 F_ch4_bck = .TRUE. IF ( chem_index_table( PARAM_ch4_bbu , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4_bbu = chem_num_table(idomain) chem_index_table( PARAM_ch4_bbu , idomain ) = P_ch4_bbu ELSE P_ch4_bbu = chem_index_table( PARAM_ch4_bbu , idomain ) END IF chem_boundary_table( idomain, P_ch4_bbu ) = .TRUE. chem_dname_table( idomain, P_ch4_bbu ) = 'CH4_BBU' chem_desc_table( idomain, P_ch4_bbu ) = 'mixing ratio of biomass burning CH4' chem_units_table( idomain, P_ch4_bbu ) = 'ppmv' chem_streams_table( idomain, P_ch4_bbu )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4_bbu )%stream(2) = 2097216 ! 00200040 F_ch4_bbu = .TRUE. IF ( chem_index_table( PARAM_ch4_tst , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4_tst = chem_num_table(idomain) chem_index_table( PARAM_ch4_tst , idomain ) = P_ch4_tst ELSE P_ch4_tst = chem_index_table( PARAM_ch4_tst , idomain ) END IF chem_boundary_table( idomain, P_ch4_tst ) = .TRUE. chem_dname_table( idomain, P_ch4_tst ) = 'CH4_TST' chem_desc_table( idomain, P_ch4_tst ) = 'mixing ratio of CH4, test fluxes' chem_units_table( idomain, P_ch4_tst ) = 'ppmv' chem_streams_table( idomain, P_ch4_tst )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4_tst )%stream(2) = 2097216 ! 00200040 F_ch4_tst = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==30)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 ! 00200040 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 ! 00200040 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 ! 00200040 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 ! 00200040 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 ! 00200040 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 ! 00200040 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 ! 00200040 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 ! 00200040 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 ! 00200040 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 ! 00200040 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 ! 00200040 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 ! 00200040 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 ! 00200040 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 ! 00200040 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 ! 00200040 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 ! 00200040 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 ! 00200040 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 ! 00200040 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 ! 00200040 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 ! 00200040 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 ! 00200040 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 ! 00200040 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 ! 00200040 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 ! 00200040 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 ! 00200040 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 ! 00200040 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 ! 00200040 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 ! 00200040 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 ! 00200040 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 ! 00200040 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 ! 00200040 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 ! 00200040 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 ! 00200040 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 ! 00200040 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 ! 00200040 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 ! 00200040 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 ! 00200040 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 ! 00200040 F_corn = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==31)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 ! 00200040 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 ! 00200040 F_msa = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 ! 00200040 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 ! 00200040 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3so2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2h = chem_num_table(idomain) chem_index_table( PARAM_ch3so2h , idomain ) = P_ch3so2h ELSE P_ch3so2h = chem_index_table( PARAM_ch3so2h , idomain ) END IF chem_boundary_table( idomain, P_ch3so2h ) = .TRUE. chem_dname_table( idomain, P_ch3so2h ) = 'ch3so2h' chem_desc_table( idomain, P_ch3so2h ) = 'CH3SO2H mixing ratio' chem_units_table( idomain, P_ch3so2h ) = 'ppmv' chem_streams_table( idomain, P_ch3so2h )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2h )%stream(2) = 2097216 ! 00200040 F_ch3so2h = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 ! 00200040 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 ! 00200040 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 ! 00200040 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_ch3so2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2oo , idomain ) = P_ch3so2oo ELSE P_ch3so2oo = chem_index_table( PARAM_ch3so2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2oo ) = 'ch3so2oo' chem_desc_table( idomain, P_ch3so2oo ) = 'CH3SO2OO mixing ratio' chem_units_table( idomain, P_ch3so2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2oo )%stream(2) = 2097216 ! 00200040 F_ch3so2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2ch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2ch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2ch2oo , idomain ) = P_ch3so2ch2oo ELSE P_ch3so2ch2oo = chem_index_table( PARAM_ch3so2ch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2ch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2ch2oo ) = 'ch3so2ch2oo' chem_desc_table( idomain, P_ch3so2ch2oo ) = 'CH3SO2CH2OO mixing ratio' chem_units_table( idomain, P_ch3so2ch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2ch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2ch2oo )%stream(2) = 2097216 ! 00200040 F_ch3so2ch2oo = .TRUE. IF ( chem_index_table( PARAM_mtf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mtf = chem_num_table(idomain) chem_index_table( PARAM_mtf , idomain ) = P_mtf ELSE P_mtf = chem_index_table( PARAM_mtf , idomain ) END IF chem_boundary_table( idomain, P_mtf ) = .TRUE. chem_dname_table( idomain, P_mtf ) = 'mtf' chem_desc_table( idomain, P_mtf ) = 'MTF mixing ratio' chem_units_table( idomain, P_mtf ) = 'ppmv' chem_streams_table( idomain, P_mtf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mtf )%stream(2) = 2097216 ! 00200040 F_mtf = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 ! 00200040 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 ! 00200040 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 ! 00200040 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 ! 00200040 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 ! 00200040 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 ! 00200040 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 ! 00200040 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 ! 00200040 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 ! 00200040 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 ! 00200040 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 ! 00200040 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 ! 00200040 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 ! 00200040 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 ! 00200040 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 ! 00200040 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 ! 00200040 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 ! 00200040 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 ! 00200040 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 ! 00200040 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 ! 00200040 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 ! 00200040 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 ! 00200040 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 ! 00200040 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 ! 00200040 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 ! 00200040 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 ! 00200040 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 ! 00200040 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 ! 00200040 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 ! 00200040 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 ! 00200040 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 ! 00200040 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 ! 00200040 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 ! 00200040 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 ! 00200040 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 ! 00200040 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 ! 00200040 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 ! 00200040 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 ! 00200040 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 ! 00200040 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 ! 00200040 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 ! 00200040 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 ! 00200040 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 ! 00200040 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 ! 00200040 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 ! 00200040 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 ! 00200040 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 ! 00200040 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 ! 00200040 F_co3_a04 = .TRUE. IF ( chem_index_table( PARAM_msa_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a01 = chem_num_table(idomain) chem_index_table( PARAM_msa_a01 , idomain ) = P_msa_a01 ELSE P_msa_a01 = chem_index_table( PARAM_msa_a01 , idomain ) END IF chem_boundary_table( idomain, P_msa_a01 ) = .TRUE. chem_dname_table( idomain, P_msa_a01 ) = 'msa_a01' chem_desc_table( idomain, P_msa_a01 ) = 'MSA, aerosol bin 01' chem_units_table( idomain, P_msa_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a01 )%stream(2) = 2097216 ! 00200040 F_msa_a01 = .TRUE. IF ( chem_index_table( PARAM_msa_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a02 = chem_num_table(idomain) chem_index_table( PARAM_msa_a02 , idomain ) = P_msa_a02 ELSE P_msa_a02 = chem_index_table( PARAM_msa_a02 , idomain ) END IF chem_boundary_table( idomain, P_msa_a02 ) = .TRUE. chem_dname_table( idomain, P_msa_a02 ) = 'msa_a02' chem_desc_table( idomain, P_msa_a02 ) = 'MSA, aerosol bin 02' chem_units_table( idomain, P_msa_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a02 )%stream(2) = 2097216 ! 00200040 F_msa_a02 = .TRUE. IF ( chem_index_table( PARAM_msa_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a03 = chem_num_table(idomain) chem_index_table( PARAM_msa_a03 , idomain ) = P_msa_a03 ELSE P_msa_a03 = chem_index_table( PARAM_msa_a03 , idomain ) END IF chem_boundary_table( idomain, P_msa_a03 ) = .TRUE. chem_dname_table( idomain, P_msa_a03 ) = 'msa_a03' chem_desc_table( idomain, P_msa_a03 ) = 'MSA, aerosol bin 03' chem_units_table( idomain, P_msa_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a03 )%stream(2) = 2097216 ! 00200040 F_msa_a03 = .TRUE. IF ( chem_index_table( PARAM_msa_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a04 = chem_num_table(idomain) chem_index_table( PARAM_msa_a04 , idomain ) = P_msa_a04 ELSE P_msa_a04 = chem_index_table( PARAM_msa_a04 , idomain ) END IF chem_boundary_table( idomain, P_msa_a04 ) = .TRUE. chem_dname_table( idomain, P_msa_a04 ) = 'msa_a04' chem_desc_table( idomain, P_msa_a04 ) = 'MSA, aerosol bin 04' chem_units_table( idomain, P_msa_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a04 )%stream(2) = 2097216 ! 00200040 F_msa_a04 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==32)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 ! 00200040 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 ! 00200040 F_msa = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 ! 00200040 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 ! 00200040 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3so2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2h = chem_num_table(idomain) chem_index_table( PARAM_ch3so2h , idomain ) = P_ch3so2h ELSE P_ch3so2h = chem_index_table( PARAM_ch3so2h , idomain ) END IF chem_boundary_table( idomain, P_ch3so2h ) = .TRUE. chem_dname_table( idomain, P_ch3so2h ) = 'ch3so2h' chem_desc_table( idomain, P_ch3so2h ) = 'CH3SO2H mixing ratio' chem_units_table( idomain, P_ch3so2h ) = 'ppmv' chem_streams_table( idomain, P_ch3so2h )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2h )%stream(2) = 2097216 ! 00200040 F_ch3so2h = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 ! 00200040 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 ! 00200040 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 ! 00200040 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_ch3so2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2oo , idomain ) = P_ch3so2oo ELSE P_ch3so2oo = chem_index_table( PARAM_ch3so2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2oo ) = 'ch3so2oo' chem_desc_table( idomain, P_ch3so2oo ) = 'CH3SO2OO mixing ratio' chem_units_table( idomain, P_ch3so2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2oo )%stream(2) = 2097216 ! 00200040 F_ch3so2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2ch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2ch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2ch2oo , idomain ) = P_ch3so2ch2oo ELSE P_ch3so2ch2oo = chem_index_table( PARAM_ch3so2ch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2ch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2ch2oo ) = 'ch3so2ch2oo' chem_desc_table( idomain, P_ch3so2ch2oo ) = 'CH3SO2CH2OO mixing ratio' chem_units_table( idomain, P_ch3so2ch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2ch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2ch2oo )%stream(2) = 2097216 ! 00200040 F_ch3so2ch2oo = .TRUE. IF ( chem_index_table( PARAM_mtf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mtf = chem_num_table(idomain) chem_index_table( PARAM_mtf , idomain ) = P_mtf ELSE P_mtf = chem_index_table( PARAM_mtf , idomain ) END IF chem_boundary_table( idomain, P_mtf ) = .TRUE. chem_dname_table( idomain, P_mtf ) = 'mtf' chem_desc_table( idomain, P_mtf ) = 'MTF mixing ratio' chem_units_table( idomain, P_mtf ) = 'ppmv' chem_streams_table( idomain, P_mtf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mtf )%stream(2) = 2097216 ! 00200040 F_mtf = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 ! 00200040 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 ! 00200040 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 ! 00200040 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 ! 00200040 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 ! 00200040 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 ! 00200040 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 ! 00200040 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 ! 00200040 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 ! 00200040 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 ! 00200040 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 ! 00200040 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 ! 00200040 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 ! 00200040 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 ! 00200040 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 ! 00200040 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 ! 00200040 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 ! 00200040 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 ! 00200040 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 ! 00200040 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 ! 00200040 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 ! 00200040 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 ! 00200040 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 ! 00200040 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 ! 00200040 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 ! 00200040 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 ! 00200040 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 ! 00200040 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 ! 00200040 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 ! 00200040 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 ! 00200040 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 ! 00200040 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 ! 00200040 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 ! 00200040 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 ! 00200040 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 ! 00200040 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 ! 00200040 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 ! 00200040 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 ! 00200040 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 ! 00200040 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 ! 00200040 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 ! 00200040 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 ! 00200040 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 ! 00200040 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 ! 00200040 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 ! 00200040 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 ! 00200040 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 ! 00200040 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 ! 00200040 F_co3_a04 = .TRUE. IF ( chem_index_table( PARAM_msa_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a01 = chem_num_table(idomain) chem_index_table( PARAM_msa_a01 , idomain ) = P_msa_a01 ELSE P_msa_a01 = chem_index_table( PARAM_msa_a01 , idomain ) END IF chem_boundary_table( idomain, P_msa_a01 ) = .TRUE. chem_dname_table( idomain, P_msa_a01 ) = 'msa_a01' chem_desc_table( idomain, P_msa_a01 ) = 'MSA, aerosol bin 01' chem_units_table( idomain, P_msa_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a01 )%stream(2) = 2097216 ! 00200040 F_msa_a01 = .TRUE. IF ( chem_index_table( PARAM_msa_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a02 = chem_num_table(idomain) chem_index_table( PARAM_msa_a02 , idomain ) = P_msa_a02 ELSE P_msa_a02 = chem_index_table( PARAM_msa_a02 , idomain ) END IF chem_boundary_table( idomain, P_msa_a02 ) = .TRUE. chem_dname_table( idomain, P_msa_a02 ) = 'msa_a02' chem_desc_table( idomain, P_msa_a02 ) = 'MSA, aerosol bin 02' chem_units_table( idomain, P_msa_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a02 )%stream(2) = 2097216 ! 00200040 F_msa_a02 = .TRUE. IF ( chem_index_table( PARAM_msa_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a03 = chem_num_table(idomain) chem_index_table( PARAM_msa_a03 , idomain ) = P_msa_a03 ELSE P_msa_a03 = chem_index_table( PARAM_msa_a03 , idomain ) END IF chem_boundary_table( idomain, P_msa_a03 ) = .TRUE. chem_dname_table( idomain, P_msa_a03 ) = 'msa_a03' chem_desc_table( idomain, P_msa_a03 ) = 'MSA, aerosol bin 03' chem_units_table( idomain, P_msa_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a03 )%stream(2) = 2097216 ! 00200040 F_msa_a03 = .TRUE. IF ( chem_index_table( PARAM_msa_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a04 = chem_num_table(idomain) chem_index_table( PARAM_msa_a04 , idomain ) = P_msa_a04 ELSE P_msa_a04 = chem_index_table( PARAM_msa_a04 , idomain ) END IF chem_boundary_table( idomain, P_msa_a04 ) = .TRUE. chem_dname_table( idomain, P_msa_a04 ) = 'msa_a04' chem_desc_table( idomain, P_msa_a04 ) = 'MSA, aerosol bin 04' chem_units_table( idomain, P_msa_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a04 )%stream(2) = 2097216 ! 00200040 F_msa_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw01 , idomain ) = P_so4_cw01 ELSE P_so4_cw01 = chem_index_table( PARAM_so4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw01 ) = .TRUE. chem_dname_table( idomain, P_so4_cw01 ) = 'so4_cw01' chem_desc_table( idomain, P_so4_cw01 ) = 'Sulfate, aerosol in cloud bin 01' chem_units_table( idomain, P_so4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw01 )%stream(2) = 2097216 ! 00200040 F_so4_cw01 = .TRUE. IF ( chem_index_table( PARAM_no3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw01 , idomain ) = P_no3_cw01 ELSE P_no3_cw01 = chem_index_table( PARAM_no3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw01 ) = .TRUE. chem_dname_table( idomain, P_no3_cw01 ) = 'no3_cw01' chem_desc_table( idomain, P_no3_cw01 ) = 'Nitrate, aerosol in cloud bin 01' chem_units_table( idomain, P_no3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw01 )%stream(2) = 2097216 ! 00200040 F_no3_cw01 = .TRUE. IF ( chem_index_table( PARAM_cl_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw01 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw01 , idomain ) = P_cl_cw01 ELSE P_cl_cw01 = chem_index_table( PARAM_cl_cw01 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw01 ) = .TRUE. chem_dname_table( idomain, P_cl_cw01 ) = 'cl_cw01' chem_desc_table( idomain, P_cl_cw01 ) = 'Chloride, aerosol in cloud bin 01' chem_units_table( idomain, P_cl_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw01 )%stream(2) = 2097216 ! 00200040 F_cl_cw01 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw01 , idomain ) = P_nh4_cw01 ELSE P_nh4_cw01 = chem_index_table( PARAM_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw01 ) = 'nh4_cw01' chem_desc_table( idomain, P_nh4_cw01 ) = 'Ammonium, aerosol in cloud bin 01' chem_units_table( idomain, P_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw01 )%stream(2) = 2097216 ! 00200040 F_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_na_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw01 = chem_num_table(idomain) chem_index_table( PARAM_na_cw01 , idomain ) = P_na_cw01 ELSE P_na_cw01 = chem_index_table( PARAM_na_cw01 , idomain ) END IF chem_boundary_table( idomain, P_na_cw01 ) = .TRUE. chem_dname_table( idomain, P_na_cw01 ) = 'na_cw01' chem_desc_table( idomain, P_na_cw01 ) = 'Sodium, aerosol in cloud bin 01' chem_units_table( idomain, P_na_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw01 )%stream(2) = 2097216 ! 00200040 F_na_cw01 = .TRUE. IF ( chem_index_table( PARAM_oin_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw01 , idomain ) = P_oin_cw01 ELSE P_oin_cw01 = chem_index_table( PARAM_oin_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw01 ) = .TRUE. chem_dname_table( idomain, P_oin_cw01 ) = 'oin_cw01' chem_desc_table( idomain, P_oin_cw01 ) = 'Other inorganics, aerosol in cloud bin 01' chem_units_table( idomain, P_oin_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw01 )%stream(2) = 2097216 ! 00200040 F_oin_cw01 = .TRUE. IF ( chem_index_table( PARAM_oc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw01 , idomain ) = P_oc_cw01 ELSE P_oc_cw01 = chem_index_table( PARAM_oc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw01 ) = .TRUE. chem_dname_table( idomain, P_oc_cw01 ) = 'oc_cw01' chem_desc_table( idomain, P_oc_cw01 ) = 'Organic carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_oc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw01 )%stream(2) = 2097216 ! 00200040 F_oc_cw01 = .TRUE. IF ( chem_index_table( PARAM_bc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw01 , idomain ) = P_bc_cw01 ELSE P_bc_cw01 = chem_index_table( PARAM_bc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw01 ) = .TRUE. chem_dname_table( idomain, P_bc_cw01 ) = 'bc_cw01' chem_desc_table( idomain, P_bc_cw01 ) = 'Black carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_bc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw01 )%stream(2) = 2097216 ! 00200040 F_bc_cw01 = .TRUE. IF ( chem_index_table( PARAM_num_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw01 = chem_num_table(idomain) chem_index_table( PARAM_num_cw01 , idomain ) = P_num_cw01 ELSE P_num_cw01 = chem_index_table( PARAM_num_cw01 , idomain ) END IF chem_boundary_table( idomain, P_num_cw01 ) = .TRUE. chem_dname_table( idomain, P_num_cw01 ) = 'num_cw01' chem_desc_table( idomain, P_num_cw01 ) = 'Number, aerosol in cloud bin 01' chem_units_table( idomain, P_num_cw01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw01 )%stream(2) = 2097216 ! 00200040 F_num_cw01 = .TRUE. IF ( chem_index_table( PARAM_so4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw02 , idomain ) = P_so4_cw02 ELSE P_so4_cw02 = chem_index_table( PARAM_so4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw02 ) = .TRUE. chem_dname_table( idomain, P_so4_cw02 ) = 'so4_cw02' chem_desc_table( idomain, P_so4_cw02 ) = 'Sulfate, aerosol in cloud bin 02' chem_units_table( idomain, P_so4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw02 )%stream(2) = 2097216 ! 00200040 F_so4_cw02 = .TRUE. IF ( chem_index_table( PARAM_no3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw02 , idomain ) = P_no3_cw02 ELSE P_no3_cw02 = chem_index_table( PARAM_no3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw02 ) = .TRUE. chem_dname_table( idomain, P_no3_cw02 ) = 'no3_cw02' chem_desc_table( idomain, P_no3_cw02 ) = 'Nitrate, aerosol in cloud bin 02' chem_units_table( idomain, P_no3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw02 )%stream(2) = 2097216 ! 00200040 F_no3_cw02 = .TRUE. IF ( chem_index_table( PARAM_cl_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw02 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw02 , idomain ) = P_cl_cw02 ELSE P_cl_cw02 = chem_index_table( PARAM_cl_cw02 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw02 ) = .TRUE. chem_dname_table( idomain, P_cl_cw02 ) = 'cl_cw02' chem_desc_table( idomain, P_cl_cw02 ) = 'Chloride, aerosol in cloud bin 02' chem_units_table( idomain, P_cl_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw02 )%stream(2) = 2097216 ! 00200040 F_cl_cw02 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw02 , idomain ) = P_nh4_cw02 ELSE P_nh4_cw02 = chem_index_table( PARAM_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw02 ) = 'nh4_cw02' chem_desc_table( idomain, P_nh4_cw02 ) = 'Ammonium, aerosol in cloud bin 02' chem_units_table( idomain, P_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw02 )%stream(2) = 2097216 ! 00200040 F_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_na_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw02 = chem_num_table(idomain) chem_index_table( PARAM_na_cw02 , idomain ) = P_na_cw02 ELSE P_na_cw02 = chem_index_table( PARAM_na_cw02 , idomain ) END IF chem_boundary_table( idomain, P_na_cw02 ) = .TRUE. chem_dname_table( idomain, P_na_cw02 ) = 'na_cw02' chem_desc_table( idomain, P_na_cw02 ) = 'Sodium, aerosol in cloud bin 02' chem_units_table( idomain, P_na_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw02 )%stream(2) = 2097216 ! 00200040 F_na_cw02 = .TRUE. IF ( chem_index_table( PARAM_oin_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw02 , idomain ) = P_oin_cw02 ELSE P_oin_cw02 = chem_index_table( PARAM_oin_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw02 ) = .TRUE. chem_dname_table( idomain, P_oin_cw02 ) = 'oin_cw02' chem_desc_table( idomain, P_oin_cw02 ) = 'Other inorganics, aerosol in cloud bin 02' chem_units_table( idomain, P_oin_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw02 )%stream(2) = 2097216 ! 00200040 F_oin_cw02 = .TRUE. IF ( chem_index_table( PARAM_oc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw02 , idomain ) = P_oc_cw02 ELSE P_oc_cw02 = chem_index_table( PARAM_oc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw02 ) = .TRUE. chem_dname_table( idomain, P_oc_cw02 ) = 'oc_cw02' chem_desc_table( idomain, P_oc_cw02 ) = 'Organic carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_oc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw02 )%stream(2) = 2097216 ! 00200040 F_oc_cw02 = .TRUE. IF ( chem_index_table( PARAM_bc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw02 , idomain ) = P_bc_cw02 ELSE P_bc_cw02 = chem_index_table( PARAM_bc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw02 ) = .TRUE. chem_dname_table( idomain, P_bc_cw02 ) = 'bc_cw02' chem_desc_table( idomain, P_bc_cw02 ) = 'Black carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_bc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw02 )%stream(2) = 2097216 ! 00200040 F_bc_cw02 = .TRUE. IF ( chem_index_table( PARAM_num_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw02 = chem_num_table(idomain) chem_index_table( PARAM_num_cw02 , idomain ) = P_num_cw02 ELSE P_num_cw02 = chem_index_table( PARAM_num_cw02 , idomain ) END IF chem_boundary_table( idomain, P_num_cw02 ) = .TRUE. chem_dname_table( idomain, P_num_cw02 ) = 'num_cw02' chem_desc_table( idomain, P_num_cw02 ) = 'Number, aerosol in cloud bin 02' chem_units_table( idomain, P_num_cw02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw02 )%stream(2) = 2097216 ! 00200040 F_num_cw02 = .TRUE. IF ( chem_index_table( PARAM_so4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw03 , idomain ) = P_so4_cw03 ELSE P_so4_cw03 = chem_index_table( PARAM_so4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw03 ) = .TRUE. chem_dname_table( idomain, P_so4_cw03 ) = 'so4_cw03' chem_desc_table( idomain, P_so4_cw03 ) = 'Sulfate, aerosol in cloud bin 03' chem_units_table( idomain, P_so4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw03 )%stream(2) = 2097216 ! 00200040 F_so4_cw03 = .TRUE. IF ( chem_index_table( PARAM_no3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw03 , idomain ) = P_no3_cw03 ELSE P_no3_cw03 = chem_index_table( PARAM_no3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw03 ) = .TRUE. chem_dname_table( idomain, P_no3_cw03 ) = 'no3_cw03' chem_desc_table( idomain, P_no3_cw03 ) = 'Nitrate, aerosol in cloud bin 03' chem_units_table( idomain, P_no3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw03 )%stream(2) = 2097216 ! 00200040 F_no3_cw03 = .TRUE. IF ( chem_index_table( PARAM_cl_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw03 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw03 , idomain ) = P_cl_cw03 ELSE P_cl_cw03 = chem_index_table( PARAM_cl_cw03 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw03 ) = .TRUE. chem_dname_table( idomain, P_cl_cw03 ) = 'cl_cw03' chem_desc_table( idomain, P_cl_cw03 ) = 'Chloride, aerosol in cloud bin 03' chem_units_table( idomain, P_cl_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw03 )%stream(2) = 2097216 ! 00200040 F_cl_cw03 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw03 , idomain ) = P_nh4_cw03 ELSE P_nh4_cw03 = chem_index_table( PARAM_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw03 ) = 'nh4_cw03' chem_desc_table( idomain, P_nh4_cw03 ) = 'Ammonium, aerosol in cloud bin 03' chem_units_table( idomain, P_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw03 )%stream(2) = 2097216 ! 00200040 F_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_na_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw03 = chem_num_table(idomain) chem_index_table( PARAM_na_cw03 , idomain ) = P_na_cw03 ELSE P_na_cw03 = chem_index_table( PARAM_na_cw03 , idomain ) END IF chem_boundary_table( idomain, P_na_cw03 ) = .TRUE. chem_dname_table( idomain, P_na_cw03 ) = 'na_cw03' chem_desc_table( idomain, P_na_cw03 ) = 'Sodium, aerosol in cloud bin 03' chem_units_table( idomain, P_na_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw03 )%stream(2) = 2097216 ! 00200040 F_na_cw03 = .TRUE. IF ( chem_index_table( PARAM_oin_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw03 , idomain ) = P_oin_cw03 ELSE P_oin_cw03 = chem_index_table( PARAM_oin_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw03 ) = .TRUE. chem_dname_table( idomain, P_oin_cw03 ) = 'oin_cw03' chem_desc_table( idomain, P_oin_cw03 ) = 'Other inorganics, aerosol in cloud bin 03' chem_units_table( idomain, P_oin_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw03 )%stream(2) = 2097216 ! 00200040 F_oin_cw03 = .TRUE. IF ( chem_index_table( PARAM_oc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw03 , idomain ) = P_oc_cw03 ELSE P_oc_cw03 = chem_index_table( PARAM_oc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw03 ) = .TRUE. chem_dname_table( idomain, P_oc_cw03 ) = 'oc_cw03' chem_desc_table( idomain, P_oc_cw03 ) = 'Organic carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_oc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw03 )%stream(2) = 2097216 ! 00200040 F_oc_cw03 = .TRUE. IF ( chem_index_table( PARAM_bc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw03 , idomain ) = P_bc_cw03 ELSE P_bc_cw03 = chem_index_table( PARAM_bc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw03 ) = .TRUE. chem_dname_table( idomain, P_bc_cw03 ) = 'bc_cw03' chem_desc_table( idomain, P_bc_cw03 ) = 'Black carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_bc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw03 )%stream(2) = 2097216 ! 00200040 F_bc_cw03 = .TRUE. IF ( chem_index_table( PARAM_num_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw03 = chem_num_table(idomain) chem_index_table( PARAM_num_cw03 , idomain ) = P_num_cw03 ELSE P_num_cw03 = chem_index_table( PARAM_num_cw03 , idomain ) END IF chem_boundary_table( idomain, P_num_cw03 ) = .TRUE. chem_dname_table( idomain, P_num_cw03 ) = 'num_cw03' chem_desc_table( idomain, P_num_cw03 ) = 'Number, aerosol in cloud bin 03' chem_units_table( idomain, P_num_cw03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw03 )%stream(2) = 2097216 ! 00200040 F_num_cw03 = .TRUE. IF ( chem_index_table( PARAM_so4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw04 , idomain ) = P_so4_cw04 ELSE P_so4_cw04 = chem_index_table( PARAM_so4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw04 ) = .TRUE. chem_dname_table( idomain, P_so4_cw04 ) = 'so4_cw04' chem_desc_table( idomain, P_so4_cw04 ) = 'Sulfate, aerosol in cloud bin 04' chem_units_table( idomain, P_so4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw04 )%stream(2) = 2097216 ! 00200040 F_so4_cw04 = .TRUE. IF ( chem_index_table( PARAM_no3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw04 , idomain ) = P_no3_cw04 ELSE P_no3_cw04 = chem_index_table( PARAM_no3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw04 ) = .TRUE. chem_dname_table( idomain, P_no3_cw04 ) = 'no3_cw04' chem_desc_table( idomain, P_no3_cw04 ) = 'Nitrate, aerosol in cloud bin 04' chem_units_table( idomain, P_no3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw04 )%stream(2) = 2097216 ! 00200040 F_no3_cw04 = .TRUE. IF ( chem_index_table( PARAM_cl_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw04 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw04 , idomain ) = P_cl_cw04 ELSE P_cl_cw04 = chem_index_table( PARAM_cl_cw04 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw04 ) = .TRUE. chem_dname_table( idomain, P_cl_cw04 ) = 'cl_cw04' chem_desc_table( idomain, P_cl_cw04 ) = 'Chloride, aerosol in cloud bin 04' chem_units_table( idomain, P_cl_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw04 )%stream(2) = 2097216 ! 00200040 F_cl_cw04 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw04 , idomain ) = P_nh4_cw04 ELSE P_nh4_cw04 = chem_index_table( PARAM_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw04 ) = 'nh4_cw04' chem_desc_table( idomain, P_nh4_cw04 ) = 'Ammonium, aerosol in cloud bin 04' chem_units_table( idomain, P_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw04 )%stream(2) = 2097216 ! 00200040 F_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_na_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw04 = chem_num_table(idomain) chem_index_table( PARAM_na_cw04 , idomain ) = P_na_cw04 ELSE P_na_cw04 = chem_index_table( PARAM_na_cw04 , idomain ) END IF chem_boundary_table( idomain, P_na_cw04 ) = .TRUE. chem_dname_table( idomain, P_na_cw04 ) = 'na_cw04' chem_desc_table( idomain, P_na_cw04 ) = 'Sodium, aerosol in cloud bin 04' chem_units_table( idomain, P_na_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw04 )%stream(2) = 2097216 ! 00200040 F_na_cw04 = .TRUE. IF ( chem_index_table( PARAM_oin_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw04 , idomain ) = P_oin_cw04 ELSE P_oin_cw04 = chem_index_table( PARAM_oin_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw04 ) = .TRUE. chem_dname_table( idomain, P_oin_cw04 ) = 'oin_cw04' chem_desc_table( idomain, P_oin_cw04 ) = 'Other inorganics, aerosol in cloud bin 04' chem_units_table( idomain, P_oin_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw04 )%stream(2) = 2097216 ! 00200040 F_oin_cw04 = .TRUE. IF ( chem_index_table( PARAM_oc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw04 , idomain ) = P_oc_cw04 ELSE P_oc_cw04 = chem_index_table( PARAM_oc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw04 ) = .TRUE. chem_dname_table( idomain, P_oc_cw04 ) = 'oc_cw04' chem_desc_table( idomain, P_oc_cw04 ) = 'Organic carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_oc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw04 )%stream(2) = 2097216 ! 00200040 F_oc_cw04 = .TRUE. IF ( chem_index_table( PARAM_bc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw04 , idomain ) = P_bc_cw04 ELSE P_bc_cw04 = chem_index_table( PARAM_bc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw04 ) = .TRUE. chem_dname_table( idomain, P_bc_cw04 ) = 'bc_cw04' chem_desc_table( idomain, P_bc_cw04 ) = 'Black carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_bc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw04 )%stream(2) = 2097216 ! 00200040 F_bc_cw04 = .TRUE. IF ( chem_index_table( PARAM_num_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw04 = chem_num_table(idomain) chem_index_table( PARAM_num_cw04 , idomain ) = P_num_cw04 ELSE P_num_cw04 = chem_index_table( PARAM_num_cw04 , idomain ) END IF chem_boundary_table( idomain, P_num_cw04 ) = .TRUE. chem_dname_table( idomain, P_num_cw04 ) = 'num_cw04' chem_desc_table( idomain, P_num_cw04 ) = 'Number, aerosol in cloud bin 04' chem_units_table( idomain, P_num_cw04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw04 )%stream(2) = 2097216 ! 00200040 F_num_cw04 = .TRUE. IF ( chem_index_table( PARAM_ca_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw01 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw01 , idomain ) = P_ca_cw01 ELSE P_ca_cw01 = chem_index_table( PARAM_ca_cw01 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw01 ) = .TRUE. chem_dname_table( idomain, P_ca_cw01 ) = 'ca_cw01' chem_desc_table( idomain, P_ca_cw01 ) = 'Calcium, aerosol in cloud bin 01' chem_units_table( idomain, P_ca_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_cw01 )%stream(2) = 2097216 ! 00200040 F_ca_cw01 = .TRUE. IF ( chem_index_table( PARAM_ca_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw02 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw02 , idomain ) = P_ca_cw02 ELSE P_ca_cw02 = chem_index_table( PARAM_ca_cw02 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw02 ) = .TRUE. chem_dname_table( idomain, P_ca_cw02 ) = 'ca_cw02' chem_desc_table( idomain, P_ca_cw02 ) = 'Calcium, aerosol in cloud bin 02' chem_units_table( idomain, P_ca_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_cw02 )%stream(2) = 2097216 ! 00200040 F_ca_cw02 = .TRUE. IF ( chem_index_table( PARAM_ca_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw03 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw03 , idomain ) = P_ca_cw03 ELSE P_ca_cw03 = chem_index_table( PARAM_ca_cw03 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw03 ) = .TRUE. chem_dname_table( idomain, P_ca_cw03 ) = 'ca_cw03' chem_desc_table( idomain, P_ca_cw03 ) = 'Calcium, aerosol in cloud bin 03' chem_units_table( idomain, P_ca_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_cw03 )%stream(2) = 2097216 ! 00200040 F_ca_cw03 = .TRUE. IF ( chem_index_table( PARAM_ca_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw04 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw04 , idomain ) = P_ca_cw04 ELSE P_ca_cw04 = chem_index_table( PARAM_ca_cw04 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw04 ) = .TRUE. chem_dname_table( idomain, P_ca_cw04 ) = 'ca_cw04' chem_desc_table( idomain, P_ca_cw04 ) = 'Calcium, aerosol in cloud bin 04' chem_units_table( idomain, P_ca_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_cw04 )%stream(2) = 2097216 ! 00200040 F_ca_cw04 = .TRUE. IF ( chem_index_table( PARAM_co3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw01 , idomain ) = P_co3_cw01 ELSE P_co3_cw01 = chem_index_table( PARAM_co3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw01 ) = .TRUE. chem_dname_table( idomain, P_co3_cw01 ) = 'co3_cw01' chem_desc_table( idomain, P_co3_cw01 ) = 'Carbonate, aerosol in cloud bin 01' chem_units_table( idomain, P_co3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_cw01 )%stream(2) = 2097216 ! 00200040 F_co3_cw01 = .TRUE. IF ( chem_index_table( PARAM_co3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw02 , idomain ) = P_co3_cw02 ELSE P_co3_cw02 = chem_index_table( PARAM_co3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw02 ) = .TRUE. chem_dname_table( idomain, P_co3_cw02 ) = 'co3_cw02' chem_desc_table( idomain, P_co3_cw02 ) = 'Carbonate, aerosol in cloud bin 02' chem_units_table( idomain, P_co3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_cw02 )%stream(2) = 2097216 ! 00200040 F_co3_cw02 = .TRUE. IF ( chem_index_table( PARAM_co3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw03 , idomain ) = P_co3_cw03 ELSE P_co3_cw03 = chem_index_table( PARAM_co3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw03 ) = .TRUE. chem_dname_table( idomain, P_co3_cw03 ) = 'co3_cw03' chem_desc_table( idomain, P_co3_cw03 ) = 'Carbonate, aerosol in cloud bin 03' chem_units_table( idomain, P_co3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_cw03 )%stream(2) = 2097216 ! 00200040 F_co3_cw03 = .TRUE. IF ( chem_index_table( PARAM_co3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw04 , idomain ) = P_co3_cw04 ELSE P_co3_cw04 = chem_index_table( PARAM_co3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw04 ) = .TRUE. chem_dname_table( idomain, P_co3_cw04 ) = 'co3_cw04' chem_desc_table( idomain, P_co3_cw04 ) = 'Carbonate, aerosol in cloud bin 04' chem_units_table( idomain, P_co3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_cw04 )%stream(2) = 2097216 ! 00200040 F_co3_cw04 = .TRUE. IF ( chem_index_table( PARAM_msa_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw01 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw01 , idomain ) = P_msa_cw01 ELSE P_msa_cw01 = chem_index_table( PARAM_msa_cw01 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw01 ) = .TRUE. chem_dname_table( idomain, P_msa_cw01 ) = 'msa_cw01' chem_desc_table( idomain, P_msa_cw01 ) = 'MSA, aerosol in cloud bin 01' chem_units_table( idomain, P_msa_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_cw01 )%stream(2) = 2097216 ! 00200040 F_msa_cw01 = .TRUE. IF ( chem_index_table( PARAM_msa_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw02 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw02 , idomain ) = P_msa_cw02 ELSE P_msa_cw02 = chem_index_table( PARAM_msa_cw02 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw02 ) = .TRUE. chem_dname_table( idomain, P_msa_cw02 ) = 'msa_cw02' chem_desc_table( idomain, P_msa_cw02 ) = 'MSA, aerosol in cloud bin 02' chem_units_table( idomain, P_msa_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_cw02 )%stream(2) = 2097216 ! 00200040 F_msa_cw02 = .TRUE. IF ( chem_index_table( PARAM_msa_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw03 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw03 , idomain ) = P_msa_cw03 ELSE P_msa_cw03 = chem_index_table( PARAM_msa_cw03 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw03 ) = .TRUE. chem_dname_table( idomain, P_msa_cw03 ) = 'msa_cw03' chem_desc_table( idomain, P_msa_cw03 ) = 'MSA, aerosol in cloud bin 03' chem_units_table( idomain, P_msa_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_cw03 )%stream(2) = 2097216 ! 00200040 F_msa_cw03 = .TRUE. IF ( chem_index_table( PARAM_msa_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw04 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw04 , idomain ) = P_msa_cw04 ELSE P_msa_cw04 = chem_index_table( PARAM_msa_cw04 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw04 ) = .TRUE. chem_dname_table( idomain, P_msa_cw04 ) = 'msa_cw04' chem_desc_table( idomain, P_msa_cw04 ) = 'MSA, aerosol in cloud bin 04' chem_units_table( idomain, P_msa_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_cw04 )%stream(2) = 2097216 ! 00200040 F_msa_cw04 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==33)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 ! 00200040 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 ! 00200040 F_msa = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 ! 00200040 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 ! 00200040 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3so2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2h = chem_num_table(idomain) chem_index_table( PARAM_ch3so2h , idomain ) = P_ch3so2h ELSE P_ch3so2h = chem_index_table( PARAM_ch3so2h , idomain ) END IF chem_boundary_table( idomain, P_ch3so2h ) = .TRUE. chem_dname_table( idomain, P_ch3so2h ) = 'ch3so2h' chem_desc_table( idomain, P_ch3so2h ) = 'CH3SO2H mixing ratio' chem_units_table( idomain, P_ch3so2h ) = 'ppmv' chem_streams_table( idomain, P_ch3so2h )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2h )%stream(2) = 2097216 ! 00200040 F_ch3so2h = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 ! 00200040 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 ! 00200040 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 ! 00200040 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_ch3so2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2oo , idomain ) = P_ch3so2oo ELSE P_ch3so2oo = chem_index_table( PARAM_ch3so2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2oo ) = 'ch3so2oo' chem_desc_table( idomain, P_ch3so2oo ) = 'CH3SO2OO mixing ratio' chem_units_table( idomain, P_ch3so2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2oo )%stream(2) = 2097216 ! 00200040 F_ch3so2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2ch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2ch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2ch2oo , idomain ) = P_ch3so2ch2oo ELSE P_ch3so2ch2oo = chem_index_table( PARAM_ch3so2ch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2ch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2ch2oo ) = 'ch3so2ch2oo' chem_desc_table( idomain, P_ch3so2ch2oo ) = 'CH3SO2CH2OO mixing ratio' chem_units_table( idomain, P_ch3so2ch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2ch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2ch2oo )%stream(2) = 2097216 ! 00200040 F_ch3so2ch2oo = .TRUE. IF ( chem_index_table( PARAM_mtf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mtf = chem_num_table(idomain) chem_index_table( PARAM_mtf , idomain ) = P_mtf ELSE P_mtf = chem_index_table( PARAM_mtf , idomain ) END IF chem_boundary_table( idomain, P_mtf ) = .TRUE. chem_dname_table( idomain, P_mtf ) = 'mtf' chem_desc_table( idomain, P_mtf ) = 'MTF mixing ratio' chem_units_table( idomain, P_mtf ) = 'ppmv' chem_streams_table( idomain, P_mtf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mtf )%stream(2) = 2097216 ! 00200040 F_mtf = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 ! 00200040 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 ! 00200040 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 ! 00200040 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 ! 00200040 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 ! 00200040 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 ! 00200040 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 ! 00200040 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 ! 00200040 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 ! 00200040 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 ! 00200040 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 ! 00200040 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 ! 00200040 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 ! 00200040 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 ! 00200040 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 ! 00200040 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 ! 00200040 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 ! 00200040 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 ! 00200040 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 ! 00200040 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 ! 00200040 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 ! 00200040 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 ! 00200040 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 ! 00200040 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 ! 00200040 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 ! 00200040 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 ! 00200040 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 ! 00200040 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 ! 00200040 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 ! 00200040 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 ! 00200040 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 ! 00200040 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 ! 00200040 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 ! 00200040 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 ! 00200040 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 ! 00200040 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 ! 00200040 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 ! 00200040 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 ! 00200040 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 ! 00200040 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 ! 00200040 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a05 = chem_num_table(idomain) chem_index_table( PARAM_so4_a05 , idomain ) = P_so4_a05 ELSE P_so4_a05 = chem_index_table( PARAM_so4_a05 , idomain ) END IF chem_boundary_table( idomain, P_so4_a05 ) = .TRUE. chem_dname_table( idomain, P_so4_a05 ) = 'so4_a05' chem_desc_table( idomain, P_so4_a05 ) = 'Sulfate, aerosol bin 05' chem_units_table( idomain, P_so4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a05 )%stream(2) = 2097216 ! 00200040 F_so4_a05 = .TRUE. IF ( chem_index_table( PARAM_no3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a05 = chem_num_table(idomain) chem_index_table( PARAM_no3_a05 , idomain ) = P_no3_a05 ELSE P_no3_a05 = chem_index_table( PARAM_no3_a05 , idomain ) END IF chem_boundary_table( idomain, P_no3_a05 ) = .TRUE. chem_dname_table( idomain, P_no3_a05 ) = 'no3_a05' chem_desc_table( idomain, P_no3_a05 ) = 'Nitrate, aerosol bin 05' chem_units_table( idomain, P_no3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a05 )%stream(2) = 2097216 ! 00200040 F_no3_a05 = .TRUE. IF ( chem_index_table( PARAM_cl_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a05 = chem_num_table(idomain) chem_index_table( PARAM_cl_a05 , idomain ) = P_cl_a05 ELSE P_cl_a05 = chem_index_table( PARAM_cl_a05 , idomain ) END IF chem_boundary_table( idomain, P_cl_a05 ) = .TRUE. chem_dname_table( idomain, P_cl_a05 ) = 'cl_a05' chem_desc_table( idomain, P_cl_a05 ) = 'Chloride, aerosol bin 05' chem_units_table( idomain, P_cl_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a05 )%stream(2) = 2097216 ! 00200040 F_cl_a05 = .TRUE. IF ( chem_index_table( PARAM_nh4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a05 , idomain ) = P_nh4_a05 ELSE P_nh4_a05 = chem_index_table( PARAM_nh4_a05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a05 ) = .TRUE. chem_dname_table( idomain, P_nh4_a05 ) = 'nh4_a05' chem_desc_table( idomain, P_nh4_a05 ) = 'Ammonium, aerosol bin 05' chem_units_table( idomain, P_nh4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a05 )%stream(2) = 2097216 ! 00200040 F_nh4_a05 = .TRUE. IF ( chem_index_table( PARAM_na_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a05 = chem_num_table(idomain) chem_index_table( PARAM_na_a05 , idomain ) = P_na_a05 ELSE P_na_a05 = chem_index_table( PARAM_na_a05 , idomain ) END IF chem_boundary_table( idomain, P_na_a05 ) = .TRUE. chem_dname_table( idomain, P_na_a05 ) = 'na_a05' chem_desc_table( idomain, P_na_a05 ) = 'Sodium, aerosol bin 05' chem_units_table( idomain, P_na_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a05 )%stream(2) = 2097216 ! 00200040 F_na_a05 = .TRUE. IF ( chem_index_table( PARAM_oin_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a05 = chem_num_table(idomain) chem_index_table( PARAM_oin_a05 , idomain ) = P_oin_a05 ELSE P_oin_a05 = chem_index_table( PARAM_oin_a05 , idomain ) END IF chem_boundary_table( idomain, P_oin_a05 ) = .TRUE. chem_dname_table( idomain, P_oin_a05 ) = 'oin_a05' chem_desc_table( idomain, P_oin_a05 ) = 'Other inorganics, aerosol bin 05' chem_units_table( idomain, P_oin_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a05 )%stream(2) = 2097216 ! 00200040 F_oin_a05 = .TRUE. IF ( chem_index_table( PARAM_oc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a05 = chem_num_table(idomain) chem_index_table( PARAM_oc_a05 , idomain ) = P_oc_a05 ELSE P_oc_a05 = chem_index_table( PARAM_oc_a05 , idomain ) END IF chem_boundary_table( idomain, P_oc_a05 ) = .TRUE. chem_dname_table( idomain, P_oc_a05 ) = 'oc_a05' chem_desc_table( idomain, P_oc_a05 ) = 'Organic carbon, aerosol bin 05' chem_units_table( idomain, P_oc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a05 )%stream(2) = 2097216 ! 00200040 F_oc_a05 = .TRUE. IF ( chem_index_table( PARAM_bc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a05 = chem_num_table(idomain) chem_index_table( PARAM_bc_a05 , idomain ) = P_bc_a05 ELSE P_bc_a05 = chem_index_table( PARAM_bc_a05 , idomain ) END IF chem_boundary_table( idomain, P_bc_a05 ) = .TRUE. chem_dname_table( idomain, P_bc_a05 ) = 'bc_a05' chem_desc_table( idomain, P_bc_a05 ) = 'Black carbon, aerosol bin 05' chem_units_table( idomain, P_bc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a05 )%stream(2) = 2097216 ! 00200040 F_bc_a05 = .TRUE. IF ( chem_index_table( PARAM_hysw_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a05 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a05 , idomain ) = P_hysw_a05 ELSE P_hysw_a05 = chem_index_table( PARAM_hysw_a05 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a05 ) = .TRUE. chem_dname_table( idomain, P_hysw_a05 ) = 'hysw_a05' chem_desc_table( idomain, P_hysw_a05 ) = 'Hysteresis water, aerosol bin 05' chem_units_table( idomain, P_hysw_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a05 )%stream(2) = 2097216 ! 00200040 F_hysw_a05 = .TRUE. IF ( chem_index_table( PARAM_water_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a05 = chem_num_table(idomain) chem_index_table( PARAM_water_a05 , idomain ) = P_water_a05 ELSE P_water_a05 = chem_index_table( PARAM_water_a05 , idomain ) END IF chem_boundary_table( idomain, P_water_a05 ) = .TRUE. chem_dname_table( idomain, P_water_a05 ) = 'water_a05' chem_desc_table( idomain, P_water_a05 ) = 'Water, aerosol bin 05' chem_units_table( idomain, P_water_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a05 )%stream(2) = 2097216 ! 00200040 F_water_a05 = .TRUE. IF ( chem_index_table( PARAM_num_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a05 = chem_num_table(idomain) chem_index_table( PARAM_num_a05 , idomain ) = P_num_a05 ELSE P_num_a05 = chem_index_table( PARAM_num_a05 , idomain ) END IF chem_boundary_table( idomain, P_num_a05 ) = .TRUE. chem_dname_table( idomain, P_num_a05 ) = 'num_a05' chem_desc_table( idomain, P_num_a05 ) = 'Number, aerosol bin 05' chem_units_table( idomain, P_num_a05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a05 )%stream(2) = 2097216 ! 00200040 F_num_a05 = .TRUE. IF ( chem_index_table( PARAM_so4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a06 = chem_num_table(idomain) chem_index_table( PARAM_so4_a06 , idomain ) = P_so4_a06 ELSE P_so4_a06 = chem_index_table( PARAM_so4_a06 , idomain ) END IF chem_boundary_table( idomain, P_so4_a06 ) = .TRUE. chem_dname_table( idomain, P_so4_a06 ) = 'so4_a06' chem_desc_table( idomain, P_so4_a06 ) = 'Sulfate, aerosol bin 06' chem_units_table( idomain, P_so4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a06 )%stream(2) = 2097216 ! 00200040 F_so4_a06 = .TRUE. IF ( chem_index_table( PARAM_no3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a06 = chem_num_table(idomain) chem_index_table( PARAM_no3_a06 , idomain ) = P_no3_a06 ELSE P_no3_a06 = chem_index_table( PARAM_no3_a06 , idomain ) END IF chem_boundary_table( idomain, P_no3_a06 ) = .TRUE. chem_dname_table( idomain, P_no3_a06 ) = 'no3_a06' chem_desc_table( idomain, P_no3_a06 ) = 'Nitrate, aerosol bin 06' chem_units_table( idomain, P_no3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a06 )%stream(2) = 2097216 ! 00200040 F_no3_a06 = .TRUE. IF ( chem_index_table( PARAM_cl_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a06 = chem_num_table(idomain) chem_index_table( PARAM_cl_a06 , idomain ) = P_cl_a06 ELSE P_cl_a06 = chem_index_table( PARAM_cl_a06 , idomain ) END IF chem_boundary_table( idomain, P_cl_a06 ) = .TRUE. chem_dname_table( idomain, P_cl_a06 ) = 'cl_a06' chem_desc_table( idomain, P_cl_a06 ) = 'Chloride, aerosol bin 06' chem_units_table( idomain, P_cl_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a06 )%stream(2) = 2097216 ! 00200040 F_cl_a06 = .TRUE. IF ( chem_index_table( PARAM_nh4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a06 , idomain ) = P_nh4_a06 ELSE P_nh4_a06 = chem_index_table( PARAM_nh4_a06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a06 ) = .TRUE. chem_dname_table( idomain, P_nh4_a06 ) = 'nh4_a06' chem_desc_table( idomain, P_nh4_a06 ) = 'Ammonium, aerosol bin 06' chem_units_table( idomain, P_nh4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a06 )%stream(2) = 2097216 ! 00200040 F_nh4_a06 = .TRUE. IF ( chem_index_table( PARAM_na_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a06 = chem_num_table(idomain) chem_index_table( PARAM_na_a06 , idomain ) = P_na_a06 ELSE P_na_a06 = chem_index_table( PARAM_na_a06 , idomain ) END IF chem_boundary_table( idomain, P_na_a06 ) = .TRUE. chem_dname_table( idomain, P_na_a06 ) = 'na_a06' chem_desc_table( idomain, P_na_a06 ) = 'Sodium, aerosol bin 06' chem_units_table( idomain, P_na_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a06 )%stream(2) = 2097216 ! 00200040 F_na_a06 = .TRUE. IF ( chem_index_table( PARAM_oin_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a06 = chem_num_table(idomain) chem_index_table( PARAM_oin_a06 , idomain ) = P_oin_a06 ELSE P_oin_a06 = chem_index_table( PARAM_oin_a06 , idomain ) END IF chem_boundary_table( idomain, P_oin_a06 ) = .TRUE. chem_dname_table( idomain, P_oin_a06 ) = 'oin_a06' chem_desc_table( idomain, P_oin_a06 ) = 'Other inorganics, aerosol bin 06' chem_units_table( idomain, P_oin_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a06 )%stream(2) = 2097216 ! 00200040 F_oin_a06 = .TRUE. IF ( chem_index_table( PARAM_oc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a06 = chem_num_table(idomain) chem_index_table( PARAM_oc_a06 , idomain ) = P_oc_a06 ELSE P_oc_a06 = chem_index_table( PARAM_oc_a06 , idomain ) END IF chem_boundary_table( idomain, P_oc_a06 ) = .TRUE. chem_dname_table( idomain, P_oc_a06 ) = 'oc_a06' chem_desc_table( idomain, P_oc_a06 ) = 'Organic carbon, aerosol bin 06' chem_units_table( idomain, P_oc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a06 )%stream(2) = 2097216 ! 00200040 F_oc_a06 = .TRUE. IF ( chem_index_table( PARAM_bc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a06 = chem_num_table(idomain) chem_index_table( PARAM_bc_a06 , idomain ) = P_bc_a06 ELSE P_bc_a06 = chem_index_table( PARAM_bc_a06 , idomain ) END IF chem_boundary_table( idomain, P_bc_a06 ) = .TRUE. chem_dname_table( idomain, P_bc_a06 ) = 'bc_a06' chem_desc_table( idomain, P_bc_a06 ) = 'Black carbon, aerosol bin 06' chem_units_table( idomain, P_bc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a06 )%stream(2) = 2097216 ! 00200040 F_bc_a06 = .TRUE. IF ( chem_index_table( PARAM_hysw_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a06 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a06 , idomain ) = P_hysw_a06 ELSE P_hysw_a06 = chem_index_table( PARAM_hysw_a06 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a06 ) = .TRUE. chem_dname_table( idomain, P_hysw_a06 ) = 'hysw_a06' chem_desc_table( idomain, P_hysw_a06 ) = 'Hysteresis water, aerosol bin 06' chem_units_table( idomain, P_hysw_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a06 )%stream(2) = 2097216 ! 00200040 F_hysw_a06 = .TRUE. IF ( chem_index_table( PARAM_water_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a06 = chem_num_table(idomain) chem_index_table( PARAM_water_a06 , idomain ) = P_water_a06 ELSE P_water_a06 = chem_index_table( PARAM_water_a06 , idomain ) END IF chem_boundary_table( idomain, P_water_a06 ) = .TRUE. chem_dname_table( idomain, P_water_a06 ) = 'water_a06' chem_desc_table( idomain, P_water_a06 ) = 'Water, aerosol bin 06' chem_units_table( idomain, P_water_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a06 )%stream(2) = 2097216 ! 00200040 F_water_a06 = .TRUE. IF ( chem_index_table( PARAM_num_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a06 = chem_num_table(idomain) chem_index_table( PARAM_num_a06 , idomain ) = P_num_a06 ELSE P_num_a06 = chem_index_table( PARAM_num_a06 , idomain ) END IF chem_boundary_table( idomain, P_num_a06 ) = .TRUE. chem_dname_table( idomain, P_num_a06 ) = 'num_a06' chem_desc_table( idomain, P_num_a06 ) = 'Number, aerosol bin 06' chem_units_table( idomain, P_num_a06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a06 )%stream(2) = 2097216 ! 00200040 F_num_a06 = .TRUE. IF ( chem_index_table( PARAM_so4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a07 = chem_num_table(idomain) chem_index_table( PARAM_so4_a07 , idomain ) = P_so4_a07 ELSE P_so4_a07 = chem_index_table( PARAM_so4_a07 , idomain ) END IF chem_boundary_table( idomain, P_so4_a07 ) = .TRUE. chem_dname_table( idomain, P_so4_a07 ) = 'so4_a07' chem_desc_table( idomain, P_so4_a07 ) = 'Sulfate, aerosol bin 07' chem_units_table( idomain, P_so4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a07 )%stream(2) = 2097216 ! 00200040 F_so4_a07 = .TRUE. IF ( chem_index_table( PARAM_no3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a07 = chem_num_table(idomain) chem_index_table( PARAM_no3_a07 , idomain ) = P_no3_a07 ELSE P_no3_a07 = chem_index_table( PARAM_no3_a07 , idomain ) END IF chem_boundary_table( idomain, P_no3_a07 ) = .TRUE. chem_dname_table( idomain, P_no3_a07 ) = 'no3_a07' chem_desc_table( idomain, P_no3_a07 ) = 'Nitrate, aerosol bin 07' chem_units_table( idomain, P_no3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a07 )%stream(2) = 2097216 ! 00200040 F_no3_a07 = .TRUE. IF ( chem_index_table( PARAM_cl_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a07 = chem_num_table(idomain) chem_index_table( PARAM_cl_a07 , idomain ) = P_cl_a07 ELSE P_cl_a07 = chem_index_table( PARAM_cl_a07 , idomain ) END IF chem_boundary_table( idomain, P_cl_a07 ) = .TRUE. chem_dname_table( idomain, P_cl_a07 ) = 'cl_a07' chem_desc_table( idomain, P_cl_a07 ) = 'Chloride, aerosol bin 07' chem_units_table( idomain, P_cl_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a07 )%stream(2) = 2097216 ! 00200040 F_cl_a07 = .TRUE. IF ( chem_index_table( PARAM_nh4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a07 , idomain ) = P_nh4_a07 ELSE P_nh4_a07 = chem_index_table( PARAM_nh4_a07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a07 ) = .TRUE. chem_dname_table( idomain, P_nh4_a07 ) = 'nh4_a07' chem_desc_table( idomain, P_nh4_a07 ) = 'Ammonium, aerosol bin 07' chem_units_table( idomain, P_nh4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a07 )%stream(2) = 2097216 ! 00200040 F_nh4_a07 = .TRUE. IF ( chem_index_table( PARAM_na_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a07 = chem_num_table(idomain) chem_index_table( PARAM_na_a07 , idomain ) = P_na_a07 ELSE P_na_a07 = chem_index_table( PARAM_na_a07 , idomain ) END IF chem_boundary_table( idomain, P_na_a07 ) = .TRUE. chem_dname_table( idomain, P_na_a07 ) = 'na_a07' chem_desc_table( idomain, P_na_a07 ) = 'Sodium, aerosol bin 07' chem_units_table( idomain, P_na_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a07 )%stream(2) = 2097216 ! 00200040 F_na_a07 = .TRUE. IF ( chem_index_table( PARAM_oin_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a07 = chem_num_table(idomain) chem_index_table( PARAM_oin_a07 , idomain ) = P_oin_a07 ELSE P_oin_a07 = chem_index_table( PARAM_oin_a07 , idomain ) END IF chem_boundary_table( idomain, P_oin_a07 ) = .TRUE. chem_dname_table( idomain, P_oin_a07 ) = 'oin_a07' chem_desc_table( idomain, P_oin_a07 ) = 'Other inorganics, aerosol bin 07' chem_units_table( idomain, P_oin_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a07 )%stream(2) = 2097216 ! 00200040 F_oin_a07 = .TRUE. IF ( chem_index_table( PARAM_oc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a07 = chem_num_table(idomain) chem_index_table( PARAM_oc_a07 , idomain ) = P_oc_a07 ELSE P_oc_a07 = chem_index_table( PARAM_oc_a07 , idomain ) END IF chem_boundary_table( idomain, P_oc_a07 ) = .TRUE. chem_dname_table( idomain, P_oc_a07 ) = 'oc_a07' chem_desc_table( idomain, P_oc_a07 ) = 'Organic carbon, aerosol bin 07' chem_units_table( idomain, P_oc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a07 )%stream(2) = 2097216 ! 00200040 F_oc_a07 = .TRUE. IF ( chem_index_table( PARAM_bc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a07 = chem_num_table(idomain) chem_index_table( PARAM_bc_a07 , idomain ) = P_bc_a07 ELSE P_bc_a07 = chem_index_table( PARAM_bc_a07 , idomain ) END IF chem_boundary_table( idomain, P_bc_a07 ) = .TRUE. chem_dname_table( idomain, P_bc_a07 ) = 'bc_a07' chem_desc_table( idomain, P_bc_a07 ) = 'Black carbon, aerosol bin 07' chem_units_table( idomain, P_bc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a07 )%stream(2) = 2097216 ! 00200040 F_bc_a07 = .TRUE. IF ( chem_index_table( PARAM_hysw_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a07 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a07 , idomain ) = P_hysw_a07 ELSE P_hysw_a07 = chem_index_table( PARAM_hysw_a07 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a07 ) = .TRUE. chem_dname_table( idomain, P_hysw_a07 ) = 'hysw_a07' chem_desc_table( idomain, P_hysw_a07 ) = 'Hysteresis water, aerosol bin 07' chem_units_table( idomain, P_hysw_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a07 )%stream(2) = 2097216 ! 00200040 F_hysw_a07 = .TRUE. IF ( chem_index_table( PARAM_water_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a07 = chem_num_table(idomain) chem_index_table( PARAM_water_a07 , idomain ) = P_water_a07 ELSE P_water_a07 = chem_index_table( PARAM_water_a07 , idomain ) END IF chem_boundary_table( idomain, P_water_a07 ) = .TRUE. chem_dname_table( idomain, P_water_a07 ) = 'water_a07' chem_desc_table( idomain, P_water_a07 ) = 'Water, aerosol bin 07' chem_units_table( idomain, P_water_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a07 )%stream(2) = 2097216 ! 00200040 F_water_a07 = .TRUE. IF ( chem_index_table( PARAM_num_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a07 = chem_num_table(idomain) chem_index_table( PARAM_num_a07 , idomain ) = P_num_a07 ELSE P_num_a07 = chem_index_table( PARAM_num_a07 , idomain ) END IF chem_boundary_table( idomain, P_num_a07 ) = .TRUE. chem_dname_table( idomain, P_num_a07 ) = 'num_a07' chem_desc_table( idomain, P_num_a07 ) = 'Number, aerosol bin 07' chem_units_table( idomain, P_num_a07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a07 )%stream(2) = 2097216 ! 00200040 F_num_a07 = .TRUE. IF ( chem_index_table( PARAM_so4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a08 = chem_num_table(idomain) chem_index_table( PARAM_so4_a08 , idomain ) = P_so4_a08 ELSE P_so4_a08 = chem_index_table( PARAM_so4_a08 , idomain ) END IF chem_boundary_table( idomain, P_so4_a08 ) = .TRUE. chem_dname_table( idomain, P_so4_a08 ) = 'so4_a08' chem_desc_table( idomain, P_so4_a08 ) = 'Sulfate, aerosol bin 08' chem_units_table( idomain, P_so4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a08 )%stream(2) = 2097216 ! 00200040 F_so4_a08 = .TRUE. IF ( chem_index_table( PARAM_no3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a08 = chem_num_table(idomain) chem_index_table( PARAM_no3_a08 , idomain ) = P_no3_a08 ELSE P_no3_a08 = chem_index_table( PARAM_no3_a08 , idomain ) END IF chem_boundary_table( idomain, P_no3_a08 ) = .TRUE. chem_dname_table( idomain, P_no3_a08 ) = 'no3_a08' chem_desc_table( idomain, P_no3_a08 ) = 'Nitrate, aerosol bin 08' chem_units_table( idomain, P_no3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a08 )%stream(2) = 2097216 ! 00200040 F_no3_a08 = .TRUE. IF ( chem_index_table( PARAM_cl_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a08 = chem_num_table(idomain) chem_index_table( PARAM_cl_a08 , idomain ) = P_cl_a08 ELSE P_cl_a08 = chem_index_table( PARAM_cl_a08 , idomain ) END IF chem_boundary_table( idomain, P_cl_a08 ) = .TRUE. chem_dname_table( idomain, P_cl_a08 ) = 'cl_a08' chem_desc_table( idomain, P_cl_a08 ) = 'Chloride, aerosol bin 08' chem_units_table( idomain, P_cl_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a08 )%stream(2) = 2097216 ! 00200040 F_cl_a08 = .TRUE. IF ( chem_index_table( PARAM_nh4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a08 , idomain ) = P_nh4_a08 ELSE P_nh4_a08 = chem_index_table( PARAM_nh4_a08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a08 ) = .TRUE. chem_dname_table( idomain, P_nh4_a08 ) = 'nh4_a08' chem_desc_table( idomain, P_nh4_a08 ) = 'Ammonium, aerosol bin 08' chem_units_table( idomain, P_nh4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a08 )%stream(2) = 2097216 ! 00200040 F_nh4_a08 = .TRUE. IF ( chem_index_table( PARAM_na_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a08 = chem_num_table(idomain) chem_index_table( PARAM_na_a08 , idomain ) = P_na_a08 ELSE P_na_a08 = chem_index_table( PARAM_na_a08 , idomain ) END IF chem_boundary_table( idomain, P_na_a08 ) = .TRUE. chem_dname_table( idomain, P_na_a08 ) = 'na_a08' chem_desc_table( idomain, P_na_a08 ) = 'Sodium, aerosol bin 08' chem_units_table( idomain, P_na_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a08 )%stream(2) = 2097216 ! 00200040 F_na_a08 = .TRUE. IF ( chem_index_table( PARAM_oin_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a08 = chem_num_table(idomain) chem_index_table( PARAM_oin_a08 , idomain ) = P_oin_a08 ELSE P_oin_a08 = chem_index_table( PARAM_oin_a08 , idomain ) END IF chem_boundary_table( idomain, P_oin_a08 ) = .TRUE. chem_dname_table( idomain, P_oin_a08 ) = 'oin_a08' chem_desc_table( idomain, P_oin_a08 ) = 'Other inorganics, aerosol bin 08' chem_units_table( idomain, P_oin_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a08 )%stream(2) = 2097216 ! 00200040 F_oin_a08 = .TRUE. IF ( chem_index_table( PARAM_oc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a08 = chem_num_table(idomain) chem_index_table( PARAM_oc_a08 , idomain ) = P_oc_a08 ELSE P_oc_a08 = chem_index_table( PARAM_oc_a08 , idomain ) END IF chem_boundary_table( idomain, P_oc_a08 ) = .TRUE. chem_dname_table( idomain, P_oc_a08 ) = 'oc_a08' chem_desc_table( idomain, P_oc_a08 ) = 'Organic carbon, aerosol bin 08' chem_units_table( idomain, P_oc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a08 )%stream(2) = 2097216 ! 00200040 F_oc_a08 = .TRUE. IF ( chem_index_table( PARAM_bc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a08 = chem_num_table(idomain) chem_index_table( PARAM_bc_a08 , idomain ) = P_bc_a08 ELSE P_bc_a08 = chem_index_table( PARAM_bc_a08 , idomain ) END IF chem_boundary_table( idomain, P_bc_a08 ) = .TRUE. chem_dname_table( idomain, P_bc_a08 ) = 'bc_a08' chem_desc_table( idomain, P_bc_a08 ) = 'Black carbon, aerosol bin 08' chem_units_table( idomain, P_bc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a08 )%stream(2) = 2097216 ! 00200040 F_bc_a08 = .TRUE. IF ( chem_index_table( PARAM_hysw_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a08 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a08 , idomain ) = P_hysw_a08 ELSE P_hysw_a08 = chem_index_table( PARAM_hysw_a08 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a08 ) = .TRUE. chem_dname_table( idomain, P_hysw_a08 ) = 'hysw_a08' chem_desc_table( idomain, P_hysw_a08 ) = 'Hysteresis water, aerosol bin 08' chem_units_table( idomain, P_hysw_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a08 )%stream(2) = 2097216 ! 00200040 F_hysw_a08 = .TRUE. IF ( chem_index_table( PARAM_water_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a08 = chem_num_table(idomain) chem_index_table( PARAM_water_a08 , idomain ) = P_water_a08 ELSE P_water_a08 = chem_index_table( PARAM_water_a08 , idomain ) END IF chem_boundary_table( idomain, P_water_a08 ) = .TRUE. chem_dname_table( idomain, P_water_a08 ) = 'water_a08' chem_desc_table( idomain, P_water_a08 ) = 'Water, aerosol bin 08' chem_units_table( idomain, P_water_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a08 )%stream(2) = 2097216 ! 00200040 F_water_a08 = .TRUE. IF ( chem_index_table( PARAM_num_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a08 = chem_num_table(idomain) chem_index_table( PARAM_num_a08 , idomain ) = P_num_a08 ELSE P_num_a08 = chem_index_table( PARAM_num_a08 , idomain ) END IF chem_boundary_table( idomain, P_num_a08 ) = .TRUE. chem_dname_table( idomain, P_num_a08 ) = 'num_a08' chem_desc_table( idomain, P_num_a08 ) = 'Number, aerosol bin 08' chem_units_table( idomain, P_num_a08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a08 )%stream(2) = 2097216 ! 00200040 F_num_a08 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 ! 00200040 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 ! 00200040 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 ! 00200040 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 ! 00200040 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a05 = chem_num_table(idomain) chem_index_table( PARAM_ca_a05 , idomain ) = P_ca_a05 ELSE P_ca_a05 = chem_index_table( PARAM_ca_a05 , idomain ) END IF chem_boundary_table( idomain, P_ca_a05 ) = .TRUE. chem_dname_table( idomain, P_ca_a05 ) = 'ca_a05' chem_desc_table( idomain, P_ca_a05 ) = 'Calcium, aerosol bin 05' chem_units_table( idomain, P_ca_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a05 )%stream(2) = 2097216 ! 00200040 F_ca_a05 = .TRUE. IF ( chem_index_table( PARAM_ca_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a06 = chem_num_table(idomain) chem_index_table( PARAM_ca_a06 , idomain ) = P_ca_a06 ELSE P_ca_a06 = chem_index_table( PARAM_ca_a06 , idomain ) END IF chem_boundary_table( idomain, P_ca_a06 ) = .TRUE. chem_dname_table( idomain, P_ca_a06 ) = 'ca_a06' chem_desc_table( idomain, P_ca_a06 ) = 'Calcium, aerosol bin 06' chem_units_table( idomain, P_ca_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a06 )%stream(2) = 2097216 ! 00200040 F_ca_a06 = .TRUE. IF ( chem_index_table( PARAM_ca_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a07 = chem_num_table(idomain) chem_index_table( PARAM_ca_a07 , idomain ) = P_ca_a07 ELSE P_ca_a07 = chem_index_table( PARAM_ca_a07 , idomain ) END IF chem_boundary_table( idomain, P_ca_a07 ) = .TRUE. chem_dname_table( idomain, P_ca_a07 ) = 'ca_a07' chem_desc_table( idomain, P_ca_a07 ) = 'Calcium, aerosol bin 07' chem_units_table( idomain, P_ca_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a07 )%stream(2) = 2097216 ! 00200040 F_ca_a07 = .TRUE. IF ( chem_index_table( PARAM_ca_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a08 = chem_num_table(idomain) chem_index_table( PARAM_ca_a08 , idomain ) = P_ca_a08 ELSE P_ca_a08 = chem_index_table( PARAM_ca_a08 , idomain ) END IF chem_boundary_table( idomain, P_ca_a08 ) = .TRUE. chem_dname_table( idomain, P_ca_a08 ) = 'ca_a08' chem_desc_table( idomain, P_ca_a08 ) = 'Calcium, aerosol bin 08' chem_units_table( idomain, P_ca_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a08 )%stream(2) = 2097216 ! 00200040 F_ca_a08 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 ! 00200040 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 ! 00200040 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 ! 00200040 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 ! 00200040 F_co3_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a05 = chem_num_table(idomain) chem_index_table( PARAM_co3_a05 , idomain ) = P_co3_a05 ELSE P_co3_a05 = chem_index_table( PARAM_co3_a05 , idomain ) END IF chem_boundary_table( idomain, P_co3_a05 ) = .TRUE. chem_dname_table( idomain, P_co3_a05 ) = 'co3_a05' chem_desc_table( idomain, P_co3_a05 ) = 'Carbonate, aerosol bin 05' chem_units_table( idomain, P_co3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a05 )%stream(2) = 2097216 ! 00200040 F_co3_a05 = .TRUE. IF ( chem_index_table( PARAM_co3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a06 = chem_num_table(idomain) chem_index_table( PARAM_co3_a06 , idomain ) = P_co3_a06 ELSE P_co3_a06 = chem_index_table( PARAM_co3_a06 , idomain ) END IF chem_boundary_table( idomain, P_co3_a06 ) = .TRUE. chem_dname_table( idomain, P_co3_a06 ) = 'co3_a06' chem_desc_table( idomain, P_co3_a06 ) = 'Carbonate, aerosol bin 06' chem_units_table( idomain, P_co3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a06 )%stream(2) = 2097216 ! 00200040 F_co3_a06 = .TRUE. IF ( chem_index_table( PARAM_co3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a07 = chem_num_table(idomain) chem_index_table( PARAM_co3_a07 , idomain ) = P_co3_a07 ELSE P_co3_a07 = chem_index_table( PARAM_co3_a07 , idomain ) END IF chem_boundary_table( idomain, P_co3_a07 ) = .TRUE. chem_dname_table( idomain, P_co3_a07 ) = 'co3_a07' chem_desc_table( idomain, P_co3_a07 ) = 'Carbonate, aerosol bin 07' chem_units_table( idomain, P_co3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a07 )%stream(2) = 2097216 ! 00200040 F_co3_a07 = .TRUE. IF ( chem_index_table( PARAM_co3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a08 = chem_num_table(idomain) chem_index_table( PARAM_co3_a08 , idomain ) = P_co3_a08 ELSE P_co3_a08 = chem_index_table( PARAM_co3_a08 , idomain ) END IF chem_boundary_table( idomain, P_co3_a08 ) = .TRUE. chem_dname_table( idomain, P_co3_a08 ) = 'co3_a08' chem_desc_table( idomain, P_co3_a08 ) = 'Carbonate, aerosol bin 08' chem_units_table( idomain, P_co3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a08 )%stream(2) = 2097216 ! 00200040 F_co3_a08 = .TRUE. IF ( chem_index_table( PARAM_msa_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a01 = chem_num_table(idomain) chem_index_table( PARAM_msa_a01 , idomain ) = P_msa_a01 ELSE P_msa_a01 = chem_index_table( PARAM_msa_a01 , idomain ) END IF chem_boundary_table( idomain, P_msa_a01 ) = .TRUE. chem_dname_table( idomain, P_msa_a01 ) = 'msa_a01' chem_desc_table( idomain, P_msa_a01 ) = 'MSA, aerosol bin 01' chem_units_table( idomain, P_msa_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a01 )%stream(2) = 2097216 ! 00200040 F_msa_a01 = .TRUE. IF ( chem_index_table( PARAM_msa_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a02 = chem_num_table(idomain) chem_index_table( PARAM_msa_a02 , idomain ) = P_msa_a02 ELSE P_msa_a02 = chem_index_table( PARAM_msa_a02 , idomain ) END IF chem_boundary_table( idomain, P_msa_a02 ) = .TRUE. chem_dname_table( idomain, P_msa_a02 ) = 'msa_a02' chem_desc_table( idomain, P_msa_a02 ) = 'MSA, aerosol bin 02' chem_units_table( idomain, P_msa_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a02 )%stream(2) = 2097216 ! 00200040 F_msa_a02 = .TRUE. IF ( chem_index_table( PARAM_msa_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a03 = chem_num_table(idomain) chem_index_table( PARAM_msa_a03 , idomain ) = P_msa_a03 ELSE P_msa_a03 = chem_index_table( PARAM_msa_a03 , idomain ) END IF chem_boundary_table( idomain, P_msa_a03 ) = .TRUE. chem_dname_table( idomain, P_msa_a03 ) = 'msa_a03' chem_desc_table( idomain, P_msa_a03 ) = 'MSA, aerosol bin 03' chem_units_table( idomain, P_msa_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a03 )%stream(2) = 2097216 ! 00200040 F_msa_a03 = .TRUE. IF ( chem_index_table( PARAM_msa_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a04 = chem_num_table(idomain) chem_index_table( PARAM_msa_a04 , idomain ) = P_msa_a04 ELSE P_msa_a04 = chem_index_table( PARAM_msa_a04 , idomain ) END IF chem_boundary_table( idomain, P_msa_a04 ) = .TRUE. chem_dname_table( idomain, P_msa_a04 ) = 'msa_a04' chem_desc_table( idomain, P_msa_a04 ) = 'MSA, aerosol bin 04' chem_units_table( idomain, P_msa_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a04 )%stream(2) = 2097216 ! 00200040 F_msa_a04 = .TRUE. IF ( chem_index_table( PARAM_msa_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a05 = chem_num_table(idomain) chem_index_table( PARAM_msa_a05 , idomain ) = P_msa_a05 ELSE P_msa_a05 = chem_index_table( PARAM_msa_a05 , idomain ) END IF chem_boundary_table( idomain, P_msa_a05 ) = .TRUE. chem_dname_table( idomain, P_msa_a05 ) = 'msa_a05' chem_desc_table( idomain, P_msa_a05 ) = 'MSA, aerosol bin 05' chem_units_table( idomain, P_msa_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a05 )%stream(2) = 2097216 ! 00200040 F_msa_a05 = .TRUE. IF ( chem_index_table( PARAM_msa_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a06 = chem_num_table(idomain) chem_index_table( PARAM_msa_a06 , idomain ) = P_msa_a06 ELSE P_msa_a06 = chem_index_table( PARAM_msa_a06 , idomain ) END IF chem_boundary_table( idomain, P_msa_a06 ) = .TRUE. chem_dname_table( idomain, P_msa_a06 ) = 'msa_a06' chem_desc_table( idomain, P_msa_a06 ) = 'MSA, aerosol bin 06' chem_units_table( idomain, P_msa_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a06 )%stream(2) = 2097216 ! 00200040 F_msa_a06 = .TRUE. IF ( chem_index_table( PARAM_msa_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a07 = chem_num_table(idomain) chem_index_table( PARAM_msa_a07 , idomain ) = P_msa_a07 ELSE P_msa_a07 = chem_index_table( PARAM_msa_a07 , idomain ) END IF chem_boundary_table( idomain, P_msa_a07 ) = .TRUE. chem_dname_table( idomain, P_msa_a07 ) = 'msa_a07' chem_desc_table( idomain, P_msa_a07 ) = 'MSA, aerosol bin 07' chem_units_table( idomain, P_msa_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a07 )%stream(2) = 2097216 ! 00200040 F_msa_a07 = .TRUE. IF ( chem_index_table( PARAM_msa_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a08 = chem_num_table(idomain) chem_index_table( PARAM_msa_a08 , idomain ) = P_msa_a08 ELSE P_msa_a08 = chem_index_table( PARAM_msa_a08 , idomain ) END IF chem_boundary_table( idomain, P_msa_a08 ) = .TRUE. chem_dname_table( idomain, P_msa_a08 ) = 'msa_a08' chem_desc_table( idomain, P_msa_a08 ) = 'MSA, aerosol bin 08' chem_units_table( idomain, P_msa_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a08 )%stream(2) = 2097216 ! 00200040 F_msa_a08 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==34)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 ! 00200040 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 ! 00200040 F_msa = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 ! 00200040 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 ! 00200040 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3so2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2h = chem_num_table(idomain) chem_index_table( PARAM_ch3so2h , idomain ) = P_ch3so2h ELSE P_ch3so2h = chem_index_table( PARAM_ch3so2h , idomain ) END IF chem_boundary_table( idomain, P_ch3so2h ) = .TRUE. chem_dname_table( idomain, P_ch3so2h ) = 'ch3so2h' chem_desc_table( idomain, P_ch3so2h ) = 'CH3SO2H mixing ratio' chem_units_table( idomain, P_ch3so2h ) = 'ppmv' chem_streams_table( idomain, P_ch3so2h )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2h )%stream(2) = 2097216 ! 00200040 F_ch3so2h = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 ! 00200040 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 ! 00200040 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 ! 00200040 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_ch3so2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2oo , idomain ) = P_ch3so2oo ELSE P_ch3so2oo = chem_index_table( PARAM_ch3so2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2oo ) = 'ch3so2oo' chem_desc_table( idomain, P_ch3so2oo ) = 'CH3SO2OO mixing ratio' chem_units_table( idomain, P_ch3so2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2oo )%stream(2) = 2097216 ! 00200040 F_ch3so2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2ch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2ch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2ch2oo , idomain ) = P_ch3so2ch2oo ELSE P_ch3so2ch2oo = chem_index_table( PARAM_ch3so2ch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2ch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2ch2oo ) = 'ch3so2ch2oo' chem_desc_table( idomain, P_ch3so2ch2oo ) = 'CH3SO2CH2OO mixing ratio' chem_units_table( idomain, P_ch3so2ch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2ch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2ch2oo )%stream(2) = 2097216 ! 00200040 F_ch3so2ch2oo = .TRUE. IF ( chem_index_table( PARAM_mtf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mtf = chem_num_table(idomain) chem_index_table( PARAM_mtf , idomain ) = P_mtf ELSE P_mtf = chem_index_table( PARAM_mtf , idomain ) END IF chem_boundary_table( idomain, P_mtf ) = .TRUE. chem_dname_table( idomain, P_mtf ) = 'mtf' chem_desc_table( idomain, P_mtf ) = 'MTF mixing ratio' chem_units_table( idomain, P_mtf ) = 'ppmv' chem_streams_table( idomain, P_mtf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mtf )%stream(2) = 2097216 ! 00200040 F_mtf = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 ! 00200040 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 ! 00200040 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 ! 00200040 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 ! 00200040 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 ! 00200040 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 ! 00200040 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 ! 00200040 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 ! 00200040 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 ! 00200040 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 ! 00200040 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 ! 00200040 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 ! 00200040 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 ! 00200040 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 ! 00200040 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 ! 00200040 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 ! 00200040 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 ! 00200040 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 ! 00200040 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 ! 00200040 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 ! 00200040 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 ! 00200040 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 ! 00200040 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 ! 00200040 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 ! 00200040 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 ! 00200040 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 ! 00200040 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 ! 00200040 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 ! 00200040 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 ! 00200040 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 ! 00200040 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 ! 00200040 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 ! 00200040 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 ! 00200040 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 ! 00200040 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 ! 00200040 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 ! 00200040 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 ! 00200040 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 ! 00200040 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 ! 00200040 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 ! 00200040 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a05 = chem_num_table(idomain) chem_index_table( PARAM_so4_a05 , idomain ) = P_so4_a05 ELSE P_so4_a05 = chem_index_table( PARAM_so4_a05 , idomain ) END IF chem_boundary_table( idomain, P_so4_a05 ) = .TRUE. chem_dname_table( idomain, P_so4_a05 ) = 'so4_a05' chem_desc_table( idomain, P_so4_a05 ) = 'Sulfate, aerosol bin 05' chem_units_table( idomain, P_so4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a05 )%stream(2) = 2097216 ! 00200040 F_so4_a05 = .TRUE. IF ( chem_index_table( PARAM_no3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a05 = chem_num_table(idomain) chem_index_table( PARAM_no3_a05 , idomain ) = P_no3_a05 ELSE P_no3_a05 = chem_index_table( PARAM_no3_a05 , idomain ) END IF chem_boundary_table( idomain, P_no3_a05 ) = .TRUE. chem_dname_table( idomain, P_no3_a05 ) = 'no3_a05' chem_desc_table( idomain, P_no3_a05 ) = 'Nitrate, aerosol bin 05' chem_units_table( idomain, P_no3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a05 )%stream(2) = 2097216 ! 00200040 F_no3_a05 = .TRUE. IF ( chem_index_table( PARAM_cl_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a05 = chem_num_table(idomain) chem_index_table( PARAM_cl_a05 , idomain ) = P_cl_a05 ELSE P_cl_a05 = chem_index_table( PARAM_cl_a05 , idomain ) END IF chem_boundary_table( idomain, P_cl_a05 ) = .TRUE. chem_dname_table( idomain, P_cl_a05 ) = 'cl_a05' chem_desc_table( idomain, P_cl_a05 ) = 'Chloride, aerosol bin 05' chem_units_table( idomain, P_cl_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a05 )%stream(2) = 2097216 ! 00200040 F_cl_a05 = .TRUE. IF ( chem_index_table( PARAM_nh4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a05 , idomain ) = P_nh4_a05 ELSE P_nh4_a05 = chem_index_table( PARAM_nh4_a05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a05 ) = .TRUE. chem_dname_table( idomain, P_nh4_a05 ) = 'nh4_a05' chem_desc_table( idomain, P_nh4_a05 ) = 'Ammonium, aerosol bin 05' chem_units_table( idomain, P_nh4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a05 )%stream(2) = 2097216 ! 00200040 F_nh4_a05 = .TRUE. IF ( chem_index_table( PARAM_na_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a05 = chem_num_table(idomain) chem_index_table( PARAM_na_a05 , idomain ) = P_na_a05 ELSE P_na_a05 = chem_index_table( PARAM_na_a05 , idomain ) END IF chem_boundary_table( idomain, P_na_a05 ) = .TRUE. chem_dname_table( idomain, P_na_a05 ) = 'na_a05' chem_desc_table( idomain, P_na_a05 ) = 'Sodium, aerosol bin 05' chem_units_table( idomain, P_na_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a05 )%stream(2) = 2097216 ! 00200040 F_na_a05 = .TRUE. IF ( chem_index_table( PARAM_oin_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a05 = chem_num_table(idomain) chem_index_table( PARAM_oin_a05 , idomain ) = P_oin_a05 ELSE P_oin_a05 = chem_index_table( PARAM_oin_a05 , idomain ) END IF chem_boundary_table( idomain, P_oin_a05 ) = .TRUE. chem_dname_table( idomain, P_oin_a05 ) = 'oin_a05' chem_desc_table( idomain, P_oin_a05 ) = 'Other inorganics, aerosol bin 05' chem_units_table( idomain, P_oin_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a05 )%stream(2) = 2097216 ! 00200040 F_oin_a05 = .TRUE. IF ( chem_index_table( PARAM_oc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a05 = chem_num_table(idomain) chem_index_table( PARAM_oc_a05 , idomain ) = P_oc_a05 ELSE P_oc_a05 = chem_index_table( PARAM_oc_a05 , idomain ) END IF chem_boundary_table( idomain, P_oc_a05 ) = .TRUE. chem_dname_table( idomain, P_oc_a05 ) = 'oc_a05' chem_desc_table( idomain, P_oc_a05 ) = 'Organic carbon, aerosol bin 05' chem_units_table( idomain, P_oc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a05 )%stream(2) = 2097216 ! 00200040 F_oc_a05 = .TRUE. IF ( chem_index_table( PARAM_bc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a05 = chem_num_table(idomain) chem_index_table( PARAM_bc_a05 , idomain ) = P_bc_a05 ELSE P_bc_a05 = chem_index_table( PARAM_bc_a05 , idomain ) END IF chem_boundary_table( idomain, P_bc_a05 ) = .TRUE. chem_dname_table( idomain, P_bc_a05 ) = 'bc_a05' chem_desc_table( idomain, P_bc_a05 ) = 'Black carbon, aerosol bin 05' chem_units_table( idomain, P_bc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a05 )%stream(2) = 2097216 ! 00200040 F_bc_a05 = .TRUE. IF ( chem_index_table( PARAM_hysw_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a05 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a05 , idomain ) = P_hysw_a05 ELSE P_hysw_a05 = chem_index_table( PARAM_hysw_a05 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a05 ) = .TRUE. chem_dname_table( idomain, P_hysw_a05 ) = 'hysw_a05' chem_desc_table( idomain, P_hysw_a05 ) = 'Hysteresis water, aerosol bin 05' chem_units_table( idomain, P_hysw_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a05 )%stream(2) = 2097216 ! 00200040 F_hysw_a05 = .TRUE. IF ( chem_index_table( PARAM_water_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a05 = chem_num_table(idomain) chem_index_table( PARAM_water_a05 , idomain ) = P_water_a05 ELSE P_water_a05 = chem_index_table( PARAM_water_a05 , idomain ) END IF chem_boundary_table( idomain, P_water_a05 ) = .TRUE. chem_dname_table( idomain, P_water_a05 ) = 'water_a05' chem_desc_table( idomain, P_water_a05 ) = 'Water, aerosol bin 05' chem_units_table( idomain, P_water_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a05 )%stream(2) = 2097216 ! 00200040 F_water_a05 = .TRUE. IF ( chem_index_table( PARAM_num_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a05 = chem_num_table(idomain) chem_index_table( PARAM_num_a05 , idomain ) = P_num_a05 ELSE P_num_a05 = chem_index_table( PARAM_num_a05 , idomain ) END IF chem_boundary_table( idomain, P_num_a05 ) = .TRUE. chem_dname_table( idomain, P_num_a05 ) = 'num_a05' chem_desc_table( idomain, P_num_a05 ) = 'Number, aerosol bin 05' chem_units_table( idomain, P_num_a05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a05 )%stream(2) = 2097216 ! 00200040 F_num_a05 = .TRUE. IF ( chem_index_table( PARAM_so4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a06 = chem_num_table(idomain) chem_index_table( PARAM_so4_a06 , idomain ) = P_so4_a06 ELSE P_so4_a06 = chem_index_table( PARAM_so4_a06 , idomain ) END IF chem_boundary_table( idomain, P_so4_a06 ) = .TRUE. chem_dname_table( idomain, P_so4_a06 ) = 'so4_a06' chem_desc_table( idomain, P_so4_a06 ) = 'Sulfate, aerosol bin 06' chem_units_table( idomain, P_so4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a06 )%stream(2) = 2097216 ! 00200040 F_so4_a06 = .TRUE. IF ( chem_index_table( PARAM_no3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a06 = chem_num_table(idomain) chem_index_table( PARAM_no3_a06 , idomain ) = P_no3_a06 ELSE P_no3_a06 = chem_index_table( PARAM_no3_a06 , idomain ) END IF chem_boundary_table( idomain, P_no3_a06 ) = .TRUE. chem_dname_table( idomain, P_no3_a06 ) = 'no3_a06' chem_desc_table( idomain, P_no3_a06 ) = 'Nitrate, aerosol bin 06' chem_units_table( idomain, P_no3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a06 )%stream(2) = 2097216 ! 00200040 F_no3_a06 = .TRUE. IF ( chem_index_table( PARAM_cl_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a06 = chem_num_table(idomain) chem_index_table( PARAM_cl_a06 , idomain ) = P_cl_a06 ELSE P_cl_a06 = chem_index_table( PARAM_cl_a06 , idomain ) END IF chem_boundary_table( idomain, P_cl_a06 ) = .TRUE. chem_dname_table( idomain, P_cl_a06 ) = 'cl_a06' chem_desc_table( idomain, P_cl_a06 ) = 'Chloride, aerosol bin 06' chem_units_table( idomain, P_cl_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a06 )%stream(2) = 2097216 ! 00200040 F_cl_a06 = .TRUE. IF ( chem_index_table( PARAM_nh4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a06 , idomain ) = P_nh4_a06 ELSE P_nh4_a06 = chem_index_table( PARAM_nh4_a06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a06 ) = .TRUE. chem_dname_table( idomain, P_nh4_a06 ) = 'nh4_a06' chem_desc_table( idomain, P_nh4_a06 ) = 'Ammonium, aerosol bin 06' chem_units_table( idomain, P_nh4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a06 )%stream(2) = 2097216 ! 00200040 F_nh4_a06 = .TRUE. IF ( chem_index_table( PARAM_na_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a06 = chem_num_table(idomain) chem_index_table( PARAM_na_a06 , idomain ) = P_na_a06 ELSE P_na_a06 = chem_index_table( PARAM_na_a06 , idomain ) END IF chem_boundary_table( idomain, P_na_a06 ) = .TRUE. chem_dname_table( idomain, P_na_a06 ) = 'na_a06' chem_desc_table( idomain, P_na_a06 ) = 'Sodium, aerosol bin 06' chem_units_table( idomain, P_na_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a06 )%stream(2) = 2097216 ! 00200040 F_na_a06 = .TRUE. IF ( chem_index_table( PARAM_oin_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a06 = chem_num_table(idomain) chem_index_table( PARAM_oin_a06 , idomain ) = P_oin_a06 ELSE P_oin_a06 = chem_index_table( PARAM_oin_a06 , idomain ) END IF chem_boundary_table( idomain, P_oin_a06 ) = .TRUE. chem_dname_table( idomain, P_oin_a06 ) = 'oin_a06' chem_desc_table( idomain, P_oin_a06 ) = 'Other inorganics, aerosol bin 06' chem_units_table( idomain, P_oin_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a06 )%stream(2) = 2097216 ! 00200040 F_oin_a06 = .TRUE. IF ( chem_index_table( PARAM_oc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a06 = chem_num_table(idomain) chem_index_table( PARAM_oc_a06 , idomain ) = P_oc_a06 ELSE P_oc_a06 = chem_index_table( PARAM_oc_a06 , idomain ) END IF chem_boundary_table( idomain, P_oc_a06 ) = .TRUE. chem_dname_table( idomain, P_oc_a06 ) = 'oc_a06' chem_desc_table( idomain, P_oc_a06 ) = 'Organic carbon, aerosol bin 06' chem_units_table( idomain, P_oc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a06 )%stream(2) = 2097216 ! 00200040 F_oc_a06 = .TRUE. IF ( chem_index_table( PARAM_bc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a06 = chem_num_table(idomain) chem_index_table( PARAM_bc_a06 , idomain ) = P_bc_a06 ELSE P_bc_a06 = chem_index_table( PARAM_bc_a06 , idomain ) END IF chem_boundary_table( idomain, P_bc_a06 ) = .TRUE. chem_dname_table( idomain, P_bc_a06 ) = 'bc_a06' chem_desc_table( idomain, P_bc_a06 ) = 'Black carbon, aerosol bin 06' chem_units_table( idomain, P_bc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a06 )%stream(2) = 2097216 ! 00200040 F_bc_a06 = .TRUE. IF ( chem_index_table( PARAM_hysw_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a06 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a06 , idomain ) = P_hysw_a06 ELSE P_hysw_a06 = chem_index_table( PARAM_hysw_a06 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a06 ) = .TRUE. chem_dname_table( idomain, P_hysw_a06 ) = 'hysw_a06' chem_desc_table( idomain, P_hysw_a06 ) = 'Hysteresis water, aerosol bin 06' chem_units_table( idomain, P_hysw_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a06 )%stream(2) = 2097216 ! 00200040 F_hysw_a06 = .TRUE. IF ( chem_index_table( PARAM_water_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a06 = chem_num_table(idomain) chem_index_table( PARAM_water_a06 , idomain ) = P_water_a06 ELSE P_water_a06 = chem_index_table( PARAM_water_a06 , idomain ) END IF chem_boundary_table( idomain, P_water_a06 ) = .TRUE. chem_dname_table( idomain, P_water_a06 ) = 'water_a06' chem_desc_table( idomain, P_water_a06 ) = 'Water, aerosol bin 06' chem_units_table( idomain, P_water_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a06 )%stream(2) = 2097216 ! 00200040 F_water_a06 = .TRUE. IF ( chem_index_table( PARAM_num_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a06 = chem_num_table(idomain) chem_index_table( PARAM_num_a06 , idomain ) = P_num_a06 ELSE P_num_a06 = chem_index_table( PARAM_num_a06 , idomain ) END IF chem_boundary_table( idomain, P_num_a06 ) = .TRUE. chem_dname_table( idomain, P_num_a06 ) = 'num_a06' chem_desc_table( idomain, P_num_a06 ) = 'Number, aerosol bin 06' chem_units_table( idomain, P_num_a06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a06 )%stream(2) = 2097216 ! 00200040 F_num_a06 = .TRUE. IF ( chem_index_table( PARAM_so4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a07 = chem_num_table(idomain) chem_index_table( PARAM_so4_a07 , idomain ) = P_so4_a07 ELSE P_so4_a07 = chem_index_table( PARAM_so4_a07 , idomain ) END IF chem_boundary_table( idomain, P_so4_a07 ) = .TRUE. chem_dname_table( idomain, P_so4_a07 ) = 'so4_a07' chem_desc_table( idomain, P_so4_a07 ) = 'Sulfate, aerosol bin 07' chem_units_table( idomain, P_so4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a07 )%stream(2) = 2097216 ! 00200040 F_so4_a07 = .TRUE. IF ( chem_index_table( PARAM_no3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a07 = chem_num_table(idomain) chem_index_table( PARAM_no3_a07 , idomain ) = P_no3_a07 ELSE P_no3_a07 = chem_index_table( PARAM_no3_a07 , idomain ) END IF chem_boundary_table( idomain, P_no3_a07 ) = .TRUE. chem_dname_table( idomain, P_no3_a07 ) = 'no3_a07' chem_desc_table( idomain, P_no3_a07 ) = 'Nitrate, aerosol bin 07' chem_units_table( idomain, P_no3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a07 )%stream(2) = 2097216 ! 00200040 F_no3_a07 = .TRUE. IF ( chem_index_table( PARAM_cl_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a07 = chem_num_table(idomain) chem_index_table( PARAM_cl_a07 , idomain ) = P_cl_a07 ELSE P_cl_a07 = chem_index_table( PARAM_cl_a07 , idomain ) END IF chem_boundary_table( idomain, P_cl_a07 ) = .TRUE. chem_dname_table( idomain, P_cl_a07 ) = 'cl_a07' chem_desc_table( idomain, P_cl_a07 ) = 'Chloride, aerosol bin 07' chem_units_table( idomain, P_cl_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a07 )%stream(2) = 2097216 ! 00200040 F_cl_a07 = .TRUE. IF ( chem_index_table( PARAM_nh4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a07 , idomain ) = P_nh4_a07 ELSE P_nh4_a07 = chem_index_table( PARAM_nh4_a07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a07 ) = .TRUE. chem_dname_table( idomain, P_nh4_a07 ) = 'nh4_a07' chem_desc_table( idomain, P_nh4_a07 ) = 'Ammonium, aerosol bin 07' chem_units_table( idomain, P_nh4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a07 )%stream(2) = 2097216 ! 00200040 F_nh4_a07 = .TRUE. IF ( chem_index_table( PARAM_na_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a07 = chem_num_table(idomain) chem_index_table( PARAM_na_a07 , idomain ) = P_na_a07 ELSE P_na_a07 = chem_index_table( PARAM_na_a07 , idomain ) END IF chem_boundary_table( idomain, P_na_a07 ) = .TRUE. chem_dname_table( idomain, P_na_a07 ) = 'na_a07' chem_desc_table( idomain, P_na_a07 ) = 'Sodium, aerosol bin 07' chem_units_table( idomain, P_na_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a07 )%stream(2) = 2097216 ! 00200040 F_na_a07 = .TRUE. IF ( chem_index_table( PARAM_oin_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a07 = chem_num_table(idomain) chem_index_table( PARAM_oin_a07 , idomain ) = P_oin_a07 ELSE P_oin_a07 = chem_index_table( PARAM_oin_a07 , idomain ) END IF chem_boundary_table( idomain, P_oin_a07 ) = .TRUE. chem_dname_table( idomain, P_oin_a07 ) = 'oin_a07' chem_desc_table( idomain, P_oin_a07 ) = 'Other inorganics, aerosol bin 07' chem_units_table( idomain, P_oin_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a07 )%stream(2) = 2097216 ! 00200040 F_oin_a07 = .TRUE. IF ( chem_index_table( PARAM_oc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a07 = chem_num_table(idomain) chem_index_table( PARAM_oc_a07 , idomain ) = P_oc_a07 ELSE P_oc_a07 = chem_index_table( PARAM_oc_a07 , idomain ) END IF chem_boundary_table( idomain, P_oc_a07 ) = .TRUE. chem_dname_table( idomain, P_oc_a07 ) = 'oc_a07' chem_desc_table( idomain, P_oc_a07 ) = 'Organic carbon, aerosol bin 07' chem_units_table( idomain, P_oc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a07 )%stream(2) = 2097216 ! 00200040 F_oc_a07 = .TRUE. IF ( chem_index_table( PARAM_bc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a07 = chem_num_table(idomain) chem_index_table( PARAM_bc_a07 , idomain ) = P_bc_a07 ELSE P_bc_a07 = chem_index_table( PARAM_bc_a07 , idomain ) END IF chem_boundary_table( idomain, P_bc_a07 ) = .TRUE. chem_dname_table( idomain, P_bc_a07 ) = 'bc_a07' chem_desc_table( idomain, P_bc_a07 ) = 'Black carbon, aerosol bin 07' chem_units_table( idomain, P_bc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a07 )%stream(2) = 2097216 ! 00200040 F_bc_a07 = .TRUE. IF ( chem_index_table( PARAM_hysw_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a07 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a07 , idomain ) = P_hysw_a07 ELSE P_hysw_a07 = chem_index_table( PARAM_hysw_a07 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a07 ) = .TRUE. chem_dname_table( idomain, P_hysw_a07 ) = 'hysw_a07' chem_desc_table( idomain, P_hysw_a07 ) = 'Hysteresis water, aerosol bin 07' chem_units_table( idomain, P_hysw_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a07 )%stream(2) = 2097216 ! 00200040 F_hysw_a07 = .TRUE. IF ( chem_index_table( PARAM_water_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a07 = chem_num_table(idomain) chem_index_table( PARAM_water_a07 , idomain ) = P_water_a07 ELSE P_water_a07 = chem_index_table( PARAM_water_a07 , idomain ) END IF chem_boundary_table( idomain, P_water_a07 ) = .TRUE. chem_dname_table( idomain, P_water_a07 ) = 'water_a07' chem_desc_table( idomain, P_water_a07 ) = 'Water, aerosol bin 07' chem_units_table( idomain, P_water_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a07 )%stream(2) = 2097216 ! 00200040 F_water_a07 = .TRUE. IF ( chem_index_table( PARAM_num_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a07 = chem_num_table(idomain) chem_index_table( PARAM_num_a07 , idomain ) = P_num_a07 ELSE P_num_a07 = chem_index_table( PARAM_num_a07 , idomain ) END IF chem_boundary_table( idomain, P_num_a07 ) = .TRUE. chem_dname_table( idomain, P_num_a07 ) = 'num_a07' chem_desc_table( idomain, P_num_a07 ) = 'Number, aerosol bin 07' chem_units_table( idomain, P_num_a07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a07 )%stream(2) = 2097216 ! 00200040 F_num_a07 = .TRUE. IF ( chem_index_table( PARAM_so4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a08 = chem_num_table(idomain) chem_index_table( PARAM_so4_a08 , idomain ) = P_so4_a08 ELSE P_so4_a08 = chem_index_table( PARAM_so4_a08 , idomain ) END IF chem_boundary_table( idomain, P_so4_a08 ) = .TRUE. chem_dname_table( idomain, P_so4_a08 ) = 'so4_a08' chem_desc_table( idomain, P_so4_a08 ) = 'Sulfate, aerosol bin 08' chem_units_table( idomain, P_so4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a08 )%stream(2) = 2097216 ! 00200040 F_so4_a08 = .TRUE. IF ( chem_index_table( PARAM_no3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a08 = chem_num_table(idomain) chem_index_table( PARAM_no3_a08 , idomain ) = P_no3_a08 ELSE P_no3_a08 = chem_index_table( PARAM_no3_a08 , idomain ) END IF chem_boundary_table( idomain, P_no3_a08 ) = .TRUE. chem_dname_table( idomain, P_no3_a08 ) = 'no3_a08' chem_desc_table( idomain, P_no3_a08 ) = 'Nitrate, aerosol bin 08' chem_units_table( idomain, P_no3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a08 )%stream(2) = 2097216 ! 00200040 F_no3_a08 = .TRUE. IF ( chem_index_table( PARAM_cl_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a08 = chem_num_table(idomain) chem_index_table( PARAM_cl_a08 , idomain ) = P_cl_a08 ELSE P_cl_a08 = chem_index_table( PARAM_cl_a08 , idomain ) END IF chem_boundary_table( idomain, P_cl_a08 ) = .TRUE. chem_dname_table( idomain, P_cl_a08 ) = 'cl_a08' chem_desc_table( idomain, P_cl_a08 ) = 'Chloride, aerosol bin 08' chem_units_table( idomain, P_cl_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a08 )%stream(2) = 2097216 ! 00200040 F_cl_a08 = .TRUE. IF ( chem_index_table( PARAM_nh4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a08 , idomain ) = P_nh4_a08 ELSE P_nh4_a08 = chem_index_table( PARAM_nh4_a08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a08 ) = .TRUE. chem_dname_table( idomain, P_nh4_a08 ) = 'nh4_a08' chem_desc_table( idomain, P_nh4_a08 ) = 'Ammonium, aerosol bin 08' chem_units_table( idomain, P_nh4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a08 )%stream(2) = 2097216 ! 00200040 F_nh4_a08 = .TRUE. IF ( chem_index_table( PARAM_na_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a08 = chem_num_table(idomain) chem_index_table( PARAM_na_a08 , idomain ) = P_na_a08 ELSE P_na_a08 = chem_index_table( PARAM_na_a08 , idomain ) END IF chem_boundary_table( idomain, P_na_a08 ) = .TRUE. chem_dname_table( idomain, P_na_a08 ) = 'na_a08' chem_desc_table( idomain, P_na_a08 ) = 'Sodium, aerosol bin 08' chem_units_table( idomain, P_na_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a08 )%stream(2) = 2097216 ! 00200040 F_na_a08 = .TRUE. IF ( chem_index_table( PARAM_oin_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a08 = chem_num_table(idomain) chem_index_table( PARAM_oin_a08 , idomain ) = P_oin_a08 ELSE P_oin_a08 = chem_index_table( PARAM_oin_a08 , idomain ) END IF chem_boundary_table( idomain, P_oin_a08 ) = .TRUE. chem_dname_table( idomain, P_oin_a08 ) = 'oin_a08' chem_desc_table( idomain, P_oin_a08 ) = 'Other inorganics, aerosol bin 08' chem_units_table( idomain, P_oin_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a08 )%stream(2) = 2097216 ! 00200040 F_oin_a08 = .TRUE. IF ( chem_index_table( PARAM_oc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a08 = chem_num_table(idomain) chem_index_table( PARAM_oc_a08 , idomain ) = P_oc_a08 ELSE P_oc_a08 = chem_index_table( PARAM_oc_a08 , idomain ) END IF chem_boundary_table( idomain, P_oc_a08 ) = .TRUE. chem_dname_table( idomain, P_oc_a08 ) = 'oc_a08' chem_desc_table( idomain, P_oc_a08 ) = 'Organic carbon, aerosol bin 08' chem_units_table( idomain, P_oc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a08 )%stream(2) = 2097216 ! 00200040 F_oc_a08 = .TRUE. IF ( chem_index_table( PARAM_bc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a08 = chem_num_table(idomain) chem_index_table( PARAM_bc_a08 , idomain ) = P_bc_a08 ELSE P_bc_a08 = chem_index_table( PARAM_bc_a08 , idomain ) END IF chem_boundary_table( idomain, P_bc_a08 ) = .TRUE. chem_dname_table( idomain, P_bc_a08 ) = 'bc_a08' chem_desc_table( idomain, P_bc_a08 ) = 'Black carbon, aerosol bin 08' chem_units_table( idomain, P_bc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a08 )%stream(2) = 2097216 ! 00200040 F_bc_a08 = .TRUE. IF ( chem_index_table( PARAM_hysw_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a08 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a08 , idomain ) = P_hysw_a08 ELSE P_hysw_a08 = chem_index_table( PARAM_hysw_a08 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a08 ) = .TRUE. chem_dname_table( idomain, P_hysw_a08 ) = 'hysw_a08' chem_desc_table( idomain, P_hysw_a08 ) = 'Hysteresis water, aerosol bin 08' chem_units_table( idomain, P_hysw_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a08 )%stream(2) = 2097216 ! 00200040 F_hysw_a08 = .TRUE. IF ( chem_index_table( PARAM_water_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a08 = chem_num_table(idomain) chem_index_table( PARAM_water_a08 , idomain ) = P_water_a08 ELSE P_water_a08 = chem_index_table( PARAM_water_a08 , idomain ) END IF chem_boundary_table( idomain, P_water_a08 ) = .TRUE. chem_dname_table( idomain, P_water_a08 ) = 'water_a08' chem_desc_table( idomain, P_water_a08 ) = 'Water, aerosol bin 08' chem_units_table( idomain, P_water_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a08 )%stream(2) = 2097216 ! 00200040 F_water_a08 = .TRUE. IF ( chem_index_table( PARAM_num_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a08 = chem_num_table(idomain) chem_index_table( PARAM_num_a08 , idomain ) = P_num_a08 ELSE P_num_a08 = chem_index_table( PARAM_num_a08 , idomain ) END IF chem_boundary_table( idomain, P_num_a08 ) = .TRUE. chem_dname_table( idomain, P_num_a08 ) = 'num_a08' chem_desc_table( idomain, P_num_a08 ) = 'Number, aerosol bin 08' chem_units_table( idomain, P_num_a08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a08 )%stream(2) = 2097216 ! 00200040 F_num_a08 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 ! 00200040 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 ! 00200040 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 ! 00200040 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 ! 00200040 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a05 = chem_num_table(idomain) chem_index_table( PARAM_ca_a05 , idomain ) = P_ca_a05 ELSE P_ca_a05 = chem_index_table( PARAM_ca_a05 , idomain ) END IF chem_boundary_table( idomain, P_ca_a05 ) = .TRUE. chem_dname_table( idomain, P_ca_a05 ) = 'ca_a05' chem_desc_table( idomain, P_ca_a05 ) = 'Calcium, aerosol bin 05' chem_units_table( idomain, P_ca_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a05 )%stream(2) = 2097216 ! 00200040 F_ca_a05 = .TRUE. IF ( chem_index_table( PARAM_ca_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a06 = chem_num_table(idomain) chem_index_table( PARAM_ca_a06 , idomain ) = P_ca_a06 ELSE P_ca_a06 = chem_index_table( PARAM_ca_a06 , idomain ) END IF chem_boundary_table( idomain, P_ca_a06 ) = .TRUE. chem_dname_table( idomain, P_ca_a06 ) = 'ca_a06' chem_desc_table( idomain, P_ca_a06 ) = 'Calcium, aerosol bin 06' chem_units_table( idomain, P_ca_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a06 )%stream(2) = 2097216 ! 00200040 F_ca_a06 = .TRUE. IF ( chem_index_table( PARAM_ca_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a07 = chem_num_table(idomain) chem_index_table( PARAM_ca_a07 , idomain ) = P_ca_a07 ELSE P_ca_a07 = chem_index_table( PARAM_ca_a07 , idomain ) END IF chem_boundary_table( idomain, P_ca_a07 ) = .TRUE. chem_dname_table( idomain, P_ca_a07 ) = 'ca_a07' chem_desc_table( idomain, P_ca_a07 ) = 'Calcium, aerosol bin 07' chem_units_table( idomain, P_ca_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a07 )%stream(2) = 2097216 ! 00200040 F_ca_a07 = .TRUE. IF ( chem_index_table( PARAM_ca_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a08 = chem_num_table(idomain) chem_index_table( PARAM_ca_a08 , idomain ) = P_ca_a08 ELSE P_ca_a08 = chem_index_table( PARAM_ca_a08 , idomain ) END IF chem_boundary_table( idomain, P_ca_a08 ) = .TRUE. chem_dname_table( idomain, P_ca_a08 ) = 'ca_a08' chem_desc_table( idomain, P_ca_a08 ) = 'Calcium, aerosol bin 08' chem_units_table( idomain, P_ca_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a08 )%stream(2) = 2097216 ! 00200040 F_ca_a08 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 ! 00200040 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 ! 00200040 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 ! 00200040 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 ! 00200040 F_co3_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a05 = chem_num_table(idomain) chem_index_table( PARAM_co3_a05 , idomain ) = P_co3_a05 ELSE P_co3_a05 = chem_index_table( PARAM_co3_a05 , idomain ) END IF chem_boundary_table( idomain, P_co3_a05 ) = .TRUE. chem_dname_table( idomain, P_co3_a05 ) = 'co3_a05' chem_desc_table( idomain, P_co3_a05 ) = 'Carbonate, aerosol bin 05' chem_units_table( idomain, P_co3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a05 )%stream(2) = 2097216 ! 00200040 F_co3_a05 = .TRUE. IF ( chem_index_table( PARAM_co3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a06 = chem_num_table(idomain) chem_index_table( PARAM_co3_a06 , idomain ) = P_co3_a06 ELSE P_co3_a06 = chem_index_table( PARAM_co3_a06 , idomain ) END IF chem_boundary_table( idomain, P_co3_a06 ) = .TRUE. chem_dname_table( idomain, P_co3_a06 ) = 'co3_a06' chem_desc_table( idomain, P_co3_a06 ) = 'Carbonate, aerosol bin 06' chem_units_table( idomain, P_co3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a06 )%stream(2) = 2097216 ! 00200040 F_co3_a06 = .TRUE. IF ( chem_index_table( PARAM_co3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a07 = chem_num_table(idomain) chem_index_table( PARAM_co3_a07 , idomain ) = P_co3_a07 ELSE P_co3_a07 = chem_index_table( PARAM_co3_a07 , idomain ) END IF chem_boundary_table( idomain, P_co3_a07 ) = .TRUE. chem_dname_table( idomain, P_co3_a07 ) = 'co3_a07' chem_desc_table( idomain, P_co3_a07 ) = 'Carbonate, aerosol bin 07' chem_units_table( idomain, P_co3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a07 )%stream(2) = 2097216 ! 00200040 F_co3_a07 = .TRUE. IF ( chem_index_table( PARAM_co3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a08 = chem_num_table(idomain) chem_index_table( PARAM_co3_a08 , idomain ) = P_co3_a08 ELSE P_co3_a08 = chem_index_table( PARAM_co3_a08 , idomain ) END IF chem_boundary_table( idomain, P_co3_a08 ) = .TRUE. chem_dname_table( idomain, P_co3_a08 ) = 'co3_a08' chem_desc_table( idomain, P_co3_a08 ) = 'Carbonate, aerosol bin 08' chem_units_table( idomain, P_co3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a08 )%stream(2) = 2097216 ! 00200040 F_co3_a08 = .TRUE. IF ( chem_index_table( PARAM_msa_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a01 = chem_num_table(idomain) chem_index_table( PARAM_msa_a01 , idomain ) = P_msa_a01 ELSE P_msa_a01 = chem_index_table( PARAM_msa_a01 , idomain ) END IF chem_boundary_table( idomain, P_msa_a01 ) = .TRUE. chem_dname_table( idomain, P_msa_a01 ) = 'msa_a01' chem_desc_table( idomain, P_msa_a01 ) = 'MSA, aerosol bin 01' chem_units_table( idomain, P_msa_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a01 )%stream(2) = 2097216 ! 00200040 F_msa_a01 = .TRUE. IF ( chem_index_table( PARAM_msa_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a02 = chem_num_table(idomain) chem_index_table( PARAM_msa_a02 , idomain ) = P_msa_a02 ELSE P_msa_a02 = chem_index_table( PARAM_msa_a02 , idomain ) END IF chem_boundary_table( idomain, P_msa_a02 ) = .TRUE. chem_dname_table( idomain, P_msa_a02 ) = 'msa_a02' chem_desc_table( idomain, P_msa_a02 ) = 'MSA, aerosol bin 02' chem_units_table( idomain, P_msa_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a02 )%stream(2) = 2097216 ! 00200040 F_msa_a02 = .TRUE. IF ( chem_index_table( PARAM_msa_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a03 = chem_num_table(idomain) chem_index_table( PARAM_msa_a03 , idomain ) = P_msa_a03 ELSE P_msa_a03 = chem_index_table( PARAM_msa_a03 , idomain ) END IF chem_boundary_table( idomain, P_msa_a03 ) = .TRUE. chem_dname_table( idomain, P_msa_a03 ) = 'msa_a03' chem_desc_table( idomain, P_msa_a03 ) = 'MSA, aerosol bin 03' chem_units_table( idomain, P_msa_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a03 )%stream(2) = 2097216 ! 00200040 F_msa_a03 = .TRUE. IF ( chem_index_table( PARAM_msa_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a04 = chem_num_table(idomain) chem_index_table( PARAM_msa_a04 , idomain ) = P_msa_a04 ELSE P_msa_a04 = chem_index_table( PARAM_msa_a04 , idomain ) END IF chem_boundary_table( idomain, P_msa_a04 ) = .TRUE. chem_dname_table( idomain, P_msa_a04 ) = 'msa_a04' chem_desc_table( idomain, P_msa_a04 ) = 'MSA, aerosol bin 04' chem_units_table( idomain, P_msa_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a04 )%stream(2) = 2097216 ! 00200040 F_msa_a04 = .TRUE. IF ( chem_index_table( PARAM_msa_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a05 = chem_num_table(idomain) chem_index_table( PARAM_msa_a05 , idomain ) = P_msa_a05 ELSE P_msa_a05 = chem_index_table( PARAM_msa_a05 , idomain ) END IF chem_boundary_table( idomain, P_msa_a05 ) = .TRUE. chem_dname_table( idomain, P_msa_a05 ) = 'msa_a05' chem_desc_table( idomain, P_msa_a05 ) = 'MSA, aerosol bin 05' chem_units_table( idomain, P_msa_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a05 )%stream(2) = 2097216 ! 00200040 F_msa_a05 = .TRUE. IF ( chem_index_table( PARAM_msa_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a06 = chem_num_table(idomain) chem_index_table( PARAM_msa_a06 , idomain ) = P_msa_a06 ELSE P_msa_a06 = chem_index_table( PARAM_msa_a06 , idomain ) END IF chem_boundary_table( idomain, P_msa_a06 ) = .TRUE. chem_dname_table( idomain, P_msa_a06 ) = 'msa_a06' chem_desc_table( idomain, P_msa_a06 ) = 'MSA, aerosol bin 06' chem_units_table( idomain, P_msa_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a06 )%stream(2) = 2097216 ! 00200040 F_msa_a06 = .TRUE. IF ( chem_index_table( PARAM_msa_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a07 = chem_num_table(idomain) chem_index_table( PARAM_msa_a07 , idomain ) = P_msa_a07 ELSE P_msa_a07 = chem_index_table( PARAM_msa_a07 , idomain ) END IF chem_boundary_table( idomain, P_msa_a07 ) = .TRUE. chem_dname_table( idomain, P_msa_a07 ) = 'msa_a07' chem_desc_table( idomain, P_msa_a07 ) = 'MSA, aerosol bin 07' chem_units_table( idomain, P_msa_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a07 )%stream(2) = 2097216 ! 00200040 F_msa_a07 = .TRUE. IF ( chem_index_table( PARAM_msa_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a08 = chem_num_table(idomain) chem_index_table( PARAM_msa_a08 , idomain ) = P_msa_a08 ELSE P_msa_a08 = chem_index_table( PARAM_msa_a08 , idomain ) END IF chem_boundary_table( idomain, P_msa_a08 ) = .TRUE. chem_dname_table( idomain, P_msa_a08 ) = 'msa_a08' chem_desc_table( idomain, P_msa_a08 ) = 'MSA, aerosol bin 08' chem_units_table( idomain, P_msa_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_a08 )%stream(2) = 2097216 ! 00200040 F_msa_a08 = .TRUE. IF ( chem_index_table( PARAM_so4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw01 , idomain ) = P_so4_cw01 ELSE P_so4_cw01 = chem_index_table( PARAM_so4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw01 ) = .TRUE. chem_dname_table( idomain, P_so4_cw01 ) = 'so4_cw01' chem_desc_table( idomain, P_so4_cw01 ) = 'Sulfate, aerosol in cloud bin 01' chem_units_table( idomain, P_so4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw01 )%stream(2) = 2097216 ! 00200040 F_so4_cw01 = .TRUE. IF ( chem_index_table( PARAM_no3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw01 , idomain ) = P_no3_cw01 ELSE P_no3_cw01 = chem_index_table( PARAM_no3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw01 ) = .TRUE. chem_dname_table( idomain, P_no3_cw01 ) = 'no3_cw01' chem_desc_table( idomain, P_no3_cw01 ) = 'Nitrate, aerosol in cloud bin 01' chem_units_table( idomain, P_no3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw01 )%stream(2) = 2097216 ! 00200040 F_no3_cw01 = .TRUE. IF ( chem_index_table( PARAM_cl_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw01 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw01 , idomain ) = P_cl_cw01 ELSE P_cl_cw01 = chem_index_table( PARAM_cl_cw01 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw01 ) = .TRUE. chem_dname_table( idomain, P_cl_cw01 ) = 'cl_cw01' chem_desc_table( idomain, P_cl_cw01 ) = 'Chloride, aerosol in cloud bin 01' chem_units_table( idomain, P_cl_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw01 )%stream(2) = 2097216 ! 00200040 F_cl_cw01 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw01 , idomain ) = P_nh4_cw01 ELSE P_nh4_cw01 = chem_index_table( PARAM_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw01 ) = 'nh4_cw01' chem_desc_table( idomain, P_nh4_cw01 ) = 'Ammonium, aerosol in cloud bin 01' chem_units_table( idomain, P_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw01 )%stream(2) = 2097216 ! 00200040 F_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_na_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw01 = chem_num_table(idomain) chem_index_table( PARAM_na_cw01 , idomain ) = P_na_cw01 ELSE P_na_cw01 = chem_index_table( PARAM_na_cw01 , idomain ) END IF chem_boundary_table( idomain, P_na_cw01 ) = .TRUE. chem_dname_table( idomain, P_na_cw01 ) = 'na_cw01' chem_desc_table( idomain, P_na_cw01 ) = 'Sodium, aerosol in cloud bin 01' chem_units_table( idomain, P_na_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw01 )%stream(2) = 2097216 ! 00200040 F_na_cw01 = .TRUE. IF ( chem_index_table( PARAM_oin_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw01 , idomain ) = P_oin_cw01 ELSE P_oin_cw01 = chem_index_table( PARAM_oin_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw01 ) = .TRUE. chem_dname_table( idomain, P_oin_cw01 ) = 'oin_cw01' chem_desc_table( idomain, P_oin_cw01 ) = 'Other inorganics, aerosol in cloud bin 01' chem_units_table( idomain, P_oin_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw01 )%stream(2) = 2097216 ! 00200040 F_oin_cw01 = .TRUE. IF ( chem_index_table( PARAM_oc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw01 , idomain ) = P_oc_cw01 ELSE P_oc_cw01 = chem_index_table( PARAM_oc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw01 ) = .TRUE. chem_dname_table( idomain, P_oc_cw01 ) = 'oc_cw01' chem_desc_table( idomain, P_oc_cw01 ) = 'Organic carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_oc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw01 )%stream(2) = 2097216 ! 00200040 F_oc_cw01 = .TRUE. IF ( chem_index_table( PARAM_bc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw01 , idomain ) = P_bc_cw01 ELSE P_bc_cw01 = chem_index_table( PARAM_bc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw01 ) = .TRUE. chem_dname_table( idomain, P_bc_cw01 ) = 'bc_cw01' chem_desc_table( idomain, P_bc_cw01 ) = 'Black carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_bc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw01 )%stream(2) = 2097216 ! 00200040 F_bc_cw01 = .TRUE. IF ( chem_index_table( PARAM_num_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw01 = chem_num_table(idomain) chem_index_table( PARAM_num_cw01 , idomain ) = P_num_cw01 ELSE P_num_cw01 = chem_index_table( PARAM_num_cw01 , idomain ) END IF chem_boundary_table( idomain, P_num_cw01 ) = .TRUE. chem_dname_table( idomain, P_num_cw01 ) = 'num_cw01' chem_desc_table( idomain, P_num_cw01 ) = 'Number, aerosol in cloud bin 01' chem_units_table( idomain, P_num_cw01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw01 )%stream(2) = 2097216 ! 00200040 F_num_cw01 = .TRUE. IF ( chem_index_table( PARAM_so4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw02 , idomain ) = P_so4_cw02 ELSE P_so4_cw02 = chem_index_table( PARAM_so4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw02 ) = .TRUE. chem_dname_table( idomain, P_so4_cw02 ) = 'so4_cw02' chem_desc_table( idomain, P_so4_cw02 ) = 'Sulfate, aerosol in cloud bin 02' chem_units_table( idomain, P_so4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw02 )%stream(2) = 2097216 ! 00200040 F_so4_cw02 = .TRUE. IF ( chem_index_table( PARAM_no3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw02 , idomain ) = P_no3_cw02 ELSE P_no3_cw02 = chem_index_table( PARAM_no3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw02 ) = .TRUE. chem_dname_table( idomain, P_no3_cw02 ) = 'no3_cw02' chem_desc_table( idomain, P_no3_cw02 ) = 'Nitrate, aerosol in cloud bin 02' chem_units_table( idomain, P_no3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw02 )%stream(2) = 2097216 ! 00200040 F_no3_cw02 = .TRUE. IF ( chem_index_table( PARAM_cl_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw02 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw02 , idomain ) = P_cl_cw02 ELSE P_cl_cw02 = chem_index_table( PARAM_cl_cw02 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw02 ) = .TRUE. chem_dname_table( idomain, P_cl_cw02 ) = 'cl_cw02' chem_desc_table( idomain, P_cl_cw02 ) = 'Chloride, aerosol in cloud bin 02' chem_units_table( idomain, P_cl_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw02 )%stream(2) = 2097216 ! 00200040 F_cl_cw02 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw02 , idomain ) = P_nh4_cw02 ELSE P_nh4_cw02 = chem_index_table( PARAM_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw02 ) = 'nh4_cw02' chem_desc_table( idomain, P_nh4_cw02 ) = 'Ammonium, aerosol in cloud bin 02' chem_units_table( idomain, P_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw02 )%stream(2) = 2097216 ! 00200040 F_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_na_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw02 = chem_num_table(idomain) chem_index_table( PARAM_na_cw02 , idomain ) = P_na_cw02 ELSE P_na_cw02 = chem_index_table( PARAM_na_cw02 , idomain ) END IF chem_boundary_table( idomain, P_na_cw02 ) = .TRUE. chem_dname_table( idomain, P_na_cw02 ) = 'na_cw02' chem_desc_table( idomain, P_na_cw02 ) = 'Sodium, aerosol in cloud bin 02' chem_units_table( idomain, P_na_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw02 )%stream(2) = 2097216 ! 00200040 F_na_cw02 = .TRUE. IF ( chem_index_table( PARAM_oin_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw02 , idomain ) = P_oin_cw02 ELSE P_oin_cw02 = chem_index_table( PARAM_oin_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw02 ) = .TRUE. chem_dname_table( idomain, P_oin_cw02 ) = 'oin_cw02' chem_desc_table( idomain, P_oin_cw02 ) = 'Other inorganics, aerosol in cloud bin 02' chem_units_table( idomain, P_oin_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw02 )%stream(2) = 2097216 ! 00200040 F_oin_cw02 = .TRUE. IF ( chem_index_table( PARAM_oc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw02 , idomain ) = P_oc_cw02 ELSE P_oc_cw02 = chem_index_table( PARAM_oc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw02 ) = .TRUE. chem_dname_table( idomain, P_oc_cw02 ) = 'oc_cw02' chem_desc_table( idomain, P_oc_cw02 ) = 'Organic carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_oc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw02 )%stream(2) = 2097216 ! 00200040 F_oc_cw02 = .TRUE. IF ( chem_index_table( PARAM_bc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw02 , idomain ) = P_bc_cw02 ELSE P_bc_cw02 = chem_index_table( PARAM_bc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw02 ) = .TRUE. chem_dname_table( idomain, P_bc_cw02 ) = 'bc_cw02' chem_desc_table( idomain, P_bc_cw02 ) = 'Black carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_bc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw02 )%stream(2) = 2097216 ! 00200040 F_bc_cw02 = .TRUE. IF ( chem_index_table( PARAM_num_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw02 = chem_num_table(idomain) chem_index_table( PARAM_num_cw02 , idomain ) = P_num_cw02 ELSE P_num_cw02 = chem_index_table( PARAM_num_cw02 , idomain ) END IF chem_boundary_table( idomain, P_num_cw02 ) = .TRUE. chem_dname_table( idomain, P_num_cw02 ) = 'num_cw02' chem_desc_table( idomain, P_num_cw02 ) = 'Number, aerosol in cloud bin 02' chem_units_table( idomain, P_num_cw02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw02 )%stream(2) = 2097216 ! 00200040 F_num_cw02 = .TRUE. IF ( chem_index_table( PARAM_so4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw03 , idomain ) = P_so4_cw03 ELSE P_so4_cw03 = chem_index_table( PARAM_so4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw03 ) = .TRUE. chem_dname_table( idomain, P_so4_cw03 ) = 'so4_cw03' chem_desc_table( idomain, P_so4_cw03 ) = 'Sulfate, aerosol in cloud bin 03' chem_units_table( idomain, P_so4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw03 )%stream(2) = 2097216 ! 00200040 F_so4_cw03 = .TRUE. IF ( chem_index_table( PARAM_no3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw03 , idomain ) = P_no3_cw03 ELSE P_no3_cw03 = chem_index_table( PARAM_no3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw03 ) = .TRUE. chem_dname_table( idomain, P_no3_cw03 ) = 'no3_cw03' chem_desc_table( idomain, P_no3_cw03 ) = 'Nitrate, aerosol in cloud bin 03' chem_units_table( idomain, P_no3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw03 )%stream(2) = 2097216 ! 00200040 F_no3_cw03 = .TRUE. IF ( chem_index_table( PARAM_cl_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw03 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw03 , idomain ) = P_cl_cw03 ELSE P_cl_cw03 = chem_index_table( PARAM_cl_cw03 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw03 ) = .TRUE. chem_dname_table( idomain, P_cl_cw03 ) = 'cl_cw03' chem_desc_table( idomain, P_cl_cw03 ) = 'Chloride, aerosol in cloud bin 03' chem_units_table( idomain, P_cl_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw03 )%stream(2) = 2097216 ! 00200040 F_cl_cw03 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw03 , idomain ) = P_nh4_cw03 ELSE P_nh4_cw03 = chem_index_table( PARAM_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw03 ) = 'nh4_cw03' chem_desc_table( idomain, P_nh4_cw03 ) = 'Ammonium, aerosol in cloud bin 03' chem_units_table( idomain, P_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw03 )%stream(2) = 2097216 ! 00200040 F_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_na_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw03 = chem_num_table(idomain) chem_index_table( PARAM_na_cw03 , idomain ) = P_na_cw03 ELSE P_na_cw03 = chem_index_table( PARAM_na_cw03 , idomain ) END IF chem_boundary_table( idomain, P_na_cw03 ) = .TRUE. chem_dname_table( idomain, P_na_cw03 ) = 'na_cw03' chem_desc_table( idomain, P_na_cw03 ) = 'Sodium, aerosol in cloud bin 03' chem_units_table( idomain, P_na_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw03 )%stream(2) = 2097216 ! 00200040 F_na_cw03 = .TRUE. IF ( chem_index_table( PARAM_oin_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw03 , idomain ) = P_oin_cw03 ELSE P_oin_cw03 = chem_index_table( PARAM_oin_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw03 ) = .TRUE. chem_dname_table( idomain, P_oin_cw03 ) = 'oin_cw03' chem_desc_table( idomain, P_oin_cw03 ) = 'Other inorganics, aerosol in cloud bin 03' chem_units_table( idomain, P_oin_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw03 )%stream(2) = 2097216 ! 00200040 F_oin_cw03 = .TRUE. IF ( chem_index_table( PARAM_oc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw03 , idomain ) = P_oc_cw03 ELSE P_oc_cw03 = chem_index_table( PARAM_oc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw03 ) = .TRUE. chem_dname_table( idomain, P_oc_cw03 ) = 'oc_cw03' chem_desc_table( idomain, P_oc_cw03 ) = 'Organic carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_oc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw03 )%stream(2) = 2097216 ! 00200040 F_oc_cw03 = .TRUE. IF ( chem_index_table( PARAM_bc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw03 , idomain ) = P_bc_cw03 ELSE P_bc_cw03 = chem_index_table( PARAM_bc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw03 ) = .TRUE. chem_dname_table( idomain, P_bc_cw03 ) = 'bc_cw03' chem_desc_table( idomain, P_bc_cw03 ) = 'Black carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_bc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw03 )%stream(2) = 2097216 ! 00200040 F_bc_cw03 = .TRUE. IF ( chem_index_table( PARAM_num_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw03 = chem_num_table(idomain) chem_index_table( PARAM_num_cw03 , idomain ) = P_num_cw03 ELSE P_num_cw03 = chem_index_table( PARAM_num_cw03 , idomain ) END IF chem_boundary_table( idomain, P_num_cw03 ) = .TRUE. chem_dname_table( idomain, P_num_cw03 ) = 'num_cw03' chem_desc_table( idomain, P_num_cw03 ) = 'Number, aerosol in cloud bin 03' chem_units_table( idomain, P_num_cw03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw03 )%stream(2) = 2097216 ! 00200040 F_num_cw03 = .TRUE. IF ( chem_index_table( PARAM_so4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw04 , idomain ) = P_so4_cw04 ELSE P_so4_cw04 = chem_index_table( PARAM_so4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw04 ) = .TRUE. chem_dname_table( idomain, P_so4_cw04 ) = 'so4_cw04' chem_desc_table( idomain, P_so4_cw04 ) = 'Sulfate, aerosol in cloud bin 04' chem_units_table( idomain, P_so4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw04 )%stream(2) = 2097216 ! 00200040 F_so4_cw04 = .TRUE. IF ( chem_index_table( PARAM_no3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw04 , idomain ) = P_no3_cw04 ELSE P_no3_cw04 = chem_index_table( PARAM_no3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw04 ) = .TRUE. chem_dname_table( idomain, P_no3_cw04 ) = 'no3_cw04' chem_desc_table( idomain, P_no3_cw04 ) = 'Nitrate, aerosol in cloud bin 04' chem_units_table( idomain, P_no3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw04 )%stream(2) = 2097216 ! 00200040 F_no3_cw04 = .TRUE. IF ( chem_index_table( PARAM_cl_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw04 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw04 , idomain ) = P_cl_cw04 ELSE P_cl_cw04 = chem_index_table( PARAM_cl_cw04 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw04 ) = .TRUE. chem_dname_table( idomain, P_cl_cw04 ) = 'cl_cw04' chem_desc_table( idomain, P_cl_cw04 ) = 'Chloride, aerosol in cloud bin 04' chem_units_table( idomain, P_cl_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw04 )%stream(2) = 2097216 ! 00200040 F_cl_cw04 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw04 , idomain ) = P_nh4_cw04 ELSE P_nh4_cw04 = chem_index_table( PARAM_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw04 ) = 'nh4_cw04' chem_desc_table( idomain, P_nh4_cw04 ) = 'Ammonium, aerosol in cloud bin 04' chem_units_table( idomain, P_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw04 )%stream(2) = 2097216 ! 00200040 F_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_na_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw04 = chem_num_table(idomain) chem_index_table( PARAM_na_cw04 , idomain ) = P_na_cw04 ELSE P_na_cw04 = chem_index_table( PARAM_na_cw04 , idomain ) END IF chem_boundary_table( idomain, P_na_cw04 ) = .TRUE. chem_dname_table( idomain, P_na_cw04 ) = 'na_cw04' chem_desc_table( idomain, P_na_cw04 ) = 'Sodium, aerosol in cloud bin 04' chem_units_table( idomain, P_na_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw04 )%stream(2) = 2097216 ! 00200040 F_na_cw04 = .TRUE. IF ( chem_index_table( PARAM_oin_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw04 , idomain ) = P_oin_cw04 ELSE P_oin_cw04 = chem_index_table( PARAM_oin_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw04 ) = .TRUE. chem_dname_table( idomain, P_oin_cw04 ) = 'oin_cw04' chem_desc_table( idomain, P_oin_cw04 ) = 'Other inorganics, aerosol in cloud bin 04' chem_units_table( idomain, P_oin_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw04 )%stream(2) = 2097216 ! 00200040 F_oin_cw04 = .TRUE. IF ( chem_index_table( PARAM_oc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw04 , idomain ) = P_oc_cw04 ELSE P_oc_cw04 = chem_index_table( PARAM_oc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw04 ) = .TRUE. chem_dname_table( idomain, P_oc_cw04 ) = 'oc_cw04' chem_desc_table( idomain, P_oc_cw04 ) = 'Organic carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_oc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw04 )%stream(2) = 2097216 ! 00200040 F_oc_cw04 = .TRUE. IF ( chem_index_table( PARAM_bc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw04 , idomain ) = P_bc_cw04 ELSE P_bc_cw04 = chem_index_table( PARAM_bc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw04 ) = .TRUE. chem_dname_table( idomain, P_bc_cw04 ) = 'bc_cw04' chem_desc_table( idomain, P_bc_cw04 ) = 'Black carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_bc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw04 )%stream(2) = 2097216 ! 00200040 F_bc_cw04 = .TRUE. IF ( chem_index_table( PARAM_num_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw04 = chem_num_table(idomain) chem_index_table( PARAM_num_cw04 , idomain ) = P_num_cw04 ELSE P_num_cw04 = chem_index_table( PARAM_num_cw04 , idomain ) END IF chem_boundary_table( idomain, P_num_cw04 ) = .TRUE. chem_dname_table( idomain, P_num_cw04 ) = 'num_cw04' chem_desc_table( idomain, P_num_cw04 ) = 'Number, aerosol in cloud bin 04' chem_units_table( idomain, P_num_cw04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw04 )%stream(2) = 2097216 ! 00200040 F_num_cw04 = .TRUE. IF ( chem_index_table( PARAM_so4_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw05 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw05 , idomain ) = P_so4_cw05 ELSE P_so4_cw05 = chem_index_table( PARAM_so4_cw05 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw05 ) = .TRUE. chem_dname_table( idomain, P_so4_cw05 ) = 'so4_cw05' chem_desc_table( idomain, P_so4_cw05 ) = 'Sulfate, aerosol in cloud bin 05' chem_units_table( idomain, P_so4_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw05 )%stream(2) = 2097216 ! 00200040 F_so4_cw05 = .TRUE. IF ( chem_index_table( PARAM_no3_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw05 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw05 , idomain ) = P_no3_cw05 ELSE P_no3_cw05 = chem_index_table( PARAM_no3_cw05 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw05 ) = .TRUE. chem_dname_table( idomain, P_no3_cw05 ) = 'no3_cw05' chem_desc_table( idomain, P_no3_cw05 ) = 'Nitrate, aerosol in cloud bin 05' chem_units_table( idomain, P_no3_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw05 )%stream(2) = 2097216 ! 00200040 F_no3_cw05 = .TRUE. IF ( chem_index_table( PARAM_cl_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw05 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw05 , idomain ) = P_cl_cw05 ELSE P_cl_cw05 = chem_index_table( PARAM_cl_cw05 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw05 ) = .TRUE. chem_dname_table( idomain, P_cl_cw05 ) = 'cl_cw05' chem_desc_table( idomain, P_cl_cw05 ) = 'Chloride, aerosol in cloud bin 05' chem_units_table( idomain, P_cl_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw05 )%stream(2) = 2097216 ! 00200040 F_cl_cw05 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw05 , idomain ) = P_nh4_cw05 ELSE P_nh4_cw05 = chem_index_table( PARAM_nh4_cw05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw05 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw05 ) = 'nh4_cw05' chem_desc_table( idomain, P_nh4_cw05 ) = 'Ammonium, aerosol in cloud bin 05' chem_units_table( idomain, P_nh4_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw05 )%stream(2) = 2097216 ! 00200040 F_nh4_cw05 = .TRUE. IF ( chem_index_table( PARAM_na_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw05 = chem_num_table(idomain) chem_index_table( PARAM_na_cw05 , idomain ) = P_na_cw05 ELSE P_na_cw05 = chem_index_table( PARAM_na_cw05 , idomain ) END IF chem_boundary_table( idomain, P_na_cw05 ) = .TRUE. chem_dname_table( idomain, P_na_cw05 ) = 'na_cw05' chem_desc_table( idomain, P_na_cw05 ) = 'Sodium, aerosol in cloud bin 05' chem_units_table( idomain, P_na_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw05 )%stream(2) = 2097216 ! 00200040 F_na_cw05 = .TRUE. IF ( chem_index_table( PARAM_oin_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw05 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw05 , idomain ) = P_oin_cw05 ELSE P_oin_cw05 = chem_index_table( PARAM_oin_cw05 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw05 ) = .TRUE. chem_dname_table( idomain, P_oin_cw05 ) = 'oin_cw05' chem_desc_table( idomain, P_oin_cw05 ) = 'Other inorganics, aerosol in cloud bin 05' chem_units_table( idomain, P_oin_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw05 )%stream(2) = 2097216 ! 00200040 F_oin_cw05 = .TRUE. IF ( chem_index_table( PARAM_oc_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw05 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw05 , idomain ) = P_oc_cw05 ELSE P_oc_cw05 = chem_index_table( PARAM_oc_cw05 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw05 ) = .TRUE. chem_dname_table( idomain, P_oc_cw05 ) = 'oc_cw05' chem_desc_table( idomain, P_oc_cw05 ) = 'Organic carbon, aerosol in cloud bin 05' chem_units_table( idomain, P_oc_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw05 )%stream(2) = 2097216 ! 00200040 F_oc_cw05 = .TRUE. IF ( chem_index_table( PARAM_bc_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw05 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw05 , idomain ) = P_bc_cw05 ELSE P_bc_cw05 = chem_index_table( PARAM_bc_cw05 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw05 ) = .TRUE. chem_dname_table( idomain, P_bc_cw05 ) = 'bc_cw05' chem_desc_table( idomain, P_bc_cw05 ) = 'Black carbon, aerosol in cloud bin 05' chem_units_table( idomain, P_bc_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw05 )%stream(2) = 2097216 ! 00200040 F_bc_cw05 = .TRUE. IF ( chem_index_table( PARAM_num_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw05 = chem_num_table(idomain) chem_index_table( PARAM_num_cw05 , idomain ) = P_num_cw05 ELSE P_num_cw05 = chem_index_table( PARAM_num_cw05 , idomain ) END IF chem_boundary_table( idomain, P_num_cw05 ) = .TRUE. chem_dname_table( idomain, P_num_cw05 ) = 'num_cw05' chem_desc_table( idomain, P_num_cw05 ) = 'Number, aerosol in cloud bin 05' chem_units_table( idomain, P_num_cw05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw05 )%stream(2) = 2097216 ! 00200040 F_num_cw05 = .TRUE. IF ( chem_index_table( PARAM_so4_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw06 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw06 , idomain ) = P_so4_cw06 ELSE P_so4_cw06 = chem_index_table( PARAM_so4_cw06 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw06 ) = .TRUE. chem_dname_table( idomain, P_so4_cw06 ) = 'so4_cw06' chem_desc_table( idomain, P_so4_cw06 ) = 'Sulfate, aerosol in cloud bin 06' chem_units_table( idomain, P_so4_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw06 )%stream(2) = 2097216 ! 00200040 F_so4_cw06 = .TRUE. IF ( chem_index_table( PARAM_no3_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw06 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw06 , idomain ) = P_no3_cw06 ELSE P_no3_cw06 = chem_index_table( PARAM_no3_cw06 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw06 ) = .TRUE. chem_dname_table( idomain, P_no3_cw06 ) = 'no3_cw06' chem_desc_table( idomain, P_no3_cw06 ) = 'Nitrate, aerosol in cloud bin 06' chem_units_table( idomain, P_no3_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw06 )%stream(2) = 2097216 ! 00200040 F_no3_cw06 = .TRUE. IF ( chem_index_table( PARAM_cl_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw06 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw06 , idomain ) = P_cl_cw06 ELSE P_cl_cw06 = chem_index_table( PARAM_cl_cw06 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw06 ) = .TRUE. chem_dname_table( idomain, P_cl_cw06 ) = 'cl_cw06' chem_desc_table( idomain, P_cl_cw06 ) = 'Chloride, aerosol in cloud bin 06' chem_units_table( idomain, P_cl_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw06 )%stream(2) = 2097216 ! 00200040 F_cl_cw06 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw06 , idomain ) = P_nh4_cw06 ELSE P_nh4_cw06 = chem_index_table( PARAM_nh4_cw06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw06 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw06 ) = 'nh4_cw06' chem_desc_table( idomain, P_nh4_cw06 ) = 'Ammonium, aerosol in cloud bin 06' chem_units_table( idomain, P_nh4_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw06 )%stream(2) = 2097216 ! 00200040 F_nh4_cw06 = .TRUE. IF ( chem_index_table( PARAM_na_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw06 = chem_num_table(idomain) chem_index_table( PARAM_na_cw06 , idomain ) = P_na_cw06 ELSE P_na_cw06 = chem_index_table( PARAM_na_cw06 , idomain ) END IF chem_boundary_table( idomain, P_na_cw06 ) = .TRUE. chem_dname_table( idomain, P_na_cw06 ) = 'na_cw06' chem_desc_table( idomain, P_na_cw06 ) = 'Sodium, aerosol in cloud bin 06' chem_units_table( idomain, P_na_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw06 )%stream(2) = 2097216 ! 00200040 F_na_cw06 = .TRUE. IF ( chem_index_table( PARAM_oin_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw06 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw06 , idomain ) = P_oin_cw06 ELSE P_oin_cw06 = chem_index_table( PARAM_oin_cw06 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw06 ) = .TRUE. chem_dname_table( idomain, P_oin_cw06 ) = 'oin_cw06' chem_desc_table( idomain, P_oin_cw06 ) = 'Other inorganics, aerosol in cloud bin 06' chem_units_table( idomain, P_oin_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw06 )%stream(2) = 2097216 ! 00200040 F_oin_cw06 = .TRUE. IF ( chem_index_table( PARAM_oc_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw06 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw06 , idomain ) = P_oc_cw06 ELSE P_oc_cw06 = chem_index_table( PARAM_oc_cw06 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw06 ) = .TRUE. chem_dname_table( idomain, P_oc_cw06 ) = 'oc_cw06' chem_desc_table( idomain, P_oc_cw06 ) = 'Organic carbon, aerosol in cloud bin 06' chem_units_table( idomain, P_oc_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw06 )%stream(2) = 2097216 ! 00200040 F_oc_cw06 = .TRUE. IF ( chem_index_table( PARAM_bc_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw06 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw06 , idomain ) = P_bc_cw06 ELSE P_bc_cw06 = chem_index_table( PARAM_bc_cw06 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw06 ) = .TRUE. chem_dname_table( idomain, P_bc_cw06 ) = 'bc_cw06' chem_desc_table( idomain, P_bc_cw06 ) = 'Black carbon, aerosol in cloud bin 06' chem_units_table( idomain, P_bc_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw06 )%stream(2) = 2097216 ! 00200040 F_bc_cw06 = .TRUE. IF ( chem_index_table( PARAM_num_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw06 = chem_num_table(idomain) chem_index_table( PARAM_num_cw06 , idomain ) = P_num_cw06 ELSE P_num_cw06 = chem_index_table( PARAM_num_cw06 , idomain ) END IF chem_boundary_table( idomain, P_num_cw06 ) = .TRUE. chem_dname_table( idomain, P_num_cw06 ) = 'num_cw06' chem_desc_table( idomain, P_num_cw06 ) = 'Number, aerosol in cloud bin 06' chem_units_table( idomain, P_num_cw06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw06 )%stream(2) = 2097216 ! 00200040 F_num_cw06 = .TRUE. IF ( chem_index_table( PARAM_so4_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw07 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw07 , idomain ) = P_so4_cw07 ELSE P_so4_cw07 = chem_index_table( PARAM_so4_cw07 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw07 ) = .TRUE. chem_dname_table( idomain, P_so4_cw07 ) = 'so4_cw07' chem_desc_table( idomain, P_so4_cw07 ) = 'Sulfate, aerosol in cloud bin 07' chem_units_table( idomain, P_so4_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw07 )%stream(2) = 2097216 ! 00200040 F_so4_cw07 = .TRUE. IF ( chem_index_table( PARAM_no3_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw07 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw07 , idomain ) = P_no3_cw07 ELSE P_no3_cw07 = chem_index_table( PARAM_no3_cw07 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw07 ) = .TRUE. chem_dname_table( idomain, P_no3_cw07 ) = 'no3_cw07' chem_desc_table( idomain, P_no3_cw07 ) = 'Nitrate, aerosol in cloud bin 07' chem_units_table( idomain, P_no3_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw07 )%stream(2) = 2097216 ! 00200040 F_no3_cw07 = .TRUE. IF ( chem_index_table( PARAM_cl_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw07 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw07 , idomain ) = P_cl_cw07 ELSE P_cl_cw07 = chem_index_table( PARAM_cl_cw07 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw07 ) = .TRUE. chem_dname_table( idomain, P_cl_cw07 ) = 'cl_cw07' chem_desc_table( idomain, P_cl_cw07 ) = 'Chloride, aerosol in cloud bin 07' chem_units_table( idomain, P_cl_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw07 )%stream(2) = 2097216 ! 00200040 F_cl_cw07 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw07 , idomain ) = P_nh4_cw07 ELSE P_nh4_cw07 = chem_index_table( PARAM_nh4_cw07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw07 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw07 ) = 'nh4_cw07' chem_desc_table( idomain, P_nh4_cw07 ) = 'Ammonium, aerosol in cloud bin 07' chem_units_table( idomain, P_nh4_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw07 )%stream(2) = 2097216 ! 00200040 F_nh4_cw07 = .TRUE. IF ( chem_index_table( PARAM_na_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw07 = chem_num_table(idomain) chem_index_table( PARAM_na_cw07 , idomain ) = P_na_cw07 ELSE P_na_cw07 = chem_index_table( PARAM_na_cw07 , idomain ) END IF chem_boundary_table( idomain, P_na_cw07 ) = .TRUE. chem_dname_table( idomain, P_na_cw07 ) = 'na_cw07' chem_desc_table( idomain, P_na_cw07 ) = 'Sodium, aerosol in cloud bin 07' chem_units_table( idomain, P_na_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw07 )%stream(2) = 2097216 ! 00200040 F_na_cw07 = .TRUE. IF ( chem_index_table( PARAM_oin_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw07 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw07 , idomain ) = P_oin_cw07 ELSE P_oin_cw07 = chem_index_table( PARAM_oin_cw07 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw07 ) = .TRUE. chem_dname_table( idomain, P_oin_cw07 ) = 'oin_cw07' chem_desc_table( idomain, P_oin_cw07 ) = 'Other inorganics, aerosol in cloud bin 07' chem_units_table( idomain, P_oin_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw07 )%stream(2) = 2097216 ! 00200040 F_oin_cw07 = .TRUE. IF ( chem_index_table( PARAM_oc_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw07 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw07 , idomain ) = P_oc_cw07 ELSE P_oc_cw07 = chem_index_table( PARAM_oc_cw07 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw07 ) = .TRUE. chem_dname_table( idomain, P_oc_cw07 ) = 'oc_cw07' chem_desc_table( idomain, P_oc_cw07 ) = 'Organic carbon, aerosol in cloud bin 07' chem_units_table( idomain, P_oc_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw07 )%stream(2) = 2097216 ! 00200040 F_oc_cw07 = .TRUE. IF ( chem_index_table( PARAM_bc_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw07 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw07 , idomain ) = P_bc_cw07 ELSE P_bc_cw07 = chem_index_table( PARAM_bc_cw07 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw07 ) = .TRUE. chem_dname_table( idomain, P_bc_cw07 ) = 'bc_cw07' chem_desc_table( idomain, P_bc_cw07 ) = 'Black carbon, aerosol in cloud bin 07' chem_units_table( idomain, P_bc_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw07 )%stream(2) = 2097216 ! 00200040 F_bc_cw07 = .TRUE. IF ( chem_index_table( PARAM_num_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw07 = chem_num_table(idomain) chem_index_table( PARAM_num_cw07 , idomain ) = P_num_cw07 ELSE P_num_cw07 = chem_index_table( PARAM_num_cw07 , idomain ) END IF chem_boundary_table( idomain, P_num_cw07 ) = .TRUE. chem_dname_table( idomain, P_num_cw07 ) = 'num_cw07' chem_desc_table( idomain, P_num_cw07 ) = 'Number, aerosol in cloud bin 07' chem_units_table( idomain, P_num_cw07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw07 )%stream(2) = 2097216 ! 00200040 F_num_cw07 = .TRUE. IF ( chem_index_table( PARAM_so4_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw08 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw08 , idomain ) = P_so4_cw08 ELSE P_so4_cw08 = chem_index_table( PARAM_so4_cw08 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw08 ) = .TRUE. chem_dname_table( idomain, P_so4_cw08 ) = 'so4_cw08' chem_desc_table( idomain, P_so4_cw08 ) = 'Sulfate, aerosol in cloud bin 08' chem_units_table( idomain, P_so4_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw08 )%stream(2) = 2097216 ! 00200040 F_so4_cw08 = .TRUE. IF ( chem_index_table( PARAM_no3_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw08 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw08 , idomain ) = P_no3_cw08 ELSE P_no3_cw08 = chem_index_table( PARAM_no3_cw08 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw08 ) = .TRUE. chem_dname_table( idomain, P_no3_cw08 ) = 'no3_cw08' chem_desc_table( idomain, P_no3_cw08 ) = 'Nitrate, aerosol in cloud bin 08' chem_units_table( idomain, P_no3_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw08 )%stream(2) = 2097216 ! 00200040 F_no3_cw08 = .TRUE. IF ( chem_index_table( PARAM_cl_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw08 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw08 , idomain ) = P_cl_cw08 ELSE P_cl_cw08 = chem_index_table( PARAM_cl_cw08 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw08 ) = .TRUE. chem_dname_table( idomain, P_cl_cw08 ) = 'cl_cw08' chem_desc_table( idomain, P_cl_cw08 ) = 'Chloride, aerosol in cloud bin 08' chem_units_table( idomain, P_cl_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw08 )%stream(2) = 2097216 ! 00200040 F_cl_cw08 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw08 , idomain ) = P_nh4_cw08 ELSE P_nh4_cw08 = chem_index_table( PARAM_nh4_cw08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw08 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw08 ) = 'nh4_cw08' chem_desc_table( idomain, P_nh4_cw08 ) = 'Ammonium, aerosol in cloud bin 08' chem_units_table( idomain, P_nh4_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw08 )%stream(2) = 2097216 ! 00200040 F_nh4_cw08 = .TRUE. IF ( chem_index_table( PARAM_na_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw08 = chem_num_table(idomain) chem_index_table( PARAM_na_cw08 , idomain ) = P_na_cw08 ELSE P_na_cw08 = chem_index_table( PARAM_na_cw08 , idomain ) END IF chem_boundary_table( idomain, P_na_cw08 ) = .TRUE. chem_dname_table( idomain, P_na_cw08 ) = 'na_cw08' chem_desc_table( idomain, P_na_cw08 ) = 'Sodium, aerosol in cloud bin 08' chem_units_table( idomain, P_na_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw08 )%stream(2) = 2097216 ! 00200040 F_na_cw08 = .TRUE. IF ( chem_index_table( PARAM_oin_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw08 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw08 , idomain ) = P_oin_cw08 ELSE P_oin_cw08 = chem_index_table( PARAM_oin_cw08 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw08 ) = .TRUE. chem_dname_table( idomain, P_oin_cw08 ) = 'oin_cw08' chem_desc_table( idomain, P_oin_cw08 ) = 'Other inorganics, aerosol in cloud bin 08' chem_units_table( idomain, P_oin_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw08 )%stream(2) = 2097216 ! 00200040 F_oin_cw08 = .TRUE. IF ( chem_index_table( PARAM_oc_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw08 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw08 , idomain ) = P_oc_cw08 ELSE P_oc_cw08 = chem_index_table( PARAM_oc_cw08 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw08 ) = .TRUE. chem_dname_table( idomain, P_oc_cw08 ) = 'oc_cw08' chem_desc_table( idomain, P_oc_cw08 ) = 'Organic carbon, aerosol in cloud bin 08' chem_units_table( idomain, P_oc_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw08 )%stream(2) = 2097216 ! 00200040 F_oc_cw08 = .TRUE. IF ( chem_index_table( PARAM_bc_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw08 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw08 , idomain ) = P_bc_cw08 ELSE P_bc_cw08 = chem_index_table( PARAM_bc_cw08 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw08 ) = .TRUE. chem_dname_table( idomain, P_bc_cw08 ) = 'bc_cw08' chem_desc_table( idomain, P_bc_cw08 ) = 'Black carbon, aerosol in cloud bin 08' chem_units_table( idomain, P_bc_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw08 )%stream(2) = 2097216 ! 00200040 F_bc_cw08 = .TRUE. IF ( chem_index_table( PARAM_num_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw08 = chem_num_table(idomain) chem_index_table( PARAM_num_cw08 , idomain ) = P_num_cw08 ELSE P_num_cw08 = chem_index_table( PARAM_num_cw08 , idomain ) END IF chem_boundary_table( idomain, P_num_cw08 ) = .TRUE. chem_dname_table( idomain, P_num_cw08 ) = 'num_cw08' chem_desc_table( idomain, P_num_cw08 ) = 'Number, aerosol in cloud bin 08' chem_units_table( idomain, P_num_cw08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw08 )%stream(2) = 2097216 ! 00200040 F_num_cw08 = .TRUE. IF ( chem_index_table( PARAM_ca_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw01 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw01 , idomain ) = P_ca_cw01 ELSE P_ca_cw01 = chem_index_table( PARAM_ca_cw01 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw01 ) = .TRUE. chem_dname_table( idomain, P_ca_cw01 ) = 'ca_cw01' chem_desc_table( idomain, P_ca_cw01 ) = 'Calcium, aerosol in cloud bin 01' chem_units_table( idomain, P_ca_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_cw01 )%stream(2) = 2097216 ! 00200040 F_ca_cw01 = .TRUE. IF ( chem_index_table( PARAM_ca_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw02 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw02 , idomain ) = P_ca_cw02 ELSE P_ca_cw02 = chem_index_table( PARAM_ca_cw02 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw02 ) = .TRUE. chem_dname_table( idomain, P_ca_cw02 ) = 'ca_cw02' chem_desc_table( idomain, P_ca_cw02 ) = 'Calcium, aerosol in cloud bin 02' chem_units_table( idomain, P_ca_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_cw02 )%stream(2) = 2097216 ! 00200040 F_ca_cw02 = .TRUE. IF ( chem_index_table( PARAM_ca_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw03 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw03 , idomain ) = P_ca_cw03 ELSE P_ca_cw03 = chem_index_table( PARAM_ca_cw03 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw03 ) = .TRUE. chem_dname_table( idomain, P_ca_cw03 ) = 'ca_cw03' chem_desc_table( idomain, P_ca_cw03 ) = 'Calcium, aerosol in cloud bin 03' chem_units_table( idomain, P_ca_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_cw03 )%stream(2) = 2097216 ! 00200040 F_ca_cw03 = .TRUE. IF ( chem_index_table( PARAM_ca_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw04 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw04 , idomain ) = P_ca_cw04 ELSE P_ca_cw04 = chem_index_table( PARAM_ca_cw04 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw04 ) = .TRUE. chem_dname_table( idomain, P_ca_cw04 ) = 'ca_cw04' chem_desc_table( idomain, P_ca_cw04 ) = 'Calcium, aerosol in cloud bin 04' chem_units_table( idomain, P_ca_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_cw04 )%stream(2) = 2097216 ! 00200040 F_ca_cw04 = .TRUE. IF ( chem_index_table( PARAM_ca_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw05 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw05 , idomain ) = P_ca_cw05 ELSE P_ca_cw05 = chem_index_table( PARAM_ca_cw05 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw05 ) = .TRUE. chem_dname_table( idomain, P_ca_cw05 ) = 'ca_cw05' chem_desc_table( idomain, P_ca_cw05 ) = 'Calcium, aerosol in cloud bin 05' chem_units_table( idomain, P_ca_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_cw05 )%stream(2) = 2097216 ! 00200040 F_ca_cw05 = .TRUE. IF ( chem_index_table( PARAM_ca_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw06 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw06 , idomain ) = P_ca_cw06 ELSE P_ca_cw06 = chem_index_table( PARAM_ca_cw06 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw06 ) = .TRUE. chem_dname_table( idomain, P_ca_cw06 ) = 'ca_cw06' chem_desc_table( idomain, P_ca_cw06 ) = 'Calcium, aerosol in cloud bin 06' chem_units_table( idomain, P_ca_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_cw06 )%stream(2) = 2097216 ! 00200040 F_ca_cw06 = .TRUE. IF ( chem_index_table( PARAM_ca_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw07 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw07 , idomain ) = P_ca_cw07 ELSE P_ca_cw07 = chem_index_table( PARAM_ca_cw07 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw07 ) = .TRUE. chem_dname_table( idomain, P_ca_cw07 ) = 'ca_cw07' chem_desc_table( idomain, P_ca_cw07 ) = 'Calcium, aerosol in cloud bin 07' chem_units_table( idomain, P_ca_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_cw07 )%stream(2) = 2097216 ! 00200040 F_ca_cw07 = .TRUE. IF ( chem_index_table( PARAM_ca_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw08 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw08 , idomain ) = P_ca_cw08 ELSE P_ca_cw08 = chem_index_table( PARAM_ca_cw08 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw08 ) = .TRUE. chem_dname_table( idomain, P_ca_cw08 ) = 'ca_cw08' chem_desc_table( idomain, P_ca_cw08 ) = 'Calcium, aerosol in cloud bin 08' chem_units_table( idomain, P_ca_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_cw08 )%stream(2) = 2097216 ! 00200040 F_ca_cw08 = .TRUE. IF ( chem_index_table( PARAM_co3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw01 , idomain ) = P_co3_cw01 ELSE P_co3_cw01 = chem_index_table( PARAM_co3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw01 ) = .TRUE. chem_dname_table( idomain, P_co3_cw01 ) = 'co3_cw01' chem_desc_table( idomain, P_co3_cw01 ) = 'Carbonate, aerosol in cloud bin 01' chem_units_table( idomain, P_co3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_cw01 )%stream(2) = 2097216 ! 00200040 F_co3_cw01 = .TRUE. IF ( chem_index_table( PARAM_co3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw02 , idomain ) = P_co3_cw02 ELSE P_co3_cw02 = chem_index_table( PARAM_co3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw02 ) = .TRUE. chem_dname_table( idomain, P_co3_cw02 ) = 'co3_cw02' chem_desc_table( idomain, P_co3_cw02 ) = 'Carbonate, aerosol in cloud bin 02' chem_units_table( idomain, P_co3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_cw02 )%stream(2) = 2097216 ! 00200040 F_co3_cw02 = .TRUE. IF ( chem_index_table( PARAM_co3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw03 , idomain ) = P_co3_cw03 ELSE P_co3_cw03 = chem_index_table( PARAM_co3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw03 ) = .TRUE. chem_dname_table( idomain, P_co3_cw03 ) = 'co3_cw03' chem_desc_table( idomain, P_co3_cw03 ) = 'Carbonate, aerosol in cloud bin 03' chem_units_table( idomain, P_co3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_cw03 )%stream(2) = 2097216 ! 00200040 F_co3_cw03 = .TRUE. IF ( chem_index_table( PARAM_co3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw04 , idomain ) = P_co3_cw04 ELSE P_co3_cw04 = chem_index_table( PARAM_co3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw04 ) = .TRUE. chem_dname_table( idomain, P_co3_cw04 ) = 'co3_cw04' chem_desc_table( idomain, P_co3_cw04 ) = 'Carbonate, aerosol in cloud bin 04' chem_units_table( idomain, P_co3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_cw04 )%stream(2) = 2097216 ! 00200040 F_co3_cw04 = .TRUE. IF ( chem_index_table( PARAM_co3_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw05 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw05 , idomain ) = P_co3_cw05 ELSE P_co3_cw05 = chem_index_table( PARAM_co3_cw05 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw05 ) = .TRUE. chem_dname_table( idomain, P_co3_cw05 ) = 'co3_cw05' chem_desc_table( idomain, P_co3_cw05 ) = 'Carbonate, aerosol in cloud bin 05' chem_units_table( idomain, P_co3_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_cw05 )%stream(2) = 2097216 ! 00200040 F_co3_cw05 = .TRUE. IF ( chem_index_table( PARAM_co3_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw06 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw06 , idomain ) = P_co3_cw06 ELSE P_co3_cw06 = chem_index_table( PARAM_co3_cw06 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw06 ) = .TRUE. chem_dname_table( idomain, P_co3_cw06 ) = 'co3_cw06' chem_desc_table( idomain, P_co3_cw06 ) = 'Carbonate, aerosol in cloud bin 06' chem_units_table( idomain, P_co3_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_cw06 )%stream(2) = 2097216 ! 00200040 F_co3_cw06 = .TRUE. IF ( chem_index_table( PARAM_co3_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw07 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw07 , idomain ) = P_co3_cw07 ELSE P_co3_cw07 = chem_index_table( PARAM_co3_cw07 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw07 ) = .TRUE. chem_dname_table( idomain, P_co3_cw07 ) = 'co3_cw07' chem_desc_table( idomain, P_co3_cw07 ) = 'Carbonate, aerosol in cloud bin 07' chem_units_table( idomain, P_co3_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_cw07 )%stream(2) = 2097216 ! 00200040 F_co3_cw07 = .TRUE. IF ( chem_index_table( PARAM_co3_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw08 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw08 , idomain ) = P_co3_cw08 ELSE P_co3_cw08 = chem_index_table( PARAM_co3_cw08 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw08 ) = .TRUE. chem_dname_table( idomain, P_co3_cw08 ) = 'co3_cw08' chem_desc_table( idomain, P_co3_cw08 ) = 'Carbonate, aerosol in cloud bin 08' chem_units_table( idomain, P_co3_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_cw08 )%stream(2) = 2097216 ! 00200040 F_co3_cw08 = .TRUE. IF ( chem_index_table( PARAM_msa_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw01 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw01 , idomain ) = P_msa_cw01 ELSE P_msa_cw01 = chem_index_table( PARAM_msa_cw01 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw01 ) = .TRUE. chem_dname_table( idomain, P_msa_cw01 ) = 'msa_cw01' chem_desc_table( idomain, P_msa_cw01 ) = 'MSA, aerosol in cloud bin 01' chem_units_table( idomain, P_msa_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_cw01 )%stream(2) = 2097216 ! 00200040 F_msa_cw01 = .TRUE. IF ( chem_index_table( PARAM_msa_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw02 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw02 , idomain ) = P_msa_cw02 ELSE P_msa_cw02 = chem_index_table( PARAM_msa_cw02 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw02 ) = .TRUE. chem_dname_table( idomain, P_msa_cw02 ) = 'msa_cw02' chem_desc_table( idomain, P_msa_cw02 ) = 'MSA, aerosol in cloud bin 02' chem_units_table( idomain, P_msa_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_cw02 )%stream(2) = 2097216 ! 00200040 F_msa_cw02 = .TRUE. IF ( chem_index_table( PARAM_msa_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw03 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw03 , idomain ) = P_msa_cw03 ELSE P_msa_cw03 = chem_index_table( PARAM_msa_cw03 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw03 ) = .TRUE. chem_dname_table( idomain, P_msa_cw03 ) = 'msa_cw03' chem_desc_table( idomain, P_msa_cw03 ) = 'MSA, aerosol in cloud bin 03' chem_units_table( idomain, P_msa_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_cw03 )%stream(2) = 2097216 ! 00200040 F_msa_cw03 = .TRUE. IF ( chem_index_table( PARAM_msa_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw04 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw04 , idomain ) = P_msa_cw04 ELSE P_msa_cw04 = chem_index_table( PARAM_msa_cw04 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw04 ) = .TRUE. chem_dname_table( idomain, P_msa_cw04 ) = 'msa_cw04' chem_desc_table( idomain, P_msa_cw04 ) = 'MSA, aerosol in cloud bin 04' chem_units_table( idomain, P_msa_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_cw04 )%stream(2) = 2097216 ! 00200040 F_msa_cw04 = .TRUE. IF ( chem_index_table( PARAM_msa_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw05 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw05 , idomain ) = P_msa_cw05 ELSE P_msa_cw05 = chem_index_table( PARAM_msa_cw05 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw05 ) = .TRUE. chem_dname_table( idomain, P_msa_cw05 ) = 'msa_cw05' chem_desc_table( idomain, P_msa_cw05 ) = 'MSA, aerosol in cloud bin 05' chem_units_table( idomain, P_msa_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_cw05 )%stream(2) = 2097216 ! 00200040 F_msa_cw05 = .TRUE. IF ( chem_index_table( PARAM_msa_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw06 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw06 , idomain ) = P_msa_cw06 ELSE P_msa_cw06 = chem_index_table( PARAM_msa_cw06 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw06 ) = .TRUE. chem_dname_table( idomain, P_msa_cw06 ) = 'msa_cw06' chem_desc_table( idomain, P_msa_cw06 ) = 'MSA, aerosol in cloud bin 06' chem_units_table( idomain, P_msa_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_cw06 )%stream(2) = 2097216 ! 00200040 F_msa_cw06 = .TRUE. IF ( chem_index_table( PARAM_msa_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw07 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw07 , idomain ) = P_msa_cw07 ELSE P_msa_cw07 = chem_index_table( PARAM_msa_cw07 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw07 ) = .TRUE. chem_dname_table( idomain, P_msa_cw07 ) = 'msa_cw07' chem_desc_table( idomain, P_msa_cw07 ) = 'MSA, aerosol in cloud bin 07' chem_units_table( idomain, P_msa_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_cw07 )%stream(2) = 2097216 ! 00200040 F_msa_cw07 = .TRUE. IF ( chem_index_table( PARAM_msa_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw08 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw08 , idomain ) = P_msa_cw08 ELSE P_msa_cw08 = chem_index_table( PARAM_msa_cw08 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw08 ) = .TRUE. chem_dname_table( idomain, P_msa_cw08 ) = 'msa_cw08' chem_desc_table( idomain, P_msa_cw08 ) = 'MSA, aerosol in cloud bin 08' chem_units_table( idomain, P_msa_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa_cw08 )%stream(2) = 2097216 ! 00200040 F_msa_cw08 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==35)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 ! 00200040 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 ! 00200040 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 ! 00200040 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 ! 00200040 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 ! 00200040 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 ! 00200040 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 ! 00200040 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 ! 00200040 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 ! 00200040 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 ! 00200040 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 ! 00200040 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 ! 00200040 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 ! 00200040 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 ! 00200040 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 ! 00200040 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 ! 00200040 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 ! 00200040 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 ! 00200040 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 ! 00200040 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 ! 00200040 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 ! 00200040 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 ! 00200040 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 ! 00200040 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 ! 00200040 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 ! 00200040 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 ! 00200040 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 ! 00200040 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 ! 00200040 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 ! 00200040 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 ! 00200040 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 ! 00200040 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 ! 00200040 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 ! 00200040 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 ! 00200040 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 ! 00200040 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 ! 00200040 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 ! 00200040 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 ! 00200040 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 ! 00200040 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 ! 00200040 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 ! 00200040 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 ! 00200040 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 ! 00200040 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 ! 00200040 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 ! 00200040 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 ! 00200040 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 ! 00200040 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 ! 00200040 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwj , idomain ) = P_orgaro1cwj ELSE P_orgaro1cwj = chem_index_table( PARAM_orgaro1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwj ) = 'orgaro1cwj' chem_desc_table( idomain, P_orgaro1cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1cwj )%stream(2) = 2097216 ! 00200040 F_orgaro1cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwi , idomain ) = P_orgaro1cwi ELSE P_orgaro1cwi = chem_index_table( PARAM_orgaro1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwi ) = 'orgaro1cwi' chem_desc_table( idomain, P_orgaro1cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1cwi )%stream(2) = 2097216 ! 00200040 F_orgaro1cwi = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwj , idomain ) = P_orgaro2cwj ELSE P_orgaro2cwj = chem_index_table( PARAM_orgaro2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwj ) = 'orgaro2cwj' chem_desc_table( idomain, P_orgaro2cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2cwj )%stream(2) = 2097216 ! 00200040 F_orgaro2cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwi , idomain ) = P_orgaro2cwi ELSE P_orgaro2cwi = chem_index_table( PARAM_orgaro2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwi ) = 'orgaro2cwi' chem_desc_table( idomain, P_orgaro2cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2cwi )%stream(2) = 2097216 ! 00200040 F_orgaro2cwi = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwj , idomain ) = P_orgalk1cwj ELSE P_orgalk1cwj = chem_index_table( PARAM_orgalk1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwj ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwj ) = 'orgalk1cwj' chem_desc_table( idomain, P_orgalk1cwj ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgalk1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1cwj )%stream(2) = 2097216 ! 00200040 F_orgalk1cwj = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwi , idomain ) = P_orgalk1cwi ELSE P_orgalk1cwi = chem_index_table( PARAM_orgalk1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwi ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwi ) = 'orgalk1cwi' chem_desc_table( idomain, P_orgalk1cwi ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgalk1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1cwi )%stream(2) = 2097216 ! 00200040 F_orgalk1cwi = .TRUE. IF ( chem_index_table( PARAM_orgole1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwj , idomain ) = P_orgole1cwj ELSE P_orgole1cwj = chem_index_table( PARAM_orgole1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwj ) = .TRUE. chem_dname_table( idomain, P_orgole1cwj ) = 'orgole1cwj' chem_desc_table( idomain, P_orgole1cwj ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgole1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1cwj )%stream(2) = 2097216 ! 00200040 F_orgole1cwj = .TRUE. IF ( chem_index_table( PARAM_orgole1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwi , idomain ) = P_orgole1cwi ELSE P_orgole1cwi = chem_index_table( PARAM_orgole1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwi ) = .TRUE. chem_dname_table( idomain, P_orgole1cwi ) = 'orgole1cwi' chem_desc_table( idomain, P_orgole1cwi ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgole1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1cwi )%stream(2) = 2097216 ! 00200040 F_orgole1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwj , idomain ) = P_orgba1cwj ELSE P_orgba1cwj = chem_index_table( PARAM_orgba1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwj ) = .TRUE. chem_dname_table( idomain, P_orgba1cwj ) = 'orgba1cwj' chem_desc_table( idomain, P_orgba1cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1cwj )%stream(2) = 2097216 ! 00200040 F_orgba1cwj = .TRUE. IF ( chem_index_table( PARAM_orgba1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwi , idomain ) = P_orgba1cwi ELSE P_orgba1cwi = chem_index_table( PARAM_orgba1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwi ) = .TRUE. chem_dname_table( idomain, P_orgba1cwi ) = 'orgba1cwi' chem_desc_table( idomain, P_orgba1cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1cwi )%stream(2) = 2097216 ! 00200040 F_orgba1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwj , idomain ) = P_orgba2cwj ELSE P_orgba2cwj = chem_index_table( PARAM_orgba2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwj ) = .TRUE. chem_dname_table( idomain, P_orgba2cwj ) = 'orgba2cwj' chem_desc_table( idomain, P_orgba2cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2cwj )%stream(2) = 2097216 ! 00200040 F_orgba2cwj = .TRUE. IF ( chem_index_table( PARAM_orgba2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwi , idomain ) = P_orgba2cwi ELSE P_orgba2cwi = chem_index_table( PARAM_orgba2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwi ) = .TRUE. chem_dname_table( idomain, P_orgba2cwi ) = 'orgba2cwi' chem_desc_table( idomain, P_orgba2cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2cwi )%stream(2) = 2097216 ! 00200040 F_orgba2cwi = .TRUE. IF ( chem_index_table( PARAM_orgba3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwj , idomain ) = P_orgba3cwj ELSE P_orgba3cwj = chem_index_table( PARAM_orgba3cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwj ) = .TRUE. chem_dname_table( idomain, P_orgba3cwj ) = 'orgba3cwj' chem_desc_table( idomain, P_orgba3cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3cwj )%stream(2) = 2097216 ! 00200040 F_orgba3cwj = .TRUE. IF ( chem_index_table( PARAM_orgba3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwi , idomain ) = P_orgba3cwi ELSE P_orgba3cwi = chem_index_table( PARAM_orgba3cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwi ) = .TRUE. chem_dname_table( idomain, P_orgba3cwi ) = 'orgba3cwi' chem_desc_table( idomain, P_orgba3cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3cwi )%stream(2) = 2097216 ! 00200040 F_orgba3cwi = .TRUE. IF ( chem_index_table( PARAM_orgba4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwj , idomain ) = P_orgba4cwj ELSE P_orgba4cwj = chem_index_table( PARAM_orgba4cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwj ) = .TRUE. chem_dname_table( idomain, P_orgba4cwj ) = 'orgba4cwj' chem_desc_table( idomain, P_orgba4cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4cwj )%stream(2) = 2097216 ! 00200040 F_orgba4cwj = .TRUE. IF ( chem_index_table( PARAM_orgba4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwi , idomain ) = P_orgba4cwi ELSE P_orgba4cwi = chem_index_table( PARAM_orgba4cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwi ) = .TRUE. chem_dname_table( idomain, P_orgba4cwi ) = 'orgba4cwi' chem_desc_table( idomain, P_orgba4cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4cwi )%stream(2) = 2097216 ! 00200040 F_orgba4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 ! 00200040 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 ! 00200040 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 ! 00200040 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 ! 00200040 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 ! 00200040 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 ! 00200040 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 ! 00200040 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 ! 00200040 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 ! 00200040 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 ! 00200040 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 ! 00200040 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 ! 00200040 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==41)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 ! 00200040 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 ! 00200040 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 ! 00200040 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 ! 00200040 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 ! 00200040 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 ! 00200040 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 ! 00200040 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 ! 00200040 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 ! 00200040 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 ! 00200040 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 ! 00200040 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 ! 00200040 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 ! 00200040 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 ! 00200040 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 ! 00200040 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 ! 00200040 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 ! 00200040 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 ! 00200040 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 ! 00200040 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 ! 00200040 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 ! 00200040 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 ! 00200040 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 ! 00200040 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 ! 00200040 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 ! 00200040 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 ! 00200040 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 ! 00200040 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 ! 00200040 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 ! 00200040 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 ! 00200040 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 ! 00200040 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 ! 00200040 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 ! 00200040 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 ! 00200040 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 ! 00200040 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 ! 00200040 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 ! 00200040 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 ! 00200040 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 ! 00200040 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 ! 00200040 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 ! 00200040 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 ! 00200040 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 ! 00200040 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 ! 00200040 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 ! 00200040 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 ! 00200040 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 ! 00200040 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 ! 00200040 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwj , idomain ) = P_orgaro1cwj ELSE P_orgaro1cwj = chem_index_table( PARAM_orgaro1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwj ) = 'orgaro1cwj' chem_desc_table( idomain, P_orgaro1cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1cwj )%stream(2) = 2097216 ! 00200040 F_orgaro1cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwi , idomain ) = P_orgaro1cwi ELSE P_orgaro1cwi = chem_index_table( PARAM_orgaro1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwi ) = 'orgaro1cwi' chem_desc_table( idomain, P_orgaro1cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1cwi )%stream(2) = 2097216 ! 00200040 F_orgaro1cwi = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwj , idomain ) = P_orgaro2cwj ELSE P_orgaro2cwj = chem_index_table( PARAM_orgaro2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwj ) = 'orgaro2cwj' chem_desc_table( idomain, P_orgaro2cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2cwj )%stream(2) = 2097216 ! 00200040 F_orgaro2cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwi , idomain ) = P_orgaro2cwi ELSE P_orgaro2cwi = chem_index_table( PARAM_orgaro2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwi ) = 'orgaro2cwi' chem_desc_table( idomain, P_orgaro2cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2cwi )%stream(2) = 2097216 ! 00200040 F_orgaro2cwi = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwj , idomain ) = P_orgalk1cwj ELSE P_orgalk1cwj = chem_index_table( PARAM_orgalk1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwj ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwj ) = 'orgalk1cwj' chem_desc_table( idomain, P_orgalk1cwj ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgalk1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1cwj )%stream(2) = 2097216 ! 00200040 F_orgalk1cwj = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwi , idomain ) = P_orgalk1cwi ELSE P_orgalk1cwi = chem_index_table( PARAM_orgalk1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwi ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwi ) = 'orgalk1cwi' chem_desc_table( idomain, P_orgalk1cwi ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgalk1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1cwi )%stream(2) = 2097216 ! 00200040 F_orgalk1cwi = .TRUE. IF ( chem_index_table( PARAM_orgole1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwj , idomain ) = P_orgole1cwj ELSE P_orgole1cwj = chem_index_table( PARAM_orgole1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwj ) = .TRUE. chem_dname_table( idomain, P_orgole1cwj ) = 'orgole1cwj' chem_desc_table( idomain, P_orgole1cwj ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgole1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1cwj )%stream(2) = 2097216 ! 00200040 F_orgole1cwj = .TRUE. IF ( chem_index_table( PARAM_orgole1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwi , idomain ) = P_orgole1cwi ELSE P_orgole1cwi = chem_index_table( PARAM_orgole1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwi ) = .TRUE. chem_dname_table( idomain, P_orgole1cwi ) = 'orgole1cwi' chem_desc_table( idomain, P_orgole1cwi ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgole1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1cwi )%stream(2) = 2097216 ! 00200040 F_orgole1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwj , idomain ) = P_orgba1cwj ELSE P_orgba1cwj = chem_index_table( PARAM_orgba1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwj ) = .TRUE. chem_dname_table( idomain, P_orgba1cwj ) = 'orgba1cwj' chem_desc_table( idomain, P_orgba1cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1cwj )%stream(2) = 2097216 ! 00200040 F_orgba1cwj = .TRUE. IF ( chem_index_table( PARAM_orgba1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwi , idomain ) = P_orgba1cwi ELSE P_orgba1cwi = chem_index_table( PARAM_orgba1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwi ) = .TRUE. chem_dname_table( idomain, P_orgba1cwi ) = 'orgba1cwi' chem_desc_table( idomain, P_orgba1cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1cwi )%stream(2) = 2097216 ! 00200040 F_orgba1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwj , idomain ) = P_orgba2cwj ELSE P_orgba2cwj = chem_index_table( PARAM_orgba2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwj ) = .TRUE. chem_dname_table( idomain, P_orgba2cwj ) = 'orgba2cwj' chem_desc_table( idomain, P_orgba2cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2cwj )%stream(2) = 2097216 ! 00200040 F_orgba2cwj = .TRUE. IF ( chem_index_table( PARAM_orgba2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwi , idomain ) = P_orgba2cwi ELSE P_orgba2cwi = chem_index_table( PARAM_orgba2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwi ) = .TRUE. chem_dname_table( idomain, P_orgba2cwi ) = 'orgba2cwi' chem_desc_table( idomain, P_orgba2cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2cwi )%stream(2) = 2097216 ! 00200040 F_orgba2cwi = .TRUE. IF ( chem_index_table( PARAM_orgba3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwj , idomain ) = P_orgba3cwj ELSE P_orgba3cwj = chem_index_table( PARAM_orgba3cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwj ) = .TRUE. chem_dname_table( idomain, P_orgba3cwj ) = 'orgba3cwj' chem_desc_table( idomain, P_orgba3cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3cwj )%stream(2) = 2097216 ! 00200040 F_orgba3cwj = .TRUE. IF ( chem_index_table( PARAM_orgba3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwi , idomain ) = P_orgba3cwi ELSE P_orgba3cwi = chem_index_table( PARAM_orgba3cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwi ) = .TRUE. chem_dname_table( idomain, P_orgba3cwi ) = 'orgba3cwi' chem_desc_table( idomain, P_orgba3cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3cwi )%stream(2) = 2097216 ! 00200040 F_orgba3cwi = .TRUE. IF ( chem_index_table( PARAM_orgba4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwj , idomain ) = P_orgba4cwj ELSE P_orgba4cwj = chem_index_table( PARAM_orgba4cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwj ) = .TRUE. chem_dname_table( idomain, P_orgba4cwj ) = 'orgba4cwj' chem_desc_table( idomain, P_orgba4cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4cwj )%stream(2) = 2097216 ! 00200040 F_orgba4cwj = .TRUE. IF ( chem_index_table( PARAM_orgba4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwi , idomain ) = P_orgba4cwi ELSE P_orgba4cwi = chem_index_table( PARAM_orgba4cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwi ) = .TRUE. chem_dname_table( idomain, P_orgba4cwi ) = 'orgba4cwi' chem_desc_table( idomain, P_orgba4cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4cwi )%stream(2) = 2097216 ! 00200040 F_orgba4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 ! 00200040 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 ! 00200040 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 ! 00200040 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 ! 00200040 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 ! 00200040 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 ! 00200040 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 ! 00200040 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 ! 00200040 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 ! 00200040 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 ! 00200040 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 ! 00200040 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 ! 00200040 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==42)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 ! 00200040 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 ! 00200040 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 ! 00200040 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api )%stream(2) = 2097216 ! 00200040 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 ! 00200040 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 ! 00200040 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 ! 00200040 F_macr = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 ! 00200040 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 ! 00200040 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 ! 00200040 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 ! 00200040 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 ! 00200040 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 ! 00200040 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 ! 00200040 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 ! 00200040 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 ! 00200040 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 ! 00200040 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 ! 00200040 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 ! 00200040 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 ! 00200040 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 ! 00200040 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 ! 00200040 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 ! 00200040 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 ! 00200040 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 ! 00200040 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 ! 00200040 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 ! 00200040 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 ! 00200040 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 ! 00200040 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 ! 00200040 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 ! 00200040 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 ! 00200040 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 ! 00200040 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 ! 00200040 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 ! 00200040 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 ! 00200040 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 ! 00200040 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 ! 00200040 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 ! 00200040 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 ! 00200040 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 ! 00200040 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 ! 00200040 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 ! 00200040 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 ! 00200040 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 ! 00200040 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 ! 00200040 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 ! 00200040 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 ! 00200040 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 ! 00200040 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 ! 00200040 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 ! 00200040 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 ! 00200040 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 ! 00200040 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 ! 00200040 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 ! 00200040 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwj , idomain ) = P_orgaro1cwj ELSE P_orgaro1cwj = chem_index_table( PARAM_orgaro1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwj ) = 'orgaro1cwj' chem_desc_table( idomain, P_orgaro1cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1cwj )%stream(2) = 2097216 ! 00200040 F_orgaro1cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwi , idomain ) = P_orgaro1cwi ELSE P_orgaro1cwi = chem_index_table( PARAM_orgaro1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwi ) = 'orgaro1cwi' chem_desc_table( idomain, P_orgaro1cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1cwi )%stream(2) = 2097216 ! 00200040 F_orgaro1cwi = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwj , idomain ) = P_orgaro2cwj ELSE P_orgaro2cwj = chem_index_table( PARAM_orgaro2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwj ) = 'orgaro2cwj' chem_desc_table( idomain, P_orgaro2cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2cwj )%stream(2) = 2097216 ! 00200040 F_orgaro2cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwi , idomain ) = P_orgaro2cwi ELSE P_orgaro2cwi = chem_index_table( PARAM_orgaro2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwi ) = 'orgaro2cwi' chem_desc_table( idomain, P_orgaro2cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2cwi )%stream(2) = 2097216 ! 00200040 F_orgaro2cwi = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwj , idomain ) = P_orgalk1cwj ELSE P_orgalk1cwj = chem_index_table( PARAM_orgalk1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwj ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwj ) = 'orgalk1cwj' chem_desc_table( idomain, P_orgalk1cwj ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgalk1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1cwj )%stream(2) = 2097216 ! 00200040 F_orgalk1cwj = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwi , idomain ) = P_orgalk1cwi ELSE P_orgalk1cwi = chem_index_table( PARAM_orgalk1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwi ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwi ) = 'orgalk1cwi' chem_desc_table( idomain, P_orgalk1cwi ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgalk1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1cwi )%stream(2) = 2097216 ! 00200040 F_orgalk1cwi = .TRUE. IF ( chem_index_table( PARAM_orgole1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwj , idomain ) = P_orgole1cwj ELSE P_orgole1cwj = chem_index_table( PARAM_orgole1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwj ) = .TRUE. chem_dname_table( idomain, P_orgole1cwj ) = 'orgole1cwj' chem_desc_table( idomain, P_orgole1cwj ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgole1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1cwj )%stream(2) = 2097216 ! 00200040 F_orgole1cwj = .TRUE. IF ( chem_index_table( PARAM_orgole1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwi , idomain ) = P_orgole1cwi ELSE P_orgole1cwi = chem_index_table( PARAM_orgole1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwi ) = .TRUE. chem_dname_table( idomain, P_orgole1cwi ) = 'orgole1cwi' chem_desc_table( idomain, P_orgole1cwi ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgole1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1cwi )%stream(2) = 2097216 ! 00200040 F_orgole1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwj , idomain ) = P_orgba1cwj ELSE P_orgba1cwj = chem_index_table( PARAM_orgba1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwj ) = .TRUE. chem_dname_table( idomain, P_orgba1cwj ) = 'orgba1cwj' chem_desc_table( idomain, P_orgba1cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1cwj )%stream(2) = 2097216 ! 00200040 F_orgba1cwj = .TRUE. IF ( chem_index_table( PARAM_orgba1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwi , idomain ) = P_orgba1cwi ELSE P_orgba1cwi = chem_index_table( PARAM_orgba1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwi ) = .TRUE. chem_dname_table( idomain, P_orgba1cwi ) = 'orgba1cwi' chem_desc_table( idomain, P_orgba1cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1cwi )%stream(2) = 2097216 ! 00200040 F_orgba1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwj , idomain ) = P_orgba2cwj ELSE P_orgba2cwj = chem_index_table( PARAM_orgba2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwj ) = .TRUE. chem_dname_table( idomain, P_orgba2cwj ) = 'orgba2cwj' chem_desc_table( idomain, P_orgba2cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2cwj )%stream(2) = 2097216 ! 00200040 F_orgba2cwj = .TRUE. IF ( chem_index_table( PARAM_orgba2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwi , idomain ) = P_orgba2cwi ELSE P_orgba2cwi = chem_index_table( PARAM_orgba2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwi ) = .TRUE. chem_dname_table( idomain, P_orgba2cwi ) = 'orgba2cwi' chem_desc_table( idomain, P_orgba2cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2cwi )%stream(2) = 2097216 ! 00200040 F_orgba2cwi = .TRUE. IF ( chem_index_table( PARAM_orgba3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwj , idomain ) = P_orgba3cwj ELSE P_orgba3cwj = chem_index_table( PARAM_orgba3cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwj ) = .TRUE. chem_dname_table( idomain, P_orgba3cwj ) = 'orgba3cwj' chem_desc_table( idomain, P_orgba3cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3cwj )%stream(2) = 2097216 ! 00200040 F_orgba3cwj = .TRUE. IF ( chem_index_table( PARAM_orgba3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwi , idomain ) = P_orgba3cwi ELSE P_orgba3cwi = chem_index_table( PARAM_orgba3cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwi ) = .TRUE. chem_dname_table( idomain, P_orgba3cwi ) = 'orgba3cwi' chem_desc_table( idomain, P_orgba3cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3cwi )%stream(2) = 2097216 ! 00200040 F_orgba3cwi = .TRUE. IF ( chem_index_table( PARAM_orgba4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwj , idomain ) = P_orgba4cwj ELSE P_orgba4cwj = chem_index_table( PARAM_orgba4cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwj ) = .TRUE. chem_dname_table( idomain, P_orgba4cwj ) = 'orgba4cwj' chem_desc_table( idomain, P_orgba4cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4cwj )%stream(2) = 2097216 ! 00200040 F_orgba4cwj = .TRUE. IF ( chem_index_table( PARAM_orgba4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwi , idomain ) = P_orgba4cwi ELSE P_orgba4cwi = chem_index_table( PARAM_orgba4cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwi ) = .TRUE. chem_dname_table( idomain, P_orgba4cwi ) = 'orgba4cwi' chem_desc_table( idomain, P_orgba4cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4cwi )%stream(2) = 2097216 ! 00200040 F_orgba4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 ! 00200040 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 ! 00200040 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 ! 00200040 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 ! 00200040 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 ! 00200040 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 ! 00200040 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 ! 00200040 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 ! 00200040 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 ! 00200040 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 ! 00200040 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 ! 00200040 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 ! 00200040 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==43)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 ! 00200040 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 ! 00200040 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 ! 00200040 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api )%stream(2) = 2097216 ! 00200040 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 ! 00200040 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 ! 00200040 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 ! 00200040 F_macr = .TRUE. IF ( chem_index_table( PARAM_hace , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hace = chem_num_table(idomain) chem_index_table( PARAM_hace , idomain ) = P_hace ELSE P_hace = chem_index_table( PARAM_hace , idomain ) END IF chem_boundary_table( idomain, P_hace ) = .TRUE. chem_dname_table( idomain, P_hace ) = 'hace' chem_desc_table( idomain, P_hace ) = 'HACE concentration' chem_units_table( idomain, P_hace ) = 'ppm' chem_streams_table( idomain, P_hace )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hace )%stream(2) = 2097216 ! 00200040 F_hace = .TRUE. IF ( chem_index_table( PARAM_ishp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ishp = chem_num_table(idomain) chem_index_table( PARAM_ishp , idomain ) = P_ishp ELSE P_ishp = chem_index_table( PARAM_ishp , idomain ) END IF chem_boundary_table( idomain, P_ishp ) = .TRUE. chem_dname_table( idomain, P_ishp ) = 'ishp' chem_desc_table( idomain, P_ishp ) = 'ISHP concentration' chem_units_table( idomain, P_ishp ) = 'ppm' chem_streams_table( idomain, P_ishp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ishp )%stream(2) = 2097216 ! 00200040 F_ishp = .TRUE. IF ( chem_index_table( PARAM_ison , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ison = chem_num_table(idomain) chem_index_table( PARAM_ison , idomain ) = P_ison ELSE P_ison = chem_index_table( PARAM_ison , idomain ) END IF chem_boundary_table( idomain, P_ison ) = .TRUE. chem_dname_table( idomain, P_ison ) = 'ison' chem_desc_table( idomain, P_ison ) = 'ISON concentration' chem_units_table( idomain, P_ison ) = 'ppm' chem_streams_table( idomain, P_ison )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ison )%stream(2) = 2097216 ! 00200040 F_ison = .TRUE. IF ( chem_index_table( PARAM_mahp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mahp = chem_num_table(idomain) chem_index_table( PARAM_mahp , idomain ) = P_mahp ELSE P_mahp = chem_index_table( PARAM_mahp , idomain ) END IF chem_boundary_table( idomain, P_mahp ) = .TRUE. chem_dname_table( idomain, P_mahp ) = 'mahp' chem_desc_table( idomain, P_mahp ) = 'MAHP concentration' chem_units_table( idomain, P_mahp ) = 'ppm' chem_streams_table( idomain, P_mahp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mahp )%stream(2) = 2097216 ! 00200040 F_mahp = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 ! 00200040 F_mpan = .TRUE. IF ( chem_index_table( PARAM_nald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nald = chem_num_table(idomain) chem_index_table( PARAM_nald , idomain ) = P_nald ELSE P_nald = chem_index_table( PARAM_nald , idomain ) END IF chem_boundary_table( idomain, P_nald ) = .TRUE. chem_dname_table( idomain, P_nald ) = 'nald' chem_desc_table( idomain, P_nald ) = 'NALD concentration' chem_units_table( idomain, P_nald ) = 'ppm' chem_streams_table( idomain, P_nald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nald )%stream(2) = 2097216 ! 00200040 F_nald = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 ! 00200040 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 ! 00200040 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 ! 00200040 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 ! 00200040 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 ! 00200040 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 ! 00200040 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 ! 00200040 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 ! 00200040 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 ! 00200040 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 ! 00200040 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 ! 00200040 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 ! 00200040 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 ! 00200040 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 ! 00200040 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 ! 00200040 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 ! 00200040 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 ! 00200040 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 ! 00200040 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 ! 00200040 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 ! 00200040 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 ! 00200040 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 ! 00200040 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 ! 00200040 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 ! 00200040 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 ! 00200040 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 ! 00200040 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 ! 00200040 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 ! 00200040 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 ! 00200040 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 ! 00200040 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 ! 00200040 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 ! 00200040 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 ! 00200040 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 ! 00200040 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 ! 00200040 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 ! 00200040 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 ! 00200040 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 ! 00200040 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 ! 00200040 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 ! 00200040 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 ! 00200040 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 ! 00200040 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 ! 00200040 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 ! 00200040 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 ! 00200040 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 ! 00200040 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 ! 00200040 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 ! 00200040 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwj , idomain ) = P_orgaro1cwj ELSE P_orgaro1cwj = chem_index_table( PARAM_orgaro1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwj ) = 'orgaro1cwj' chem_desc_table( idomain, P_orgaro1cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1cwj )%stream(2) = 2097216 ! 00200040 F_orgaro1cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwi , idomain ) = P_orgaro1cwi ELSE P_orgaro1cwi = chem_index_table( PARAM_orgaro1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwi ) = 'orgaro1cwi' chem_desc_table( idomain, P_orgaro1cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1cwi )%stream(2) = 2097216 ! 00200040 F_orgaro1cwi = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwj , idomain ) = P_orgaro2cwj ELSE P_orgaro2cwj = chem_index_table( PARAM_orgaro2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwj ) = 'orgaro2cwj' chem_desc_table( idomain, P_orgaro2cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2cwj )%stream(2) = 2097216 ! 00200040 F_orgaro2cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwi , idomain ) = P_orgaro2cwi ELSE P_orgaro2cwi = chem_index_table( PARAM_orgaro2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwi ) = 'orgaro2cwi' chem_desc_table( idomain, P_orgaro2cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2cwi )%stream(2) = 2097216 ! 00200040 F_orgaro2cwi = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwj , idomain ) = P_orgalk1cwj ELSE P_orgalk1cwj = chem_index_table( PARAM_orgalk1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwj ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwj ) = 'orgalk1cwj' chem_desc_table( idomain, P_orgalk1cwj ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgalk1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1cwj )%stream(2) = 2097216 ! 00200040 F_orgalk1cwj = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwi , idomain ) = P_orgalk1cwi ELSE P_orgalk1cwi = chem_index_table( PARAM_orgalk1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwi ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwi ) = 'orgalk1cwi' chem_desc_table( idomain, P_orgalk1cwi ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgalk1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1cwi )%stream(2) = 2097216 ! 00200040 F_orgalk1cwi = .TRUE. IF ( chem_index_table( PARAM_orgole1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwj , idomain ) = P_orgole1cwj ELSE P_orgole1cwj = chem_index_table( PARAM_orgole1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwj ) = .TRUE. chem_dname_table( idomain, P_orgole1cwj ) = 'orgole1cwj' chem_desc_table( idomain, P_orgole1cwj ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgole1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1cwj )%stream(2) = 2097216 ! 00200040 F_orgole1cwj = .TRUE. IF ( chem_index_table( PARAM_orgole1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwi , idomain ) = P_orgole1cwi ELSE P_orgole1cwi = chem_index_table( PARAM_orgole1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwi ) = .TRUE. chem_dname_table( idomain, P_orgole1cwi ) = 'orgole1cwi' chem_desc_table( idomain, P_orgole1cwi ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgole1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1cwi )%stream(2) = 2097216 ! 00200040 F_orgole1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwj , idomain ) = P_orgba1cwj ELSE P_orgba1cwj = chem_index_table( PARAM_orgba1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwj ) = .TRUE. chem_dname_table( idomain, P_orgba1cwj ) = 'orgba1cwj' chem_desc_table( idomain, P_orgba1cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1cwj )%stream(2) = 2097216 ! 00200040 F_orgba1cwj = .TRUE. IF ( chem_index_table( PARAM_orgba1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwi , idomain ) = P_orgba1cwi ELSE P_orgba1cwi = chem_index_table( PARAM_orgba1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwi ) = .TRUE. chem_dname_table( idomain, P_orgba1cwi ) = 'orgba1cwi' chem_desc_table( idomain, P_orgba1cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1cwi )%stream(2) = 2097216 ! 00200040 F_orgba1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwj , idomain ) = P_orgba2cwj ELSE P_orgba2cwj = chem_index_table( PARAM_orgba2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwj ) = .TRUE. chem_dname_table( idomain, P_orgba2cwj ) = 'orgba2cwj' chem_desc_table( idomain, P_orgba2cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2cwj )%stream(2) = 2097216 ! 00200040 F_orgba2cwj = .TRUE. IF ( chem_index_table( PARAM_orgba2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwi , idomain ) = P_orgba2cwi ELSE P_orgba2cwi = chem_index_table( PARAM_orgba2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwi ) = .TRUE. chem_dname_table( idomain, P_orgba2cwi ) = 'orgba2cwi' chem_desc_table( idomain, P_orgba2cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2cwi )%stream(2) = 2097216 ! 00200040 F_orgba2cwi = .TRUE. IF ( chem_index_table( PARAM_orgba3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwj , idomain ) = P_orgba3cwj ELSE P_orgba3cwj = chem_index_table( PARAM_orgba3cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwj ) = .TRUE. chem_dname_table( idomain, P_orgba3cwj ) = 'orgba3cwj' chem_desc_table( idomain, P_orgba3cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3cwj )%stream(2) = 2097216 ! 00200040 F_orgba3cwj = .TRUE. IF ( chem_index_table( PARAM_orgba3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwi , idomain ) = P_orgba3cwi ELSE P_orgba3cwi = chem_index_table( PARAM_orgba3cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwi ) = .TRUE. chem_dname_table( idomain, P_orgba3cwi ) = 'orgba3cwi' chem_desc_table( idomain, P_orgba3cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3cwi )%stream(2) = 2097216 ! 00200040 F_orgba3cwi = .TRUE. IF ( chem_index_table( PARAM_orgba4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwj , idomain ) = P_orgba4cwj ELSE P_orgba4cwj = chem_index_table( PARAM_orgba4cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwj ) = .TRUE. chem_dname_table( idomain, P_orgba4cwj ) = 'orgba4cwj' chem_desc_table( idomain, P_orgba4cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4cwj )%stream(2) = 2097216 ! 00200040 F_orgba4cwj = .TRUE. IF ( chem_index_table( PARAM_orgba4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwi , idomain ) = P_orgba4cwi ELSE P_orgba4cwi = chem_index_table( PARAM_orgba4cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwi ) = .TRUE. chem_dname_table( idomain, P_orgba4cwi ) = 'orgba4cwi' chem_desc_table( idomain, P_orgba4cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4cwi )%stream(2) = 2097216 ! 00200040 F_orgba4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 ! 00200040 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 ! 00200040 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 ! 00200040 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 ! 00200040 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 ! 00200040 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 ! 00200040 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 ! 00200040 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 ! 00200040 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 ! 00200040 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 ! 00200040 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 ! 00200040 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 ! 00200040 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==101)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==102)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 ! 00200040 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 ! 00200040 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 ! 00200040 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api )%stream(2) = 2097216 ! 00200040 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 ! 00200040 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 ! 00200040 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 ! 00200040 F_macr = .TRUE. IF ( chem_index_table( PARAM_hace , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hace = chem_num_table(idomain) chem_index_table( PARAM_hace , idomain ) = P_hace ELSE P_hace = chem_index_table( PARAM_hace , idomain ) END IF chem_boundary_table( idomain, P_hace ) = .TRUE. chem_dname_table( idomain, P_hace ) = 'hace' chem_desc_table( idomain, P_hace ) = 'HACE concentration' chem_units_table( idomain, P_hace ) = 'ppm' chem_streams_table( idomain, P_hace )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hace )%stream(2) = 2097216 ! 00200040 F_hace = .TRUE. IF ( chem_index_table( PARAM_ishp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ishp = chem_num_table(idomain) chem_index_table( PARAM_ishp , idomain ) = P_ishp ELSE P_ishp = chem_index_table( PARAM_ishp , idomain ) END IF chem_boundary_table( idomain, P_ishp ) = .TRUE. chem_dname_table( idomain, P_ishp ) = 'ishp' chem_desc_table( idomain, P_ishp ) = 'ISHP concentration' chem_units_table( idomain, P_ishp ) = 'ppm' chem_streams_table( idomain, P_ishp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ishp )%stream(2) = 2097216 ! 00200040 F_ishp = .TRUE. IF ( chem_index_table( PARAM_ison , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ison = chem_num_table(idomain) chem_index_table( PARAM_ison , idomain ) = P_ison ELSE P_ison = chem_index_table( PARAM_ison , idomain ) END IF chem_boundary_table( idomain, P_ison ) = .TRUE. chem_dname_table( idomain, P_ison ) = 'ison' chem_desc_table( idomain, P_ison ) = 'ISON concentration' chem_units_table( idomain, P_ison ) = 'ppm' chem_streams_table( idomain, P_ison )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ison )%stream(2) = 2097216 ! 00200040 F_ison = .TRUE. IF ( chem_index_table( PARAM_mahp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mahp = chem_num_table(idomain) chem_index_table( PARAM_mahp , idomain ) = P_mahp ELSE P_mahp = chem_index_table( PARAM_mahp , idomain ) END IF chem_boundary_table( idomain, P_mahp ) = .TRUE. chem_dname_table( idomain, P_mahp ) = 'mahp' chem_desc_table( idomain, P_mahp ) = 'MAHP concentration' chem_units_table( idomain, P_mahp ) = 'ppm' chem_streams_table( idomain, P_mahp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mahp )%stream(2) = 2097216 ! 00200040 F_mahp = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 ! 00200040 F_mpan = .TRUE. IF ( chem_index_table( PARAM_nald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nald = chem_num_table(idomain) chem_index_table( PARAM_nald , idomain ) = P_nald ELSE P_nald = chem_index_table( PARAM_nald , idomain ) END IF chem_boundary_table( idomain, P_nald ) = .TRUE. chem_dname_table( idomain, P_nald ) = 'nald' chem_desc_table( idomain, P_nald ) = 'NALD concentration' chem_units_table( idomain, P_nald ) = 'ppm' chem_streams_table( idomain, P_nald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nald )%stream(2) = 2097216 ! 00200040 F_nald = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==103)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 ! 00200040 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 ! 00200040 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 ! 00200040 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api )%stream(2) = 2097216 ! 00200040 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 ! 00200040 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 ! 00200040 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 ! 00200040 F_macr = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==104)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 ! 00200040 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 ! 00200040 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 ! 00200040 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api )%stream(2) = 2097216 ! 00200040 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 ! 00200040 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 ! 00200040 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 ! 00200040 F_macr = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_pm_25 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pm_25 = chem_num_table(idomain) chem_index_table( PARAM_pm_25 , idomain ) = P_pm_25 ELSE P_pm_25 = chem_index_table( PARAM_pm_25 , idomain ) END IF chem_boundary_table( idomain, P_pm_25 ) = .TRUE. chem_dname_table( idomain, P_pm_25 ) = 'pm_25' chem_desc_table( idomain, P_pm_25 ) = 'pm2.5 concentration' chem_units_table( idomain, P_pm_25 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pm_25 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pm_25 )%stream(2) = 2097216 ! 00200040 F_pm_25 = .TRUE. IF ( chem_index_table( PARAM_pm_10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pm_10 = chem_num_table(idomain) chem_index_table( PARAM_pm_10 , idomain ) = P_pm_10 ELSE P_pm_10 = chem_index_table( PARAM_pm_10 , idomain ) END IF chem_boundary_table( idomain, P_pm_10 ) = .TRUE. chem_dname_table( idomain, P_pm_10 ) = 'pm_10' chem_desc_table( idomain, P_pm_10 ) = 'pm10 concentration' chem_units_table( idomain, P_pm_10 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pm_10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pm_10 )%stream(2) = 2097216 ! 00200040 F_pm_10 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==105)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 ! 00200040 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 ! 00200040 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 ! 00200040 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api )%stream(2) = 2097216 ! 00200040 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 ! 00200040 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 ! 00200040 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 ! 00200040 F_macr = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 ! 00200040 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 ! 00200040 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 ! 00200040 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 ! 00200040 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 ! 00200040 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 ! 00200040 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 ! 00200040 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 ! 00200040 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 ! 00200040 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 ! 00200040 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 ! 00200040 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 ! 00200040 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 ! 00200040 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 ! 00200040 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 ! 00200040 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 ! 00200040 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 ! 00200040 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 ! 00200040 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 ! 00200040 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 ! 00200040 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 ! 00200040 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 ! 00200040 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 ! 00200040 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 ! 00200040 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 ! 00200040 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 ! 00200040 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 ! 00200040 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 ! 00200040 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 ! 00200040 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 ! 00200040 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 ! 00200040 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 ! 00200040 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 ! 00200040 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 ! 00200040 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 ! 00200040 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 ! 00200040 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 ! 00200040 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 ! 00200040 F_corn = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==106)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 ! 00200040 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 ! 00200040 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 ! 00200040 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 ! 00200040 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 ! 00200040 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 ! 00200040 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 ! 00200040 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 ! 00200040 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 ! 00200040 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 ! 00200040 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 ! 00200040 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 ! 00200040 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 ! 00200040 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 ! 00200040 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 ! 00200040 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 ! 00200040 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 ! 00200040 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 ! 00200040 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 ! 00200040 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 ! 00200040 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 ! 00200040 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 ! 00200040 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 ! 00200040 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 ! 00200040 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 ! 00200040 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 ! 00200040 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 ! 00200040 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 ! 00200040 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 ! 00200040 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 ! 00200040 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 ! 00200040 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 ! 00200040 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 ! 00200040 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 ! 00200040 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 ! 00200040 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 ! 00200040 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 ! 00200040 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 ! 00200040 F_corn = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==107)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 ! 00200040 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 ! 00200040 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 ! 00200040 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api )%stream(2) = 2097216 ! 00200040 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 ! 00200040 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 ! 00200040 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 ! 00200040 F_macr = .TRUE. IF ( chem_index_table( PARAM_hace , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hace = chem_num_table(idomain) chem_index_table( PARAM_hace , idomain ) = P_hace ELSE P_hace = chem_index_table( PARAM_hace , idomain ) END IF chem_boundary_table( idomain, P_hace ) = .TRUE. chem_dname_table( idomain, P_hace ) = 'hace' chem_desc_table( idomain, P_hace ) = 'HACE concentration' chem_units_table( idomain, P_hace ) = 'ppm' chem_streams_table( idomain, P_hace )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hace )%stream(2) = 2097216 ! 00200040 F_hace = .TRUE. IF ( chem_index_table( PARAM_ishp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ishp = chem_num_table(idomain) chem_index_table( PARAM_ishp , idomain ) = P_ishp ELSE P_ishp = chem_index_table( PARAM_ishp , idomain ) END IF chem_boundary_table( idomain, P_ishp ) = .TRUE. chem_dname_table( idomain, P_ishp ) = 'ishp' chem_desc_table( idomain, P_ishp ) = 'ISHP concentration' chem_units_table( idomain, P_ishp ) = 'ppm' chem_streams_table( idomain, P_ishp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ishp )%stream(2) = 2097216 ! 00200040 F_ishp = .TRUE. IF ( chem_index_table( PARAM_ison , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ison = chem_num_table(idomain) chem_index_table( PARAM_ison , idomain ) = P_ison ELSE P_ison = chem_index_table( PARAM_ison , idomain ) END IF chem_boundary_table( idomain, P_ison ) = .TRUE. chem_dname_table( idomain, P_ison ) = 'ison' chem_desc_table( idomain, P_ison ) = 'ISON concentration' chem_units_table( idomain, P_ison ) = 'ppm' chem_streams_table( idomain, P_ison )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ison )%stream(2) = 2097216 ! 00200040 F_ison = .TRUE. IF ( chem_index_table( PARAM_mahp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mahp = chem_num_table(idomain) chem_index_table( PARAM_mahp , idomain ) = P_mahp ELSE P_mahp = chem_index_table( PARAM_mahp , idomain ) END IF chem_boundary_table( idomain, P_mahp ) = .TRUE. chem_dname_table( idomain, P_mahp ) = 'mahp' chem_desc_table( idomain, P_mahp ) = 'MAHP concentration' chem_units_table( idomain, P_mahp ) = 'ppm' chem_streams_table( idomain, P_mahp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mahp )%stream(2) = 2097216 ! 00200040 F_mahp = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 ! 00200040 F_mpan = .TRUE. IF ( chem_index_table( PARAM_nald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nald = chem_num_table(idomain) chem_index_table( PARAM_nald , idomain ) = P_nald ELSE P_nald = chem_index_table( PARAM_nald , idomain ) END IF chem_boundary_table( idomain, P_nald ) = .TRUE. chem_dname_table( idomain, P_nald ) = 'nald' chem_desc_table( idomain, P_nald ) = 'NALD concentration' chem_units_table( idomain, P_nald ) = 'ppm' chem_streams_table( idomain, P_nald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nald )%stream(2) = 2097216 ! 00200040 F_nald = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 ! 00200040 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 ! 00200040 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 ! 00200040 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 ! 00200040 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 ! 00200040 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 ! 00200040 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 ! 00200040 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 ! 00200040 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 ! 00200040 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 ! 00200040 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 ! 00200040 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 ! 00200040 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 ! 00200040 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 ! 00200040 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 ! 00200040 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 ! 00200040 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 ! 00200040 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 ! 00200040 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 ! 00200040 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 ! 00200040 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 ! 00200040 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 ! 00200040 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 ! 00200040 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 ! 00200040 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 ! 00200040 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 ! 00200040 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 ! 00200040 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 ! 00200040 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 ! 00200040 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 ! 00200040 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 ! 00200040 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 ! 00200040 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 ! 00200040 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 ! 00200040 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 ! 00200040 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 ! 00200040 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 ! 00200040 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 ! 00200040 F_corn = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==108)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 ! 00200040 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 ! 00200040 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 ! 00200040 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api )%stream(2) = 2097216 ! 00200040 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 ! 00200040 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 ! 00200040 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 ! 00200040 F_macr = .TRUE. IF ( chem_index_table( PARAM_hace , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hace = chem_num_table(idomain) chem_index_table( PARAM_hace , idomain ) = P_hace ELSE P_hace = chem_index_table( PARAM_hace , idomain ) END IF chem_boundary_table( idomain, P_hace ) = .TRUE. chem_dname_table( idomain, P_hace ) = 'hace' chem_desc_table( idomain, P_hace ) = 'HACE concentration' chem_units_table( idomain, P_hace ) = 'ppm' chem_streams_table( idomain, P_hace )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hace )%stream(2) = 2097216 ! 00200040 F_hace = .TRUE. IF ( chem_index_table( PARAM_ishp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ishp = chem_num_table(idomain) chem_index_table( PARAM_ishp , idomain ) = P_ishp ELSE P_ishp = chem_index_table( PARAM_ishp , idomain ) END IF chem_boundary_table( idomain, P_ishp ) = .TRUE. chem_dname_table( idomain, P_ishp ) = 'ishp' chem_desc_table( idomain, P_ishp ) = 'ISHP concentration' chem_units_table( idomain, P_ishp ) = 'ppm' chem_streams_table( idomain, P_ishp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ishp )%stream(2) = 2097216 ! 00200040 F_ishp = .TRUE. IF ( chem_index_table( PARAM_ison , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ison = chem_num_table(idomain) chem_index_table( PARAM_ison , idomain ) = P_ison ELSE P_ison = chem_index_table( PARAM_ison , idomain ) END IF chem_boundary_table( idomain, P_ison ) = .TRUE. chem_dname_table( idomain, P_ison ) = 'ison' chem_desc_table( idomain, P_ison ) = 'ISON concentration' chem_units_table( idomain, P_ison ) = 'ppm' chem_streams_table( idomain, P_ison )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ison )%stream(2) = 2097216 ! 00200040 F_ison = .TRUE. IF ( chem_index_table( PARAM_mahp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mahp = chem_num_table(idomain) chem_index_table( PARAM_mahp , idomain ) = P_mahp ELSE P_mahp = chem_index_table( PARAM_mahp , idomain ) END IF chem_boundary_table( idomain, P_mahp ) = .TRUE. chem_dname_table( idomain, P_mahp ) = 'mahp' chem_desc_table( idomain, P_mahp ) = 'MAHP concentration' chem_units_table( idomain, P_mahp ) = 'ppm' chem_streams_table( idomain, P_mahp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mahp )%stream(2) = 2097216 ! 00200040 F_mahp = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 ! 00200040 F_mpan = .TRUE. IF ( chem_index_table( PARAM_nald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nald = chem_num_table(idomain) chem_index_table( PARAM_nald , idomain ) = P_nald ELSE P_nald = chem_index_table( PARAM_nald , idomain ) END IF chem_boundary_table( idomain, P_nald ) = .TRUE. chem_dname_table( idomain, P_nald ) = 'nald' chem_desc_table( idomain, P_nald ) = 'NALD concentration' chem_units_table( idomain, P_nald ) = 'ppm' chem_streams_table( idomain, P_nald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nald )%stream(2) = 2097216 ! 00200040 F_nald = .TRUE. IF ( chem_index_table( PARAM_sesq , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sesq = chem_num_table(idomain) chem_index_table( PARAM_sesq , idomain ) = P_sesq ELSE P_sesq = chem_index_table( PARAM_sesq , idomain ) END IF chem_boundary_table( idomain, P_sesq ) = .TRUE. chem_dname_table( idomain, P_sesq ) = 'sesq' chem_desc_table( idomain, P_sesq ) = 'SESQ mixing ratio' chem_units_table( idomain, P_sesq ) = 'ppmv' chem_streams_table( idomain, P_sesq )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sesq )%stream(2) = 2097216 ! 00200040 F_sesq = .TRUE. IF ( chem_index_table( PARAM_mbo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mbo = chem_num_table(idomain) chem_index_table( PARAM_mbo , idomain ) = P_mbo ELSE P_mbo = chem_index_table( PARAM_mbo , idomain ) END IF chem_boundary_table( idomain, P_mbo ) = .TRUE. chem_dname_table( idomain, P_mbo ) = 'mbo' chem_desc_table( idomain, P_mbo ) = 'MBO (2-Methyl-3-Buten-2-ol) mixing ratio' chem_units_table( idomain, P_mbo ) = 'ppmv' chem_streams_table( idomain, P_mbo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mbo )%stream(2) = 2097216 ! 00200040 F_mbo = .TRUE. IF ( chem_index_table( PARAM_cvasoa1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa1 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa1 , idomain ) = P_cvasoa1 ELSE P_cvasoa1 = chem_index_table( PARAM_cvasoa1 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa1 ) = .TRUE. chem_dname_table( idomain, P_cvasoa1 ) = 'cvasoa1' chem_desc_table( idomain, P_cvasoa1 ) = 'cond.vapor from ASOA1' chem_units_table( idomain, P_cvasoa1 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoa1 )%stream(2) = 2097216 ! 00200040 F_cvasoa1 = .TRUE. IF ( chem_index_table( PARAM_cvasoa2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa2 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa2 , idomain ) = P_cvasoa2 ELSE P_cvasoa2 = chem_index_table( PARAM_cvasoa2 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa2 ) = .TRUE. chem_dname_table( idomain, P_cvasoa2 ) = 'cvasoa2' chem_desc_table( idomain, P_cvasoa2 ) = 'cond.vapor from ASOA2' chem_units_table( idomain, P_cvasoa2 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoa2 )%stream(2) = 2097216 ! 00200040 F_cvasoa2 = .TRUE. IF ( chem_index_table( PARAM_cvasoa3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa3 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa3 , idomain ) = P_cvasoa3 ELSE P_cvasoa3 = chem_index_table( PARAM_cvasoa3 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa3 ) = .TRUE. chem_dname_table( idomain, P_cvasoa3 ) = 'cvasoa3' chem_desc_table( idomain, P_cvasoa3 ) = 'cond.vapor from ASOA3' chem_units_table( idomain, P_cvasoa3 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoa3 )%stream(2) = 2097216 ! 00200040 F_cvasoa3 = .TRUE. IF ( chem_index_table( PARAM_cvasoa4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa4 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa4 , idomain ) = P_cvasoa4 ELSE P_cvasoa4 = chem_index_table( PARAM_cvasoa4 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa4 ) = .TRUE. chem_dname_table( idomain, P_cvasoa4 ) = 'cvasoa4' chem_desc_table( idomain, P_cvasoa4 ) = 'cond.vapor from ASOA4' chem_units_table( idomain, P_cvasoa4 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoa4 )%stream(2) = 2097216 ! 00200040 F_cvasoa4 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa1 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa1 , idomain ) = P_cvbsoa1 ELSE P_cvbsoa1 = chem_index_table( PARAM_cvbsoa1 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa1 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa1 ) = 'cvbsoa1' chem_desc_table( idomain, P_cvbsoa1 ) = 'cond.vapor from BSOA1' chem_units_table( idomain, P_cvbsoa1 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoa1 )%stream(2) = 2097216 ! 00200040 F_cvbsoa1 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa2 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa2 , idomain ) = P_cvbsoa2 ELSE P_cvbsoa2 = chem_index_table( PARAM_cvbsoa2 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa2 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa2 ) = 'cvbsoa2' chem_desc_table( idomain, P_cvbsoa2 ) = 'cond.vapor from BSOA2' chem_units_table( idomain, P_cvbsoa2 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoa2 )%stream(2) = 2097216 ! 00200040 F_cvbsoa2 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa3 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa3 , idomain ) = P_cvbsoa3 ELSE P_cvbsoa3 = chem_index_table( PARAM_cvbsoa3 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa3 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa3 ) = 'cvbsoa3' chem_desc_table( idomain, P_cvbsoa3 ) = 'cond.vapor from BSOA3' chem_units_table( idomain, P_cvbsoa3 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoa3 )%stream(2) = 2097216 ! 00200040 F_cvbsoa3 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa4 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa4 , idomain ) = P_cvbsoa4 ELSE P_cvbsoa4 = chem_index_table( PARAM_cvbsoa4 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa4 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa4 ) = 'cvbsoa4' chem_desc_table( idomain, P_cvbsoa4 ) = 'cond.vapor from BSOA4' chem_units_table( idomain, P_cvbsoa4 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoa4 )%stream(2) = 2097216 ! 00200040 F_cvbsoa4 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 ! 00200040 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 ! 00200040 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 ! 00200040 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 ! 00200040 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 ! 00200040 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 ! 00200040 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 ! 00200040 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 ! 00200040 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 ! 00200040 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 ! 00200040 F_clai = .TRUE. IF ( chem_index_table( PARAM_asoa1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1j = chem_num_table(idomain) chem_index_table( PARAM_asoa1j , idomain ) = P_asoa1j ELSE P_asoa1j = chem_index_table( PARAM_asoa1j , idomain ) END IF chem_boundary_table( idomain, P_asoa1j ) = .TRUE. chem_dname_table( idomain, P_asoa1j ) = 'asoa1j' chem_desc_table( idomain, P_asoa1j ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1j )%stream(2) = 2097216 ! 00200040 F_asoa1j = .TRUE. IF ( chem_index_table( PARAM_asoa1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1i = chem_num_table(idomain) chem_index_table( PARAM_asoa1i , idomain ) = P_asoa1i ELSE P_asoa1i = chem_index_table( PARAM_asoa1i , idomain ) END IF chem_boundary_table( idomain, P_asoa1i ) = .TRUE. chem_dname_table( idomain, P_asoa1i ) = 'asoa1i' chem_desc_table( idomain, P_asoa1i ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1i )%stream(2) = 2097216 ! 00200040 F_asoa1i = .TRUE. IF ( chem_index_table( PARAM_asoa2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2j = chem_num_table(idomain) chem_index_table( PARAM_asoa2j , idomain ) = P_asoa2j ELSE P_asoa2j = chem_index_table( PARAM_asoa2j , idomain ) END IF chem_boundary_table( idomain, P_asoa2j ) = .TRUE. chem_dname_table( idomain, P_asoa2j ) = 'asoa2j' chem_desc_table( idomain, P_asoa2j ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2j )%stream(2) = 2097216 ! 00200040 F_asoa2j = .TRUE. IF ( chem_index_table( PARAM_asoa2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2i = chem_num_table(idomain) chem_index_table( PARAM_asoa2i , idomain ) = P_asoa2i ELSE P_asoa2i = chem_index_table( PARAM_asoa2i , idomain ) END IF chem_boundary_table( idomain, P_asoa2i ) = .TRUE. chem_dname_table( idomain, P_asoa2i ) = 'asoa2i' chem_desc_table( idomain, P_asoa2i ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2i )%stream(2) = 2097216 ! 00200040 F_asoa2i = .TRUE. IF ( chem_index_table( PARAM_asoa3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3j = chem_num_table(idomain) chem_index_table( PARAM_asoa3j , idomain ) = P_asoa3j ELSE P_asoa3j = chem_index_table( PARAM_asoa3j , idomain ) END IF chem_boundary_table( idomain, P_asoa3j ) = .TRUE. chem_dname_table( idomain, P_asoa3j ) = 'asoa3j' chem_desc_table( idomain, P_asoa3j ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3j )%stream(2) = 2097216 ! 00200040 F_asoa3j = .TRUE. IF ( chem_index_table( PARAM_asoa3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3i = chem_num_table(idomain) chem_index_table( PARAM_asoa3i , idomain ) = P_asoa3i ELSE P_asoa3i = chem_index_table( PARAM_asoa3i , idomain ) END IF chem_boundary_table( idomain, P_asoa3i ) = .TRUE. chem_dname_table( idomain, P_asoa3i ) = 'asoa3i' chem_desc_table( idomain, P_asoa3i ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3i )%stream(2) = 2097216 ! 00200040 F_asoa3i = .TRUE. IF ( chem_index_table( PARAM_asoa4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4j = chem_num_table(idomain) chem_index_table( PARAM_asoa4j , idomain ) = P_asoa4j ELSE P_asoa4j = chem_index_table( PARAM_asoa4j , idomain ) END IF chem_boundary_table( idomain, P_asoa4j ) = .TRUE. chem_dname_table( idomain, P_asoa4j ) = 'asoa4j' chem_desc_table( idomain, P_asoa4j ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4j )%stream(2) = 2097216 ! 00200040 F_asoa4j = .TRUE. IF ( chem_index_table( PARAM_asoa4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4i = chem_num_table(idomain) chem_index_table( PARAM_asoa4i , idomain ) = P_asoa4i ELSE P_asoa4i = chem_index_table( PARAM_asoa4i , idomain ) END IF chem_boundary_table( idomain, P_asoa4i ) = .TRUE. chem_dname_table( idomain, P_asoa4i ) = 'asoa4i' chem_desc_table( idomain, P_asoa4i ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4i )%stream(2) = 2097216 ! 00200040 F_asoa4i = .TRUE. IF ( chem_index_table( PARAM_bsoa1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1j = chem_num_table(idomain) chem_index_table( PARAM_bsoa1j , idomain ) = P_bsoa1j ELSE P_bsoa1j = chem_index_table( PARAM_bsoa1j , idomain ) END IF chem_boundary_table( idomain, P_bsoa1j ) = .TRUE. chem_dname_table( idomain, P_bsoa1j ) = 'bsoa1j' chem_desc_table( idomain, P_bsoa1j ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1j )%stream(2) = 2097216 ! 00200040 F_bsoa1j = .TRUE. IF ( chem_index_table( PARAM_bsoa1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1i = chem_num_table(idomain) chem_index_table( PARAM_bsoa1i , idomain ) = P_bsoa1i ELSE P_bsoa1i = chem_index_table( PARAM_bsoa1i , idomain ) END IF chem_boundary_table( idomain, P_bsoa1i ) = .TRUE. chem_dname_table( idomain, P_bsoa1i ) = 'bsoa1i' chem_desc_table( idomain, P_bsoa1i ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1i )%stream(2) = 2097216 ! 00200040 F_bsoa1i = .TRUE. IF ( chem_index_table( PARAM_bsoa2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2j = chem_num_table(idomain) chem_index_table( PARAM_bsoa2j , idomain ) = P_bsoa2j ELSE P_bsoa2j = chem_index_table( PARAM_bsoa2j , idomain ) END IF chem_boundary_table( idomain, P_bsoa2j ) = .TRUE. chem_dname_table( idomain, P_bsoa2j ) = 'bsoa2j' chem_desc_table( idomain, P_bsoa2j ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2j )%stream(2) = 2097216 ! 00200040 F_bsoa2j = .TRUE. IF ( chem_index_table( PARAM_bsoa2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2i = chem_num_table(idomain) chem_index_table( PARAM_bsoa2i , idomain ) = P_bsoa2i ELSE P_bsoa2i = chem_index_table( PARAM_bsoa2i , idomain ) END IF chem_boundary_table( idomain, P_bsoa2i ) = .TRUE. chem_dname_table( idomain, P_bsoa2i ) = 'bsoa2i' chem_desc_table( idomain, P_bsoa2i ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2i )%stream(2) = 2097216 ! 00200040 F_bsoa2i = .TRUE. IF ( chem_index_table( PARAM_bsoa3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3j = chem_num_table(idomain) chem_index_table( PARAM_bsoa3j , idomain ) = P_bsoa3j ELSE P_bsoa3j = chem_index_table( PARAM_bsoa3j , idomain ) END IF chem_boundary_table( idomain, P_bsoa3j ) = .TRUE. chem_dname_table( idomain, P_bsoa3j ) = 'bsoa3j' chem_desc_table( idomain, P_bsoa3j ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3j )%stream(2) = 2097216 ! 00200040 F_bsoa3j = .TRUE. IF ( chem_index_table( PARAM_bsoa3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3i = chem_num_table(idomain) chem_index_table( PARAM_bsoa3i , idomain ) = P_bsoa3i ELSE P_bsoa3i = chem_index_table( PARAM_bsoa3i , idomain ) END IF chem_boundary_table( idomain, P_bsoa3i ) = .TRUE. chem_dname_table( idomain, P_bsoa3i ) = 'bsoa3i' chem_desc_table( idomain, P_bsoa3i ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3i )%stream(2) = 2097216 ! 00200040 F_bsoa3i = .TRUE. IF ( chem_index_table( PARAM_bsoa4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4j = chem_num_table(idomain) chem_index_table( PARAM_bsoa4j , idomain ) = P_bsoa4j ELSE P_bsoa4j = chem_index_table( PARAM_bsoa4j , idomain ) END IF chem_boundary_table( idomain, P_bsoa4j ) = .TRUE. chem_dname_table( idomain, P_bsoa4j ) = 'bsoa4j' chem_desc_table( idomain, P_bsoa4j ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4j )%stream(2) = 2097216 ! 00200040 F_bsoa4j = .TRUE. IF ( chem_index_table( PARAM_bsoa4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4i = chem_num_table(idomain) chem_index_table( PARAM_bsoa4i , idomain ) = P_bsoa4i ELSE P_bsoa4i = chem_index_table( PARAM_bsoa4i , idomain ) END IF chem_boundary_table( idomain, P_bsoa4i ) = .TRUE. chem_dname_table( idomain, P_bsoa4i ) = 'bsoa4i' chem_desc_table( idomain, P_bsoa4i ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4i )%stream(2) = 2097216 ! 00200040 F_bsoa4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 ! 00200040 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 ! 00200040 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 ! 00200040 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 ! 00200040 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 ! 00200040 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 ! 00200040 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 ! 00200040 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 ! 00200040 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 ! 00200040 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 ! 00200040 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 ! 00200040 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 ! 00200040 F_corn = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==109)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 ! 00200040 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 ! 00200040 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 ! 00200040 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api )%stream(2) = 2097216 ! 00200040 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 ! 00200040 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 ! 00200040 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 ! 00200040 F_macr = .TRUE. IF ( chem_index_table( PARAM_hace , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hace = chem_num_table(idomain) chem_index_table( PARAM_hace , idomain ) = P_hace ELSE P_hace = chem_index_table( PARAM_hace , idomain ) END IF chem_boundary_table( idomain, P_hace ) = .TRUE. chem_dname_table( idomain, P_hace ) = 'hace' chem_desc_table( idomain, P_hace ) = 'HACE concentration' chem_units_table( idomain, P_hace ) = 'ppm' chem_streams_table( idomain, P_hace )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hace )%stream(2) = 2097216 ! 00200040 F_hace = .TRUE. IF ( chem_index_table( PARAM_ishp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ishp = chem_num_table(idomain) chem_index_table( PARAM_ishp , idomain ) = P_ishp ELSE P_ishp = chem_index_table( PARAM_ishp , idomain ) END IF chem_boundary_table( idomain, P_ishp ) = .TRUE. chem_dname_table( idomain, P_ishp ) = 'ishp' chem_desc_table( idomain, P_ishp ) = 'ISHP concentration' chem_units_table( idomain, P_ishp ) = 'ppm' chem_streams_table( idomain, P_ishp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ishp )%stream(2) = 2097216 ! 00200040 F_ishp = .TRUE. IF ( chem_index_table( PARAM_ison , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ison = chem_num_table(idomain) chem_index_table( PARAM_ison , idomain ) = P_ison ELSE P_ison = chem_index_table( PARAM_ison , idomain ) END IF chem_boundary_table( idomain, P_ison ) = .TRUE. chem_dname_table( idomain, P_ison ) = 'ison' chem_desc_table( idomain, P_ison ) = 'ISON concentration' chem_units_table( idomain, P_ison ) = 'ppm' chem_streams_table( idomain, P_ison )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ison )%stream(2) = 2097216 ! 00200040 F_ison = .TRUE. IF ( chem_index_table( PARAM_mahp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mahp = chem_num_table(idomain) chem_index_table( PARAM_mahp , idomain ) = P_mahp ELSE P_mahp = chem_index_table( PARAM_mahp , idomain ) END IF chem_boundary_table( idomain, P_mahp ) = .TRUE. chem_dname_table( idomain, P_mahp ) = 'mahp' chem_desc_table( idomain, P_mahp ) = 'MAHP concentration' chem_units_table( idomain, P_mahp ) = 'ppm' chem_streams_table( idomain, P_mahp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mahp )%stream(2) = 2097216 ! 00200040 F_mahp = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 ! 00200040 F_mpan = .TRUE. IF ( chem_index_table( PARAM_nald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nald = chem_num_table(idomain) chem_index_table( PARAM_nald , idomain ) = P_nald ELSE P_nald = chem_index_table( PARAM_nald , idomain ) END IF chem_boundary_table( idomain, P_nald ) = .TRUE. chem_dname_table( idomain, P_nald ) = 'nald' chem_desc_table( idomain, P_nald ) = 'NALD concentration' chem_units_table( idomain, P_nald ) = 'ppm' chem_streams_table( idomain, P_nald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nald )%stream(2) = 2097216 ! 00200040 F_nald = .TRUE. IF ( chem_index_table( PARAM_sesq , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sesq = chem_num_table(idomain) chem_index_table( PARAM_sesq , idomain ) = P_sesq ELSE P_sesq = chem_index_table( PARAM_sesq , idomain ) END IF chem_boundary_table( idomain, P_sesq ) = .TRUE. chem_dname_table( idomain, P_sesq ) = 'sesq' chem_desc_table( idomain, P_sesq ) = 'SESQ mixing ratio' chem_units_table( idomain, P_sesq ) = 'ppmv' chem_streams_table( idomain, P_sesq )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sesq )%stream(2) = 2097216 ! 00200040 F_sesq = .TRUE. IF ( chem_index_table( PARAM_mbo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mbo = chem_num_table(idomain) chem_index_table( PARAM_mbo , idomain ) = P_mbo ELSE P_mbo = chem_index_table( PARAM_mbo , idomain ) END IF chem_boundary_table( idomain, P_mbo ) = .TRUE. chem_dname_table( idomain, P_mbo ) = 'mbo' chem_desc_table( idomain, P_mbo ) = 'MBO (2-Methyl-3-Buten-2-ol) mixing ratio' chem_units_table( idomain, P_mbo ) = 'ppmv' chem_streams_table( idomain, P_mbo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mbo )%stream(2) = 2097216 ! 00200040 F_mbo = .TRUE. IF ( chem_index_table( PARAM_cvasoa1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa1 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa1 , idomain ) = P_cvasoa1 ELSE P_cvasoa1 = chem_index_table( PARAM_cvasoa1 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa1 ) = .TRUE. chem_dname_table( idomain, P_cvasoa1 ) = 'cvasoa1' chem_desc_table( idomain, P_cvasoa1 ) = 'cond.vapor from ASOA1' chem_units_table( idomain, P_cvasoa1 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoa1 )%stream(2) = 2097216 ! 00200040 F_cvasoa1 = .TRUE. IF ( chem_index_table( PARAM_cvasoa2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa2 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa2 , idomain ) = P_cvasoa2 ELSE P_cvasoa2 = chem_index_table( PARAM_cvasoa2 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa2 ) = .TRUE. chem_dname_table( idomain, P_cvasoa2 ) = 'cvasoa2' chem_desc_table( idomain, P_cvasoa2 ) = 'cond.vapor from ASOA2' chem_units_table( idomain, P_cvasoa2 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoa2 )%stream(2) = 2097216 ! 00200040 F_cvasoa2 = .TRUE. IF ( chem_index_table( PARAM_cvasoa3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa3 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa3 , idomain ) = P_cvasoa3 ELSE P_cvasoa3 = chem_index_table( PARAM_cvasoa3 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa3 ) = .TRUE. chem_dname_table( idomain, P_cvasoa3 ) = 'cvasoa3' chem_desc_table( idomain, P_cvasoa3 ) = 'cond.vapor from ASOA3' chem_units_table( idomain, P_cvasoa3 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoa3 )%stream(2) = 2097216 ! 00200040 F_cvasoa3 = .TRUE. IF ( chem_index_table( PARAM_cvasoa4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa4 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa4 , idomain ) = P_cvasoa4 ELSE P_cvasoa4 = chem_index_table( PARAM_cvasoa4 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa4 ) = .TRUE. chem_dname_table( idomain, P_cvasoa4 ) = 'cvasoa4' chem_desc_table( idomain, P_cvasoa4 ) = 'cond.vapor from ASOA4' chem_units_table( idomain, P_cvasoa4 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoa4 )%stream(2) = 2097216 ! 00200040 F_cvasoa4 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa1 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa1 , idomain ) = P_cvbsoa1 ELSE P_cvbsoa1 = chem_index_table( PARAM_cvbsoa1 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa1 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa1 ) = 'cvbsoa1' chem_desc_table( idomain, P_cvbsoa1 ) = 'cond.vapor from BSOA1' chem_units_table( idomain, P_cvbsoa1 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoa1 )%stream(2) = 2097216 ! 00200040 F_cvbsoa1 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa2 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa2 , idomain ) = P_cvbsoa2 ELSE P_cvbsoa2 = chem_index_table( PARAM_cvbsoa2 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa2 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa2 ) = 'cvbsoa2' chem_desc_table( idomain, P_cvbsoa2 ) = 'cond.vapor from BSOA2' chem_units_table( idomain, P_cvbsoa2 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoa2 )%stream(2) = 2097216 ! 00200040 F_cvbsoa2 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa3 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa3 , idomain ) = P_cvbsoa3 ELSE P_cvbsoa3 = chem_index_table( PARAM_cvbsoa3 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa3 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa3 ) = 'cvbsoa3' chem_desc_table( idomain, P_cvbsoa3 ) = 'cond.vapor from BSOA3' chem_units_table( idomain, P_cvbsoa3 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoa3 )%stream(2) = 2097216 ! 00200040 F_cvbsoa3 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa4 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa4 , idomain ) = P_cvbsoa4 ELSE P_cvbsoa4 = chem_index_table( PARAM_cvbsoa4 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa4 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa4 ) = 'cvbsoa4' chem_desc_table( idomain, P_cvbsoa4 ) = 'cond.vapor from BSOA4' chem_units_table( idomain, P_cvbsoa4 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoa4 )%stream(2) = 2097216 ! 00200040 F_cvbsoa4 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 ! 00200040 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 ! 00200040 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 ! 00200040 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 ! 00200040 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 ! 00200040 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 ! 00200040 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 ! 00200040 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 ! 00200040 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 ! 00200040 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 ! 00200040 F_clai = .TRUE. IF ( chem_index_table( PARAM_asoa1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1j = chem_num_table(idomain) chem_index_table( PARAM_asoa1j , idomain ) = P_asoa1j ELSE P_asoa1j = chem_index_table( PARAM_asoa1j , idomain ) END IF chem_boundary_table( idomain, P_asoa1j ) = .TRUE. chem_dname_table( idomain, P_asoa1j ) = 'asoa1j' chem_desc_table( idomain, P_asoa1j ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1j )%stream(2) = 2097216 ! 00200040 F_asoa1j = .TRUE. IF ( chem_index_table( PARAM_asoa1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1i = chem_num_table(idomain) chem_index_table( PARAM_asoa1i , idomain ) = P_asoa1i ELSE P_asoa1i = chem_index_table( PARAM_asoa1i , idomain ) END IF chem_boundary_table( idomain, P_asoa1i ) = .TRUE. chem_dname_table( idomain, P_asoa1i ) = 'asoa1i' chem_desc_table( idomain, P_asoa1i ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1i )%stream(2) = 2097216 ! 00200040 F_asoa1i = .TRUE. IF ( chem_index_table( PARAM_asoa2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2j = chem_num_table(idomain) chem_index_table( PARAM_asoa2j , idomain ) = P_asoa2j ELSE P_asoa2j = chem_index_table( PARAM_asoa2j , idomain ) END IF chem_boundary_table( idomain, P_asoa2j ) = .TRUE. chem_dname_table( idomain, P_asoa2j ) = 'asoa2j' chem_desc_table( idomain, P_asoa2j ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2j )%stream(2) = 2097216 ! 00200040 F_asoa2j = .TRUE. IF ( chem_index_table( PARAM_asoa2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2i = chem_num_table(idomain) chem_index_table( PARAM_asoa2i , idomain ) = P_asoa2i ELSE P_asoa2i = chem_index_table( PARAM_asoa2i , idomain ) END IF chem_boundary_table( idomain, P_asoa2i ) = .TRUE. chem_dname_table( idomain, P_asoa2i ) = 'asoa2i' chem_desc_table( idomain, P_asoa2i ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2i )%stream(2) = 2097216 ! 00200040 F_asoa2i = .TRUE. IF ( chem_index_table( PARAM_asoa3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3j = chem_num_table(idomain) chem_index_table( PARAM_asoa3j , idomain ) = P_asoa3j ELSE P_asoa3j = chem_index_table( PARAM_asoa3j , idomain ) END IF chem_boundary_table( idomain, P_asoa3j ) = .TRUE. chem_dname_table( idomain, P_asoa3j ) = 'asoa3j' chem_desc_table( idomain, P_asoa3j ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3j )%stream(2) = 2097216 ! 00200040 F_asoa3j = .TRUE. IF ( chem_index_table( PARAM_asoa3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3i = chem_num_table(idomain) chem_index_table( PARAM_asoa3i , idomain ) = P_asoa3i ELSE P_asoa3i = chem_index_table( PARAM_asoa3i , idomain ) END IF chem_boundary_table( idomain, P_asoa3i ) = .TRUE. chem_dname_table( idomain, P_asoa3i ) = 'asoa3i' chem_desc_table( idomain, P_asoa3i ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3i )%stream(2) = 2097216 ! 00200040 F_asoa3i = .TRUE. IF ( chem_index_table( PARAM_asoa4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4j = chem_num_table(idomain) chem_index_table( PARAM_asoa4j , idomain ) = P_asoa4j ELSE P_asoa4j = chem_index_table( PARAM_asoa4j , idomain ) END IF chem_boundary_table( idomain, P_asoa4j ) = .TRUE. chem_dname_table( idomain, P_asoa4j ) = 'asoa4j' chem_desc_table( idomain, P_asoa4j ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4j )%stream(2) = 2097216 ! 00200040 F_asoa4j = .TRUE. IF ( chem_index_table( PARAM_asoa4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4i = chem_num_table(idomain) chem_index_table( PARAM_asoa4i , idomain ) = P_asoa4i ELSE P_asoa4i = chem_index_table( PARAM_asoa4i , idomain ) END IF chem_boundary_table( idomain, P_asoa4i ) = .TRUE. chem_dname_table( idomain, P_asoa4i ) = 'asoa4i' chem_desc_table( idomain, P_asoa4i ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4i )%stream(2) = 2097216 ! 00200040 F_asoa4i = .TRUE. IF ( chem_index_table( PARAM_bsoa1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1j = chem_num_table(idomain) chem_index_table( PARAM_bsoa1j , idomain ) = P_bsoa1j ELSE P_bsoa1j = chem_index_table( PARAM_bsoa1j , idomain ) END IF chem_boundary_table( idomain, P_bsoa1j ) = .TRUE. chem_dname_table( idomain, P_bsoa1j ) = 'bsoa1j' chem_desc_table( idomain, P_bsoa1j ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1j )%stream(2) = 2097216 ! 00200040 F_bsoa1j = .TRUE. IF ( chem_index_table( PARAM_bsoa1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1i = chem_num_table(idomain) chem_index_table( PARAM_bsoa1i , idomain ) = P_bsoa1i ELSE P_bsoa1i = chem_index_table( PARAM_bsoa1i , idomain ) END IF chem_boundary_table( idomain, P_bsoa1i ) = .TRUE. chem_dname_table( idomain, P_bsoa1i ) = 'bsoa1i' chem_desc_table( idomain, P_bsoa1i ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1i )%stream(2) = 2097216 ! 00200040 F_bsoa1i = .TRUE. IF ( chem_index_table( PARAM_bsoa2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2j = chem_num_table(idomain) chem_index_table( PARAM_bsoa2j , idomain ) = P_bsoa2j ELSE P_bsoa2j = chem_index_table( PARAM_bsoa2j , idomain ) END IF chem_boundary_table( idomain, P_bsoa2j ) = .TRUE. chem_dname_table( idomain, P_bsoa2j ) = 'bsoa2j' chem_desc_table( idomain, P_bsoa2j ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2j )%stream(2) = 2097216 ! 00200040 F_bsoa2j = .TRUE. IF ( chem_index_table( PARAM_bsoa2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2i = chem_num_table(idomain) chem_index_table( PARAM_bsoa2i , idomain ) = P_bsoa2i ELSE P_bsoa2i = chem_index_table( PARAM_bsoa2i , idomain ) END IF chem_boundary_table( idomain, P_bsoa2i ) = .TRUE. chem_dname_table( idomain, P_bsoa2i ) = 'bsoa2i' chem_desc_table( idomain, P_bsoa2i ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2i )%stream(2) = 2097216 ! 00200040 F_bsoa2i = .TRUE. IF ( chem_index_table( PARAM_bsoa3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3j = chem_num_table(idomain) chem_index_table( PARAM_bsoa3j , idomain ) = P_bsoa3j ELSE P_bsoa3j = chem_index_table( PARAM_bsoa3j , idomain ) END IF chem_boundary_table( idomain, P_bsoa3j ) = .TRUE. chem_dname_table( idomain, P_bsoa3j ) = 'bsoa3j' chem_desc_table( idomain, P_bsoa3j ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3j )%stream(2) = 2097216 ! 00200040 F_bsoa3j = .TRUE. IF ( chem_index_table( PARAM_bsoa3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3i = chem_num_table(idomain) chem_index_table( PARAM_bsoa3i , idomain ) = P_bsoa3i ELSE P_bsoa3i = chem_index_table( PARAM_bsoa3i , idomain ) END IF chem_boundary_table( idomain, P_bsoa3i ) = .TRUE. chem_dname_table( idomain, P_bsoa3i ) = 'bsoa3i' chem_desc_table( idomain, P_bsoa3i ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3i )%stream(2) = 2097216 ! 00200040 F_bsoa3i = .TRUE. IF ( chem_index_table( PARAM_bsoa4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4j = chem_num_table(idomain) chem_index_table( PARAM_bsoa4j , idomain ) = P_bsoa4j ELSE P_bsoa4j = chem_index_table( PARAM_bsoa4j , idomain ) END IF chem_boundary_table( idomain, P_bsoa4j ) = .TRUE. chem_dname_table( idomain, P_bsoa4j ) = 'bsoa4j' chem_desc_table( idomain, P_bsoa4j ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4j )%stream(2) = 2097216 ! 00200040 F_bsoa4j = .TRUE. IF ( chem_index_table( PARAM_bsoa4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4i = chem_num_table(idomain) chem_index_table( PARAM_bsoa4i , idomain ) = P_bsoa4i ELSE P_bsoa4i = chem_index_table( PARAM_bsoa4i , idomain ) END IF chem_boundary_table( idomain, P_bsoa4i ) = .TRUE. chem_dname_table( idomain, P_bsoa4i ) = 'bsoa4i' chem_desc_table( idomain, P_bsoa4i ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4i )%stream(2) = 2097216 ! 00200040 F_bsoa4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 ! 00200040 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 ! 00200040 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 ! 00200040 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 ! 00200040 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 ! 00200040 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 ! 00200040 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 ! 00200040 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 ! 00200040 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 ! 00200040 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 ! 00200040 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 ! 00200040 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 ! 00200040 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 ! 00200040 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 ! 00200040 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 ! 00200040 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 ! 00200040 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 ! 00200040 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 ! 00200040 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 ! 00200040 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 ! 00200040 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 ! 00200040 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 ! 00200040 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_asoa1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa1cwj , idomain ) = P_asoa1cwj ELSE P_asoa1cwj = chem_index_table( PARAM_asoa1cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa1cwj ) = .TRUE. chem_dname_table( idomain, P_asoa1cwj ) = 'asoa1cwj' chem_desc_table( idomain, P_asoa1cwj ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1cwj )%stream(2) = 2097216 ! 00200040 F_asoa1cwj = .TRUE. IF ( chem_index_table( PARAM_asoa1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa1cwi , idomain ) = P_asoa1cwi ELSE P_asoa1cwi = chem_index_table( PARAM_asoa1cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa1cwi ) = .TRUE. chem_dname_table( idomain, P_asoa1cwi ) = 'asoa1cwi' chem_desc_table( idomain, P_asoa1cwi ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1cwi )%stream(2) = 2097216 ! 00200040 F_asoa1cwi = .TRUE. IF ( chem_index_table( PARAM_asoa2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa2cwj , idomain ) = P_asoa2cwj ELSE P_asoa2cwj = chem_index_table( PARAM_asoa2cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa2cwj ) = .TRUE. chem_dname_table( idomain, P_asoa2cwj ) = 'asoa2cwj' chem_desc_table( idomain, P_asoa2cwj ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2cwj )%stream(2) = 2097216 ! 00200040 F_asoa2cwj = .TRUE. IF ( chem_index_table( PARAM_asoa2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa2cwi , idomain ) = P_asoa2cwi ELSE P_asoa2cwi = chem_index_table( PARAM_asoa2cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa2cwi ) = .TRUE. chem_dname_table( idomain, P_asoa2cwi ) = 'asoa2cwi' chem_desc_table( idomain, P_asoa2cwi ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2cwi )%stream(2) = 2097216 ! 00200040 F_asoa2cwi = .TRUE. IF ( chem_index_table( PARAM_asoa3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa3cwj , idomain ) = P_asoa3cwj ELSE P_asoa3cwj = chem_index_table( PARAM_asoa3cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa3cwj ) = .TRUE. chem_dname_table( idomain, P_asoa3cwj ) = 'asoa3cwj' chem_desc_table( idomain, P_asoa3cwj ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3cwj )%stream(2) = 2097216 ! 00200040 F_asoa3cwj = .TRUE. IF ( chem_index_table( PARAM_asoa2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa2cwi , idomain ) = P_asoa2cwi ELSE P_asoa2cwi = chem_index_table( PARAM_asoa2cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa2cwi ) = .TRUE. chem_dname_table( idomain, P_asoa2cwi ) = 'asoa2cwi' chem_desc_table( idomain, P_asoa2cwi ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2cwi )%stream(2) = 2097216 ! 00200040 F_asoa2cwi = .TRUE. IF ( chem_index_table( PARAM_asoa3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa3cwj , idomain ) = P_asoa3cwj ELSE P_asoa3cwj = chem_index_table( PARAM_asoa3cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa3cwj ) = .TRUE. chem_dname_table( idomain, P_asoa3cwj ) = 'asoa3cwj' chem_desc_table( idomain, P_asoa3cwj ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3cwj )%stream(2) = 2097216 ! 00200040 F_asoa3cwj = .TRUE. IF ( chem_index_table( PARAM_asoa3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa3cwi , idomain ) = P_asoa3cwi ELSE P_asoa3cwi = chem_index_table( PARAM_asoa3cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa3cwi ) = .TRUE. chem_dname_table( idomain, P_asoa3cwi ) = 'asoa3cwi' chem_desc_table( idomain, P_asoa3cwi ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3cwi )%stream(2) = 2097216 ! 00200040 F_asoa3cwi = .TRUE. IF ( chem_index_table( PARAM_asoa4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa4cwj , idomain ) = P_asoa4cwj ELSE P_asoa4cwj = chem_index_table( PARAM_asoa4cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa4cwj ) = .TRUE. chem_dname_table( idomain, P_asoa4cwj ) = 'asoa4cwj' chem_desc_table( idomain, P_asoa4cwj ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4cwj )%stream(2) = 2097216 ! 00200040 F_asoa4cwj = .TRUE. IF ( chem_index_table( PARAM_asoa4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa4cwi , idomain ) = P_asoa4cwi ELSE P_asoa4cwi = chem_index_table( PARAM_asoa4cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa4cwi ) = .TRUE. chem_dname_table( idomain, P_asoa4cwi ) = 'asoa4cwi' chem_desc_table( idomain, P_asoa4cwi ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4cwi )%stream(2) = 2097216 ! 00200040 F_asoa4cwi = .TRUE. IF ( chem_index_table( PARAM_bsoa1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1cwj = chem_num_table(idomain) chem_index_table( PARAM_bsoa1cwj , idomain ) = P_bsoa1cwj ELSE P_bsoa1cwj = chem_index_table( PARAM_bsoa1cwj , idomain ) END IF chem_boundary_table( idomain, P_bsoa1cwj ) = .TRUE. chem_dname_table( idomain, P_bsoa1cwj ) = 'bsoa1cwj' chem_desc_table( idomain, P_bsoa1cwj ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_bsoa1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1cwj )%stream(2) = 2097216 ! 00200040 F_bsoa1cwj = .TRUE. IF ( chem_index_table( PARAM_bsoa1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1cwi = chem_num_table(idomain) chem_index_table( PARAM_bsoa1cwi , idomain ) = P_bsoa1cwi ELSE P_bsoa1cwi = chem_index_table( PARAM_bsoa1cwi , idomain ) END IF chem_boundary_table( idomain, P_bsoa1cwi ) = .TRUE. chem_dname_table( idomain, P_bsoa1cwi ) = 'bsoa1cwi' chem_desc_table( idomain, P_bsoa1cwi ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_bsoa1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1cwi )%stream(2) = 2097216 ! 00200040 F_bsoa1cwi = .TRUE. IF ( chem_index_table( PARAM_bsoa2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2cwj = chem_num_table(idomain) chem_index_table( PARAM_bsoa2cwj , idomain ) = P_bsoa2cwj ELSE P_bsoa2cwj = chem_index_table( PARAM_bsoa2cwj , idomain ) END IF chem_boundary_table( idomain, P_bsoa2cwj ) = .TRUE. chem_dname_table( idomain, P_bsoa2cwj ) = 'bsoa2cwj' chem_desc_table( idomain, P_bsoa2cwj ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_bsoa2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2cwj )%stream(2) = 2097216 ! 00200040 F_bsoa2cwj = .TRUE. IF ( chem_index_table( PARAM_bsoa2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2cwi = chem_num_table(idomain) chem_index_table( PARAM_bsoa2cwi , idomain ) = P_bsoa2cwi ELSE P_bsoa2cwi = chem_index_table( PARAM_bsoa2cwi , idomain ) END IF chem_boundary_table( idomain, P_bsoa2cwi ) = .TRUE. chem_dname_table( idomain, P_bsoa2cwi ) = 'bsoa2cwi' chem_desc_table( idomain, P_bsoa2cwi ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_bsoa2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2cwi )%stream(2) = 2097216 ! 00200040 F_bsoa2cwi = .TRUE. IF ( chem_index_table( PARAM_bsoa3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3cwj = chem_num_table(idomain) chem_index_table( PARAM_bsoa3cwj , idomain ) = P_bsoa3cwj ELSE P_bsoa3cwj = chem_index_table( PARAM_bsoa3cwj , idomain ) END IF chem_boundary_table( idomain, P_bsoa3cwj ) = .TRUE. chem_dname_table( idomain, P_bsoa3cwj ) = 'bsoa3cwj' chem_desc_table( idomain, P_bsoa3cwj ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_bsoa3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3cwj )%stream(2) = 2097216 ! 00200040 F_bsoa3cwj = .TRUE. IF ( chem_index_table( PARAM_bsoa3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3cwi = chem_num_table(idomain) chem_index_table( PARAM_bsoa3cwi , idomain ) = P_bsoa3cwi ELSE P_bsoa3cwi = chem_index_table( PARAM_bsoa3cwi , idomain ) END IF chem_boundary_table( idomain, P_bsoa3cwi ) = .TRUE. chem_dname_table( idomain, P_bsoa3cwi ) = 'bsoa3cwi' chem_desc_table( idomain, P_bsoa3cwi ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_bsoa3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3cwi )%stream(2) = 2097216 ! 00200040 F_bsoa3cwi = .TRUE. IF ( chem_index_table( PARAM_bsoa4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4cwj = chem_num_table(idomain) chem_index_table( PARAM_bsoa4cwj , idomain ) = P_bsoa4cwj ELSE P_bsoa4cwj = chem_index_table( PARAM_bsoa4cwj , idomain ) END IF chem_boundary_table( idomain, P_bsoa4cwj ) = .TRUE. chem_dname_table( idomain, P_bsoa4cwj ) = 'bsoa4cwj' chem_desc_table( idomain, P_bsoa4cwj ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_bsoa4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4cwj )%stream(2) = 2097216 ! 00200040 F_bsoa4cwj = .TRUE. IF ( chem_index_table( PARAM_bsoa4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4cwi = chem_num_table(idomain) chem_index_table( PARAM_bsoa4cwi , idomain ) = P_bsoa4cwi ELSE P_bsoa4cwi = chem_index_table( PARAM_bsoa4cwi , idomain ) END IF chem_boundary_table( idomain, P_bsoa4cwi ) = .TRUE. chem_dname_table( idomain, P_bsoa4cwi ) = 'bsoa4cwi' chem_desc_table( idomain, P_bsoa4cwi ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_bsoa4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4cwi )%stream(2) = 2097216 ! 00200040 F_bsoa4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 ! 00200040 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 ! 00200040 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 ! 00200040 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 ! 00200040 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 ! 00200040 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 ! 00200040 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 ! 00200040 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 ! 00200040 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 ! 00200040 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 ! 00200040 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 ! 00200040 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 ! 00200040 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==110)THEN IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_pna , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pna = chem_num_table(idomain) chem_index_table( PARAM_pna , idomain ) = P_pna ELSE P_pna = chem_index_table( PARAM_pna , idomain ) END IF chem_boundary_table( idomain, P_pna ) = .TRUE. chem_dname_table( idomain, P_pna ) = 'pna' chem_desc_table( idomain, P_pna ) = 'PNA mixing ratio' chem_units_table( idomain, P_pna ) = 'ppmv' chem_streams_table( idomain, P_pna )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pna )%stream(2) = 2097216 ! 00200040 F_pna = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_o1d_cb4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o1d_cb4 = chem_num_table(idomain) chem_index_table( PARAM_o1d_cb4 , idomain ) = P_o1d_cb4 ELSE P_o1d_cb4 = chem_index_table( PARAM_o1d_cb4 , idomain ) END IF chem_boundary_table( idomain, P_o1d_cb4 ) = .TRUE. chem_dname_table( idomain, P_o1d_cb4 ) = 'o1d_cb4' chem_desc_table( idomain, P_o1d_cb4 ) = 'o1d_cb4 mixing ratio' chem_units_table( idomain, P_o1d_cb4 ) = 'ppmv' chem_streams_table( idomain, P_o1d_cb4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o1d_cb4 )%stream(2) = 2097216 ! 00200040 F_o1d_cb4 = .TRUE. IF ( chem_index_table( PARAM_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o = chem_num_table(idomain) chem_index_table( PARAM_o , idomain ) = P_o ELSE P_o = chem_index_table( PARAM_o , idomain ) END IF chem_boundary_table( idomain, P_o ) = .TRUE. chem_dname_table( idomain, P_o ) = 'o' chem_desc_table( idomain, P_o ) = 'o mixing ratio' chem_units_table( idomain, P_o ) = 'ppmv' chem_streams_table( idomain, P_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o )%stream(2) = 2097216 ! 00200040 F_o = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ald2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald2 = chem_num_table(idomain) chem_index_table( PARAM_ald2 , idomain ) = P_ald2 ELSE P_ald2 = chem_index_table( PARAM_ald2 , idomain ) END IF chem_boundary_table( idomain, P_ald2 ) = .TRUE. chem_dname_table( idomain, P_ald2 ) = 'ald2' chem_desc_table( idomain, P_ald2 ) = 'ALD2 mixing ratio' chem_units_table( idomain, P_ald2 ) = 'ppmv' chem_streams_table( idomain, P_ald2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald2 )%stream(2) = 2097216 ! 00200040 F_ald2 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_ror , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ror = chem_num_table(idomain) chem_index_table( PARAM_ror , idomain ) = P_ror ELSE P_ror = chem_index_table( PARAM_ror , idomain ) END IF chem_boundary_table( idomain, P_ror ) = .TRUE. chem_dname_table( idomain, P_ror ) = 'ror' chem_desc_table( idomain, P_ror ) = 'ROR mixing ratio' chem_units_table( idomain, P_ror ) = 'ppmv' chem_streams_table( idomain, P_ror )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ror )%stream(2) = 2097216 ! 00200040 F_ror = .TRUE. IF ( chem_index_table( PARAM_ole , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole = chem_num_table(idomain) chem_index_table( PARAM_ole , idomain ) = P_ole ELSE P_ole = chem_index_table( PARAM_ole , idomain ) END IF chem_boundary_table( idomain, P_ole ) = .TRUE. chem_dname_table( idomain, P_ole ) = 'ole' chem_desc_table( idomain, P_ole ) = 'OLE mixing ratio' chem_units_table( idomain, P_ole ) = 'ppmv' chem_streams_table( idomain, P_ole )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole )%stream(2) = 2097216 ! 00200040 F_ole = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 ! 00200040 F_cres = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xo2n , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2n = chem_num_table(idomain) chem_index_table( PARAM_xo2n , idomain ) = P_xo2n ELSE P_xo2n = chem_index_table( PARAM_xo2n , idomain ) END IF chem_boundary_table( idomain, P_xo2n ) = .TRUE. chem_dname_table( idomain, P_xo2n ) = 'xo2n' chem_desc_table( idomain, P_xo2n ) = 'XO2N mixing ratio' chem_units_table( idomain, P_xo2n ) = 'ppmv' chem_streams_table( idomain, P_xo2n )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2n )%stream(2) = 2097216 ! 00200040 F_xo2n = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==111)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_o1d_cb4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o1d_cb4 = chem_num_table(idomain) chem_index_table( PARAM_o1d_cb4 , idomain ) = P_o1d_cb4 ELSE P_o1d_cb4 = chem_index_table( PARAM_o1d_cb4 , idomain ) END IF chem_boundary_table( idomain, P_o1d_cb4 ) = .TRUE. chem_dname_table( idomain, P_o1d_cb4 ) = 'o1d_cb4' chem_desc_table( idomain, P_o1d_cb4 ) = 'o1d_cb4 mixing ratio' chem_units_table( idomain, P_o1d_cb4 ) = 'ppmv' chem_streams_table( idomain, P_o1d_cb4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o1d_cb4 )%stream(2) = 2097216 ! 00200040 F_o1d_cb4 = .TRUE. IF ( chem_index_table( PARAM_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o = chem_num_table(idomain) chem_index_table( PARAM_o , idomain ) = P_o ELSE P_o = chem_index_table( PARAM_o , idomain ) END IF chem_boundary_table( idomain, P_o ) = .TRUE. chem_dname_table( idomain, P_o ) = 'o' chem_desc_table( idomain, P_o ) = 'o mixing ratio' chem_units_table( idomain, P_o ) = 'ppmv' chem_streams_table( idomain, P_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o )%stream(2) = 2097216 ! 00200040 F_o = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ch3ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ooh = chem_num_table(idomain) chem_index_table( PARAM_ch3ooh , idomain ) = P_ch3ooh ELSE P_ch3ooh = chem_index_table( PARAM_ch3ooh , idomain ) END IF chem_boundary_table( idomain, P_ch3ooh ) = .TRUE. chem_dname_table( idomain, P_ch3ooh ) = 'ch3ooh' chem_desc_table( idomain, P_ch3ooh ) = 'CH3OOH mixing ratio' chem_units_table( idomain, P_ch3ooh ) = 'ppmv' chem_streams_table( idomain, P_ch3ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3ooh )%stream(2) = 2097216 ! 00200040 F_ch3ooh = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2 = chem_num_table(idomain) chem_index_table( PARAM_h2 , idomain ) = P_h2 ELSE P_h2 = chem_index_table( PARAM_h2 , idomain ) END IF chem_boundary_table( idomain, P_h2 ) = .TRUE. chem_dname_table( idomain, P_h2 ) = 'h2' chem_desc_table( idomain, P_h2 ) = 'H2 mixing ratio' chem_units_table( idomain, P_h2 ) = 'ppmv' chem_streams_table( idomain, P_h2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2 )%stream(2) = 2097216 ! 00200040 F_h2 = .TRUE. IF ( chem_index_table( PARAM_eo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eo2 = chem_num_table(idomain) chem_index_table( PARAM_eo2 , idomain ) = P_eo2 ELSE P_eo2 = chem_index_table( PARAM_eo2 , idomain ) END IF chem_boundary_table( idomain, P_eo2 ) = .TRUE. chem_dname_table( idomain, P_eo2 ) = 'eo2' chem_desc_table( idomain, P_eo2 ) = 'EO2 mixing ratio' chem_units_table( idomain, P_eo2 ) = 'ppmv' chem_streams_table( idomain, P_eo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eo2 )%stream(2) = 2097216 ! 00200040 F_eo2 = .TRUE. IF ( chem_index_table( PARAM_ch3cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cooh = chem_num_table(idomain) chem_index_table( PARAM_ch3cooh , idomain ) = P_ch3cooh ELSE P_ch3cooh = chem_index_table( PARAM_ch3cooh , idomain ) END IF chem_boundary_table( idomain, P_ch3cooh ) = .TRUE. chem_dname_table( idomain, P_ch3cooh ) = 'ch3cooh' chem_desc_table( idomain, P_ch3cooh ) = '' chem_units_table( idomain, P_ch3cooh ) = '' chem_streams_table( idomain, P_ch3cooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3cooh )%stream(2) = 2097216 ! 00200040 F_ch3cooh = .TRUE. IF ( chem_index_table( PARAM_c2h4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h4 = chem_num_table(idomain) chem_index_table( PARAM_c2h4 , idomain ) = P_c2h4 ELSE P_c2h4 = chem_index_table( PARAM_c2h4 , idomain ) END IF chem_boundary_table( idomain, P_c2h4 ) = .TRUE. chem_dname_table( idomain, P_c2h4 ) = 'c2h4' chem_desc_table( idomain, P_c2h4 ) = '' chem_units_table( idomain, P_c2h4 ) = '' chem_streams_table( idomain, P_c2h4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h4 )%stream(2) = 2097216 ! 00200040 F_c2h4 = .TRUE. IF ( chem_index_table( PARAM_n2o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o = chem_num_table(idomain) chem_index_table( PARAM_n2o , idomain ) = P_n2o ELSE P_n2o = chem_index_table( PARAM_n2o , idomain ) END IF chem_boundary_table( idomain, P_n2o ) = .TRUE. chem_dname_table( idomain, P_n2o ) = 'n2o' chem_desc_table( idomain, P_n2o ) = 'N2O mixing ratio' chem_units_table( idomain, P_n2o ) = 'ppmv' chem_streams_table( idomain, P_n2o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o )%stream(2) = 2097216 ! 00200040 F_n2o = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 ! 00200040 F_acet = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_c3h6ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6ooh = chem_num_table(idomain) chem_index_table( PARAM_c3h6ooh , idomain ) = P_c3h6ooh ELSE P_c3h6ooh = chem_index_table( PARAM_c3h6ooh , idomain ) END IF chem_boundary_table( idomain, P_c3h6ooh ) = .TRUE. chem_dname_table( idomain, P_c3h6ooh ) = 'c3h6ooh' chem_desc_table( idomain, P_c3h6ooh ) = '' chem_units_table( idomain, P_c3h6ooh ) = '' chem_streams_table( idomain, P_c3h6ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6ooh )%stream(2) = 2097216 ! 00200040 F_c3h6ooh = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 ! 00200040 F_mpan = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 ! 00200040 F_macr = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 ! 00200040 F_mvk = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 ! 00200040 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_etooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etooh = chem_num_table(idomain) chem_index_table( PARAM_etooh , idomain ) = P_etooh ELSE P_etooh = chem_index_table( PARAM_etooh , idomain ) END IF chem_boundary_table( idomain, P_etooh ) = .TRUE. chem_dname_table( idomain, P_etooh ) = 'etooh' chem_desc_table( idomain, P_etooh ) = '' chem_units_table( idomain, P_etooh ) = '' chem_streams_table( idomain, P_etooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_etooh )%stream(2) = 2097216 ! 00200040 F_etooh = .TRUE. IF ( chem_index_table( PARAM_prooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prooh = chem_num_table(idomain) chem_index_table( PARAM_prooh , idomain ) = P_prooh ELSE P_prooh = chem_index_table( PARAM_prooh , idomain ) END IF chem_boundary_table( idomain, P_prooh ) = .TRUE. chem_dname_table( idomain, P_prooh ) = 'prooh' chem_desc_table( idomain, P_prooh ) = '' chem_units_table( idomain, P_prooh ) = '' chem_streams_table( idomain, P_prooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_prooh )%stream(2) = 2097216 ! 00200040 F_prooh = .TRUE. IF ( chem_index_table( PARAM_acetp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetp = chem_num_table(idomain) chem_index_table( PARAM_acetp , idomain ) = P_acetp ELSE P_acetp = chem_index_table( PARAM_acetp , idomain ) END IF chem_boundary_table( idomain, P_acetp ) = .TRUE. chem_dname_table( idomain, P_acetp ) = 'acetp' chem_desc_table( idomain, P_acetp ) = '' chem_units_table( idomain, P_acetp ) = '' chem_streams_table( idomain, P_acetp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acetp )%stream(2) = 2097216 ! 00200040 F_acetp = .TRUE. IF ( chem_index_table( PARAM_xooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xooh = chem_num_table(idomain) chem_index_table( PARAM_xooh , idomain ) = P_xooh ELSE P_xooh = chem_index_table( PARAM_xooh , idomain ) END IF chem_boundary_table( idomain, P_xooh ) = .TRUE. chem_dname_table( idomain, P_xooh ) = 'xooh' chem_desc_table( idomain, P_xooh ) = 'XOOH mixing ratio' chem_units_table( idomain, P_xooh ) = 'ppmv' chem_streams_table( idomain, P_xooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xooh )%stream(2) = 2097216 ! 00200040 F_xooh = .TRUE. IF ( chem_index_table( PARAM_onitr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onitr = chem_num_table(idomain) chem_index_table( PARAM_onitr , idomain ) = P_onitr ELSE P_onitr = chem_index_table( PARAM_onitr , idomain ) END IF chem_boundary_table( idomain, P_onitr ) = .TRUE. chem_dname_table( idomain, P_onitr ) = 'onitr' chem_desc_table( idomain, P_onitr ) = 'ONITR mixing ratio' chem_units_table( idomain, P_onitr ) = 'ppmv' chem_streams_table( idomain, P_onitr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onitr )%stream(2) = 2097216 ! 00200040 F_onitr = .TRUE. IF ( chem_index_table( PARAM_isooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isooh = chem_num_table(idomain) chem_index_table( PARAM_isooh , idomain ) = P_isooh ELSE P_isooh = chem_index_table( PARAM_isooh , idomain ) END IF chem_boundary_table( idomain, P_isooh ) = .TRUE. chem_dname_table( idomain, P_isooh ) = 'isooh' chem_desc_table( idomain, P_isooh ) = '' chem_units_table( idomain, P_isooh ) = '' chem_streams_table( idomain, P_isooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isooh )%stream(2) = 2097216 ! 00200040 F_isooh = .TRUE. IF ( chem_index_table( PARAM_acetol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetol = chem_num_table(idomain) chem_index_table( PARAM_acetol , idomain ) = P_acetol ELSE P_acetol = chem_index_table( PARAM_acetol , idomain ) END IF chem_boundary_table( idomain, P_acetol ) = .TRUE. chem_dname_table( idomain, P_acetol ) = 'acetol' chem_desc_table( idomain, P_acetol ) = '' chem_units_table( idomain, P_acetol ) = '' chem_streams_table( idomain, P_acetol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acetol )%stream(2) = 2097216 ! 00200040 F_acetol = .TRUE. IF ( chem_index_table( PARAM_glyald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glyald = chem_num_table(idomain) chem_index_table( PARAM_glyald , idomain ) = P_glyald ELSE P_glyald = chem_index_table( PARAM_glyald , idomain ) END IF chem_boundary_table( idomain, P_glyald ) = .TRUE. chem_dname_table( idomain, P_glyald ) = 'glyald' chem_desc_table( idomain, P_glyald ) = 'GLYALD mixing ratio' chem_units_table( idomain, P_glyald ) = 'ppmv' chem_streams_table( idomain, P_glyald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glyald )%stream(2) = 2097216 ! 00200040 F_glyald = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 ! 00200040 F_mek = .TRUE. IF ( chem_index_table( PARAM_eto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eto2 = chem_num_table(idomain) chem_index_table( PARAM_eto2 , idomain ) = P_eto2 ELSE P_eto2 = chem_index_table( PARAM_eto2 , idomain ) END IF chem_boundary_table( idomain, P_eto2 ) = .TRUE. chem_dname_table( idomain, P_eto2 ) = 'eto2' chem_desc_table( idomain, P_eto2 ) = '' chem_units_table( idomain, P_eto2 ) = '' chem_streams_table( idomain, P_eto2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eto2 )%stream(2) = 2097216 ! 00200040 F_eto2 = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_alkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alkooh = chem_num_table(idomain) chem_index_table( PARAM_alkooh , idomain ) = P_alkooh ELSE P_alkooh = chem_index_table( PARAM_alkooh , idomain ) END IF chem_boundary_table( idomain, P_alkooh ) = .TRUE. chem_dname_table( idomain, P_alkooh ) = 'alkooh' chem_desc_table( idomain, P_alkooh ) = 'ALKOOH mixing ratio' chem_units_table( idomain, P_alkooh ) = 'ppmv' chem_streams_table( idomain, P_alkooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alkooh )%stream(2) = 2097216 ! 00200040 F_alkooh = .TRUE. IF ( chem_index_table( PARAM_mekooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mekooh = chem_num_table(idomain) chem_index_table( PARAM_mekooh , idomain ) = P_mekooh ELSE P_mekooh = chem_index_table( PARAM_mekooh , idomain ) END IF chem_boundary_table( idomain, P_mekooh ) = .TRUE. chem_dname_table( idomain, P_mekooh ) = 'mekooh' chem_desc_table( idomain, P_mekooh ) = '' chem_units_table( idomain, P_mekooh ) = '' chem_streams_table( idomain, P_mekooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mekooh )%stream(2) = 2097216 ! 00200040 F_mekooh = .TRUE. IF ( chem_index_table( PARAM_tolooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tolooh = chem_num_table(idomain) chem_index_table( PARAM_tolooh , idomain ) = P_tolooh ELSE P_tolooh = chem_index_table( PARAM_tolooh , idomain ) END IF chem_boundary_table( idomain, P_tolooh ) = .TRUE. chem_dname_table( idomain, P_tolooh ) = 'tolooh' chem_desc_table( idomain, P_tolooh ) = 'TOLOOH mixing ratio' chem_units_table( idomain, P_tolooh ) = 'ppmv' chem_streams_table( idomain, P_tolooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tolooh )%stream(2) = 2097216 ! 00200040 F_tolooh = .TRUE. IF ( chem_index_table( PARAM_terpooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpooh = chem_num_table(idomain) chem_index_table( PARAM_terpooh , idomain ) = P_terpooh ELSE P_terpooh = chem_index_table( PARAM_terpooh , idomain ) END IF chem_boundary_table( idomain, P_terpooh ) = .TRUE. chem_dname_table( idomain, P_terpooh ) = 'terpooh' chem_desc_table( idomain, P_terpooh ) = 'TERPOOH mixing ratio' chem_units_table( idomain, P_terpooh ) = 'ppmv' chem_streams_table( idomain, P_terpooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terpooh )%stream(2) = 2097216 ! 00200040 F_terpooh = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_mco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mco3 = chem_num_table(idomain) chem_index_table( PARAM_mco3 , idomain ) = P_mco3 ELSE P_mco3 = chem_index_table( PARAM_mco3 , idomain ) END IF chem_boundary_table( idomain, P_mco3 ) = .TRUE. chem_dname_table( idomain, P_mco3 ) = 'mco3' chem_desc_table( idomain, P_mco3 ) = 'MCO3 mixing ratio' chem_units_table( idomain, P_mco3 ) = 'ppmv' chem_streams_table( idomain, P_mco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mco3 )%stream(2) = 2097216 ! 00200040 F_mco3 = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_eo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eo = chem_num_table(idomain) chem_index_table( PARAM_eo , idomain ) = P_eo ELSE P_eo = chem_index_table( PARAM_eo , idomain ) END IF chem_boundary_table( idomain, P_eo ) = .TRUE. chem_dname_table( idomain, P_eo ) = 'eo' chem_desc_table( idomain, P_eo ) = 'EO mixing ratio' chem_units_table( idomain, P_eo ) = 'ppmv' chem_streams_table( idomain, P_eo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eo )%stream(2) = 2097216 ! 00200040 F_eo = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 ! 00200040 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 ! 00200040 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_pro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pro2 = chem_num_table(idomain) chem_index_table( PARAM_pro2 , idomain ) = P_pro2 ELSE P_pro2 = chem_index_table( PARAM_pro2 , idomain ) END IF chem_boundary_table( idomain, P_pro2 ) = .TRUE. chem_dname_table( idomain, P_pro2 ) = 'pro2' chem_desc_table( idomain, P_pro2 ) = '' chem_units_table( idomain, P_pro2 ) = '' chem_streams_table( idomain, P_pro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pro2 )%stream(2) = 2097216 ! 00200040 F_pro2 = .TRUE. IF ( chem_index_table( PARAM_po2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_po2 = chem_num_table(idomain) chem_index_table( PARAM_po2 , idomain ) = P_po2 ELSE P_po2 = chem_index_table( PARAM_po2 , idomain ) END IF chem_boundary_table( idomain, P_po2 ) = .TRUE. chem_dname_table( idomain, P_po2 ) = 'po2' chem_desc_table( idomain, P_po2 ) = 'PO2 mixing ratio' chem_units_table( idomain, P_po2 ) = 'ppmv' chem_streams_table( idomain, P_po2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_po2 )%stream(2) = 2097216 ! 00200040 F_po2 = .TRUE. IF ( chem_index_table( PARAM_aceto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aceto2 = chem_num_table(idomain) chem_index_table( PARAM_aceto2 , idomain ) = P_aceto2 ELSE P_aceto2 = chem_index_table( PARAM_aceto2 , idomain ) END IF chem_boundary_table( idomain, P_aceto2 ) = .TRUE. chem_dname_table( idomain, P_aceto2 ) = 'aceto2' chem_desc_table( idomain, P_aceto2 ) = '' chem_units_table( idomain, P_aceto2 ) = '' chem_streams_table( idomain, P_aceto2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aceto2 )%stream(2) = 2097216 ! 00200040 F_aceto2 = .TRUE. IF ( chem_index_table( PARAM_bigene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigene = chem_num_table(idomain) chem_index_table( PARAM_bigene , idomain ) = P_bigene ELSE P_bigene = chem_index_table( PARAM_bigene , idomain ) END IF chem_boundary_table( idomain, P_bigene ) = .TRUE. chem_dname_table( idomain, P_bigene ) = 'bigene' chem_desc_table( idomain, P_bigene ) = 'BIGENE mixing ratio' chem_units_table( idomain, P_bigene ) = 'ppmv' chem_streams_table( idomain, P_bigene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bigene )%stream(2) = 2097216 ! 00200040 F_bigene = .TRUE. IF ( chem_index_table( PARAM_bigalk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigalk = chem_num_table(idomain) chem_index_table( PARAM_bigalk , idomain ) = P_bigalk ELSE P_bigalk = chem_index_table( PARAM_bigalk , idomain ) END IF chem_boundary_table( idomain, P_bigalk ) = .TRUE. chem_dname_table( idomain, P_bigalk ) = 'bigalk' chem_desc_table( idomain, P_bigalk ) = 'BIGALK mixing ratio' chem_units_table( idomain, P_bigalk ) = 'ppmv' chem_streams_table( idomain, P_bigalk )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bigalk )%stream(2) = 2097216 ! 00200040 F_bigalk = .TRUE. IF ( chem_index_table( PARAM_eneo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eneo2 = chem_num_table(idomain) chem_index_table( PARAM_eneo2 , idomain ) = P_eneo2 ELSE P_eneo2 = chem_index_table( PARAM_eneo2 , idomain ) END IF chem_boundary_table( idomain, P_eneo2 ) = .TRUE. chem_dname_table( idomain, P_eneo2 ) = 'eneo2' chem_desc_table( idomain, P_eneo2 ) = 'ENEO2 mixing ratio' chem_units_table( idomain, P_eneo2 ) = 'ppmv' chem_streams_table( idomain, P_eneo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eneo2 )%stream(2) = 2097216 ! 00200040 F_eneo2 = .TRUE. IF ( chem_index_table( PARAM_alko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alko2 = chem_num_table(idomain) chem_index_table( PARAM_alko2 , idomain ) = P_alko2 ELSE P_alko2 = chem_index_table( PARAM_alko2 , idomain ) END IF chem_boundary_table( idomain, P_alko2 ) = .TRUE. chem_dname_table( idomain, P_alko2 ) = 'alko2' chem_desc_table( idomain, P_alko2 ) = 'ALKO2 mixing ratio' chem_units_table( idomain, P_alko2 ) = 'ppmv' chem_streams_table( idomain, P_alko2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alko2 )%stream(2) = 2097216 ! 00200040 F_alko2 = .TRUE. IF ( chem_index_table( PARAM_isopr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopr = chem_num_table(idomain) chem_index_table( PARAM_isopr , idomain ) = P_isopr ELSE P_isopr = chem_index_table( PARAM_isopr , idomain ) END IF chem_boundary_table( idomain, P_isopr ) = .TRUE. chem_dname_table( idomain, P_isopr ) = 'isopr' chem_desc_table( idomain, P_isopr ) = 'isoprene' chem_units_table( idomain, P_isopr ) = '' chem_streams_table( idomain, P_isopr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopr )%stream(2) = 2097216 ! 00200040 F_isopr = .TRUE. IF ( chem_index_table( PARAM_iso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso2 = chem_num_table(idomain) chem_index_table( PARAM_iso2 , idomain ) = P_iso2 ELSE P_iso2 = chem_index_table( PARAM_iso2 , idomain ) END IF chem_boundary_table( idomain, P_iso2 ) = .TRUE. chem_dname_table( idomain, P_iso2 ) = 'iso2' chem_desc_table( idomain, P_iso2 ) = '' chem_units_table( idomain, P_iso2 ) = '' chem_streams_table( idomain, P_iso2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso2 )%stream(2) = 2097216 ! 00200040 F_iso2 = .TRUE. IF ( chem_index_table( PARAM_mvko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvko2 = chem_num_table(idomain) chem_index_table( PARAM_mvko2 , idomain ) = P_mvko2 ELSE P_mvko2 = chem_index_table( PARAM_mvko2 , idomain ) END IF chem_boundary_table( idomain, P_mvko2 ) = .TRUE. chem_dname_table( idomain, P_mvko2 ) = 'mvko2' chem_desc_table( idomain, P_mvko2 ) = '' chem_units_table( idomain, P_mvko2 ) = '' chem_streams_table( idomain, P_mvko2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvko2 )%stream(2) = 2097216 ! 00200040 F_mvko2 = .TRUE. IF ( chem_index_table( PARAM_mvkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvkooh = chem_num_table(idomain) chem_index_table( PARAM_mvkooh , idomain ) = P_mvkooh ELSE P_mvkooh = chem_index_table( PARAM_mvkooh , idomain ) END IF chem_boundary_table( idomain, P_mvkooh ) = .TRUE. chem_dname_table( idomain, P_mvkooh ) = 'mvkooh' chem_desc_table( idomain, P_mvkooh ) = '' chem_units_table( idomain, P_mvkooh ) = '' chem_streams_table( idomain, P_mvkooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvkooh )%stream(2) = 2097216 ! 00200040 F_mvkooh = .TRUE. IF ( chem_index_table( PARAM_hydrald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hydrald = chem_num_table(idomain) chem_index_table( PARAM_hydrald , idomain ) = P_hydrald ELSE P_hydrald = chem_index_table( PARAM_hydrald , idomain ) END IF chem_boundary_table( idomain, P_hydrald ) = .TRUE. chem_dname_table( idomain, P_hydrald ) = 'hydrald' chem_desc_table( idomain, P_hydrald ) = 'HYDRALD mixing ratio' chem_units_table( idomain, P_hydrald ) = 'ppmv' chem_streams_table( idomain, P_hydrald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hydrald )%stream(2) = 2097216 ! 00200040 F_hydrald = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_c10h16 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c10h16 = chem_num_table(idomain) chem_index_table( PARAM_c10h16 , idomain ) = P_c10h16 ELSE P_c10h16 = chem_index_table( PARAM_c10h16 , idomain ) END IF chem_boundary_table( idomain, P_c10h16 ) = .TRUE. chem_dname_table( idomain, P_c10h16 ) = 'c10h16' chem_desc_table( idomain, P_c10h16 ) = 'C10H16 mixing ratio' chem_units_table( idomain, P_c10h16 ) = 'ppmv' chem_streams_table( idomain, P_c10h16 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c10h16 )%stream(2) = 2097216 ! 00200040 F_c10h16 = .TRUE. IF ( chem_index_table( PARAM_terpo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpo2 = chem_num_table(idomain) chem_index_table( PARAM_terpo2 , idomain ) = P_terpo2 ELSE P_terpo2 = chem_index_table( PARAM_terpo2 , idomain ) END IF chem_boundary_table( idomain, P_terpo2 ) = .TRUE. chem_dname_table( idomain, P_terpo2 ) = 'terpo2' chem_desc_table( idomain, P_terpo2 ) = 'TERPO2 mixing ratio' chem_units_table( idomain, P_terpo2 ) = 'ppmv' chem_streams_table( idomain, P_terpo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terpo2 )%stream(2) = 2097216 ! 00200040 F_terpo2 = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 ! 00200040 F_cres = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_xoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xoh = chem_num_table(idomain) chem_index_table( PARAM_xoh , idomain ) = P_xoh ELSE P_xoh = chem_index_table( PARAM_xoh , idomain ) END IF chem_boundary_table( idomain, P_xoh ) = .TRUE. chem_dname_table( idomain, P_xoh ) = 'xoh' chem_desc_table( idomain, P_xoh ) = 'XOH mixing ratio' chem_units_table( idomain, P_xoh ) = 'ppmv' chem_streams_table( idomain, P_xoh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xoh )%stream(2) = 2097216 ! 00200040 F_xoh = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 ! 00200040 F_dms = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_meko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meko2 = chem_num_table(idomain) chem_index_table( PARAM_meko2 , idomain ) = P_meko2 ELSE P_meko2 = chem_index_table( PARAM_meko2 , idomain ) END IF chem_boundary_table( idomain, P_meko2 ) = .TRUE. chem_dname_table( idomain, P_meko2 ) = 'meko2' chem_desc_table( idomain, P_meko2 ) = '' chem_units_table( idomain, P_meko2 ) = '' chem_streams_table( idomain, P_meko2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_meko2 )%stream(2) = 2097216 ! 00200040 F_meko2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==112)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_o1d_cb4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o1d_cb4 = chem_num_table(idomain) chem_index_table( PARAM_o1d_cb4 , idomain ) = P_o1d_cb4 ELSE P_o1d_cb4 = chem_index_table( PARAM_o1d_cb4 , idomain ) END IF chem_boundary_table( idomain, P_o1d_cb4 ) = .TRUE. chem_dname_table( idomain, P_o1d_cb4 ) = 'o1d_cb4' chem_desc_table( idomain, P_o1d_cb4 ) = 'o1d_cb4 mixing ratio' chem_units_table( idomain, P_o1d_cb4 ) = 'ppmv' chem_streams_table( idomain, P_o1d_cb4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o1d_cb4 )%stream(2) = 2097216 ! 00200040 F_o1d_cb4 = .TRUE. IF ( chem_index_table( PARAM_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o = chem_num_table(idomain) chem_index_table( PARAM_o , idomain ) = P_o ELSE P_o = chem_index_table( PARAM_o , idomain ) END IF chem_boundary_table( idomain, P_o ) = .TRUE. chem_dname_table( idomain, P_o ) = 'o' chem_desc_table( idomain, P_o ) = 'o mixing ratio' chem_units_table( idomain, P_o ) = 'ppmv' chem_streams_table( idomain, P_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o )%stream(2) = 2097216 ! 00200040 F_o = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ch3ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ooh = chem_num_table(idomain) chem_index_table( PARAM_ch3ooh , idomain ) = P_ch3ooh ELSE P_ch3ooh = chem_index_table( PARAM_ch3ooh , idomain ) END IF chem_boundary_table( idomain, P_ch3ooh ) = .TRUE. chem_dname_table( idomain, P_ch3ooh ) = 'ch3ooh' chem_desc_table( idomain, P_ch3ooh ) = 'CH3OOH mixing ratio' chem_units_table( idomain, P_ch3ooh ) = 'ppmv' chem_streams_table( idomain, P_ch3ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3ooh )%stream(2) = 2097216 ! 00200040 F_ch3ooh = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2 = chem_num_table(idomain) chem_index_table( PARAM_h2 , idomain ) = P_h2 ELSE P_h2 = chem_index_table( PARAM_h2 , idomain ) END IF chem_boundary_table( idomain, P_h2 ) = .TRUE. chem_dname_table( idomain, P_h2 ) = 'h2' chem_desc_table( idomain, P_h2 ) = 'H2 mixing ratio' chem_units_table( idomain, P_h2 ) = 'ppmv' chem_streams_table( idomain, P_h2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2 )%stream(2) = 2097216 ! 00200040 F_h2 = .TRUE. IF ( chem_index_table( PARAM_eo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eo2 = chem_num_table(idomain) chem_index_table( PARAM_eo2 , idomain ) = P_eo2 ELSE P_eo2 = chem_index_table( PARAM_eo2 , idomain ) END IF chem_boundary_table( idomain, P_eo2 ) = .TRUE. chem_dname_table( idomain, P_eo2 ) = 'eo2' chem_desc_table( idomain, P_eo2 ) = 'EO2 mixing ratio' chem_units_table( idomain, P_eo2 ) = 'ppmv' chem_streams_table( idomain, P_eo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eo2 )%stream(2) = 2097216 ! 00200040 F_eo2 = .TRUE. IF ( chem_index_table( PARAM_ch3cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cooh = chem_num_table(idomain) chem_index_table( PARAM_ch3cooh , idomain ) = P_ch3cooh ELSE P_ch3cooh = chem_index_table( PARAM_ch3cooh , idomain ) END IF chem_boundary_table( idomain, P_ch3cooh ) = .TRUE. chem_dname_table( idomain, P_ch3cooh ) = 'ch3cooh' chem_desc_table( idomain, P_ch3cooh ) = '' chem_units_table( idomain, P_ch3cooh ) = '' chem_streams_table( idomain, P_ch3cooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3cooh )%stream(2) = 2097216 ! 00200040 F_ch3cooh = .TRUE. IF ( chem_index_table( PARAM_c2h4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h4 = chem_num_table(idomain) chem_index_table( PARAM_c2h4 , idomain ) = P_c2h4 ELSE P_c2h4 = chem_index_table( PARAM_c2h4 , idomain ) END IF chem_boundary_table( idomain, P_c2h4 ) = .TRUE. chem_dname_table( idomain, P_c2h4 ) = 'c2h4' chem_desc_table( idomain, P_c2h4 ) = '' chem_units_table( idomain, P_c2h4 ) = '' chem_streams_table( idomain, P_c2h4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h4 )%stream(2) = 2097216 ! 00200040 F_c2h4 = .TRUE. IF ( chem_index_table( PARAM_n2o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o = chem_num_table(idomain) chem_index_table( PARAM_n2o , idomain ) = P_n2o ELSE P_n2o = chem_index_table( PARAM_n2o , idomain ) END IF chem_boundary_table( idomain, P_n2o ) = .TRUE. chem_dname_table( idomain, P_n2o ) = 'n2o' chem_desc_table( idomain, P_n2o ) = 'N2O mixing ratio' chem_units_table( idomain, P_n2o ) = 'ppmv' chem_streams_table( idomain, P_n2o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o )%stream(2) = 2097216 ! 00200040 F_n2o = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 ! 00200040 F_acet = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_c3h6ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6ooh = chem_num_table(idomain) chem_index_table( PARAM_c3h6ooh , idomain ) = P_c3h6ooh ELSE P_c3h6ooh = chem_index_table( PARAM_c3h6ooh , idomain ) END IF chem_boundary_table( idomain, P_c3h6ooh ) = .TRUE. chem_dname_table( idomain, P_c3h6ooh ) = 'c3h6ooh' chem_desc_table( idomain, P_c3h6ooh ) = '' chem_units_table( idomain, P_c3h6ooh ) = '' chem_streams_table( idomain, P_c3h6ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6ooh )%stream(2) = 2097216 ! 00200040 F_c3h6ooh = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 ! 00200040 F_mpan = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 ! 00200040 F_macr = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 ! 00200040 F_mvk = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 ! 00200040 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_etooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etooh = chem_num_table(idomain) chem_index_table( PARAM_etooh , idomain ) = P_etooh ELSE P_etooh = chem_index_table( PARAM_etooh , idomain ) END IF chem_boundary_table( idomain, P_etooh ) = .TRUE. chem_dname_table( idomain, P_etooh ) = 'etooh' chem_desc_table( idomain, P_etooh ) = '' chem_units_table( idomain, P_etooh ) = '' chem_streams_table( idomain, P_etooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_etooh )%stream(2) = 2097216 ! 00200040 F_etooh = .TRUE. IF ( chem_index_table( PARAM_prooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prooh = chem_num_table(idomain) chem_index_table( PARAM_prooh , idomain ) = P_prooh ELSE P_prooh = chem_index_table( PARAM_prooh , idomain ) END IF chem_boundary_table( idomain, P_prooh ) = .TRUE. chem_dname_table( idomain, P_prooh ) = 'prooh' chem_desc_table( idomain, P_prooh ) = '' chem_units_table( idomain, P_prooh ) = '' chem_streams_table( idomain, P_prooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_prooh )%stream(2) = 2097216 ! 00200040 F_prooh = .TRUE. IF ( chem_index_table( PARAM_acetp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetp = chem_num_table(idomain) chem_index_table( PARAM_acetp , idomain ) = P_acetp ELSE P_acetp = chem_index_table( PARAM_acetp , idomain ) END IF chem_boundary_table( idomain, P_acetp ) = .TRUE. chem_dname_table( idomain, P_acetp ) = 'acetp' chem_desc_table( idomain, P_acetp ) = '' chem_units_table( idomain, P_acetp ) = '' chem_streams_table( idomain, P_acetp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acetp )%stream(2) = 2097216 ! 00200040 F_acetp = .TRUE. IF ( chem_index_table( PARAM_xooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xooh = chem_num_table(idomain) chem_index_table( PARAM_xooh , idomain ) = P_xooh ELSE P_xooh = chem_index_table( PARAM_xooh , idomain ) END IF chem_boundary_table( idomain, P_xooh ) = .TRUE. chem_dname_table( idomain, P_xooh ) = 'xooh' chem_desc_table( idomain, P_xooh ) = 'XOOH mixing ratio' chem_units_table( idomain, P_xooh ) = 'ppmv' chem_streams_table( idomain, P_xooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xooh )%stream(2) = 2097216 ! 00200040 F_xooh = .TRUE. IF ( chem_index_table( PARAM_onitr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onitr = chem_num_table(idomain) chem_index_table( PARAM_onitr , idomain ) = P_onitr ELSE P_onitr = chem_index_table( PARAM_onitr , idomain ) END IF chem_boundary_table( idomain, P_onitr ) = .TRUE. chem_dname_table( idomain, P_onitr ) = 'onitr' chem_desc_table( idomain, P_onitr ) = 'ONITR mixing ratio' chem_units_table( idomain, P_onitr ) = 'ppmv' chem_streams_table( idomain, P_onitr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onitr )%stream(2) = 2097216 ! 00200040 F_onitr = .TRUE. IF ( chem_index_table( PARAM_isooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isooh = chem_num_table(idomain) chem_index_table( PARAM_isooh , idomain ) = P_isooh ELSE P_isooh = chem_index_table( PARAM_isooh , idomain ) END IF chem_boundary_table( idomain, P_isooh ) = .TRUE. chem_dname_table( idomain, P_isooh ) = 'isooh' chem_desc_table( idomain, P_isooh ) = '' chem_units_table( idomain, P_isooh ) = '' chem_streams_table( idomain, P_isooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isooh )%stream(2) = 2097216 ! 00200040 F_isooh = .TRUE. IF ( chem_index_table( PARAM_acetol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetol = chem_num_table(idomain) chem_index_table( PARAM_acetol , idomain ) = P_acetol ELSE P_acetol = chem_index_table( PARAM_acetol , idomain ) END IF chem_boundary_table( idomain, P_acetol ) = .TRUE. chem_dname_table( idomain, P_acetol ) = 'acetol' chem_desc_table( idomain, P_acetol ) = '' chem_units_table( idomain, P_acetol ) = '' chem_streams_table( idomain, P_acetol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acetol )%stream(2) = 2097216 ! 00200040 F_acetol = .TRUE. IF ( chem_index_table( PARAM_glyald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glyald = chem_num_table(idomain) chem_index_table( PARAM_glyald , idomain ) = P_glyald ELSE P_glyald = chem_index_table( PARAM_glyald , idomain ) END IF chem_boundary_table( idomain, P_glyald ) = .TRUE. chem_dname_table( idomain, P_glyald ) = 'glyald' chem_desc_table( idomain, P_glyald ) = 'GLYALD mixing ratio' chem_units_table( idomain, P_glyald ) = 'ppmv' chem_streams_table( idomain, P_glyald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glyald )%stream(2) = 2097216 ! 00200040 F_glyald = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 ! 00200040 F_mek = .TRUE. IF ( chem_index_table( PARAM_eto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eto2 = chem_num_table(idomain) chem_index_table( PARAM_eto2 , idomain ) = P_eto2 ELSE P_eto2 = chem_index_table( PARAM_eto2 , idomain ) END IF chem_boundary_table( idomain, P_eto2 ) = .TRUE. chem_dname_table( idomain, P_eto2 ) = 'eto2' chem_desc_table( idomain, P_eto2 ) = '' chem_units_table( idomain, P_eto2 ) = '' chem_streams_table( idomain, P_eto2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eto2 )%stream(2) = 2097216 ! 00200040 F_eto2 = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_alkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alkooh = chem_num_table(idomain) chem_index_table( PARAM_alkooh , idomain ) = P_alkooh ELSE P_alkooh = chem_index_table( PARAM_alkooh , idomain ) END IF chem_boundary_table( idomain, P_alkooh ) = .TRUE. chem_dname_table( idomain, P_alkooh ) = 'alkooh' chem_desc_table( idomain, P_alkooh ) = 'ALKOOH mixing ratio' chem_units_table( idomain, P_alkooh ) = 'ppmv' chem_streams_table( idomain, P_alkooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alkooh )%stream(2) = 2097216 ! 00200040 F_alkooh = .TRUE. IF ( chem_index_table( PARAM_mekooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mekooh = chem_num_table(idomain) chem_index_table( PARAM_mekooh , idomain ) = P_mekooh ELSE P_mekooh = chem_index_table( PARAM_mekooh , idomain ) END IF chem_boundary_table( idomain, P_mekooh ) = .TRUE. chem_dname_table( idomain, P_mekooh ) = 'mekooh' chem_desc_table( idomain, P_mekooh ) = '' chem_units_table( idomain, P_mekooh ) = '' chem_streams_table( idomain, P_mekooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mekooh )%stream(2) = 2097216 ! 00200040 F_mekooh = .TRUE. IF ( chem_index_table( PARAM_tolooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tolooh = chem_num_table(idomain) chem_index_table( PARAM_tolooh , idomain ) = P_tolooh ELSE P_tolooh = chem_index_table( PARAM_tolooh , idomain ) END IF chem_boundary_table( idomain, P_tolooh ) = .TRUE. chem_dname_table( idomain, P_tolooh ) = 'tolooh' chem_desc_table( idomain, P_tolooh ) = 'TOLOOH mixing ratio' chem_units_table( idomain, P_tolooh ) = 'ppmv' chem_streams_table( idomain, P_tolooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tolooh )%stream(2) = 2097216 ! 00200040 F_tolooh = .TRUE. IF ( chem_index_table( PARAM_terpooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpooh = chem_num_table(idomain) chem_index_table( PARAM_terpooh , idomain ) = P_terpooh ELSE P_terpooh = chem_index_table( PARAM_terpooh , idomain ) END IF chem_boundary_table( idomain, P_terpooh ) = .TRUE. chem_dname_table( idomain, P_terpooh ) = 'terpooh' chem_desc_table( idomain, P_terpooh ) = 'TERPOOH mixing ratio' chem_units_table( idomain, P_terpooh ) = 'ppmv' chem_streams_table( idomain, P_terpooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terpooh )%stream(2) = 2097216 ! 00200040 F_terpooh = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_mco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mco3 = chem_num_table(idomain) chem_index_table( PARAM_mco3 , idomain ) = P_mco3 ELSE P_mco3 = chem_index_table( PARAM_mco3 , idomain ) END IF chem_boundary_table( idomain, P_mco3 ) = .TRUE. chem_dname_table( idomain, P_mco3 ) = 'mco3' chem_desc_table( idomain, P_mco3 ) = 'MCO3 mixing ratio' chem_units_table( idomain, P_mco3 ) = 'ppmv' chem_streams_table( idomain, P_mco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mco3 )%stream(2) = 2097216 ! 00200040 F_mco3 = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_eo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eo = chem_num_table(idomain) chem_index_table( PARAM_eo , idomain ) = P_eo ELSE P_eo = chem_index_table( PARAM_eo , idomain ) END IF chem_boundary_table( idomain, P_eo ) = .TRUE. chem_dname_table( idomain, P_eo ) = 'eo' chem_desc_table( idomain, P_eo ) = 'EO mixing ratio' chem_units_table( idomain, P_eo ) = 'ppmv' chem_streams_table( idomain, P_eo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eo )%stream(2) = 2097216 ! 00200040 F_eo = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 ! 00200040 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 ! 00200040 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_pro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pro2 = chem_num_table(idomain) chem_index_table( PARAM_pro2 , idomain ) = P_pro2 ELSE P_pro2 = chem_index_table( PARAM_pro2 , idomain ) END IF chem_boundary_table( idomain, P_pro2 ) = .TRUE. chem_dname_table( idomain, P_pro2 ) = 'pro2' chem_desc_table( idomain, P_pro2 ) = '' chem_units_table( idomain, P_pro2 ) = '' chem_streams_table( idomain, P_pro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pro2 )%stream(2) = 2097216 ! 00200040 F_pro2 = .TRUE. IF ( chem_index_table( PARAM_po2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_po2 = chem_num_table(idomain) chem_index_table( PARAM_po2 , idomain ) = P_po2 ELSE P_po2 = chem_index_table( PARAM_po2 , idomain ) END IF chem_boundary_table( idomain, P_po2 ) = .TRUE. chem_dname_table( idomain, P_po2 ) = 'po2' chem_desc_table( idomain, P_po2 ) = 'PO2 mixing ratio' chem_units_table( idomain, P_po2 ) = 'ppmv' chem_streams_table( idomain, P_po2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_po2 )%stream(2) = 2097216 ! 00200040 F_po2 = .TRUE. IF ( chem_index_table( PARAM_aceto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aceto2 = chem_num_table(idomain) chem_index_table( PARAM_aceto2 , idomain ) = P_aceto2 ELSE P_aceto2 = chem_index_table( PARAM_aceto2 , idomain ) END IF chem_boundary_table( idomain, P_aceto2 ) = .TRUE. chem_dname_table( idomain, P_aceto2 ) = 'aceto2' chem_desc_table( idomain, P_aceto2 ) = '' chem_units_table( idomain, P_aceto2 ) = '' chem_streams_table( idomain, P_aceto2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aceto2 )%stream(2) = 2097216 ! 00200040 F_aceto2 = .TRUE. IF ( chem_index_table( PARAM_bigene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigene = chem_num_table(idomain) chem_index_table( PARAM_bigene , idomain ) = P_bigene ELSE P_bigene = chem_index_table( PARAM_bigene , idomain ) END IF chem_boundary_table( idomain, P_bigene ) = .TRUE. chem_dname_table( idomain, P_bigene ) = 'bigene' chem_desc_table( idomain, P_bigene ) = 'BIGENE mixing ratio' chem_units_table( idomain, P_bigene ) = 'ppmv' chem_streams_table( idomain, P_bigene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bigene )%stream(2) = 2097216 ! 00200040 F_bigene = .TRUE. IF ( chem_index_table( PARAM_bigalk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigalk = chem_num_table(idomain) chem_index_table( PARAM_bigalk , idomain ) = P_bigalk ELSE P_bigalk = chem_index_table( PARAM_bigalk , idomain ) END IF chem_boundary_table( idomain, P_bigalk ) = .TRUE. chem_dname_table( idomain, P_bigalk ) = 'bigalk' chem_desc_table( idomain, P_bigalk ) = 'BIGALK mixing ratio' chem_units_table( idomain, P_bigalk ) = 'ppmv' chem_streams_table( idomain, P_bigalk )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bigalk )%stream(2) = 2097216 ! 00200040 F_bigalk = .TRUE. IF ( chem_index_table( PARAM_eneo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eneo2 = chem_num_table(idomain) chem_index_table( PARAM_eneo2 , idomain ) = P_eneo2 ELSE P_eneo2 = chem_index_table( PARAM_eneo2 , idomain ) END IF chem_boundary_table( idomain, P_eneo2 ) = .TRUE. chem_dname_table( idomain, P_eneo2 ) = 'eneo2' chem_desc_table( idomain, P_eneo2 ) = 'ENEO2 mixing ratio' chem_units_table( idomain, P_eneo2 ) = 'ppmv' chem_streams_table( idomain, P_eneo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eneo2 )%stream(2) = 2097216 ! 00200040 F_eneo2 = .TRUE. IF ( chem_index_table( PARAM_alko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alko2 = chem_num_table(idomain) chem_index_table( PARAM_alko2 , idomain ) = P_alko2 ELSE P_alko2 = chem_index_table( PARAM_alko2 , idomain ) END IF chem_boundary_table( idomain, P_alko2 ) = .TRUE. chem_dname_table( idomain, P_alko2 ) = 'alko2' chem_desc_table( idomain, P_alko2 ) = 'ALKO2 mixing ratio' chem_units_table( idomain, P_alko2 ) = 'ppmv' chem_streams_table( idomain, P_alko2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alko2 )%stream(2) = 2097216 ! 00200040 F_alko2 = .TRUE. IF ( chem_index_table( PARAM_isopr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopr = chem_num_table(idomain) chem_index_table( PARAM_isopr , idomain ) = P_isopr ELSE P_isopr = chem_index_table( PARAM_isopr , idomain ) END IF chem_boundary_table( idomain, P_isopr ) = .TRUE. chem_dname_table( idomain, P_isopr ) = 'isopr' chem_desc_table( idomain, P_isopr ) = 'isoprene' chem_units_table( idomain, P_isopr ) = '' chem_streams_table( idomain, P_isopr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopr )%stream(2) = 2097216 ! 00200040 F_isopr = .TRUE. IF ( chem_index_table( PARAM_iso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso2 = chem_num_table(idomain) chem_index_table( PARAM_iso2 , idomain ) = P_iso2 ELSE P_iso2 = chem_index_table( PARAM_iso2 , idomain ) END IF chem_boundary_table( idomain, P_iso2 ) = .TRUE. chem_dname_table( idomain, P_iso2 ) = 'iso2' chem_desc_table( idomain, P_iso2 ) = '' chem_units_table( idomain, P_iso2 ) = '' chem_streams_table( idomain, P_iso2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso2 )%stream(2) = 2097216 ! 00200040 F_iso2 = .TRUE. IF ( chem_index_table( PARAM_mvko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvko2 = chem_num_table(idomain) chem_index_table( PARAM_mvko2 , idomain ) = P_mvko2 ELSE P_mvko2 = chem_index_table( PARAM_mvko2 , idomain ) END IF chem_boundary_table( idomain, P_mvko2 ) = .TRUE. chem_dname_table( idomain, P_mvko2 ) = 'mvko2' chem_desc_table( idomain, P_mvko2 ) = '' chem_units_table( idomain, P_mvko2 ) = '' chem_streams_table( idomain, P_mvko2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvko2 )%stream(2) = 2097216 ! 00200040 F_mvko2 = .TRUE. IF ( chem_index_table( PARAM_mvkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvkooh = chem_num_table(idomain) chem_index_table( PARAM_mvkooh , idomain ) = P_mvkooh ELSE P_mvkooh = chem_index_table( PARAM_mvkooh , idomain ) END IF chem_boundary_table( idomain, P_mvkooh ) = .TRUE. chem_dname_table( idomain, P_mvkooh ) = 'mvkooh' chem_desc_table( idomain, P_mvkooh ) = '' chem_units_table( idomain, P_mvkooh ) = '' chem_streams_table( idomain, P_mvkooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvkooh )%stream(2) = 2097216 ! 00200040 F_mvkooh = .TRUE. IF ( chem_index_table( PARAM_hydrald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hydrald = chem_num_table(idomain) chem_index_table( PARAM_hydrald , idomain ) = P_hydrald ELSE P_hydrald = chem_index_table( PARAM_hydrald , idomain ) END IF chem_boundary_table( idomain, P_hydrald ) = .TRUE. chem_dname_table( idomain, P_hydrald ) = 'hydrald' chem_desc_table( idomain, P_hydrald ) = 'HYDRALD mixing ratio' chem_units_table( idomain, P_hydrald ) = 'ppmv' chem_streams_table( idomain, P_hydrald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hydrald )%stream(2) = 2097216 ! 00200040 F_hydrald = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_c10h16 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c10h16 = chem_num_table(idomain) chem_index_table( PARAM_c10h16 , idomain ) = P_c10h16 ELSE P_c10h16 = chem_index_table( PARAM_c10h16 , idomain ) END IF chem_boundary_table( idomain, P_c10h16 ) = .TRUE. chem_dname_table( idomain, P_c10h16 ) = 'c10h16' chem_desc_table( idomain, P_c10h16 ) = 'C10H16 mixing ratio' chem_units_table( idomain, P_c10h16 ) = 'ppmv' chem_streams_table( idomain, P_c10h16 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c10h16 )%stream(2) = 2097216 ! 00200040 F_c10h16 = .TRUE. IF ( chem_index_table( PARAM_terpo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpo2 = chem_num_table(idomain) chem_index_table( PARAM_terpo2 , idomain ) = P_terpo2 ELSE P_terpo2 = chem_index_table( PARAM_terpo2 , idomain ) END IF chem_boundary_table( idomain, P_terpo2 ) = .TRUE. chem_dname_table( idomain, P_terpo2 ) = 'terpo2' chem_desc_table( idomain, P_terpo2 ) = 'TERPO2 mixing ratio' chem_units_table( idomain, P_terpo2 ) = 'ppmv' chem_streams_table( idomain, P_terpo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terpo2 )%stream(2) = 2097216 ! 00200040 F_terpo2 = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 ! 00200040 F_cres = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_xoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xoh = chem_num_table(idomain) chem_index_table( PARAM_xoh , idomain ) = P_xoh ELSE P_xoh = chem_index_table( PARAM_xoh , idomain ) END IF chem_boundary_table( idomain, P_xoh ) = .TRUE. chem_dname_table( idomain, P_xoh ) = 'xoh' chem_desc_table( idomain, P_xoh ) = 'XOH mixing ratio' chem_units_table( idomain, P_xoh ) = 'ppmv' chem_streams_table( idomain, P_xoh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xoh )%stream(2) = 2097216 ! 00200040 F_xoh = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 ! 00200040 F_dms = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_meko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meko2 = chem_num_table(idomain) chem_index_table( PARAM_meko2 , idomain ) = P_meko2 ELSE P_meko2 = chem_index_table( PARAM_meko2 , idomain ) END IF chem_boundary_table( idomain, P_meko2 ) = .TRUE. chem_dname_table( idomain, P_meko2 ) = 'meko2' chem_desc_table( idomain, P_meko2 ) = '' chem_units_table( idomain, P_meko2 ) = '' chem_streams_table( idomain, P_meko2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_meko2 )%stream(2) = 2097216 ! 00200040 F_meko2 = .TRUE. IF ( chem_index_table( PARAM_p25 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25 = chem_num_table(idomain) chem_index_table( PARAM_p25 , idomain ) = P_p25 ELSE P_p25 = chem_index_table( PARAM_p25 , idomain ) END IF chem_boundary_table( idomain, P_p25 ) = .TRUE. chem_dname_table( idomain, P_p25 ) = 'P25' chem_desc_table( idomain, P_p25 ) = 'other gocart primary pm25' chem_units_table( idomain, P_p25 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25 )%stream(2) = 2097216 ! 00200040 F_p25 = .TRUE. IF ( chem_index_table( PARAM_bc1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc1 = chem_num_table(idomain) chem_index_table( PARAM_bc1 , idomain ) = P_bc1 ELSE P_bc1 = chem_index_table( PARAM_bc1 , idomain ) END IF chem_boundary_table( idomain, P_bc1 ) = .TRUE. chem_dname_table( idomain, P_bc1 ) = 'BC1' chem_desc_table( idomain, P_bc1 ) = 'Hydrophobic Black Carbon' chem_units_table( idomain, P_bc1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc1 )%stream(2) = 2097216 ! 00200040 F_bc1 = .TRUE. IF ( chem_index_table( PARAM_bc2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc2 = chem_num_table(idomain) chem_index_table( PARAM_bc2 , idomain ) = P_bc2 ELSE P_bc2 = chem_index_table( PARAM_bc2 , idomain ) END IF chem_boundary_table( idomain, P_bc2 ) = .TRUE. chem_dname_table( idomain, P_bc2 ) = 'BC2' chem_desc_table( idomain, P_bc2 ) = 'Hydrophilic Black Carbon' chem_units_table( idomain, P_bc2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc2 )%stream(2) = 2097216 ! 00200040 F_bc2 = .TRUE. IF ( chem_index_table( PARAM_oc1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc1 = chem_num_table(idomain) chem_index_table( PARAM_oc1 , idomain ) = P_oc1 ELSE P_oc1 = chem_index_table( PARAM_oc1 , idomain ) END IF chem_boundary_table( idomain, P_oc1 ) = .TRUE. chem_dname_table( idomain, P_oc1 ) = 'OC1' chem_desc_table( idomain, P_oc1 ) = 'Hydrophobic Black Carbon' chem_units_table( idomain, P_oc1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc1 )%stream(2) = 2097216 ! 00200040 F_oc1 = .TRUE. IF ( chem_index_table( PARAM_oc2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc2 = chem_num_table(idomain) chem_index_table( PARAM_oc2 , idomain ) = P_oc2 ELSE P_oc2 = chem_index_table( PARAM_oc2 , idomain ) END IF chem_boundary_table( idomain, P_oc2 ) = .TRUE. chem_dname_table( idomain, P_oc2 ) = 'OC2' chem_desc_table( idomain, P_oc2 ) = 'Hydrophilic Black Carbon' chem_units_table( idomain, P_oc2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc2 )%stream(2) = 2097216 ! 00200040 F_oc2 = .TRUE. IF ( chem_index_table( PARAM_dust_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_1 = chem_num_table(idomain) chem_index_table( PARAM_dust_1 , idomain ) = P_dust_1 ELSE P_dust_1 = chem_index_table( PARAM_dust_1 , idomain ) END IF chem_boundary_table( idomain, P_dust_1 ) = .TRUE. chem_dname_table( idomain, P_dust_1 ) = 'DUST_1' chem_desc_table( idomain, P_dust_1 ) = 'dust size bin 1: 0.5um effective radius' chem_units_table( idomain, P_dust_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_1 )%stream(2) = 2097216 ! 00200040 F_dust_1 = .TRUE. IF ( chem_index_table( PARAM_dust_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_2 = chem_num_table(idomain) chem_index_table( PARAM_dust_2 , idomain ) = P_dust_2 ELSE P_dust_2 = chem_index_table( PARAM_dust_2 , idomain ) END IF chem_boundary_table( idomain, P_dust_2 ) = .TRUE. chem_dname_table( idomain, P_dust_2 ) = 'DUST_2' chem_desc_table( idomain, P_dust_2 ) = 'dust size bin 2: 1.4um effective radius' chem_units_table( idomain, P_dust_2 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_2 )%stream(2) = 2097216 ! 00200040 F_dust_2 = .TRUE. IF ( chem_index_table( PARAM_dust_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_3 = chem_num_table(idomain) chem_index_table( PARAM_dust_3 , idomain ) = P_dust_3 ELSE P_dust_3 = chem_index_table( PARAM_dust_3 , idomain ) END IF chem_boundary_table( idomain, P_dust_3 ) = .TRUE. chem_dname_table( idomain, P_dust_3 ) = 'DUST_3' chem_desc_table( idomain, P_dust_3 ) = 'dust size bin 3: 2.4um effective radius' chem_units_table( idomain, P_dust_3 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_3 )%stream(2) = 2097216 ! 00200040 F_dust_3 = .TRUE. IF ( chem_index_table( PARAM_dust_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_4 = chem_num_table(idomain) chem_index_table( PARAM_dust_4 , idomain ) = P_dust_4 ELSE P_dust_4 = chem_index_table( PARAM_dust_4 , idomain ) END IF chem_boundary_table( idomain, P_dust_4 ) = .TRUE. chem_dname_table( idomain, P_dust_4 ) = 'DUST_4' chem_desc_table( idomain, P_dust_4 ) = 'dust size bin 4: 4.5um effective radius' chem_units_table( idomain, P_dust_4 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_4 )%stream(2) = 2097216 ! 00200040 F_dust_4 = .TRUE. IF ( chem_index_table( PARAM_dust_5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_5 = chem_num_table(idomain) chem_index_table( PARAM_dust_5 , idomain ) = P_dust_5 ELSE P_dust_5 = chem_index_table( PARAM_dust_5 , idomain ) END IF chem_boundary_table( idomain, P_dust_5 ) = .TRUE. chem_dname_table( idomain, P_dust_5 ) = 'DUST_5' chem_desc_table( idomain, P_dust_5 ) = 'dust size bin 5: 8.0um effective radius' chem_units_table( idomain, P_dust_5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_5 )%stream(2) = 2097216 ! 00200040 F_dust_5 = .TRUE. IF ( chem_index_table( PARAM_seas_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_1 = chem_num_table(idomain) chem_index_table( PARAM_seas_1 , idomain ) = P_seas_1 ELSE P_seas_1 = chem_index_table( PARAM_seas_1 , idomain ) END IF chem_boundary_table( idomain, P_seas_1 ) = .TRUE. chem_dname_table( idomain, P_seas_1 ) = 'SEAS_1' chem_desc_table( idomain, P_seas_1 ) = 'sea-salt size bin 1: 0.3um effective radius' chem_units_table( idomain, P_seas_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas_1 )%stream(2) = 2097216 ! 00200040 F_seas_1 = .TRUE. IF ( chem_index_table( PARAM_seas_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_2 = chem_num_table(idomain) chem_index_table( PARAM_seas_2 , idomain ) = P_seas_2 ELSE P_seas_2 = chem_index_table( PARAM_seas_2 , idomain ) END IF chem_boundary_table( idomain, P_seas_2 ) = .TRUE. chem_dname_table( idomain, P_seas_2 ) = 'SEAS_2' chem_desc_table( idomain, P_seas_2 ) = 'sea-salt size bin 2: 1.0um effective radius' chem_units_table( idomain, P_seas_2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas_2 )%stream(2) = 2097216 ! 00200040 F_seas_2 = .TRUE. IF ( chem_index_table( PARAM_seas_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_3 = chem_num_table(idomain) chem_index_table( PARAM_seas_3 , idomain ) = P_seas_3 ELSE P_seas_3 = chem_index_table( PARAM_seas_3 , idomain ) END IF chem_boundary_table( idomain, P_seas_3 ) = .TRUE. chem_dname_table( idomain, P_seas_3 ) = 'SEAS_3' chem_desc_table( idomain, P_seas_3 ) = 'sea-salt size bin 3: 3.2um effective radius' chem_units_table( idomain, P_seas_3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas_3 )%stream(2) = 2097216 ! 00200040 F_seas_3 = .TRUE. IF ( chem_index_table( PARAM_seas_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_4 = chem_num_table(idomain) chem_index_table( PARAM_seas_4 , idomain ) = P_seas_4 ELSE P_seas_4 = chem_index_table( PARAM_seas_4 , idomain ) END IF chem_boundary_table( idomain, P_seas_4 ) = .TRUE. chem_dname_table( idomain, P_seas_4 ) = 'SEAS_4' chem_desc_table( idomain, P_seas_4 ) = 'sea-salt size bin 4: 7.5um effective radius' chem_units_table( idomain, P_seas_4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas_4 )%stream(2) = 2097216 ! 00200040 F_seas_4 = .TRUE. IF ( chem_index_table( PARAM_p10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p10 = chem_num_table(idomain) chem_index_table( PARAM_p10 , idomain ) = P_p10 ELSE P_p10 = chem_index_table( PARAM_p10 , idomain ) END IF chem_boundary_table( idomain, P_p10 ) = .TRUE. chem_dname_table( idomain, P_p10 ) = 'P10' chem_desc_table( idomain, P_p10 ) = 'other gocart primary pm10' chem_units_table( idomain, P_p10 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p10 )%stream(2) = 2097216 ! 00200040 F_p10 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==120)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==131)THEN IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o = chem_num_table(idomain) chem_index_table( PARAM_o , idomain ) = P_o ELSE P_o = chem_index_table( PARAM_o , idomain ) END IF chem_boundary_table( idomain, P_o ) = .TRUE. chem_dname_table( idomain, P_o ) = 'o' chem_desc_table( idomain, P_o ) = 'o mixing ratio' chem_units_table( idomain, P_o ) = 'ppmv' chem_streams_table( idomain, P_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o )%stream(2) = 2097216 ! 00200040 F_o = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_o1d , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o1d = chem_num_table(idomain) chem_index_table( PARAM_o1d , idomain ) = P_o1d ELSE P_o1d = chem_index_table( PARAM_o1d , idomain ) END IF chem_boundary_table( idomain, P_o1d ) = .TRUE. chem_dname_table( idomain, P_o1d ) = 'o1d' chem_desc_table( idomain, P_o1d ) = 'O1D concentration' chem_units_table( idomain, P_o1d ) = 'ppmv' chem_streams_table( idomain, P_o1d )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o1d )%stream(2) = 2097216 ! 00200040 F_o1d = .TRUE. IF ( chem_index_table( PARAM_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oh = chem_num_table(idomain) chem_index_table( PARAM_oh , idomain ) = P_oh ELSE P_oh = chem_index_table( PARAM_oh , idomain ) END IF chem_boundary_table( idomain, P_oh ) = .TRUE. chem_dname_table( idomain, P_oh ) = 'oh' chem_desc_table( idomain, P_oh ) = 'OH concentration' chem_units_table( idomain, P_oh ) = 'ppmv' chem_streams_table( idomain, P_oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oh )%stream(2) = 2097216 ! 00200040 F_oh = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_pna , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pna = chem_num_table(idomain) chem_index_table( PARAM_pna , idomain ) = P_pna ELSE P_pna = chem_index_table( PARAM_pna , idomain ) END IF chem_boundary_table( idomain, P_pna ) = .TRUE. chem_dname_table( idomain, P_pna ) = 'pna' chem_desc_table( idomain, P_pna ) = 'PNA mixing ratio' chem_units_table( idomain, P_pna ) = 'ppmv' chem_streams_table( idomain, P_pna )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pna )%stream(2) = 2097216 ! 00200040 F_pna = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xo2n , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2n = chem_num_table(idomain) chem_index_table( PARAM_xo2n , idomain ) = P_xo2n ELSE P_xo2n = chem_index_table( PARAM_xo2n , idomain ) END IF chem_boundary_table( idomain, P_xo2n ) = .TRUE. chem_dname_table( idomain, P_xo2n ) = 'xo2n' chem_desc_table( idomain, P_xo2n ) = 'XO2N mixing ratio' chem_units_table( idomain, P_xo2n ) = 'ppmv' chem_streams_table( idomain, P_xo2n )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2n )%stream(2) = 2097216 ! 00200040 F_xo2n = .TRUE. IF ( chem_index_table( PARAM_ntr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ntr = chem_num_table(idomain) chem_index_table( PARAM_ntr , idomain ) = P_ntr ELSE P_ntr = chem_index_table( PARAM_ntr , idomain ) END IF chem_boundary_table( idomain, P_ntr ) = .TRUE. chem_dname_table( idomain, P_ntr ) = 'ntr' chem_desc_table( idomain, P_ntr ) = 'NTR concentration' chem_units_table( idomain, P_ntr ) = 'ppmv' chem_streams_table( idomain, P_ntr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ntr )%stream(2) = 2097216 ! 00200040 F_ntr = .TRUE. IF ( chem_index_table( PARAM_rooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rooh = chem_num_table(idomain) chem_index_table( PARAM_rooh , idomain ) = P_rooh ELSE P_rooh = chem_index_table( PARAM_rooh , idomain ) END IF chem_boundary_table( idomain, P_rooh ) = .TRUE. chem_dname_table( idomain, P_rooh ) = 'rooh' chem_desc_table( idomain, P_rooh ) = 'ROOH mixing ratio' chem_units_table( idomain, P_rooh ) = 'ppmv' chem_streams_table( idomain, P_rooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rooh )%stream(2) = 2097216 ! 00200040 F_rooh = .TRUE. IF ( chem_index_table( PARAM_form , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_form = chem_num_table(idomain) chem_index_table( PARAM_form , idomain ) = P_form ELSE P_form = chem_index_table( PARAM_form , idomain ) END IF chem_boundary_table( idomain, P_form ) = .TRUE. chem_dname_table( idomain, P_form ) = 'form' chem_desc_table( idomain, P_form ) = 'FORM concentration' chem_units_table( idomain, P_form ) = 'ppmv' chem_streams_table( idomain, P_form )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_form )%stream(2) = 2097216 ! 00200040 F_form = .TRUE. IF ( chem_index_table( PARAM_ald2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald2 = chem_num_table(idomain) chem_index_table( PARAM_ald2 , idomain ) = P_ald2 ELSE P_ald2 = chem_index_table( PARAM_ald2 , idomain ) END IF chem_boundary_table( idomain, P_ald2 ) = .TRUE. chem_dname_table( idomain, P_ald2 ) = 'ald2' chem_desc_table( idomain, P_ald2 ) = 'ALD2 mixing ratio' chem_units_table( idomain, P_ald2 ) = 'ppmv' chem_streams_table( idomain, P_ald2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald2 )%stream(2) = 2097216 ! 00200040 F_ald2 = .TRUE. IF ( chem_index_table( PARAM_aldx , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aldx = chem_num_table(idomain) chem_index_table( PARAM_aldx , idomain ) = P_aldx ELSE P_aldx = chem_index_table( PARAM_aldx , idomain ) END IF chem_boundary_table( idomain, P_aldx ) = .TRUE. chem_dname_table( idomain, P_aldx ) = 'aldx' chem_desc_table( idomain, P_aldx ) = 'ALDX concentration' chem_units_table( idomain, P_aldx ) = 'ppmv' chem_streams_table( idomain, P_aldx )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aldx )%stream(2) = 2097216 ! 00200040 F_aldx = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_meo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meo2 = chem_num_table(idomain) chem_index_table( PARAM_meo2 , idomain ) = P_meo2 ELSE P_meo2 = chem_index_table( PARAM_meo2 , idomain ) END IF chem_boundary_table( idomain, P_meo2 ) = .TRUE. chem_dname_table( idomain, P_meo2 ) = 'meo2' chem_desc_table( idomain, P_meo2 ) = '' chem_units_table( idomain, P_meo2 ) = '' chem_streams_table( idomain, P_meo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_meo2 )%stream(2) = 2097216 ! 00200040 F_meo2 = .TRUE. IF ( chem_index_table( PARAM_mepx , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mepx = chem_num_table(idomain) chem_index_table( PARAM_mepx , idomain ) = P_mepx ELSE P_mepx = chem_index_table( PARAM_mepx , idomain ) END IF chem_boundary_table( idomain, P_mepx ) = .TRUE. chem_dname_table( idomain, P_mepx ) = 'mepx' chem_desc_table( idomain, P_mepx ) = 'MEPX concentration' chem_units_table( idomain, P_mepx ) = 'ppmv' chem_streams_table( idomain, P_mepx )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mepx )%stream(2) = 2097216 ! 00200040 F_mepx = .TRUE. IF ( chem_index_table( PARAM_meoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meoh = chem_num_table(idomain) chem_index_table( PARAM_meoh , idomain ) = P_meoh ELSE P_meoh = chem_index_table( PARAM_meoh , idomain ) END IF chem_boundary_table( idomain, P_meoh ) = .TRUE. chem_dname_table( idomain, P_meoh ) = 'meoh' chem_desc_table( idomain, P_meoh ) = '' chem_units_table( idomain, P_meoh ) = '' chem_streams_table( idomain, P_meoh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_meoh )%stream(2) = 2097216 ! 00200040 F_meoh = .TRUE. IF ( chem_index_table( PARAM_hco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hco3 = chem_num_table(idomain) chem_index_table( PARAM_hco3 , idomain ) = P_hco3 ELSE P_hco3 = chem_index_table( PARAM_hco3 , idomain ) END IF chem_boundary_table( idomain, P_hco3 ) = .TRUE. chem_dname_table( idomain, P_hco3 ) = 'hco3' chem_desc_table( idomain, P_hco3 ) = 'HCO3 concentration' chem_units_table( idomain, P_hco3 ) = 'ppmv' chem_streams_table( idomain, P_hco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hco3 )%stream(2) = 2097216 ! 00200040 F_hco3 = .TRUE. IF ( chem_index_table( PARAM_facd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_facd = chem_num_table(idomain) chem_index_table( PARAM_facd , idomain ) = P_facd ELSE P_facd = chem_index_table( PARAM_facd , idomain ) END IF chem_boundary_table( idomain, P_facd ) = .TRUE. chem_dname_table( idomain, P_facd ) = 'facd' chem_desc_table( idomain, P_facd ) = 'FACD concentration' chem_units_table( idomain, P_facd ) = 'ppmv' chem_streams_table( idomain, P_facd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_facd )%stream(2) = 2097216 ! 00200040 F_facd = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_pacd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pacd = chem_num_table(idomain) chem_index_table( PARAM_pacd , idomain ) = P_pacd ELSE P_pacd = chem_index_table( PARAM_pacd , idomain ) END IF chem_boundary_table( idomain, P_pacd ) = .TRUE. chem_dname_table( idomain, P_pacd ) = 'pacd' chem_desc_table( idomain, P_pacd ) = 'PACD concentration' chem_units_table( idomain, P_pacd ) = 'ppmv' chem_streams_table( idomain, P_pacd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pacd )%stream(2) = 2097216 ! 00200040 F_pacd = .TRUE. IF ( chem_index_table( PARAM_aacd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aacd = chem_num_table(idomain) chem_index_table( PARAM_aacd , idomain ) = P_aacd ELSE P_aacd = chem_index_table( PARAM_aacd , idomain ) END IF chem_boundary_table( idomain, P_aacd ) = .TRUE. chem_dname_table( idomain, P_aacd ) = 'aacd' chem_desc_table( idomain, P_aacd ) = 'AACD concentration' chem_units_table( idomain, P_aacd ) = 'ppmv' chem_streams_table( idomain, P_aacd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aacd )%stream(2) = 2097216 ! 00200040 F_aacd = .TRUE. IF ( chem_index_table( PARAM_cxo3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cxo3 = chem_num_table(idomain) chem_index_table( PARAM_cxo3 , idomain ) = P_cxo3 ELSE P_cxo3 = chem_index_table( PARAM_cxo3 , idomain ) END IF chem_boundary_table( idomain, P_cxo3 ) = .TRUE. chem_dname_table( idomain, P_cxo3 ) = 'cxo3' chem_desc_table( idomain, P_cxo3 ) = 'CXO3 concentration' chem_units_table( idomain, P_cxo3 ) = 'ppmv' chem_streams_table( idomain, P_cxo3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cxo3 )%stream(2) = 2097216 ! 00200040 F_cxo3 = .TRUE. IF ( chem_index_table( PARAM_panx , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_panx = chem_num_table(idomain) chem_index_table( PARAM_panx , idomain ) = P_panx ELSE P_panx = chem_index_table( PARAM_panx , idomain ) END IF chem_boundary_table( idomain, P_panx ) = .TRUE. chem_dname_table( idomain, P_panx ) = 'panx' chem_desc_table( idomain, P_panx ) = 'PANX concentration' chem_units_table( idomain, P_panx ) = 'ppmv' chem_streams_table( idomain, P_panx )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_panx )%stream(2) = 2097216 ! 00200040 F_panx = .TRUE. IF ( chem_index_table( PARAM_ror , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ror = chem_num_table(idomain) chem_index_table( PARAM_ror , idomain ) = P_ror ELSE P_ror = chem_index_table( PARAM_ror , idomain ) END IF chem_boundary_table( idomain, P_ror ) = .TRUE. chem_dname_table( idomain, P_ror ) = 'ror' chem_desc_table( idomain, P_ror ) = 'ROR mixing ratio' chem_units_table( idomain, P_ror ) = 'ppmv' chem_streams_table( idomain, P_ror )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ror )%stream(2) = 2097216 ! 00200040 F_ror = .TRUE. IF ( chem_index_table( PARAM_ole , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole = chem_num_table(idomain) chem_index_table( PARAM_ole , idomain ) = P_ole ELSE P_ole = chem_index_table( PARAM_ole , idomain ) END IF chem_boundary_table( idomain, P_ole ) = .TRUE. chem_dname_table( idomain, P_ole ) = 'ole' chem_desc_table( idomain, P_ole ) = 'OLE mixing ratio' chem_units_table( idomain, P_ole ) = 'ppmv' chem_streams_table( idomain, P_ole )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole )%stream(2) = 2097216 ! 00200040 F_ole = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_iole , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iole = chem_num_table(idomain) chem_index_table( PARAM_iole , idomain ) = P_iole ELSE P_iole = chem_index_table( PARAM_iole , idomain ) END IF chem_boundary_table( idomain, P_iole ) = .TRUE. chem_dname_table( idomain, P_iole ) = 'iole' chem_desc_table( idomain, P_iole ) = 'IOLE concentration' chem_units_table( idomain, P_iole ) = 'ppmv' chem_streams_table( idomain, P_iole )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iole )%stream(2) = 2097216 ! 00200040 F_iole = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 ! 00200040 F_cres = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_tolaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tolaer1 = chem_num_table(idomain) chem_index_table( PARAM_tolaer1 , idomain ) = P_tolaer1 ELSE P_tolaer1 = chem_index_table( PARAM_tolaer1 , idomain ) END IF chem_boundary_table( idomain, P_tolaer1 ) = .TRUE. chem_dname_table( idomain, P_tolaer1 ) = 'tolaer1' chem_desc_table( idomain, P_tolaer1 ) = 'TOLAER1 concentration' chem_units_table( idomain, P_tolaer1 ) = 'ppmv' chem_streams_table( idomain, P_tolaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tolaer1 )%stream(2) = 2097216 ! 00200040 F_tolaer1 = .TRUE. IF ( chem_index_table( PARAM_tolaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tolaer2 = chem_num_table(idomain) chem_index_table( PARAM_tolaer2 , idomain ) = P_tolaer2 ELSE P_tolaer2 = chem_index_table( PARAM_tolaer2 , idomain ) END IF chem_boundary_table( idomain, P_tolaer2 ) = .TRUE. chem_dname_table( idomain, P_tolaer2 ) = 'tolaer2' chem_desc_table( idomain, P_tolaer2 ) = 'TOLAER2 concentration' chem_units_table( idomain, P_tolaer2 ) = 'ppmv' chem_streams_table( idomain, P_tolaer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tolaer2 )%stream(2) = 2097216 ! 00200040 F_tolaer2 = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_cslaer , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cslaer = chem_num_table(idomain) chem_index_table( PARAM_cslaer , idomain ) = P_cslaer ELSE P_cslaer = chem_index_table( PARAM_cslaer , idomain ) END IF chem_boundary_table( idomain, P_cslaer ) = .TRUE. chem_dname_table( idomain, P_cslaer ) = 'cslaer' chem_desc_table( idomain, P_cslaer ) = 'CSLAER concentration' chem_units_table( idomain, P_cslaer ) = 'ppmv' chem_streams_table( idomain, P_cslaer )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cslaer )%stream(2) = 2097216 ! 00200040 F_cslaer = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_xylaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylaer1 = chem_num_table(idomain) chem_index_table( PARAM_xylaer1 , idomain ) = P_xylaer1 ELSE P_xylaer1 = chem_index_table( PARAM_xylaer1 , idomain ) END IF chem_boundary_table( idomain, P_xylaer1 ) = .TRUE. chem_dname_table( idomain, P_xylaer1 ) = 'xylaer1' chem_desc_table( idomain, P_xylaer1 ) = 'XYLAER1 concentration' chem_units_table( idomain, P_xylaer1 ) = 'ppmv' chem_streams_table( idomain, P_xylaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xylaer1 )%stream(2) = 2097216 ! 00200040 F_xylaer1 = .TRUE. IF ( chem_index_table( PARAM_xylaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylaer2 = chem_num_table(idomain) chem_index_table( PARAM_xylaer2 , idomain ) = P_xylaer2 ELSE P_xylaer2 = chem_index_table( PARAM_xylaer2 , idomain ) END IF chem_boundary_table( idomain, P_xylaer2 ) = .TRUE. chem_dname_table( idomain, P_xylaer2 ) = 'xylaer2' chem_desc_table( idomain, P_xylaer2 ) = 'XYLAER2 concentration' chem_units_table( idomain, P_xylaer2 ) = 'ppmv' chem_streams_table( idomain, P_xylaer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xylaer2 )%stream(2) = 2097216 ! 00200040 F_xylaer2 = .TRUE. IF ( chem_index_table( PARAM_isop , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isop = chem_num_table(idomain) chem_index_table( PARAM_isop , idomain ) = P_isop ELSE P_isop = chem_index_table( PARAM_isop , idomain ) END IF chem_boundary_table( idomain, P_isop ) = .TRUE. chem_dname_table( idomain, P_isop ) = 'isop' chem_desc_table( idomain, P_isop ) = 'ISOP concentration' chem_units_table( idomain, P_isop ) = 'ppmv' chem_streams_table( idomain, P_isop )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isop )%stream(2) = 2097216 ! 00200040 F_isop = .TRUE. IF ( chem_index_table( PARAM_ispd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ispd = chem_num_table(idomain) chem_index_table( PARAM_ispd , idomain ) = P_ispd ELSE P_ispd = chem_index_table( PARAM_ispd , idomain ) END IF chem_boundary_table( idomain, P_ispd ) = .TRUE. chem_dname_table( idomain, P_ispd ) = 'ispd' chem_desc_table( idomain, P_ispd ) = 'ISPD concentration' chem_units_table( idomain, P_ispd ) = 'ppmv' chem_streams_table( idomain, P_ispd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ispd )%stream(2) = 2097216 ! 00200040 F_ispd = .TRUE. IF ( chem_index_table( PARAM_isoaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoaer1 = chem_num_table(idomain) chem_index_table( PARAM_isoaer1 , idomain ) = P_isoaer1 ELSE P_isoaer1 = chem_index_table( PARAM_isoaer1 , idomain ) END IF chem_boundary_table( idomain, P_isoaer1 ) = .TRUE. chem_dname_table( idomain, P_isoaer1 ) = 'isoaer1' chem_desc_table( idomain, P_isoaer1 ) = 'ISOAER1 concentration' chem_units_table( idomain, P_isoaer1 ) = 'ppmv' chem_streams_table( idomain, P_isoaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoaer1 )%stream(2) = 2097216 ! 00200040 F_isoaer1 = .TRUE. IF ( chem_index_table( PARAM_isoaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoaer2 = chem_num_table(idomain) chem_index_table( PARAM_isoaer2 , idomain ) = P_isoaer2 ELSE P_isoaer2 = chem_index_table( PARAM_isoaer2 , idomain ) END IF chem_boundary_table( idomain, P_isoaer2 ) = .TRUE. chem_dname_table( idomain, P_isoaer2 ) = 'isoaer2' chem_desc_table( idomain, P_isoaer2 ) = 'ISOAER2 concentration' chem_units_table( idomain, P_isoaer2 ) = 'ppmv' chem_streams_table( idomain, P_isoaer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoaer2 )%stream(2) = 2097216 ! 00200040 F_isoaer2 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_sulaer , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulaer = chem_num_table(idomain) chem_index_table( PARAM_sulaer , idomain ) = P_sulaer ELSE P_sulaer = chem_index_table( PARAM_sulaer , idomain ) END IF chem_boundary_table( idomain, P_sulaer ) = .TRUE. chem_dname_table( idomain, P_sulaer ) = 'sulaer' chem_desc_table( idomain, P_sulaer ) = 'SULAER concentration' chem_units_table( idomain, P_sulaer ) = 'ppmv' chem_streams_table( idomain, P_sulaer )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulaer )%stream(2) = 2097216 ! 00200040 F_sulaer = .TRUE. IF ( chem_index_table( PARAM_etoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etoh = chem_num_table(idomain) chem_index_table( PARAM_etoh , idomain ) = P_etoh ELSE P_etoh = chem_index_table( PARAM_etoh , idomain ) END IF chem_boundary_table( idomain, P_etoh ) = .TRUE. chem_dname_table( idomain, P_etoh ) = 'etoh' chem_desc_table( idomain, P_etoh ) = 'ETOH mixing ratio' chem_units_table( idomain, P_etoh ) = 'ppmv' chem_streams_table( idomain, P_etoh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_etoh )%stream(2) = 2097216 ! 00200040 F_etoh = .TRUE. IF ( chem_index_table( PARAM_etha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etha = chem_num_table(idomain) chem_index_table( PARAM_etha , idomain ) = P_etha ELSE P_etha = chem_index_table( PARAM_etha , idomain ) END IF chem_boundary_table( idomain, P_etha ) = .TRUE. chem_dname_table( idomain, P_etha ) = 'etha' chem_desc_table( idomain, P_etha ) = 'ETHA concentration' chem_units_table( idomain, P_etha ) = 'ppmv' chem_streams_table( idomain, P_etha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_etha )%stream(2) = 2097216 ! 00200040 F_etha = .TRUE. IF ( chem_index_table( PARAM_terp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp = chem_num_table(idomain) chem_index_table( PARAM_terp , idomain ) = P_terp ELSE P_terp = chem_index_table( PARAM_terp , idomain ) END IF chem_boundary_table( idomain, P_terp ) = .TRUE. chem_dname_table( idomain, P_terp ) = 'terp' chem_desc_table( idomain, P_terp ) = 'TERP mixing ratio' chem_units_table( idomain, P_terp ) = 'ppmv' chem_streams_table( idomain, P_terp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terp )%stream(2) = 2097216 ! 00200040 F_terp = .TRUE. IF ( chem_index_table( PARAM_terpaer , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpaer = chem_num_table(idomain) chem_index_table( PARAM_terpaer , idomain ) = P_terpaer ELSE P_terpaer = chem_index_table( PARAM_terpaer , idomain ) END IF chem_boundary_table( idomain, P_terpaer ) = .TRUE. chem_dname_table( idomain, P_terpaer ) = 'terpaer' chem_desc_table( idomain, P_terpaer ) = 'TERPAER concentration' chem_units_table( idomain, P_terpaer ) = 'ppmv' chem_streams_table( idomain, P_terpaer )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terpaer )%stream(2) = 2097216 ! 00200040 F_terpaer = .TRUE. IF ( chem_index_table( PARAM_hum , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hum = chem_num_table(idomain) chem_index_table( PARAM_hum , idomain ) = P_hum ELSE P_hum = chem_index_table( PARAM_hum , idomain ) END IF chem_boundary_table( idomain, P_hum ) = .TRUE. chem_dname_table( idomain, P_hum ) = 'hum' chem_desc_table( idomain, P_hum ) = 'HUM concentration' chem_units_table( idomain, P_hum ) = 'ppmv' chem_streams_table( idomain, P_hum )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hum )%stream(2) = 2097216 ! 00200040 F_hum = .TRUE. IF ( chem_index_table( PARAM_humaer , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_humaer = chem_num_table(idomain) chem_index_table( PARAM_humaer , idomain ) = P_humaer ELSE P_humaer = chem_index_table( PARAM_humaer , idomain ) END IF chem_boundary_table( idomain, P_humaer ) = .TRUE. chem_dname_table( idomain, P_humaer ) = 'humaer' chem_desc_table( idomain, P_humaer ) = 'HUMAER concentration' chem_units_table( idomain, P_humaer ) = 'ppmv' chem_streams_table( idomain, P_humaer )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_humaer )%stream(2) = 2097216 ! 00200040 F_humaer = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 ! 00200040 F_lim = .TRUE. IF ( chem_index_table( PARAM_limaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_limaer1 = chem_num_table(idomain) chem_index_table( PARAM_limaer1 , idomain ) = P_limaer1 ELSE P_limaer1 = chem_index_table( PARAM_limaer1 , idomain ) END IF chem_boundary_table( idomain, P_limaer1 ) = .TRUE. chem_dname_table( idomain, P_limaer1 ) = 'limaer1' chem_desc_table( idomain, P_limaer1 ) = 'LIMAER1 concentration' chem_units_table( idomain, P_limaer1 ) = 'ppmv' chem_streams_table( idomain, P_limaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_limaer1 )%stream(2) = 2097216 ! 00200040 F_limaer1 = .TRUE. IF ( chem_index_table( PARAM_limaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_limaer2 = chem_num_table(idomain) chem_index_table( PARAM_limaer2 , idomain ) = P_limaer2 ELSE P_limaer2 = chem_index_table( PARAM_limaer2 , idomain ) END IF chem_boundary_table( idomain, P_limaer2 ) = .TRUE. chem_dname_table( idomain, P_limaer2 ) = 'limaer2' chem_desc_table( idomain, P_limaer2 ) = 'LIMAER2 concentration' chem_units_table( idomain, P_limaer2 ) = 'ppmv' chem_streams_table( idomain, P_limaer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_limaer2 )%stream(2) = 2097216 ! 00200040 F_limaer2 = .TRUE. IF ( chem_index_table( PARAM_oci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oci = chem_num_table(idomain) chem_index_table( PARAM_oci , idomain ) = P_oci ELSE P_oci = chem_index_table( PARAM_oci , idomain ) END IF chem_boundary_table( idomain, P_oci ) = .TRUE. chem_dname_table( idomain, P_oci ) = 'oci' chem_desc_table( idomain, P_oci ) = 'OCI concentration' chem_units_table( idomain, P_oci ) = 'ppmv' chem_streams_table( idomain, P_oci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oci )%stream(2) = 2097216 ! 00200040 F_oci = .TRUE. IF ( chem_index_table( PARAM_ociaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ociaer1 = chem_num_table(idomain) chem_index_table( PARAM_ociaer1 , idomain ) = P_ociaer1 ELSE P_ociaer1 = chem_index_table( PARAM_ociaer1 , idomain ) END IF chem_boundary_table( idomain, P_ociaer1 ) = .TRUE. chem_dname_table( idomain, P_ociaer1 ) = 'ociaer1' chem_desc_table( idomain, P_ociaer1 ) = 'OCIAER1 concentration' chem_units_table( idomain, P_ociaer1 ) = 'ppmv' chem_streams_table( idomain, P_ociaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ociaer1 )%stream(2) = 2097216 ! 00200040 F_ociaer1 = .TRUE. IF ( chem_index_table( PARAM_ociaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ociaer2 = chem_num_table(idomain) chem_index_table( PARAM_ociaer2 , idomain ) = P_ociaer2 ELSE P_ociaer2 = chem_index_table( PARAM_ociaer2 , idomain ) END IF chem_boundary_table( idomain, P_ociaer2 ) = .TRUE. chem_dname_table( idomain, P_ociaer2 ) = 'ociaer2' chem_desc_table( idomain, P_ociaer2 ) = 'OCIAER2 concentration' chem_units_table( idomain, P_ociaer2 ) = 'ppmv' chem_streams_table( idomain, P_ociaer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ociaer2 )%stream(2) = 2097216 ! 00200040 F_ociaer2 = .TRUE. IF ( chem_index_table( PARAM_apin , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apin = chem_num_table(idomain) chem_index_table( PARAM_apin , idomain ) = P_apin ELSE P_apin = chem_index_table( PARAM_apin , idomain ) END IF chem_boundary_table( idomain, P_apin ) = .TRUE. chem_dname_table( idomain, P_apin ) = 'apin' chem_desc_table( idomain, P_apin ) = 'APIN mixing ratio' chem_units_table( idomain, P_apin ) = 'ppmv' chem_streams_table( idomain, P_apin )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_apin )%stream(2) = 2097216 ! 00200040 F_apin = .TRUE. IF ( chem_index_table( PARAM_apinaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinaer1 = chem_num_table(idomain) chem_index_table( PARAM_apinaer1 , idomain ) = P_apinaer1 ELSE P_apinaer1 = chem_index_table( PARAM_apinaer1 , idomain ) END IF chem_boundary_table( idomain, P_apinaer1 ) = .TRUE. chem_dname_table( idomain, P_apinaer1 ) = 'apinaer1' chem_desc_table( idomain, P_apinaer1 ) = 'APINAER1 concentration' chem_units_table( idomain, P_apinaer1 ) = 'ppmv' chem_streams_table( idomain, P_apinaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_apinaer1 )%stream(2) = 2097216 ! 00200040 F_apinaer1 = .TRUE. IF ( chem_index_table( PARAM_apinaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinaer2 = chem_num_table(idomain) chem_index_table( PARAM_apinaer2 , idomain ) = P_apinaer2 ELSE P_apinaer2 = chem_index_table( PARAM_apinaer2 , idomain ) END IF chem_boundary_table( idomain, P_apinaer2 ) = .TRUE. chem_dname_table( idomain, P_apinaer2 ) = 'apinaer2' chem_desc_table( idomain, P_apinaer2 ) = 'APINAER2 concentration' chem_units_table( idomain, P_apinaer2 ) = 'ppmv' chem_streams_table( idomain, P_apinaer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_apinaer2 )%stream(2) = 2097216 ! 00200040 F_apinaer2 = .TRUE. IF ( chem_index_table( PARAM_apinaer3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinaer3 = chem_num_table(idomain) chem_index_table( PARAM_apinaer3 , idomain ) = P_apinaer3 ELSE P_apinaer3 = chem_index_table( PARAM_apinaer3 , idomain ) END IF chem_boundary_table( idomain, P_apinaer3 ) = .TRUE. chem_dname_table( idomain, P_apinaer3 ) = 'apinaer3' chem_desc_table( idomain, P_apinaer3 ) = 'APINAER3 concentration' chem_units_table( idomain, P_apinaer3 ) = 'ppmv' chem_streams_table( idomain, P_apinaer3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_apinaer3 )%stream(2) = 2097216 ! 00200040 F_apinaer3 = .TRUE. IF ( chem_index_table( PARAM_apinaer4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinaer4 = chem_num_table(idomain) chem_index_table( PARAM_apinaer4 , idomain ) = P_apinaer4 ELSE P_apinaer4 = chem_index_table( PARAM_apinaer4 , idomain ) END IF chem_boundary_table( idomain, P_apinaer4 ) = .TRUE. chem_dname_table( idomain, P_apinaer4 ) = 'apinaer4' chem_desc_table( idomain, P_apinaer4 ) = 'APINAER4 concentration' chem_units_table( idomain, P_apinaer4 ) = 'ppmv' chem_streams_table( idomain, P_apinaer4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_apinaer4 )%stream(2) = 2097216 ! 00200040 F_apinaer4 = .TRUE. IF ( chem_index_table( PARAM_bpin , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpin = chem_num_table(idomain) chem_index_table( PARAM_bpin , idomain ) = P_bpin ELSE P_bpin = chem_index_table( PARAM_bpin , idomain ) END IF chem_boundary_table( idomain, P_bpin ) = .TRUE. chem_dname_table( idomain, P_bpin ) = 'bpin' chem_desc_table( idomain, P_bpin ) = 'BPIN mixing ratio' chem_units_table( idomain, P_bpin ) = 'ppmv' chem_streams_table( idomain, P_bpin )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpin )%stream(2) = 2097216 ! 00200040 F_bpin = .TRUE. IF ( chem_index_table( PARAM_bpinaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer1 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer1 , idomain ) = P_bpinaer1 ELSE P_bpinaer1 = chem_index_table( PARAM_bpinaer1 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer1 ) = .TRUE. chem_dname_table( idomain, P_bpinaer1 ) = 'bpinaer1' chem_desc_table( idomain, P_bpinaer1 ) = 'BPINAER1 concentration' chem_units_table( idomain, P_bpinaer1 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpinaer1 )%stream(2) = 2097216 ! 00200040 F_bpinaer1 = .TRUE. IF ( chem_index_table( PARAM_bpinaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer2 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer2 , idomain ) = P_bpinaer2 ELSE P_bpinaer2 = chem_index_table( PARAM_bpinaer2 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer2 ) = .TRUE. chem_dname_table( idomain, P_bpinaer2 ) = 'bpinaer2' chem_desc_table( idomain, P_bpinaer2 ) = 'BPINAER2 concentration' chem_units_table( idomain, P_bpinaer2 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpinaer2 )%stream(2) = 2097216 ! 00200040 F_bpinaer2 = .TRUE. IF ( chem_index_table( PARAM_bpinaer3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer3 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer3 , idomain ) = P_bpinaer3 ELSE P_bpinaer3 = chem_index_table( PARAM_bpinaer3 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer3 ) = .TRUE. chem_dname_table( idomain, P_bpinaer3 ) = 'bpinaer3' chem_desc_table( idomain, P_bpinaer3 ) = 'BPINAER3 concentration' chem_units_table( idomain, P_bpinaer3 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpinaer3 )%stream(2) = 2097216 ! 00200040 F_bpinaer3 = .TRUE. IF ( chem_index_table( PARAM_bpinaer4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer4 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer4 , idomain ) = P_bpinaer4 ELSE P_bpinaer4 = chem_index_table( PARAM_bpinaer4 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer4 ) = .TRUE. chem_dname_table( idomain, P_bpinaer4 ) = 'bpinaer4' chem_desc_table( idomain, P_bpinaer4 ) = 'BPINAER4 concentration' chem_units_table( idomain, P_bpinaer4 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpinaer4 )%stream(2) = 2097216 ! 00200040 F_bpinaer4 = .TRUE. IF ( chem_index_table( PARAM_bpinaer5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer5 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer5 , idomain ) = P_bpinaer5 ELSE P_bpinaer5 = chem_index_table( PARAM_bpinaer5 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer5 ) = .TRUE. chem_dname_table( idomain, P_bpinaer5 ) = 'bpinaer5' chem_desc_table( idomain, P_bpinaer5 ) = 'BPINAER5 concentration' chem_units_table( idomain, P_bpinaer5 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpinaer5 )%stream(2) = 2097216 ! 00200040 F_bpinaer5 = .TRUE. IF ( chem_index_table( PARAM_ter , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ter = chem_num_table(idomain) chem_index_table( PARAM_ter , idomain ) = P_ter ELSE P_ter = chem_index_table( PARAM_ter , idomain ) END IF chem_boundary_table( idomain, P_ter ) = .TRUE. chem_dname_table( idomain, P_ter ) = 'ter' chem_desc_table( idomain, P_ter ) = 'TER concentration' chem_units_table( idomain, P_ter ) = 'ppmv' chem_streams_table( idomain, P_ter )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ter )%stream(2) = 2097216 ! 00200040 F_ter = .TRUE. IF ( chem_index_table( PARAM_teraer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_teraer1 = chem_num_table(idomain) chem_index_table( PARAM_teraer1 , idomain ) = P_teraer1 ELSE P_teraer1 = chem_index_table( PARAM_teraer1 , idomain ) END IF chem_boundary_table( idomain, P_teraer1 ) = .TRUE. chem_dname_table( idomain, P_teraer1 ) = 'teraer1' chem_desc_table( idomain, P_teraer1 ) = 'TERAER1 concentration' chem_units_table( idomain, P_teraer1 ) = 'ppmv' chem_streams_table( idomain, P_teraer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_teraer1 )%stream(2) = 2097216 ! 00200040 F_teraer1 = .TRUE. IF ( chem_index_table( PARAM_teraer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_teraer2 = chem_num_table(idomain) chem_index_table( PARAM_teraer2 , idomain ) = P_teraer2 ELSE P_teraer2 = chem_index_table( PARAM_teraer2 , idomain ) END IF chem_boundary_table( idomain, P_teraer2 ) = .TRUE. chem_dname_table( idomain, P_teraer2 ) = 'teraer2' chem_desc_table( idomain, P_teraer2 ) = 'TERAER2 concentration' chem_units_table( idomain, P_teraer2 ) = 'ppmv' chem_streams_table( idomain, P_teraer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_teraer2 )%stream(2) = 2097216 ! 00200040 F_teraer2 = .TRUE. IF ( chem_index_table( PARAM_alkh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alkh = chem_num_table(idomain) chem_index_table( PARAM_alkh , idomain ) = P_alkh ELSE P_alkh = chem_index_table( PARAM_alkh , idomain ) END IF chem_boundary_table( idomain, P_alkh ) = .TRUE. chem_dname_table( idomain, P_alkh ) = 'alkh' chem_desc_table( idomain, P_alkh ) = 'ALKH concentration' chem_units_table( idomain, P_alkh ) = 'ppmv' chem_streams_table( idomain, P_alkh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alkh )%stream(2) = 2097216 ! 00200040 F_alkh = .TRUE. IF ( chem_index_table( PARAM_alkhaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alkhaer1 = chem_num_table(idomain) chem_index_table( PARAM_alkhaer1 , idomain ) = P_alkhaer1 ELSE P_alkhaer1 = chem_index_table( PARAM_alkhaer1 , idomain ) END IF chem_boundary_table( idomain, P_alkhaer1 ) = .TRUE. chem_dname_table( idomain, P_alkhaer1 ) = 'alkhaer1' chem_desc_table( idomain, P_alkhaer1 ) = 'ALKHAER1 concentration' chem_units_table( idomain, P_alkhaer1 ) = 'ppmv' chem_streams_table( idomain, P_alkhaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alkhaer1 )%stream(2) = 2097216 ! 00200040 F_alkhaer1 = .TRUE. IF ( chem_index_table( PARAM_pah , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pah = chem_num_table(idomain) chem_index_table( PARAM_pah , idomain ) = P_pah ELSE P_pah = chem_index_table( PARAM_pah , idomain ) END IF chem_boundary_table( idomain, P_pah ) = .TRUE. chem_dname_table( idomain, P_pah ) = 'pah' chem_desc_table( idomain, P_pah ) = 'PAH concentration' chem_units_table( idomain, P_pah ) = 'ppmv' chem_streams_table( idomain, P_pah )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pah )%stream(2) = 2097216 ! 00200040 F_pah = .TRUE. IF ( chem_index_table( PARAM_pahaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pahaer1 = chem_num_table(idomain) chem_index_table( PARAM_pahaer1 , idomain ) = P_pahaer1 ELSE P_pahaer1 = chem_index_table( PARAM_pahaer1 , idomain ) END IF chem_boundary_table( idomain, P_pahaer1 ) = .TRUE. chem_dname_table( idomain, P_pahaer1 ) = 'pahaer1' chem_desc_table( idomain, P_pahaer1 ) = 'PAHAER1 concentration' chem_units_table( idomain, P_pahaer1 ) = 'ppmv' chem_streams_table( idomain, P_pahaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pahaer1 )%stream(2) = 2097216 ! 00200040 F_pahaer1 = .TRUE. IF ( chem_index_table( PARAM_pahaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pahaer2 = chem_num_table(idomain) chem_index_table( PARAM_pahaer2 , idomain ) = P_pahaer2 ELSE P_pahaer2 = chem_index_table( PARAM_pahaer2 , idomain ) END IF chem_boundary_table( idomain, P_pahaer2 ) = .TRUE. chem_dname_table( idomain, P_pahaer2 ) = 'pahaer2' chem_desc_table( idomain, P_pahaer2 ) = 'PAHAER2 concentration' chem_units_table( idomain, P_pahaer2 ) = 'ppmv' chem_streams_table( idomain, P_pahaer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pahaer2 )%stream(2) = 2097216 ! 00200040 F_pahaer2 = .TRUE. IF ( chem_index_table( PARAM_h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2 = chem_num_table(idomain) chem_index_table( PARAM_h2 , idomain ) = P_h2 ELSE P_h2 = chem_index_table( PARAM_h2 , idomain ) END IF chem_boundary_table( idomain, P_h2 ) = .TRUE. chem_dname_table( idomain, P_h2 ) = 'h2' chem_desc_table( idomain, P_h2 ) = 'H2 mixing ratio' chem_units_table( idomain, P_h2 ) = 'ppmv' chem_streams_table( idomain, P_h2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2 )%stream(2) = 2097216 ! 00200040 F_h2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_cl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl = chem_num_table(idomain) chem_index_table( PARAM_cl , idomain ) = P_cl ELSE P_cl = chem_index_table( PARAM_cl , idomain ) END IF chem_boundary_table( idomain, P_cl ) = .TRUE. chem_dname_table( idomain, P_cl ) = 'cl' chem_desc_table( idomain, P_cl ) = 'CL concentration' chem_units_table( idomain, P_cl ) = 'ppmv' chem_streams_table( idomain, P_cl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl )%stream(2) = 2097216 ! 00200040 F_cl = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_fmcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_fmcl = chem_num_table(idomain) chem_index_table( PARAM_fmcl , idomain ) = P_fmcl ELSE P_fmcl = chem_index_table( PARAM_fmcl , idomain ) END IF chem_boundary_table( idomain, P_fmcl ) = .TRUE. chem_dname_table( idomain, P_fmcl ) = 'fmcl' chem_desc_table( idomain, P_fmcl ) = 'FMCL concentration' chem_units_table( idomain, P_fmcl ) = 'ppmv' chem_streams_table( idomain, P_fmcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_fmcl )%stream(2) = 2097216 ! 00200040 F_fmcl = .TRUE. IF ( chem_index_table( PARAM_hg0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hg0 = chem_num_table(idomain) chem_index_table( PARAM_hg0 , idomain ) = P_hg0 ELSE P_hg0 = chem_index_table( PARAM_hg0 , idomain ) END IF chem_boundary_table( idomain, P_hg0 ) = .TRUE. chem_dname_table( idomain, P_hg0 ) = 'hg0' chem_desc_table( idomain, P_hg0 ) = 'HG0 concentration' chem_units_table( idomain, P_hg0 ) = 'ppmv' chem_streams_table( idomain, P_hg0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hg0 )%stream(2) = 2097216 ! 00200040 F_hg0 = .TRUE. IF ( chem_index_table( PARAM_hg2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hg2 = chem_num_table(idomain) chem_index_table( PARAM_hg2 , idomain ) = P_hg2 ELSE P_hg2 = chem_index_table( PARAM_hg2 , idomain ) END IF chem_boundary_table( idomain, P_hg2 ) = .TRUE. chem_dname_table( idomain, P_hg2 ) = 'hg2' chem_desc_table( idomain, P_hg2 ) = 'HG2 concentration' chem_units_table( idomain, P_hg2 ) = 'ppmv' chem_streams_table( idomain, P_hg2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hg2 )%stream(2) = 2097216 ! 00200040 F_hg2 = .TRUE. IF ( chem_index_table( PARAM_hocl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hocl = chem_num_table(idomain) chem_index_table( PARAM_hocl , idomain ) = P_hocl ELSE P_hocl = chem_index_table( PARAM_hocl , idomain ) END IF chem_boundary_table( idomain, P_hocl ) = .TRUE. chem_dname_table( idomain, P_hocl ) = 'hocl' chem_desc_table( idomain, P_hocl ) = 'HOCL concentration' chem_units_table( idomain, P_hocl ) = 'ppmv' chem_streams_table( idomain, P_hocl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hocl )%stream(2) = 2097216 ! 00200040 F_hocl = .TRUE. IF ( chem_index_table( PARAM_clo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clo = chem_num_table(idomain) chem_index_table( PARAM_clo , idomain ) = P_clo ELSE P_clo = chem_index_table( PARAM_clo , idomain ) END IF chem_boundary_table( idomain, P_clo ) = .TRUE. chem_dname_table( idomain, P_clo ) = 'clo' chem_desc_table( idomain, P_clo ) = 'CLO concentration' chem_units_table( idomain, P_clo ) = 'ppmv' chem_streams_table( idomain, P_clo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clo )%stream(2) = 2097216 ! 00200040 F_clo = .TRUE. IF ( chem_index_table( PARAM_cl2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl2 = chem_num_table(idomain) chem_index_table( PARAM_cl2 , idomain ) = P_cl2 ELSE P_cl2 = chem_index_table( PARAM_cl2 , idomain ) END IF chem_boundary_table( idomain, P_cl2 ) = .TRUE. chem_dname_table( idomain, P_cl2 ) = 'cl2' chem_desc_table( idomain, P_cl2 ) = 'CL2 concentration' chem_units_table( idomain, P_cl2 ) = 'ppmv' chem_streams_table( idomain, P_cl2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl2 )%stream(2) = 2097216 ! 00200040 F_cl2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 ! 00200040 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 ! 00200040 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 ! 00200040 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 ! 00200040 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 ! 00200040 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 ! 00200040 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 ! 00200040 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 ! 00200040 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 ! 00200040 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 ! 00200040 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 ! 00200040 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 ! 00200040 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 ! 00200040 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 ! 00200040 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 ! 00200040 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 ! 00200040 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 ! 00200040 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 ! 00200040 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 ! 00200040 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 ! 00200040 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 ! 00200040 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 ! 00200040 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 ! 00200040 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 ! 00200040 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 ! 00200040 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 ! 00200040 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 ! 00200040 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 ! 00200040 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 ! 00200040 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 ! 00200040 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 ! 00200040 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 ! 00200040 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 ! 00200040 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 ! 00200040 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 ! 00200040 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 ! 00200040 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 ! 00200040 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 ! 00200040 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 ! 00200040 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 ! 00200040 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 ! 00200040 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 ! 00200040 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 ! 00200040 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 ! 00200040 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 ! 00200040 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 ! 00200040 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 ! 00200040 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 ! 00200040 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwj , idomain ) = P_orgaro1cwj ELSE P_orgaro1cwj = chem_index_table( PARAM_orgaro1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwj ) = 'orgaro1cwj' chem_desc_table( idomain, P_orgaro1cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1cwj )%stream(2) = 2097216 ! 00200040 F_orgaro1cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwi , idomain ) = P_orgaro1cwi ELSE P_orgaro1cwi = chem_index_table( PARAM_orgaro1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwi ) = 'orgaro1cwi' chem_desc_table( idomain, P_orgaro1cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro1cwi )%stream(2) = 2097216 ! 00200040 F_orgaro1cwi = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwj , idomain ) = P_orgaro2cwj ELSE P_orgaro2cwj = chem_index_table( PARAM_orgaro2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwj ) = 'orgaro2cwj' chem_desc_table( idomain, P_orgaro2cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2cwj )%stream(2) = 2097216 ! 00200040 F_orgaro2cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwi , idomain ) = P_orgaro2cwi ELSE P_orgaro2cwi = chem_index_table( PARAM_orgaro2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwi ) = 'orgaro2cwi' chem_desc_table( idomain, P_orgaro2cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgaro2cwi )%stream(2) = 2097216 ! 00200040 F_orgaro2cwi = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwj , idomain ) = P_orgalk1cwj ELSE P_orgalk1cwj = chem_index_table( PARAM_orgalk1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwj ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwj ) = 'orgalk1cwj' chem_desc_table( idomain, P_orgalk1cwj ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgalk1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1cwj )%stream(2) = 2097216 ! 00200040 F_orgalk1cwj = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwi , idomain ) = P_orgalk1cwi ELSE P_orgalk1cwi = chem_index_table( PARAM_orgalk1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwi ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwi ) = 'orgalk1cwi' chem_desc_table( idomain, P_orgalk1cwi ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgalk1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgalk1cwi )%stream(2) = 2097216 ! 00200040 F_orgalk1cwi = .TRUE. IF ( chem_index_table( PARAM_orgole1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwj , idomain ) = P_orgole1cwj ELSE P_orgole1cwj = chem_index_table( PARAM_orgole1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwj ) = .TRUE. chem_dname_table( idomain, P_orgole1cwj ) = 'orgole1cwj' chem_desc_table( idomain, P_orgole1cwj ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgole1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1cwj )%stream(2) = 2097216 ! 00200040 F_orgole1cwj = .TRUE. IF ( chem_index_table( PARAM_orgole1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwi , idomain ) = P_orgole1cwi ELSE P_orgole1cwi = chem_index_table( PARAM_orgole1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwi ) = .TRUE. chem_dname_table( idomain, P_orgole1cwi ) = 'orgole1cwi' chem_desc_table( idomain, P_orgole1cwi ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgole1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgole1cwi )%stream(2) = 2097216 ! 00200040 F_orgole1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwj , idomain ) = P_orgba1cwj ELSE P_orgba1cwj = chem_index_table( PARAM_orgba1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwj ) = .TRUE. chem_dname_table( idomain, P_orgba1cwj ) = 'orgba1cwj' chem_desc_table( idomain, P_orgba1cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1cwj )%stream(2) = 2097216 ! 00200040 F_orgba1cwj = .TRUE. IF ( chem_index_table( PARAM_orgba1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwi , idomain ) = P_orgba1cwi ELSE P_orgba1cwi = chem_index_table( PARAM_orgba1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwi ) = .TRUE. chem_dname_table( idomain, P_orgba1cwi ) = 'orgba1cwi' chem_desc_table( idomain, P_orgba1cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba1cwi )%stream(2) = 2097216 ! 00200040 F_orgba1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwj , idomain ) = P_orgba2cwj ELSE P_orgba2cwj = chem_index_table( PARAM_orgba2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwj ) = .TRUE. chem_dname_table( idomain, P_orgba2cwj ) = 'orgba2cwj' chem_desc_table( idomain, P_orgba2cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2cwj )%stream(2) = 2097216 ! 00200040 F_orgba2cwj = .TRUE. IF ( chem_index_table( PARAM_orgba2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwi , idomain ) = P_orgba2cwi ELSE P_orgba2cwi = chem_index_table( PARAM_orgba2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwi ) = .TRUE. chem_dname_table( idomain, P_orgba2cwi ) = 'orgba2cwi' chem_desc_table( idomain, P_orgba2cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba2cwi )%stream(2) = 2097216 ! 00200040 F_orgba2cwi = .TRUE. IF ( chem_index_table( PARAM_orgba3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwj , idomain ) = P_orgba3cwj ELSE P_orgba3cwj = chem_index_table( PARAM_orgba3cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwj ) = .TRUE. chem_dname_table( idomain, P_orgba3cwj ) = 'orgba3cwj' chem_desc_table( idomain, P_orgba3cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3cwj )%stream(2) = 2097216 ! 00200040 F_orgba3cwj = .TRUE. IF ( chem_index_table( PARAM_orgba3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwi , idomain ) = P_orgba3cwi ELSE P_orgba3cwi = chem_index_table( PARAM_orgba3cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwi ) = .TRUE. chem_dname_table( idomain, P_orgba3cwi ) = 'orgba3cwi' chem_desc_table( idomain, P_orgba3cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba3cwi )%stream(2) = 2097216 ! 00200040 F_orgba3cwi = .TRUE. IF ( chem_index_table( PARAM_orgba4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwj , idomain ) = P_orgba4cwj ELSE P_orgba4cwj = chem_index_table( PARAM_orgba4cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwj ) = .TRUE. chem_dname_table( idomain, P_orgba4cwj ) = 'orgba4cwj' chem_desc_table( idomain, P_orgba4cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4cwj )%stream(2) = 2097216 ! 00200040 F_orgba4cwj = .TRUE. IF ( chem_index_table( PARAM_orgba4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwi , idomain ) = P_orgba4cwi ELSE P_orgba4cwi = chem_index_table( PARAM_orgba4cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwi ) = .TRUE. chem_dname_table( idomain, P_orgba4cwi ) = 'orgba4cwi' chem_desc_table( idomain, P_orgba4cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgba4cwi )%stream(2) = 2097216 ! 00200040 F_orgba4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 ! 00200040 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 ! 00200040 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 ! 00200040 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 ! 00200040 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 ! 00200040 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 ! 00200040 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 ! 00200040 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 ! 00200040 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 ! 00200040 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 ! 00200040 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 ! 00200040 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 ! 00200040 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==132)THEN IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o = chem_num_table(idomain) chem_index_table( PARAM_o , idomain ) = P_o ELSE P_o = chem_index_table( PARAM_o , idomain ) END IF chem_boundary_table( idomain, P_o ) = .TRUE. chem_dname_table( idomain, P_o ) = 'o' chem_desc_table( idomain, P_o ) = 'o mixing ratio' chem_units_table( idomain, P_o ) = 'ppmv' chem_streams_table( idomain, P_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o )%stream(2) = 2097216 ! 00200040 F_o = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_o1d , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o1d = chem_num_table(idomain) chem_index_table( PARAM_o1d , idomain ) = P_o1d ELSE P_o1d = chem_index_table( PARAM_o1d , idomain ) END IF chem_boundary_table( idomain, P_o1d ) = .TRUE. chem_dname_table( idomain, P_o1d ) = 'o1d' chem_desc_table( idomain, P_o1d ) = 'O1D concentration' chem_units_table( idomain, P_o1d ) = 'ppmv' chem_streams_table( idomain, P_o1d )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o1d )%stream(2) = 2097216 ! 00200040 F_o1d = .TRUE. IF ( chem_index_table( PARAM_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oh = chem_num_table(idomain) chem_index_table( PARAM_oh , idomain ) = P_oh ELSE P_oh = chem_index_table( PARAM_oh , idomain ) END IF chem_boundary_table( idomain, P_oh ) = .TRUE. chem_dname_table( idomain, P_oh ) = 'oh' chem_desc_table( idomain, P_oh ) = 'OH concentration' chem_units_table( idomain, P_oh ) = 'ppmv' chem_streams_table( idomain, P_oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oh )%stream(2) = 2097216 ! 00200040 F_oh = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_pna , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pna = chem_num_table(idomain) chem_index_table( PARAM_pna , idomain ) = P_pna ELSE P_pna = chem_index_table( PARAM_pna , idomain ) END IF chem_boundary_table( idomain, P_pna ) = .TRUE. chem_dname_table( idomain, P_pna ) = 'pna' chem_desc_table( idomain, P_pna ) = 'PNA mixing ratio' chem_units_table( idomain, P_pna ) = 'ppmv' chem_streams_table( idomain, P_pna )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pna )%stream(2) = 2097216 ! 00200040 F_pna = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xo2n , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2n = chem_num_table(idomain) chem_index_table( PARAM_xo2n , idomain ) = P_xo2n ELSE P_xo2n = chem_index_table( PARAM_xo2n , idomain ) END IF chem_boundary_table( idomain, P_xo2n ) = .TRUE. chem_dname_table( idomain, P_xo2n ) = 'xo2n' chem_desc_table( idomain, P_xo2n ) = 'XO2N mixing ratio' chem_units_table( idomain, P_xo2n ) = 'ppmv' chem_streams_table( idomain, P_xo2n )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2n )%stream(2) = 2097216 ! 00200040 F_xo2n = .TRUE. IF ( chem_index_table( PARAM_ntr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ntr = chem_num_table(idomain) chem_index_table( PARAM_ntr , idomain ) = P_ntr ELSE P_ntr = chem_index_table( PARAM_ntr , idomain ) END IF chem_boundary_table( idomain, P_ntr ) = .TRUE. chem_dname_table( idomain, P_ntr ) = 'ntr' chem_desc_table( idomain, P_ntr ) = 'NTR concentration' chem_units_table( idomain, P_ntr ) = 'ppmv' chem_streams_table( idomain, P_ntr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ntr )%stream(2) = 2097216 ! 00200040 F_ntr = .TRUE. IF ( chem_index_table( PARAM_rooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rooh = chem_num_table(idomain) chem_index_table( PARAM_rooh , idomain ) = P_rooh ELSE P_rooh = chem_index_table( PARAM_rooh , idomain ) END IF chem_boundary_table( idomain, P_rooh ) = .TRUE. chem_dname_table( idomain, P_rooh ) = 'rooh' chem_desc_table( idomain, P_rooh ) = 'ROOH mixing ratio' chem_units_table( idomain, P_rooh ) = 'ppmv' chem_streams_table( idomain, P_rooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rooh )%stream(2) = 2097216 ! 00200040 F_rooh = .TRUE. IF ( chem_index_table( PARAM_form , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_form = chem_num_table(idomain) chem_index_table( PARAM_form , idomain ) = P_form ELSE P_form = chem_index_table( PARAM_form , idomain ) END IF chem_boundary_table( idomain, P_form ) = .TRUE. chem_dname_table( idomain, P_form ) = 'form' chem_desc_table( idomain, P_form ) = 'FORM concentration' chem_units_table( idomain, P_form ) = 'ppmv' chem_streams_table( idomain, P_form )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_form )%stream(2) = 2097216 ! 00200040 F_form = .TRUE. IF ( chem_index_table( PARAM_ald2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald2 = chem_num_table(idomain) chem_index_table( PARAM_ald2 , idomain ) = P_ald2 ELSE P_ald2 = chem_index_table( PARAM_ald2 , idomain ) END IF chem_boundary_table( idomain, P_ald2 ) = .TRUE. chem_dname_table( idomain, P_ald2 ) = 'ald2' chem_desc_table( idomain, P_ald2 ) = 'ALD2 mixing ratio' chem_units_table( idomain, P_ald2 ) = 'ppmv' chem_streams_table( idomain, P_ald2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald2 )%stream(2) = 2097216 ! 00200040 F_ald2 = .TRUE. IF ( chem_index_table( PARAM_aldx , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aldx = chem_num_table(idomain) chem_index_table( PARAM_aldx , idomain ) = P_aldx ELSE P_aldx = chem_index_table( PARAM_aldx , idomain ) END IF chem_boundary_table( idomain, P_aldx ) = .TRUE. chem_dname_table( idomain, P_aldx ) = 'aldx' chem_desc_table( idomain, P_aldx ) = 'ALDX concentration' chem_units_table( idomain, P_aldx ) = 'ppmv' chem_streams_table( idomain, P_aldx )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aldx )%stream(2) = 2097216 ! 00200040 F_aldx = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_meo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meo2 = chem_num_table(idomain) chem_index_table( PARAM_meo2 , idomain ) = P_meo2 ELSE P_meo2 = chem_index_table( PARAM_meo2 , idomain ) END IF chem_boundary_table( idomain, P_meo2 ) = .TRUE. chem_dname_table( idomain, P_meo2 ) = 'meo2' chem_desc_table( idomain, P_meo2 ) = '' chem_units_table( idomain, P_meo2 ) = '' chem_streams_table( idomain, P_meo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_meo2 )%stream(2) = 2097216 ! 00200040 F_meo2 = .TRUE. IF ( chem_index_table( PARAM_mepx , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mepx = chem_num_table(idomain) chem_index_table( PARAM_mepx , idomain ) = P_mepx ELSE P_mepx = chem_index_table( PARAM_mepx , idomain ) END IF chem_boundary_table( idomain, P_mepx ) = .TRUE. chem_dname_table( idomain, P_mepx ) = 'mepx' chem_desc_table( idomain, P_mepx ) = 'MEPX concentration' chem_units_table( idomain, P_mepx ) = 'ppmv' chem_streams_table( idomain, P_mepx )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mepx )%stream(2) = 2097216 ! 00200040 F_mepx = .TRUE. IF ( chem_index_table( PARAM_meoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meoh = chem_num_table(idomain) chem_index_table( PARAM_meoh , idomain ) = P_meoh ELSE P_meoh = chem_index_table( PARAM_meoh , idomain ) END IF chem_boundary_table( idomain, P_meoh ) = .TRUE. chem_dname_table( idomain, P_meoh ) = 'meoh' chem_desc_table( idomain, P_meoh ) = '' chem_units_table( idomain, P_meoh ) = '' chem_streams_table( idomain, P_meoh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_meoh )%stream(2) = 2097216 ! 00200040 F_meoh = .TRUE. IF ( chem_index_table( PARAM_hco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hco3 = chem_num_table(idomain) chem_index_table( PARAM_hco3 , idomain ) = P_hco3 ELSE P_hco3 = chem_index_table( PARAM_hco3 , idomain ) END IF chem_boundary_table( idomain, P_hco3 ) = .TRUE. chem_dname_table( idomain, P_hco3 ) = 'hco3' chem_desc_table( idomain, P_hco3 ) = 'HCO3 concentration' chem_units_table( idomain, P_hco3 ) = 'ppmv' chem_streams_table( idomain, P_hco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hco3 )%stream(2) = 2097216 ! 00200040 F_hco3 = .TRUE. IF ( chem_index_table( PARAM_facd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_facd = chem_num_table(idomain) chem_index_table( PARAM_facd , idomain ) = P_facd ELSE P_facd = chem_index_table( PARAM_facd , idomain ) END IF chem_boundary_table( idomain, P_facd ) = .TRUE. chem_dname_table( idomain, P_facd ) = 'facd' chem_desc_table( idomain, P_facd ) = 'FACD concentration' chem_units_table( idomain, P_facd ) = 'ppmv' chem_streams_table( idomain, P_facd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_facd )%stream(2) = 2097216 ! 00200040 F_facd = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_pacd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pacd = chem_num_table(idomain) chem_index_table( PARAM_pacd , idomain ) = P_pacd ELSE P_pacd = chem_index_table( PARAM_pacd , idomain ) END IF chem_boundary_table( idomain, P_pacd ) = .TRUE. chem_dname_table( idomain, P_pacd ) = 'pacd' chem_desc_table( idomain, P_pacd ) = 'PACD concentration' chem_units_table( idomain, P_pacd ) = 'ppmv' chem_streams_table( idomain, P_pacd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pacd )%stream(2) = 2097216 ! 00200040 F_pacd = .TRUE. IF ( chem_index_table( PARAM_aacd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aacd = chem_num_table(idomain) chem_index_table( PARAM_aacd , idomain ) = P_aacd ELSE P_aacd = chem_index_table( PARAM_aacd , idomain ) END IF chem_boundary_table( idomain, P_aacd ) = .TRUE. chem_dname_table( idomain, P_aacd ) = 'aacd' chem_desc_table( idomain, P_aacd ) = 'AACD concentration' chem_units_table( idomain, P_aacd ) = 'ppmv' chem_streams_table( idomain, P_aacd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aacd )%stream(2) = 2097216 ! 00200040 F_aacd = .TRUE. IF ( chem_index_table( PARAM_cxo3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cxo3 = chem_num_table(idomain) chem_index_table( PARAM_cxo3 , idomain ) = P_cxo3 ELSE P_cxo3 = chem_index_table( PARAM_cxo3 , idomain ) END IF chem_boundary_table( idomain, P_cxo3 ) = .TRUE. chem_dname_table( idomain, P_cxo3 ) = 'cxo3' chem_desc_table( idomain, P_cxo3 ) = 'CXO3 concentration' chem_units_table( idomain, P_cxo3 ) = 'ppmv' chem_streams_table( idomain, P_cxo3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cxo3 )%stream(2) = 2097216 ! 00200040 F_cxo3 = .TRUE. IF ( chem_index_table( PARAM_panx , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_panx = chem_num_table(idomain) chem_index_table( PARAM_panx , idomain ) = P_panx ELSE P_panx = chem_index_table( PARAM_panx , idomain ) END IF chem_boundary_table( idomain, P_panx ) = .TRUE. chem_dname_table( idomain, P_panx ) = 'panx' chem_desc_table( idomain, P_panx ) = 'PANX concentration' chem_units_table( idomain, P_panx ) = 'ppmv' chem_streams_table( idomain, P_panx )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_panx )%stream(2) = 2097216 ! 00200040 F_panx = .TRUE. IF ( chem_index_table( PARAM_ror , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ror = chem_num_table(idomain) chem_index_table( PARAM_ror , idomain ) = P_ror ELSE P_ror = chem_index_table( PARAM_ror , idomain ) END IF chem_boundary_table( idomain, P_ror ) = .TRUE. chem_dname_table( idomain, P_ror ) = 'ror' chem_desc_table( idomain, P_ror ) = 'ROR mixing ratio' chem_units_table( idomain, P_ror ) = 'ppmv' chem_streams_table( idomain, P_ror )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ror )%stream(2) = 2097216 ! 00200040 F_ror = .TRUE. IF ( chem_index_table( PARAM_ole , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole = chem_num_table(idomain) chem_index_table( PARAM_ole , idomain ) = P_ole ELSE P_ole = chem_index_table( PARAM_ole , idomain ) END IF chem_boundary_table( idomain, P_ole ) = .TRUE. chem_dname_table( idomain, P_ole ) = 'ole' chem_desc_table( idomain, P_ole ) = 'OLE mixing ratio' chem_units_table( idomain, P_ole ) = 'ppmv' chem_streams_table( idomain, P_ole )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole )%stream(2) = 2097216 ! 00200040 F_ole = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_iole , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iole = chem_num_table(idomain) chem_index_table( PARAM_iole , idomain ) = P_iole ELSE P_iole = chem_index_table( PARAM_iole , idomain ) END IF chem_boundary_table( idomain, P_iole ) = .TRUE. chem_dname_table( idomain, P_iole ) = 'iole' chem_desc_table( idomain, P_iole ) = 'IOLE concentration' chem_units_table( idomain, P_iole ) = 'ppmv' chem_streams_table( idomain, P_iole )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iole )%stream(2) = 2097216 ! 00200040 F_iole = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 ! 00200040 F_cres = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_tolaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tolaer1 = chem_num_table(idomain) chem_index_table( PARAM_tolaer1 , idomain ) = P_tolaer1 ELSE P_tolaer1 = chem_index_table( PARAM_tolaer1 , idomain ) END IF chem_boundary_table( idomain, P_tolaer1 ) = .TRUE. chem_dname_table( idomain, P_tolaer1 ) = 'tolaer1' chem_desc_table( idomain, P_tolaer1 ) = 'TOLAER1 concentration' chem_units_table( idomain, P_tolaer1 ) = 'ppmv' chem_streams_table( idomain, P_tolaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tolaer1 )%stream(2) = 2097216 ! 00200040 F_tolaer1 = .TRUE. IF ( chem_index_table( PARAM_tolaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tolaer2 = chem_num_table(idomain) chem_index_table( PARAM_tolaer2 , idomain ) = P_tolaer2 ELSE P_tolaer2 = chem_index_table( PARAM_tolaer2 , idomain ) END IF chem_boundary_table( idomain, P_tolaer2 ) = .TRUE. chem_dname_table( idomain, P_tolaer2 ) = 'tolaer2' chem_desc_table( idomain, P_tolaer2 ) = 'TOLAER2 concentration' chem_units_table( idomain, P_tolaer2 ) = 'ppmv' chem_streams_table( idomain, P_tolaer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tolaer2 )%stream(2) = 2097216 ! 00200040 F_tolaer2 = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_cslaer , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cslaer = chem_num_table(idomain) chem_index_table( PARAM_cslaer , idomain ) = P_cslaer ELSE P_cslaer = chem_index_table( PARAM_cslaer , idomain ) END IF chem_boundary_table( idomain, P_cslaer ) = .TRUE. chem_dname_table( idomain, P_cslaer ) = 'cslaer' chem_desc_table( idomain, P_cslaer ) = 'CSLAER concentration' chem_units_table( idomain, P_cslaer ) = 'ppmv' chem_streams_table( idomain, P_cslaer )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cslaer )%stream(2) = 2097216 ! 00200040 F_cslaer = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_xylaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylaer1 = chem_num_table(idomain) chem_index_table( PARAM_xylaer1 , idomain ) = P_xylaer1 ELSE P_xylaer1 = chem_index_table( PARAM_xylaer1 , idomain ) END IF chem_boundary_table( idomain, P_xylaer1 ) = .TRUE. chem_dname_table( idomain, P_xylaer1 ) = 'xylaer1' chem_desc_table( idomain, P_xylaer1 ) = 'XYLAER1 concentration' chem_units_table( idomain, P_xylaer1 ) = 'ppmv' chem_streams_table( idomain, P_xylaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xylaer1 )%stream(2) = 2097216 ! 00200040 F_xylaer1 = .TRUE. IF ( chem_index_table( PARAM_xylaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylaer2 = chem_num_table(idomain) chem_index_table( PARAM_xylaer2 , idomain ) = P_xylaer2 ELSE P_xylaer2 = chem_index_table( PARAM_xylaer2 , idomain ) END IF chem_boundary_table( idomain, P_xylaer2 ) = .TRUE. chem_dname_table( idomain, P_xylaer2 ) = 'xylaer2' chem_desc_table( idomain, P_xylaer2 ) = 'XYLAER2 concentration' chem_units_table( idomain, P_xylaer2 ) = 'ppmv' chem_streams_table( idomain, P_xylaer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xylaer2 )%stream(2) = 2097216 ! 00200040 F_xylaer2 = .TRUE. IF ( chem_index_table( PARAM_isop , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isop = chem_num_table(idomain) chem_index_table( PARAM_isop , idomain ) = P_isop ELSE P_isop = chem_index_table( PARAM_isop , idomain ) END IF chem_boundary_table( idomain, P_isop ) = .TRUE. chem_dname_table( idomain, P_isop ) = 'isop' chem_desc_table( idomain, P_isop ) = 'ISOP concentration' chem_units_table( idomain, P_isop ) = 'ppmv' chem_streams_table( idomain, P_isop )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isop )%stream(2) = 2097216 ! 00200040 F_isop = .TRUE. IF ( chem_index_table( PARAM_ispd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ispd = chem_num_table(idomain) chem_index_table( PARAM_ispd , idomain ) = P_ispd ELSE P_ispd = chem_index_table( PARAM_ispd , idomain ) END IF chem_boundary_table( idomain, P_ispd ) = .TRUE. chem_dname_table( idomain, P_ispd ) = 'ispd' chem_desc_table( idomain, P_ispd ) = 'ISPD concentration' chem_units_table( idomain, P_ispd ) = 'ppmv' chem_streams_table( idomain, P_ispd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ispd )%stream(2) = 2097216 ! 00200040 F_ispd = .TRUE. IF ( chem_index_table( PARAM_isoaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoaer1 = chem_num_table(idomain) chem_index_table( PARAM_isoaer1 , idomain ) = P_isoaer1 ELSE P_isoaer1 = chem_index_table( PARAM_isoaer1 , idomain ) END IF chem_boundary_table( idomain, P_isoaer1 ) = .TRUE. chem_dname_table( idomain, P_isoaer1 ) = 'isoaer1' chem_desc_table( idomain, P_isoaer1 ) = 'ISOAER1 concentration' chem_units_table( idomain, P_isoaer1 ) = 'ppmv' chem_streams_table( idomain, P_isoaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoaer1 )%stream(2) = 2097216 ! 00200040 F_isoaer1 = .TRUE. IF ( chem_index_table( PARAM_isoaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoaer2 = chem_num_table(idomain) chem_index_table( PARAM_isoaer2 , idomain ) = P_isoaer2 ELSE P_isoaer2 = chem_index_table( PARAM_isoaer2 , idomain ) END IF chem_boundary_table( idomain, P_isoaer2 ) = .TRUE. chem_dname_table( idomain, P_isoaer2 ) = 'isoaer2' chem_desc_table( idomain, P_isoaer2 ) = 'ISOAER2 concentration' chem_units_table( idomain, P_isoaer2 ) = 'ppmv' chem_streams_table( idomain, P_isoaer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoaer2 )%stream(2) = 2097216 ! 00200040 F_isoaer2 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_sulaer , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulaer = chem_num_table(idomain) chem_index_table( PARAM_sulaer , idomain ) = P_sulaer ELSE P_sulaer = chem_index_table( PARAM_sulaer , idomain ) END IF chem_boundary_table( idomain, P_sulaer ) = .TRUE. chem_dname_table( idomain, P_sulaer ) = 'sulaer' chem_desc_table( idomain, P_sulaer ) = 'SULAER concentration' chem_units_table( idomain, P_sulaer ) = 'ppmv' chem_streams_table( idomain, P_sulaer )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulaer )%stream(2) = 2097216 ! 00200040 F_sulaer = .TRUE. IF ( chem_index_table( PARAM_etoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etoh = chem_num_table(idomain) chem_index_table( PARAM_etoh , idomain ) = P_etoh ELSE P_etoh = chem_index_table( PARAM_etoh , idomain ) END IF chem_boundary_table( idomain, P_etoh ) = .TRUE. chem_dname_table( idomain, P_etoh ) = 'etoh' chem_desc_table( idomain, P_etoh ) = 'ETOH mixing ratio' chem_units_table( idomain, P_etoh ) = 'ppmv' chem_streams_table( idomain, P_etoh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_etoh )%stream(2) = 2097216 ! 00200040 F_etoh = .TRUE. IF ( chem_index_table( PARAM_etha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etha = chem_num_table(idomain) chem_index_table( PARAM_etha , idomain ) = P_etha ELSE P_etha = chem_index_table( PARAM_etha , idomain ) END IF chem_boundary_table( idomain, P_etha ) = .TRUE. chem_dname_table( idomain, P_etha ) = 'etha' chem_desc_table( idomain, P_etha ) = 'ETHA concentration' chem_units_table( idomain, P_etha ) = 'ppmv' chem_streams_table( idomain, P_etha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_etha )%stream(2) = 2097216 ! 00200040 F_etha = .TRUE. IF ( chem_index_table( PARAM_terp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp = chem_num_table(idomain) chem_index_table( PARAM_terp , idomain ) = P_terp ELSE P_terp = chem_index_table( PARAM_terp , idomain ) END IF chem_boundary_table( idomain, P_terp ) = .TRUE. chem_dname_table( idomain, P_terp ) = 'terp' chem_desc_table( idomain, P_terp ) = 'TERP mixing ratio' chem_units_table( idomain, P_terp ) = 'ppmv' chem_streams_table( idomain, P_terp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terp )%stream(2) = 2097216 ! 00200040 F_terp = .TRUE. IF ( chem_index_table( PARAM_terpaer , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpaer = chem_num_table(idomain) chem_index_table( PARAM_terpaer , idomain ) = P_terpaer ELSE P_terpaer = chem_index_table( PARAM_terpaer , idomain ) END IF chem_boundary_table( idomain, P_terpaer ) = .TRUE. chem_dname_table( idomain, P_terpaer ) = 'terpaer' chem_desc_table( idomain, P_terpaer ) = 'TERPAER concentration' chem_units_table( idomain, P_terpaer ) = 'ppmv' chem_streams_table( idomain, P_terpaer )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terpaer )%stream(2) = 2097216 ! 00200040 F_terpaer = .TRUE. IF ( chem_index_table( PARAM_hum , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hum = chem_num_table(idomain) chem_index_table( PARAM_hum , idomain ) = P_hum ELSE P_hum = chem_index_table( PARAM_hum , idomain ) END IF chem_boundary_table( idomain, P_hum ) = .TRUE. chem_dname_table( idomain, P_hum ) = 'hum' chem_desc_table( idomain, P_hum ) = 'HUM concentration' chem_units_table( idomain, P_hum ) = 'ppmv' chem_streams_table( idomain, P_hum )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hum )%stream(2) = 2097216 ! 00200040 F_hum = .TRUE. IF ( chem_index_table( PARAM_humaer , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_humaer = chem_num_table(idomain) chem_index_table( PARAM_humaer , idomain ) = P_humaer ELSE P_humaer = chem_index_table( PARAM_humaer , idomain ) END IF chem_boundary_table( idomain, P_humaer ) = .TRUE. chem_dname_table( idomain, P_humaer ) = 'humaer' chem_desc_table( idomain, P_humaer ) = 'HUMAER concentration' chem_units_table( idomain, P_humaer ) = 'ppmv' chem_streams_table( idomain, P_humaer )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_humaer )%stream(2) = 2097216 ! 00200040 F_humaer = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 ! 00200040 F_lim = .TRUE. IF ( chem_index_table( PARAM_limaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_limaer1 = chem_num_table(idomain) chem_index_table( PARAM_limaer1 , idomain ) = P_limaer1 ELSE P_limaer1 = chem_index_table( PARAM_limaer1 , idomain ) END IF chem_boundary_table( idomain, P_limaer1 ) = .TRUE. chem_dname_table( idomain, P_limaer1 ) = 'limaer1' chem_desc_table( idomain, P_limaer1 ) = 'LIMAER1 concentration' chem_units_table( idomain, P_limaer1 ) = 'ppmv' chem_streams_table( idomain, P_limaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_limaer1 )%stream(2) = 2097216 ! 00200040 F_limaer1 = .TRUE. IF ( chem_index_table( PARAM_limaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_limaer2 = chem_num_table(idomain) chem_index_table( PARAM_limaer2 , idomain ) = P_limaer2 ELSE P_limaer2 = chem_index_table( PARAM_limaer2 , idomain ) END IF chem_boundary_table( idomain, P_limaer2 ) = .TRUE. chem_dname_table( idomain, P_limaer2 ) = 'limaer2' chem_desc_table( idomain, P_limaer2 ) = 'LIMAER2 concentration' chem_units_table( idomain, P_limaer2 ) = 'ppmv' chem_streams_table( idomain, P_limaer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_limaer2 )%stream(2) = 2097216 ! 00200040 F_limaer2 = .TRUE. IF ( chem_index_table( PARAM_oci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oci = chem_num_table(idomain) chem_index_table( PARAM_oci , idomain ) = P_oci ELSE P_oci = chem_index_table( PARAM_oci , idomain ) END IF chem_boundary_table( idomain, P_oci ) = .TRUE. chem_dname_table( idomain, P_oci ) = 'oci' chem_desc_table( idomain, P_oci ) = 'OCI concentration' chem_units_table( idomain, P_oci ) = 'ppmv' chem_streams_table( idomain, P_oci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oci )%stream(2) = 2097216 ! 00200040 F_oci = .TRUE. IF ( chem_index_table( PARAM_ociaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ociaer1 = chem_num_table(idomain) chem_index_table( PARAM_ociaer1 , idomain ) = P_ociaer1 ELSE P_ociaer1 = chem_index_table( PARAM_ociaer1 , idomain ) END IF chem_boundary_table( idomain, P_ociaer1 ) = .TRUE. chem_dname_table( idomain, P_ociaer1 ) = 'ociaer1' chem_desc_table( idomain, P_ociaer1 ) = 'OCIAER1 concentration' chem_units_table( idomain, P_ociaer1 ) = 'ppmv' chem_streams_table( idomain, P_ociaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ociaer1 )%stream(2) = 2097216 ! 00200040 F_ociaer1 = .TRUE. IF ( chem_index_table( PARAM_ociaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ociaer2 = chem_num_table(idomain) chem_index_table( PARAM_ociaer2 , idomain ) = P_ociaer2 ELSE P_ociaer2 = chem_index_table( PARAM_ociaer2 , idomain ) END IF chem_boundary_table( idomain, P_ociaer2 ) = .TRUE. chem_dname_table( idomain, P_ociaer2 ) = 'ociaer2' chem_desc_table( idomain, P_ociaer2 ) = 'OCIAER2 concentration' chem_units_table( idomain, P_ociaer2 ) = 'ppmv' chem_streams_table( idomain, P_ociaer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ociaer2 )%stream(2) = 2097216 ! 00200040 F_ociaer2 = .TRUE. IF ( chem_index_table( PARAM_apin , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apin = chem_num_table(idomain) chem_index_table( PARAM_apin , idomain ) = P_apin ELSE P_apin = chem_index_table( PARAM_apin , idomain ) END IF chem_boundary_table( idomain, P_apin ) = .TRUE. chem_dname_table( idomain, P_apin ) = 'apin' chem_desc_table( idomain, P_apin ) = 'APIN mixing ratio' chem_units_table( idomain, P_apin ) = 'ppmv' chem_streams_table( idomain, P_apin )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_apin )%stream(2) = 2097216 ! 00200040 F_apin = .TRUE. IF ( chem_index_table( PARAM_apinaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinaer1 = chem_num_table(idomain) chem_index_table( PARAM_apinaer1 , idomain ) = P_apinaer1 ELSE P_apinaer1 = chem_index_table( PARAM_apinaer1 , idomain ) END IF chem_boundary_table( idomain, P_apinaer1 ) = .TRUE. chem_dname_table( idomain, P_apinaer1 ) = 'apinaer1' chem_desc_table( idomain, P_apinaer1 ) = 'APINAER1 concentration' chem_units_table( idomain, P_apinaer1 ) = 'ppmv' chem_streams_table( idomain, P_apinaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_apinaer1 )%stream(2) = 2097216 ! 00200040 F_apinaer1 = .TRUE. IF ( chem_index_table( PARAM_apinaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinaer2 = chem_num_table(idomain) chem_index_table( PARAM_apinaer2 , idomain ) = P_apinaer2 ELSE P_apinaer2 = chem_index_table( PARAM_apinaer2 , idomain ) END IF chem_boundary_table( idomain, P_apinaer2 ) = .TRUE. chem_dname_table( idomain, P_apinaer2 ) = 'apinaer2' chem_desc_table( idomain, P_apinaer2 ) = 'APINAER2 concentration' chem_units_table( idomain, P_apinaer2 ) = 'ppmv' chem_streams_table( idomain, P_apinaer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_apinaer2 )%stream(2) = 2097216 ! 00200040 F_apinaer2 = .TRUE. IF ( chem_index_table( PARAM_apinaer3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinaer3 = chem_num_table(idomain) chem_index_table( PARAM_apinaer3 , idomain ) = P_apinaer3 ELSE P_apinaer3 = chem_index_table( PARAM_apinaer3 , idomain ) END IF chem_boundary_table( idomain, P_apinaer3 ) = .TRUE. chem_dname_table( idomain, P_apinaer3 ) = 'apinaer3' chem_desc_table( idomain, P_apinaer3 ) = 'APINAER3 concentration' chem_units_table( idomain, P_apinaer3 ) = 'ppmv' chem_streams_table( idomain, P_apinaer3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_apinaer3 )%stream(2) = 2097216 ! 00200040 F_apinaer3 = .TRUE. IF ( chem_index_table( PARAM_apinaer4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinaer4 = chem_num_table(idomain) chem_index_table( PARAM_apinaer4 , idomain ) = P_apinaer4 ELSE P_apinaer4 = chem_index_table( PARAM_apinaer4 , idomain ) END IF chem_boundary_table( idomain, P_apinaer4 ) = .TRUE. chem_dname_table( idomain, P_apinaer4 ) = 'apinaer4' chem_desc_table( idomain, P_apinaer4 ) = 'APINAER4 concentration' chem_units_table( idomain, P_apinaer4 ) = 'ppmv' chem_streams_table( idomain, P_apinaer4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_apinaer4 )%stream(2) = 2097216 ! 00200040 F_apinaer4 = .TRUE. IF ( chem_index_table( PARAM_bpin , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpin = chem_num_table(idomain) chem_index_table( PARAM_bpin , idomain ) = P_bpin ELSE P_bpin = chem_index_table( PARAM_bpin , idomain ) END IF chem_boundary_table( idomain, P_bpin ) = .TRUE. chem_dname_table( idomain, P_bpin ) = 'bpin' chem_desc_table( idomain, P_bpin ) = 'BPIN mixing ratio' chem_units_table( idomain, P_bpin ) = 'ppmv' chem_streams_table( idomain, P_bpin )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpin )%stream(2) = 2097216 ! 00200040 F_bpin = .TRUE. IF ( chem_index_table( PARAM_bpinaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer1 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer1 , idomain ) = P_bpinaer1 ELSE P_bpinaer1 = chem_index_table( PARAM_bpinaer1 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer1 ) = .TRUE. chem_dname_table( idomain, P_bpinaer1 ) = 'bpinaer1' chem_desc_table( idomain, P_bpinaer1 ) = 'BPINAER1 concentration' chem_units_table( idomain, P_bpinaer1 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpinaer1 )%stream(2) = 2097216 ! 00200040 F_bpinaer1 = .TRUE. IF ( chem_index_table( PARAM_bpinaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer2 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer2 , idomain ) = P_bpinaer2 ELSE P_bpinaer2 = chem_index_table( PARAM_bpinaer2 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer2 ) = .TRUE. chem_dname_table( idomain, P_bpinaer2 ) = 'bpinaer2' chem_desc_table( idomain, P_bpinaer2 ) = 'BPINAER2 concentration' chem_units_table( idomain, P_bpinaer2 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpinaer2 )%stream(2) = 2097216 ! 00200040 F_bpinaer2 = .TRUE. IF ( chem_index_table( PARAM_bpinaer3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer3 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer3 , idomain ) = P_bpinaer3 ELSE P_bpinaer3 = chem_index_table( PARAM_bpinaer3 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer3 ) = .TRUE. chem_dname_table( idomain, P_bpinaer3 ) = 'bpinaer3' chem_desc_table( idomain, P_bpinaer3 ) = 'BPINAER3 concentration' chem_units_table( idomain, P_bpinaer3 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpinaer3 )%stream(2) = 2097216 ! 00200040 F_bpinaer3 = .TRUE. IF ( chem_index_table( PARAM_bpinaer4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer4 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer4 , idomain ) = P_bpinaer4 ELSE P_bpinaer4 = chem_index_table( PARAM_bpinaer4 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer4 ) = .TRUE. chem_dname_table( idomain, P_bpinaer4 ) = 'bpinaer4' chem_desc_table( idomain, P_bpinaer4 ) = 'BPINAER4 concentration' chem_units_table( idomain, P_bpinaer4 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpinaer4 )%stream(2) = 2097216 ! 00200040 F_bpinaer4 = .TRUE. IF ( chem_index_table( PARAM_bpinaer5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer5 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer5 , idomain ) = P_bpinaer5 ELSE P_bpinaer5 = chem_index_table( PARAM_bpinaer5 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer5 ) = .TRUE. chem_dname_table( idomain, P_bpinaer5 ) = 'bpinaer5' chem_desc_table( idomain, P_bpinaer5 ) = 'BPINAER5 concentration' chem_units_table( idomain, P_bpinaer5 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpinaer5 )%stream(2) = 2097216 ! 00200040 F_bpinaer5 = .TRUE. IF ( chem_index_table( PARAM_ter , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ter = chem_num_table(idomain) chem_index_table( PARAM_ter , idomain ) = P_ter ELSE P_ter = chem_index_table( PARAM_ter , idomain ) END IF chem_boundary_table( idomain, P_ter ) = .TRUE. chem_dname_table( idomain, P_ter ) = 'ter' chem_desc_table( idomain, P_ter ) = 'TER concentration' chem_units_table( idomain, P_ter ) = 'ppmv' chem_streams_table( idomain, P_ter )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ter )%stream(2) = 2097216 ! 00200040 F_ter = .TRUE. IF ( chem_index_table( PARAM_teraer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_teraer1 = chem_num_table(idomain) chem_index_table( PARAM_teraer1 , idomain ) = P_teraer1 ELSE P_teraer1 = chem_index_table( PARAM_teraer1 , idomain ) END IF chem_boundary_table( idomain, P_teraer1 ) = .TRUE. chem_dname_table( idomain, P_teraer1 ) = 'teraer1' chem_desc_table( idomain, P_teraer1 ) = 'TERAER1 concentration' chem_units_table( idomain, P_teraer1 ) = 'ppmv' chem_streams_table( idomain, P_teraer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_teraer1 )%stream(2) = 2097216 ! 00200040 F_teraer1 = .TRUE. IF ( chem_index_table( PARAM_teraer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_teraer2 = chem_num_table(idomain) chem_index_table( PARAM_teraer2 , idomain ) = P_teraer2 ELSE P_teraer2 = chem_index_table( PARAM_teraer2 , idomain ) END IF chem_boundary_table( idomain, P_teraer2 ) = .TRUE. chem_dname_table( idomain, P_teraer2 ) = 'teraer2' chem_desc_table( idomain, P_teraer2 ) = 'TERAER2 concentration' chem_units_table( idomain, P_teraer2 ) = 'ppmv' chem_streams_table( idomain, P_teraer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_teraer2 )%stream(2) = 2097216 ! 00200040 F_teraer2 = .TRUE. IF ( chem_index_table( PARAM_alkh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alkh = chem_num_table(idomain) chem_index_table( PARAM_alkh , idomain ) = P_alkh ELSE P_alkh = chem_index_table( PARAM_alkh , idomain ) END IF chem_boundary_table( idomain, P_alkh ) = .TRUE. chem_dname_table( idomain, P_alkh ) = 'alkh' chem_desc_table( idomain, P_alkh ) = 'ALKH concentration' chem_units_table( idomain, P_alkh ) = 'ppmv' chem_streams_table( idomain, P_alkh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alkh )%stream(2) = 2097216 ! 00200040 F_alkh = .TRUE. IF ( chem_index_table( PARAM_alkhaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alkhaer1 = chem_num_table(idomain) chem_index_table( PARAM_alkhaer1 , idomain ) = P_alkhaer1 ELSE P_alkhaer1 = chem_index_table( PARAM_alkhaer1 , idomain ) END IF chem_boundary_table( idomain, P_alkhaer1 ) = .TRUE. chem_dname_table( idomain, P_alkhaer1 ) = 'alkhaer1' chem_desc_table( idomain, P_alkhaer1 ) = 'ALKHAER1 concentration' chem_units_table( idomain, P_alkhaer1 ) = 'ppmv' chem_streams_table( idomain, P_alkhaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alkhaer1 )%stream(2) = 2097216 ! 00200040 F_alkhaer1 = .TRUE. IF ( chem_index_table( PARAM_pah , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pah = chem_num_table(idomain) chem_index_table( PARAM_pah , idomain ) = P_pah ELSE P_pah = chem_index_table( PARAM_pah , idomain ) END IF chem_boundary_table( idomain, P_pah ) = .TRUE. chem_dname_table( idomain, P_pah ) = 'pah' chem_desc_table( idomain, P_pah ) = 'PAH concentration' chem_units_table( idomain, P_pah ) = 'ppmv' chem_streams_table( idomain, P_pah )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pah )%stream(2) = 2097216 ! 00200040 F_pah = .TRUE. IF ( chem_index_table( PARAM_pahaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pahaer1 = chem_num_table(idomain) chem_index_table( PARAM_pahaer1 , idomain ) = P_pahaer1 ELSE P_pahaer1 = chem_index_table( PARAM_pahaer1 , idomain ) END IF chem_boundary_table( idomain, P_pahaer1 ) = .TRUE. chem_dname_table( idomain, P_pahaer1 ) = 'pahaer1' chem_desc_table( idomain, P_pahaer1 ) = 'PAHAER1 concentration' chem_units_table( idomain, P_pahaer1 ) = 'ppmv' chem_streams_table( idomain, P_pahaer1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pahaer1 )%stream(2) = 2097216 ! 00200040 F_pahaer1 = .TRUE. IF ( chem_index_table( PARAM_pahaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pahaer2 = chem_num_table(idomain) chem_index_table( PARAM_pahaer2 , idomain ) = P_pahaer2 ELSE P_pahaer2 = chem_index_table( PARAM_pahaer2 , idomain ) END IF chem_boundary_table( idomain, P_pahaer2 ) = .TRUE. chem_dname_table( idomain, P_pahaer2 ) = 'pahaer2' chem_desc_table( idomain, P_pahaer2 ) = 'PAHAER2 concentration' chem_units_table( idomain, P_pahaer2 ) = 'ppmv' chem_streams_table( idomain, P_pahaer2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pahaer2 )%stream(2) = 2097216 ! 00200040 F_pahaer2 = .TRUE. IF ( chem_index_table( PARAM_h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2 = chem_num_table(idomain) chem_index_table( PARAM_h2 , idomain ) = P_h2 ELSE P_h2 = chem_index_table( PARAM_h2 , idomain ) END IF chem_boundary_table( idomain, P_h2 ) = .TRUE. chem_dname_table( idomain, P_h2 ) = 'h2' chem_desc_table( idomain, P_h2 ) = 'H2 mixing ratio' chem_units_table( idomain, P_h2 ) = 'ppmv' chem_streams_table( idomain, P_h2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2 )%stream(2) = 2097216 ! 00200040 F_h2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_cl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl = chem_num_table(idomain) chem_index_table( PARAM_cl , idomain ) = P_cl ELSE P_cl = chem_index_table( PARAM_cl , idomain ) END IF chem_boundary_table( idomain, P_cl ) = .TRUE. chem_dname_table( idomain, P_cl ) = 'cl' chem_desc_table( idomain, P_cl ) = 'CL concentration' chem_units_table( idomain, P_cl ) = 'ppmv' chem_streams_table( idomain, P_cl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl )%stream(2) = 2097216 ! 00200040 F_cl = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_fmcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_fmcl = chem_num_table(idomain) chem_index_table( PARAM_fmcl , idomain ) = P_fmcl ELSE P_fmcl = chem_index_table( PARAM_fmcl , idomain ) END IF chem_boundary_table( idomain, P_fmcl ) = .TRUE. chem_dname_table( idomain, P_fmcl ) = 'fmcl' chem_desc_table( idomain, P_fmcl ) = 'FMCL concentration' chem_units_table( idomain, P_fmcl ) = 'ppmv' chem_streams_table( idomain, P_fmcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_fmcl )%stream(2) = 2097216 ! 00200040 F_fmcl = .TRUE. IF ( chem_index_table( PARAM_hg0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hg0 = chem_num_table(idomain) chem_index_table( PARAM_hg0 , idomain ) = P_hg0 ELSE P_hg0 = chem_index_table( PARAM_hg0 , idomain ) END IF chem_boundary_table( idomain, P_hg0 ) = .TRUE. chem_dname_table( idomain, P_hg0 ) = 'hg0' chem_desc_table( idomain, P_hg0 ) = 'HG0 concentration' chem_units_table( idomain, P_hg0 ) = 'ppmv' chem_streams_table( idomain, P_hg0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hg0 )%stream(2) = 2097216 ! 00200040 F_hg0 = .TRUE. IF ( chem_index_table( PARAM_hg2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hg2 = chem_num_table(idomain) chem_index_table( PARAM_hg2 , idomain ) = P_hg2 ELSE P_hg2 = chem_index_table( PARAM_hg2 , idomain ) END IF chem_boundary_table( idomain, P_hg2 ) = .TRUE. chem_dname_table( idomain, P_hg2 ) = 'hg2' chem_desc_table( idomain, P_hg2 ) = 'HG2 concentration' chem_units_table( idomain, P_hg2 ) = 'ppmv' chem_streams_table( idomain, P_hg2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hg2 )%stream(2) = 2097216 ! 00200040 F_hg2 = .TRUE. IF ( chem_index_table( PARAM_hocl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hocl = chem_num_table(idomain) chem_index_table( PARAM_hocl , idomain ) = P_hocl ELSE P_hocl = chem_index_table( PARAM_hocl , idomain ) END IF chem_boundary_table( idomain, P_hocl ) = .TRUE. chem_dname_table( idomain, P_hocl ) = 'hocl' chem_desc_table( idomain, P_hocl ) = 'HOCL concentration' chem_units_table( idomain, P_hocl ) = 'ppmv' chem_streams_table( idomain, P_hocl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hocl )%stream(2) = 2097216 ! 00200040 F_hocl = .TRUE. IF ( chem_index_table( PARAM_clo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clo = chem_num_table(idomain) chem_index_table( PARAM_clo , idomain ) = P_clo ELSE P_clo = chem_index_table( PARAM_clo , idomain ) END IF chem_boundary_table( idomain, P_clo ) = .TRUE. chem_dname_table( idomain, P_clo ) = 'clo' chem_desc_table( idomain, P_clo ) = 'CLO concentration' chem_units_table( idomain, P_clo ) = 'ppmv' chem_streams_table( idomain, P_clo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clo )%stream(2) = 2097216 ! 00200040 F_clo = .TRUE. IF ( chem_index_table( PARAM_cl2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl2 = chem_num_table(idomain) chem_index_table( PARAM_cl2 , idomain ) = P_cl2 ELSE P_cl2 = chem_index_table( PARAM_cl2 , idomain ) END IF chem_boundary_table( idomain, P_cl2 ) = .TRUE. chem_dname_table( idomain, P_cl2 ) = 'cl2' chem_desc_table( idomain, P_cl2 ) = 'CL2 concentration' chem_units_table( idomain, P_cl2 ) = 'ppmv' chem_streams_table( idomain, P_cl2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl2 )%stream(2) = 2097216 ! 00200040 F_cl2 = .TRUE. IF ( chem_index_table( PARAM_cvasoa1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa1 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa1 , idomain ) = P_cvasoa1 ELSE P_cvasoa1 = chem_index_table( PARAM_cvasoa1 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa1 ) = .TRUE. chem_dname_table( idomain, P_cvasoa1 ) = 'cvasoa1' chem_desc_table( idomain, P_cvasoa1 ) = 'cond.vapor from ASOA1' chem_units_table( idomain, P_cvasoa1 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoa1 )%stream(2) = 2097216 ! 00200040 F_cvasoa1 = .TRUE. IF ( chem_index_table( PARAM_cvasoa2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa2 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa2 , idomain ) = P_cvasoa2 ELSE P_cvasoa2 = chem_index_table( PARAM_cvasoa2 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa2 ) = .TRUE. chem_dname_table( idomain, P_cvasoa2 ) = 'cvasoa2' chem_desc_table( idomain, P_cvasoa2 ) = 'cond.vapor from ASOA2' chem_units_table( idomain, P_cvasoa2 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoa2 )%stream(2) = 2097216 ! 00200040 F_cvasoa2 = .TRUE. IF ( chem_index_table( PARAM_cvasoa3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa3 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa3 , idomain ) = P_cvasoa3 ELSE P_cvasoa3 = chem_index_table( PARAM_cvasoa3 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa3 ) = .TRUE. chem_dname_table( idomain, P_cvasoa3 ) = 'cvasoa3' chem_desc_table( idomain, P_cvasoa3 ) = 'cond.vapor from ASOA3' chem_units_table( idomain, P_cvasoa3 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoa3 )%stream(2) = 2097216 ! 00200040 F_cvasoa3 = .TRUE. IF ( chem_index_table( PARAM_cvasoa4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa4 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa4 , idomain ) = P_cvasoa4 ELSE P_cvasoa4 = chem_index_table( PARAM_cvasoa4 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa4 ) = .TRUE. chem_dname_table( idomain, P_cvasoa4 ) = 'cvasoa4' chem_desc_table( idomain, P_cvasoa4 ) = 'cond.vapor from ASOA4' chem_units_table( idomain, P_cvasoa4 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoa4 )%stream(2) = 2097216 ! 00200040 F_cvasoa4 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa1 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa1 , idomain ) = P_cvbsoa1 ELSE P_cvbsoa1 = chem_index_table( PARAM_cvbsoa1 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa1 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa1 ) = 'cvbsoa1' chem_desc_table( idomain, P_cvbsoa1 ) = 'cond.vapor from BSOA1' chem_units_table( idomain, P_cvbsoa1 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoa1 )%stream(2) = 2097216 ! 00200040 F_cvbsoa1 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa2 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa2 , idomain ) = P_cvbsoa2 ELSE P_cvbsoa2 = chem_index_table( PARAM_cvbsoa2 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa2 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa2 ) = 'cvbsoa2' chem_desc_table( idomain, P_cvbsoa2 ) = 'cond.vapor from BSOA2' chem_units_table( idomain, P_cvbsoa2 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoa2 )%stream(2) = 2097216 ! 00200040 F_cvbsoa2 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa3 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa3 , idomain ) = P_cvbsoa3 ELSE P_cvbsoa3 = chem_index_table( PARAM_cvbsoa3 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa3 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa3 ) = 'cvbsoa3' chem_desc_table( idomain, P_cvbsoa3 ) = 'cond.vapor from BSOA3' chem_units_table( idomain, P_cvbsoa3 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoa3 )%stream(2) = 2097216 ! 00200040 F_cvbsoa3 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa4 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa4 , idomain ) = P_cvbsoa4 ELSE P_cvbsoa4 = chem_index_table( PARAM_cvbsoa4 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa4 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa4 ) = 'cvbsoa4' chem_desc_table( idomain, P_cvbsoa4 ) = 'cond.vapor from BSOA4' chem_units_table( idomain, P_cvbsoa4 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoa4 )%stream(2) = 2097216 ! 00200040 F_cvbsoa4 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 ! 00200040 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 ! 00200040 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 ! 00200040 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 ! 00200040 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 ! 00200040 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 ! 00200040 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 ! 00200040 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 ! 00200040 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 ! 00200040 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 ! 00200040 F_clai = .TRUE. IF ( chem_index_table( PARAM_asoa1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1j = chem_num_table(idomain) chem_index_table( PARAM_asoa1j , idomain ) = P_asoa1j ELSE P_asoa1j = chem_index_table( PARAM_asoa1j , idomain ) END IF chem_boundary_table( idomain, P_asoa1j ) = .TRUE. chem_dname_table( idomain, P_asoa1j ) = 'asoa1j' chem_desc_table( idomain, P_asoa1j ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1j )%stream(2) = 2097216 ! 00200040 F_asoa1j = .TRUE. IF ( chem_index_table( PARAM_asoa1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1i = chem_num_table(idomain) chem_index_table( PARAM_asoa1i , idomain ) = P_asoa1i ELSE P_asoa1i = chem_index_table( PARAM_asoa1i , idomain ) END IF chem_boundary_table( idomain, P_asoa1i ) = .TRUE. chem_dname_table( idomain, P_asoa1i ) = 'asoa1i' chem_desc_table( idomain, P_asoa1i ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1i )%stream(2) = 2097216 ! 00200040 F_asoa1i = .TRUE. IF ( chem_index_table( PARAM_asoa2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2j = chem_num_table(idomain) chem_index_table( PARAM_asoa2j , idomain ) = P_asoa2j ELSE P_asoa2j = chem_index_table( PARAM_asoa2j , idomain ) END IF chem_boundary_table( idomain, P_asoa2j ) = .TRUE. chem_dname_table( idomain, P_asoa2j ) = 'asoa2j' chem_desc_table( idomain, P_asoa2j ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2j )%stream(2) = 2097216 ! 00200040 F_asoa2j = .TRUE. IF ( chem_index_table( PARAM_asoa2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2i = chem_num_table(idomain) chem_index_table( PARAM_asoa2i , idomain ) = P_asoa2i ELSE P_asoa2i = chem_index_table( PARAM_asoa2i , idomain ) END IF chem_boundary_table( idomain, P_asoa2i ) = .TRUE. chem_dname_table( idomain, P_asoa2i ) = 'asoa2i' chem_desc_table( idomain, P_asoa2i ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2i )%stream(2) = 2097216 ! 00200040 F_asoa2i = .TRUE. IF ( chem_index_table( PARAM_asoa3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3j = chem_num_table(idomain) chem_index_table( PARAM_asoa3j , idomain ) = P_asoa3j ELSE P_asoa3j = chem_index_table( PARAM_asoa3j , idomain ) END IF chem_boundary_table( idomain, P_asoa3j ) = .TRUE. chem_dname_table( idomain, P_asoa3j ) = 'asoa3j' chem_desc_table( idomain, P_asoa3j ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3j )%stream(2) = 2097216 ! 00200040 F_asoa3j = .TRUE. IF ( chem_index_table( PARAM_asoa3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3i = chem_num_table(idomain) chem_index_table( PARAM_asoa3i , idomain ) = P_asoa3i ELSE P_asoa3i = chem_index_table( PARAM_asoa3i , idomain ) END IF chem_boundary_table( idomain, P_asoa3i ) = .TRUE. chem_dname_table( idomain, P_asoa3i ) = 'asoa3i' chem_desc_table( idomain, P_asoa3i ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3i )%stream(2) = 2097216 ! 00200040 F_asoa3i = .TRUE. IF ( chem_index_table( PARAM_asoa4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4j = chem_num_table(idomain) chem_index_table( PARAM_asoa4j , idomain ) = P_asoa4j ELSE P_asoa4j = chem_index_table( PARAM_asoa4j , idomain ) END IF chem_boundary_table( idomain, P_asoa4j ) = .TRUE. chem_dname_table( idomain, P_asoa4j ) = 'asoa4j' chem_desc_table( idomain, P_asoa4j ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4j )%stream(2) = 2097216 ! 00200040 F_asoa4j = .TRUE. IF ( chem_index_table( PARAM_asoa4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4i = chem_num_table(idomain) chem_index_table( PARAM_asoa4i , idomain ) = P_asoa4i ELSE P_asoa4i = chem_index_table( PARAM_asoa4i , idomain ) END IF chem_boundary_table( idomain, P_asoa4i ) = .TRUE. chem_dname_table( idomain, P_asoa4i ) = 'asoa4i' chem_desc_table( idomain, P_asoa4i ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4i )%stream(2) = 2097216 ! 00200040 F_asoa4i = .TRUE. IF ( chem_index_table( PARAM_bsoa1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1j = chem_num_table(idomain) chem_index_table( PARAM_bsoa1j , idomain ) = P_bsoa1j ELSE P_bsoa1j = chem_index_table( PARAM_bsoa1j , idomain ) END IF chem_boundary_table( idomain, P_bsoa1j ) = .TRUE. chem_dname_table( idomain, P_bsoa1j ) = 'bsoa1j' chem_desc_table( idomain, P_bsoa1j ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1j )%stream(2) = 2097216 ! 00200040 F_bsoa1j = .TRUE. IF ( chem_index_table( PARAM_bsoa1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1i = chem_num_table(idomain) chem_index_table( PARAM_bsoa1i , idomain ) = P_bsoa1i ELSE P_bsoa1i = chem_index_table( PARAM_bsoa1i , idomain ) END IF chem_boundary_table( idomain, P_bsoa1i ) = .TRUE. chem_dname_table( idomain, P_bsoa1i ) = 'bsoa1i' chem_desc_table( idomain, P_bsoa1i ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1i )%stream(2) = 2097216 ! 00200040 F_bsoa1i = .TRUE. IF ( chem_index_table( PARAM_bsoa2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2j = chem_num_table(idomain) chem_index_table( PARAM_bsoa2j , idomain ) = P_bsoa2j ELSE P_bsoa2j = chem_index_table( PARAM_bsoa2j , idomain ) END IF chem_boundary_table( idomain, P_bsoa2j ) = .TRUE. chem_dname_table( idomain, P_bsoa2j ) = 'bsoa2j' chem_desc_table( idomain, P_bsoa2j ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2j )%stream(2) = 2097216 ! 00200040 F_bsoa2j = .TRUE. IF ( chem_index_table( PARAM_bsoa2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2i = chem_num_table(idomain) chem_index_table( PARAM_bsoa2i , idomain ) = P_bsoa2i ELSE P_bsoa2i = chem_index_table( PARAM_bsoa2i , idomain ) END IF chem_boundary_table( idomain, P_bsoa2i ) = .TRUE. chem_dname_table( idomain, P_bsoa2i ) = 'bsoa2i' chem_desc_table( idomain, P_bsoa2i ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2i )%stream(2) = 2097216 ! 00200040 F_bsoa2i = .TRUE. IF ( chem_index_table( PARAM_bsoa3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3j = chem_num_table(idomain) chem_index_table( PARAM_bsoa3j , idomain ) = P_bsoa3j ELSE P_bsoa3j = chem_index_table( PARAM_bsoa3j , idomain ) END IF chem_boundary_table( idomain, P_bsoa3j ) = .TRUE. chem_dname_table( idomain, P_bsoa3j ) = 'bsoa3j' chem_desc_table( idomain, P_bsoa3j ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3j )%stream(2) = 2097216 ! 00200040 F_bsoa3j = .TRUE. IF ( chem_index_table( PARAM_bsoa3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3i = chem_num_table(idomain) chem_index_table( PARAM_bsoa3i , idomain ) = P_bsoa3i ELSE P_bsoa3i = chem_index_table( PARAM_bsoa3i , idomain ) END IF chem_boundary_table( idomain, P_bsoa3i ) = .TRUE. chem_dname_table( idomain, P_bsoa3i ) = 'bsoa3i' chem_desc_table( idomain, P_bsoa3i ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3i )%stream(2) = 2097216 ! 00200040 F_bsoa3i = .TRUE. IF ( chem_index_table( PARAM_bsoa4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4j = chem_num_table(idomain) chem_index_table( PARAM_bsoa4j , idomain ) = P_bsoa4j ELSE P_bsoa4j = chem_index_table( PARAM_bsoa4j , idomain ) END IF chem_boundary_table( idomain, P_bsoa4j ) = .TRUE. chem_dname_table( idomain, P_bsoa4j ) = 'bsoa4j' chem_desc_table( idomain, P_bsoa4j ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4j )%stream(2) = 2097216 ! 00200040 F_bsoa4j = .TRUE. IF ( chem_index_table( PARAM_bsoa4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4i = chem_num_table(idomain) chem_index_table( PARAM_bsoa4i , idomain ) = P_bsoa4i ELSE P_bsoa4i = chem_index_table( PARAM_bsoa4i , idomain ) END IF chem_boundary_table( idomain, P_bsoa4i ) = .TRUE. chem_dname_table( idomain, P_bsoa4i ) = 'bsoa4i' chem_desc_table( idomain, P_bsoa4i ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4i )%stream(2) = 2097216 ! 00200040 F_bsoa4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 ! 00200040 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 ! 00200040 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 ! 00200040 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 ! 00200040 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 ! 00200040 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 ! 00200040 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 ! 00200040 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 ! 00200040 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 ! 00200040 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 ! 00200040 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 ! 00200040 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 ! 00200040 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 ! 00200040 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 ! 00200040 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 ! 00200040 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 ! 00200040 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 ! 00200040 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 ! 00200040 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 ! 00200040 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 ! 00200040 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 ! 00200040 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 ! 00200040 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_asoa1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa1cwj , idomain ) = P_asoa1cwj ELSE P_asoa1cwj = chem_index_table( PARAM_asoa1cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa1cwj ) = .TRUE. chem_dname_table( idomain, P_asoa1cwj ) = 'asoa1cwj' chem_desc_table( idomain, P_asoa1cwj ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1cwj )%stream(2) = 2097216 ! 00200040 F_asoa1cwj = .TRUE. IF ( chem_index_table( PARAM_asoa1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa1cwi , idomain ) = P_asoa1cwi ELSE P_asoa1cwi = chem_index_table( PARAM_asoa1cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa1cwi ) = .TRUE. chem_dname_table( idomain, P_asoa1cwi ) = 'asoa1cwi' chem_desc_table( idomain, P_asoa1cwi ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1cwi )%stream(2) = 2097216 ! 00200040 F_asoa1cwi = .TRUE. IF ( chem_index_table( PARAM_asoa2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa2cwj , idomain ) = P_asoa2cwj ELSE P_asoa2cwj = chem_index_table( PARAM_asoa2cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa2cwj ) = .TRUE. chem_dname_table( idomain, P_asoa2cwj ) = 'asoa2cwj' chem_desc_table( idomain, P_asoa2cwj ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2cwj )%stream(2) = 2097216 ! 00200040 F_asoa2cwj = .TRUE. IF ( chem_index_table( PARAM_asoa2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa2cwi , idomain ) = P_asoa2cwi ELSE P_asoa2cwi = chem_index_table( PARAM_asoa2cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa2cwi ) = .TRUE. chem_dname_table( idomain, P_asoa2cwi ) = 'asoa2cwi' chem_desc_table( idomain, P_asoa2cwi ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2cwi )%stream(2) = 2097216 ! 00200040 F_asoa2cwi = .TRUE. IF ( chem_index_table( PARAM_asoa3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa3cwj , idomain ) = P_asoa3cwj ELSE P_asoa3cwj = chem_index_table( PARAM_asoa3cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa3cwj ) = .TRUE. chem_dname_table( idomain, P_asoa3cwj ) = 'asoa3cwj' chem_desc_table( idomain, P_asoa3cwj ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3cwj )%stream(2) = 2097216 ! 00200040 F_asoa3cwj = .TRUE. IF ( chem_index_table( PARAM_asoa3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa3cwi , idomain ) = P_asoa3cwi ELSE P_asoa3cwi = chem_index_table( PARAM_asoa3cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa3cwi ) = .TRUE. chem_dname_table( idomain, P_asoa3cwi ) = 'asoa3cwi' chem_desc_table( idomain, P_asoa3cwi ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3cwi )%stream(2) = 2097216 ! 00200040 F_asoa3cwi = .TRUE. IF ( chem_index_table( PARAM_asoa4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa4cwj , idomain ) = P_asoa4cwj ELSE P_asoa4cwj = chem_index_table( PARAM_asoa4cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa4cwj ) = .TRUE. chem_dname_table( idomain, P_asoa4cwj ) = 'asoa4cwj' chem_desc_table( idomain, P_asoa4cwj ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4cwj )%stream(2) = 2097216 ! 00200040 F_asoa4cwj = .TRUE. IF ( chem_index_table( PARAM_asoa4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa4cwi , idomain ) = P_asoa4cwi ELSE P_asoa4cwi = chem_index_table( PARAM_asoa4cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa4cwi ) = .TRUE. chem_dname_table( idomain, P_asoa4cwi ) = 'asoa4cwi' chem_desc_table( idomain, P_asoa4cwi ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4cwi )%stream(2) = 2097216 ! 00200040 F_asoa4cwi = .TRUE. IF ( chem_index_table( PARAM_bsoa1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1cwj = chem_num_table(idomain) chem_index_table( PARAM_bsoa1cwj , idomain ) = P_bsoa1cwj ELSE P_bsoa1cwj = chem_index_table( PARAM_bsoa1cwj , idomain ) END IF chem_boundary_table( idomain, P_bsoa1cwj ) = .TRUE. chem_dname_table( idomain, P_bsoa1cwj ) = 'bsoa1cwj' chem_desc_table( idomain, P_bsoa1cwj ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_bsoa1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1cwj )%stream(2) = 2097216 ! 00200040 F_bsoa1cwj = .TRUE. IF ( chem_index_table( PARAM_bsoa1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1cwi = chem_num_table(idomain) chem_index_table( PARAM_bsoa1cwi , idomain ) = P_bsoa1cwi ELSE P_bsoa1cwi = chem_index_table( PARAM_bsoa1cwi , idomain ) END IF chem_boundary_table( idomain, P_bsoa1cwi ) = .TRUE. chem_dname_table( idomain, P_bsoa1cwi ) = 'bsoa1cwi' chem_desc_table( idomain, P_bsoa1cwi ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_bsoa1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1cwi )%stream(2) = 2097216 ! 00200040 F_bsoa1cwi = .TRUE. IF ( chem_index_table( PARAM_bsoa2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2cwj = chem_num_table(idomain) chem_index_table( PARAM_bsoa2cwj , idomain ) = P_bsoa2cwj ELSE P_bsoa2cwj = chem_index_table( PARAM_bsoa2cwj , idomain ) END IF chem_boundary_table( idomain, P_bsoa2cwj ) = .TRUE. chem_dname_table( idomain, P_bsoa2cwj ) = 'bsoa2cwj' chem_desc_table( idomain, P_bsoa2cwj ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_bsoa2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2cwj )%stream(2) = 2097216 ! 00200040 F_bsoa2cwj = .TRUE. IF ( chem_index_table( PARAM_bsoa2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2cwi = chem_num_table(idomain) chem_index_table( PARAM_bsoa2cwi , idomain ) = P_bsoa2cwi ELSE P_bsoa2cwi = chem_index_table( PARAM_bsoa2cwi , idomain ) END IF chem_boundary_table( idomain, P_bsoa2cwi ) = .TRUE. chem_dname_table( idomain, P_bsoa2cwi ) = 'bsoa2cwi' chem_desc_table( idomain, P_bsoa2cwi ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_bsoa2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2cwi )%stream(2) = 2097216 ! 00200040 F_bsoa2cwi = .TRUE. IF ( chem_index_table( PARAM_bsoa3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3cwj = chem_num_table(idomain) chem_index_table( PARAM_bsoa3cwj , idomain ) = P_bsoa3cwj ELSE P_bsoa3cwj = chem_index_table( PARAM_bsoa3cwj , idomain ) END IF chem_boundary_table( idomain, P_bsoa3cwj ) = .TRUE. chem_dname_table( idomain, P_bsoa3cwj ) = 'bsoa3cwj' chem_desc_table( idomain, P_bsoa3cwj ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_bsoa3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3cwj )%stream(2) = 2097216 ! 00200040 F_bsoa3cwj = .TRUE. IF ( chem_index_table( PARAM_bsoa3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3cwi = chem_num_table(idomain) chem_index_table( PARAM_bsoa3cwi , idomain ) = P_bsoa3cwi ELSE P_bsoa3cwi = chem_index_table( PARAM_bsoa3cwi , idomain ) END IF chem_boundary_table( idomain, P_bsoa3cwi ) = .TRUE. chem_dname_table( idomain, P_bsoa3cwi ) = 'bsoa3cwi' chem_desc_table( idomain, P_bsoa3cwi ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_bsoa3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3cwi )%stream(2) = 2097216 ! 00200040 F_bsoa3cwi = .TRUE. IF ( chem_index_table( PARAM_bsoa4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4cwj = chem_num_table(idomain) chem_index_table( PARAM_bsoa4cwj , idomain ) = P_bsoa4cwj ELSE P_bsoa4cwj = chem_index_table( PARAM_bsoa4cwj , idomain ) END IF chem_boundary_table( idomain, P_bsoa4cwj ) = .TRUE. chem_dname_table( idomain, P_bsoa4cwj ) = 'bsoa4cwj' chem_desc_table( idomain, P_bsoa4cwj ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_bsoa4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4cwj )%stream(2) = 2097216 ! 00200040 F_bsoa4cwj = .TRUE. IF ( chem_index_table( PARAM_bsoa4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4cwi = chem_num_table(idomain) chem_index_table( PARAM_bsoa4cwi , idomain ) = P_bsoa4cwi ELSE P_bsoa4cwi = chem_index_table( PARAM_bsoa4cwi , idomain ) END IF chem_boundary_table( idomain, P_bsoa4cwi ) = .TRUE. chem_dname_table( idomain, P_bsoa4cwi ) = 'bsoa4cwi' chem_desc_table( idomain, P_bsoa4cwi ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_bsoa4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4cwi )%stream(2) = 2097216 ! 00200040 F_bsoa4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 ! 00200040 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 ! 00200040 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 ! 00200040 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 ! 00200040 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 ! 00200040 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 ! 00200040 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 ! 00200040 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 ! 00200040 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 ! 00200040 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 ! 00200040 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 ! 00200040 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 ! 00200040 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==170)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_aro1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1 = chem_num_table(idomain) chem_index_table( PARAM_aro1 , idomain ) = P_aro1 ELSE P_aro1 = chem_index_table( PARAM_aro1 , idomain ) END IF chem_boundary_table( idomain, P_aro1 ) = .TRUE. chem_dname_table( idomain, P_aro1 ) = 'aro1' chem_desc_table( idomain, P_aro1 ) = 'ARO1 mixing ratio' chem_units_table( idomain, P_aro1 ) = 'ppmv' chem_streams_table( idomain, P_aro1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro1 )%stream(2) = 2097216 ! 00200040 F_aro1 = .TRUE. IF ( chem_index_table( PARAM_aro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2 = chem_num_table(idomain) chem_index_table( PARAM_aro2 , idomain ) = P_aro2 ELSE P_aro2 = chem_index_table( PARAM_aro2 , idomain ) END IF chem_boundary_table( idomain, P_aro2 ) = .TRUE. chem_dname_table( idomain, P_aro2 ) = 'aro2' chem_desc_table( idomain, P_aro2 ) = 'ARO2 mixing ratio' chem_units_table( idomain, P_aro2 ) = 'ppmv' chem_streams_table( idomain, P_aro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro2 )%stream(2) = 2097216 ! 00200040 F_aro2 = .TRUE. IF ( chem_index_table( PARAM_alk1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1 = chem_num_table(idomain) chem_index_table( PARAM_alk1 , idomain ) = P_alk1 ELSE P_alk1 = chem_index_table( PARAM_alk1 , idomain ) END IF chem_boundary_table( idomain, P_alk1 ) = .TRUE. chem_dname_table( idomain, P_alk1 ) = 'alk1' chem_desc_table( idomain, P_alk1 ) = 'ALK1 mixing ratio' chem_units_table( idomain, P_alk1 ) = 'ppmv' chem_streams_table( idomain, P_alk1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk1 )%stream(2) = 2097216 ! 00200040 F_alk1 = .TRUE. IF ( chem_index_table( PARAM_ole1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1 = chem_num_table(idomain) chem_index_table( PARAM_ole1 , idomain ) = P_ole1 ELSE P_ole1 = chem_index_table( PARAM_ole1 , idomain ) END IF chem_boundary_table( idomain, P_ole1 ) = .TRUE. chem_dname_table( idomain, P_ole1 ) = 'ole1' chem_desc_table( idomain, P_ole1 ) = 'OLE1 mixing ratio' chem_units_table( idomain, P_ole1 ) = 'ppmv' chem_streams_table( idomain, P_ole1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole1 )%stream(2) = 2097216 ! 00200040 F_ole1 = .TRUE. IF ( chem_index_table( PARAM_api1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1 = chem_num_table(idomain) chem_index_table( PARAM_api1 , idomain ) = P_api1 ELSE P_api1 = chem_index_table( PARAM_api1 , idomain ) END IF chem_boundary_table( idomain, P_api1 ) = .TRUE. chem_dname_table( idomain, P_api1 ) = 'api1' chem_desc_table( idomain, P_api1 ) = 'API1 mixing ratio' chem_units_table( idomain, P_api1 ) = 'ppmv' chem_streams_table( idomain, P_api1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api1 )%stream(2) = 2097216 ! 00200040 F_api1 = .TRUE. IF ( chem_index_table( PARAM_api2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2 = chem_num_table(idomain) chem_index_table( PARAM_api2 , idomain ) = P_api2 ELSE P_api2 = chem_index_table( PARAM_api2 , idomain ) END IF chem_boundary_table( idomain, P_api2 ) = .TRUE. chem_dname_table( idomain, P_api2 ) = 'api2' chem_desc_table( idomain, P_api2 ) = 'API2 mixing ratio' chem_units_table( idomain, P_api2 ) = 'ppmv' chem_streams_table( idomain, P_api2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api2 )%stream(2) = 2097216 ! 00200040 F_api2 = .TRUE. IF ( chem_index_table( PARAM_lim1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1 = chem_num_table(idomain) chem_index_table( PARAM_lim1 , idomain ) = P_lim1 ELSE P_lim1 = chem_index_table( PARAM_lim1 , idomain ) END IF chem_boundary_table( idomain, P_lim1 ) = .TRUE. chem_dname_table( idomain, P_lim1 ) = 'lim1' chem_desc_table( idomain, P_lim1 ) = 'LIM1 mixing ratio' chem_units_table( idomain, P_lim1 ) = 'ppmv' chem_streams_table( idomain, P_lim1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim1 )%stream(2) = 2097216 ! 00200040 F_lim1 = .TRUE. IF ( chem_index_table( PARAM_lim2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2 = chem_num_table(idomain) chem_index_table( PARAM_lim2 , idomain ) = P_lim2 ELSE P_lim2 = chem_index_table( PARAM_lim2 , idomain ) END IF chem_boundary_table( idomain, P_lim2 ) = .TRUE. chem_dname_table( idomain, P_lim2 ) = 'lim2' chem_desc_table( idomain, P_lim2 ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_lim2 ) = 'ppmv' chem_streams_table( idomain, P_lim2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim2 )%stream(2) = 2097216 ! 00200040 F_lim2 = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api )%stream(2) = 2097216 ! 00200040 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 ! 00200040 F_lim = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 ! 00200040 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 ! 00200040 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 ! 00200040 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 ! 00200040 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 ! 00200040 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 ! 00200040 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 ! 00200040 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 ! 00200040 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 ! 00200040 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_aro1_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1_a01 = chem_num_table(idomain) chem_index_table( PARAM_aro1_a01 , idomain ) = P_aro1_a01 ELSE P_aro1_a01 = chem_index_table( PARAM_aro1_a01 , idomain ) END IF chem_boundary_table( idomain, P_aro1_a01 ) = .TRUE. chem_dname_table( idomain, P_aro1_a01 ) = 'aro1_a01' chem_desc_table( idomain, P_aro1_a01 ) = 'ARO1, aerosol bin 01' chem_units_table( idomain, P_aro1_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro1_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro1_a01 )%stream(2) = 2097216 ! 00200040 F_aro1_a01 = .TRUE. IF ( chem_index_table( PARAM_aro2_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2_a01 = chem_num_table(idomain) chem_index_table( PARAM_aro2_a01 , idomain ) = P_aro2_a01 ELSE P_aro2_a01 = chem_index_table( PARAM_aro2_a01 , idomain ) END IF chem_boundary_table( idomain, P_aro2_a01 ) = .TRUE. chem_dname_table( idomain, P_aro2_a01 ) = 'aro2_a01' chem_desc_table( idomain, P_aro2_a01 ) = 'ARO2, aerosol bin 01' chem_units_table( idomain, P_aro2_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro2_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro2_a01 )%stream(2) = 2097216 ! 00200040 F_aro2_a01 = .TRUE. IF ( chem_index_table( PARAM_alk1_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1_a01 = chem_num_table(idomain) chem_index_table( PARAM_alk1_a01 , idomain ) = P_alk1_a01 ELSE P_alk1_a01 = chem_index_table( PARAM_alk1_a01 , idomain ) END IF chem_boundary_table( idomain, P_alk1_a01 ) = .TRUE. chem_dname_table( idomain, P_alk1_a01 ) = 'alk1_a01' chem_desc_table( idomain, P_alk1_a01 ) = 'ALK1, aerosol bin 01' chem_units_table( idomain, P_alk1_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_alk1_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk1_a01 )%stream(2) = 2097216 ! 00200040 F_alk1_a01 = .TRUE. IF ( chem_index_table( PARAM_ole1_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1_a01 = chem_num_table(idomain) chem_index_table( PARAM_ole1_a01 , idomain ) = P_ole1_a01 ELSE P_ole1_a01 = chem_index_table( PARAM_ole1_a01 , idomain ) END IF chem_boundary_table( idomain, P_ole1_a01 ) = .TRUE. chem_dname_table( idomain, P_ole1_a01 ) = 'ole1_a01' chem_desc_table( idomain, P_ole1_a01 ) = 'OLE1, aerosol bin 01' chem_units_table( idomain, P_ole1_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ole1_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole1_a01 )%stream(2) = 2097216 ! 00200040 F_ole1_a01 = .TRUE. IF ( chem_index_table( PARAM_api1_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1_a01 = chem_num_table(idomain) chem_index_table( PARAM_api1_a01 , idomain ) = P_api1_a01 ELSE P_api1_a01 = chem_index_table( PARAM_api1_a01 , idomain ) END IF chem_boundary_table( idomain, P_api1_a01 ) = .TRUE. chem_dname_table( idomain, P_api1_a01 ) = 'api1_a01' chem_desc_table( idomain, P_api1_a01 ) = 'API1, aerosol bin 01' chem_units_table( idomain, P_api1_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api1_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api1_a01 )%stream(2) = 2097216 ! 00200040 F_api1_a01 = .TRUE. IF ( chem_index_table( PARAM_api2_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2_a01 = chem_num_table(idomain) chem_index_table( PARAM_api2_a01 , idomain ) = P_api2_a01 ELSE P_api2_a01 = chem_index_table( PARAM_api2_a01 , idomain ) END IF chem_boundary_table( idomain, P_api2_a01 ) = .TRUE. chem_dname_table( idomain, P_api2_a01 ) = 'api2_a01' chem_desc_table( idomain, P_api2_a01 ) = 'API2, aerosol bin 01' chem_units_table( idomain, P_api2_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api2_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api2_a01 )%stream(2) = 2097216 ! 00200040 F_api2_a01 = .TRUE. IF ( chem_index_table( PARAM_lim1_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1_a01 = chem_num_table(idomain) chem_index_table( PARAM_lim1_a01 , idomain ) = P_lim1_a01 ELSE P_lim1_a01 = chem_index_table( PARAM_lim1_a01 , idomain ) END IF chem_boundary_table( idomain, P_lim1_a01 ) = .TRUE. chem_dname_table( idomain, P_lim1_a01 ) = 'lim1_a01' chem_desc_table( idomain, P_lim1_a01 ) = 'LIM1, aerosol bin 01' chem_units_table( idomain, P_lim1_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim1_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim1_a01 )%stream(2) = 2097216 ! 00200040 F_lim1_a01 = .TRUE. IF ( chem_index_table( PARAM_lim2_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2_a01 = chem_num_table(idomain) chem_index_table( PARAM_lim2_a01 , idomain ) = P_lim2_a01 ELSE P_lim2_a01 = chem_index_table( PARAM_lim2_a01 , idomain ) END IF chem_boundary_table( idomain, P_lim2_a01 ) = .TRUE. chem_dname_table( idomain, P_lim2_a01 ) = 'lim2_a01' chem_desc_table( idomain, P_lim2_a01 ) = 'LIM2, aerosol bin 01' chem_units_table( idomain, P_lim2_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim2_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim2_a01 )%stream(2) = 2097216 ! 00200040 F_lim2_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 ! 00200040 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 ! 00200040 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 ! 00200040 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 ! 00200040 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 ! 00200040 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 ! 00200040 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 ! 00200040 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 ! 00200040 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 ! 00200040 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 ! 00200040 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_aro1_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1_a02 = chem_num_table(idomain) chem_index_table( PARAM_aro1_a02 , idomain ) = P_aro1_a02 ELSE P_aro1_a02 = chem_index_table( PARAM_aro1_a02 , idomain ) END IF chem_boundary_table( idomain, P_aro1_a02 ) = .TRUE. chem_dname_table( idomain, P_aro1_a02 ) = 'aro1_a02' chem_desc_table( idomain, P_aro1_a02 ) = 'ARO1, aerosol bin 01' chem_units_table( idomain, P_aro1_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro1_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro1_a02 )%stream(2) = 2097216 ! 00200040 F_aro1_a02 = .TRUE. IF ( chem_index_table( PARAM_aro2_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2_a02 = chem_num_table(idomain) chem_index_table( PARAM_aro2_a02 , idomain ) = P_aro2_a02 ELSE P_aro2_a02 = chem_index_table( PARAM_aro2_a02 , idomain ) END IF chem_boundary_table( idomain, P_aro2_a02 ) = .TRUE. chem_dname_table( idomain, P_aro2_a02 ) = 'aro2_a02' chem_desc_table( idomain, P_aro2_a02 ) = 'ARO2, aerosol bin 01' chem_units_table( idomain, P_aro2_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro2_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro2_a02 )%stream(2) = 2097216 ! 00200040 F_aro2_a02 = .TRUE. IF ( chem_index_table( PARAM_alk1_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1_a02 = chem_num_table(idomain) chem_index_table( PARAM_alk1_a02 , idomain ) = P_alk1_a02 ELSE P_alk1_a02 = chem_index_table( PARAM_alk1_a02 , idomain ) END IF chem_boundary_table( idomain, P_alk1_a02 ) = .TRUE. chem_dname_table( idomain, P_alk1_a02 ) = 'alk1_a02' chem_desc_table( idomain, P_alk1_a02 ) = 'ALK1, aerosol bin 01' chem_units_table( idomain, P_alk1_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_alk1_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk1_a02 )%stream(2) = 2097216 ! 00200040 F_alk1_a02 = .TRUE. IF ( chem_index_table( PARAM_ole1_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1_a02 = chem_num_table(idomain) chem_index_table( PARAM_ole1_a02 , idomain ) = P_ole1_a02 ELSE P_ole1_a02 = chem_index_table( PARAM_ole1_a02 , idomain ) END IF chem_boundary_table( idomain, P_ole1_a02 ) = .TRUE. chem_dname_table( idomain, P_ole1_a02 ) = 'ole1_a02' chem_desc_table( idomain, P_ole1_a02 ) = 'OLE1, aerosol bin 01' chem_units_table( idomain, P_ole1_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ole1_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole1_a02 )%stream(2) = 2097216 ! 00200040 F_ole1_a02 = .TRUE. IF ( chem_index_table( PARAM_api1_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1_a02 = chem_num_table(idomain) chem_index_table( PARAM_api1_a02 , idomain ) = P_api1_a02 ELSE P_api1_a02 = chem_index_table( PARAM_api1_a02 , idomain ) END IF chem_boundary_table( idomain, P_api1_a02 ) = .TRUE. chem_dname_table( idomain, P_api1_a02 ) = 'api1_a02' chem_desc_table( idomain, P_api1_a02 ) = 'API1, aerosol bin 01' chem_units_table( idomain, P_api1_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api1_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api1_a02 )%stream(2) = 2097216 ! 00200040 F_api1_a02 = .TRUE. IF ( chem_index_table( PARAM_api2_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2_a02 = chem_num_table(idomain) chem_index_table( PARAM_api2_a02 , idomain ) = P_api2_a02 ELSE P_api2_a02 = chem_index_table( PARAM_api2_a02 , idomain ) END IF chem_boundary_table( idomain, P_api2_a02 ) = .TRUE. chem_dname_table( idomain, P_api2_a02 ) = 'api2_a02' chem_desc_table( idomain, P_api2_a02 ) = 'API2, aerosol bin 01' chem_units_table( idomain, P_api2_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api2_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api2_a02 )%stream(2) = 2097216 ! 00200040 F_api2_a02 = .TRUE. IF ( chem_index_table( PARAM_lim1_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1_a02 = chem_num_table(idomain) chem_index_table( PARAM_lim1_a02 , idomain ) = P_lim1_a02 ELSE P_lim1_a02 = chem_index_table( PARAM_lim1_a02 , idomain ) END IF chem_boundary_table( idomain, P_lim1_a02 ) = .TRUE. chem_dname_table( idomain, P_lim1_a02 ) = 'lim1_a02' chem_desc_table( idomain, P_lim1_a02 ) = 'LIM1, aerosol bin 01' chem_units_table( idomain, P_lim1_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim1_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim1_a02 )%stream(2) = 2097216 ! 00200040 F_lim1_a02 = .TRUE. IF ( chem_index_table( PARAM_lim2_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2_a02 = chem_num_table(idomain) chem_index_table( PARAM_lim2_a02 , idomain ) = P_lim2_a02 ELSE P_lim2_a02 = chem_index_table( PARAM_lim2_a02 , idomain ) END IF chem_boundary_table( idomain, P_lim2_a02 ) = .TRUE. chem_dname_table( idomain, P_lim2_a02 ) = 'lim2_a02' chem_desc_table( idomain, P_lim2_a02 ) = 'LIM2, aerosol bin 01' chem_units_table( idomain, P_lim2_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim2_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim2_a02 )%stream(2) = 2097216 ! 00200040 F_lim2_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 ! 00200040 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 ! 00200040 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 ! 00200040 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 ! 00200040 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 ! 00200040 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 ! 00200040 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 ! 00200040 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 ! 00200040 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 ! 00200040 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 ! 00200040 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_aro1_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1_a03 = chem_num_table(idomain) chem_index_table( PARAM_aro1_a03 , idomain ) = P_aro1_a03 ELSE P_aro1_a03 = chem_index_table( PARAM_aro1_a03 , idomain ) END IF chem_boundary_table( idomain, P_aro1_a03 ) = .TRUE. chem_dname_table( idomain, P_aro1_a03 ) = 'aro1_a03' chem_desc_table( idomain, P_aro1_a03 ) = 'ARO1, aerosol bin 01' chem_units_table( idomain, P_aro1_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro1_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro1_a03 )%stream(2) = 2097216 ! 00200040 F_aro1_a03 = .TRUE. IF ( chem_index_table( PARAM_aro2_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2_a03 = chem_num_table(idomain) chem_index_table( PARAM_aro2_a03 , idomain ) = P_aro2_a03 ELSE P_aro2_a03 = chem_index_table( PARAM_aro2_a03 , idomain ) END IF chem_boundary_table( idomain, P_aro2_a03 ) = .TRUE. chem_dname_table( idomain, P_aro2_a03 ) = 'aro2_a03' chem_desc_table( idomain, P_aro2_a03 ) = 'ARO2, aerosol bin 01' chem_units_table( idomain, P_aro2_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro2_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro2_a03 )%stream(2) = 2097216 ! 00200040 F_aro2_a03 = .TRUE. IF ( chem_index_table( PARAM_alk1_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1_a03 = chem_num_table(idomain) chem_index_table( PARAM_alk1_a03 , idomain ) = P_alk1_a03 ELSE P_alk1_a03 = chem_index_table( PARAM_alk1_a03 , idomain ) END IF chem_boundary_table( idomain, P_alk1_a03 ) = .TRUE. chem_dname_table( idomain, P_alk1_a03 ) = 'alk1_a03' chem_desc_table( idomain, P_alk1_a03 ) = 'ALK1, aerosol bin 01' chem_units_table( idomain, P_alk1_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_alk1_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk1_a03 )%stream(2) = 2097216 ! 00200040 F_alk1_a03 = .TRUE. IF ( chem_index_table( PARAM_ole1_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1_a03 = chem_num_table(idomain) chem_index_table( PARAM_ole1_a03 , idomain ) = P_ole1_a03 ELSE P_ole1_a03 = chem_index_table( PARAM_ole1_a03 , idomain ) END IF chem_boundary_table( idomain, P_ole1_a03 ) = .TRUE. chem_dname_table( idomain, P_ole1_a03 ) = 'ole1_a03' chem_desc_table( idomain, P_ole1_a03 ) = 'OLE1, aerosol bin 01' chem_units_table( idomain, P_ole1_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ole1_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole1_a03 )%stream(2) = 2097216 ! 00200040 F_ole1_a03 = .TRUE. IF ( chem_index_table( PARAM_api1_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1_a03 = chem_num_table(idomain) chem_index_table( PARAM_api1_a03 , idomain ) = P_api1_a03 ELSE P_api1_a03 = chem_index_table( PARAM_api1_a03 , idomain ) END IF chem_boundary_table( idomain, P_api1_a03 ) = .TRUE. chem_dname_table( idomain, P_api1_a03 ) = 'api1_a03' chem_desc_table( idomain, P_api1_a03 ) = 'API1, aerosol bin 01' chem_units_table( idomain, P_api1_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api1_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api1_a03 )%stream(2) = 2097216 ! 00200040 F_api1_a03 = .TRUE. IF ( chem_index_table( PARAM_api2_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2_a03 = chem_num_table(idomain) chem_index_table( PARAM_api2_a03 , idomain ) = P_api2_a03 ELSE P_api2_a03 = chem_index_table( PARAM_api2_a03 , idomain ) END IF chem_boundary_table( idomain, P_api2_a03 ) = .TRUE. chem_dname_table( idomain, P_api2_a03 ) = 'api2_a03' chem_desc_table( idomain, P_api2_a03 ) = 'API2, aerosol bin 01' chem_units_table( idomain, P_api2_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api2_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api2_a03 )%stream(2) = 2097216 ! 00200040 F_api2_a03 = .TRUE. IF ( chem_index_table( PARAM_lim1_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1_a03 = chem_num_table(idomain) chem_index_table( PARAM_lim1_a03 , idomain ) = P_lim1_a03 ELSE P_lim1_a03 = chem_index_table( PARAM_lim1_a03 , idomain ) END IF chem_boundary_table( idomain, P_lim1_a03 ) = .TRUE. chem_dname_table( idomain, P_lim1_a03 ) = 'lim1_a03' chem_desc_table( idomain, P_lim1_a03 ) = 'LIM1, aerosol bin 01' chem_units_table( idomain, P_lim1_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim1_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim1_a03 )%stream(2) = 2097216 ! 00200040 F_lim1_a03 = .TRUE. IF ( chem_index_table( PARAM_lim2_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2_a03 = chem_num_table(idomain) chem_index_table( PARAM_lim2_a03 , idomain ) = P_lim2_a03 ELSE P_lim2_a03 = chem_index_table( PARAM_lim2_a03 , idomain ) END IF chem_boundary_table( idomain, P_lim2_a03 ) = .TRUE. chem_dname_table( idomain, P_lim2_a03 ) = 'lim2_a03' chem_desc_table( idomain, P_lim2_a03 ) = 'LIM2, aerosol bin 01' chem_units_table( idomain, P_lim2_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim2_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim2_a03 )%stream(2) = 2097216 ! 00200040 F_lim2_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 ! 00200040 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 ! 00200040 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 ! 00200040 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 ! 00200040 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 ! 00200040 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 ! 00200040 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 ! 00200040 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 ! 00200040 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 ! 00200040 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 ! 00200040 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_aro1_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1_a04 = chem_num_table(idomain) chem_index_table( PARAM_aro1_a04 , idomain ) = P_aro1_a04 ELSE P_aro1_a04 = chem_index_table( PARAM_aro1_a04 , idomain ) END IF chem_boundary_table( idomain, P_aro1_a04 ) = .TRUE. chem_dname_table( idomain, P_aro1_a04 ) = 'aro1_a04' chem_desc_table( idomain, P_aro1_a04 ) = 'ARO1, aerosol bin 01' chem_units_table( idomain, P_aro1_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro1_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro1_a04 )%stream(2) = 2097216 ! 00200040 F_aro1_a04 = .TRUE. IF ( chem_index_table( PARAM_aro2_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2_a04 = chem_num_table(idomain) chem_index_table( PARAM_aro2_a04 , idomain ) = P_aro2_a04 ELSE P_aro2_a04 = chem_index_table( PARAM_aro2_a04 , idomain ) END IF chem_boundary_table( idomain, P_aro2_a04 ) = .TRUE. chem_dname_table( idomain, P_aro2_a04 ) = 'aro2_a04' chem_desc_table( idomain, P_aro2_a04 ) = 'ARO2, aerosol bin 01' chem_units_table( idomain, P_aro2_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro2_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro2_a04 )%stream(2) = 2097216 ! 00200040 F_aro2_a04 = .TRUE. IF ( chem_index_table( PARAM_alk1_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1_a04 = chem_num_table(idomain) chem_index_table( PARAM_alk1_a04 , idomain ) = P_alk1_a04 ELSE P_alk1_a04 = chem_index_table( PARAM_alk1_a04 , idomain ) END IF chem_boundary_table( idomain, P_alk1_a04 ) = .TRUE. chem_dname_table( idomain, P_alk1_a04 ) = 'alk1_a04' chem_desc_table( idomain, P_alk1_a04 ) = 'ALK1, aerosol bin 01' chem_units_table( idomain, P_alk1_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_alk1_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk1_a04 )%stream(2) = 2097216 ! 00200040 F_alk1_a04 = .TRUE. IF ( chem_index_table( PARAM_ole1_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1_a04 = chem_num_table(idomain) chem_index_table( PARAM_ole1_a04 , idomain ) = P_ole1_a04 ELSE P_ole1_a04 = chem_index_table( PARAM_ole1_a04 , idomain ) END IF chem_boundary_table( idomain, P_ole1_a04 ) = .TRUE. chem_dname_table( idomain, P_ole1_a04 ) = 'ole1_a04' chem_desc_table( idomain, P_ole1_a04 ) = 'OLE1, aerosol bin 01' chem_units_table( idomain, P_ole1_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ole1_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole1_a04 )%stream(2) = 2097216 ! 00200040 F_ole1_a04 = .TRUE. IF ( chem_index_table( PARAM_api1_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1_a04 = chem_num_table(idomain) chem_index_table( PARAM_api1_a04 , idomain ) = P_api1_a04 ELSE P_api1_a04 = chem_index_table( PARAM_api1_a04 , idomain ) END IF chem_boundary_table( idomain, P_api1_a04 ) = .TRUE. chem_dname_table( idomain, P_api1_a04 ) = 'api1_a04' chem_desc_table( idomain, P_api1_a04 ) = 'API1, aerosol bin 01' chem_units_table( idomain, P_api1_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api1_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api1_a04 )%stream(2) = 2097216 ! 00200040 F_api1_a04 = .TRUE. IF ( chem_index_table( PARAM_api2_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2_a04 = chem_num_table(idomain) chem_index_table( PARAM_api2_a04 , idomain ) = P_api2_a04 ELSE P_api2_a04 = chem_index_table( PARAM_api2_a04 , idomain ) END IF chem_boundary_table( idomain, P_api2_a04 ) = .TRUE. chem_dname_table( idomain, P_api2_a04 ) = 'api2_a04' chem_desc_table( idomain, P_api2_a04 ) = 'API2, aerosol bin 01' chem_units_table( idomain, P_api2_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api2_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api2_a04 )%stream(2) = 2097216 ! 00200040 F_api2_a04 = .TRUE. IF ( chem_index_table( PARAM_lim1_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1_a04 = chem_num_table(idomain) chem_index_table( PARAM_lim1_a04 , idomain ) = P_lim1_a04 ELSE P_lim1_a04 = chem_index_table( PARAM_lim1_a04 , idomain ) END IF chem_boundary_table( idomain, P_lim1_a04 ) = .TRUE. chem_dname_table( idomain, P_lim1_a04 ) = 'lim1_a04' chem_desc_table( idomain, P_lim1_a04 ) = 'LIM1, aerosol bin 01' chem_units_table( idomain, P_lim1_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim1_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim1_a04 )%stream(2) = 2097216 ! 00200040 F_lim1_a04 = .TRUE. IF ( chem_index_table( PARAM_lim2_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2_a04 = chem_num_table(idomain) chem_index_table( PARAM_lim2_a04 , idomain ) = P_lim2_a04 ELSE P_lim2_a04 = chem_index_table( PARAM_lim2_a04 , idomain ) END IF chem_boundary_table( idomain, P_lim2_a04 ) = .TRUE. chem_dname_table( idomain, P_lim2_a04 ) = 'lim2_a04' chem_desc_table( idomain, P_lim2_a04 ) = 'LIM2, aerosol bin 01' chem_units_table( idomain, P_lim2_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim2_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim2_a04 )%stream(2) = 2097216 ! 00200040 F_lim2_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 ! 00200040 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a05 = chem_num_table(idomain) chem_index_table( PARAM_so4_a05 , idomain ) = P_so4_a05 ELSE P_so4_a05 = chem_index_table( PARAM_so4_a05 , idomain ) END IF chem_boundary_table( idomain, P_so4_a05 ) = .TRUE. chem_dname_table( idomain, P_so4_a05 ) = 'so4_a05' chem_desc_table( idomain, P_so4_a05 ) = 'Sulfate, aerosol bin 05' chem_units_table( idomain, P_so4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a05 )%stream(2) = 2097216 ! 00200040 F_so4_a05 = .TRUE. IF ( chem_index_table( PARAM_no3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a05 = chem_num_table(idomain) chem_index_table( PARAM_no3_a05 , idomain ) = P_no3_a05 ELSE P_no3_a05 = chem_index_table( PARAM_no3_a05 , idomain ) END IF chem_boundary_table( idomain, P_no3_a05 ) = .TRUE. chem_dname_table( idomain, P_no3_a05 ) = 'no3_a05' chem_desc_table( idomain, P_no3_a05 ) = 'Nitrate, aerosol bin 05' chem_units_table( idomain, P_no3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a05 )%stream(2) = 2097216 ! 00200040 F_no3_a05 = .TRUE. IF ( chem_index_table( PARAM_cl_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a05 = chem_num_table(idomain) chem_index_table( PARAM_cl_a05 , idomain ) = P_cl_a05 ELSE P_cl_a05 = chem_index_table( PARAM_cl_a05 , idomain ) END IF chem_boundary_table( idomain, P_cl_a05 ) = .TRUE. chem_dname_table( idomain, P_cl_a05 ) = 'cl_a05' chem_desc_table( idomain, P_cl_a05 ) = 'Chloride, aerosol bin 05' chem_units_table( idomain, P_cl_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a05 )%stream(2) = 2097216 ! 00200040 F_cl_a05 = .TRUE. IF ( chem_index_table( PARAM_nh4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a05 , idomain ) = P_nh4_a05 ELSE P_nh4_a05 = chem_index_table( PARAM_nh4_a05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a05 ) = .TRUE. chem_dname_table( idomain, P_nh4_a05 ) = 'nh4_a05' chem_desc_table( idomain, P_nh4_a05 ) = 'Ammonium, aerosol bin 05' chem_units_table( idomain, P_nh4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a05 )%stream(2) = 2097216 ! 00200040 F_nh4_a05 = .TRUE. IF ( chem_index_table( PARAM_na_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a05 = chem_num_table(idomain) chem_index_table( PARAM_na_a05 , idomain ) = P_na_a05 ELSE P_na_a05 = chem_index_table( PARAM_na_a05 , idomain ) END IF chem_boundary_table( idomain, P_na_a05 ) = .TRUE. chem_dname_table( idomain, P_na_a05 ) = 'na_a05' chem_desc_table( idomain, P_na_a05 ) = 'Sodium, aerosol bin 05' chem_units_table( idomain, P_na_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a05 )%stream(2) = 2097216 ! 00200040 F_na_a05 = .TRUE. IF ( chem_index_table( PARAM_oin_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a05 = chem_num_table(idomain) chem_index_table( PARAM_oin_a05 , idomain ) = P_oin_a05 ELSE P_oin_a05 = chem_index_table( PARAM_oin_a05 , idomain ) END IF chem_boundary_table( idomain, P_oin_a05 ) = .TRUE. chem_dname_table( idomain, P_oin_a05 ) = 'oin_a05' chem_desc_table( idomain, P_oin_a05 ) = 'Other inorganics, aerosol bin 05' chem_units_table( idomain, P_oin_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a05 )%stream(2) = 2097216 ! 00200040 F_oin_a05 = .TRUE. IF ( chem_index_table( PARAM_oc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a05 = chem_num_table(idomain) chem_index_table( PARAM_oc_a05 , idomain ) = P_oc_a05 ELSE P_oc_a05 = chem_index_table( PARAM_oc_a05 , idomain ) END IF chem_boundary_table( idomain, P_oc_a05 ) = .TRUE. chem_dname_table( idomain, P_oc_a05 ) = 'oc_a05' chem_desc_table( idomain, P_oc_a05 ) = 'Organic carbon, aerosol bin 05' chem_units_table( idomain, P_oc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a05 )%stream(2) = 2097216 ! 00200040 F_oc_a05 = .TRUE. IF ( chem_index_table( PARAM_bc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a05 = chem_num_table(idomain) chem_index_table( PARAM_bc_a05 , idomain ) = P_bc_a05 ELSE P_bc_a05 = chem_index_table( PARAM_bc_a05 , idomain ) END IF chem_boundary_table( idomain, P_bc_a05 ) = .TRUE. chem_dname_table( idomain, P_bc_a05 ) = 'bc_a05' chem_desc_table( idomain, P_bc_a05 ) = 'Black carbon, aerosol bin 05' chem_units_table( idomain, P_bc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a05 )%stream(2) = 2097216 ! 00200040 F_bc_a05 = .TRUE. IF ( chem_index_table( PARAM_hysw_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a05 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a05 , idomain ) = P_hysw_a05 ELSE P_hysw_a05 = chem_index_table( PARAM_hysw_a05 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a05 ) = .TRUE. chem_dname_table( idomain, P_hysw_a05 ) = 'hysw_a05' chem_desc_table( idomain, P_hysw_a05 ) = 'Hysteresis water, aerosol bin 05' chem_units_table( idomain, P_hysw_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a05 )%stream(2) = 2097216 ! 00200040 F_hysw_a05 = .TRUE. IF ( chem_index_table( PARAM_water_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a05 = chem_num_table(idomain) chem_index_table( PARAM_water_a05 , idomain ) = P_water_a05 ELSE P_water_a05 = chem_index_table( PARAM_water_a05 , idomain ) END IF chem_boundary_table( idomain, P_water_a05 ) = .TRUE. chem_dname_table( idomain, P_water_a05 ) = 'water_a05' chem_desc_table( idomain, P_water_a05 ) = 'Water, aerosol bin 05' chem_units_table( idomain, P_water_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a05 )%stream(2) = 2097216 ! 00200040 F_water_a05 = .TRUE. IF ( chem_index_table( PARAM_aro1_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1_a05 = chem_num_table(idomain) chem_index_table( PARAM_aro1_a05 , idomain ) = P_aro1_a05 ELSE P_aro1_a05 = chem_index_table( PARAM_aro1_a05 , idomain ) END IF chem_boundary_table( idomain, P_aro1_a05 ) = .TRUE. chem_dname_table( idomain, P_aro1_a05 ) = 'aro1_a05' chem_desc_table( idomain, P_aro1_a05 ) = 'ARO1, aerosol bin 01' chem_units_table( idomain, P_aro1_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro1_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro1_a05 )%stream(2) = 2097216 ! 00200040 F_aro1_a05 = .TRUE. IF ( chem_index_table( PARAM_aro2_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2_a05 = chem_num_table(idomain) chem_index_table( PARAM_aro2_a05 , idomain ) = P_aro2_a05 ELSE P_aro2_a05 = chem_index_table( PARAM_aro2_a05 , idomain ) END IF chem_boundary_table( idomain, P_aro2_a05 ) = .TRUE. chem_dname_table( idomain, P_aro2_a05 ) = 'aro2_a05' chem_desc_table( idomain, P_aro2_a05 ) = 'ARO2, aerosol bin 01' chem_units_table( idomain, P_aro2_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro2_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro2_a05 )%stream(2) = 2097216 ! 00200040 F_aro2_a05 = .TRUE. IF ( chem_index_table( PARAM_alk1_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1_a05 = chem_num_table(idomain) chem_index_table( PARAM_alk1_a05 , idomain ) = P_alk1_a05 ELSE P_alk1_a05 = chem_index_table( PARAM_alk1_a05 , idomain ) END IF chem_boundary_table( idomain, P_alk1_a05 ) = .TRUE. chem_dname_table( idomain, P_alk1_a05 ) = 'alk1_a05' chem_desc_table( idomain, P_alk1_a05 ) = 'ALK1, aerosol bin 01' chem_units_table( idomain, P_alk1_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_alk1_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk1_a05 )%stream(2) = 2097216 ! 00200040 F_alk1_a05 = .TRUE. IF ( chem_index_table( PARAM_ole1_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1_a05 = chem_num_table(idomain) chem_index_table( PARAM_ole1_a05 , idomain ) = P_ole1_a05 ELSE P_ole1_a05 = chem_index_table( PARAM_ole1_a05 , idomain ) END IF chem_boundary_table( idomain, P_ole1_a05 ) = .TRUE. chem_dname_table( idomain, P_ole1_a05 ) = 'ole1_a05' chem_desc_table( idomain, P_ole1_a05 ) = 'OLE1, aerosol bin 01' chem_units_table( idomain, P_ole1_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ole1_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole1_a05 )%stream(2) = 2097216 ! 00200040 F_ole1_a05 = .TRUE. IF ( chem_index_table( PARAM_api1_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1_a05 = chem_num_table(idomain) chem_index_table( PARAM_api1_a05 , idomain ) = P_api1_a05 ELSE P_api1_a05 = chem_index_table( PARAM_api1_a05 , idomain ) END IF chem_boundary_table( idomain, P_api1_a05 ) = .TRUE. chem_dname_table( idomain, P_api1_a05 ) = 'api1_a05' chem_desc_table( idomain, P_api1_a05 ) = 'API1, aerosol bin 01' chem_units_table( idomain, P_api1_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api1_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api1_a05 )%stream(2) = 2097216 ! 00200040 F_api1_a05 = .TRUE. IF ( chem_index_table( PARAM_api2_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2_a05 = chem_num_table(idomain) chem_index_table( PARAM_api2_a05 , idomain ) = P_api2_a05 ELSE P_api2_a05 = chem_index_table( PARAM_api2_a05 , idomain ) END IF chem_boundary_table( idomain, P_api2_a05 ) = .TRUE. chem_dname_table( idomain, P_api2_a05 ) = 'api2_a05' chem_desc_table( idomain, P_api2_a05 ) = 'API2, aerosol bin 01' chem_units_table( idomain, P_api2_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api2_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api2_a05 )%stream(2) = 2097216 ! 00200040 F_api2_a05 = .TRUE. IF ( chem_index_table( PARAM_lim1_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1_a05 = chem_num_table(idomain) chem_index_table( PARAM_lim1_a05 , idomain ) = P_lim1_a05 ELSE P_lim1_a05 = chem_index_table( PARAM_lim1_a05 , idomain ) END IF chem_boundary_table( idomain, P_lim1_a05 ) = .TRUE. chem_dname_table( idomain, P_lim1_a05 ) = 'lim1_a05' chem_desc_table( idomain, P_lim1_a05 ) = 'LIM1, aerosol bin 01' chem_units_table( idomain, P_lim1_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim1_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim1_a05 )%stream(2) = 2097216 ! 00200040 F_lim1_a05 = .TRUE. IF ( chem_index_table( PARAM_lim2_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2_a05 = chem_num_table(idomain) chem_index_table( PARAM_lim2_a05 , idomain ) = P_lim2_a05 ELSE P_lim2_a05 = chem_index_table( PARAM_lim2_a05 , idomain ) END IF chem_boundary_table( idomain, P_lim2_a05 ) = .TRUE. chem_dname_table( idomain, P_lim2_a05 ) = 'lim2_a05' chem_desc_table( idomain, P_lim2_a05 ) = 'LIM2, aerosol bin 01' chem_units_table( idomain, P_lim2_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim2_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim2_a05 )%stream(2) = 2097216 ! 00200040 F_lim2_a05 = .TRUE. IF ( chem_index_table( PARAM_num_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a05 = chem_num_table(idomain) chem_index_table( PARAM_num_a05 , idomain ) = P_num_a05 ELSE P_num_a05 = chem_index_table( PARAM_num_a05 , idomain ) END IF chem_boundary_table( idomain, P_num_a05 ) = .TRUE. chem_dname_table( idomain, P_num_a05 ) = 'num_a05' chem_desc_table( idomain, P_num_a05 ) = 'Number, aerosol bin 05' chem_units_table( idomain, P_num_a05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a05 )%stream(2) = 2097216 ! 00200040 F_num_a05 = .TRUE. IF ( chem_index_table( PARAM_so4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a06 = chem_num_table(idomain) chem_index_table( PARAM_so4_a06 , idomain ) = P_so4_a06 ELSE P_so4_a06 = chem_index_table( PARAM_so4_a06 , idomain ) END IF chem_boundary_table( idomain, P_so4_a06 ) = .TRUE. chem_dname_table( idomain, P_so4_a06 ) = 'so4_a06' chem_desc_table( idomain, P_so4_a06 ) = 'Sulfate, aerosol bin 06' chem_units_table( idomain, P_so4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a06 )%stream(2) = 2097216 ! 00200040 F_so4_a06 = .TRUE. IF ( chem_index_table( PARAM_no3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a06 = chem_num_table(idomain) chem_index_table( PARAM_no3_a06 , idomain ) = P_no3_a06 ELSE P_no3_a06 = chem_index_table( PARAM_no3_a06 , idomain ) END IF chem_boundary_table( idomain, P_no3_a06 ) = .TRUE. chem_dname_table( idomain, P_no3_a06 ) = 'no3_a06' chem_desc_table( idomain, P_no3_a06 ) = 'Nitrate, aerosol bin 06' chem_units_table( idomain, P_no3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a06 )%stream(2) = 2097216 ! 00200040 F_no3_a06 = .TRUE. IF ( chem_index_table( PARAM_cl_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a06 = chem_num_table(idomain) chem_index_table( PARAM_cl_a06 , idomain ) = P_cl_a06 ELSE P_cl_a06 = chem_index_table( PARAM_cl_a06 , idomain ) END IF chem_boundary_table( idomain, P_cl_a06 ) = .TRUE. chem_dname_table( idomain, P_cl_a06 ) = 'cl_a06' chem_desc_table( idomain, P_cl_a06 ) = 'Chloride, aerosol bin 06' chem_units_table( idomain, P_cl_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a06 )%stream(2) = 2097216 ! 00200040 F_cl_a06 = .TRUE. IF ( chem_index_table( PARAM_nh4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a06 , idomain ) = P_nh4_a06 ELSE P_nh4_a06 = chem_index_table( PARAM_nh4_a06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a06 ) = .TRUE. chem_dname_table( idomain, P_nh4_a06 ) = 'nh4_a06' chem_desc_table( idomain, P_nh4_a06 ) = 'Ammonium, aerosol bin 06' chem_units_table( idomain, P_nh4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a06 )%stream(2) = 2097216 ! 00200040 F_nh4_a06 = .TRUE. IF ( chem_index_table( PARAM_na_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a06 = chem_num_table(idomain) chem_index_table( PARAM_na_a06 , idomain ) = P_na_a06 ELSE P_na_a06 = chem_index_table( PARAM_na_a06 , idomain ) END IF chem_boundary_table( idomain, P_na_a06 ) = .TRUE. chem_dname_table( idomain, P_na_a06 ) = 'na_a06' chem_desc_table( idomain, P_na_a06 ) = 'Sodium, aerosol bin 06' chem_units_table( idomain, P_na_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a06 )%stream(2) = 2097216 ! 00200040 F_na_a06 = .TRUE. IF ( chem_index_table( PARAM_oin_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a06 = chem_num_table(idomain) chem_index_table( PARAM_oin_a06 , idomain ) = P_oin_a06 ELSE P_oin_a06 = chem_index_table( PARAM_oin_a06 , idomain ) END IF chem_boundary_table( idomain, P_oin_a06 ) = .TRUE. chem_dname_table( idomain, P_oin_a06 ) = 'oin_a06' chem_desc_table( idomain, P_oin_a06 ) = 'Other inorganics, aerosol bin 06' chem_units_table( idomain, P_oin_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a06 )%stream(2) = 2097216 ! 00200040 F_oin_a06 = .TRUE. IF ( chem_index_table( PARAM_oc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a06 = chem_num_table(idomain) chem_index_table( PARAM_oc_a06 , idomain ) = P_oc_a06 ELSE P_oc_a06 = chem_index_table( PARAM_oc_a06 , idomain ) END IF chem_boundary_table( idomain, P_oc_a06 ) = .TRUE. chem_dname_table( idomain, P_oc_a06 ) = 'oc_a06' chem_desc_table( idomain, P_oc_a06 ) = 'Organic carbon, aerosol bin 06' chem_units_table( idomain, P_oc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a06 )%stream(2) = 2097216 ! 00200040 F_oc_a06 = .TRUE. IF ( chem_index_table( PARAM_bc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a06 = chem_num_table(idomain) chem_index_table( PARAM_bc_a06 , idomain ) = P_bc_a06 ELSE P_bc_a06 = chem_index_table( PARAM_bc_a06 , idomain ) END IF chem_boundary_table( idomain, P_bc_a06 ) = .TRUE. chem_dname_table( idomain, P_bc_a06 ) = 'bc_a06' chem_desc_table( idomain, P_bc_a06 ) = 'Black carbon, aerosol bin 06' chem_units_table( idomain, P_bc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a06 )%stream(2) = 2097216 ! 00200040 F_bc_a06 = .TRUE. IF ( chem_index_table( PARAM_hysw_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a06 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a06 , idomain ) = P_hysw_a06 ELSE P_hysw_a06 = chem_index_table( PARAM_hysw_a06 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a06 ) = .TRUE. chem_dname_table( idomain, P_hysw_a06 ) = 'hysw_a06' chem_desc_table( idomain, P_hysw_a06 ) = 'Hysteresis water, aerosol bin 06' chem_units_table( idomain, P_hysw_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a06 )%stream(2) = 2097216 ! 00200040 F_hysw_a06 = .TRUE. IF ( chem_index_table( PARAM_water_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a06 = chem_num_table(idomain) chem_index_table( PARAM_water_a06 , idomain ) = P_water_a06 ELSE P_water_a06 = chem_index_table( PARAM_water_a06 , idomain ) END IF chem_boundary_table( idomain, P_water_a06 ) = .TRUE. chem_dname_table( idomain, P_water_a06 ) = 'water_a06' chem_desc_table( idomain, P_water_a06 ) = 'Water, aerosol bin 06' chem_units_table( idomain, P_water_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a06 )%stream(2) = 2097216 ! 00200040 F_water_a06 = .TRUE. IF ( chem_index_table( PARAM_aro1_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1_a06 = chem_num_table(idomain) chem_index_table( PARAM_aro1_a06 , idomain ) = P_aro1_a06 ELSE P_aro1_a06 = chem_index_table( PARAM_aro1_a06 , idomain ) END IF chem_boundary_table( idomain, P_aro1_a06 ) = .TRUE. chem_dname_table( idomain, P_aro1_a06 ) = 'aro1_a06' chem_desc_table( idomain, P_aro1_a06 ) = 'ARO1, aerosol bin 01' chem_units_table( idomain, P_aro1_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro1_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro1_a06 )%stream(2) = 2097216 ! 00200040 F_aro1_a06 = .TRUE. IF ( chem_index_table( PARAM_aro2_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2_a06 = chem_num_table(idomain) chem_index_table( PARAM_aro2_a06 , idomain ) = P_aro2_a06 ELSE P_aro2_a06 = chem_index_table( PARAM_aro2_a06 , idomain ) END IF chem_boundary_table( idomain, P_aro2_a06 ) = .TRUE. chem_dname_table( idomain, P_aro2_a06 ) = 'aro2_a06' chem_desc_table( idomain, P_aro2_a06 ) = 'ARO2, aerosol bin 01' chem_units_table( idomain, P_aro2_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro2_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro2_a06 )%stream(2) = 2097216 ! 00200040 F_aro2_a06 = .TRUE. IF ( chem_index_table( PARAM_alk1_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1_a06 = chem_num_table(idomain) chem_index_table( PARAM_alk1_a06 , idomain ) = P_alk1_a06 ELSE P_alk1_a06 = chem_index_table( PARAM_alk1_a06 , idomain ) END IF chem_boundary_table( idomain, P_alk1_a06 ) = .TRUE. chem_dname_table( idomain, P_alk1_a06 ) = 'alk1_a06' chem_desc_table( idomain, P_alk1_a06 ) = 'ALK1, aerosol bin 01' chem_units_table( idomain, P_alk1_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_alk1_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk1_a06 )%stream(2) = 2097216 ! 00200040 F_alk1_a06 = .TRUE. IF ( chem_index_table( PARAM_ole1_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1_a06 = chem_num_table(idomain) chem_index_table( PARAM_ole1_a06 , idomain ) = P_ole1_a06 ELSE P_ole1_a06 = chem_index_table( PARAM_ole1_a06 , idomain ) END IF chem_boundary_table( idomain, P_ole1_a06 ) = .TRUE. chem_dname_table( idomain, P_ole1_a06 ) = 'ole1_a06' chem_desc_table( idomain, P_ole1_a06 ) = 'OLE1, aerosol bin 01' chem_units_table( idomain, P_ole1_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ole1_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole1_a06 )%stream(2) = 2097216 ! 00200040 F_ole1_a06 = .TRUE. IF ( chem_index_table( PARAM_api1_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1_a06 = chem_num_table(idomain) chem_index_table( PARAM_api1_a06 , idomain ) = P_api1_a06 ELSE P_api1_a06 = chem_index_table( PARAM_api1_a06 , idomain ) END IF chem_boundary_table( idomain, P_api1_a06 ) = .TRUE. chem_dname_table( idomain, P_api1_a06 ) = 'api1_a06' chem_desc_table( idomain, P_api1_a06 ) = 'API1, aerosol bin 01' chem_units_table( idomain, P_api1_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api1_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api1_a06 )%stream(2) = 2097216 ! 00200040 F_api1_a06 = .TRUE. IF ( chem_index_table( PARAM_api2_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2_a06 = chem_num_table(idomain) chem_index_table( PARAM_api2_a06 , idomain ) = P_api2_a06 ELSE P_api2_a06 = chem_index_table( PARAM_api2_a06 , idomain ) END IF chem_boundary_table( idomain, P_api2_a06 ) = .TRUE. chem_dname_table( idomain, P_api2_a06 ) = 'api2_a06' chem_desc_table( idomain, P_api2_a06 ) = 'API2, aerosol bin 01' chem_units_table( idomain, P_api2_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api2_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api2_a06 )%stream(2) = 2097216 ! 00200040 F_api2_a06 = .TRUE. IF ( chem_index_table( PARAM_lim1_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1_a06 = chem_num_table(idomain) chem_index_table( PARAM_lim1_a06 , idomain ) = P_lim1_a06 ELSE P_lim1_a06 = chem_index_table( PARAM_lim1_a06 , idomain ) END IF chem_boundary_table( idomain, P_lim1_a06 ) = .TRUE. chem_dname_table( idomain, P_lim1_a06 ) = 'lim1_a06' chem_desc_table( idomain, P_lim1_a06 ) = 'LIM1, aerosol bin 01' chem_units_table( idomain, P_lim1_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim1_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim1_a06 )%stream(2) = 2097216 ! 00200040 F_lim1_a06 = .TRUE. IF ( chem_index_table( PARAM_lim2_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2_a06 = chem_num_table(idomain) chem_index_table( PARAM_lim2_a06 , idomain ) = P_lim2_a06 ELSE P_lim2_a06 = chem_index_table( PARAM_lim2_a06 , idomain ) END IF chem_boundary_table( idomain, P_lim2_a06 ) = .TRUE. chem_dname_table( idomain, P_lim2_a06 ) = 'lim2_a06' chem_desc_table( idomain, P_lim2_a06 ) = 'LIM2, aerosol bin 01' chem_units_table( idomain, P_lim2_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim2_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim2_a06 )%stream(2) = 2097216 ! 00200040 F_lim2_a06 = .TRUE. IF ( chem_index_table( PARAM_num_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a06 = chem_num_table(idomain) chem_index_table( PARAM_num_a06 , idomain ) = P_num_a06 ELSE P_num_a06 = chem_index_table( PARAM_num_a06 , idomain ) END IF chem_boundary_table( idomain, P_num_a06 ) = .TRUE. chem_dname_table( idomain, P_num_a06 ) = 'num_a06' chem_desc_table( idomain, P_num_a06 ) = 'Number, aerosol bin 06' chem_units_table( idomain, P_num_a06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a06 )%stream(2) = 2097216 ! 00200040 F_num_a06 = .TRUE. IF ( chem_index_table( PARAM_so4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a07 = chem_num_table(idomain) chem_index_table( PARAM_so4_a07 , idomain ) = P_so4_a07 ELSE P_so4_a07 = chem_index_table( PARAM_so4_a07 , idomain ) END IF chem_boundary_table( idomain, P_so4_a07 ) = .TRUE. chem_dname_table( idomain, P_so4_a07 ) = 'so4_a07' chem_desc_table( idomain, P_so4_a07 ) = 'Sulfate, aerosol bin 07' chem_units_table( idomain, P_so4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a07 )%stream(2) = 2097216 ! 00200040 F_so4_a07 = .TRUE. IF ( chem_index_table( PARAM_no3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a07 = chem_num_table(idomain) chem_index_table( PARAM_no3_a07 , idomain ) = P_no3_a07 ELSE P_no3_a07 = chem_index_table( PARAM_no3_a07 , idomain ) END IF chem_boundary_table( idomain, P_no3_a07 ) = .TRUE. chem_dname_table( idomain, P_no3_a07 ) = 'no3_a07' chem_desc_table( idomain, P_no3_a07 ) = 'Nitrate, aerosol bin 07' chem_units_table( idomain, P_no3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a07 )%stream(2) = 2097216 ! 00200040 F_no3_a07 = .TRUE. IF ( chem_index_table( PARAM_cl_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a07 = chem_num_table(idomain) chem_index_table( PARAM_cl_a07 , idomain ) = P_cl_a07 ELSE P_cl_a07 = chem_index_table( PARAM_cl_a07 , idomain ) END IF chem_boundary_table( idomain, P_cl_a07 ) = .TRUE. chem_dname_table( idomain, P_cl_a07 ) = 'cl_a07' chem_desc_table( idomain, P_cl_a07 ) = 'Chloride, aerosol bin 07' chem_units_table( idomain, P_cl_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a07 )%stream(2) = 2097216 ! 00200040 F_cl_a07 = .TRUE. IF ( chem_index_table( PARAM_nh4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a07 , idomain ) = P_nh4_a07 ELSE P_nh4_a07 = chem_index_table( PARAM_nh4_a07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a07 ) = .TRUE. chem_dname_table( idomain, P_nh4_a07 ) = 'nh4_a07' chem_desc_table( idomain, P_nh4_a07 ) = 'Ammonium, aerosol bin 07' chem_units_table( idomain, P_nh4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a07 )%stream(2) = 2097216 ! 00200040 F_nh4_a07 = .TRUE. IF ( chem_index_table( PARAM_na_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a07 = chem_num_table(idomain) chem_index_table( PARAM_na_a07 , idomain ) = P_na_a07 ELSE P_na_a07 = chem_index_table( PARAM_na_a07 , idomain ) END IF chem_boundary_table( idomain, P_na_a07 ) = .TRUE. chem_dname_table( idomain, P_na_a07 ) = 'na_a07' chem_desc_table( idomain, P_na_a07 ) = 'Sodium, aerosol bin 07' chem_units_table( idomain, P_na_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a07 )%stream(2) = 2097216 ! 00200040 F_na_a07 = .TRUE. IF ( chem_index_table( PARAM_oin_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a07 = chem_num_table(idomain) chem_index_table( PARAM_oin_a07 , idomain ) = P_oin_a07 ELSE P_oin_a07 = chem_index_table( PARAM_oin_a07 , idomain ) END IF chem_boundary_table( idomain, P_oin_a07 ) = .TRUE. chem_dname_table( idomain, P_oin_a07 ) = 'oin_a07' chem_desc_table( idomain, P_oin_a07 ) = 'Other inorganics, aerosol bin 07' chem_units_table( idomain, P_oin_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a07 )%stream(2) = 2097216 ! 00200040 F_oin_a07 = .TRUE. IF ( chem_index_table( PARAM_oc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a07 = chem_num_table(idomain) chem_index_table( PARAM_oc_a07 , idomain ) = P_oc_a07 ELSE P_oc_a07 = chem_index_table( PARAM_oc_a07 , idomain ) END IF chem_boundary_table( idomain, P_oc_a07 ) = .TRUE. chem_dname_table( idomain, P_oc_a07 ) = 'oc_a07' chem_desc_table( idomain, P_oc_a07 ) = 'Organic carbon, aerosol bin 07' chem_units_table( idomain, P_oc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a07 )%stream(2) = 2097216 ! 00200040 F_oc_a07 = .TRUE. IF ( chem_index_table( PARAM_bc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a07 = chem_num_table(idomain) chem_index_table( PARAM_bc_a07 , idomain ) = P_bc_a07 ELSE P_bc_a07 = chem_index_table( PARAM_bc_a07 , idomain ) END IF chem_boundary_table( idomain, P_bc_a07 ) = .TRUE. chem_dname_table( idomain, P_bc_a07 ) = 'bc_a07' chem_desc_table( idomain, P_bc_a07 ) = 'Black carbon, aerosol bin 07' chem_units_table( idomain, P_bc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a07 )%stream(2) = 2097216 ! 00200040 F_bc_a07 = .TRUE. IF ( chem_index_table( PARAM_hysw_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a07 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a07 , idomain ) = P_hysw_a07 ELSE P_hysw_a07 = chem_index_table( PARAM_hysw_a07 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a07 ) = .TRUE. chem_dname_table( idomain, P_hysw_a07 ) = 'hysw_a07' chem_desc_table( idomain, P_hysw_a07 ) = 'Hysteresis water, aerosol bin 07' chem_units_table( idomain, P_hysw_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a07 )%stream(2) = 2097216 ! 00200040 F_hysw_a07 = .TRUE. IF ( chem_index_table( PARAM_water_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a07 = chem_num_table(idomain) chem_index_table( PARAM_water_a07 , idomain ) = P_water_a07 ELSE P_water_a07 = chem_index_table( PARAM_water_a07 , idomain ) END IF chem_boundary_table( idomain, P_water_a07 ) = .TRUE. chem_dname_table( idomain, P_water_a07 ) = 'water_a07' chem_desc_table( idomain, P_water_a07 ) = 'Water, aerosol bin 07' chem_units_table( idomain, P_water_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a07 )%stream(2) = 2097216 ! 00200040 F_water_a07 = .TRUE. IF ( chem_index_table( PARAM_aro1_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1_a07 = chem_num_table(idomain) chem_index_table( PARAM_aro1_a07 , idomain ) = P_aro1_a07 ELSE P_aro1_a07 = chem_index_table( PARAM_aro1_a07 , idomain ) END IF chem_boundary_table( idomain, P_aro1_a07 ) = .TRUE. chem_dname_table( idomain, P_aro1_a07 ) = 'aro1_a07' chem_desc_table( idomain, P_aro1_a07 ) = 'ARO1, aerosol bin 01' chem_units_table( idomain, P_aro1_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro1_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro1_a07 )%stream(2) = 2097216 ! 00200040 F_aro1_a07 = .TRUE. IF ( chem_index_table( PARAM_aro2_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2_a07 = chem_num_table(idomain) chem_index_table( PARAM_aro2_a07 , idomain ) = P_aro2_a07 ELSE P_aro2_a07 = chem_index_table( PARAM_aro2_a07 , idomain ) END IF chem_boundary_table( idomain, P_aro2_a07 ) = .TRUE. chem_dname_table( idomain, P_aro2_a07 ) = 'aro2_a07' chem_desc_table( idomain, P_aro2_a07 ) = 'ARO2, aerosol bin 01' chem_units_table( idomain, P_aro2_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro2_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro2_a07 )%stream(2) = 2097216 ! 00200040 F_aro2_a07 = .TRUE. IF ( chem_index_table( PARAM_alk1_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1_a07 = chem_num_table(idomain) chem_index_table( PARAM_alk1_a07 , idomain ) = P_alk1_a07 ELSE P_alk1_a07 = chem_index_table( PARAM_alk1_a07 , idomain ) END IF chem_boundary_table( idomain, P_alk1_a07 ) = .TRUE. chem_dname_table( idomain, P_alk1_a07 ) = 'alk1_a07' chem_desc_table( idomain, P_alk1_a07 ) = 'ALK1, aerosol bin 01' chem_units_table( idomain, P_alk1_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_alk1_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk1_a07 )%stream(2) = 2097216 ! 00200040 F_alk1_a07 = .TRUE. IF ( chem_index_table( PARAM_ole1_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1_a07 = chem_num_table(idomain) chem_index_table( PARAM_ole1_a07 , idomain ) = P_ole1_a07 ELSE P_ole1_a07 = chem_index_table( PARAM_ole1_a07 , idomain ) END IF chem_boundary_table( idomain, P_ole1_a07 ) = .TRUE. chem_dname_table( idomain, P_ole1_a07 ) = 'ole1_a07' chem_desc_table( idomain, P_ole1_a07 ) = 'OLE1, aerosol bin 01' chem_units_table( idomain, P_ole1_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ole1_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole1_a07 )%stream(2) = 2097216 ! 00200040 F_ole1_a07 = .TRUE. IF ( chem_index_table( PARAM_api1_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1_a07 = chem_num_table(idomain) chem_index_table( PARAM_api1_a07 , idomain ) = P_api1_a07 ELSE P_api1_a07 = chem_index_table( PARAM_api1_a07 , idomain ) END IF chem_boundary_table( idomain, P_api1_a07 ) = .TRUE. chem_dname_table( idomain, P_api1_a07 ) = 'api1_a07' chem_desc_table( idomain, P_api1_a07 ) = 'API1, aerosol bin 01' chem_units_table( idomain, P_api1_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api1_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api1_a07 )%stream(2) = 2097216 ! 00200040 F_api1_a07 = .TRUE. IF ( chem_index_table( PARAM_api2_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2_a07 = chem_num_table(idomain) chem_index_table( PARAM_api2_a07 , idomain ) = P_api2_a07 ELSE P_api2_a07 = chem_index_table( PARAM_api2_a07 , idomain ) END IF chem_boundary_table( idomain, P_api2_a07 ) = .TRUE. chem_dname_table( idomain, P_api2_a07 ) = 'api2_a07' chem_desc_table( idomain, P_api2_a07 ) = 'API2, aerosol bin 01' chem_units_table( idomain, P_api2_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api2_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api2_a07 )%stream(2) = 2097216 ! 00200040 F_api2_a07 = .TRUE. IF ( chem_index_table( PARAM_lim1_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1_a07 = chem_num_table(idomain) chem_index_table( PARAM_lim1_a07 , idomain ) = P_lim1_a07 ELSE P_lim1_a07 = chem_index_table( PARAM_lim1_a07 , idomain ) END IF chem_boundary_table( idomain, P_lim1_a07 ) = .TRUE. chem_dname_table( idomain, P_lim1_a07 ) = 'lim1_a07' chem_desc_table( idomain, P_lim1_a07 ) = 'LIM1, aerosol bin 01' chem_units_table( idomain, P_lim1_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim1_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim1_a07 )%stream(2) = 2097216 ! 00200040 F_lim1_a07 = .TRUE. IF ( chem_index_table( PARAM_lim2_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2_a07 = chem_num_table(idomain) chem_index_table( PARAM_lim2_a07 , idomain ) = P_lim2_a07 ELSE P_lim2_a07 = chem_index_table( PARAM_lim2_a07 , idomain ) END IF chem_boundary_table( idomain, P_lim2_a07 ) = .TRUE. chem_dname_table( idomain, P_lim2_a07 ) = 'lim2_a07' chem_desc_table( idomain, P_lim2_a07 ) = 'LIM2, aerosol bin 01' chem_units_table( idomain, P_lim2_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim2_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim2_a07 )%stream(2) = 2097216 ! 00200040 F_lim2_a07 = .TRUE. IF ( chem_index_table( PARAM_num_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a07 = chem_num_table(idomain) chem_index_table( PARAM_num_a07 , idomain ) = P_num_a07 ELSE P_num_a07 = chem_index_table( PARAM_num_a07 , idomain ) END IF chem_boundary_table( idomain, P_num_a07 ) = .TRUE. chem_dname_table( idomain, P_num_a07 ) = 'num_a07' chem_desc_table( idomain, P_num_a07 ) = 'Number, aerosol bin 07' chem_units_table( idomain, P_num_a07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a07 )%stream(2) = 2097216 ! 00200040 F_num_a07 = .TRUE. IF ( chem_index_table( PARAM_so4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a08 = chem_num_table(idomain) chem_index_table( PARAM_so4_a08 , idomain ) = P_so4_a08 ELSE P_so4_a08 = chem_index_table( PARAM_so4_a08 , idomain ) END IF chem_boundary_table( idomain, P_so4_a08 ) = .TRUE. chem_dname_table( idomain, P_so4_a08 ) = 'so4_a08' chem_desc_table( idomain, P_so4_a08 ) = 'Sulfate, aerosol bin 08' chem_units_table( idomain, P_so4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a08 )%stream(2) = 2097216 ! 00200040 F_so4_a08 = .TRUE. IF ( chem_index_table( PARAM_no3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a08 = chem_num_table(idomain) chem_index_table( PARAM_no3_a08 , idomain ) = P_no3_a08 ELSE P_no3_a08 = chem_index_table( PARAM_no3_a08 , idomain ) END IF chem_boundary_table( idomain, P_no3_a08 ) = .TRUE. chem_dname_table( idomain, P_no3_a08 ) = 'no3_a08' chem_desc_table( idomain, P_no3_a08 ) = 'Nitrate, aerosol bin 08' chem_units_table( idomain, P_no3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a08 )%stream(2) = 2097216 ! 00200040 F_no3_a08 = .TRUE. IF ( chem_index_table( PARAM_cl_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a08 = chem_num_table(idomain) chem_index_table( PARAM_cl_a08 , idomain ) = P_cl_a08 ELSE P_cl_a08 = chem_index_table( PARAM_cl_a08 , idomain ) END IF chem_boundary_table( idomain, P_cl_a08 ) = .TRUE. chem_dname_table( idomain, P_cl_a08 ) = 'cl_a08' chem_desc_table( idomain, P_cl_a08 ) = 'Chloride, aerosol bin 08' chem_units_table( idomain, P_cl_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a08 )%stream(2) = 2097216 ! 00200040 F_cl_a08 = .TRUE. IF ( chem_index_table( PARAM_nh4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a08 , idomain ) = P_nh4_a08 ELSE P_nh4_a08 = chem_index_table( PARAM_nh4_a08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a08 ) = .TRUE. chem_dname_table( idomain, P_nh4_a08 ) = 'nh4_a08' chem_desc_table( idomain, P_nh4_a08 ) = 'Ammonium, aerosol bin 08' chem_units_table( idomain, P_nh4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a08 )%stream(2) = 2097216 ! 00200040 F_nh4_a08 = .TRUE. IF ( chem_index_table( PARAM_na_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a08 = chem_num_table(idomain) chem_index_table( PARAM_na_a08 , idomain ) = P_na_a08 ELSE P_na_a08 = chem_index_table( PARAM_na_a08 , idomain ) END IF chem_boundary_table( idomain, P_na_a08 ) = .TRUE. chem_dname_table( idomain, P_na_a08 ) = 'na_a08' chem_desc_table( idomain, P_na_a08 ) = 'Sodium, aerosol bin 08' chem_units_table( idomain, P_na_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a08 )%stream(2) = 2097216 ! 00200040 F_na_a08 = .TRUE. IF ( chem_index_table( PARAM_oin_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a08 = chem_num_table(idomain) chem_index_table( PARAM_oin_a08 , idomain ) = P_oin_a08 ELSE P_oin_a08 = chem_index_table( PARAM_oin_a08 , idomain ) END IF chem_boundary_table( idomain, P_oin_a08 ) = .TRUE. chem_dname_table( idomain, P_oin_a08 ) = 'oin_a08' chem_desc_table( idomain, P_oin_a08 ) = 'Other inorganics, aerosol bin 08' chem_units_table( idomain, P_oin_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a08 )%stream(2) = 2097216 ! 00200040 F_oin_a08 = .TRUE. IF ( chem_index_table( PARAM_oc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a08 = chem_num_table(idomain) chem_index_table( PARAM_oc_a08 , idomain ) = P_oc_a08 ELSE P_oc_a08 = chem_index_table( PARAM_oc_a08 , idomain ) END IF chem_boundary_table( idomain, P_oc_a08 ) = .TRUE. chem_dname_table( idomain, P_oc_a08 ) = 'oc_a08' chem_desc_table( idomain, P_oc_a08 ) = 'Organic carbon, aerosol bin 08' chem_units_table( idomain, P_oc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a08 )%stream(2) = 2097216 ! 00200040 F_oc_a08 = .TRUE. IF ( chem_index_table( PARAM_bc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a08 = chem_num_table(idomain) chem_index_table( PARAM_bc_a08 , idomain ) = P_bc_a08 ELSE P_bc_a08 = chem_index_table( PARAM_bc_a08 , idomain ) END IF chem_boundary_table( idomain, P_bc_a08 ) = .TRUE. chem_dname_table( idomain, P_bc_a08 ) = 'bc_a08' chem_desc_table( idomain, P_bc_a08 ) = 'Black carbon, aerosol bin 08' chem_units_table( idomain, P_bc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a08 )%stream(2) = 2097216 ! 00200040 F_bc_a08 = .TRUE. IF ( chem_index_table( PARAM_hysw_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a08 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a08 , idomain ) = P_hysw_a08 ELSE P_hysw_a08 = chem_index_table( PARAM_hysw_a08 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a08 ) = .TRUE. chem_dname_table( idomain, P_hysw_a08 ) = 'hysw_a08' chem_desc_table( idomain, P_hysw_a08 ) = 'Hysteresis water, aerosol bin 08' chem_units_table( idomain, P_hysw_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a08 )%stream(2) = 2097216 ! 00200040 F_hysw_a08 = .TRUE. IF ( chem_index_table( PARAM_water_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a08 = chem_num_table(idomain) chem_index_table( PARAM_water_a08 , idomain ) = P_water_a08 ELSE P_water_a08 = chem_index_table( PARAM_water_a08 , idomain ) END IF chem_boundary_table( idomain, P_water_a08 ) = .TRUE. chem_dname_table( idomain, P_water_a08 ) = 'water_a08' chem_desc_table( idomain, P_water_a08 ) = 'Water, aerosol bin 08' chem_units_table( idomain, P_water_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a08 )%stream(2) = 2097216 ! 00200040 F_water_a08 = .TRUE. IF ( chem_index_table( PARAM_aro1_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1_a08 = chem_num_table(idomain) chem_index_table( PARAM_aro1_a08 , idomain ) = P_aro1_a08 ELSE P_aro1_a08 = chem_index_table( PARAM_aro1_a08 , idomain ) END IF chem_boundary_table( idomain, P_aro1_a08 ) = .TRUE. chem_dname_table( idomain, P_aro1_a08 ) = 'aro1_a08' chem_desc_table( idomain, P_aro1_a08 ) = 'ARO1, aerosol bin 01' chem_units_table( idomain, P_aro1_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro1_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro1_a08 )%stream(2) = 2097216 ! 00200040 F_aro1_a08 = .TRUE. IF ( chem_index_table( PARAM_aro2_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2_a08 = chem_num_table(idomain) chem_index_table( PARAM_aro2_a08 , idomain ) = P_aro2_a08 ELSE P_aro2_a08 = chem_index_table( PARAM_aro2_a08 , idomain ) END IF chem_boundary_table( idomain, P_aro2_a08 ) = .TRUE. chem_dname_table( idomain, P_aro2_a08 ) = 'aro2_a08' chem_desc_table( idomain, P_aro2_a08 ) = 'ARO2, aerosol bin 01' chem_units_table( idomain, P_aro2_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro2_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro2_a08 )%stream(2) = 2097216 ! 00200040 F_aro2_a08 = .TRUE. IF ( chem_index_table( PARAM_alk1_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1_a08 = chem_num_table(idomain) chem_index_table( PARAM_alk1_a08 , idomain ) = P_alk1_a08 ELSE P_alk1_a08 = chem_index_table( PARAM_alk1_a08 , idomain ) END IF chem_boundary_table( idomain, P_alk1_a08 ) = .TRUE. chem_dname_table( idomain, P_alk1_a08 ) = 'alk1_a08' chem_desc_table( idomain, P_alk1_a08 ) = 'ALK1, aerosol bin 01' chem_units_table( idomain, P_alk1_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_alk1_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk1_a08 )%stream(2) = 2097216 ! 00200040 F_alk1_a08 = .TRUE. IF ( chem_index_table( PARAM_ole1_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1_a08 = chem_num_table(idomain) chem_index_table( PARAM_ole1_a08 , idomain ) = P_ole1_a08 ELSE P_ole1_a08 = chem_index_table( PARAM_ole1_a08 , idomain ) END IF chem_boundary_table( idomain, P_ole1_a08 ) = .TRUE. chem_dname_table( idomain, P_ole1_a08 ) = 'ole1_a08' chem_desc_table( idomain, P_ole1_a08 ) = 'OLE1, aerosol bin 01' chem_units_table( idomain, P_ole1_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ole1_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole1_a08 )%stream(2) = 2097216 ! 00200040 F_ole1_a08 = .TRUE. IF ( chem_index_table( PARAM_api1_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1_a08 = chem_num_table(idomain) chem_index_table( PARAM_api1_a08 , idomain ) = P_api1_a08 ELSE P_api1_a08 = chem_index_table( PARAM_api1_a08 , idomain ) END IF chem_boundary_table( idomain, P_api1_a08 ) = .TRUE. chem_dname_table( idomain, P_api1_a08 ) = 'api1_a08' chem_desc_table( idomain, P_api1_a08 ) = 'API1, aerosol bin 01' chem_units_table( idomain, P_api1_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api1_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api1_a08 )%stream(2) = 2097216 ! 00200040 F_api1_a08 = .TRUE. IF ( chem_index_table( PARAM_api2_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2_a08 = chem_num_table(idomain) chem_index_table( PARAM_api2_a08 , idomain ) = P_api2_a08 ELSE P_api2_a08 = chem_index_table( PARAM_api2_a08 , idomain ) END IF chem_boundary_table( idomain, P_api2_a08 ) = .TRUE. chem_dname_table( idomain, P_api2_a08 ) = 'api2_a08' chem_desc_table( idomain, P_api2_a08 ) = 'API2, aerosol bin 01' chem_units_table( idomain, P_api2_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api2_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api2_a08 )%stream(2) = 2097216 ! 00200040 F_api2_a08 = .TRUE. IF ( chem_index_table( PARAM_lim1_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1_a08 = chem_num_table(idomain) chem_index_table( PARAM_lim1_a08 , idomain ) = P_lim1_a08 ELSE P_lim1_a08 = chem_index_table( PARAM_lim1_a08 , idomain ) END IF chem_boundary_table( idomain, P_lim1_a08 ) = .TRUE. chem_dname_table( idomain, P_lim1_a08 ) = 'lim1_a08' chem_desc_table( idomain, P_lim1_a08 ) = 'LIM1, aerosol bin 01' chem_units_table( idomain, P_lim1_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim1_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim1_a08 )%stream(2) = 2097216 ! 00200040 F_lim1_a08 = .TRUE. IF ( chem_index_table( PARAM_lim2_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2_a08 = chem_num_table(idomain) chem_index_table( PARAM_lim2_a08 , idomain ) = P_lim2_a08 ELSE P_lim2_a08 = chem_index_table( PARAM_lim2_a08 , idomain ) END IF chem_boundary_table( idomain, P_lim2_a08 ) = .TRUE. chem_dname_table( idomain, P_lim2_a08 ) = 'lim2_a08' chem_desc_table( idomain, P_lim2_a08 ) = 'LIM2, aerosol bin 01' chem_units_table( idomain, P_lim2_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim2_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim2_a08 )%stream(2) = 2097216 ! 00200040 F_lim2_a08 = .TRUE. IF ( chem_index_table( PARAM_num_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a08 = chem_num_table(idomain) chem_index_table( PARAM_num_a08 , idomain ) = P_num_a08 ELSE P_num_a08 = chem_index_table( PARAM_num_a08 , idomain ) END IF chem_boundary_table( idomain, P_num_a08 ) = .TRUE. chem_dname_table( idomain, P_num_a08 ) = 'num_a08' chem_desc_table( idomain, P_num_a08 ) = 'Number, aerosol bin 08' chem_units_table( idomain, P_num_a08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a08 )%stream(2) = 2097216 ! 00200040 F_num_a08 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 ! 00200040 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 ! 00200040 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 ! 00200040 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 ! 00200040 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a05 = chem_num_table(idomain) chem_index_table( PARAM_ca_a05 , idomain ) = P_ca_a05 ELSE P_ca_a05 = chem_index_table( PARAM_ca_a05 , idomain ) END IF chem_boundary_table( idomain, P_ca_a05 ) = .TRUE. chem_dname_table( idomain, P_ca_a05 ) = 'ca_a05' chem_desc_table( idomain, P_ca_a05 ) = 'Calcium, aerosol bin 05' chem_units_table( idomain, P_ca_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a05 )%stream(2) = 2097216 ! 00200040 F_ca_a05 = .TRUE. IF ( chem_index_table( PARAM_ca_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a06 = chem_num_table(idomain) chem_index_table( PARAM_ca_a06 , idomain ) = P_ca_a06 ELSE P_ca_a06 = chem_index_table( PARAM_ca_a06 , idomain ) END IF chem_boundary_table( idomain, P_ca_a06 ) = .TRUE. chem_dname_table( idomain, P_ca_a06 ) = 'ca_a06' chem_desc_table( idomain, P_ca_a06 ) = 'Calcium, aerosol bin 06' chem_units_table( idomain, P_ca_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a06 )%stream(2) = 2097216 ! 00200040 F_ca_a06 = .TRUE. IF ( chem_index_table( PARAM_ca_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a07 = chem_num_table(idomain) chem_index_table( PARAM_ca_a07 , idomain ) = P_ca_a07 ELSE P_ca_a07 = chem_index_table( PARAM_ca_a07 , idomain ) END IF chem_boundary_table( idomain, P_ca_a07 ) = .TRUE. chem_dname_table( idomain, P_ca_a07 ) = 'ca_a07' chem_desc_table( idomain, P_ca_a07 ) = 'Calcium, aerosol bin 07' chem_units_table( idomain, P_ca_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a07 )%stream(2) = 2097216 ! 00200040 F_ca_a07 = .TRUE. IF ( chem_index_table( PARAM_ca_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a08 = chem_num_table(idomain) chem_index_table( PARAM_ca_a08 , idomain ) = P_ca_a08 ELSE P_ca_a08 = chem_index_table( PARAM_ca_a08 , idomain ) END IF chem_boundary_table( idomain, P_ca_a08 ) = .TRUE. chem_dname_table( idomain, P_ca_a08 ) = 'ca_a08' chem_desc_table( idomain, P_ca_a08 ) = 'Calcium, aerosol bin 08' chem_units_table( idomain, P_ca_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a08 )%stream(2) = 2097216 ! 00200040 F_ca_a08 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 ! 00200040 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 ! 00200040 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 ! 00200040 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 ! 00200040 F_co3_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a05 = chem_num_table(idomain) chem_index_table( PARAM_co3_a05 , idomain ) = P_co3_a05 ELSE P_co3_a05 = chem_index_table( PARAM_co3_a05 , idomain ) END IF chem_boundary_table( idomain, P_co3_a05 ) = .TRUE. chem_dname_table( idomain, P_co3_a05 ) = 'co3_a05' chem_desc_table( idomain, P_co3_a05 ) = 'Carbonate, aerosol bin 05' chem_units_table( idomain, P_co3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a05 )%stream(2) = 2097216 ! 00200040 F_co3_a05 = .TRUE. IF ( chem_index_table( PARAM_co3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a06 = chem_num_table(idomain) chem_index_table( PARAM_co3_a06 , idomain ) = P_co3_a06 ELSE P_co3_a06 = chem_index_table( PARAM_co3_a06 , idomain ) END IF chem_boundary_table( idomain, P_co3_a06 ) = .TRUE. chem_dname_table( idomain, P_co3_a06 ) = 'co3_a06' chem_desc_table( idomain, P_co3_a06 ) = 'Carbonate, aerosol bin 06' chem_units_table( idomain, P_co3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a06 )%stream(2) = 2097216 ! 00200040 F_co3_a06 = .TRUE. IF ( chem_index_table( PARAM_co3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a07 = chem_num_table(idomain) chem_index_table( PARAM_co3_a07 , idomain ) = P_co3_a07 ELSE P_co3_a07 = chem_index_table( PARAM_co3_a07 , idomain ) END IF chem_boundary_table( idomain, P_co3_a07 ) = .TRUE. chem_dname_table( idomain, P_co3_a07 ) = 'co3_a07' chem_desc_table( idomain, P_co3_a07 ) = 'Carbonate, aerosol bin 07' chem_units_table( idomain, P_co3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a07 )%stream(2) = 2097216 ! 00200040 F_co3_a07 = .TRUE. IF ( chem_index_table( PARAM_co3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a08 = chem_num_table(idomain) chem_index_table( PARAM_co3_a08 , idomain ) = P_co3_a08 ELSE P_co3_a08 = chem_index_table( PARAM_co3_a08 , idomain ) END IF chem_boundary_table( idomain, P_co3_a08 ) = .TRUE. chem_dname_table( idomain, P_co3_a08 ) = 'co3_a08' chem_desc_table( idomain, P_co3_a08 ) = 'Carbonate, aerosol bin 08' chem_units_table( idomain, P_co3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a08 )%stream(2) = 2097216 ! 00200040 F_co3_a08 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==195)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_h2so4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2so4 = chem_num_table(idomain) chem_index_table( PARAM_h2so4 , idomain ) = P_h2so4 ELSE P_h2so4 = chem_index_table( PARAM_h2so4 , idomain ) END IF chem_boundary_table( idomain, P_h2so4 ) = .TRUE. chem_dname_table( idomain, P_h2so4 ) = 'h2so4' chem_desc_table( idomain, P_h2so4 ) = 'H2SO4 mixing ratio' chem_units_table( idomain, P_h2so4 ) = 'ppmv' chem_streams_table( idomain, P_h2so4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2so4 )%stream(2) = 2097216 ! 00200040 F_h2so4 = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ccho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ccho = chem_num_table(idomain) chem_index_table( PARAM_ccho , idomain ) = P_ccho ELSE P_ccho = chem_index_table( PARAM_ccho , idomain ) END IF chem_boundary_table( idomain, P_ccho ) = .TRUE. chem_dname_table( idomain, P_ccho ) = 'ccho' chem_desc_table( idomain, P_ccho ) = 'CCHO mixing ratio' chem_units_table( idomain, P_ccho ) = 'ppmv' chem_streams_table( idomain, P_ccho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ccho )%stream(2) = 2097216 ! 00200040 F_ccho = .TRUE. IF ( chem_index_table( PARAM_rcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rcho = chem_num_table(idomain) chem_index_table( PARAM_rcho , idomain ) = P_rcho ELSE P_rcho = chem_index_table( PARAM_rcho , idomain ) END IF chem_boundary_table( idomain, P_rcho ) = .TRUE. chem_dname_table( idomain, P_rcho ) = 'rcho' chem_desc_table( idomain, P_rcho ) = 'RCHO mixing ratio' chem_units_table( idomain, P_rcho ) = 'ppmv' chem_streams_table( idomain, P_rcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rcho )%stream(2) = 2097216 ! 00200040 F_rcho = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 ! 00200040 F_acet = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 ! 00200040 F_mek = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 ! 00200040 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_meoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meoh = chem_num_table(idomain) chem_index_table( PARAM_meoh , idomain ) = P_meoh ELSE P_meoh = chem_index_table( PARAM_meoh , idomain ) END IF chem_boundary_table( idomain, P_meoh ) = .TRUE. chem_dname_table( idomain, P_meoh ) = 'meoh' chem_desc_table( idomain, P_meoh ) = '' chem_units_table( idomain, P_meoh ) = '' chem_streams_table( idomain, P_meoh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_meoh )%stream(2) = 2097216 ! 00200040 F_meoh = .TRUE. IF ( chem_index_table( PARAM_etoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etoh = chem_num_table(idomain) chem_index_table( PARAM_etoh , idomain ) = P_etoh ELSE P_etoh = chem_index_table( PARAM_etoh , idomain ) END IF chem_boundary_table( idomain, P_etoh ) = .TRUE. chem_dname_table( idomain, P_etoh ) = 'etoh' chem_desc_table( idomain, P_etoh ) = 'ETOH mixing ratio' chem_units_table( idomain, P_etoh ) = 'ppmv' chem_streams_table( idomain, P_etoh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_etoh )%stream(2) = 2097216 ! 00200040 F_etoh = .TRUE. IF ( chem_index_table( PARAM_cco_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_oh = chem_num_table(idomain) chem_index_table( PARAM_cco_oh , idomain ) = P_cco_oh ELSE P_cco_oh = chem_index_table( PARAM_cco_oh , idomain ) END IF chem_boundary_table( idomain, P_cco_oh ) = .TRUE. chem_dname_table( idomain, P_cco_oh ) = 'cco_oh' chem_desc_table( idomain, P_cco_oh ) = 'CCO_OH mixing ratio' chem_units_table( idomain, P_cco_oh ) = 'ppmv' chem_streams_table( idomain, P_cco_oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cco_oh )%stream(2) = 2097216 ! 00200040 F_cco_oh = .TRUE. IF ( chem_index_table( PARAM_rco_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_oh = chem_num_table(idomain) chem_index_table( PARAM_rco_oh , idomain ) = P_rco_oh ELSE P_rco_oh = chem_index_table( PARAM_rco_oh , idomain ) END IF chem_boundary_table( idomain, P_rco_oh ) = .TRUE. chem_dname_table( idomain, P_rco_oh ) = 'rco_oh' chem_desc_table( idomain, P_rco_oh ) = 'RCO_OH mixing ratio' chem_units_table( idomain, P_rco_oh ) = 'ppmv' chem_streams_table( idomain, P_rco_oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rco_oh )%stream(2) = 2097216 ! 00200040 F_rco_oh = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_bacl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bacl = chem_num_table(idomain) chem_index_table( PARAM_bacl , idomain ) = P_bacl ELSE P_bacl = chem_index_table( PARAM_bacl , idomain ) END IF chem_boundary_table( idomain, P_bacl ) = .TRUE. chem_dname_table( idomain, P_bacl ) = 'bacl' chem_desc_table( idomain, P_bacl ) = 'BACL mixing ratio' chem_units_table( idomain, P_bacl ) = 'ppmv' chem_streams_table( idomain, P_bacl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bacl )%stream(2) = 2097216 ! 00200040 F_bacl = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 ! 00200040 F_cres = .TRUE. IF ( chem_index_table( PARAM_bald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bald = chem_num_table(idomain) chem_index_table( PARAM_bald , idomain ) = P_bald ELSE P_bald = chem_index_table( PARAM_bald , idomain ) END IF chem_boundary_table( idomain, P_bald ) = .TRUE. chem_dname_table( idomain, P_bald ) = 'bald' chem_desc_table( idomain, P_bald ) = 'BALD mixing ratio' chem_units_table( idomain, P_bald ) = 'ppmv' chem_streams_table( idomain, P_bald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bald )%stream(2) = 2097216 ! 00200040 F_bald = .TRUE. IF ( chem_index_table( PARAM_isoprod , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprod = chem_num_table(idomain) chem_index_table( PARAM_isoprod , idomain ) = P_isoprod ELSE P_isoprod = chem_index_table( PARAM_isoprod , idomain ) END IF chem_boundary_table( idomain, P_isoprod ) = .TRUE. chem_dname_table( idomain, P_isoprod ) = 'isoprod' chem_desc_table( idomain, P_isoprod ) = 'ISOPROD mixing ratio' chem_units_table( idomain, P_isoprod ) = 'ppmv' chem_streams_table( idomain, P_isoprod )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprod )%stream(2) = 2097216 ! 00200040 F_isoprod = .TRUE. IF ( chem_index_table( PARAM_methacro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_methacro = chem_num_table(idomain) chem_index_table( PARAM_methacro , idomain ) = P_methacro ELSE P_methacro = chem_index_table( PARAM_methacro , idomain ) END IF chem_boundary_table( idomain, P_methacro ) = .TRUE. chem_dname_table( idomain, P_methacro ) = 'methacro' chem_desc_table( idomain, P_methacro ) = 'METHACRO mixing ratio' chem_units_table( idomain, P_methacro ) = 'ppmv' chem_streams_table( idomain, P_methacro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_methacro )%stream(2) = 2097216 ! 00200040 F_methacro = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 ! 00200040 F_mvk = .TRUE. IF ( chem_index_table( PARAM_prod2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prod2 = chem_num_table(idomain) chem_index_table( PARAM_prod2 , idomain ) = P_prod2 ELSE P_prod2 = chem_index_table( PARAM_prod2 , idomain ) END IF chem_boundary_table( idomain, P_prod2 ) = .TRUE. chem_dname_table( idomain, P_prod2 ) = 'prod2' chem_desc_table( idomain, P_prod2 ) = 'PROD2 mixing ratio' chem_units_table( idomain, P_prod2 ) = 'ppmv' chem_streams_table( idomain, P_prod2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_prod2 )%stream(2) = 2097216 ! 00200040 F_prod2 = .TRUE. IF ( chem_index_table( PARAM_dcb1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb1 = chem_num_table(idomain) chem_index_table( PARAM_dcb1 , idomain ) = P_dcb1 ELSE P_dcb1 = chem_index_table( PARAM_dcb1 , idomain ) END IF chem_boundary_table( idomain, P_dcb1 ) = .TRUE. chem_dname_table( idomain, P_dcb1 ) = 'dcb1' chem_desc_table( idomain, P_dcb1 ) = 'DCB1 mixing ratio' chem_units_table( idomain, P_dcb1 ) = 'ppmv' chem_streams_table( idomain, P_dcb1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb1 )%stream(2) = 2097216 ! 00200040 F_dcb1 = .TRUE. IF ( chem_index_table( PARAM_dcb2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb2 = chem_num_table(idomain) chem_index_table( PARAM_dcb2 , idomain ) = P_dcb2 ELSE P_dcb2 = chem_index_table( PARAM_dcb2 , idomain ) END IF chem_boundary_table( idomain, P_dcb2 ) = .TRUE. chem_dname_table( idomain, P_dcb2 ) = 'dcb2' chem_desc_table( idomain, P_dcb2 ) = 'DCB2 mixing ratio' chem_units_table( idomain, P_dcb2 ) = 'ppmv' chem_streams_table( idomain, P_dcb2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb2 )%stream(2) = 2097216 ! 00200040 F_dcb2 = .TRUE. IF ( chem_index_table( PARAM_dcb3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb3 = chem_num_table(idomain) chem_index_table( PARAM_dcb3 , idomain ) = P_dcb3 ELSE P_dcb3 = chem_index_table( PARAM_dcb3 , idomain ) END IF chem_boundary_table( idomain, P_dcb3 ) = .TRUE. chem_dname_table( idomain, P_dcb3 ) = 'dcb3' chem_desc_table( idomain, P_dcb3 ) = 'DCB3 mixing ratio' chem_units_table( idomain, P_dcb3 ) = 'ppmv' chem_streams_table( idomain, P_dcb3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb3 )%stream(2) = 2097216 ! 00200040 F_dcb3 = .TRUE. IF ( chem_index_table( PARAM_ethene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethene = chem_num_table(idomain) chem_index_table( PARAM_ethene , idomain ) = P_ethene ELSE P_ethene = chem_index_table( PARAM_ethene , idomain ) END IF chem_boundary_table( idomain, P_ethene ) = .TRUE. chem_dname_table( idomain, P_ethene ) = 'ethene' chem_desc_table( idomain, P_ethene ) = 'ETHENE mixing ratio' chem_units_table( idomain, P_ethene ) = 'ppmv' chem_streams_table( idomain, P_ethene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethene )%stream(2) = 2097216 ! 00200040 F_ethene = .TRUE. IF ( chem_index_table( PARAM_isoprene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprene = chem_num_table(idomain) chem_index_table( PARAM_isoprene , idomain ) = P_isoprene ELSE P_isoprene = chem_index_table( PARAM_isoprene , idomain ) END IF chem_boundary_table( idomain, P_isoprene ) = .TRUE. chem_dname_table( idomain, P_isoprene ) = 'isoprene' chem_desc_table( idomain, P_isoprene ) = 'ISOPRENE mixing ratio' chem_units_table( idomain, P_isoprene ) = 'ppmv' chem_streams_table( idomain, P_isoprene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprene )%stream(2) = 2097216 ! 00200040 F_isoprene = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 ! 00200040 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 ! 00200040 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 ! 00200040 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 ! 00200040 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_alk3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk3 = chem_num_table(idomain) chem_index_table( PARAM_alk3 , idomain ) = P_alk3 ELSE P_alk3 = chem_index_table( PARAM_alk3 , idomain ) END IF chem_boundary_table( idomain, P_alk3 ) = .TRUE. chem_dname_table( idomain, P_alk3 ) = 'alk3' chem_desc_table( idomain, P_alk3 ) = 'ALK3 mixing ratio' chem_units_table( idomain, P_alk3 ) = 'ppmv' chem_streams_table( idomain, P_alk3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk3 )%stream(2) = 2097216 ! 00200040 F_alk3 = .TRUE. IF ( chem_index_table( PARAM_alk4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk4 = chem_num_table(idomain) chem_index_table( PARAM_alk4 , idomain ) = P_alk4 ELSE P_alk4 = chem_index_table( PARAM_alk4 , idomain ) END IF chem_boundary_table( idomain, P_alk4 ) = .TRUE. chem_dname_table( idomain, P_alk4 ) = 'alk4' chem_desc_table( idomain, P_alk4 ) = 'ALK4 mixing ratio' chem_units_table( idomain, P_alk4 ) = 'ppmv' chem_streams_table( idomain, P_alk4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk4 )%stream(2) = 2097216 ! 00200040 F_alk4 = .TRUE. IF ( chem_index_table( PARAM_alk5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk5 = chem_num_table(idomain) chem_index_table( PARAM_alk5 , idomain ) = P_alk5 ELSE P_alk5 = chem_index_table( PARAM_alk5 , idomain ) END IF chem_boundary_table( idomain, P_alk5 ) = .TRUE. chem_dname_table( idomain, P_alk5 ) = 'alk5' chem_desc_table( idomain, P_alk5 ) = 'ALK5 mixing ratio' chem_units_table( idomain, P_alk5 ) = 'ppmv' chem_streams_table( idomain, P_alk5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk5 )%stream(2) = 2097216 ! 00200040 F_alk5 = .TRUE. IF ( chem_index_table( PARAM_aro1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1 = chem_num_table(idomain) chem_index_table( PARAM_aro1 , idomain ) = P_aro1 ELSE P_aro1 = chem_index_table( PARAM_aro1 , idomain ) END IF chem_boundary_table( idomain, P_aro1 ) = .TRUE. chem_dname_table( idomain, P_aro1 ) = 'aro1' chem_desc_table( idomain, P_aro1 ) = 'ARO1 mixing ratio' chem_units_table( idomain, P_aro1 ) = 'ppmv' chem_streams_table( idomain, P_aro1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro1 )%stream(2) = 2097216 ! 00200040 F_aro1 = .TRUE. IF ( chem_index_table( PARAM_aro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2 = chem_num_table(idomain) chem_index_table( PARAM_aro2 , idomain ) = P_aro2 ELSE P_aro2 = chem_index_table( PARAM_aro2 , idomain ) END IF chem_boundary_table( idomain, P_aro2 ) = .TRUE. chem_dname_table( idomain, P_aro2 ) = 'aro2' chem_desc_table( idomain, P_aro2 ) = 'ARO2 mixing ratio' chem_units_table( idomain, P_aro2 ) = 'ppmv' chem_streams_table( idomain, P_aro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro2 )%stream(2) = 2097216 ! 00200040 F_aro2 = .TRUE. IF ( chem_index_table( PARAM_ole1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1 = chem_num_table(idomain) chem_index_table( PARAM_ole1 , idomain ) = P_ole1 ELSE P_ole1 = chem_index_table( PARAM_ole1 , idomain ) END IF chem_boundary_table( idomain, P_ole1 ) = .TRUE. chem_dname_table( idomain, P_ole1 ) = 'ole1' chem_desc_table( idomain, P_ole1 ) = 'OLE1 mixing ratio' chem_units_table( idomain, P_ole1 ) = 'ppmv' chem_streams_table( idomain, P_ole1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole1 )%stream(2) = 2097216 ! 00200040 F_ole1 = .TRUE. IF ( chem_index_table( PARAM_ole2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole2 = chem_num_table(idomain) chem_index_table( PARAM_ole2 , idomain ) = P_ole2 ELSE P_ole2 = chem_index_table( PARAM_ole2 , idomain ) END IF chem_boundary_table( idomain, P_ole2 ) = .TRUE. chem_dname_table( idomain, P_ole2 ) = 'ole2' chem_desc_table( idomain, P_ole2 ) = 'OLE2 mixing ratio' chem_units_table( idomain, P_ole2 ) = 'ppmv' chem_streams_table( idomain, P_ole2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole2 )%stream(2) = 2097216 ! 00200040 F_ole2 = .TRUE. IF ( chem_index_table( PARAM_terp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp = chem_num_table(idomain) chem_index_table( PARAM_terp , idomain ) = P_terp ELSE P_terp = chem_index_table( PARAM_terp , idomain ) END IF chem_boundary_table( idomain, P_terp ) = .TRUE. chem_dname_table( idomain, P_terp ) = 'terp' chem_desc_table( idomain, P_terp ) = 'TERP mixing ratio' chem_units_table( idomain, P_terp ) = 'ppmv' chem_streams_table( idomain, P_terp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terp )%stream(2) = 2097216 ! 00200040 F_terp = .TRUE. IF ( chem_index_table( PARAM_rno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rno3 = chem_num_table(idomain) chem_index_table( PARAM_rno3 , idomain ) = P_rno3 ELSE P_rno3 = chem_index_table( PARAM_rno3 , idomain ) END IF chem_boundary_table( idomain, P_rno3 ) = .TRUE. chem_dname_table( idomain, P_rno3 ) = 'rno3' chem_desc_table( idomain, P_rno3 ) = 'RNO3 mixing ratio' chem_units_table( idomain, P_rno3 ) = 'ppmv' chem_streams_table( idomain, P_rno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rno3 )%stream(2) = 2097216 ! 00200040 F_rno3 = .TRUE. IF ( chem_index_table( PARAM_nphe , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nphe = chem_num_table(idomain) chem_index_table( PARAM_nphe , idomain ) = P_nphe ELSE P_nphe = chem_index_table( PARAM_nphe , idomain ) END IF chem_boundary_table( idomain, P_nphe ) = .TRUE. chem_dname_table( idomain, P_nphe ) = 'nphe' chem_desc_table( idomain, P_nphe ) = 'NPHE mixing ratio' chem_units_table( idomain, P_nphe ) = 'ppmv' chem_streams_table( idomain, P_nphe )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nphe )%stream(2) = 2097216 ! 00200040 F_nphe = .TRUE. IF ( chem_index_table( PARAM_phen , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phen = chem_num_table(idomain) chem_index_table( PARAM_phen , idomain ) = P_phen ELSE P_phen = chem_index_table( PARAM_phen , idomain ) END IF chem_boundary_table( idomain, P_phen ) = .TRUE. chem_dname_table( idomain, P_phen ) = 'phen' chem_desc_table( idomain, P_phen ) = 'PHEN mixing ratio' chem_units_table( idomain, P_phen ) = 'ppmv' chem_streams_table( idomain, P_phen )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_phen )%stream(2) = 2097216 ! 00200040 F_phen = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_pan2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan2 = chem_num_table(idomain) chem_index_table( PARAM_pan2 , idomain ) = P_pan2 ELSE P_pan2 = chem_index_table( PARAM_pan2 , idomain ) END IF chem_boundary_table( idomain, P_pan2 ) = .TRUE. chem_dname_table( idomain, P_pan2 ) = 'pan2' chem_desc_table( idomain, P_pan2 ) = 'PAN2 mixing ratio' chem_units_table( idomain, P_pan2 ) = 'ppmv' chem_streams_table( idomain, P_pan2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan2 )%stream(2) = 2097216 ! 00200040 F_pan2 = .TRUE. IF ( chem_index_table( PARAM_pbzn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pbzn = chem_num_table(idomain) chem_index_table( PARAM_pbzn , idomain ) = P_pbzn ELSE P_pbzn = chem_index_table( PARAM_pbzn , idomain ) END IF chem_boundary_table( idomain, P_pbzn ) = .TRUE. chem_dname_table( idomain, P_pbzn ) = 'pbzn' chem_desc_table( idomain, P_pbzn ) = 'PBZN mixing ratio' chem_units_table( idomain, P_pbzn ) = 'ppmv' chem_streams_table( idomain, P_pbzn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pbzn )%stream(2) = 2097216 ! 00200040 F_pbzn = .TRUE. IF ( chem_index_table( PARAM_ma_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ma_pan = chem_num_table(idomain) chem_index_table( PARAM_ma_pan , idomain ) = P_ma_pan ELSE P_ma_pan = chem_index_table( PARAM_ma_pan , idomain ) END IF chem_boundary_table( idomain, P_ma_pan ) = .TRUE. chem_dname_table( idomain, P_ma_pan ) = 'ma_pan' chem_desc_table( idomain, P_ma_pan ) = 'MA_PAN mixing ratio' chem_units_table( idomain, P_ma_pan ) = 'ppmv' chem_streams_table( idomain, P_ma_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ma_pan )%stream(2) = 2097216 ! 00200040 F_ma_pan = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_cco_ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_ooh = chem_num_table(idomain) chem_index_table( PARAM_cco_ooh , idomain ) = P_cco_ooh ELSE P_cco_ooh = chem_index_table( PARAM_cco_ooh , idomain ) END IF chem_boundary_table( idomain, P_cco_ooh ) = .TRUE. chem_dname_table( idomain, P_cco_ooh ) = 'cco_ooh' chem_desc_table( idomain, P_cco_ooh ) = 'CCO_OOH mixing ratio' chem_units_table( idomain, P_cco_ooh ) = 'ppmv' chem_streams_table( idomain, P_cco_ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cco_ooh )%stream(2) = 2097216 ! 00200040 F_cco_ooh = .TRUE. IF ( chem_index_table( PARAM_rco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_o2 = chem_num_table(idomain) chem_index_table( PARAM_rco_o2 , idomain ) = P_rco_o2 ELSE P_rco_o2 = chem_index_table( PARAM_rco_o2 , idomain ) END IF chem_boundary_table( idomain, P_rco_o2 ) = .TRUE. chem_dname_table( idomain, P_rco_o2 ) = 'rco_o2' chem_desc_table( idomain, P_rco_o2 ) = 'RCO_O2 mixing ratio' chem_units_table( idomain, P_rco_o2 ) = 'ppmv' chem_streams_table( idomain, P_rco_o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rco_o2 )%stream(2) = 2097216 ! 00200040 F_rco_o2 = .TRUE. IF ( chem_index_table( PARAM_rco_ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_ooh = chem_num_table(idomain) chem_index_table( PARAM_rco_ooh , idomain ) = P_rco_ooh ELSE P_rco_ooh = chem_index_table( PARAM_rco_ooh , idomain ) END IF chem_boundary_table( idomain, P_rco_ooh ) = .TRUE. chem_dname_table( idomain, P_rco_ooh ) = 'rco_ooh' chem_desc_table( idomain, P_rco_ooh ) = 'RCO_OOH mixing ratio' chem_units_table( idomain, P_rco_ooh ) = 'ppmv' chem_streams_table( idomain, P_rco_ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rco_ooh )%stream(2) = 2097216 ! 00200040 F_rco_ooh = .TRUE. IF ( chem_index_table( PARAM_xn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xn = chem_num_table(idomain) chem_index_table( PARAM_xn , idomain ) = P_xn ELSE P_xn = chem_index_table( PARAM_xn , idomain ) END IF chem_boundary_table( idomain, P_xn ) = .TRUE. chem_dname_table( idomain, P_xn ) = 'xn' chem_desc_table( idomain, P_xn ) = 'XN mixing ratio' chem_units_table( idomain, P_xn ) = 'ppmv' chem_streams_table( idomain, P_xn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xn )%stream(2) = 2097216 ! 00200040 F_xn = .TRUE. IF ( chem_index_table( PARAM_xc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xc = chem_num_table(idomain) chem_index_table( PARAM_xc , idomain ) = P_xc ELSE P_xc = chem_index_table( PARAM_xc , idomain ) END IF chem_boundary_table( idomain, P_xc ) = .TRUE. chem_dname_table( idomain, P_xc ) = 'xc' chem_desc_table( idomain, P_xc ) = 'XC mixing ratio' chem_units_table( idomain, P_xc ) = 'ppmv' chem_streams_table( idomain, P_xc )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xc )%stream(2) = 2097216 ! 00200040 F_xc = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_c_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c_o2 = chem_num_table(idomain) chem_index_table( PARAM_c_o2 , idomain ) = P_c_o2 ELSE P_c_o2 = chem_index_table( PARAM_c_o2 , idomain ) END IF chem_boundary_table( idomain, P_c_o2 ) = .TRUE. chem_dname_table( idomain, P_c_o2 ) = 'c_o2' chem_desc_table( idomain, P_c_o2 ) = 'C_O2 mixing ratio' chem_units_table( idomain, P_c_o2 ) = 'ppmv' chem_streams_table( idomain, P_c_o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c_o2 )%stream(2) = 2097216 ! 00200040 F_c_o2 = .TRUE. IF ( chem_index_table( PARAM_cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cooh = chem_num_table(idomain) chem_index_table( PARAM_cooh , idomain ) = P_cooh ELSE P_cooh = chem_index_table( PARAM_cooh , idomain ) END IF chem_boundary_table( idomain, P_cooh ) = .TRUE. chem_dname_table( idomain, P_cooh ) = 'cooh' chem_desc_table( idomain, P_cooh ) = 'COOH mixing ratio' chem_units_table( idomain, P_cooh ) = 'ppmv' chem_streams_table( idomain, P_cooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cooh )%stream(2) = 2097216 ! 00200040 F_cooh = .TRUE. IF ( chem_index_table( PARAM_rooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rooh = chem_num_table(idomain) chem_index_table( PARAM_rooh , idomain ) = P_rooh ELSE P_rooh = chem_index_table( PARAM_rooh , idomain ) END IF chem_boundary_table( idomain, P_rooh ) = .TRUE. chem_dname_table( idomain, P_rooh ) = 'rooh' chem_desc_table( idomain, P_rooh ) = 'ROOH mixing ratio' chem_units_table( idomain, P_rooh ) = 'ppmv' chem_streams_table( idomain, P_rooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rooh )%stream(2) = 2097216 ! 00200040 F_rooh = .TRUE. IF ( chem_index_table( PARAM_ro2_r , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2_r = chem_num_table(idomain) chem_index_table( PARAM_ro2_r , idomain ) = P_ro2_r ELSE P_ro2_r = chem_index_table( PARAM_ro2_r , idomain ) END IF chem_boundary_table( idomain, P_ro2_r ) = .TRUE. chem_dname_table( idomain, P_ro2_r ) = 'ro2_r' chem_desc_table( idomain, P_ro2_r ) = 'RO2_R mixing ratio' chem_units_table( idomain, P_ro2_r ) = 'ppmv' chem_streams_table( idomain, P_ro2_r )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2_r )%stream(2) = 2097216 ! 00200040 F_ro2_r = .TRUE. IF ( chem_index_table( PARAM_r2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_r2o2 = chem_num_table(idomain) chem_index_table( PARAM_r2o2 , idomain ) = P_r2o2 ELSE P_r2o2 = chem_index_table( PARAM_r2o2 , idomain ) END IF chem_boundary_table( idomain, P_r2o2 ) = .TRUE. chem_dname_table( idomain, P_r2o2 ) = 'r2o2' chem_desc_table( idomain, P_r2o2 ) = 'R2O2 mixing ratio' chem_units_table( idomain, P_r2o2 ) = 'ppmv' chem_streams_table( idomain, P_r2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_r2o2 )%stream(2) = 2097216 ! 00200040 F_r2o2 = .TRUE. IF ( chem_index_table( PARAM_ro2_n , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2_n = chem_num_table(idomain) chem_index_table( PARAM_ro2_n , idomain ) = P_ro2_n ELSE P_ro2_n = chem_index_table( PARAM_ro2_n , idomain ) END IF chem_boundary_table( idomain, P_ro2_n ) = .TRUE. chem_dname_table( idomain, P_ro2_n ) = 'ro2_n' chem_desc_table( idomain, P_ro2_n ) = 'RO2_N mixing ratio' chem_units_table( idomain, P_ro2_n ) = 'ppmv' chem_streams_table( idomain, P_ro2_n )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2_n )%stream(2) = 2097216 ! 00200040 F_ro2_n = .TRUE. IF ( chem_index_table( PARAM_cco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_o2 = chem_num_table(idomain) chem_index_table( PARAM_cco_o2 , idomain ) = P_cco_o2 ELSE P_cco_o2 = chem_index_table( PARAM_cco_o2 , idomain ) END IF chem_boundary_table( idomain, P_cco_o2 ) = .TRUE. chem_dname_table( idomain, P_cco_o2 ) = 'cco_o2' chem_desc_table( idomain, P_cco_o2 ) = 'CCO_O2 mixing ratio' chem_units_table( idomain, P_cco_o2 ) = 'ppmv' chem_streams_table( idomain, P_cco_o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cco_o2 )%stream(2) = 2097216 ! 00200040 F_cco_o2 = .TRUE. IF ( chem_index_table( PARAM_bzco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bzco_o2 = chem_num_table(idomain) chem_index_table( PARAM_bzco_o2 , idomain ) = P_bzco_o2 ELSE P_bzco_o2 = chem_index_table( PARAM_bzco_o2 , idomain ) END IF chem_boundary_table( idomain, P_bzco_o2 ) = .TRUE. chem_dname_table( idomain, P_bzco_o2 ) = 'bzco_o2' chem_desc_table( idomain, P_bzco_o2 ) = 'BZCO_O2 mixing ratio' chem_units_table( idomain, P_bzco_o2 ) = 'ppmv' chem_streams_table( idomain, P_bzco_o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bzco_o2 )%stream(2) = 2097216 ! 00200040 F_bzco_o2 = .TRUE. IF ( chem_index_table( PARAM_ma_rco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ma_rco3 = chem_num_table(idomain) chem_index_table( PARAM_ma_rco3 , idomain ) = P_ma_rco3 ELSE P_ma_rco3 = chem_index_table( PARAM_ma_rco3 , idomain ) END IF chem_boundary_table( idomain, P_ma_rco3 ) = .TRUE. chem_dname_table( idomain, P_ma_rco3 ) = 'ma_rco3' chem_desc_table( idomain, P_ma_rco3 ) = 'MA_RCO3 mixing ratio' chem_units_table( idomain, P_ma_rco3 ) = 'ppmv' chem_streams_table( idomain, P_ma_rco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ma_rco3 )%stream(2) = 2097216 ! 00200040 F_ma_rco3 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==198)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_h2so4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2so4 = chem_num_table(idomain) chem_index_table( PARAM_h2so4 , idomain ) = P_h2so4 ELSE P_h2so4 = chem_index_table( PARAM_h2so4 , idomain ) END IF chem_boundary_table( idomain, P_h2so4 ) = .TRUE. chem_dname_table( idomain, P_h2so4 ) = 'h2so4' chem_desc_table( idomain, P_h2so4 ) = 'H2SO4 mixing ratio' chem_units_table( idomain, P_h2so4 ) = 'ppmv' chem_streams_table( idomain, P_h2so4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2so4 )%stream(2) = 2097216 ! 00200040 F_h2so4 = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ccho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ccho = chem_num_table(idomain) chem_index_table( PARAM_ccho , idomain ) = P_ccho ELSE P_ccho = chem_index_table( PARAM_ccho , idomain ) END IF chem_boundary_table( idomain, P_ccho ) = .TRUE. chem_dname_table( idomain, P_ccho ) = 'ccho' chem_desc_table( idomain, P_ccho ) = 'CCHO mixing ratio' chem_units_table( idomain, P_ccho ) = 'ppmv' chem_streams_table( idomain, P_ccho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ccho )%stream(2) = 2097216 ! 00200040 F_ccho = .TRUE. IF ( chem_index_table( PARAM_rcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rcho = chem_num_table(idomain) chem_index_table( PARAM_rcho , idomain ) = P_rcho ELSE P_rcho = chem_index_table( PARAM_rcho , idomain ) END IF chem_boundary_table( idomain, P_rcho ) = .TRUE. chem_dname_table( idomain, P_rcho ) = 'rcho' chem_desc_table( idomain, P_rcho ) = 'RCHO mixing ratio' chem_units_table( idomain, P_rcho ) = 'ppmv' chem_streams_table( idomain, P_rcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rcho )%stream(2) = 2097216 ! 00200040 F_rcho = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 ! 00200040 F_acet = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 ! 00200040 F_mek = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 ! 00200040 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_meoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meoh = chem_num_table(idomain) chem_index_table( PARAM_meoh , idomain ) = P_meoh ELSE P_meoh = chem_index_table( PARAM_meoh , idomain ) END IF chem_boundary_table( idomain, P_meoh ) = .TRUE. chem_dname_table( idomain, P_meoh ) = 'meoh' chem_desc_table( idomain, P_meoh ) = '' chem_units_table( idomain, P_meoh ) = '' chem_streams_table( idomain, P_meoh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_meoh )%stream(2) = 2097216 ! 00200040 F_meoh = .TRUE. IF ( chem_index_table( PARAM_etoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etoh = chem_num_table(idomain) chem_index_table( PARAM_etoh , idomain ) = P_etoh ELSE P_etoh = chem_index_table( PARAM_etoh , idomain ) END IF chem_boundary_table( idomain, P_etoh ) = .TRUE. chem_dname_table( idomain, P_etoh ) = 'etoh' chem_desc_table( idomain, P_etoh ) = 'ETOH mixing ratio' chem_units_table( idomain, P_etoh ) = 'ppmv' chem_streams_table( idomain, P_etoh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_etoh )%stream(2) = 2097216 ! 00200040 F_etoh = .TRUE. IF ( chem_index_table( PARAM_cco_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_oh = chem_num_table(idomain) chem_index_table( PARAM_cco_oh , idomain ) = P_cco_oh ELSE P_cco_oh = chem_index_table( PARAM_cco_oh , idomain ) END IF chem_boundary_table( idomain, P_cco_oh ) = .TRUE. chem_dname_table( idomain, P_cco_oh ) = 'cco_oh' chem_desc_table( idomain, P_cco_oh ) = 'CCO_OH mixing ratio' chem_units_table( idomain, P_cco_oh ) = 'ppmv' chem_streams_table( idomain, P_cco_oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cco_oh )%stream(2) = 2097216 ! 00200040 F_cco_oh = .TRUE. IF ( chem_index_table( PARAM_rco_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_oh = chem_num_table(idomain) chem_index_table( PARAM_rco_oh , idomain ) = P_rco_oh ELSE P_rco_oh = chem_index_table( PARAM_rco_oh , idomain ) END IF chem_boundary_table( idomain, P_rco_oh ) = .TRUE. chem_dname_table( idomain, P_rco_oh ) = 'rco_oh' chem_desc_table( idomain, P_rco_oh ) = 'RCO_OH mixing ratio' chem_units_table( idomain, P_rco_oh ) = 'ppmv' chem_streams_table( idomain, P_rco_oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rco_oh )%stream(2) = 2097216 ! 00200040 F_rco_oh = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_bacl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bacl = chem_num_table(idomain) chem_index_table( PARAM_bacl , idomain ) = P_bacl ELSE P_bacl = chem_index_table( PARAM_bacl , idomain ) END IF chem_boundary_table( idomain, P_bacl ) = .TRUE. chem_dname_table( idomain, P_bacl ) = 'bacl' chem_desc_table( idomain, P_bacl ) = 'BACL mixing ratio' chem_units_table( idomain, P_bacl ) = 'ppmv' chem_streams_table( idomain, P_bacl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bacl )%stream(2) = 2097216 ! 00200040 F_bacl = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 ! 00200040 F_cres = .TRUE. IF ( chem_index_table( PARAM_bald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bald = chem_num_table(idomain) chem_index_table( PARAM_bald , idomain ) = P_bald ELSE P_bald = chem_index_table( PARAM_bald , idomain ) END IF chem_boundary_table( idomain, P_bald ) = .TRUE. chem_dname_table( idomain, P_bald ) = 'bald' chem_desc_table( idomain, P_bald ) = 'BALD mixing ratio' chem_units_table( idomain, P_bald ) = 'ppmv' chem_streams_table( idomain, P_bald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bald )%stream(2) = 2097216 ! 00200040 F_bald = .TRUE. IF ( chem_index_table( PARAM_isoprod , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprod = chem_num_table(idomain) chem_index_table( PARAM_isoprod , idomain ) = P_isoprod ELSE P_isoprod = chem_index_table( PARAM_isoprod , idomain ) END IF chem_boundary_table( idomain, P_isoprod ) = .TRUE. chem_dname_table( idomain, P_isoprod ) = 'isoprod' chem_desc_table( idomain, P_isoprod ) = 'ISOPROD mixing ratio' chem_units_table( idomain, P_isoprod ) = 'ppmv' chem_streams_table( idomain, P_isoprod )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprod )%stream(2) = 2097216 ! 00200040 F_isoprod = .TRUE. IF ( chem_index_table( PARAM_methacro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_methacro = chem_num_table(idomain) chem_index_table( PARAM_methacro , idomain ) = P_methacro ELSE P_methacro = chem_index_table( PARAM_methacro , idomain ) END IF chem_boundary_table( idomain, P_methacro ) = .TRUE. chem_dname_table( idomain, P_methacro ) = 'methacro' chem_desc_table( idomain, P_methacro ) = 'METHACRO mixing ratio' chem_units_table( idomain, P_methacro ) = 'ppmv' chem_streams_table( idomain, P_methacro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_methacro )%stream(2) = 2097216 ! 00200040 F_methacro = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 ! 00200040 F_mvk = .TRUE. IF ( chem_index_table( PARAM_prod2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prod2 = chem_num_table(idomain) chem_index_table( PARAM_prod2 , idomain ) = P_prod2 ELSE P_prod2 = chem_index_table( PARAM_prod2 , idomain ) END IF chem_boundary_table( idomain, P_prod2 ) = .TRUE. chem_dname_table( idomain, P_prod2 ) = 'prod2' chem_desc_table( idomain, P_prod2 ) = 'PROD2 mixing ratio' chem_units_table( idomain, P_prod2 ) = 'ppmv' chem_streams_table( idomain, P_prod2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_prod2 )%stream(2) = 2097216 ! 00200040 F_prod2 = .TRUE. IF ( chem_index_table( PARAM_dcb1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb1 = chem_num_table(idomain) chem_index_table( PARAM_dcb1 , idomain ) = P_dcb1 ELSE P_dcb1 = chem_index_table( PARAM_dcb1 , idomain ) END IF chem_boundary_table( idomain, P_dcb1 ) = .TRUE. chem_dname_table( idomain, P_dcb1 ) = 'dcb1' chem_desc_table( idomain, P_dcb1 ) = 'DCB1 mixing ratio' chem_units_table( idomain, P_dcb1 ) = 'ppmv' chem_streams_table( idomain, P_dcb1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb1 )%stream(2) = 2097216 ! 00200040 F_dcb1 = .TRUE. IF ( chem_index_table( PARAM_dcb2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb2 = chem_num_table(idomain) chem_index_table( PARAM_dcb2 , idomain ) = P_dcb2 ELSE P_dcb2 = chem_index_table( PARAM_dcb2 , idomain ) END IF chem_boundary_table( idomain, P_dcb2 ) = .TRUE. chem_dname_table( idomain, P_dcb2 ) = 'dcb2' chem_desc_table( idomain, P_dcb2 ) = 'DCB2 mixing ratio' chem_units_table( idomain, P_dcb2 ) = 'ppmv' chem_streams_table( idomain, P_dcb2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb2 )%stream(2) = 2097216 ! 00200040 F_dcb2 = .TRUE. IF ( chem_index_table( PARAM_dcb3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb3 = chem_num_table(idomain) chem_index_table( PARAM_dcb3 , idomain ) = P_dcb3 ELSE P_dcb3 = chem_index_table( PARAM_dcb3 , idomain ) END IF chem_boundary_table( idomain, P_dcb3 ) = .TRUE. chem_dname_table( idomain, P_dcb3 ) = 'dcb3' chem_desc_table( idomain, P_dcb3 ) = 'DCB3 mixing ratio' chem_units_table( idomain, P_dcb3 ) = 'ppmv' chem_streams_table( idomain, P_dcb3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb3 )%stream(2) = 2097216 ! 00200040 F_dcb3 = .TRUE. IF ( chem_index_table( PARAM_ethene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethene = chem_num_table(idomain) chem_index_table( PARAM_ethene , idomain ) = P_ethene ELSE P_ethene = chem_index_table( PARAM_ethene , idomain ) END IF chem_boundary_table( idomain, P_ethene ) = .TRUE. chem_dname_table( idomain, P_ethene ) = 'ethene' chem_desc_table( idomain, P_ethene ) = 'ETHENE mixing ratio' chem_units_table( idomain, P_ethene ) = 'ppmv' chem_streams_table( idomain, P_ethene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethene )%stream(2) = 2097216 ! 00200040 F_ethene = .TRUE. IF ( chem_index_table( PARAM_isoprene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprene = chem_num_table(idomain) chem_index_table( PARAM_isoprene , idomain ) = P_isoprene ELSE P_isoprene = chem_index_table( PARAM_isoprene , idomain ) END IF chem_boundary_table( idomain, P_isoprene ) = .TRUE. chem_dname_table( idomain, P_isoprene ) = 'isoprene' chem_desc_table( idomain, P_isoprene ) = 'ISOPRENE mixing ratio' chem_units_table( idomain, P_isoprene ) = 'ppmv' chem_streams_table( idomain, P_isoprene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprene )%stream(2) = 2097216 ! 00200040 F_isoprene = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 ! 00200040 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 ! 00200040 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 ! 00200040 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 ! 00200040 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_alk3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk3 = chem_num_table(idomain) chem_index_table( PARAM_alk3 , idomain ) = P_alk3 ELSE P_alk3 = chem_index_table( PARAM_alk3 , idomain ) END IF chem_boundary_table( idomain, P_alk3 ) = .TRUE. chem_dname_table( idomain, P_alk3 ) = 'alk3' chem_desc_table( idomain, P_alk3 ) = 'ALK3 mixing ratio' chem_units_table( idomain, P_alk3 ) = 'ppmv' chem_streams_table( idomain, P_alk3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk3 )%stream(2) = 2097216 ! 00200040 F_alk3 = .TRUE. IF ( chem_index_table( PARAM_alk4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk4 = chem_num_table(idomain) chem_index_table( PARAM_alk4 , idomain ) = P_alk4 ELSE P_alk4 = chem_index_table( PARAM_alk4 , idomain ) END IF chem_boundary_table( idomain, P_alk4 ) = .TRUE. chem_dname_table( idomain, P_alk4 ) = 'alk4' chem_desc_table( idomain, P_alk4 ) = 'ALK4 mixing ratio' chem_units_table( idomain, P_alk4 ) = 'ppmv' chem_streams_table( idomain, P_alk4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk4 )%stream(2) = 2097216 ! 00200040 F_alk4 = .TRUE. IF ( chem_index_table( PARAM_alk5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk5 = chem_num_table(idomain) chem_index_table( PARAM_alk5 , idomain ) = P_alk5 ELSE P_alk5 = chem_index_table( PARAM_alk5 , idomain ) END IF chem_boundary_table( idomain, P_alk5 ) = .TRUE. chem_dname_table( idomain, P_alk5 ) = 'alk5' chem_desc_table( idomain, P_alk5 ) = 'ALK5 mixing ratio' chem_units_table( idomain, P_alk5 ) = 'ppmv' chem_streams_table( idomain, P_alk5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk5 )%stream(2) = 2097216 ! 00200040 F_alk5 = .TRUE. IF ( chem_index_table( PARAM_aro1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1 = chem_num_table(idomain) chem_index_table( PARAM_aro1 , idomain ) = P_aro1 ELSE P_aro1 = chem_index_table( PARAM_aro1 , idomain ) END IF chem_boundary_table( idomain, P_aro1 ) = .TRUE. chem_dname_table( idomain, P_aro1 ) = 'aro1' chem_desc_table( idomain, P_aro1 ) = 'ARO1 mixing ratio' chem_units_table( idomain, P_aro1 ) = 'ppmv' chem_streams_table( idomain, P_aro1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro1 )%stream(2) = 2097216 ! 00200040 F_aro1 = .TRUE. IF ( chem_index_table( PARAM_aro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2 = chem_num_table(idomain) chem_index_table( PARAM_aro2 , idomain ) = P_aro2 ELSE P_aro2 = chem_index_table( PARAM_aro2 , idomain ) END IF chem_boundary_table( idomain, P_aro2 ) = .TRUE. chem_dname_table( idomain, P_aro2 ) = 'aro2' chem_desc_table( idomain, P_aro2 ) = 'ARO2 mixing ratio' chem_units_table( idomain, P_aro2 ) = 'ppmv' chem_streams_table( idomain, P_aro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro2 )%stream(2) = 2097216 ! 00200040 F_aro2 = .TRUE. IF ( chem_index_table( PARAM_ole1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1 = chem_num_table(idomain) chem_index_table( PARAM_ole1 , idomain ) = P_ole1 ELSE P_ole1 = chem_index_table( PARAM_ole1 , idomain ) END IF chem_boundary_table( idomain, P_ole1 ) = .TRUE. chem_dname_table( idomain, P_ole1 ) = 'ole1' chem_desc_table( idomain, P_ole1 ) = 'OLE1 mixing ratio' chem_units_table( idomain, P_ole1 ) = 'ppmv' chem_streams_table( idomain, P_ole1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole1 )%stream(2) = 2097216 ! 00200040 F_ole1 = .TRUE. IF ( chem_index_table( PARAM_ole2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole2 = chem_num_table(idomain) chem_index_table( PARAM_ole2 , idomain ) = P_ole2 ELSE P_ole2 = chem_index_table( PARAM_ole2 , idomain ) END IF chem_boundary_table( idomain, P_ole2 ) = .TRUE. chem_dname_table( idomain, P_ole2 ) = 'ole2' chem_desc_table( idomain, P_ole2 ) = 'OLE2 mixing ratio' chem_units_table( idomain, P_ole2 ) = 'ppmv' chem_streams_table( idomain, P_ole2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole2 )%stream(2) = 2097216 ! 00200040 F_ole2 = .TRUE. IF ( chem_index_table( PARAM_terp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp = chem_num_table(idomain) chem_index_table( PARAM_terp , idomain ) = P_terp ELSE P_terp = chem_index_table( PARAM_terp , idomain ) END IF chem_boundary_table( idomain, P_terp ) = .TRUE. chem_dname_table( idomain, P_terp ) = 'terp' chem_desc_table( idomain, P_terp ) = 'TERP mixing ratio' chem_units_table( idomain, P_terp ) = 'ppmv' chem_streams_table( idomain, P_terp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terp )%stream(2) = 2097216 ! 00200040 F_terp = .TRUE. IF ( chem_index_table( PARAM_rno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rno3 = chem_num_table(idomain) chem_index_table( PARAM_rno3 , idomain ) = P_rno3 ELSE P_rno3 = chem_index_table( PARAM_rno3 , idomain ) END IF chem_boundary_table( idomain, P_rno3 ) = .TRUE. chem_dname_table( idomain, P_rno3 ) = 'rno3' chem_desc_table( idomain, P_rno3 ) = 'RNO3 mixing ratio' chem_units_table( idomain, P_rno3 ) = 'ppmv' chem_streams_table( idomain, P_rno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rno3 )%stream(2) = 2097216 ! 00200040 F_rno3 = .TRUE. IF ( chem_index_table( PARAM_nphe , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nphe = chem_num_table(idomain) chem_index_table( PARAM_nphe , idomain ) = P_nphe ELSE P_nphe = chem_index_table( PARAM_nphe , idomain ) END IF chem_boundary_table( idomain, P_nphe ) = .TRUE. chem_dname_table( idomain, P_nphe ) = 'nphe' chem_desc_table( idomain, P_nphe ) = 'NPHE mixing ratio' chem_units_table( idomain, P_nphe ) = 'ppmv' chem_streams_table( idomain, P_nphe )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nphe )%stream(2) = 2097216 ! 00200040 F_nphe = .TRUE. IF ( chem_index_table( PARAM_phen , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phen = chem_num_table(idomain) chem_index_table( PARAM_phen , idomain ) = P_phen ELSE P_phen = chem_index_table( PARAM_phen , idomain ) END IF chem_boundary_table( idomain, P_phen ) = .TRUE. chem_dname_table( idomain, P_phen ) = 'phen' chem_desc_table( idomain, P_phen ) = 'PHEN mixing ratio' chem_units_table( idomain, P_phen ) = 'ppmv' chem_streams_table( idomain, P_phen )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_phen )%stream(2) = 2097216 ! 00200040 F_phen = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_pan2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan2 = chem_num_table(idomain) chem_index_table( PARAM_pan2 , idomain ) = P_pan2 ELSE P_pan2 = chem_index_table( PARAM_pan2 , idomain ) END IF chem_boundary_table( idomain, P_pan2 ) = .TRUE. chem_dname_table( idomain, P_pan2 ) = 'pan2' chem_desc_table( idomain, P_pan2 ) = 'PAN2 mixing ratio' chem_units_table( idomain, P_pan2 ) = 'ppmv' chem_streams_table( idomain, P_pan2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan2 )%stream(2) = 2097216 ! 00200040 F_pan2 = .TRUE. IF ( chem_index_table( PARAM_pbzn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pbzn = chem_num_table(idomain) chem_index_table( PARAM_pbzn , idomain ) = P_pbzn ELSE P_pbzn = chem_index_table( PARAM_pbzn , idomain ) END IF chem_boundary_table( idomain, P_pbzn ) = .TRUE. chem_dname_table( idomain, P_pbzn ) = 'pbzn' chem_desc_table( idomain, P_pbzn ) = 'PBZN mixing ratio' chem_units_table( idomain, P_pbzn ) = 'ppmv' chem_streams_table( idomain, P_pbzn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pbzn )%stream(2) = 2097216 ! 00200040 F_pbzn = .TRUE. IF ( chem_index_table( PARAM_ma_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ma_pan = chem_num_table(idomain) chem_index_table( PARAM_ma_pan , idomain ) = P_ma_pan ELSE P_ma_pan = chem_index_table( PARAM_ma_pan , idomain ) END IF chem_boundary_table( idomain, P_ma_pan ) = .TRUE. chem_dname_table( idomain, P_ma_pan ) = 'ma_pan' chem_desc_table( idomain, P_ma_pan ) = 'MA_PAN mixing ratio' chem_units_table( idomain, P_ma_pan ) = 'ppmv' chem_streams_table( idomain, P_ma_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ma_pan )%stream(2) = 2097216 ! 00200040 F_ma_pan = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_cco_ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_ooh = chem_num_table(idomain) chem_index_table( PARAM_cco_ooh , idomain ) = P_cco_ooh ELSE P_cco_ooh = chem_index_table( PARAM_cco_ooh , idomain ) END IF chem_boundary_table( idomain, P_cco_ooh ) = .TRUE. chem_dname_table( idomain, P_cco_ooh ) = 'cco_ooh' chem_desc_table( idomain, P_cco_ooh ) = 'CCO_OOH mixing ratio' chem_units_table( idomain, P_cco_ooh ) = 'ppmv' chem_streams_table( idomain, P_cco_ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cco_ooh )%stream(2) = 2097216 ! 00200040 F_cco_ooh = .TRUE. IF ( chem_index_table( PARAM_rco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_o2 = chem_num_table(idomain) chem_index_table( PARAM_rco_o2 , idomain ) = P_rco_o2 ELSE P_rco_o2 = chem_index_table( PARAM_rco_o2 , idomain ) END IF chem_boundary_table( idomain, P_rco_o2 ) = .TRUE. chem_dname_table( idomain, P_rco_o2 ) = 'rco_o2' chem_desc_table( idomain, P_rco_o2 ) = 'RCO_O2 mixing ratio' chem_units_table( idomain, P_rco_o2 ) = 'ppmv' chem_streams_table( idomain, P_rco_o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rco_o2 )%stream(2) = 2097216 ! 00200040 F_rco_o2 = .TRUE. IF ( chem_index_table( PARAM_rco_ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_ooh = chem_num_table(idomain) chem_index_table( PARAM_rco_ooh , idomain ) = P_rco_ooh ELSE P_rco_ooh = chem_index_table( PARAM_rco_ooh , idomain ) END IF chem_boundary_table( idomain, P_rco_ooh ) = .TRUE. chem_dname_table( idomain, P_rco_ooh ) = 'rco_ooh' chem_desc_table( idomain, P_rco_ooh ) = 'RCO_OOH mixing ratio' chem_units_table( idomain, P_rco_ooh ) = 'ppmv' chem_streams_table( idomain, P_rco_ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rco_ooh )%stream(2) = 2097216 ! 00200040 F_rco_ooh = .TRUE. IF ( chem_index_table( PARAM_xn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xn = chem_num_table(idomain) chem_index_table( PARAM_xn , idomain ) = P_xn ELSE P_xn = chem_index_table( PARAM_xn , idomain ) END IF chem_boundary_table( idomain, P_xn ) = .TRUE. chem_dname_table( idomain, P_xn ) = 'xn' chem_desc_table( idomain, P_xn ) = 'XN mixing ratio' chem_units_table( idomain, P_xn ) = 'ppmv' chem_streams_table( idomain, P_xn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xn )%stream(2) = 2097216 ! 00200040 F_xn = .TRUE. IF ( chem_index_table( PARAM_xc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xc = chem_num_table(idomain) chem_index_table( PARAM_xc , idomain ) = P_xc ELSE P_xc = chem_index_table( PARAM_xc , idomain ) END IF chem_boundary_table( idomain, P_xc ) = .TRUE. chem_dname_table( idomain, P_xc ) = 'xc' chem_desc_table( idomain, P_xc ) = 'XC mixing ratio' chem_units_table( idomain, P_xc ) = 'ppmv' chem_streams_table( idomain, P_xc )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xc )%stream(2) = 2097216 ! 00200040 F_xc = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_c_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c_o2 = chem_num_table(idomain) chem_index_table( PARAM_c_o2 , idomain ) = P_c_o2 ELSE P_c_o2 = chem_index_table( PARAM_c_o2 , idomain ) END IF chem_boundary_table( idomain, P_c_o2 ) = .TRUE. chem_dname_table( idomain, P_c_o2 ) = 'c_o2' chem_desc_table( idomain, P_c_o2 ) = 'C_O2 mixing ratio' chem_units_table( idomain, P_c_o2 ) = 'ppmv' chem_streams_table( idomain, P_c_o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c_o2 )%stream(2) = 2097216 ! 00200040 F_c_o2 = .TRUE. IF ( chem_index_table( PARAM_cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cooh = chem_num_table(idomain) chem_index_table( PARAM_cooh , idomain ) = P_cooh ELSE P_cooh = chem_index_table( PARAM_cooh , idomain ) END IF chem_boundary_table( idomain, P_cooh ) = .TRUE. chem_dname_table( idomain, P_cooh ) = 'cooh' chem_desc_table( idomain, P_cooh ) = 'COOH mixing ratio' chem_units_table( idomain, P_cooh ) = 'ppmv' chem_streams_table( idomain, P_cooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cooh )%stream(2) = 2097216 ! 00200040 F_cooh = .TRUE. IF ( chem_index_table( PARAM_rooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rooh = chem_num_table(idomain) chem_index_table( PARAM_rooh , idomain ) = P_rooh ELSE P_rooh = chem_index_table( PARAM_rooh , idomain ) END IF chem_boundary_table( idomain, P_rooh ) = .TRUE. chem_dname_table( idomain, P_rooh ) = 'rooh' chem_desc_table( idomain, P_rooh ) = 'ROOH mixing ratio' chem_units_table( idomain, P_rooh ) = 'ppmv' chem_streams_table( idomain, P_rooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rooh )%stream(2) = 2097216 ! 00200040 F_rooh = .TRUE. IF ( chem_index_table( PARAM_ro2_r , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2_r = chem_num_table(idomain) chem_index_table( PARAM_ro2_r , idomain ) = P_ro2_r ELSE P_ro2_r = chem_index_table( PARAM_ro2_r , idomain ) END IF chem_boundary_table( idomain, P_ro2_r ) = .TRUE. chem_dname_table( idomain, P_ro2_r ) = 'ro2_r' chem_desc_table( idomain, P_ro2_r ) = 'RO2_R mixing ratio' chem_units_table( idomain, P_ro2_r ) = 'ppmv' chem_streams_table( idomain, P_ro2_r )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2_r )%stream(2) = 2097216 ! 00200040 F_ro2_r = .TRUE. IF ( chem_index_table( PARAM_r2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_r2o2 = chem_num_table(idomain) chem_index_table( PARAM_r2o2 , idomain ) = P_r2o2 ELSE P_r2o2 = chem_index_table( PARAM_r2o2 , idomain ) END IF chem_boundary_table( idomain, P_r2o2 ) = .TRUE. chem_dname_table( idomain, P_r2o2 ) = 'r2o2' chem_desc_table( idomain, P_r2o2 ) = 'R2O2 mixing ratio' chem_units_table( idomain, P_r2o2 ) = 'ppmv' chem_streams_table( idomain, P_r2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_r2o2 )%stream(2) = 2097216 ! 00200040 F_r2o2 = .TRUE. IF ( chem_index_table( PARAM_ro2_n , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2_n = chem_num_table(idomain) chem_index_table( PARAM_ro2_n , idomain ) = P_ro2_n ELSE P_ro2_n = chem_index_table( PARAM_ro2_n , idomain ) END IF chem_boundary_table( idomain, P_ro2_n ) = .TRUE. chem_dname_table( idomain, P_ro2_n ) = 'ro2_n' chem_desc_table( idomain, P_ro2_n ) = 'RO2_N mixing ratio' chem_units_table( idomain, P_ro2_n ) = 'ppmv' chem_streams_table( idomain, P_ro2_n )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2_n )%stream(2) = 2097216 ! 00200040 F_ro2_n = .TRUE. IF ( chem_index_table( PARAM_cco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_o2 = chem_num_table(idomain) chem_index_table( PARAM_cco_o2 , idomain ) = P_cco_o2 ELSE P_cco_o2 = chem_index_table( PARAM_cco_o2 , idomain ) END IF chem_boundary_table( idomain, P_cco_o2 ) = .TRUE. chem_dname_table( idomain, P_cco_o2 ) = 'cco_o2' chem_desc_table( idomain, P_cco_o2 ) = 'CCO_O2 mixing ratio' chem_units_table( idomain, P_cco_o2 ) = 'ppmv' chem_streams_table( idomain, P_cco_o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cco_o2 )%stream(2) = 2097216 ! 00200040 F_cco_o2 = .TRUE. IF ( chem_index_table( PARAM_bzco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bzco_o2 = chem_num_table(idomain) chem_index_table( PARAM_bzco_o2 , idomain ) = P_bzco_o2 ELSE P_bzco_o2 = chem_index_table( PARAM_bzco_o2 , idomain ) END IF chem_boundary_table( idomain, P_bzco_o2 ) = .TRUE. chem_dname_table( idomain, P_bzco_o2 ) = 'bzco_o2' chem_desc_table( idomain, P_bzco_o2 ) = 'BZCO_O2 mixing ratio' chem_units_table( idomain, P_bzco_o2 ) = 'ppmv' chem_streams_table( idomain, P_bzco_o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bzco_o2 )%stream(2) = 2097216 ! 00200040 F_bzco_o2 = .TRUE. IF ( chem_index_table( PARAM_ma_rco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ma_rco3 = chem_num_table(idomain) chem_index_table( PARAM_ma_rco3 , idomain ) = P_ma_rco3 ELSE P_ma_rco3 = chem_index_table( PARAM_ma_rco3 , idomain ) END IF chem_boundary_table( idomain, P_ma_rco3 ) = .TRUE. chem_dname_table( idomain, P_ma_rco3 ) = 'ma_rco3' chem_desc_table( idomain, P_ma_rco3 ) = 'MA_RCO3 mixing ratio' chem_units_table( idomain, P_ma_rco3 ) = 'ppmv' chem_streams_table( idomain, P_ma_rco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ma_rco3 )%stream(2) = 2097216 ! 00200040 F_ma_rco3 = .TRUE. IF ( chem_index_table( PARAM_sesq , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sesq = chem_num_table(idomain) chem_index_table( PARAM_sesq , idomain ) = P_sesq ELSE P_sesq = chem_index_table( PARAM_sesq , idomain ) END IF chem_boundary_table( idomain, P_sesq ) = .TRUE. chem_dname_table( idomain, P_sesq ) = 'sesq' chem_desc_table( idomain, P_sesq ) = 'SESQ mixing ratio' chem_units_table( idomain, P_sesq ) = 'ppmv' chem_streams_table( idomain, P_sesq )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sesq )%stream(2) = 2097216 ! 00200040 F_sesq = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c , idomain ) = P_pcg1_b_c ELSE P_pcg1_b_c = chem_index_table( PARAM_pcg1_b_c , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c ) = 'pcg1_b_c' chem_desc_table( idomain, P_pcg1_b_c ) = 'pcg1_b_c mixing ratio' chem_units_table( idomain, P_pcg1_b_c ) = 'ppmv' chem_streams_table( idomain, P_pcg1_b_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_c = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_c , idomain ) = P_pcg2_b_c ELSE P_pcg2_b_c = chem_index_table( PARAM_pcg2_b_c , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_c ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_c ) = 'pcg2_b_c' chem_desc_table( idomain, P_pcg2_b_c ) = 'pcg2_b_c mixing ratio' chem_units_table( idomain, P_pcg2_b_c ) = 'ppmv' chem_streams_table( idomain, P_pcg2_b_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_b_c )%stream(2) = 2097216 ! 00200040 F_pcg2_b_c = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o , idomain ) = P_pcg1_b_o ELSE P_pcg1_b_o = chem_index_table( PARAM_pcg1_b_o , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o ) = 'pcg1_b_o' chem_desc_table( idomain, P_pcg1_b_o ) = 'pcg1_b_o mixing ratio' chem_units_table( idomain, P_pcg1_b_o ) = 'ppmv' chem_streams_table( idomain, P_pcg1_b_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_o = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_o , idomain ) = P_pcg2_b_o ELSE P_pcg2_b_o = chem_index_table( PARAM_pcg2_b_o , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_o ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_o ) = 'pcg2_b_o' chem_desc_table( idomain, P_pcg2_b_o ) = 'pcg2_b_o mixing ratio' chem_units_table( idomain, P_pcg2_b_o ) = 'ppmv' chem_streams_table( idomain, P_pcg2_b_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_b_o )%stream(2) = 2097216 ! 00200040 F_pcg2_b_o = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c , idomain ) = P_opcg1_b_c ELSE P_opcg1_b_c = chem_index_table( PARAM_opcg1_b_c , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c ) = 'opcg1_b_c' chem_desc_table( idomain, P_opcg1_b_c ) = 'opcg1_b_c mixing ratio' chem_units_table( idomain, P_opcg1_b_c ) = 'ppmv' chem_streams_table( idomain, P_opcg1_b_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o , idomain ) = P_opcg1_b_o ELSE P_opcg1_b_o = chem_index_table( PARAM_opcg1_b_o , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o ) = 'opcg1_b_o' chem_desc_table( idomain, P_opcg1_b_o ) = 'opcg1_b_o mixing ratio' chem_units_table( idomain, P_opcg1_b_o ) = 'ppmv' chem_streams_table( idomain, P_opcg1_b_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c , idomain ) = P_pcg1_f_c ELSE P_pcg1_f_c = chem_index_table( PARAM_pcg1_f_c , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c ) = 'pcg1_f_c' chem_desc_table( idomain, P_pcg1_f_c ) = 'pcg1_f_c mixing ratio' chem_units_table( idomain, P_pcg1_f_c ) = 'ppmv' chem_streams_table( idomain, P_pcg1_f_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_c = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_c , idomain ) = P_pcg2_f_c ELSE P_pcg2_f_c = chem_index_table( PARAM_pcg2_f_c , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_c ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_c ) = 'pcg2_f_c' chem_desc_table( idomain, P_pcg2_f_c ) = 'pcg2_f_c mixing ratio' chem_units_table( idomain, P_pcg2_f_c ) = 'ppmv' chem_streams_table( idomain, P_pcg2_f_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_f_c )%stream(2) = 2097216 ! 00200040 F_pcg2_f_c = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o , idomain ) = P_pcg1_f_o ELSE P_pcg1_f_o = chem_index_table( PARAM_pcg1_f_o , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o ) = 'pcg1_f_o' chem_desc_table( idomain, P_pcg1_f_o ) = 'pcg1_f_o mixing ratio' chem_units_table( idomain, P_pcg1_f_o ) = 'ppmv' chem_streams_table( idomain, P_pcg1_f_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_o = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_o , idomain ) = P_pcg2_f_o ELSE P_pcg2_f_o = chem_index_table( PARAM_pcg2_f_o , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_o ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_o ) = 'pcg2_f_o' chem_desc_table( idomain, P_pcg2_f_o ) = 'pcg2_f_o mixing ratio' chem_units_table( idomain, P_pcg2_f_o ) = 'ppmv' chem_streams_table( idomain, P_pcg2_f_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_f_o )%stream(2) = 2097216 ! 00200040 F_pcg2_f_o = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c , idomain ) = P_opcg1_f_c ELSE P_opcg1_f_c = chem_index_table( PARAM_opcg1_f_c , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c ) = 'opcg1_f_c' chem_desc_table( idomain, P_opcg1_f_c ) = 'opcg1_f_c mixing ratio' chem_units_table( idomain, P_opcg1_f_c ) = 'ppmv' chem_streams_table( idomain, P_opcg1_f_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o , idomain ) = P_opcg1_f_o ELSE P_opcg1_f_o = chem_index_table( PARAM_opcg1_f_o , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o ) = 'opcg1_f_o' chem_desc_table( idomain, P_opcg1_f_o ) = 'opcg1_f_o mixing ratio' chem_units_table( idomain, P_opcg1_f_o ) = 'ppmv' chem_streams_table( idomain, P_opcg1_f_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o = .TRUE. IF ( chem_index_table( PARAM_psd1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_psd1 = chem_num_table(idomain) chem_index_table( PARAM_psd1 , idomain ) = P_psd1 ELSE P_psd1 = chem_index_table( PARAM_psd1 , idomain ) END IF chem_boundary_table( idomain, P_psd1 ) = .TRUE. chem_dname_table( idomain, P_psd1 ) = 'psd1' chem_desc_table( idomain, P_psd1 ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_psd1 ) = 'ppmv' chem_streams_table( idomain, P_psd1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_psd1 )%stream(2) = 2097216 ! 00200040 F_psd1 = .TRUE. IF ( chem_index_table( PARAM_psd2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_psd2 = chem_num_table(idomain) chem_index_table( PARAM_psd2 , idomain ) = P_psd2 ELSE P_psd2 = chem_index_table( PARAM_psd2 , idomain ) END IF chem_boundary_table( idomain, P_psd2 ) = .TRUE. chem_dname_table( idomain, P_psd2 ) = 'psd2' chem_desc_table( idomain, P_psd2 ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_psd2 ) = 'ppmv' chem_streams_table( idomain, P_psd2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_psd2 )%stream(2) = 2097216 ! 00200040 F_psd2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_nume , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nume = chem_num_table(idomain) chem_index_table( PARAM_nume , idomain ) = P_nume ELSE P_nume = chem_index_table( PARAM_nume , idomain ) END IF chem_boundary_table( idomain, P_nume ) = .TRUE. chem_dname_table( idomain, P_nume ) = 'nume' chem_desc_table( idomain, P_nume ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_nume ) = 'ppmv' chem_streams_table( idomain, P_nume )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nume )%stream(2) = 2097216 ! 00200040 F_nume = .TRUE. IF ( chem_index_table( PARAM_den , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_den = chem_num_table(idomain) chem_index_table( PARAM_den , idomain ) = P_den ELSE P_den = chem_index_table( PARAM_den , idomain ) END IF chem_boundary_table( idomain, P_den ) = .TRUE. chem_dname_table( idomain, P_den ) = 'den' chem_desc_table( idomain, P_den ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_den ) = 'ppmv' chem_streams_table( idomain, P_den )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_den )%stream(2) = 2097216 ! 00200040 F_den = .TRUE. IF ( chem_index_table( PARAM_ant1_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c = chem_num_table(idomain) chem_index_table( PARAM_ant1_c , idomain ) = P_ant1_c ELSE P_ant1_c = chem_index_table( PARAM_ant1_c , idomain ) END IF chem_boundary_table( idomain, P_ant1_c ) = .TRUE. chem_dname_table( idomain, P_ant1_c ) = 'ant1_c' chem_desc_table( idomain, P_ant1_c ) = 'ant1_c mixing ratio' chem_units_table( idomain, P_ant1_c ) = 'ppmv' chem_streams_table( idomain, P_ant1_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_c )%stream(2) = 2097216 ! 00200040 F_ant1_c = .TRUE. IF ( chem_index_table( PARAM_ant1_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_o = chem_num_table(idomain) chem_index_table( PARAM_ant1_o , idomain ) = P_ant1_o ELSE P_ant1_o = chem_index_table( PARAM_ant1_o , idomain ) END IF chem_boundary_table( idomain, P_ant1_o ) = .TRUE. chem_dname_table( idomain, P_ant1_o ) = 'ant1_o' chem_desc_table( idomain, P_ant1_o ) = 'ant1_o mixing ratio' chem_units_table( idomain, P_ant1_o ) = 'ppmv' chem_streams_table( idomain, P_ant1_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_o )%stream(2) = 2097216 ! 00200040 F_ant1_o = .TRUE. IF ( chem_index_table( PARAM_biog1_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c = chem_num_table(idomain) chem_index_table( PARAM_biog1_c , idomain ) = P_biog1_c ELSE P_biog1_c = chem_index_table( PARAM_biog1_c , idomain ) END IF chem_boundary_table( idomain, P_biog1_c ) = .TRUE. chem_dname_table( idomain, P_biog1_c ) = 'biog1_c' chem_desc_table( idomain, P_biog1_c ) = 'biog1_c mixing ratio' chem_units_table( idomain, P_biog1_c ) = 'ppmv' chem_streams_table( idomain, P_biog1_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c )%stream(2) = 2097216 ! 00200040 F_biog1_c = .TRUE. IF ( chem_index_table( PARAM_biog1_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o = chem_num_table(idomain) chem_index_table( PARAM_biog1_o , idomain ) = P_biog1_o ELSE P_biog1_o = chem_index_table( PARAM_biog1_o , idomain ) END IF chem_boundary_table( idomain, P_biog1_o ) = .TRUE. chem_dname_table( idomain, P_biog1_o ) = 'biog1_o' chem_desc_table( idomain, P_biog1_o ) = 'biog1_o mixing ratio' chem_units_table( idomain, P_biog1_o ) = 'ppmv' chem_streams_table( idomain, P_biog1_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_o )%stream(2) = 2097216 ! 00200040 F_biog1_o = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 ! 00200040 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 ! 00200040 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 ! 00200040 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 ! 00200040 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 ! 00200040 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 ! 00200040 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 ! 00200040 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 ! 00200040 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 ! 00200040 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) = P_pcg1_b_c_a01 ELSE P_pcg1_b_c_a01 = chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a01 ) = 'pcg1_b_c_a01' chem_desc_table( idomain, P_pcg1_b_c_a01 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a01 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_c_a01 , idomain ) = P_pcg2_b_c_a01 ELSE P_pcg2_b_c_a01 = chem_index_table( PARAM_pcg2_b_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_c_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_c_a01 ) = 'pcg2_b_c_a01' chem_desc_table( idomain, P_pcg2_b_c_a01 ) = 'pcg2_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg2_b_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_b_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_b_c_a01 )%stream(2) = 2097216 ! 00200040 F_pcg2_b_c_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) = P_pcg1_b_o_a01 ELSE P_pcg1_b_o_a01 = chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a01 ) = 'pcg1_b_o_a01' chem_desc_table( idomain, P_pcg1_b_o_a01 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a01 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_o_a01 , idomain ) = P_pcg2_b_o_a01 ELSE P_pcg2_b_o_a01 = chem_index_table( PARAM_pcg2_b_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_o_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_o_a01 ) = 'pcg2_b_o_a01' chem_desc_table( idomain, P_pcg2_b_o_a01 ) = 'pcg2_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg2_b_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_b_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_b_o_a01 )%stream(2) = 2097216 ! 00200040 F_pcg2_b_o_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) = P_opcg1_b_c_a01 ELSE P_opcg1_b_c_a01 = chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a01 ) = 'opcg1_b_c_a01' chem_desc_table( idomain, P_opcg1_b_c_a01 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a01 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) = P_opcg1_b_o_a01 ELSE P_opcg1_b_o_a01 = chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a01 ) = 'opcg1_b_o_a01' chem_desc_table( idomain, P_opcg1_b_o_a01 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a01 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) = P_pcg1_f_c_a01 ELSE P_pcg1_f_c_a01 = chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a01 ) = 'pcg1_f_c_a01' chem_desc_table( idomain, P_pcg1_f_c_a01 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a01 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_c_a01 , idomain ) = P_pcg2_f_c_a01 ELSE P_pcg2_f_c_a01 = chem_index_table( PARAM_pcg2_f_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_c_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_c_a01 ) = 'pcg2_f_c_a01' chem_desc_table( idomain, P_pcg2_f_c_a01 ) = 'pcg2_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg2_f_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_f_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_f_c_a01 )%stream(2) = 2097216 ! 00200040 F_pcg2_f_c_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) = P_pcg1_f_o_a01 ELSE P_pcg1_f_o_a01 = chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a01 ) = 'pcg1_f_o_a01' chem_desc_table( idomain, P_pcg1_f_o_a01 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a01 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_o_a01 , idomain ) = P_pcg2_f_o_a01 ELSE P_pcg2_f_o_a01 = chem_index_table( PARAM_pcg2_f_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_o_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_o_a01 ) = 'pcg2_f_o_a01' chem_desc_table( idomain, P_pcg2_f_o_a01 ) = 'pcg2_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg2_f_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_f_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_f_o_a01 )%stream(2) = 2097216 ! 00200040 F_pcg2_f_o_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) = P_opcg1_f_c_a01 ELSE P_opcg1_f_c_a01 = chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a01 ) = 'opcg1_f_c_a01' chem_desc_table( idomain, P_opcg1_f_c_a01 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a01 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) = P_opcg1_f_o_a01 ELSE P_opcg1_f_o_a01 = chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a01 ) = 'opcg1_f_o_a01' chem_desc_table( idomain, P_opcg1_f_o_a01 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a01 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a01 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a01 , idomain ) = P_ant1_c_a01 ELSE P_ant1_c_a01 = chem_index_table( PARAM_ant1_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a01 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a01 ) = 'ant1_c_a01' chem_desc_table( idomain, P_ant1_c_a01 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_c_a01 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a01 = .TRUE. IF ( chem_index_table( PARAM_ant1_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_ant1_o_a01 , idomain ) = P_ant1_o_a01 ELSE P_ant1_o_a01 = chem_index_table( PARAM_ant1_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_ant1_o_a01 ) = .TRUE. chem_dname_table( idomain, P_ant1_o_a01 ) = 'ant1_o_a01' chem_desc_table( idomain, P_ant1_o_a01 ) = 'ant1_o, aerosol bin 01' chem_units_table( idomain, P_ant1_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_o_a01 )%stream(2) = 2097216 ! 00200040 F_ant1_o_a01 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a01 , idomain ) = P_biog1_c_a01 ELSE P_biog1_c_a01 = chem_index_table( PARAM_biog1_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a01 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a01 ) = 'biog1_c_a01' chem_desc_table( idomain, P_biog1_c_a01 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_a01 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a01 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a01 , idomain ) = P_biog1_o_a01 ELSE P_biog1_o_a01 = chem_index_table( PARAM_biog1_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a01 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a01 ) = 'biog1_o_a01' chem_desc_table( idomain, P_biog1_o_a01 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_o_a01 )%stream(2) = 2097216 ! 00200040 F_biog1_o_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 ! 00200040 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 ! 00200040 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 ! 00200040 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 ! 00200040 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 ! 00200040 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 ! 00200040 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 ! 00200040 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 ! 00200040 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 ! 00200040 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 ! 00200040 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) = P_pcg1_b_c_a02 ELSE P_pcg1_b_c_a02 = chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a02 ) = 'pcg1_b_c_a02' chem_desc_table( idomain, P_pcg1_b_c_a02 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a02 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_c_a02 , idomain ) = P_pcg2_b_c_a02 ELSE P_pcg2_b_c_a02 = chem_index_table( PARAM_pcg2_b_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_c_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_c_a02 ) = 'pcg2_b_c_a02' chem_desc_table( idomain, P_pcg2_b_c_a02 ) = 'pcg2_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg2_b_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_b_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_b_c_a02 )%stream(2) = 2097216 ! 00200040 F_pcg2_b_c_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) = P_pcg1_b_o_a02 ELSE P_pcg1_b_o_a02 = chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a02 ) = 'pcg1_b_o_a02' chem_desc_table( idomain, P_pcg1_b_o_a02 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a02 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_o_a02 , idomain ) = P_pcg2_b_o_a02 ELSE P_pcg2_b_o_a02 = chem_index_table( PARAM_pcg2_b_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_o_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_o_a02 ) = 'pcg2_b_o_a02' chem_desc_table( idomain, P_pcg2_b_o_a02 ) = 'pcg2_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg2_b_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_b_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_b_o_a02 )%stream(2) = 2097216 ! 00200040 F_pcg2_b_o_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) = P_opcg1_b_c_a02 ELSE P_opcg1_b_c_a02 = chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a02 ) = 'opcg1_b_c_a02' chem_desc_table( idomain, P_opcg1_b_c_a02 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a02 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) = P_opcg1_b_o_a02 ELSE P_opcg1_b_o_a02 = chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a02 ) = 'opcg1_b_o_a02' chem_desc_table( idomain, P_opcg1_b_o_a02 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a02 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) = P_pcg1_f_c_a02 ELSE P_pcg1_f_c_a02 = chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a02 ) = 'pcg1_f_c_a02' chem_desc_table( idomain, P_pcg1_f_c_a02 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a02 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_c_a02 , idomain ) = P_pcg2_f_c_a02 ELSE P_pcg2_f_c_a02 = chem_index_table( PARAM_pcg2_f_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_c_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_c_a02 ) = 'pcg2_f_c_a02' chem_desc_table( idomain, P_pcg2_f_c_a02 ) = 'pcg2_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg2_f_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_f_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_f_c_a02 )%stream(2) = 2097216 ! 00200040 F_pcg2_f_c_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) = P_pcg1_f_o_a02 ELSE P_pcg1_f_o_a02 = chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a02 ) = 'pcg1_f_o_a02' chem_desc_table( idomain, P_pcg1_f_o_a02 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a02 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_o_a02 , idomain ) = P_pcg2_f_o_a02 ELSE P_pcg2_f_o_a02 = chem_index_table( PARAM_pcg2_f_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_o_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_o_a02 ) = 'pcg2_f_o_a02' chem_desc_table( idomain, P_pcg2_f_o_a02 ) = 'pcg2_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg2_f_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_f_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_f_o_a02 )%stream(2) = 2097216 ! 00200040 F_pcg2_f_o_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) = P_opcg1_f_c_a02 ELSE P_opcg1_f_c_a02 = chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a02 ) = 'opcg1_f_c_a02' chem_desc_table( idomain, P_opcg1_f_c_a02 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a02 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) = P_opcg1_f_o_a02 ELSE P_opcg1_f_o_a02 = chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a02 ) = 'opcg1_f_o_a02' chem_desc_table( idomain, P_opcg1_f_o_a02 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a02 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a02 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a02 , idomain ) = P_ant1_c_a02 ELSE P_ant1_c_a02 = chem_index_table( PARAM_ant1_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a02 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a02 ) = 'ant1_c_a02' chem_desc_table( idomain, P_ant1_c_a02 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_c_a02 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a02 = .TRUE. IF ( chem_index_table( PARAM_ant1_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_ant1_o_a02 , idomain ) = P_ant1_o_a02 ELSE P_ant1_o_a02 = chem_index_table( PARAM_ant1_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_ant1_o_a02 ) = .TRUE. chem_dname_table( idomain, P_ant1_o_a02 ) = 'ant1_o_a02' chem_desc_table( idomain, P_ant1_o_a02 ) = 'ant1_o, aerosol bin 01' chem_units_table( idomain, P_ant1_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_o_a02 )%stream(2) = 2097216 ! 00200040 F_ant1_o_a02 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a02 , idomain ) = P_biog1_c_a02 ELSE P_biog1_c_a02 = chem_index_table( PARAM_biog1_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a02 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a02 ) = 'biog1_c_a02' chem_desc_table( idomain, P_biog1_c_a02 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_a02 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a02 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a02 , idomain ) = P_biog1_o_a02 ELSE P_biog1_o_a02 = chem_index_table( PARAM_biog1_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a02 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a02 ) = 'biog1_o_a02' chem_desc_table( idomain, P_biog1_o_a02 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_o_a02 )%stream(2) = 2097216 ! 00200040 F_biog1_o_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 ! 00200040 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 ! 00200040 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 ! 00200040 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 ! 00200040 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 ! 00200040 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 ! 00200040 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 ! 00200040 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 ! 00200040 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 ! 00200040 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 ! 00200040 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) = P_pcg1_b_c_a03 ELSE P_pcg1_b_c_a03 = chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a03 ) = 'pcg1_b_c_a03' chem_desc_table( idomain, P_pcg1_b_c_a03 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a03 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_c_a03 , idomain ) = P_pcg2_b_c_a03 ELSE P_pcg2_b_c_a03 = chem_index_table( PARAM_pcg2_b_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_c_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_c_a03 ) = 'pcg2_b_c_a03' chem_desc_table( idomain, P_pcg2_b_c_a03 ) = 'pcg2_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg2_b_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_b_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_b_c_a03 )%stream(2) = 2097216 ! 00200040 F_pcg2_b_c_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) = P_pcg1_b_o_a03 ELSE P_pcg1_b_o_a03 = chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a03 ) = 'pcg1_b_o_a03' chem_desc_table( idomain, P_pcg1_b_o_a03 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a03 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_o_a03 , idomain ) = P_pcg2_b_o_a03 ELSE P_pcg2_b_o_a03 = chem_index_table( PARAM_pcg2_b_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_o_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_o_a03 ) = 'pcg2_b_o_a03' chem_desc_table( idomain, P_pcg2_b_o_a03 ) = 'pcg2_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg2_b_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_b_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_b_o_a03 )%stream(2) = 2097216 ! 00200040 F_pcg2_b_o_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) = P_opcg1_b_c_a03 ELSE P_opcg1_b_c_a03 = chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a03 ) = 'opcg1_b_c_a03' chem_desc_table( idomain, P_opcg1_b_c_a03 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a03 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) = P_opcg1_b_o_a03 ELSE P_opcg1_b_o_a03 = chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a03 ) = 'opcg1_b_o_a03' chem_desc_table( idomain, P_opcg1_b_o_a03 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a03 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) = P_pcg1_f_c_a03 ELSE P_pcg1_f_c_a03 = chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a03 ) = 'pcg1_f_c_a03' chem_desc_table( idomain, P_pcg1_f_c_a03 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a03 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_c_a03 , idomain ) = P_pcg2_f_c_a03 ELSE P_pcg2_f_c_a03 = chem_index_table( PARAM_pcg2_f_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_c_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_c_a03 ) = 'pcg2_f_c_a03' chem_desc_table( idomain, P_pcg2_f_c_a03 ) = 'pcg2_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg2_f_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_f_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_f_c_a03 )%stream(2) = 2097216 ! 00200040 F_pcg2_f_c_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) = P_pcg1_f_o_a03 ELSE P_pcg1_f_o_a03 = chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a03 ) = 'pcg1_f_o_a03' chem_desc_table( idomain, P_pcg1_f_o_a03 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a03 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_o_a03 , idomain ) = P_pcg2_f_o_a03 ELSE P_pcg2_f_o_a03 = chem_index_table( PARAM_pcg2_f_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_o_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_o_a03 ) = 'pcg2_f_o_a03' chem_desc_table( idomain, P_pcg2_f_o_a03 ) = 'pcg2_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg2_f_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_f_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_f_o_a03 )%stream(2) = 2097216 ! 00200040 F_pcg2_f_o_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) = P_opcg1_f_c_a03 ELSE P_opcg1_f_c_a03 = chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a03 ) = 'opcg1_f_c_a03' chem_desc_table( idomain, P_opcg1_f_c_a03 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a03 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) = P_opcg1_f_o_a03 ELSE P_opcg1_f_o_a03 = chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a03 ) = 'opcg1_f_o_a03' chem_desc_table( idomain, P_opcg1_f_o_a03 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a03 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a03 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a03 , idomain ) = P_ant1_c_a03 ELSE P_ant1_c_a03 = chem_index_table( PARAM_ant1_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a03 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a03 ) = 'ant1_c_a03' chem_desc_table( idomain, P_ant1_c_a03 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_c_a03 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a03 = .TRUE. IF ( chem_index_table( PARAM_ant1_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_ant1_o_a03 , idomain ) = P_ant1_o_a03 ELSE P_ant1_o_a03 = chem_index_table( PARAM_ant1_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_ant1_o_a03 ) = .TRUE. chem_dname_table( idomain, P_ant1_o_a03 ) = 'ant1_o_a03' chem_desc_table( idomain, P_ant1_o_a03 ) = 'ant1_o, aerosol bin 01' chem_units_table( idomain, P_ant1_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_o_a03 )%stream(2) = 2097216 ! 00200040 F_ant1_o_a03 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a03 , idomain ) = P_biog1_c_a03 ELSE P_biog1_c_a03 = chem_index_table( PARAM_biog1_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a03 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a03 ) = 'biog1_c_a03' chem_desc_table( idomain, P_biog1_c_a03 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_a03 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a03 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a03 , idomain ) = P_biog1_o_a03 ELSE P_biog1_o_a03 = chem_index_table( PARAM_biog1_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a03 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a03 ) = 'biog1_o_a03' chem_desc_table( idomain, P_biog1_o_a03 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_o_a03 )%stream(2) = 2097216 ! 00200040 F_biog1_o_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 ! 00200040 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 ! 00200040 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 ! 00200040 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 ! 00200040 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 ! 00200040 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 ! 00200040 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 ! 00200040 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 ! 00200040 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 ! 00200040 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 ! 00200040 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) = P_pcg1_b_c_a04 ELSE P_pcg1_b_c_a04 = chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a04 ) = 'pcg1_b_c_a04' chem_desc_table( idomain, P_pcg1_b_c_a04 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a04 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_c_a04 , idomain ) = P_pcg2_b_c_a04 ELSE P_pcg2_b_c_a04 = chem_index_table( PARAM_pcg2_b_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_c_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_c_a04 ) = 'pcg2_b_c_a04' chem_desc_table( idomain, P_pcg2_b_c_a04 ) = 'pcg2_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg2_b_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_b_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_b_c_a04 )%stream(2) = 2097216 ! 00200040 F_pcg2_b_c_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) = P_pcg1_b_o_a04 ELSE P_pcg1_b_o_a04 = chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a04 ) = 'pcg1_b_o_a04' chem_desc_table( idomain, P_pcg1_b_o_a04 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a04 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_o_a04 , idomain ) = P_pcg2_b_o_a04 ELSE P_pcg2_b_o_a04 = chem_index_table( PARAM_pcg2_b_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_o_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_o_a04 ) = 'pcg2_b_o_a04' chem_desc_table( idomain, P_pcg2_b_o_a04 ) = 'pcg2_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg2_b_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_b_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_b_o_a04 )%stream(2) = 2097216 ! 00200040 F_pcg2_b_o_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) = P_opcg1_b_c_a04 ELSE P_opcg1_b_c_a04 = chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a04 ) = 'opcg1_b_c_a04' chem_desc_table( idomain, P_opcg1_b_c_a04 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a04 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) = P_opcg1_b_o_a04 ELSE P_opcg1_b_o_a04 = chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a04 ) = 'opcg1_b_o_a04' chem_desc_table( idomain, P_opcg1_b_o_a04 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a04 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) = P_pcg1_f_c_a04 ELSE P_pcg1_f_c_a04 = chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a04 ) = 'pcg1_f_c_a04' chem_desc_table( idomain, P_pcg1_f_c_a04 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a04 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_c_a04 , idomain ) = P_pcg2_f_c_a04 ELSE P_pcg2_f_c_a04 = chem_index_table( PARAM_pcg2_f_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_c_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_c_a04 ) = 'pcg2_f_c_a04' chem_desc_table( idomain, P_pcg2_f_c_a04 ) = 'pcg2_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg2_f_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_f_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_f_c_a04 )%stream(2) = 2097216 ! 00200040 F_pcg2_f_c_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) = P_pcg1_f_o_a04 ELSE P_pcg1_f_o_a04 = chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a04 ) = 'pcg1_f_o_a04' chem_desc_table( idomain, P_pcg1_f_o_a04 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a04 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_o_a04 , idomain ) = P_pcg2_f_o_a04 ELSE P_pcg2_f_o_a04 = chem_index_table( PARAM_pcg2_f_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_o_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_o_a04 ) = 'pcg2_f_o_a04' chem_desc_table( idomain, P_pcg2_f_o_a04 ) = 'pcg2_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg2_f_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_f_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_f_o_a04 )%stream(2) = 2097216 ! 00200040 F_pcg2_f_o_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) = P_opcg1_f_c_a04 ELSE P_opcg1_f_c_a04 = chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a04 ) = 'opcg1_f_c_a04' chem_desc_table( idomain, P_opcg1_f_c_a04 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a04 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) = P_opcg1_f_o_a04 ELSE P_opcg1_f_o_a04 = chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a04 ) = 'opcg1_f_o_a04' chem_desc_table( idomain, P_opcg1_f_o_a04 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a04 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a04 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a04 , idomain ) = P_ant1_c_a04 ELSE P_ant1_c_a04 = chem_index_table( PARAM_ant1_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a04 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a04 ) = 'ant1_c_a04' chem_desc_table( idomain, P_ant1_c_a04 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_c_a04 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a04 = .TRUE. IF ( chem_index_table( PARAM_ant1_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_ant1_o_a04 , idomain ) = P_ant1_o_a04 ELSE P_ant1_o_a04 = chem_index_table( PARAM_ant1_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_ant1_o_a04 ) = .TRUE. chem_dname_table( idomain, P_ant1_o_a04 ) = 'ant1_o_a04' chem_desc_table( idomain, P_ant1_o_a04 ) = 'ant1_o, aerosol bin 01' chem_units_table( idomain, P_ant1_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_o_a04 )%stream(2) = 2097216 ! 00200040 F_ant1_o_a04 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a04 , idomain ) = P_biog1_c_a04 ELSE P_biog1_c_a04 = chem_index_table( PARAM_biog1_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a04 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a04 ) = 'biog1_c_a04' chem_desc_table( idomain, P_biog1_c_a04 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_a04 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a04 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a04 , idomain ) = P_biog1_o_a04 ELSE P_biog1_o_a04 = chem_index_table( PARAM_biog1_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a04 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a04 ) = 'biog1_o_a04' chem_desc_table( idomain, P_biog1_o_a04 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_o_a04 )%stream(2) = 2097216 ! 00200040 F_biog1_o_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 ! 00200040 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 ! 00200040 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 ! 00200040 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 ! 00200040 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 ! 00200040 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 ! 00200040 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 ! 00200040 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 ! 00200040 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 ! 00200040 F_co3_a04 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==201)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_o1d_cb4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o1d_cb4 = chem_num_table(idomain) chem_index_table( PARAM_o1d_cb4 , idomain ) = P_o1d_cb4 ELSE P_o1d_cb4 = chem_index_table( PARAM_o1d_cb4 , idomain ) END IF chem_boundary_table( idomain, P_o1d_cb4 ) = .TRUE. chem_dname_table( idomain, P_o1d_cb4 ) = 'o1d_cb4' chem_desc_table( idomain, P_o1d_cb4 ) = 'o1d_cb4 mixing ratio' chem_units_table( idomain, P_o1d_cb4 ) = 'ppmv' chem_streams_table( idomain, P_o1d_cb4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o1d_cb4 )%stream(2) = 2097216 ! 00200040 F_o1d_cb4 = .TRUE. IF ( chem_index_table( PARAM_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o = chem_num_table(idomain) chem_index_table( PARAM_o , idomain ) = P_o ELSE P_o = chem_index_table( PARAM_o , idomain ) END IF chem_boundary_table( idomain, P_o ) = .TRUE. chem_dname_table( idomain, P_o ) = 'o' chem_desc_table( idomain, P_o ) = 'o mixing ratio' chem_units_table( idomain, P_o ) = 'ppmv' chem_streams_table( idomain, P_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o )%stream(2) = 2097216 ! 00200040 F_o = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 ! 00200040 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 ! 00200040 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_hoch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2oo = chem_num_table(idomain) chem_index_table( PARAM_hoch2oo , idomain ) = P_hoch2oo ELSE P_hoch2oo = chem_index_table( PARAM_hoch2oo , idomain ) END IF chem_boundary_table( idomain, P_hoch2oo ) = .TRUE. chem_dname_table( idomain, P_hoch2oo ) = 'hoch2oo' chem_desc_table( idomain, P_hoch2oo ) = 'HOCH2OO mixing ratio' chem_units_table( idomain, P_hoch2oo ) = 'ppmv' chem_streams_table( idomain, P_hoch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoch2oo )%stream(2) = 2097216 ! 00200040 F_hoch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ooh = chem_num_table(idomain) chem_index_table( PARAM_ch3ooh , idomain ) = P_ch3ooh ELSE P_ch3ooh = chem_index_table( PARAM_ch3ooh , idomain ) END IF chem_boundary_table( idomain, P_ch3ooh ) = .TRUE. chem_dname_table( idomain, P_ch3ooh ) = 'ch3ooh' chem_desc_table( idomain, P_ch3ooh ) = 'CH3OOH mixing ratio' chem_units_table( idomain, P_ch3ooh ) = 'ppmv' chem_streams_table( idomain, P_ch3ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3ooh )%stream(2) = 2097216 ! 00200040 F_ch3ooh = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2 = chem_num_table(idomain) chem_index_table( PARAM_h2 , idomain ) = P_h2 ELSE P_h2 = chem_index_table( PARAM_h2 , idomain ) END IF chem_boundary_table( idomain, P_h2 ) = .TRUE. chem_dname_table( idomain, P_h2 ) = 'h2' chem_desc_table( idomain, P_h2 ) = 'H2 mixing ratio' chem_units_table( idomain, P_h2 ) = 'ppmv' chem_streams_table( idomain, P_h2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2 )%stream(2) = 2097216 ! 00200040 F_h2 = .TRUE. IF ( chem_index_table( PARAM_eo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eo2 = chem_num_table(idomain) chem_index_table( PARAM_eo2 , idomain ) = P_eo2 ELSE P_eo2 = chem_index_table( PARAM_eo2 , idomain ) END IF chem_boundary_table( idomain, P_eo2 ) = .TRUE. chem_dname_table( idomain, P_eo2 ) = 'eo2' chem_desc_table( idomain, P_eo2 ) = 'EO2 mixing ratio' chem_units_table( idomain, P_eo2 ) = 'ppmv' chem_streams_table( idomain, P_eo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eo2 )%stream(2) = 2097216 ! 00200040 F_eo2 = .TRUE. IF ( chem_index_table( PARAM_ch3cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cooh = chem_num_table(idomain) chem_index_table( PARAM_ch3cooh , idomain ) = P_ch3cooh ELSE P_ch3cooh = chem_index_table( PARAM_ch3cooh , idomain ) END IF chem_boundary_table( idomain, P_ch3cooh ) = .TRUE. chem_dname_table( idomain, P_ch3cooh ) = 'ch3cooh' chem_desc_table( idomain, P_ch3cooh ) = '' chem_units_table( idomain, P_ch3cooh ) = '' chem_streams_table( idomain, P_ch3cooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3cooh )%stream(2) = 2097216 ! 00200040 F_ch3cooh = .TRUE. IF ( chem_index_table( PARAM_c2h4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h4 = chem_num_table(idomain) chem_index_table( PARAM_c2h4 , idomain ) = P_c2h4 ELSE P_c2h4 = chem_index_table( PARAM_c2h4 , idomain ) END IF chem_boundary_table( idomain, P_c2h4 ) = .TRUE. chem_dname_table( idomain, P_c2h4 ) = 'c2h4' chem_desc_table( idomain, P_c2h4 ) = '' chem_units_table( idomain, P_c2h4 ) = '' chem_streams_table( idomain, P_c2h4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h4 )%stream(2) = 2097216 ! 00200040 F_c2h4 = .TRUE. IF ( chem_index_table( PARAM_n2o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o = chem_num_table(idomain) chem_index_table( PARAM_n2o , idomain ) = P_n2o ELSE P_n2o = chem_index_table( PARAM_n2o , idomain ) END IF chem_boundary_table( idomain, P_n2o ) = .TRUE. chem_dname_table( idomain, P_n2o ) = 'n2o' chem_desc_table( idomain, P_n2o ) = 'N2O mixing ratio' chem_units_table( idomain, P_n2o ) = 'ppmv' chem_streams_table( idomain, P_n2o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o )%stream(2) = 2097216 ! 00200040 F_n2o = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 ! 00200040 F_acet = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_c3h6ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6ooh = chem_num_table(idomain) chem_index_table( PARAM_c3h6ooh , idomain ) = P_c3h6ooh ELSE P_c3h6ooh = chem_index_table( PARAM_c3h6ooh , idomain ) END IF chem_boundary_table( idomain, P_c3h6ooh ) = .TRUE. chem_dname_table( idomain, P_c3h6ooh ) = 'c3h6ooh' chem_desc_table( idomain, P_c3h6ooh ) = '' chem_units_table( idomain, P_c3h6ooh ) = '' chem_streams_table( idomain, P_c3h6ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6ooh )%stream(2) = 2097216 ! 00200040 F_c3h6ooh = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 ! 00200040 F_mpan = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 ! 00200040 F_macr = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 ! 00200040 F_mvk = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 ! 00200040 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_etooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etooh = chem_num_table(idomain) chem_index_table( PARAM_etooh , idomain ) = P_etooh ELSE P_etooh = chem_index_table( PARAM_etooh , idomain ) END IF chem_boundary_table( idomain, P_etooh ) = .TRUE. chem_dname_table( idomain, P_etooh ) = 'etooh' chem_desc_table( idomain, P_etooh ) = '' chem_units_table( idomain, P_etooh ) = '' chem_streams_table( idomain, P_etooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_etooh )%stream(2) = 2097216 ! 00200040 F_etooh = .TRUE. IF ( chem_index_table( PARAM_prooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prooh = chem_num_table(idomain) chem_index_table( PARAM_prooh , idomain ) = P_prooh ELSE P_prooh = chem_index_table( PARAM_prooh , idomain ) END IF chem_boundary_table( idomain, P_prooh ) = .TRUE. chem_dname_table( idomain, P_prooh ) = 'prooh' chem_desc_table( idomain, P_prooh ) = '' chem_units_table( idomain, P_prooh ) = '' chem_streams_table( idomain, P_prooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_prooh )%stream(2) = 2097216 ! 00200040 F_prooh = .TRUE. IF ( chem_index_table( PARAM_acetp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetp = chem_num_table(idomain) chem_index_table( PARAM_acetp , idomain ) = P_acetp ELSE P_acetp = chem_index_table( PARAM_acetp , idomain ) END IF chem_boundary_table( idomain, P_acetp ) = .TRUE. chem_dname_table( idomain, P_acetp ) = 'acetp' chem_desc_table( idomain, P_acetp ) = '' chem_units_table( idomain, P_acetp ) = '' chem_streams_table( idomain, P_acetp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acetp )%stream(2) = 2097216 ! 00200040 F_acetp = .TRUE. IF ( chem_index_table( PARAM_xooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xooh = chem_num_table(idomain) chem_index_table( PARAM_xooh , idomain ) = P_xooh ELSE P_xooh = chem_index_table( PARAM_xooh , idomain ) END IF chem_boundary_table( idomain, P_xooh ) = .TRUE. chem_dname_table( idomain, P_xooh ) = 'xooh' chem_desc_table( idomain, P_xooh ) = 'XOOH mixing ratio' chem_units_table( idomain, P_xooh ) = 'ppmv' chem_streams_table( idomain, P_xooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xooh )%stream(2) = 2097216 ! 00200040 F_xooh = .TRUE. IF ( chem_index_table( PARAM_onitr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onitr = chem_num_table(idomain) chem_index_table( PARAM_onitr , idomain ) = P_onitr ELSE P_onitr = chem_index_table( PARAM_onitr , idomain ) END IF chem_boundary_table( idomain, P_onitr ) = .TRUE. chem_dname_table( idomain, P_onitr ) = 'onitr' chem_desc_table( idomain, P_onitr ) = 'ONITR mixing ratio' chem_units_table( idomain, P_onitr ) = 'ppmv' chem_streams_table( idomain, P_onitr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onitr )%stream(2) = 2097216 ! 00200040 F_onitr = .TRUE. IF ( chem_index_table( PARAM_isooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isooh = chem_num_table(idomain) chem_index_table( PARAM_isooh , idomain ) = P_isooh ELSE P_isooh = chem_index_table( PARAM_isooh , idomain ) END IF chem_boundary_table( idomain, P_isooh ) = .TRUE. chem_dname_table( idomain, P_isooh ) = 'isooh' chem_desc_table( idomain, P_isooh ) = '' chem_units_table( idomain, P_isooh ) = '' chem_streams_table( idomain, P_isooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isooh )%stream(2) = 2097216 ! 00200040 F_isooh = .TRUE. IF ( chem_index_table( PARAM_acetol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetol = chem_num_table(idomain) chem_index_table( PARAM_acetol , idomain ) = P_acetol ELSE P_acetol = chem_index_table( PARAM_acetol , idomain ) END IF chem_boundary_table( idomain, P_acetol ) = .TRUE. chem_dname_table( idomain, P_acetol ) = 'acetol' chem_desc_table( idomain, P_acetol ) = '' chem_units_table( idomain, P_acetol ) = '' chem_streams_table( idomain, P_acetol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acetol )%stream(2) = 2097216 ! 00200040 F_acetol = .TRUE. IF ( chem_index_table( PARAM_glyald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glyald = chem_num_table(idomain) chem_index_table( PARAM_glyald , idomain ) = P_glyald ELSE P_glyald = chem_index_table( PARAM_glyald , idomain ) END IF chem_boundary_table( idomain, P_glyald ) = .TRUE. chem_dname_table( idomain, P_glyald ) = 'glyald' chem_desc_table( idomain, P_glyald ) = 'GLYALD mixing ratio' chem_units_table( idomain, P_glyald ) = 'ppmv' chem_streams_table( idomain, P_glyald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glyald )%stream(2) = 2097216 ! 00200040 F_glyald = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 ! 00200040 F_mek = .TRUE. IF ( chem_index_table( PARAM_eto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eto2 = chem_num_table(idomain) chem_index_table( PARAM_eto2 , idomain ) = P_eto2 ELSE P_eto2 = chem_index_table( PARAM_eto2 , idomain ) END IF chem_boundary_table( idomain, P_eto2 ) = .TRUE. chem_dname_table( idomain, P_eto2 ) = 'eto2' chem_desc_table( idomain, P_eto2 ) = '' chem_units_table( idomain, P_eto2 ) = '' chem_streams_table( idomain, P_eto2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eto2 )%stream(2) = 2097216 ! 00200040 F_eto2 = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_alkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alkooh = chem_num_table(idomain) chem_index_table( PARAM_alkooh , idomain ) = P_alkooh ELSE P_alkooh = chem_index_table( PARAM_alkooh , idomain ) END IF chem_boundary_table( idomain, P_alkooh ) = .TRUE. chem_dname_table( idomain, P_alkooh ) = 'alkooh' chem_desc_table( idomain, P_alkooh ) = 'ALKOOH mixing ratio' chem_units_table( idomain, P_alkooh ) = 'ppmv' chem_streams_table( idomain, P_alkooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alkooh )%stream(2) = 2097216 ! 00200040 F_alkooh = .TRUE. IF ( chem_index_table( PARAM_mekooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mekooh = chem_num_table(idomain) chem_index_table( PARAM_mekooh , idomain ) = P_mekooh ELSE P_mekooh = chem_index_table( PARAM_mekooh , idomain ) END IF chem_boundary_table( idomain, P_mekooh ) = .TRUE. chem_dname_table( idomain, P_mekooh ) = 'mekooh' chem_desc_table( idomain, P_mekooh ) = '' chem_units_table( idomain, P_mekooh ) = '' chem_streams_table( idomain, P_mekooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mekooh )%stream(2) = 2097216 ! 00200040 F_mekooh = .TRUE. IF ( chem_index_table( PARAM_tolooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tolooh = chem_num_table(idomain) chem_index_table( PARAM_tolooh , idomain ) = P_tolooh ELSE P_tolooh = chem_index_table( PARAM_tolooh , idomain ) END IF chem_boundary_table( idomain, P_tolooh ) = .TRUE. chem_dname_table( idomain, P_tolooh ) = 'tolooh' chem_desc_table( idomain, P_tolooh ) = 'TOLOOH mixing ratio' chem_units_table( idomain, P_tolooh ) = 'ppmv' chem_streams_table( idomain, P_tolooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tolooh )%stream(2) = 2097216 ! 00200040 F_tolooh = .TRUE. IF ( chem_index_table( PARAM_terpooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpooh = chem_num_table(idomain) chem_index_table( PARAM_terpooh , idomain ) = P_terpooh ELSE P_terpooh = chem_index_table( PARAM_terpooh , idomain ) END IF chem_boundary_table( idomain, P_terpooh ) = .TRUE. chem_dname_table( idomain, P_terpooh ) = 'terpooh' chem_desc_table( idomain, P_terpooh ) = 'TERPOOH mixing ratio' chem_units_table( idomain, P_terpooh ) = 'ppmv' chem_streams_table( idomain, P_terpooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terpooh )%stream(2) = 2097216 ! 00200040 F_terpooh = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_mco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mco3 = chem_num_table(idomain) chem_index_table( PARAM_mco3 , idomain ) = P_mco3 ELSE P_mco3 = chem_index_table( PARAM_mco3 , idomain ) END IF chem_boundary_table( idomain, P_mco3 ) = .TRUE. chem_dname_table( idomain, P_mco3 ) = 'mco3' chem_desc_table( idomain, P_mco3 ) = 'MCO3 mixing ratio' chem_units_table( idomain, P_mco3 ) = 'ppmv' chem_streams_table( idomain, P_mco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mco3 )%stream(2) = 2097216 ! 00200040 F_mco3 = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_eo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eo = chem_num_table(idomain) chem_index_table( PARAM_eo , idomain ) = P_eo ELSE P_eo = chem_index_table( PARAM_eo , idomain ) END IF chem_boundary_table( idomain, P_eo ) = .TRUE. chem_dname_table( idomain, P_eo ) = 'eo' chem_desc_table( idomain, P_eo ) = 'EO mixing ratio' chem_units_table( idomain, P_eo ) = 'ppmv' chem_streams_table( idomain, P_eo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eo )%stream(2) = 2097216 ! 00200040 F_eo = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 ! 00200040 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 ! 00200040 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_pro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pro2 = chem_num_table(idomain) chem_index_table( PARAM_pro2 , idomain ) = P_pro2 ELSE P_pro2 = chem_index_table( PARAM_pro2 , idomain ) END IF chem_boundary_table( idomain, P_pro2 ) = .TRUE. chem_dname_table( idomain, P_pro2 ) = 'pro2' chem_desc_table( idomain, P_pro2 ) = '' chem_units_table( idomain, P_pro2 ) = '' chem_streams_table( idomain, P_pro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pro2 )%stream(2) = 2097216 ! 00200040 F_pro2 = .TRUE. IF ( chem_index_table( PARAM_po2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_po2 = chem_num_table(idomain) chem_index_table( PARAM_po2 , idomain ) = P_po2 ELSE P_po2 = chem_index_table( PARAM_po2 , idomain ) END IF chem_boundary_table( idomain, P_po2 ) = .TRUE. chem_dname_table( idomain, P_po2 ) = 'po2' chem_desc_table( idomain, P_po2 ) = 'PO2 mixing ratio' chem_units_table( idomain, P_po2 ) = 'ppmv' chem_streams_table( idomain, P_po2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_po2 )%stream(2) = 2097216 ! 00200040 F_po2 = .TRUE. IF ( chem_index_table( PARAM_aceto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aceto2 = chem_num_table(idomain) chem_index_table( PARAM_aceto2 , idomain ) = P_aceto2 ELSE P_aceto2 = chem_index_table( PARAM_aceto2 , idomain ) END IF chem_boundary_table( idomain, P_aceto2 ) = .TRUE. chem_dname_table( idomain, P_aceto2 ) = 'aceto2' chem_desc_table( idomain, P_aceto2 ) = '' chem_units_table( idomain, P_aceto2 ) = '' chem_streams_table( idomain, P_aceto2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aceto2 )%stream(2) = 2097216 ! 00200040 F_aceto2 = .TRUE. IF ( chem_index_table( PARAM_bigene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigene = chem_num_table(idomain) chem_index_table( PARAM_bigene , idomain ) = P_bigene ELSE P_bigene = chem_index_table( PARAM_bigene , idomain ) END IF chem_boundary_table( idomain, P_bigene ) = .TRUE. chem_dname_table( idomain, P_bigene ) = 'bigene' chem_desc_table( idomain, P_bigene ) = 'BIGENE mixing ratio' chem_units_table( idomain, P_bigene ) = 'ppmv' chem_streams_table( idomain, P_bigene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bigene )%stream(2) = 2097216 ! 00200040 F_bigene = .TRUE. IF ( chem_index_table( PARAM_bigalk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigalk = chem_num_table(idomain) chem_index_table( PARAM_bigalk , idomain ) = P_bigalk ELSE P_bigalk = chem_index_table( PARAM_bigalk , idomain ) END IF chem_boundary_table( idomain, P_bigalk ) = .TRUE. chem_dname_table( idomain, P_bigalk ) = 'bigalk' chem_desc_table( idomain, P_bigalk ) = 'BIGALK mixing ratio' chem_units_table( idomain, P_bigalk ) = 'ppmv' chem_streams_table( idomain, P_bigalk )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bigalk )%stream(2) = 2097216 ! 00200040 F_bigalk = .TRUE. IF ( chem_index_table( PARAM_eneo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eneo2 = chem_num_table(idomain) chem_index_table( PARAM_eneo2 , idomain ) = P_eneo2 ELSE P_eneo2 = chem_index_table( PARAM_eneo2 , idomain ) END IF chem_boundary_table( idomain, P_eneo2 ) = .TRUE. chem_dname_table( idomain, P_eneo2 ) = 'eneo2' chem_desc_table( idomain, P_eneo2 ) = 'ENEO2 mixing ratio' chem_units_table( idomain, P_eneo2 ) = 'ppmv' chem_streams_table( idomain, P_eneo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eneo2 )%stream(2) = 2097216 ! 00200040 F_eneo2 = .TRUE. IF ( chem_index_table( PARAM_alko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alko2 = chem_num_table(idomain) chem_index_table( PARAM_alko2 , idomain ) = P_alko2 ELSE P_alko2 = chem_index_table( PARAM_alko2 , idomain ) END IF chem_boundary_table( idomain, P_alko2 ) = .TRUE. chem_dname_table( idomain, P_alko2 ) = 'alko2' chem_desc_table( idomain, P_alko2 ) = 'ALKO2 mixing ratio' chem_units_table( idomain, P_alko2 ) = 'ppmv' chem_streams_table( idomain, P_alko2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alko2 )%stream(2) = 2097216 ! 00200040 F_alko2 = .TRUE. IF ( chem_index_table( PARAM_isopr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopr = chem_num_table(idomain) chem_index_table( PARAM_isopr , idomain ) = P_isopr ELSE P_isopr = chem_index_table( PARAM_isopr , idomain ) END IF chem_boundary_table( idomain, P_isopr ) = .TRUE. chem_dname_table( idomain, P_isopr ) = 'isopr' chem_desc_table( idomain, P_isopr ) = 'isoprene' chem_units_table( idomain, P_isopr ) = '' chem_streams_table( idomain, P_isopr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopr )%stream(2) = 2097216 ! 00200040 F_isopr = .TRUE. IF ( chem_index_table( PARAM_iso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso2 = chem_num_table(idomain) chem_index_table( PARAM_iso2 , idomain ) = P_iso2 ELSE P_iso2 = chem_index_table( PARAM_iso2 , idomain ) END IF chem_boundary_table( idomain, P_iso2 ) = .TRUE. chem_dname_table( idomain, P_iso2 ) = 'iso2' chem_desc_table( idomain, P_iso2 ) = '' chem_units_table( idomain, P_iso2 ) = '' chem_streams_table( idomain, P_iso2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso2 )%stream(2) = 2097216 ! 00200040 F_iso2 = .TRUE. IF ( chem_index_table( PARAM_mvko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvko2 = chem_num_table(idomain) chem_index_table( PARAM_mvko2 , idomain ) = P_mvko2 ELSE P_mvko2 = chem_index_table( PARAM_mvko2 , idomain ) END IF chem_boundary_table( idomain, P_mvko2 ) = .TRUE. chem_dname_table( idomain, P_mvko2 ) = 'mvko2' chem_desc_table( idomain, P_mvko2 ) = '' chem_units_table( idomain, P_mvko2 ) = '' chem_streams_table( idomain, P_mvko2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvko2 )%stream(2) = 2097216 ! 00200040 F_mvko2 = .TRUE. IF ( chem_index_table( PARAM_mvkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvkooh = chem_num_table(idomain) chem_index_table( PARAM_mvkooh , idomain ) = P_mvkooh ELSE P_mvkooh = chem_index_table( PARAM_mvkooh , idomain ) END IF chem_boundary_table( idomain, P_mvkooh ) = .TRUE. chem_dname_table( idomain, P_mvkooh ) = 'mvkooh' chem_desc_table( idomain, P_mvkooh ) = '' chem_units_table( idomain, P_mvkooh ) = '' chem_streams_table( idomain, P_mvkooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvkooh )%stream(2) = 2097216 ! 00200040 F_mvkooh = .TRUE. IF ( chem_index_table( PARAM_hydrald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hydrald = chem_num_table(idomain) chem_index_table( PARAM_hydrald , idomain ) = P_hydrald ELSE P_hydrald = chem_index_table( PARAM_hydrald , idomain ) END IF chem_boundary_table( idomain, P_hydrald ) = .TRUE. chem_dname_table( idomain, P_hydrald ) = 'hydrald' chem_desc_table( idomain, P_hydrald ) = 'HYDRALD mixing ratio' chem_units_table( idomain, P_hydrald ) = 'ppmv' chem_streams_table( idomain, P_hydrald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hydrald )%stream(2) = 2097216 ! 00200040 F_hydrald = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_apin , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apin = chem_num_table(idomain) chem_index_table( PARAM_apin , idomain ) = P_apin ELSE P_apin = chem_index_table( PARAM_apin , idomain ) END IF chem_boundary_table( idomain, P_apin ) = .TRUE. chem_dname_table( idomain, P_apin ) = 'apin' chem_desc_table( idomain, P_apin ) = 'APIN mixing ratio' chem_units_table( idomain, P_apin ) = 'ppmv' chem_streams_table( idomain, P_apin )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_apin )%stream(2) = 2097216 ! 00200040 F_apin = .TRUE. IF ( chem_index_table( PARAM_bpin , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpin = chem_num_table(idomain) chem_index_table( PARAM_bpin , idomain ) = P_bpin ELSE P_bpin = chem_index_table( PARAM_bpin , idomain ) END IF chem_boundary_table( idomain, P_bpin ) = .TRUE. chem_dname_table( idomain, P_bpin ) = 'bpin' chem_desc_table( idomain, P_bpin ) = 'BPIN mixing ratio' chem_units_table( idomain, P_bpin ) = 'ppmv' chem_streams_table( idomain, P_bpin )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpin )%stream(2) = 2097216 ! 00200040 F_bpin = .TRUE. IF ( chem_index_table( PARAM_limon , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_limon = chem_num_table(idomain) chem_index_table( PARAM_limon , idomain ) = P_limon ELSE P_limon = chem_index_table( PARAM_limon , idomain ) END IF chem_boundary_table( idomain, P_limon ) = .TRUE. chem_dname_table( idomain, P_limon ) = 'limon' chem_desc_table( idomain, P_limon ) = 'LIMON mixing ratio' chem_units_table( idomain, P_limon ) = 'ppmv' chem_streams_table( idomain, P_limon )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_limon )%stream(2) = 2097216 ! 00200040 F_limon = .TRUE. IF ( chem_index_table( PARAM_myrc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_myrc = chem_num_table(idomain) chem_index_table( PARAM_myrc , idomain ) = P_myrc ELSE P_myrc = chem_index_table( PARAM_myrc , idomain ) END IF chem_boundary_table( idomain, P_myrc ) = .TRUE. chem_dname_table( idomain, P_myrc ) = 'myrc' chem_desc_table( idomain, P_myrc ) = 'MYRC mixing ratio' chem_units_table( idomain, P_myrc ) = 'ppmv' chem_streams_table( idomain, P_myrc )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_myrc )%stream(2) = 2097216 ! 00200040 F_myrc = .TRUE. IF ( chem_index_table( PARAM_bcary , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bcary = chem_num_table(idomain) chem_index_table( PARAM_bcary , idomain ) = P_bcary ELSE P_bcary = chem_index_table( PARAM_bcary , idomain ) END IF chem_boundary_table( idomain, P_bcary ) = .TRUE. chem_dname_table( idomain, P_bcary ) = 'bcary' chem_desc_table( idomain, P_bcary ) = 'BCARY C15H24 mixing ratio' chem_units_table( idomain, P_bcary ) = 'ppmv' chem_streams_table( idomain, P_bcary )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bcary )%stream(2) = 2097216 ! 00200040 F_bcary = .TRUE. IF ( chem_index_table( PARAM_terprod1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terprod1 = chem_num_table(idomain) chem_index_table( PARAM_terprod1 , idomain ) = P_terprod1 ELSE P_terprod1 = chem_index_table( PARAM_terprod1 , idomain ) END IF chem_boundary_table( idomain, P_terprod1 ) = .TRUE. chem_dname_table( idomain, P_terprod1 ) = 'terprod1' chem_desc_table( idomain, P_terprod1 ) = 'TERPROD1 -> C10H16O2 mixing ratio' chem_units_table( idomain, P_terprod1 ) = 'ppmv' chem_streams_table( idomain, P_terprod1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terprod1 )%stream(2) = 2097216 ! 00200040 F_terprod1 = .TRUE. IF ( chem_index_table( PARAM_terprod2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terprod2 = chem_num_table(idomain) chem_index_table( PARAM_terprod2 , idomain ) = P_terprod2 ELSE P_terprod2 = chem_index_table( PARAM_terprod2 , idomain ) END IF chem_boundary_table( idomain, P_terprod2 ) = .TRUE. chem_dname_table( idomain, P_terprod2 ) = 'terprod2' chem_desc_table( idomain, P_terprod2 ) = 'TERPROD2 -> C9H14O2 mixing ratio' chem_units_table( idomain, P_terprod2 ) = 'ppmv' chem_streams_table( idomain, P_terprod2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terprod2 )%stream(2) = 2097216 ! 00200040 F_terprod2 = .TRUE. IF ( chem_index_table( PARAM_terp2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp2o2 = chem_num_table(idomain) chem_index_table( PARAM_terp2o2 , idomain ) = P_terp2o2 ELSE P_terp2o2 = chem_index_table( PARAM_terp2o2 , idomain ) END IF chem_boundary_table( idomain, P_terp2o2 ) = .TRUE. chem_dname_table( idomain, P_terp2o2 ) = 'terp2o2' chem_desc_table( idomain, P_terp2o2 ) = 'TERP2O2 -> C10H15O4 mixing ratio' chem_units_table( idomain, P_terp2o2 ) = 'ppmv' chem_streams_table( idomain, P_terp2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terp2o2 )%stream(2) = 2097216 ! 00200040 F_terp2o2 = .TRUE. IF ( chem_index_table( PARAM_terp2ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp2ooh = chem_num_table(idomain) chem_index_table( PARAM_terp2ooh , idomain ) = P_terp2ooh ELSE P_terp2ooh = chem_index_table( PARAM_terp2ooh , idomain ) END IF chem_boundary_table( idomain, P_terp2ooh ) = .TRUE. chem_dname_table( idomain, P_terp2ooh ) = 'terp2ooh' chem_desc_table( idomain, P_terp2ooh ) = 'TERP2OOH -> C10H16O4 mixing ratio' chem_units_table( idomain, P_terp2ooh ) = 'ppmv' chem_streams_table( idomain, P_terp2ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terp2ooh )%stream(2) = 2097216 ! 00200040 F_terp2ooh = .TRUE. IF ( chem_index_table( PARAM_nterpo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nterpo2 = chem_num_table(idomain) chem_index_table( PARAM_nterpo2 , idomain ) = P_nterpo2 ELSE P_nterpo2 = chem_index_table( PARAM_nterpo2 , idomain ) END IF chem_boundary_table( idomain, P_nterpo2 ) = .TRUE. chem_dname_table( idomain, P_nterpo2 ) = 'nterpo2' chem_desc_table( idomain, P_nterpo2 ) = 'NTERPO2 -> C10H16NO5 mixing ratio' chem_units_table( idomain, P_nterpo2 ) = 'ppmv' chem_streams_table( idomain, P_nterpo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nterpo2 )%stream(2) = 2097216 ! 00200040 F_nterpo2 = .TRUE. IF ( chem_index_table( PARAM_terpo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpo2 = chem_num_table(idomain) chem_index_table( PARAM_terpo2 , idomain ) = P_terpo2 ELSE P_terpo2 = chem_index_table( PARAM_terpo2 , idomain ) END IF chem_boundary_table( idomain, P_terpo2 ) = .TRUE. chem_dname_table( idomain, P_terpo2 ) = 'terpo2' chem_desc_table( idomain, P_terpo2 ) = 'TERPO2 mixing ratio' chem_units_table( idomain, P_terpo2 ) = 'ppmv' chem_streams_table( idomain, P_terpo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terpo2 )%stream(2) = 2097216 ! 00200040 F_terpo2 = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 ! 00200040 F_cres = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 ! 00200040 F_dms = .TRUE. IF ( chem_index_table( PARAM_mbo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mbo = chem_num_table(idomain) chem_index_table( PARAM_mbo , idomain ) = P_mbo ELSE P_mbo = chem_index_table( PARAM_mbo , idomain ) END IF chem_boundary_table( idomain, P_mbo ) = .TRUE. chem_dname_table( idomain, P_mbo ) = 'mbo' chem_desc_table( idomain, P_mbo ) = 'MBO (2-Methyl-3-Buten-2-ol) mixing ratio' chem_units_table( idomain, P_mbo ) = 'ppmv' chem_streams_table( idomain, P_mbo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mbo )%stream(2) = 2097216 ! 00200040 F_mbo = .TRUE. IF ( chem_index_table( PARAM_mboo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mboo2 = chem_num_table(idomain) chem_index_table( PARAM_mboo2 , idomain ) = P_mboo2 ELSE P_mboo2 = chem_index_table( PARAM_mboo2 , idomain ) END IF chem_boundary_table( idomain, P_mboo2 ) = .TRUE. chem_dname_table( idomain, P_mboo2 ) = 'mboo2' chem_desc_table( idomain, P_mboo2 ) = 'MBOO2 concentration' chem_units_table( idomain, P_mboo2 ) = 'ppmv' chem_streams_table( idomain, P_mboo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mboo2 )%stream(2) = 2097216 ! 00200040 F_mboo2 = .TRUE. IF ( chem_index_table( PARAM_hmprop , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hmprop = chem_num_table(idomain) chem_index_table( PARAM_hmprop , idomain ) = P_hmprop ELSE P_hmprop = chem_index_table( PARAM_hmprop , idomain ) END IF chem_boundary_table( idomain, P_hmprop ) = .TRUE. chem_dname_table( idomain, P_hmprop ) = 'hmprop' chem_desc_table( idomain, P_hmprop ) = 'HMPROP concentration' chem_units_table( idomain, P_hmprop ) = 'ppmv' chem_streams_table( idomain, P_hmprop )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hmprop )%stream(2) = 2097216 ! 00200040 F_hmprop = .TRUE. IF ( chem_index_table( PARAM_hmpropo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hmpropo2 = chem_num_table(idomain) chem_index_table( PARAM_hmpropo2 , idomain ) = P_hmpropo2 ELSE P_hmpropo2 = chem_index_table( PARAM_hmpropo2 , idomain ) END IF chem_boundary_table( idomain, P_hmpropo2 ) = .TRUE. chem_dname_table( idomain, P_hmpropo2 ) = 'hmpropo2' chem_desc_table( idomain, P_hmpropo2 ) = 'HMPROPO2 concentration' chem_units_table( idomain, P_hmpropo2 ) = 'ppmv' chem_streams_table( idomain, P_hmpropo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hmpropo2 )%stream(2) = 2097216 ! 00200040 F_hmpropo2 = .TRUE. IF ( chem_index_table( PARAM_mboooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mboooh = chem_num_table(idomain) chem_index_table( PARAM_mboooh , idomain ) = P_mboooh ELSE P_mboooh = chem_index_table( PARAM_mboooh , idomain ) END IF chem_boundary_table( idomain, P_mboooh ) = .TRUE. chem_dname_table( idomain, P_mboooh ) = 'mboooh' chem_desc_table( idomain, P_mboooh ) = 'MBOOOH concentration' chem_units_table( idomain, P_mboooh ) = 'ppmv' chem_streams_table( idomain, P_mboooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mboooh )%stream(2) = 2097216 ! 00200040 F_mboooh = .TRUE. IF ( chem_index_table( PARAM_mbono3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mbono3o2 = chem_num_table(idomain) chem_index_table( PARAM_mbono3o2 , idomain ) = P_mbono3o2 ELSE P_mbono3o2 = chem_index_table( PARAM_mbono3o2 , idomain ) END IF chem_boundary_table( idomain, P_mbono3o2 ) = .TRUE. chem_dname_table( idomain, P_mbono3o2 ) = 'mbono3o2' chem_desc_table( idomain, P_mbono3o2 ) = 'MBONO3O2 concentration' chem_units_table( idomain, P_mbono3o2 ) = 'ppmv' chem_streams_table( idomain, P_mbono3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mbono3o2 )%stream(2) = 2097216 ! 00200040 F_mbono3o2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_nume , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nume = chem_num_table(idomain) chem_index_table( PARAM_nume , idomain ) = P_nume ELSE P_nume = chem_index_table( PARAM_nume , idomain ) END IF chem_boundary_table( idomain, P_nume ) = .TRUE. chem_dname_table( idomain, P_nume ) = 'nume' chem_desc_table( idomain, P_nume ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_nume ) = 'ppmv' chem_streams_table( idomain, P_nume )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nume )%stream(2) = 2097216 ! 00200040 F_nume = .TRUE. IF ( chem_index_table( PARAM_den , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_den = chem_num_table(idomain) chem_index_table( PARAM_den , idomain ) = P_den ELSE P_den = chem_index_table( PARAM_den , idomain ) END IF chem_boundary_table( idomain, P_den ) = .TRUE. chem_dname_table( idomain, P_den ) = 'den' chem_desc_table( idomain, P_den ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_den ) = 'ppmv' chem_streams_table( idomain, P_den )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_den )%stream(2) = 2097216 ! 00200040 F_den = .TRUE. IF ( chem_index_table( PARAM_voca , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_voca = chem_num_table(idomain) chem_index_table( PARAM_voca , idomain ) = P_voca ELSE P_voca = chem_index_table( PARAM_voca , idomain ) END IF chem_boundary_table( idomain, P_voca ) = .TRUE. chem_dname_table( idomain, P_voca ) = 'voca' chem_desc_table( idomain, P_voca ) = 'VOCA mixing ratio' chem_units_table( idomain, P_voca ) = 'ppmv' chem_streams_table( idomain, P_voca )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_voca )%stream(2) = 2097216 ! 00200040 F_voca = .TRUE. IF ( chem_index_table( PARAM_vocbb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vocbb = chem_num_table(idomain) chem_index_table( PARAM_vocbb , idomain ) = P_vocbb ELSE P_vocbb = chem_index_table( PARAM_vocbb , idomain ) END IF chem_boundary_table( idomain, P_vocbb ) = .TRUE. chem_dname_table( idomain, P_vocbb ) = 'vocbb' chem_desc_table( idomain, P_vocbb ) = 'VOCBB mixing ratio' chem_units_table( idomain, P_vocbb ) = 'ppmv' chem_streams_table( idomain, P_vocbb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vocbb )%stream(2) = 2097216 ! 00200040 F_vocbb = .TRUE. IF ( chem_index_table( PARAM_smpa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpa = chem_num_table(idomain) chem_index_table( PARAM_smpa , idomain ) = P_smpa ELSE P_smpa = chem_index_table( PARAM_smpa , idomain ) END IF chem_boundary_table( idomain, P_smpa ) = .TRUE. chem_dname_table( idomain, P_smpa ) = 'smpa' chem_desc_table( idomain, P_smpa ) = 'smpa mixing ratio' chem_units_table( idomain, P_smpa ) = 'ppmv' chem_streams_table( idomain, P_smpa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_smpa )%stream(2) = 2097216 ! 00200040 F_smpa = .TRUE. IF ( chem_index_table( PARAM_smpbb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpbb = chem_num_table(idomain) chem_index_table( PARAM_smpbb , idomain ) = P_smpbb ELSE P_smpbb = chem_index_table( PARAM_smpbb , idomain ) END IF chem_boundary_table( idomain, P_smpbb ) = .TRUE. chem_dname_table( idomain, P_smpbb ) = 'smpbb' chem_desc_table( idomain, P_smpbb ) = 'smpbb mixing ratio' chem_units_table( idomain, P_smpbb ) = 'ppmv' chem_streams_table( idomain, P_smpbb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_smpbb )%stream(2) = 2097216 ! 00200040 F_smpbb = .TRUE. IF ( chem_index_table( PARAM_biog1_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c = chem_num_table(idomain) chem_index_table( PARAM_biog1_c , idomain ) = P_biog1_c ELSE P_biog1_c = chem_index_table( PARAM_biog1_c , idomain ) END IF chem_boundary_table( idomain, P_biog1_c ) = .TRUE. chem_dname_table( idomain, P_biog1_c ) = 'biog1_c' chem_desc_table( idomain, P_biog1_c ) = 'biog1_c mixing ratio' chem_units_table( idomain, P_biog1_c ) = 'ppmv' chem_streams_table( idomain, P_biog1_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c )%stream(2) = 2097216 ! 00200040 F_biog1_c = .TRUE. IF ( chem_index_table( PARAM_biog1_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o = chem_num_table(idomain) chem_index_table( PARAM_biog1_o , idomain ) = P_biog1_o ELSE P_biog1_o = chem_index_table( PARAM_biog1_o , idomain ) END IF chem_boundary_table( idomain, P_biog1_o ) = .TRUE. chem_dname_table( idomain, P_biog1_o ) = 'biog1_o' chem_desc_table( idomain, P_biog1_o ) = 'biog1_o mixing ratio' chem_units_table( idomain, P_biog1_o ) = 'ppmv' chem_streams_table( idomain, P_biog1_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_o )%stream(2) = 2097216 ! 00200040 F_biog1_o = .TRUE. IF ( chem_index_table( PARAM_benzene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzene = chem_num_table(idomain) chem_index_table( PARAM_benzene , idomain ) = P_benzene ELSE P_benzene = chem_index_table( PARAM_benzene , idomain ) END IF chem_boundary_table( idomain, P_benzene ) = .TRUE. chem_dname_table( idomain, P_benzene ) = 'benzene' chem_desc_table( idomain, P_benzene ) = 'BENZENE concentration' chem_units_table( idomain, P_benzene ) = 'ppmv' chem_streams_table( idomain, P_benzene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_benzene )%stream(2) = 2097216 ! 00200040 F_benzene = .TRUE. IF ( chem_index_table( PARAM_phen , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phen = chem_num_table(idomain) chem_index_table( PARAM_phen , idomain ) = P_phen ELSE P_phen = chem_index_table( PARAM_phen , idomain ) END IF chem_boundary_table( idomain, P_phen ) = .TRUE. chem_dname_table( idomain, P_phen ) = 'phen' chem_desc_table( idomain, P_phen ) = 'PHEN mixing ratio' chem_units_table( idomain, P_phen ) = 'ppmv' chem_streams_table( idomain, P_phen )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_phen )%stream(2) = 2097216 ! 00200040 F_phen = .TRUE. IF ( chem_index_table( PARAM_bepomuc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bepomuc = chem_num_table(idomain) chem_index_table( PARAM_bepomuc , idomain ) = P_bepomuc ELSE P_bepomuc = chem_index_table( PARAM_bepomuc , idomain ) END IF chem_boundary_table( idomain, P_bepomuc ) = .TRUE. chem_dname_table( idomain, P_bepomuc ) = 'bepomuc' chem_desc_table( idomain, P_bepomuc ) = 'bepomuc mixing ratio' chem_units_table( idomain, P_bepomuc ) = 'ppmv' chem_streams_table( idomain, P_bepomuc )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bepomuc )%stream(2) = 2097216 ! 00200040 F_bepomuc = .TRUE. IF ( chem_index_table( PARAM_benzo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzo2 = chem_num_table(idomain) chem_index_table( PARAM_benzo2 , idomain ) = P_benzo2 ELSE P_benzo2 = chem_index_table( PARAM_benzo2 , idomain ) END IF chem_boundary_table( idomain, P_benzo2 ) = .TRUE. chem_dname_table( idomain, P_benzo2 ) = 'benzo2' chem_desc_table( idomain, P_benzo2 ) = 'benzo2 mixing ratio' chem_units_table( idomain, P_benzo2 ) = 'ppmv' chem_streams_table( idomain, P_benzo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_benzo2 )%stream(2) = 2097216 ! 00200040 F_benzo2 = .TRUE. IF ( chem_index_table( PARAM_pheno2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pheno2 = chem_num_table(idomain) chem_index_table( PARAM_pheno2 , idomain ) = P_pheno2 ELSE P_pheno2 = chem_index_table( PARAM_pheno2 , idomain ) END IF chem_boundary_table( idomain, P_pheno2 ) = .TRUE. chem_dname_table( idomain, P_pheno2 ) = 'pheno2' chem_desc_table( idomain, P_pheno2 ) = 'pheno2 mixing ratio' chem_units_table( idomain, P_pheno2 ) = 'ppmv' chem_streams_table( idomain, P_pheno2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pheno2 )%stream(2) = 2097216 ! 00200040 F_pheno2 = .TRUE. IF ( chem_index_table( PARAM_pheno , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pheno = chem_num_table(idomain) chem_index_table( PARAM_pheno , idomain ) = P_pheno ELSE P_pheno = chem_index_table( PARAM_pheno , idomain ) END IF chem_boundary_table( idomain, P_pheno ) = .TRUE. chem_dname_table( idomain, P_pheno ) = 'pheno' chem_desc_table( idomain, P_pheno ) = 'pheno mixing ratio' chem_units_table( idomain, P_pheno ) = 'ppmv' chem_streams_table( idomain, P_pheno )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pheno )%stream(2) = 2097216 ! 00200040 F_pheno = .TRUE. IF ( chem_index_table( PARAM_phenooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phenooh = chem_num_table(idomain) chem_index_table( PARAM_phenooh , idomain ) = P_phenooh ELSE P_phenooh = chem_index_table( PARAM_phenooh , idomain ) END IF chem_boundary_table( idomain, P_phenooh ) = .TRUE. chem_dname_table( idomain, P_phenooh ) = 'phenooh' chem_desc_table( idomain, P_phenooh ) = 'phenooh mixing ratio' chem_units_table( idomain, P_phenooh ) = 'ppmv' chem_streams_table( idomain, P_phenooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_phenooh )%stream(2) = 2097216 ! 00200040 F_phenooh = .TRUE. IF ( chem_index_table( PARAM_c6h5o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c6h5o2 = chem_num_table(idomain) chem_index_table( PARAM_c6h5o2 , idomain ) = P_c6h5o2 ELSE P_c6h5o2 = chem_index_table( PARAM_c6h5o2 , idomain ) END IF chem_boundary_table( idomain, P_c6h5o2 ) = .TRUE. chem_dname_table( idomain, P_c6h5o2 ) = 'c6h5o2' chem_desc_table( idomain, P_c6h5o2 ) = 'c6h5o2 mixing ratio' chem_units_table( idomain, P_c6h5o2 ) = 'ppmv' chem_streams_table( idomain, P_c6h5o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c6h5o2 )%stream(2) = 2097216 ! 00200040 F_c6h5o2 = .TRUE. IF ( chem_index_table( PARAM_c6h5ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c6h5ooh = chem_num_table(idomain) chem_index_table( PARAM_c6h5ooh , idomain ) = P_c6h5ooh ELSE P_c6h5ooh = chem_index_table( PARAM_c6h5ooh , idomain ) END IF chem_boundary_table( idomain, P_c6h5ooh ) = .TRUE. chem_dname_table( idomain, P_c6h5ooh ) = 'c6h5ooh' chem_desc_table( idomain, P_c6h5ooh ) = 'c6h5ooh mixing ratio' chem_units_table( idomain, P_c6h5ooh ) = 'ppmv' chem_streams_table( idomain, P_c6h5ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c6h5ooh )%stream(2) = 2097216 ! 00200040 F_c6h5ooh = .TRUE. IF ( chem_index_table( PARAM_benzooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzooh = chem_num_table(idomain) chem_index_table( PARAM_benzooh , idomain ) = P_benzooh ELSE P_benzooh = chem_index_table( PARAM_benzooh , idomain ) END IF chem_boundary_table( idomain, P_benzooh ) = .TRUE. chem_dname_table( idomain, P_benzooh ) = 'benzooh' chem_desc_table( idomain, P_benzooh ) = 'benzooh mixing ratio' chem_units_table( idomain, P_benzooh ) = 'ppmv' chem_streams_table( idomain, P_benzooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_benzooh )%stream(2) = 2097216 ! 00200040 F_benzooh = .TRUE. IF ( chem_index_table( PARAM_bigald1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigald1 = chem_num_table(idomain) chem_index_table( PARAM_bigald1 , idomain ) = P_bigald1 ELSE P_bigald1 = chem_index_table( PARAM_bigald1 , idomain ) END IF chem_boundary_table( idomain, P_bigald1 ) = .TRUE. chem_dname_table( idomain, P_bigald1 ) = 'bigald1' chem_desc_table( idomain, P_bigald1 ) = 'bigald1 mixing ratio' chem_units_table( idomain, P_bigald1 ) = 'ppmv' chem_streams_table( idomain, P_bigald1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bigald1 )%stream(2) = 2097216 ! 00200040 F_bigald1 = .TRUE. IF ( chem_index_table( PARAM_bigald2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigald2 = chem_num_table(idomain) chem_index_table( PARAM_bigald2 , idomain ) = P_bigald2 ELSE P_bigald2 = chem_index_table( PARAM_bigald2 , idomain ) END IF chem_boundary_table( idomain, P_bigald2 ) = .TRUE. chem_dname_table( idomain, P_bigald2 ) = 'bigald2' chem_desc_table( idomain, P_bigald2 ) = 'bigald2 mixing ratio' chem_units_table( idomain, P_bigald2 ) = 'ppmv' chem_streams_table( idomain, P_bigald2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bigald2 )%stream(2) = 2097216 ! 00200040 F_bigald2 = .TRUE. IF ( chem_index_table( PARAM_bigald3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigald3 = chem_num_table(idomain) chem_index_table( PARAM_bigald3 , idomain ) = P_bigald3 ELSE P_bigald3 = chem_index_table( PARAM_bigald3 , idomain ) END IF chem_boundary_table( idomain, P_bigald3 ) = .TRUE. chem_dname_table( idomain, P_bigald3 ) = 'bigald3' chem_desc_table( idomain, P_bigald3 ) = 'bigald3 mixing ratio' chem_units_table( idomain, P_bigald3 ) = 'ppmv' chem_streams_table( idomain, P_bigald3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bigald3 )%stream(2) = 2097216 ! 00200040 F_bigald3 = .TRUE. IF ( chem_index_table( PARAM_bigald4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigald4 = chem_num_table(idomain) chem_index_table( PARAM_bigald4 , idomain ) = P_bigald4 ELSE P_bigald4 = chem_index_table( PARAM_bigald4 , idomain ) END IF chem_boundary_table( idomain, P_bigald4 ) = .TRUE. chem_dname_table( idomain, P_bigald4 ) = 'bigald4' chem_desc_table( idomain, P_bigald4 ) = 'bigald4 mixing ratio' chem_units_table( idomain, P_bigald4 ) = 'ppmv' chem_streams_table( idomain, P_bigald4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bigald4 )%stream(2) = 2097216 ! 00200040 F_bigald4 = .TRUE. IF ( chem_index_table( PARAM_malo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_malo2 = chem_num_table(idomain) chem_index_table( PARAM_malo2 , idomain ) = P_malo2 ELSE P_malo2 = chem_index_table( PARAM_malo2 , idomain ) END IF chem_boundary_table( idomain, P_malo2 ) = .TRUE. chem_dname_table( idomain, P_malo2 ) = 'malo2' chem_desc_table( idomain, P_malo2 ) = 'malo2 mixing ratio' chem_units_table( idomain, P_malo2 ) = 'ppmv' chem_streams_table( idomain, P_malo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_malo2 )%stream(2) = 2097216 ! 00200040 F_malo2 = .TRUE. IF ( chem_index_table( PARAM_tepomuc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tepomuc = chem_num_table(idomain) chem_index_table( PARAM_tepomuc , idomain ) = P_tepomuc ELSE P_tepomuc = chem_index_table( PARAM_tepomuc , idomain ) END IF chem_boundary_table( idomain, P_tepomuc ) = .TRUE. chem_dname_table( idomain, P_tepomuc ) = 'tepomuc' chem_desc_table( idomain, P_tepomuc ) = 'tepomuc mixing ratio' chem_units_table( idomain, P_tepomuc ) = 'ppmv' chem_streams_table( idomain, P_tepomuc )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tepomuc )%stream(2) = 2097216 ! 00200040 F_tepomuc = .TRUE. IF ( chem_index_table( PARAM_bzoo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bzoo = chem_num_table(idomain) chem_index_table( PARAM_bzoo , idomain ) = P_bzoo ELSE P_bzoo = chem_index_table( PARAM_bzoo , idomain ) END IF chem_boundary_table( idomain, P_bzoo ) = .TRUE. chem_dname_table( idomain, P_bzoo ) = 'bzoo' chem_desc_table( idomain, P_bzoo ) = 'bzoo mixing ratio' chem_units_table( idomain, P_bzoo ) = 'ppmv' chem_streams_table( idomain, P_bzoo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bzoo )%stream(2) = 2097216 ! 00200040 F_bzoo = .TRUE. IF ( chem_index_table( PARAM_bzooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bzooh = chem_num_table(idomain) chem_index_table( PARAM_bzooh , idomain ) = P_bzooh ELSE P_bzooh = chem_index_table( PARAM_bzooh , idomain ) END IF chem_boundary_table( idomain, P_bzooh ) = .TRUE. chem_dname_table( idomain, P_bzooh ) = 'bzooh' chem_desc_table( idomain, P_bzooh ) = 'bzooh mixing ratio' chem_units_table( idomain, P_bzooh ) = 'ppmv' chem_streams_table( idomain, P_bzooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bzooh )%stream(2) = 2097216 ! 00200040 F_bzooh = .TRUE. IF ( chem_index_table( PARAM_bald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bald = chem_num_table(idomain) chem_index_table( PARAM_bald , idomain ) = P_bald ELSE P_bald = chem_index_table( PARAM_bald , idomain ) END IF chem_boundary_table( idomain, P_bald ) = .TRUE. chem_dname_table( idomain, P_bald ) = 'bald' chem_desc_table( idomain, P_bald ) = 'BALD mixing ratio' chem_units_table( idomain, P_bald ) = 'ppmv' chem_streams_table( idomain, P_bald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bald )%stream(2) = 2097216 ! 00200040 F_bald = .TRUE. IF ( chem_index_table( PARAM_acbzo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acbzo2 = chem_num_table(idomain) chem_index_table( PARAM_acbzo2 , idomain ) = P_acbzo2 ELSE P_acbzo2 = chem_index_table( PARAM_acbzo2 , idomain ) END IF chem_boundary_table( idomain, P_acbzo2 ) = .TRUE. chem_dname_table( idomain, P_acbzo2 ) = 'acbzo2' chem_desc_table( idomain, P_acbzo2 ) = 'acbzo2 mixing ratio' chem_units_table( idomain, P_acbzo2 ) = 'ppmv' chem_streams_table( idomain, P_acbzo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acbzo2 )%stream(2) = 2097216 ! 00200040 F_acbzo2 = .TRUE. IF ( chem_index_table( PARAM_dicarbo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dicarbo2 = chem_num_table(idomain) chem_index_table( PARAM_dicarbo2 , idomain ) = P_dicarbo2 ELSE P_dicarbo2 = chem_index_table( PARAM_dicarbo2 , idomain ) END IF chem_boundary_table( idomain, P_dicarbo2 ) = .TRUE. chem_dname_table( idomain, P_dicarbo2 ) = 'dicarbo2' chem_desc_table( idomain, P_dicarbo2 ) = 'dicarbo2 mixing ratio' chem_units_table( idomain, P_dicarbo2 ) = 'ppmv' chem_streams_table( idomain, P_dicarbo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dicarbo2 )%stream(2) = 2097216 ! 00200040 F_dicarbo2 = .TRUE. IF ( chem_index_table( PARAM_mdialo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mdialo2 = chem_num_table(idomain) chem_index_table( PARAM_mdialo2 , idomain ) = P_mdialo2 ELSE P_mdialo2 = chem_index_table( PARAM_mdialo2 , idomain ) END IF chem_boundary_table( idomain, P_mdialo2 ) = .TRUE. chem_dname_table( idomain, P_mdialo2 ) = 'mdialo2' chem_desc_table( idomain, P_mdialo2 ) = 'mdialo2 mixing ratio' chem_units_table( idomain, P_mdialo2 ) = 'ppmv' chem_streams_table( idomain, P_mdialo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mdialo2 )%stream(2) = 2097216 ! 00200040 F_mdialo2 = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_xylol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylol = chem_num_table(idomain) chem_index_table( PARAM_xylol , idomain ) = P_xylol ELSE P_xylol = chem_index_table( PARAM_xylol , idomain ) END IF chem_boundary_table( idomain, P_xylol ) = .TRUE. chem_dname_table( idomain, P_xylol ) = 'xylol' chem_desc_table( idomain, P_xylol ) = 'xylol mixing ratio' chem_units_table( idomain, P_xylol ) = 'ppmv' chem_streams_table( idomain, P_xylol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xylol )%stream(2) = 2097216 ! 00200040 F_xylol = .TRUE. IF ( chem_index_table( PARAM_xylolo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylolo2 = chem_num_table(idomain) chem_index_table( PARAM_xylolo2 , idomain ) = P_xylolo2 ELSE P_xylolo2 = chem_index_table( PARAM_xylolo2 , idomain ) END IF chem_boundary_table( idomain, P_xylolo2 ) = .TRUE. chem_dname_table( idomain, P_xylolo2 ) = 'xylolo2' chem_desc_table( idomain, P_xylolo2 ) = 'xylolo2 mixing ratio' chem_units_table( idomain, P_xylolo2 ) = 'ppmv' chem_streams_table( idomain, P_xylolo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xylolo2 )%stream(2) = 2097216 ! 00200040 F_xylolo2 = .TRUE. IF ( chem_index_table( PARAM_xylolooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylolooh = chem_num_table(idomain) chem_index_table( PARAM_xylolooh , idomain ) = P_xylolooh ELSE P_xylolooh = chem_index_table( PARAM_xylolooh , idomain ) END IF chem_boundary_table( idomain, P_xylolooh ) = .TRUE. chem_dname_table( idomain, P_xylolooh ) = 'xylolooh' chem_desc_table( idomain, P_xylolooh ) = 'xylolooh mixing ratio' chem_units_table( idomain, P_xylolooh ) = 'ppmv' chem_streams_table( idomain, P_xylolooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xylolooh )%stream(2) = 2097216 ! 00200040 F_xylolooh = .TRUE. IF ( chem_index_table( PARAM_xyleno2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyleno2 = chem_num_table(idomain) chem_index_table( PARAM_xyleno2 , idomain ) = P_xyleno2 ELSE P_xyleno2 = chem_index_table( PARAM_xyleno2 , idomain ) END IF chem_boundary_table( idomain, P_xyleno2 ) = .TRUE. chem_dname_table( idomain, P_xyleno2 ) = 'xyleno2' chem_desc_table( idomain, P_xyleno2 ) = 'xyleno2 mixing ratio' chem_units_table( idomain, P_xyleno2 ) = 'ppmv' chem_streams_table( idomain, P_xyleno2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyleno2 )%stream(2) = 2097216 ! 00200040 F_xyleno2 = .TRUE. IF ( chem_index_table( PARAM_xylenooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylenooh = chem_num_table(idomain) chem_index_table( PARAM_xylenooh , idomain ) = P_xylenooh ELSE P_xylenooh = chem_index_table( PARAM_xylenooh , idomain ) END IF chem_boundary_table( idomain, P_xylenooh ) = .TRUE. chem_dname_table( idomain, P_xylenooh ) = 'xylenooh' chem_desc_table( idomain, P_xylenooh ) = 'xylenooh mixing ratio' chem_units_table( idomain, P_xylenooh ) = 'ppmv' chem_streams_table( idomain, P_xylenooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xylenooh )%stream(2) = 2097216 ! 00200040 F_xylenooh = .TRUE. IF ( chem_index_table( PARAM_pbznit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pbznit = chem_num_table(idomain) chem_index_table( PARAM_pbznit , idomain ) = P_pbznit ELSE P_pbznit = chem_index_table( PARAM_pbznit , idomain ) END IF chem_boundary_table( idomain, P_pbznit ) = .TRUE. chem_dname_table( idomain, P_pbznit ) = 'pbznit' chem_desc_table( idomain, P_pbznit ) = 'pbznit mixing ratio' chem_units_table( idomain, P_pbznit ) = 'ppmv' chem_streams_table( idomain, P_pbznit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pbznit )%stream(2) = 2097216 ! 00200040 F_pbznit = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_meko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meko2 = chem_num_table(idomain) chem_index_table( PARAM_meko2 , idomain ) = P_meko2 ELSE P_meko2 = chem_index_table( PARAM_meko2 , idomain ) END IF chem_boundary_table( idomain, P_meko2 ) = .TRUE. chem_dname_table( idomain, P_meko2 ) = 'meko2' chem_desc_table( idomain, P_meko2 ) = '' chem_units_table( idomain, P_meko2 ) = '' chem_streams_table( idomain, P_meko2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_meko2 )%stream(2) = 2097216 ! 00200040 F_meko2 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 ! 00200040 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 ! 00200040 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_smpa_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpa_a01 = chem_num_table(idomain) chem_index_table( PARAM_smpa_a01 , idomain ) = P_smpa_a01 ELSE P_smpa_a01 = chem_index_table( PARAM_smpa_a01 , idomain ) END IF chem_boundary_table( idomain, P_smpa_a01 ) = .TRUE. chem_dname_table( idomain, P_smpa_a01 ) = 'smpa_a01' chem_desc_table( idomain, P_smpa_a01 ) = 'smpa, aerosol bin 01' chem_units_table( idomain, P_smpa_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_smpa_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_smpa_a01 )%stream(2) = 2097216 ! 00200040 F_smpa_a01 = .TRUE. IF ( chem_index_table( PARAM_smpbb_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpbb_a01 = chem_num_table(idomain) chem_index_table( PARAM_smpbb_a01 , idomain ) = P_smpbb_a01 ELSE P_smpbb_a01 = chem_index_table( PARAM_smpbb_a01 , idomain ) END IF chem_boundary_table( idomain, P_smpbb_a01 ) = .TRUE. chem_dname_table( idomain, P_smpbb_a01 ) = 'smpbb_a01' chem_desc_table( idomain, P_smpbb_a01 ) = 'smpbb, aerosol bin 01' chem_units_table( idomain, P_smpbb_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_smpbb_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_smpbb_a01 )%stream(2) = 2097216 ! 00200040 F_smpbb_a01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_a01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_a01 , idomain ) = P_glysoa_sfc_a01 ELSE P_glysoa_sfc_a01 = chem_index_table( PARAM_glysoa_sfc_a01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_a01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_a01 ) = 'glysoa_sfc_a01' chem_desc_table( idomain, P_glysoa_sfc_a01 ) = 'glysoa_sfc, aerosol bin 01' chem_units_table( idomain, P_glysoa_sfc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_sfc_a01 )%stream(2) = 2097216 ! 00200040 F_glysoa_sfc_a01 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a01 , idomain ) = P_biog1_c_a01 ELSE P_biog1_c_a01 = chem_index_table( PARAM_biog1_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a01 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a01 ) = 'biog1_c_a01' chem_desc_table( idomain, P_biog1_c_a01 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_a01 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a01 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a01 , idomain ) = P_biog1_o_a01 ELSE P_biog1_o_a01 = chem_index_table( PARAM_biog1_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a01 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a01 ) = 'biog1_o_a01' chem_desc_table( idomain, P_biog1_o_a01 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_o_a01 )%stream(2) = 2097216 ! 00200040 F_biog1_o_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 ! 00200040 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 ! 00200040 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 ! 00200040 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 ! 00200040 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 ! 00200040 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 ! 00200040 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 ! 00200040 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 ! 00200040 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 ! 00200040 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 ! 00200040 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 ! 00200040 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 ! 00200040 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_smpa_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpa_a02 = chem_num_table(idomain) chem_index_table( PARAM_smpa_a02 , idomain ) = P_smpa_a02 ELSE P_smpa_a02 = chem_index_table( PARAM_smpa_a02 , idomain ) END IF chem_boundary_table( idomain, P_smpa_a02 ) = .TRUE. chem_dname_table( idomain, P_smpa_a02 ) = 'smpa_a02' chem_desc_table( idomain, P_smpa_a02 ) = 'smpa, aerosol bin 02' chem_units_table( idomain, P_smpa_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_smpa_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_smpa_a02 )%stream(2) = 2097216 ! 00200040 F_smpa_a02 = .TRUE. IF ( chem_index_table( PARAM_smpbb_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpbb_a02 = chem_num_table(idomain) chem_index_table( PARAM_smpbb_a02 , idomain ) = P_smpbb_a02 ELSE P_smpbb_a02 = chem_index_table( PARAM_smpbb_a02 , idomain ) END IF chem_boundary_table( idomain, P_smpbb_a02 ) = .TRUE. chem_dname_table( idomain, P_smpbb_a02 ) = 'smpbb_a02' chem_desc_table( idomain, P_smpbb_a02 ) = 'smpbb, aerosol bin 02' chem_units_table( idomain, P_smpbb_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_smpbb_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_smpbb_a02 )%stream(2) = 2097216 ! 00200040 F_smpbb_a02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_a02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_a02 , idomain ) = P_glysoa_sfc_a02 ELSE P_glysoa_sfc_a02 = chem_index_table( PARAM_glysoa_sfc_a02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_a02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_a02 ) = 'glysoa_sfc_a02' chem_desc_table( idomain, P_glysoa_sfc_a02 ) = 'glysoa_sfc, aerosol bin 02' chem_units_table( idomain, P_glysoa_sfc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_sfc_a02 )%stream(2) = 2097216 ! 00200040 F_glysoa_sfc_a02 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a02 , idomain ) = P_biog1_c_a02 ELSE P_biog1_c_a02 = chem_index_table( PARAM_biog1_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a02 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a02 ) = 'biog1_c_a02' chem_desc_table( idomain, P_biog1_c_a02 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_a02 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a02 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a02 , idomain ) = P_biog1_o_a02 ELSE P_biog1_o_a02 = chem_index_table( PARAM_biog1_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a02 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a02 ) = 'biog1_o_a02' chem_desc_table( idomain, P_biog1_o_a02 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_o_a02 )%stream(2) = 2097216 ! 00200040 F_biog1_o_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 ! 00200040 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 ! 00200040 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 ! 00200040 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 ! 00200040 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 ! 00200040 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 ! 00200040 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 ! 00200040 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 ! 00200040 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 ! 00200040 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 ! 00200040 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 ! 00200040 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 ! 00200040 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_smpa_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpa_a03 = chem_num_table(idomain) chem_index_table( PARAM_smpa_a03 , idomain ) = P_smpa_a03 ELSE P_smpa_a03 = chem_index_table( PARAM_smpa_a03 , idomain ) END IF chem_boundary_table( idomain, P_smpa_a03 ) = .TRUE. chem_dname_table( idomain, P_smpa_a03 ) = 'smpa_a03' chem_desc_table( idomain, P_smpa_a03 ) = 'smpa, aerosol bin 03' chem_units_table( idomain, P_smpa_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_smpa_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_smpa_a03 )%stream(2) = 2097216 ! 00200040 F_smpa_a03 = .TRUE. IF ( chem_index_table( PARAM_smpbb_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpbb_a03 = chem_num_table(idomain) chem_index_table( PARAM_smpbb_a03 , idomain ) = P_smpbb_a03 ELSE P_smpbb_a03 = chem_index_table( PARAM_smpbb_a03 , idomain ) END IF chem_boundary_table( idomain, P_smpbb_a03 ) = .TRUE. chem_dname_table( idomain, P_smpbb_a03 ) = 'smpbb_a03' chem_desc_table( idomain, P_smpbb_a03 ) = 'smpbb, aerosol bin 03' chem_units_table( idomain, P_smpbb_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_smpbb_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_smpbb_a03 )%stream(2) = 2097216 ! 00200040 F_smpbb_a03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_a03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_a03 , idomain ) = P_glysoa_sfc_a03 ELSE P_glysoa_sfc_a03 = chem_index_table( PARAM_glysoa_sfc_a03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_a03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_a03 ) = 'glysoa_sfc_a03' chem_desc_table( idomain, P_glysoa_sfc_a03 ) = 'glysoa_sfc, aerosol bin 03' chem_units_table( idomain, P_glysoa_sfc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_sfc_a03 )%stream(2) = 2097216 ! 00200040 F_glysoa_sfc_a03 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a03 , idomain ) = P_biog1_c_a03 ELSE P_biog1_c_a03 = chem_index_table( PARAM_biog1_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a03 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a03 ) = 'biog1_c_a03' chem_desc_table( idomain, P_biog1_c_a03 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_a03 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a03 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a03 , idomain ) = P_biog1_o_a03 ELSE P_biog1_o_a03 = chem_index_table( PARAM_biog1_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a03 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a03 ) = 'biog1_o_a03' chem_desc_table( idomain, P_biog1_o_a03 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_o_a03 )%stream(2) = 2097216 ! 00200040 F_biog1_o_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 ! 00200040 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 ! 00200040 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 ! 00200040 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 ! 00200040 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 ! 00200040 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 ! 00200040 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 ! 00200040 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 ! 00200040 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 ! 00200040 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 ! 00200040 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 ! 00200040 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 ! 00200040 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_smpa_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpa_a04 = chem_num_table(idomain) chem_index_table( PARAM_smpa_a04 , idomain ) = P_smpa_a04 ELSE P_smpa_a04 = chem_index_table( PARAM_smpa_a04 , idomain ) END IF chem_boundary_table( idomain, P_smpa_a04 ) = .TRUE. chem_dname_table( idomain, P_smpa_a04 ) = 'smpa_a04' chem_desc_table( idomain, P_smpa_a04 ) = 'smpa, aerosol bin 04' chem_units_table( idomain, P_smpa_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_smpa_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_smpa_a04 )%stream(2) = 2097216 ! 00200040 F_smpa_a04 = .TRUE. IF ( chem_index_table( PARAM_smpbb_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpbb_a04 = chem_num_table(idomain) chem_index_table( PARAM_smpbb_a04 , idomain ) = P_smpbb_a04 ELSE P_smpbb_a04 = chem_index_table( PARAM_smpbb_a04 , idomain ) END IF chem_boundary_table( idomain, P_smpbb_a04 ) = .TRUE. chem_dname_table( idomain, P_smpbb_a04 ) = 'smpbb_a04' chem_desc_table( idomain, P_smpbb_a04 ) = 'smpbb, aerosol bin 04' chem_units_table( idomain, P_smpbb_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_smpbb_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_smpbb_a04 )%stream(2) = 2097216 ! 00200040 F_smpbb_a04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_a04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_a04 , idomain ) = P_glysoa_sfc_a04 ELSE P_glysoa_sfc_a04 = chem_index_table( PARAM_glysoa_sfc_a04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_a04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_a04 ) = 'glysoa_sfc_a04' chem_desc_table( idomain, P_glysoa_sfc_a04 ) = 'glysoa_sfc, aerosol bin 04' chem_units_table( idomain, P_glysoa_sfc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_sfc_a04 )%stream(2) = 2097216 ! 00200040 F_glysoa_sfc_a04 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a04 , idomain ) = P_biog1_c_a04 ELSE P_biog1_c_a04 = chem_index_table( PARAM_biog1_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a04 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a04 ) = 'biog1_c_a04' chem_desc_table( idomain, P_biog1_c_a04 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_a04 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a04 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a04 , idomain ) = P_biog1_o_a04 ELSE P_biog1_o_a04 = chem_index_table( PARAM_biog1_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a04 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a04 ) = 'biog1_o_a04' chem_desc_table( idomain, P_biog1_o_a04 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_o_a04 )%stream(2) = 2097216 ! 00200040 F_biog1_o_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 ! 00200040 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 ! 00200040 F_co3_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 ! 00200040 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 ! 00200040 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 ! 00200040 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 ! 00200040 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 ! 00200040 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 ! 00200040 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 ! 00200040 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 ! 00200040 F_num_a04 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==202)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_o1d_cb4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o1d_cb4 = chem_num_table(idomain) chem_index_table( PARAM_o1d_cb4 , idomain ) = P_o1d_cb4 ELSE P_o1d_cb4 = chem_index_table( PARAM_o1d_cb4 , idomain ) END IF chem_boundary_table( idomain, P_o1d_cb4 ) = .TRUE. chem_dname_table( idomain, P_o1d_cb4 ) = 'o1d_cb4' chem_desc_table( idomain, P_o1d_cb4 ) = 'o1d_cb4 mixing ratio' chem_units_table( idomain, P_o1d_cb4 ) = 'ppmv' chem_streams_table( idomain, P_o1d_cb4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o1d_cb4 )%stream(2) = 2097216 ! 00200040 F_o1d_cb4 = .TRUE. IF ( chem_index_table( PARAM_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o = chem_num_table(idomain) chem_index_table( PARAM_o , idomain ) = P_o ELSE P_o = chem_index_table( PARAM_o , idomain ) END IF chem_boundary_table( idomain, P_o ) = .TRUE. chem_dname_table( idomain, P_o ) = 'o' chem_desc_table( idomain, P_o ) = 'o mixing ratio' chem_units_table( idomain, P_o ) = 'ppmv' chem_streams_table( idomain, P_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o )%stream(2) = 2097216 ! 00200040 F_o = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 ! 00200040 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 ! 00200040 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_hoch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2oo = chem_num_table(idomain) chem_index_table( PARAM_hoch2oo , idomain ) = P_hoch2oo ELSE P_hoch2oo = chem_index_table( PARAM_hoch2oo , idomain ) END IF chem_boundary_table( idomain, P_hoch2oo ) = .TRUE. chem_dname_table( idomain, P_hoch2oo ) = 'hoch2oo' chem_desc_table( idomain, P_hoch2oo ) = 'HOCH2OO mixing ratio' chem_units_table( idomain, P_hoch2oo ) = 'ppmv' chem_streams_table( idomain, P_hoch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoch2oo )%stream(2) = 2097216 ! 00200040 F_hoch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ooh = chem_num_table(idomain) chem_index_table( PARAM_ch3ooh , idomain ) = P_ch3ooh ELSE P_ch3ooh = chem_index_table( PARAM_ch3ooh , idomain ) END IF chem_boundary_table( idomain, P_ch3ooh ) = .TRUE. chem_dname_table( idomain, P_ch3ooh ) = 'ch3ooh' chem_desc_table( idomain, P_ch3ooh ) = 'CH3OOH mixing ratio' chem_units_table( idomain, P_ch3ooh ) = 'ppmv' chem_streams_table( idomain, P_ch3ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3ooh )%stream(2) = 2097216 ! 00200040 F_ch3ooh = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2 = chem_num_table(idomain) chem_index_table( PARAM_h2 , idomain ) = P_h2 ELSE P_h2 = chem_index_table( PARAM_h2 , idomain ) END IF chem_boundary_table( idomain, P_h2 ) = .TRUE. chem_dname_table( idomain, P_h2 ) = 'h2' chem_desc_table( idomain, P_h2 ) = 'H2 mixing ratio' chem_units_table( idomain, P_h2 ) = 'ppmv' chem_streams_table( idomain, P_h2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2 )%stream(2) = 2097216 ! 00200040 F_h2 = .TRUE. IF ( chem_index_table( PARAM_eo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eo2 = chem_num_table(idomain) chem_index_table( PARAM_eo2 , idomain ) = P_eo2 ELSE P_eo2 = chem_index_table( PARAM_eo2 , idomain ) END IF chem_boundary_table( idomain, P_eo2 ) = .TRUE. chem_dname_table( idomain, P_eo2 ) = 'eo2' chem_desc_table( idomain, P_eo2 ) = 'EO2 mixing ratio' chem_units_table( idomain, P_eo2 ) = 'ppmv' chem_streams_table( idomain, P_eo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eo2 )%stream(2) = 2097216 ! 00200040 F_eo2 = .TRUE. IF ( chem_index_table( PARAM_ch3cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cooh = chem_num_table(idomain) chem_index_table( PARAM_ch3cooh , idomain ) = P_ch3cooh ELSE P_ch3cooh = chem_index_table( PARAM_ch3cooh , idomain ) END IF chem_boundary_table( idomain, P_ch3cooh ) = .TRUE. chem_dname_table( idomain, P_ch3cooh ) = 'ch3cooh' chem_desc_table( idomain, P_ch3cooh ) = '' chem_units_table( idomain, P_ch3cooh ) = '' chem_streams_table( idomain, P_ch3cooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3cooh )%stream(2) = 2097216 ! 00200040 F_ch3cooh = .TRUE. IF ( chem_index_table( PARAM_c2h4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h4 = chem_num_table(idomain) chem_index_table( PARAM_c2h4 , idomain ) = P_c2h4 ELSE P_c2h4 = chem_index_table( PARAM_c2h4 , idomain ) END IF chem_boundary_table( idomain, P_c2h4 ) = .TRUE. chem_dname_table( idomain, P_c2h4 ) = 'c2h4' chem_desc_table( idomain, P_c2h4 ) = '' chem_units_table( idomain, P_c2h4 ) = '' chem_streams_table( idomain, P_c2h4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h4 )%stream(2) = 2097216 ! 00200040 F_c2h4 = .TRUE. IF ( chem_index_table( PARAM_n2o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o = chem_num_table(idomain) chem_index_table( PARAM_n2o , idomain ) = P_n2o ELSE P_n2o = chem_index_table( PARAM_n2o , idomain ) END IF chem_boundary_table( idomain, P_n2o ) = .TRUE. chem_dname_table( idomain, P_n2o ) = 'n2o' chem_desc_table( idomain, P_n2o ) = 'N2O mixing ratio' chem_units_table( idomain, P_n2o ) = 'ppmv' chem_streams_table( idomain, P_n2o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o )%stream(2) = 2097216 ! 00200040 F_n2o = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 ! 00200040 F_acet = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_c3h6ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6ooh = chem_num_table(idomain) chem_index_table( PARAM_c3h6ooh , idomain ) = P_c3h6ooh ELSE P_c3h6ooh = chem_index_table( PARAM_c3h6ooh , idomain ) END IF chem_boundary_table( idomain, P_c3h6ooh ) = .TRUE. chem_dname_table( idomain, P_c3h6ooh ) = 'c3h6ooh' chem_desc_table( idomain, P_c3h6ooh ) = '' chem_units_table( idomain, P_c3h6ooh ) = '' chem_streams_table( idomain, P_c3h6ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6ooh )%stream(2) = 2097216 ! 00200040 F_c3h6ooh = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 ! 00200040 F_mpan = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 ! 00200040 F_macr = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 ! 00200040 F_mvk = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 ! 00200040 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_etooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etooh = chem_num_table(idomain) chem_index_table( PARAM_etooh , idomain ) = P_etooh ELSE P_etooh = chem_index_table( PARAM_etooh , idomain ) END IF chem_boundary_table( idomain, P_etooh ) = .TRUE. chem_dname_table( idomain, P_etooh ) = 'etooh' chem_desc_table( idomain, P_etooh ) = '' chem_units_table( idomain, P_etooh ) = '' chem_streams_table( idomain, P_etooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_etooh )%stream(2) = 2097216 ! 00200040 F_etooh = .TRUE. IF ( chem_index_table( PARAM_prooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prooh = chem_num_table(idomain) chem_index_table( PARAM_prooh , idomain ) = P_prooh ELSE P_prooh = chem_index_table( PARAM_prooh , idomain ) END IF chem_boundary_table( idomain, P_prooh ) = .TRUE. chem_dname_table( idomain, P_prooh ) = 'prooh' chem_desc_table( idomain, P_prooh ) = '' chem_units_table( idomain, P_prooh ) = '' chem_streams_table( idomain, P_prooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_prooh )%stream(2) = 2097216 ! 00200040 F_prooh = .TRUE. IF ( chem_index_table( PARAM_acetp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetp = chem_num_table(idomain) chem_index_table( PARAM_acetp , idomain ) = P_acetp ELSE P_acetp = chem_index_table( PARAM_acetp , idomain ) END IF chem_boundary_table( idomain, P_acetp ) = .TRUE. chem_dname_table( idomain, P_acetp ) = 'acetp' chem_desc_table( idomain, P_acetp ) = '' chem_units_table( idomain, P_acetp ) = '' chem_streams_table( idomain, P_acetp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acetp )%stream(2) = 2097216 ! 00200040 F_acetp = .TRUE. IF ( chem_index_table( PARAM_xooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xooh = chem_num_table(idomain) chem_index_table( PARAM_xooh , idomain ) = P_xooh ELSE P_xooh = chem_index_table( PARAM_xooh , idomain ) END IF chem_boundary_table( idomain, P_xooh ) = .TRUE. chem_dname_table( idomain, P_xooh ) = 'xooh' chem_desc_table( idomain, P_xooh ) = 'XOOH mixing ratio' chem_units_table( idomain, P_xooh ) = 'ppmv' chem_streams_table( idomain, P_xooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xooh )%stream(2) = 2097216 ! 00200040 F_xooh = .TRUE. IF ( chem_index_table( PARAM_onitr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onitr = chem_num_table(idomain) chem_index_table( PARAM_onitr , idomain ) = P_onitr ELSE P_onitr = chem_index_table( PARAM_onitr , idomain ) END IF chem_boundary_table( idomain, P_onitr ) = .TRUE. chem_dname_table( idomain, P_onitr ) = 'onitr' chem_desc_table( idomain, P_onitr ) = 'ONITR mixing ratio' chem_units_table( idomain, P_onitr ) = 'ppmv' chem_streams_table( idomain, P_onitr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onitr )%stream(2) = 2097216 ! 00200040 F_onitr = .TRUE. IF ( chem_index_table( PARAM_isooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isooh = chem_num_table(idomain) chem_index_table( PARAM_isooh , idomain ) = P_isooh ELSE P_isooh = chem_index_table( PARAM_isooh , idomain ) END IF chem_boundary_table( idomain, P_isooh ) = .TRUE. chem_dname_table( idomain, P_isooh ) = 'isooh' chem_desc_table( idomain, P_isooh ) = '' chem_units_table( idomain, P_isooh ) = '' chem_streams_table( idomain, P_isooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isooh )%stream(2) = 2097216 ! 00200040 F_isooh = .TRUE. IF ( chem_index_table( PARAM_acetol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetol = chem_num_table(idomain) chem_index_table( PARAM_acetol , idomain ) = P_acetol ELSE P_acetol = chem_index_table( PARAM_acetol , idomain ) END IF chem_boundary_table( idomain, P_acetol ) = .TRUE. chem_dname_table( idomain, P_acetol ) = 'acetol' chem_desc_table( idomain, P_acetol ) = '' chem_units_table( idomain, P_acetol ) = '' chem_streams_table( idomain, P_acetol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acetol )%stream(2) = 2097216 ! 00200040 F_acetol = .TRUE. IF ( chem_index_table( PARAM_glyald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glyald = chem_num_table(idomain) chem_index_table( PARAM_glyald , idomain ) = P_glyald ELSE P_glyald = chem_index_table( PARAM_glyald , idomain ) END IF chem_boundary_table( idomain, P_glyald ) = .TRUE. chem_dname_table( idomain, P_glyald ) = 'glyald' chem_desc_table( idomain, P_glyald ) = 'GLYALD mixing ratio' chem_units_table( idomain, P_glyald ) = 'ppmv' chem_streams_table( idomain, P_glyald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glyald )%stream(2) = 2097216 ! 00200040 F_glyald = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 ! 00200040 F_mek = .TRUE. IF ( chem_index_table( PARAM_eto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eto2 = chem_num_table(idomain) chem_index_table( PARAM_eto2 , idomain ) = P_eto2 ELSE P_eto2 = chem_index_table( PARAM_eto2 , idomain ) END IF chem_boundary_table( idomain, P_eto2 ) = .TRUE. chem_dname_table( idomain, P_eto2 ) = 'eto2' chem_desc_table( idomain, P_eto2 ) = '' chem_units_table( idomain, P_eto2 ) = '' chem_streams_table( idomain, P_eto2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eto2 )%stream(2) = 2097216 ! 00200040 F_eto2 = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_alkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alkooh = chem_num_table(idomain) chem_index_table( PARAM_alkooh , idomain ) = P_alkooh ELSE P_alkooh = chem_index_table( PARAM_alkooh , idomain ) END IF chem_boundary_table( idomain, P_alkooh ) = .TRUE. chem_dname_table( idomain, P_alkooh ) = 'alkooh' chem_desc_table( idomain, P_alkooh ) = 'ALKOOH mixing ratio' chem_units_table( idomain, P_alkooh ) = 'ppmv' chem_streams_table( idomain, P_alkooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alkooh )%stream(2) = 2097216 ! 00200040 F_alkooh = .TRUE. IF ( chem_index_table( PARAM_mekooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mekooh = chem_num_table(idomain) chem_index_table( PARAM_mekooh , idomain ) = P_mekooh ELSE P_mekooh = chem_index_table( PARAM_mekooh , idomain ) END IF chem_boundary_table( idomain, P_mekooh ) = .TRUE. chem_dname_table( idomain, P_mekooh ) = 'mekooh' chem_desc_table( idomain, P_mekooh ) = '' chem_units_table( idomain, P_mekooh ) = '' chem_streams_table( idomain, P_mekooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mekooh )%stream(2) = 2097216 ! 00200040 F_mekooh = .TRUE. IF ( chem_index_table( PARAM_tolooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tolooh = chem_num_table(idomain) chem_index_table( PARAM_tolooh , idomain ) = P_tolooh ELSE P_tolooh = chem_index_table( PARAM_tolooh , idomain ) END IF chem_boundary_table( idomain, P_tolooh ) = .TRUE. chem_dname_table( idomain, P_tolooh ) = 'tolooh' chem_desc_table( idomain, P_tolooh ) = 'TOLOOH mixing ratio' chem_units_table( idomain, P_tolooh ) = 'ppmv' chem_streams_table( idomain, P_tolooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tolooh )%stream(2) = 2097216 ! 00200040 F_tolooh = .TRUE. IF ( chem_index_table( PARAM_terpooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpooh = chem_num_table(idomain) chem_index_table( PARAM_terpooh , idomain ) = P_terpooh ELSE P_terpooh = chem_index_table( PARAM_terpooh , idomain ) END IF chem_boundary_table( idomain, P_terpooh ) = .TRUE. chem_dname_table( idomain, P_terpooh ) = 'terpooh' chem_desc_table( idomain, P_terpooh ) = 'TERPOOH mixing ratio' chem_units_table( idomain, P_terpooh ) = 'ppmv' chem_streams_table( idomain, P_terpooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terpooh )%stream(2) = 2097216 ! 00200040 F_terpooh = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_mco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mco3 = chem_num_table(idomain) chem_index_table( PARAM_mco3 , idomain ) = P_mco3 ELSE P_mco3 = chem_index_table( PARAM_mco3 , idomain ) END IF chem_boundary_table( idomain, P_mco3 ) = .TRUE. chem_dname_table( idomain, P_mco3 ) = 'mco3' chem_desc_table( idomain, P_mco3 ) = 'MCO3 mixing ratio' chem_units_table( idomain, P_mco3 ) = 'ppmv' chem_streams_table( idomain, P_mco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mco3 )%stream(2) = 2097216 ! 00200040 F_mco3 = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_eo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eo = chem_num_table(idomain) chem_index_table( PARAM_eo , idomain ) = P_eo ELSE P_eo = chem_index_table( PARAM_eo , idomain ) END IF chem_boundary_table( idomain, P_eo ) = .TRUE. chem_dname_table( idomain, P_eo ) = 'eo' chem_desc_table( idomain, P_eo ) = 'EO mixing ratio' chem_units_table( idomain, P_eo ) = 'ppmv' chem_streams_table( idomain, P_eo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eo )%stream(2) = 2097216 ! 00200040 F_eo = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 ! 00200040 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 ! 00200040 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_pro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pro2 = chem_num_table(idomain) chem_index_table( PARAM_pro2 , idomain ) = P_pro2 ELSE P_pro2 = chem_index_table( PARAM_pro2 , idomain ) END IF chem_boundary_table( idomain, P_pro2 ) = .TRUE. chem_dname_table( idomain, P_pro2 ) = 'pro2' chem_desc_table( idomain, P_pro2 ) = '' chem_units_table( idomain, P_pro2 ) = '' chem_streams_table( idomain, P_pro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pro2 )%stream(2) = 2097216 ! 00200040 F_pro2 = .TRUE. IF ( chem_index_table( PARAM_po2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_po2 = chem_num_table(idomain) chem_index_table( PARAM_po2 , idomain ) = P_po2 ELSE P_po2 = chem_index_table( PARAM_po2 , idomain ) END IF chem_boundary_table( idomain, P_po2 ) = .TRUE. chem_dname_table( idomain, P_po2 ) = 'po2' chem_desc_table( idomain, P_po2 ) = 'PO2 mixing ratio' chem_units_table( idomain, P_po2 ) = 'ppmv' chem_streams_table( idomain, P_po2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_po2 )%stream(2) = 2097216 ! 00200040 F_po2 = .TRUE. IF ( chem_index_table( PARAM_aceto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aceto2 = chem_num_table(idomain) chem_index_table( PARAM_aceto2 , idomain ) = P_aceto2 ELSE P_aceto2 = chem_index_table( PARAM_aceto2 , idomain ) END IF chem_boundary_table( idomain, P_aceto2 ) = .TRUE. chem_dname_table( idomain, P_aceto2 ) = 'aceto2' chem_desc_table( idomain, P_aceto2 ) = '' chem_units_table( idomain, P_aceto2 ) = '' chem_streams_table( idomain, P_aceto2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aceto2 )%stream(2) = 2097216 ! 00200040 F_aceto2 = .TRUE. IF ( chem_index_table( PARAM_bigene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigene = chem_num_table(idomain) chem_index_table( PARAM_bigene , idomain ) = P_bigene ELSE P_bigene = chem_index_table( PARAM_bigene , idomain ) END IF chem_boundary_table( idomain, P_bigene ) = .TRUE. chem_dname_table( idomain, P_bigene ) = 'bigene' chem_desc_table( idomain, P_bigene ) = 'BIGENE mixing ratio' chem_units_table( idomain, P_bigene ) = 'ppmv' chem_streams_table( idomain, P_bigene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bigene )%stream(2) = 2097216 ! 00200040 F_bigene = .TRUE. IF ( chem_index_table( PARAM_bigalk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigalk = chem_num_table(idomain) chem_index_table( PARAM_bigalk , idomain ) = P_bigalk ELSE P_bigalk = chem_index_table( PARAM_bigalk , idomain ) END IF chem_boundary_table( idomain, P_bigalk ) = .TRUE. chem_dname_table( idomain, P_bigalk ) = 'bigalk' chem_desc_table( idomain, P_bigalk ) = 'BIGALK mixing ratio' chem_units_table( idomain, P_bigalk ) = 'ppmv' chem_streams_table( idomain, P_bigalk )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bigalk )%stream(2) = 2097216 ! 00200040 F_bigalk = .TRUE. IF ( chem_index_table( PARAM_eneo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eneo2 = chem_num_table(idomain) chem_index_table( PARAM_eneo2 , idomain ) = P_eneo2 ELSE P_eneo2 = chem_index_table( PARAM_eneo2 , idomain ) END IF chem_boundary_table( idomain, P_eneo2 ) = .TRUE. chem_dname_table( idomain, P_eneo2 ) = 'eneo2' chem_desc_table( idomain, P_eneo2 ) = 'ENEO2 mixing ratio' chem_units_table( idomain, P_eneo2 ) = 'ppmv' chem_streams_table( idomain, P_eneo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eneo2 )%stream(2) = 2097216 ! 00200040 F_eneo2 = .TRUE. IF ( chem_index_table( PARAM_alko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alko2 = chem_num_table(idomain) chem_index_table( PARAM_alko2 , idomain ) = P_alko2 ELSE P_alko2 = chem_index_table( PARAM_alko2 , idomain ) END IF chem_boundary_table( idomain, P_alko2 ) = .TRUE. chem_dname_table( idomain, P_alko2 ) = 'alko2' chem_desc_table( idomain, P_alko2 ) = 'ALKO2 mixing ratio' chem_units_table( idomain, P_alko2 ) = 'ppmv' chem_streams_table( idomain, P_alko2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alko2 )%stream(2) = 2097216 ! 00200040 F_alko2 = .TRUE. IF ( chem_index_table( PARAM_isopr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopr = chem_num_table(idomain) chem_index_table( PARAM_isopr , idomain ) = P_isopr ELSE P_isopr = chem_index_table( PARAM_isopr , idomain ) END IF chem_boundary_table( idomain, P_isopr ) = .TRUE. chem_dname_table( idomain, P_isopr ) = 'isopr' chem_desc_table( idomain, P_isopr ) = 'isoprene' chem_units_table( idomain, P_isopr ) = '' chem_streams_table( idomain, P_isopr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopr )%stream(2) = 2097216 ! 00200040 F_isopr = .TRUE. IF ( chem_index_table( PARAM_iso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso2 = chem_num_table(idomain) chem_index_table( PARAM_iso2 , idomain ) = P_iso2 ELSE P_iso2 = chem_index_table( PARAM_iso2 , idomain ) END IF chem_boundary_table( idomain, P_iso2 ) = .TRUE. chem_dname_table( idomain, P_iso2 ) = 'iso2' chem_desc_table( idomain, P_iso2 ) = '' chem_units_table( idomain, P_iso2 ) = '' chem_streams_table( idomain, P_iso2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso2 )%stream(2) = 2097216 ! 00200040 F_iso2 = .TRUE. IF ( chem_index_table( PARAM_mvko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvko2 = chem_num_table(idomain) chem_index_table( PARAM_mvko2 , idomain ) = P_mvko2 ELSE P_mvko2 = chem_index_table( PARAM_mvko2 , idomain ) END IF chem_boundary_table( idomain, P_mvko2 ) = .TRUE. chem_dname_table( idomain, P_mvko2 ) = 'mvko2' chem_desc_table( idomain, P_mvko2 ) = '' chem_units_table( idomain, P_mvko2 ) = '' chem_streams_table( idomain, P_mvko2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvko2 )%stream(2) = 2097216 ! 00200040 F_mvko2 = .TRUE. IF ( chem_index_table( PARAM_mvkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvkooh = chem_num_table(idomain) chem_index_table( PARAM_mvkooh , idomain ) = P_mvkooh ELSE P_mvkooh = chem_index_table( PARAM_mvkooh , idomain ) END IF chem_boundary_table( idomain, P_mvkooh ) = .TRUE. chem_dname_table( idomain, P_mvkooh ) = 'mvkooh' chem_desc_table( idomain, P_mvkooh ) = '' chem_units_table( idomain, P_mvkooh ) = '' chem_streams_table( idomain, P_mvkooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvkooh )%stream(2) = 2097216 ! 00200040 F_mvkooh = .TRUE. IF ( chem_index_table( PARAM_hydrald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hydrald = chem_num_table(idomain) chem_index_table( PARAM_hydrald , idomain ) = P_hydrald ELSE P_hydrald = chem_index_table( PARAM_hydrald , idomain ) END IF chem_boundary_table( idomain, P_hydrald ) = .TRUE. chem_dname_table( idomain, P_hydrald ) = 'hydrald' chem_desc_table( idomain, P_hydrald ) = 'HYDRALD mixing ratio' chem_units_table( idomain, P_hydrald ) = 'ppmv' chem_streams_table( idomain, P_hydrald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hydrald )%stream(2) = 2097216 ! 00200040 F_hydrald = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_apin , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apin = chem_num_table(idomain) chem_index_table( PARAM_apin , idomain ) = P_apin ELSE P_apin = chem_index_table( PARAM_apin , idomain ) END IF chem_boundary_table( idomain, P_apin ) = .TRUE. chem_dname_table( idomain, P_apin ) = 'apin' chem_desc_table( idomain, P_apin ) = 'APIN mixing ratio' chem_units_table( idomain, P_apin ) = 'ppmv' chem_streams_table( idomain, P_apin )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_apin )%stream(2) = 2097216 ! 00200040 F_apin = .TRUE. IF ( chem_index_table( PARAM_bpin , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpin = chem_num_table(idomain) chem_index_table( PARAM_bpin , idomain ) = P_bpin ELSE P_bpin = chem_index_table( PARAM_bpin , idomain ) END IF chem_boundary_table( idomain, P_bpin ) = .TRUE. chem_dname_table( idomain, P_bpin ) = 'bpin' chem_desc_table( idomain, P_bpin ) = 'BPIN mixing ratio' chem_units_table( idomain, P_bpin ) = 'ppmv' chem_streams_table( idomain, P_bpin )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpin )%stream(2) = 2097216 ! 00200040 F_bpin = .TRUE. IF ( chem_index_table( PARAM_limon , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_limon = chem_num_table(idomain) chem_index_table( PARAM_limon , idomain ) = P_limon ELSE P_limon = chem_index_table( PARAM_limon , idomain ) END IF chem_boundary_table( idomain, P_limon ) = .TRUE. chem_dname_table( idomain, P_limon ) = 'limon' chem_desc_table( idomain, P_limon ) = 'LIMON mixing ratio' chem_units_table( idomain, P_limon ) = 'ppmv' chem_streams_table( idomain, P_limon )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_limon )%stream(2) = 2097216 ! 00200040 F_limon = .TRUE. IF ( chem_index_table( PARAM_myrc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_myrc = chem_num_table(idomain) chem_index_table( PARAM_myrc , idomain ) = P_myrc ELSE P_myrc = chem_index_table( PARAM_myrc , idomain ) END IF chem_boundary_table( idomain, P_myrc ) = .TRUE. chem_dname_table( idomain, P_myrc ) = 'myrc' chem_desc_table( idomain, P_myrc ) = 'MYRC mixing ratio' chem_units_table( idomain, P_myrc ) = 'ppmv' chem_streams_table( idomain, P_myrc )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_myrc )%stream(2) = 2097216 ! 00200040 F_myrc = .TRUE. IF ( chem_index_table( PARAM_bcary , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bcary = chem_num_table(idomain) chem_index_table( PARAM_bcary , idomain ) = P_bcary ELSE P_bcary = chem_index_table( PARAM_bcary , idomain ) END IF chem_boundary_table( idomain, P_bcary ) = .TRUE. chem_dname_table( idomain, P_bcary ) = 'bcary' chem_desc_table( idomain, P_bcary ) = 'BCARY C15H24 mixing ratio' chem_units_table( idomain, P_bcary ) = 'ppmv' chem_streams_table( idomain, P_bcary )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bcary )%stream(2) = 2097216 ! 00200040 F_bcary = .TRUE. IF ( chem_index_table( PARAM_terprod1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terprod1 = chem_num_table(idomain) chem_index_table( PARAM_terprod1 , idomain ) = P_terprod1 ELSE P_terprod1 = chem_index_table( PARAM_terprod1 , idomain ) END IF chem_boundary_table( idomain, P_terprod1 ) = .TRUE. chem_dname_table( idomain, P_terprod1 ) = 'terprod1' chem_desc_table( idomain, P_terprod1 ) = 'TERPROD1 -> C10H16O2 mixing ratio' chem_units_table( idomain, P_terprod1 ) = 'ppmv' chem_streams_table( idomain, P_terprod1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terprod1 )%stream(2) = 2097216 ! 00200040 F_terprod1 = .TRUE. IF ( chem_index_table( PARAM_terprod2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terprod2 = chem_num_table(idomain) chem_index_table( PARAM_terprod2 , idomain ) = P_terprod2 ELSE P_terprod2 = chem_index_table( PARAM_terprod2 , idomain ) END IF chem_boundary_table( idomain, P_terprod2 ) = .TRUE. chem_dname_table( idomain, P_terprod2 ) = 'terprod2' chem_desc_table( idomain, P_terprod2 ) = 'TERPROD2 -> C9H14O2 mixing ratio' chem_units_table( idomain, P_terprod2 ) = 'ppmv' chem_streams_table( idomain, P_terprod2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terprod2 )%stream(2) = 2097216 ! 00200040 F_terprod2 = .TRUE. IF ( chem_index_table( PARAM_terp2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp2o2 = chem_num_table(idomain) chem_index_table( PARAM_terp2o2 , idomain ) = P_terp2o2 ELSE P_terp2o2 = chem_index_table( PARAM_terp2o2 , idomain ) END IF chem_boundary_table( idomain, P_terp2o2 ) = .TRUE. chem_dname_table( idomain, P_terp2o2 ) = 'terp2o2' chem_desc_table( idomain, P_terp2o2 ) = 'TERP2O2 -> C10H15O4 mixing ratio' chem_units_table( idomain, P_terp2o2 ) = 'ppmv' chem_streams_table( idomain, P_terp2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terp2o2 )%stream(2) = 2097216 ! 00200040 F_terp2o2 = .TRUE. IF ( chem_index_table( PARAM_terp2ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp2ooh = chem_num_table(idomain) chem_index_table( PARAM_terp2ooh , idomain ) = P_terp2ooh ELSE P_terp2ooh = chem_index_table( PARAM_terp2ooh , idomain ) END IF chem_boundary_table( idomain, P_terp2ooh ) = .TRUE. chem_dname_table( idomain, P_terp2ooh ) = 'terp2ooh' chem_desc_table( idomain, P_terp2ooh ) = 'TERP2OOH -> C10H16O4 mixing ratio' chem_units_table( idomain, P_terp2ooh ) = 'ppmv' chem_streams_table( idomain, P_terp2ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terp2ooh )%stream(2) = 2097216 ! 00200040 F_terp2ooh = .TRUE. IF ( chem_index_table( PARAM_nterpo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nterpo2 = chem_num_table(idomain) chem_index_table( PARAM_nterpo2 , idomain ) = P_nterpo2 ELSE P_nterpo2 = chem_index_table( PARAM_nterpo2 , idomain ) END IF chem_boundary_table( idomain, P_nterpo2 ) = .TRUE. chem_dname_table( idomain, P_nterpo2 ) = 'nterpo2' chem_desc_table( idomain, P_nterpo2 ) = 'NTERPO2 -> C10H16NO5 mixing ratio' chem_units_table( idomain, P_nterpo2 ) = 'ppmv' chem_streams_table( idomain, P_nterpo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nterpo2 )%stream(2) = 2097216 ! 00200040 F_nterpo2 = .TRUE. IF ( chem_index_table( PARAM_terpo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpo2 = chem_num_table(idomain) chem_index_table( PARAM_terpo2 , idomain ) = P_terpo2 ELSE P_terpo2 = chem_index_table( PARAM_terpo2 , idomain ) END IF chem_boundary_table( idomain, P_terpo2 ) = .TRUE. chem_dname_table( idomain, P_terpo2 ) = 'terpo2' chem_desc_table( idomain, P_terpo2 ) = 'TERPO2 mixing ratio' chem_units_table( idomain, P_terpo2 ) = 'ppmv' chem_streams_table( idomain, P_terpo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terpo2 )%stream(2) = 2097216 ! 00200040 F_terpo2 = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 ! 00200040 F_cres = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 ! 00200040 F_dms = .TRUE. IF ( chem_index_table( PARAM_mbo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mbo = chem_num_table(idomain) chem_index_table( PARAM_mbo , idomain ) = P_mbo ELSE P_mbo = chem_index_table( PARAM_mbo , idomain ) END IF chem_boundary_table( idomain, P_mbo ) = .TRUE. chem_dname_table( idomain, P_mbo ) = 'mbo' chem_desc_table( idomain, P_mbo ) = 'MBO (2-Methyl-3-Buten-2-ol) mixing ratio' chem_units_table( idomain, P_mbo ) = 'ppmv' chem_streams_table( idomain, P_mbo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mbo )%stream(2) = 2097216 ! 00200040 F_mbo = .TRUE. IF ( chem_index_table( PARAM_mboo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mboo2 = chem_num_table(idomain) chem_index_table( PARAM_mboo2 , idomain ) = P_mboo2 ELSE P_mboo2 = chem_index_table( PARAM_mboo2 , idomain ) END IF chem_boundary_table( idomain, P_mboo2 ) = .TRUE. chem_dname_table( idomain, P_mboo2 ) = 'mboo2' chem_desc_table( idomain, P_mboo2 ) = 'MBOO2 concentration' chem_units_table( idomain, P_mboo2 ) = 'ppmv' chem_streams_table( idomain, P_mboo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mboo2 )%stream(2) = 2097216 ! 00200040 F_mboo2 = .TRUE. IF ( chem_index_table( PARAM_hmprop , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hmprop = chem_num_table(idomain) chem_index_table( PARAM_hmprop , idomain ) = P_hmprop ELSE P_hmprop = chem_index_table( PARAM_hmprop , idomain ) END IF chem_boundary_table( idomain, P_hmprop ) = .TRUE. chem_dname_table( idomain, P_hmprop ) = 'hmprop' chem_desc_table( idomain, P_hmprop ) = 'HMPROP concentration' chem_units_table( idomain, P_hmprop ) = 'ppmv' chem_streams_table( idomain, P_hmprop )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hmprop )%stream(2) = 2097216 ! 00200040 F_hmprop = .TRUE. IF ( chem_index_table( PARAM_hmpropo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hmpropo2 = chem_num_table(idomain) chem_index_table( PARAM_hmpropo2 , idomain ) = P_hmpropo2 ELSE P_hmpropo2 = chem_index_table( PARAM_hmpropo2 , idomain ) END IF chem_boundary_table( idomain, P_hmpropo2 ) = .TRUE. chem_dname_table( idomain, P_hmpropo2 ) = 'hmpropo2' chem_desc_table( idomain, P_hmpropo2 ) = 'HMPROPO2 concentration' chem_units_table( idomain, P_hmpropo2 ) = 'ppmv' chem_streams_table( idomain, P_hmpropo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hmpropo2 )%stream(2) = 2097216 ! 00200040 F_hmpropo2 = .TRUE. IF ( chem_index_table( PARAM_mboooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mboooh = chem_num_table(idomain) chem_index_table( PARAM_mboooh , idomain ) = P_mboooh ELSE P_mboooh = chem_index_table( PARAM_mboooh , idomain ) END IF chem_boundary_table( idomain, P_mboooh ) = .TRUE. chem_dname_table( idomain, P_mboooh ) = 'mboooh' chem_desc_table( idomain, P_mboooh ) = 'MBOOOH concentration' chem_units_table( idomain, P_mboooh ) = 'ppmv' chem_streams_table( idomain, P_mboooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mboooh )%stream(2) = 2097216 ! 00200040 F_mboooh = .TRUE. IF ( chem_index_table( PARAM_mbono3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mbono3o2 = chem_num_table(idomain) chem_index_table( PARAM_mbono3o2 , idomain ) = P_mbono3o2 ELSE P_mbono3o2 = chem_index_table( PARAM_mbono3o2 , idomain ) END IF chem_boundary_table( idomain, P_mbono3o2 ) = .TRUE. chem_dname_table( idomain, P_mbono3o2 ) = 'mbono3o2' chem_desc_table( idomain, P_mbono3o2 ) = 'MBONO3O2 concentration' chem_units_table( idomain, P_mbono3o2 ) = 'ppmv' chem_streams_table( idomain, P_mbono3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mbono3o2 )%stream(2) = 2097216 ! 00200040 F_mbono3o2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_nume , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nume = chem_num_table(idomain) chem_index_table( PARAM_nume , idomain ) = P_nume ELSE P_nume = chem_index_table( PARAM_nume , idomain ) END IF chem_boundary_table( idomain, P_nume ) = .TRUE. chem_dname_table( idomain, P_nume ) = 'nume' chem_desc_table( idomain, P_nume ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_nume ) = 'ppmv' chem_streams_table( idomain, P_nume )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nume )%stream(2) = 2097216 ! 00200040 F_nume = .TRUE. IF ( chem_index_table( PARAM_den , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_den = chem_num_table(idomain) chem_index_table( PARAM_den , idomain ) = P_den ELSE P_den = chem_index_table( PARAM_den , idomain ) END IF chem_boundary_table( idomain, P_den ) = .TRUE. chem_dname_table( idomain, P_den ) = 'den' chem_desc_table( idomain, P_den ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_den ) = 'ppmv' chem_streams_table( idomain, P_den )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_den )%stream(2) = 2097216 ! 00200040 F_den = .TRUE. IF ( chem_index_table( PARAM_cvasoax , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoax = chem_num_table(idomain) chem_index_table( PARAM_cvasoax , idomain ) = P_cvasoax ELSE P_cvasoax = chem_index_table( PARAM_cvasoax , idomain ) END IF chem_boundary_table( idomain, P_cvasoax ) = .TRUE. chem_dname_table( idomain, P_cvasoax ) = 'cvasoaX' chem_desc_table( idomain, P_cvasoax ) = 'cond.vapor from ASOAX' chem_units_table( idomain, P_cvasoax ) = 'ppmv' chem_streams_table( idomain, P_cvasoax )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoax )%stream(2) = 2097216 ! 00200040 F_cvasoax = .TRUE. IF ( chem_index_table( PARAM_cvasoa1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa1 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa1 , idomain ) = P_cvasoa1 ELSE P_cvasoa1 = chem_index_table( PARAM_cvasoa1 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa1 ) = .TRUE. chem_dname_table( idomain, P_cvasoa1 ) = 'cvasoa1' chem_desc_table( idomain, P_cvasoa1 ) = 'cond.vapor from ASOA1' chem_units_table( idomain, P_cvasoa1 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoa1 )%stream(2) = 2097216 ! 00200040 F_cvasoa1 = .TRUE. IF ( chem_index_table( PARAM_cvasoa2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa2 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa2 , idomain ) = P_cvasoa2 ELSE P_cvasoa2 = chem_index_table( PARAM_cvasoa2 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa2 ) = .TRUE. chem_dname_table( idomain, P_cvasoa2 ) = 'cvasoa2' chem_desc_table( idomain, P_cvasoa2 ) = 'cond.vapor from ASOA2' chem_units_table( idomain, P_cvasoa2 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoa2 )%stream(2) = 2097216 ! 00200040 F_cvasoa2 = .TRUE. IF ( chem_index_table( PARAM_cvasoa3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa3 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa3 , idomain ) = P_cvasoa3 ELSE P_cvasoa3 = chem_index_table( PARAM_cvasoa3 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa3 ) = .TRUE. chem_dname_table( idomain, P_cvasoa3 ) = 'cvasoa3' chem_desc_table( idomain, P_cvasoa3 ) = 'cond.vapor from ASOA3' chem_units_table( idomain, P_cvasoa3 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoa3 )%stream(2) = 2097216 ! 00200040 F_cvasoa3 = .TRUE. IF ( chem_index_table( PARAM_cvasoa4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa4 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa4 , idomain ) = P_cvasoa4 ELSE P_cvasoa4 = chem_index_table( PARAM_cvasoa4 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa4 ) = .TRUE. chem_dname_table( idomain, P_cvasoa4 ) = 'cvasoa4' chem_desc_table( idomain, P_cvasoa4 ) = 'cond.vapor from ASOA4' chem_units_table( idomain, P_cvasoa4 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvasoa4 )%stream(2) = 2097216 ! 00200040 F_cvasoa4 = .TRUE. IF ( chem_index_table( PARAM_cvbsoax , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoax = chem_num_table(idomain) chem_index_table( PARAM_cvbsoax , idomain ) = P_cvbsoax ELSE P_cvbsoax = chem_index_table( PARAM_cvbsoax , idomain ) END IF chem_boundary_table( idomain, P_cvbsoax ) = .TRUE. chem_dname_table( idomain, P_cvbsoax ) = 'cvbsoaX' chem_desc_table( idomain, P_cvbsoax ) = 'cond.vapor from BSOAX' chem_units_table( idomain, P_cvbsoax ) = 'ppmv' chem_streams_table( idomain, P_cvbsoax )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoax )%stream(2) = 2097216 ! 00200040 F_cvbsoax = .TRUE. IF ( chem_index_table( PARAM_cvbsoa1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa1 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa1 , idomain ) = P_cvbsoa1 ELSE P_cvbsoa1 = chem_index_table( PARAM_cvbsoa1 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa1 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa1 ) = 'cvbsoa1' chem_desc_table( idomain, P_cvbsoa1 ) = 'cond.vapor from BSOA1' chem_units_table( idomain, P_cvbsoa1 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoa1 )%stream(2) = 2097216 ! 00200040 F_cvbsoa1 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa2 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa2 , idomain ) = P_cvbsoa2 ELSE P_cvbsoa2 = chem_index_table( PARAM_cvbsoa2 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa2 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa2 ) = 'cvbsoa2' chem_desc_table( idomain, P_cvbsoa2 ) = 'cond.vapor from BSOA2' chem_units_table( idomain, P_cvbsoa2 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoa2 )%stream(2) = 2097216 ! 00200040 F_cvbsoa2 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa3 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa3 , idomain ) = P_cvbsoa3 ELSE P_cvbsoa3 = chem_index_table( PARAM_cvbsoa3 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa3 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa3 ) = 'cvbsoa3' chem_desc_table( idomain, P_cvbsoa3 ) = 'cond.vapor from BSOA3' chem_units_table( idomain, P_cvbsoa3 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoa3 )%stream(2) = 2097216 ! 00200040 F_cvbsoa3 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa4 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa4 , idomain ) = P_cvbsoa4 ELSE P_cvbsoa4 = chem_index_table( PARAM_cvbsoa4 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa4 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa4 ) = 'cvbsoa4' chem_desc_table( idomain, P_cvbsoa4 ) = 'cond.vapor from BSOA4' chem_units_table( idomain, P_cvbsoa4 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cvbsoa4 )%stream(2) = 2097216 ! 00200040 F_cvbsoa4 = .TRUE. IF ( chem_index_table( PARAM_benzene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzene = chem_num_table(idomain) chem_index_table( PARAM_benzene , idomain ) = P_benzene ELSE P_benzene = chem_index_table( PARAM_benzene , idomain ) END IF chem_boundary_table( idomain, P_benzene ) = .TRUE. chem_dname_table( idomain, P_benzene ) = 'benzene' chem_desc_table( idomain, P_benzene ) = 'BENZENE concentration' chem_units_table( idomain, P_benzene ) = 'ppmv' chem_streams_table( idomain, P_benzene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_benzene )%stream(2) = 2097216 ! 00200040 F_benzene = .TRUE. IF ( chem_index_table( PARAM_phen , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phen = chem_num_table(idomain) chem_index_table( PARAM_phen , idomain ) = P_phen ELSE P_phen = chem_index_table( PARAM_phen , idomain ) END IF chem_boundary_table( idomain, P_phen ) = .TRUE. chem_dname_table( idomain, P_phen ) = 'phen' chem_desc_table( idomain, P_phen ) = 'PHEN mixing ratio' chem_units_table( idomain, P_phen ) = 'ppmv' chem_streams_table( idomain, P_phen )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_phen )%stream(2) = 2097216 ! 00200040 F_phen = .TRUE. IF ( chem_index_table( PARAM_bepomuc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bepomuc = chem_num_table(idomain) chem_index_table( PARAM_bepomuc , idomain ) = P_bepomuc ELSE P_bepomuc = chem_index_table( PARAM_bepomuc , idomain ) END IF chem_boundary_table( idomain, P_bepomuc ) = .TRUE. chem_dname_table( idomain, P_bepomuc ) = 'bepomuc' chem_desc_table( idomain, P_bepomuc ) = 'bepomuc mixing ratio' chem_units_table( idomain, P_bepomuc ) = 'ppmv' chem_streams_table( idomain, P_bepomuc )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bepomuc )%stream(2) = 2097216 ! 00200040 F_bepomuc = .TRUE. IF ( chem_index_table( PARAM_benzo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzo2 = chem_num_table(idomain) chem_index_table( PARAM_benzo2 , idomain ) = P_benzo2 ELSE P_benzo2 = chem_index_table( PARAM_benzo2 , idomain ) END IF chem_boundary_table( idomain, P_benzo2 ) = .TRUE. chem_dname_table( idomain, P_benzo2 ) = 'benzo2' chem_desc_table( idomain, P_benzo2 ) = 'benzo2 mixing ratio' chem_units_table( idomain, P_benzo2 ) = 'ppmv' chem_streams_table( idomain, P_benzo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_benzo2 )%stream(2) = 2097216 ! 00200040 F_benzo2 = .TRUE. IF ( chem_index_table( PARAM_pheno2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pheno2 = chem_num_table(idomain) chem_index_table( PARAM_pheno2 , idomain ) = P_pheno2 ELSE P_pheno2 = chem_index_table( PARAM_pheno2 , idomain ) END IF chem_boundary_table( idomain, P_pheno2 ) = .TRUE. chem_dname_table( idomain, P_pheno2 ) = 'pheno2' chem_desc_table( idomain, P_pheno2 ) = 'pheno2 mixing ratio' chem_units_table( idomain, P_pheno2 ) = 'ppmv' chem_streams_table( idomain, P_pheno2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pheno2 )%stream(2) = 2097216 ! 00200040 F_pheno2 = .TRUE. IF ( chem_index_table( PARAM_pheno , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pheno = chem_num_table(idomain) chem_index_table( PARAM_pheno , idomain ) = P_pheno ELSE P_pheno = chem_index_table( PARAM_pheno , idomain ) END IF chem_boundary_table( idomain, P_pheno ) = .TRUE. chem_dname_table( idomain, P_pheno ) = 'pheno' chem_desc_table( idomain, P_pheno ) = 'pheno mixing ratio' chem_units_table( idomain, P_pheno ) = 'ppmv' chem_streams_table( idomain, P_pheno )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pheno )%stream(2) = 2097216 ! 00200040 F_pheno = .TRUE. IF ( chem_index_table( PARAM_phenooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phenooh = chem_num_table(idomain) chem_index_table( PARAM_phenooh , idomain ) = P_phenooh ELSE P_phenooh = chem_index_table( PARAM_phenooh , idomain ) END IF chem_boundary_table( idomain, P_phenooh ) = .TRUE. chem_dname_table( idomain, P_phenooh ) = 'phenooh' chem_desc_table( idomain, P_phenooh ) = 'phenooh mixing ratio' chem_units_table( idomain, P_phenooh ) = 'ppmv' chem_streams_table( idomain, P_phenooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_phenooh )%stream(2) = 2097216 ! 00200040 F_phenooh = .TRUE. IF ( chem_index_table( PARAM_c6h5o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c6h5o2 = chem_num_table(idomain) chem_index_table( PARAM_c6h5o2 , idomain ) = P_c6h5o2 ELSE P_c6h5o2 = chem_index_table( PARAM_c6h5o2 , idomain ) END IF chem_boundary_table( idomain, P_c6h5o2 ) = .TRUE. chem_dname_table( idomain, P_c6h5o2 ) = 'c6h5o2' chem_desc_table( idomain, P_c6h5o2 ) = 'c6h5o2 mixing ratio' chem_units_table( idomain, P_c6h5o2 ) = 'ppmv' chem_streams_table( idomain, P_c6h5o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c6h5o2 )%stream(2) = 2097216 ! 00200040 F_c6h5o2 = .TRUE. IF ( chem_index_table( PARAM_c6h5ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c6h5ooh = chem_num_table(idomain) chem_index_table( PARAM_c6h5ooh , idomain ) = P_c6h5ooh ELSE P_c6h5ooh = chem_index_table( PARAM_c6h5ooh , idomain ) END IF chem_boundary_table( idomain, P_c6h5ooh ) = .TRUE. chem_dname_table( idomain, P_c6h5ooh ) = 'c6h5ooh' chem_desc_table( idomain, P_c6h5ooh ) = 'c6h5ooh mixing ratio' chem_units_table( idomain, P_c6h5ooh ) = 'ppmv' chem_streams_table( idomain, P_c6h5ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c6h5ooh )%stream(2) = 2097216 ! 00200040 F_c6h5ooh = .TRUE. IF ( chem_index_table( PARAM_benzooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzooh = chem_num_table(idomain) chem_index_table( PARAM_benzooh , idomain ) = P_benzooh ELSE P_benzooh = chem_index_table( PARAM_benzooh , idomain ) END IF chem_boundary_table( idomain, P_benzooh ) = .TRUE. chem_dname_table( idomain, P_benzooh ) = 'benzooh' chem_desc_table( idomain, P_benzooh ) = 'benzooh mixing ratio' chem_units_table( idomain, P_benzooh ) = 'ppmv' chem_streams_table( idomain, P_benzooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_benzooh )%stream(2) = 2097216 ! 00200040 F_benzooh = .TRUE. IF ( chem_index_table( PARAM_bigald1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigald1 = chem_num_table(idomain) chem_index_table( PARAM_bigald1 , idomain ) = P_bigald1 ELSE P_bigald1 = chem_index_table( PARAM_bigald1 , idomain ) END IF chem_boundary_table( idomain, P_bigald1 ) = .TRUE. chem_dname_table( idomain, P_bigald1 ) = 'bigald1' chem_desc_table( idomain, P_bigald1 ) = 'bigald1 mixing ratio' chem_units_table( idomain, P_bigald1 ) = 'ppmv' chem_streams_table( idomain, P_bigald1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bigald1 )%stream(2) = 2097216 ! 00200040 F_bigald1 = .TRUE. IF ( chem_index_table( PARAM_bigald2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigald2 = chem_num_table(idomain) chem_index_table( PARAM_bigald2 , idomain ) = P_bigald2 ELSE P_bigald2 = chem_index_table( PARAM_bigald2 , idomain ) END IF chem_boundary_table( idomain, P_bigald2 ) = .TRUE. chem_dname_table( idomain, P_bigald2 ) = 'bigald2' chem_desc_table( idomain, P_bigald2 ) = 'bigald2 mixing ratio' chem_units_table( idomain, P_bigald2 ) = 'ppmv' chem_streams_table( idomain, P_bigald2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bigald2 )%stream(2) = 2097216 ! 00200040 F_bigald2 = .TRUE. IF ( chem_index_table( PARAM_bigald3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigald3 = chem_num_table(idomain) chem_index_table( PARAM_bigald3 , idomain ) = P_bigald3 ELSE P_bigald3 = chem_index_table( PARAM_bigald3 , idomain ) END IF chem_boundary_table( idomain, P_bigald3 ) = .TRUE. chem_dname_table( idomain, P_bigald3 ) = 'bigald3' chem_desc_table( idomain, P_bigald3 ) = 'bigald3 mixing ratio' chem_units_table( idomain, P_bigald3 ) = 'ppmv' chem_streams_table( idomain, P_bigald3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bigald3 )%stream(2) = 2097216 ! 00200040 F_bigald3 = .TRUE. IF ( chem_index_table( PARAM_bigald4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigald4 = chem_num_table(idomain) chem_index_table( PARAM_bigald4 , idomain ) = P_bigald4 ELSE P_bigald4 = chem_index_table( PARAM_bigald4 , idomain ) END IF chem_boundary_table( idomain, P_bigald4 ) = .TRUE. chem_dname_table( idomain, P_bigald4 ) = 'bigald4' chem_desc_table( idomain, P_bigald4 ) = 'bigald4 mixing ratio' chem_units_table( idomain, P_bigald4 ) = 'ppmv' chem_streams_table( idomain, P_bigald4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bigald4 )%stream(2) = 2097216 ! 00200040 F_bigald4 = .TRUE. IF ( chem_index_table( PARAM_malo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_malo2 = chem_num_table(idomain) chem_index_table( PARAM_malo2 , idomain ) = P_malo2 ELSE P_malo2 = chem_index_table( PARAM_malo2 , idomain ) END IF chem_boundary_table( idomain, P_malo2 ) = .TRUE. chem_dname_table( idomain, P_malo2 ) = 'malo2' chem_desc_table( idomain, P_malo2 ) = 'malo2 mixing ratio' chem_units_table( idomain, P_malo2 ) = 'ppmv' chem_streams_table( idomain, P_malo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_malo2 )%stream(2) = 2097216 ! 00200040 F_malo2 = .TRUE. IF ( chem_index_table( PARAM_tepomuc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tepomuc = chem_num_table(idomain) chem_index_table( PARAM_tepomuc , idomain ) = P_tepomuc ELSE P_tepomuc = chem_index_table( PARAM_tepomuc , idomain ) END IF chem_boundary_table( idomain, P_tepomuc ) = .TRUE. chem_dname_table( idomain, P_tepomuc ) = 'tepomuc' chem_desc_table( idomain, P_tepomuc ) = 'tepomuc mixing ratio' chem_units_table( idomain, P_tepomuc ) = 'ppmv' chem_streams_table( idomain, P_tepomuc )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tepomuc )%stream(2) = 2097216 ! 00200040 F_tepomuc = .TRUE. IF ( chem_index_table( PARAM_bzoo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bzoo = chem_num_table(idomain) chem_index_table( PARAM_bzoo , idomain ) = P_bzoo ELSE P_bzoo = chem_index_table( PARAM_bzoo , idomain ) END IF chem_boundary_table( idomain, P_bzoo ) = .TRUE. chem_dname_table( idomain, P_bzoo ) = 'bzoo' chem_desc_table( idomain, P_bzoo ) = 'bzoo mixing ratio' chem_units_table( idomain, P_bzoo ) = 'ppmv' chem_streams_table( idomain, P_bzoo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bzoo )%stream(2) = 2097216 ! 00200040 F_bzoo = .TRUE. IF ( chem_index_table( PARAM_bzooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bzooh = chem_num_table(idomain) chem_index_table( PARAM_bzooh , idomain ) = P_bzooh ELSE P_bzooh = chem_index_table( PARAM_bzooh , idomain ) END IF chem_boundary_table( idomain, P_bzooh ) = .TRUE. chem_dname_table( idomain, P_bzooh ) = 'bzooh' chem_desc_table( idomain, P_bzooh ) = 'bzooh mixing ratio' chem_units_table( idomain, P_bzooh ) = 'ppmv' chem_streams_table( idomain, P_bzooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bzooh )%stream(2) = 2097216 ! 00200040 F_bzooh = .TRUE. IF ( chem_index_table( PARAM_bald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bald = chem_num_table(idomain) chem_index_table( PARAM_bald , idomain ) = P_bald ELSE P_bald = chem_index_table( PARAM_bald , idomain ) END IF chem_boundary_table( idomain, P_bald ) = .TRUE. chem_dname_table( idomain, P_bald ) = 'bald' chem_desc_table( idomain, P_bald ) = 'BALD mixing ratio' chem_units_table( idomain, P_bald ) = 'ppmv' chem_streams_table( idomain, P_bald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bald )%stream(2) = 2097216 ! 00200040 F_bald = .TRUE. IF ( chem_index_table( PARAM_acbzo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acbzo2 = chem_num_table(idomain) chem_index_table( PARAM_acbzo2 , idomain ) = P_acbzo2 ELSE P_acbzo2 = chem_index_table( PARAM_acbzo2 , idomain ) END IF chem_boundary_table( idomain, P_acbzo2 ) = .TRUE. chem_dname_table( idomain, P_acbzo2 ) = 'acbzo2' chem_desc_table( idomain, P_acbzo2 ) = 'acbzo2 mixing ratio' chem_units_table( idomain, P_acbzo2 ) = 'ppmv' chem_streams_table( idomain, P_acbzo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acbzo2 )%stream(2) = 2097216 ! 00200040 F_acbzo2 = .TRUE. IF ( chem_index_table( PARAM_dicarbo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dicarbo2 = chem_num_table(idomain) chem_index_table( PARAM_dicarbo2 , idomain ) = P_dicarbo2 ELSE P_dicarbo2 = chem_index_table( PARAM_dicarbo2 , idomain ) END IF chem_boundary_table( idomain, P_dicarbo2 ) = .TRUE. chem_dname_table( idomain, P_dicarbo2 ) = 'dicarbo2' chem_desc_table( idomain, P_dicarbo2 ) = 'dicarbo2 mixing ratio' chem_units_table( idomain, P_dicarbo2 ) = 'ppmv' chem_streams_table( idomain, P_dicarbo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dicarbo2 )%stream(2) = 2097216 ! 00200040 F_dicarbo2 = .TRUE. IF ( chem_index_table( PARAM_mdialo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mdialo2 = chem_num_table(idomain) chem_index_table( PARAM_mdialo2 , idomain ) = P_mdialo2 ELSE P_mdialo2 = chem_index_table( PARAM_mdialo2 , idomain ) END IF chem_boundary_table( idomain, P_mdialo2 ) = .TRUE. chem_dname_table( idomain, P_mdialo2 ) = 'mdialo2' chem_desc_table( idomain, P_mdialo2 ) = 'mdialo2 mixing ratio' chem_units_table( idomain, P_mdialo2 ) = 'ppmv' chem_streams_table( idomain, P_mdialo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mdialo2 )%stream(2) = 2097216 ! 00200040 F_mdialo2 = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_xylol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylol = chem_num_table(idomain) chem_index_table( PARAM_xylol , idomain ) = P_xylol ELSE P_xylol = chem_index_table( PARAM_xylol , idomain ) END IF chem_boundary_table( idomain, P_xylol ) = .TRUE. chem_dname_table( idomain, P_xylol ) = 'xylol' chem_desc_table( idomain, P_xylol ) = 'xylol mixing ratio' chem_units_table( idomain, P_xylol ) = 'ppmv' chem_streams_table( idomain, P_xylol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xylol )%stream(2) = 2097216 ! 00200040 F_xylol = .TRUE. IF ( chem_index_table( PARAM_xylolo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylolo2 = chem_num_table(idomain) chem_index_table( PARAM_xylolo2 , idomain ) = P_xylolo2 ELSE P_xylolo2 = chem_index_table( PARAM_xylolo2 , idomain ) END IF chem_boundary_table( idomain, P_xylolo2 ) = .TRUE. chem_dname_table( idomain, P_xylolo2 ) = 'xylolo2' chem_desc_table( idomain, P_xylolo2 ) = 'xylolo2 mixing ratio' chem_units_table( idomain, P_xylolo2 ) = 'ppmv' chem_streams_table( idomain, P_xylolo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xylolo2 )%stream(2) = 2097216 ! 00200040 F_xylolo2 = .TRUE. IF ( chem_index_table( PARAM_xylolooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylolooh = chem_num_table(idomain) chem_index_table( PARAM_xylolooh , idomain ) = P_xylolooh ELSE P_xylolooh = chem_index_table( PARAM_xylolooh , idomain ) END IF chem_boundary_table( idomain, P_xylolooh ) = .TRUE. chem_dname_table( idomain, P_xylolooh ) = 'xylolooh' chem_desc_table( idomain, P_xylolooh ) = 'xylolooh mixing ratio' chem_units_table( idomain, P_xylolooh ) = 'ppmv' chem_streams_table( idomain, P_xylolooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xylolooh )%stream(2) = 2097216 ! 00200040 F_xylolooh = .TRUE. IF ( chem_index_table( PARAM_xyleno2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyleno2 = chem_num_table(idomain) chem_index_table( PARAM_xyleno2 , idomain ) = P_xyleno2 ELSE P_xyleno2 = chem_index_table( PARAM_xyleno2 , idomain ) END IF chem_boundary_table( idomain, P_xyleno2 ) = .TRUE. chem_dname_table( idomain, P_xyleno2 ) = 'xyleno2' chem_desc_table( idomain, P_xyleno2 ) = 'xyleno2 mixing ratio' chem_units_table( idomain, P_xyleno2 ) = 'ppmv' chem_streams_table( idomain, P_xyleno2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyleno2 )%stream(2) = 2097216 ! 00200040 F_xyleno2 = .TRUE. IF ( chem_index_table( PARAM_xylenooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylenooh = chem_num_table(idomain) chem_index_table( PARAM_xylenooh , idomain ) = P_xylenooh ELSE P_xylenooh = chem_index_table( PARAM_xylenooh , idomain ) END IF chem_boundary_table( idomain, P_xylenooh ) = .TRUE. chem_dname_table( idomain, P_xylenooh ) = 'xylenooh' chem_desc_table( idomain, P_xylenooh ) = 'xylenooh mixing ratio' chem_units_table( idomain, P_xylenooh ) = 'ppmv' chem_streams_table( idomain, P_xylenooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xylenooh )%stream(2) = 2097216 ! 00200040 F_xylenooh = .TRUE. IF ( chem_index_table( PARAM_pbznit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pbznit = chem_num_table(idomain) chem_index_table( PARAM_pbznit , idomain ) = P_pbznit ELSE P_pbznit = chem_index_table( PARAM_pbznit , idomain ) END IF chem_boundary_table( idomain, P_pbznit ) = .TRUE. chem_dname_table( idomain, P_pbznit ) = 'pbznit' chem_desc_table( idomain, P_pbznit ) = 'pbznit mixing ratio' chem_units_table( idomain, P_pbznit ) = 'ppmv' chem_streams_table( idomain, P_pbznit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pbznit )%stream(2) = 2097216 ! 00200040 F_pbznit = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_meko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meko2 = chem_num_table(idomain) chem_index_table( PARAM_meko2 , idomain ) = P_meko2 ELSE P_meko2 = chem_index_table( PARAM_meko2 , idomain ) END IF chem_boundary_table( idomain, P_meko2 ) = .TRUE. chem_dname_table( idomain, P_meko2 ) = 'meko2' chem_desc_table( idomain, P_meko2 ) = '' chem_units_table( idomain, P_meko2 ) = '' chem_streams_table( idomain, P_meko2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_meko2 )%stream(2) = 2097216 ! 00200040 F_meko2 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 ! 00200040 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 ! 00200040 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_asoax_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoax_a01 = chem_num_table(idomain) chem_index_table( PARAM_asoax_a01 , idomain ) = P_asoax_a01 ELSE P_asoax_a01 = chem_index_table( PARAM_asoax_a01 , idomain ) END IF chem_boundary_table( idomain, P_asoax_a01 ) = .TRUE. chem_dname_table( idomain, P_asoax_a01 ) = 'asoaX_a01' chem_desc_table( idomain, P_asoax_a01 ) = 'SOA Anth. org. conc. with C* value=X ug/m^3 Bin 1' chem_units_table( idomain, P_asoax_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoax_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoax_a01 )%stream(2) = 2097216 ! 00200040 F_asoax_a01 = .TRUE. IF ( chem_index_table( PARAM_asoa1_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1_a01 = chem_num_table(idomain) chem_index_table( PARAM_asoa1_a01 , idomain ) = P_asoa1_a01 ELSE P_asoa1_a01 = chem_index_table( PARAM_asoa1_a01 , idomain ) END IF chem_boundary_table( idomain, P_asoa1_a01 ) = .TRUE. chem_dname_table( idomain, P_asoa1_a01 ) = 'asoa1_a01' chem_desc_table( idomain, P_asoa1_a01 ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Bin 1' chem_units_table( idomain, P_asoa1_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1_a01 )%stream(2) = 2097216 ! 00200040 F_asoa1_a01 = .TRUE. IF ( chem_index_table( PARAM_asoa2_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2_a01 = chem_num_table(idomain) chem_index_table( PARAM_asoa2_a01 , idomain ) = P_asoa2_a01 ELSE P_asoa2_a01 = chem_index_table( PARAM_asoa2_a01 , idomain ) END IF chem_boundary_table( idomain, P_asoa2_a01 ) = .TRUE. chem_dname_table( idomain, P_asoa2_a01 ) = 'asoa2_a01' chem_desc_table( idomain, P_asoa2_a01 ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Bin 1' chem_units_table( idomain, P_asoa2_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2_a01 )%stream(2) = 2097216 ! 00200040 F_asoa2_a01 = .TRUE. IF ( chem_index_table( PARAM_asoa3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3_a01 = chem_num_table(idomain) chem_index_table( PARAM_asoa3_a01 , idomain ) = P_asoa3_a01 ELSE P_asoa3_a01 = chem_index_table( PARAM_asoa3_a01 , idomain ) END IF chem_boundary_table( idomain, P_asoa3_a01 ) = .TRUE. chem_dname_table( idomain, P_asoa3_a01 ) = 'asoa3_a01' chem_desc_table( idomain, P_asoa3_a01 ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Bin 1' chem_units_table( idomain, P_asoa3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3_a01 )%stream(2) = 2097216 ! 00200040 F_asoa3_a01 = .TRUE. IF ( chem_index_table( PARAM_asoa4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4_a01 = chem_num_table(idomain) chem_index_table( PARAM_asoa4_a01 , idomain ) = P_asoa4_a01 ELSE P_asoa4_a01 = chem_index_table( PARAM_asoa4_a01 , idomain ) END IF chem_boundary_table( idomain, P_asoa4_a01 ) = .TRUE. chem_dname_table( idomain, P_asoa4_a01 ) = 'asoa4_a01' chem_desc_table( idomain, P_asoa4_a01 ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Bin 1' chem_units_table( idomain, P_asoa4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4_a01 )%stream(2) = 2097216 ! 00200040 F_asoa4_a01 = .TRUE. IF ( chem_index_table( PARAM_bsoax_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoax_a01 = chem_num_table(idomain) chem_index_table( PARAM_bsoax_a01 , idomain ) = P_bsoax_a01 ELSE P_bsoax_a01 = chem_index_table( PARAM_bsoax_a01 , idomain ) END IF chem_boundary_table( idomain, P_bsoax_a01 ) = .TRUE. chem_dname_table( idomain, P_bsoax_a01 ) = 'bsoaX_a01' chem_desc_table( idomain, P_bsoax_a01 ) = 'SOA Biog. org. conc. with C* value=X ug/m^3 Bin 1' chem_units_table( idomain, P_bsoax_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoax_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoax_a01 )%stream(2) = 2097216 ! 00200040 F_bsoax_a01 = .TRUE. IF ( chem_index_table( PARAM_bsoa1_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1_a01 = chem_num_table(idomain) chem_index_table( PARAM_bsoa1_a01 , idomain ) = P_bsoa1_a01 ELSE P_bsoa1_a01 = chem_index_table( PARAM_bsoa1_a01 , idomain ) END IF chem_boundary_table( idomain, P_bsoa1_a01 ) = .TRUE. chem_dname_table( idomain, P_bsoa1_a01 ) = 'bsoa1_a01' chem_desc_table( idomain, P_bsoa1_a01 ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Bin 1' chem_units_table( idomain, P_bsoa1_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1_a01 )%stream(2) = 2097216 ! 00200040 F_bsoa1_a01 = .TRUE. IF ( chem_index_table( PARAM_bsoa2_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2_a01 = chem_num_table(idomain) chem_index_table( PARAM_bsoa2_a01 , idomain ) = P_bsoa2_a01 ELSE P_bsoa2_a01 = chem_index_table( PARAM_bsoa2_a01 , idomain ) END IF chem_boundary_table( idomain, P_bsoa2_a01 ) = .TRUE. chem_dname_table( idomain, P_bsoa2_a01 ) = 'bsoa2_a01' chem_desc_table( idomain, P_bsoa2_a01 ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Bin 1' chem_units_table( idomain, P_bsoa2_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2_a01 )%stream(2) = 2097216 ! 00200040 F_bsoa2_a01 = .TRUE. IF ( chem_index_table( PARAM_bsoa3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3_a01 = chem_num_table(idomain) chem_index_table( PARAM_bsoa3_a01 , idomain ) = P_bsoa3_a01 ELSE P_bsoa3_a01 = chem_index_table( PARAM_bsoa3_a01 , idomain ) END IF chem_boundary_table( idomain, P_bsoa3_a01 ) = .TRUE. chem_dname_table( idomain, P_bsoa3_a01 ) = 'bsoa3_a01' chem_desc_table( idomain, P_bsoa3_a01 ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Bin 1' chem_units_table( idomain, P_bsoa3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3_a01 )%stream(2) = 2097216 ! 00200040 F_bsoa3_a01 = .TRUE. IF ( chem_index_table( PARAM_bsoa4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4_a01 = chem_num_table(idomain) chem_index_table( PARAM_bsoa4_a01 , idomain ) = P_bsoa4_a01 ELSE P_bsoa4_a01 = chem_index_table( PARAM_bsoa4_a01 , idomain ) END IF chem_boundary_table( idomain, P_bsoa4_a01 ) = .TRUE. chem_dname_table( idomain, P_bsoa4_a01 ) = 'bsoa4_a01' chem_desc_table( idomain, P_bsoa4_a01 ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Bin 1' chem_units_table( idomain, P_bsoa4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4_a01 )%stream(2) = 2097216 ! 00200040 F_bsoa4_a01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r1_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r1_a01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r1_a01 , idomain ) = P_glysoa_r1_a01 ELSE P_glysoa_r1_a01 = chem_index_table( PARAM_glysoa_r1_a01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r1_a01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r1_a01 ) = 'glysoa_r1_a01' chem_desc_table( idomain, P_glysoa_r1_a01 ) = 'glysoa_r1, aerosol bin 01' chem_units_table( idomain, P_glysoa_r1_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r1_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_r1_a01 )%stream(2) = 2097216 ! 00200040 F_glysoa_r1_a01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r2_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r2_a01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r2_a01 , idomain ) = P_glysoa_r2_a01 ELSE P_glysoa_r2_a01 = chem_index_table( PARAM_glysoa_r2_a01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r2_a01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r2_a01 ) = 'glysoa_r2_a01' chem_desc_table( idomain, P_glysoa_r2_a01 ) = 'glysoa_r2, aerosol bin 01' chem_units_table( idomain, P_glysoa_r2_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r2_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_r2_a01 )%stream(2) = 2097216 ! 00200040 F_glysoa_r2_a01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_a01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_a01 , idomain ) = P_glysoa_sfc_a01 ELSE P_glysoa_sfc_a01 = chem_index_table( PARAM_glysoa_sfc_a01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_a01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_a01 ) = 'glysoa_sfc_a01' chem_desc_table( idomain, P_glysoa_sfc_a01 ) = 'glysoa_sfc, aerosol bin 01' chem_units_table( idomain, P_glysoa_sfc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_sfc_a01 )%stream(2) = 2097216 ! 00200040 F_glysoa_sfc_a01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_nh4_a01 , idomain ) = P_glysoa_nh4_a01 ELSE P_glysoa_nh4_a01 = chem_index_table( PARAM_glysoa_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_nh4_a01 ) = 'glysoa_nh4_a01' chem_desc_table( idomain, P_glysoa_nh4_a01 ) = 'glysoa_nh4, aerosol bin 01' chem_units_table( idomain, P_glysoa_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_glysoa_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_oh_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_oh_a01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_oh_a01 , idomain ) = P_glysoa_oh_a01 ELSE P_glysoa_oh_a01 = chem_index_table( PARAM_glysoa_oh_a01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_oh_a01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_oh_a01 ) = 'glysoa_oh_a01' chem_desc_table( idomain, P_glysoa_oh_a01 ) = 'glysoa_oh, aerosol bin 01' chem_units_table( idomain, P_glysoa_oh_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_oh_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_oh_a01 )%stream(2) = 2097216 ! 00200040 F_glysoa_oh_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 ! 00200040 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 ! 00200040 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 ! 00200040 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 ! 00200040 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 ! 00200040 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 ! 00200040 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 ! 00200040 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 ! 00200040 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 ! 00200040 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 ! 00200040 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 ! 00200040 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 ! 00200040 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_asoax_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoax_a02 = chem_num_table(idomain) chem_index_table( PARAM_asoax_a02 , idomain ) = P_asoax_a02 ELSE P_asoax_a02 = chem_index_table( PARAM_asoax_a02 , idomain ) END IF chem_boundary_table( idomain, P_asoax_a02 ) = .TRUE. chem_dname_table( idomain, P_asoax_a02 ) = 'asoaX_a02' chem_desc_table( idomain, P_asoax_a02 ) = 'SOA Anth. org. conc. with C* value=X ug/m^3 Bin 2' chem_units_table( idomain, P_asoax_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoax_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoax_a02 )%stream(2) = 2097216 ! 00200040 F_asoax_a02 = .TRUE. IF ( chem_index_table( PARAM_asoa1_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1_a02 = chem_num_table(idomain) chem_index_table( PARAM_asoa1_a02 , idomain ) = P_asoa1_a02 ELSE P_asoa1_a02 = chem_index_table( PARAM_asoa1_a02 , idomain ) END IF chem_boundary_table( idomain, P_asoa1_a02 ) = .TRUE. chem_dname_table( idomain, P_asoa1_a02 ) = 'asoa1_a02' chem_desc_table( idomain, P_asoa1_a02 ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Bin 2' chem_units_table( idomain, P_asoa1_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1_a02 )%stream(2) = 2097216 ! 00200040 F_asoa1_a02 = .TRUE. IF ( chem_index_table( PARAM_asoa2_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2_a02 = chem_num_table(idomain) chem_index_table( PARAM_asoa2_a02 , idomain ) = P_asoa2_a02 ELSE P_asoa2_a02 = chem_index_table( PARAM_asoa2_a02 , idomain ) END IF chem_boundary_table( idomain, P_asoa2_a02 ) = .TRUE. chem_dname_table( idomain, P_asoa2_a02 ) = 'asoa2_a02' chem_desc_table( idomain, P_asoa2_a02 ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Bin 2' chem_units_table( idomain, P_asoa2_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2_a02 )%stream(2) = 2097216 ! 00200040 F_asoa2_a02 = .TRUE. IF ( chem_index_table( PARAM_asoa3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3_a02 = chem_num_table(idomain) chem_index_table( PARAM_asoa3_a02 , idomain ) = P_asoa3_a02 ELSE P_asoa3_a02 = chem_index_table( PARAM_asoa3_a02 , idomain ) END IF chem_boundary_table( idomain, P_asoa3_a02 ) = .TRUE. chem_dname_table( idomain, P_asoa3_a02 ) = 'asoa3_a02' chem_desc_table( idomain, P_asoa3_a02 ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Bin 2' chem_units_table( idomain, P_asoa3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3_a02 )%stream(2) = 2097216 ! 00200040 F_asoa3_a02 = .TRUE. IF ( chem_index_table( PARAM_asoa4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4_a02 = chem_num_table(idomain) chem_index_table( PARAM_asoa4_a02 , idomain ) = P_asoa4_a02 ELSE P_asoa4_a02 = chem_index_table( PARAM_asoa4_a02 , idomain ) END IF chem_boundary_table( idomain, P_asoa4_a02 ) = .TRUE. chem_dname_table( idomain, P_asoa4_a02 ) = 'asoa4_a02' chem_desc_table( idomain, P_asoa4_a02 ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Bin 2' chem_units_table( idomain, P_asoa4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4_a02 )%stream(2) = 2097216 ! 00200040 F_asoa4_a02 = .TRUE. IF ( chem_index_table( PARAM_bsoax_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoax_a02 = chem_num_table(idomain) chem_index_table( PARAM_bsoax_a02 , idomain ) = P_bsoax_a02 ELSE P_bsoax_a02 = chem_index_table( PARAM_bsoax_a02 , idomain ) END IF chem_boundary_table( idomain, P_bsoax_a02 ) = .TRUE. chem_dname_table( idomain, P_bsoax_a02 ) = 'bsoaX_a02' chem_desc_table( idomain, P_bsoax_a02 ) = 'SOA Biog. org. conc. with C* value=X ug/m^3 Bin 2' chem_units_table( idomain, P_bsoax_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoax_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoax_a02 )%stream(2) = 2097216 ! 00200040 F_bsoax_a02 = .TRUE. IF ( chem_index_table( PARAM_bsoa1_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1_a02 = chem_num_table(idomain) chem_index_table( PARAM_bsoa1_a02 , idomain ) = P_bsoa1_a02 ELSE P_bsoa1_a02 = chem_index_table( PARAM_bsoa1_a02 , idomain ) END IF chem_boundary_table( idomain, P_bsoa1_a02 ) = .TRUE. chem_dname_table( idomain, P_bsoa1_a02 ) = 'bsoa1_a02' chem_desc_table( idomain, P_bsoa1_a02 ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Bin 2' chem_units_table( idomain, P_bsoa1_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1_a02 )%stream(2) = 2097216 ! 00200040 F_bsoa1_a02 = .TRUE. IF ( chem_index_table( PARAM_bsoa2_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2_a02 = chem_num_table(idomain) chem_index_table( PARAM_bsoa2_a02 , idomain ) = P_bsoa2_a02 ELSE P_bsoa2_a02 = chem_index_table( PARAM_bsoa2_a02 , idomain ) END IF chem_boundary_table( idomain, P_bsoa2_a02 ) = .TRUE. chem_dname_table( idomain, P_bsoa2_a02 ) = 'bsoa2_a02' chem_desc_table( idomain, P_bsoa2_a02 ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Bin 2' chem_units_table( idomain, P_bsoa2_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2_a02 )%stream(2) = 2097216 ! 00200040 F_bsoa2_a02 = .TRUE. IF ( chem_index_table( PARAM_bsoa3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3_a02 = chem_num_table(idomain) chem_index_table( PARAM_bsoa3_a02 , idomain ) = P_bsoa3_a02 ELSE P_bsoa3_a02 = chem_index_table( PARAM_bsoa3_a02 , idomain ) END IF chem_boundary_table( idomain, P_bsoa3_a02 ) = .TRUE. chem_dname_table( idomain, P_bsoa3_a02 ) = 'bsoa3_a02' chem_desc_table( idomain, P_bsoa3_a02 ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Bin 2' chem_units_table( idomain, P_bsoa3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3_a02 )%stream(2) = 2097216 ! 00200040 F_bsoa3_a02 = .TRUE. IF ( chem_index_table( PARAM_bsoa4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4_a02 = chem_num_table(idomain) chem_index_table( PARAM_bsoa4_a02 , idomain ) = P_bsoa4_a02 ELSE P_bsoa4_a02 = chem_index_table( PARAM_bsoa4_a02 , idomain ) END IF chem_boundary_table( idomain, P_bsoa4_a02 ) = .TRUE. chem_dname_table( idomain, P_bsoa4_a02 ) = 'bsoa4_a02' chem_desc_table( idomain, P_bsoa4_a02 ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Bin 2' chem_units_table( idomain, P_bsoa4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4_a02 )%stream(2) = 2097216 ! 00200040 F_bsoa4_a02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r1_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r1_a02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r1_a02 , idomain ) = P_glysoa_r1_a02 ELSE P_glysoa_r1_a02 = chem_index_table( PARAM_glysoa_r1_a02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r1_a02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r1_a02 ) = 'glysoa_r1_a02' chem_desc_table( idomain, P_glysoa_r1_a02 ) = 'glysoa_r1, aerosol bin 02' chem_units_table( idomain, P_glysoa_r1_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r1_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_r1_a02 )%stream(2) = 2097216 ! 00200040 F_glysoa_r1_a02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r2_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r2_a02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r2_a02 , idomain ) = P_glysoa_r2_a02 ELSE P_glysoa_r2_a02 = chem_index_table( PARAM_glysoa_r2_a02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r2_a02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r2_a02 ) = 'glysoa_r2_a02' chem_desc_table( idomain, P_glysoa_r2_a02 ) = 'glysoa_r2, aerosol bin 02' chem_units_table( idomain, P_glysoa_r2_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r2_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_r2_a02 )%stream(2) = 2097216 ! 00200040 F_glysoa_r2_a02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_a02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_a02 , idomain ) = P_glysoa_sfc_a02 ELSE P_glysoa_sfc_a02 = chem_index_table( PARAM_glysoa_sfc_a02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_a02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_a02 ) = 'glysoa_sfc_a02' chem_desc_table( idomain, P_glysoa_sfc_a02 ) = 'glysoa_sfc, aerosol bin 02' chem_units_table( idomain, P_glysoa_sfc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_sfc_a02 )%stream(2) = 2097216 ! 00200040 F_glysoa_sfc_a02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_nh4_a02 , idomain ) = P_glysoa_nh4_a02 ELSE P_glysoa_nh4_a02 = chem_index_table( PARAM_glysoa_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_nh4_a02 ) = 'glysoa_nh4_a02' chem_desc_table( idomain, P_glysoa_nh4_a02 ) = 'glysoa_nh4, aerosol bin 02' chem_units_table( idomain, P_glysoa_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_glysoa_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_oh_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_oh_a02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_oh_a02 , idomain ) = P_glysoa_oh_a02 ELSE P_glysoa_oh_a02 = chem_index_table( PARAM_glysoa_oh_a02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_oh_a02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_oh_a02 ) = 'glysoa_oh_a02' chem_desc_table( idomain, P_glysoa_oh_a02 ) = 'glysoa_oh, aerosol bin 02' chem_units_table( idomain, P_glysoa_oh_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_oh_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_oh_a02 )%stream(2) = 2097216 ! 00200040 F_glysoa_oh_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 ! 00200040 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 ! 00200040 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 ! 00200040 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 ! 00200040 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 ! 00200040 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 ! 00200040 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 ! 00200040 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 ! 00200040 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 ! 00200040 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 ! 00200040 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 ! 00200040 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 ! 00200040 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_asoax_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoax_a03 = chem_num_table(idomain) chem_index_table( PARAM_asoax_a03 , idomain ) = P_asoax_a03 ELSE P_asoax_a03 = chem_index_table( PARAM_asoax_a03 , idomain ) END IF chem_boundary_table( idomain, P_asoax_a03 ) = .TRUE. chem_dname_table( idomain, P_asoax_a03 ) = 'asoaX_a03' chem_desc_table( idomain, P_asoax_a03 ) = 'SOA Anth. org. conc. with C* value=X ug/m^3 Bin 3' chem_units_table( idomain, P_asoax_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoax_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoax_a03 )%stream(2) = 2097216 ! 00200040 F_asoax_a03 = .TRUE. IF ( chem_index_table( PARAM_asoa1_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1_a03 = chem_num_table(idomain) chem_index_table( PARAM_asoa1_a03 , idomain ) = P_asoa1_a03 ELSE P_asoa1_a03 = chem_index_table( PARAM_asoa1_a03 , idomain ) END IF chem_boundary_table( idomain, P_asoa1_a03 ) = .TRUE. chem_dname_table( idomain, P_asoa1_a03 ) = 'asoa1_a03' chem_desc_table( idomain, P_asoa1_a03 ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Bin 3' chem_units_table( idomain, P_asoa1_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1_a03 )%stream(2) = 2097216 ! 00200040 F_asoa1_a03 = .TRUE. IF ( chem_index_table( PARAM_asoa2_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2_a03 = chem_num_table(idomain) chem_index_table( PARAM_asoa2_a03 , idomain ) = P_asoa2_a03 ELSE P_asoa2_a03 = chem_index_table( PARAM_asoa2_a03 , idomain ) END IF chem_boundary_table( idomain, P_asoa2_a03 ) = .TRUE. chem_dname_table( idomain, P_asoa2_a03 ) = 'asoa2_a03' chem_desc_table( idomain, P_asoa2_a03 ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Bin 3' chem_units_table( idomain, P_asoa2_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2_a03 )%stream(2) = 2097216 ! 00200040 F_asoa2_a03 = .TRUE. IF ( chem_index_table( PARAM_asoa3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3_a03 = chem_num_table(idomain) chem_index_table( PARAM_asoa3_a03 , idomain ) = P_asoa3_a03 ELSE P_asoa3_a03 = chem_index_table( PARAM_asoa3_a03 , idomain ) END IF chem_boundary_table( idomain, P_asoa3_a03 ) = .TRUE. chem_dname_table( idomain, P_asoa3_a03 ) = 'asoa3_a03' chem_desc_table( idomain, P_asoa3_a03 ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Bin 3' chem_units_table( idomain, P_asoa3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3_a03 )%stream(2) = 2097216 ! 00200040 F_asoa3_a03 = .TRUE. IF ( chem_index_table( PARAM_asoa4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4_a03 = chem_num_table(idomain) chem_index_table( PARAM_asoa4_a03 , idomain ) = P_asoa4_a03 ELSE P_asoa4_a03 = chem_index_table( PARAM_asoa4_a03 , idomain ) END IF chem_boundary_table( idomain, P_asoa4_a03 ) = .TRUE. chem_dname_table( idomain, P_asoa4_a03 ) = 'asoa4_a03' chem_desc_table( idomain, P_asoa4_a03 ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Bin 3' chem_units_table( idomain, P_asoa4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4_a03 )%stream(2) = 2097216 ! 00200040 F_asoa4_a03 = .TRUE. IF ( chem_index_table( PARAM_bsoax_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoax_a03 = chem_num_table(idomain) chem_index_table( PARAM_bsoax_a03 , idomain ) = P_bsoax_a03 ELSE P_bsoax_a03 = chem_index_table( PARAM_bsoax_a03 , idomain ) END IF chem_boundary_table( idomain, P_bsoax_a03 ) = .TRUE. chem_dname_table( idomain, P_bsoax_a03 ) = 'bsoaX_a03' chem_desc_table( idomain, P_bsoax_a03 ) = 'SOA Biog. org. conc. with C* value=X ug/m^3 Bin 3' chem_units_table( idomain, P_bsoax_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoax_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoax_a03 )%stream(2) = 2097216 ! 00200040 F_bsoax_a03 = .TRUE. IF ( chem_index_table( PARAM_bsoa1_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1_a03 = chem_num_table(idomain) chem_index_table( PARAM_bsoa1_a03 , idomain ) = P_bsoa1_a03 ELSE P_bsoa1_a03 = chem_index_table( PARAM_bsoa1_a03 , idomain ) END IF chem_boundary_table( idomain, P_bsoa1_a03 ) = .TRUE. chem_dname_table( idomain, P_bsoa1_a03 ) = 'bsoa1_a03' chem_desc_table( idomain, P_bsoa1_a03 ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Bin 3' chem_units_table( idomain, P_bsoa1_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1_a03 )%stream(2) = 2097216 ! 00200040 F_bsoa1_a03 = .TRUE. IF ( chem_index_table( PARAM_bsoa2_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2_a03 = chem_num_table(idomain) chem_index_table( PARAM_bsoa2_a03 , idomain ) = P_bsoa2_a03 ELSE P_bsoa2_a03 = chem_index_table( PARAM_bsoa2_a03 , idomain ) END IF chem_boundary_table( idomain, P_bsoa2_a03 ) = .TRUE. chem_dname_table( idomain, P_bsoa2_a03 ) = 'bsoa2_a03' chem_desc_table( idomain, P_bsoa2_a03 ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Bin 3' chem_units_table( idomain, P_bsoa2_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2_a03 )%stream(2) = 2097216 ! 00200040 F_bsoa2_a03 = .TRUE. IF ( chem_index_table( PARAM_bsoa3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3_a03 = chem_num_table(idomain) chem_index_table( PARAM_bsoa3_a03 , idomain ) = P_bsoa3_a03 ELSE P_bsoa3_a03 = chem_index_table( PARAM_bsoa3_a03 , idomain ) END IF chem_boundary_table( idomain, P_bsoa3_a03 ) = .TRUE. chem_dname_table( idomain, P_bsoa3_a03 ) = 'bsoa3_a03' chem_desc_table( idomain, P_bsoa3_a03 ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Bin 3' chem_units_table( idomain, P_bsoa3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3_a03 )%stream(2) = 2097216 ! 00200040 F_bsoa3_a03 = .TRUE. IF ( chem_index_table( PARAM_bsoa4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4_a03 = chem_num_table(idomain) chem_index_table( PARAM_bsoa4_a03 , idomain ) = P_bsoa4_a03 ELSE P_bsoa4_a03 = chem_index_table( PARAM_bsoa4_a03 , idomain ) END IF chem_boundary_table( idomain, P_bsoa4_a03 ) = .TRUE. chem_dname_table( idomain, P_bsoa4_a03 ) = 'bsoa4_a03' chem_desc_table( idomain, P_bsoa4_a03 ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Bin 3' chem_units_table( idomain, P_bsoa4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4_a03 )%stream(2) = 2097216 ! 00200040 F_bsoa4_a03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r1_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r1_a03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r1_a03 , idomain ) = P_glysoa_r1_a03 ELSE P_glysoa_r1_a03 = chem_index_table( PARAM_glysoa_r1_a03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r1_a03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r1_a03 ) = 'glysoa_r1_a03' chem_desc_table( idomain, P_glysoa_r1_a03 ) = 'glysoa_r1, aerosol bin 03' chem_units_table( idomain, P_glysoa_r1_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r1_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_r1_a03 )%stream(2) = 2097216 ! 00200040 F_glysoa_r1_a03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r2_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r2_a03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r2_a03 , idomain ) = P_glysoa_r2_a03 ELSE P_glysoa_r2_a03 = chem_index_table( PARAM_glysoa_r2_a03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r2_a03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r2_a03 ) = 'glysoa_r2_a03' chem_desc_table( idomain, P_glysoa_r2_a03 ) = 'glysoa_r2, aerosol bin 03' chem_units_table( idomain, P_glysoa_r2_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r2_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_r2_a03 )%stream(2) = 2097216 ! 00200040 F_glysoa_r2_a03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_a03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_a03 , idomain ) = P_glysoa_sfc_a03 ELSE P_glysoa_sfc_a03 = chem_index_table( PARAM_glysoa_sfc_a03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_a03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_a03 ) = 'glysoa_sfc_a03' chem_desc_table( idomain, P_glysoa_sfc_a03 ) = 'glysoa_sfc, aerosol bin 03' chem_units_table( idomain, P_glysoa_sfc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_sfc_a03 )%stream(2) = 2097216 ! 00200040 F_glysoa_sfc_a03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_nh4_a03 , idomain ) = P_glysoa_nh4_a03 ELSE P_glysoa_nh4_a03 = chem_index_table( PARAM_glysoa_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_nh4_a03 ) = 'glysoa_nh4_a03' chem_desc_table( idomain, P_glysoa_nh4_a03 ) = 'glysoa_nh4, aerosol bin 03' chem_units_table( idomain, P_glysoa_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_glysoa_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_oh_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_oh_a03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_oh_a03 , idomain ) = P_glysoa_oh_a03 ELSE P_glysoa_oh_a03 = chem_index_table( PARAM_glysoa_oh_a03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_oh_a03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_oh_a03 ) = 'glysoa_oh_a03' chem_desc_table( idomain, P_glysoa_oh_a03 ) = 'glysoa_oh, aerosol bin 03' chem_units_table( idomain, P_glysoa_oh_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_oh_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_oh_a03 )%stream(2) = 2097216 ! 00200040 F_glysoa_oh_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 ! 00200040 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 ! 00200040 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 ! 00200040 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 ! 00200040 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 ! 00200040 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 ! 00200040 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 ! 00200040 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 ! 00200040 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 ! 00200040 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 ! 00200040 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 ! 00200040 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 ! 00200040 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_asoax_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoax_a04 = chem_num_table(idomain) chem_index_table( PARAM_asoax_a04 , idomain ) = P_asoax_a04 ELSE P_asoax_a04 = chem_index_table( PARAM_asoax_a04 , idomain ) END IF chem_boundary_table( idomain, P_asoax_a04 ) = .TRUE. chem_dname_table( idomain, P_asoax_a04 ) = 'asoaX_a04' chem_desc_table( idomain, P_asoax_a04 ) = 'SOA Anth. org. conc. with C* value=X ug/m^3 Bin 4' chem_units_table( idomain, P_asoax_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoax_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoax_a04 )%stream(2) = 2097216 ! 00200040 F_asoax_a04 = .TRUE. IF ( chem_index_table( PARAM_asoa1_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1_a04 = chem_num_table(idomain) chem_index_table( PARAM_asoa1_a04 , idomain ) = P_asoa1_a04 ELSE P_asoa1_a04 = chem_index_table( PARAM_asoa1_a04 , idomain ) END IF chem_boundary_table( idomain, P_asoa1_a04 ) = .TRUE. chem_dname_table( idomain, P_asoa1_a04 ) = 'asoa1_a04' chem_desc_table( idomain, P_asoa1_a04 ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Bin 4' chem_units_table( idomain, P_asoa1_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1_a04 )%stream(2) = 2097216 ! 00200040 F_asoa1_a04 = .TRUE. IF ( chem_index_table( PARAM_asoa2_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2_a04 = chem_num_table(idomain) chem_index_table( PARAM_asoa2_a04 , idomain ) = P_asoa2_a04 ELSE P_asoa2_a04 = chem_index_table( PARAM_asoa2_a04 , idomain ) END IF chem_boundary_table( idomain, P_asoa2_a04 ) = .TRUE. chem_dname_table( idomain, P_asoa2_a04 ) = 'asoa2_a04' chem_desc_table( idomain, P_asoa2_a04 ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Bin 4' chem_units_table( idomain, P_asoa2_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2_a04 )%stream(2) = 2097216 ! 00200040 F_asoa2_a04 = .TRUE. IF ( chem_index_table( PARAM_asoa3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3_a04 = chem_num_table(idomain) chem_index_table( PARAM_asoa3_a04 , idomain ) = P_asoa3_a04 ELSE P_asoa3_a04 = chem_index_table( PARAM_asoa3_a04 , idomain ) END IF chem_boundary_table( idomain, P_asoa3_a04 ) = .TRUE. chem_dname_table( idomain, P_asoa3_a04 ) = 'asoa3_a04' chem_desc_table( idomain, P_asoa3_a04 ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Bin 4' chem_units_table( idomain, P_asoa3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3_a04 )%stream(2) = 2097216 ! 00200040 F_asoa3_a04 = .TRUE. IF ( chem_index_table( PARAM_asoa4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4_a04 = chem_num_table(idomain) chem_index_table( PARAM_asoa4_a04 , idomain ) = P_asoa4_a04 ELSE P_asoa4_a04 = chem_index_table( PARAM_asoa4_a04 , idomain ) END IF chem_boundary_table( idomain, P_asoa4_a04 ) = .TRUE. chem_dname_table( idomain, P_asoa4_a04 ) = 'asoa4_a04' chem_desc_table( idomain, P_asoa4_a04 ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Bin 4' chem_units_table( idomain, P_asoa4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4_a04 )%stream(2) = 2097216 ! 00200040 F_asoa4_a04 = .TRUE. IF ( chem_index_table( PARAM_bsoax_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoax_a04 = chem_num_table(idomain) chem_index_table( PARAM_bsoax_a04 , idomain ) = P_bsoax_a04 ELSE P_bsoax_a04 = chem_index_table( PARAM_bsoax_a04 , idomain ) END IF chem_boundary_table( idomain, P_bsoax_a04 ) = .TRUE. chem_dname_table( idomain, P_bsoax_a04 ) = 'bsoaX_a04' chem_desc_table( idomain, P_bsoax_a04 ) = 'SOA Biog. org. conc. with C* value=X ug/m^3 Bin 4' chem_units_table( idomain, P_bsoax_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoax_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoax_a04 )%stream(2) = 2097216 ! 00200040 F_bsoax_a04 = .TRUE. IF ( chem_index_table( PARAM_bsoa1_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1_a04 = chem_num_table(idomain) chem_index_table( PARAM_bsoa1_a04 , idomain ) = P_bsoa1_a04 ELSE P_bsoa1_a04 = chem_index_table( PARAM_bsoa1_a04 , idomain ) END IF chem_boundary_table( idomain, P_bsoa1_a04 ) = .TRUE. chem_dname_table( idomain, P_bsoa1_a04 ) = 'bsoa1_a04' chem_desc_table( idomain, P_bsoa1_a04 ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Bin 4' chem_units_table( idomain, P_bsoa1_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1_a04 )%stream(2) = 2097216 ! 00200040 F_bsoa1_a04 = .TRUE. IF ( chem_index_table( PARAM_bsoa2_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2_a04 = chem_num_table(idomain) chem_index_table( PARAM_bsoa2_a04 , idomain ) = P_bsoa2_a04 ELSE P_bsoa2_a04 = chem_index_table( PARAM_bsoa2_a04 , idomain ) END IF chem_boundary_table( idomain, P_bsoa2_a04 ) = .TRUE. chem_dname_table( idomain, P_bsoa2_a04 ) = 'bsoa2_a04' chem_desc_table( idomain, P_bsoa2_a04 ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Bin 4' chem_units_table( idomain, P_bsoa2_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2_a04 )%stream(2) = 2097216 ! 00200040 F_bsoa2_a04 = .TRUE. IF ( chem_index_table( PARAM_bsoa3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3_a04 = chem_num_table(idomain) chem_index_table( PARAM_bsoa3_a04 , idomain ) = P_bsoa3_a04 ELSE P_bsoa3_a04 = chem_index_table( PARAM_bsoa3_a04 , idomain ) END IF chem_boundary_table( idomain, P_bsoa3_a04 ) = .TRUE. chem_dname_table( idomain, P_bsoa3_a04 ) = 'bsoa3_a04' chem_desc_table( idomain, P_bsoa3_a04 ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Bin 4' chem_units_table( idomain, P_bsoa3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3_a04 )%stream(2) = 2097216 ! 00200040 F_bsoa3_a04 = .TRUE. IF ( chem_index_table( PARAM_bsoa4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4_a04 = chem_num_table(idomain) chem_index_table( PARAM_bsoa4_a04 , idomain ) = P_bsoa4_a04 ELSE P_bsoa4_a04 = chem_index_table( PARAM_bsoa4_a04 , idomain ) END IF chem_boundary_table( idomain, P_bsoa4_a04 ) = .TRUE. chem_dname_table( idomain, P_bsoa4_a04 ) = 'bsoa4_a04' chem_desc_table( idomain, P_bsoa4_a04 ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Bin 4' chem_units_table( idomain, P_bsoa4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4_a04 )%stream(2) = 2097216 ! 00200040 F_bsoa4_a04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r1_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r1_a04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r1_a04 , idomain ) = P_glysoa_r1_a04 ELSE P_glysoa_r1_a04 = chem_index_table( PARAM_glysoa_r1_a04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r1_a04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r1_a04 ) = 'glysoa_r1_a04' chem_desc_table( idomain, P_glysoa_r1_a04 ) = 'glysoa_r2, aerosol bin 04' chem_units_table( idomain, P_glysoa_r1_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r1_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_r1_a04 )%stream(2) = 2097216 ! 00200040 F_glysoa_r1_a04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r2_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r2_a04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r2_a04 , idomain ) = P_glysoa_r2_a04 ELSE P_glysoa_r2_a04 = chem_index_table( PARAM_glysoa_r2_a04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r2_a04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r2_a04 ) = 'glysoa_r2_a04' chem_desc_table( idomain, P_glysoa_r2_a04 ) = 'glysoa_r1, aerosol bin 04' chem_units_table( idomain, P_glysoa_r2_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r2_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_r2_a04 )%stream(2) = 2097216 ! 00200040 F_glysoa_r2_a04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_a04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_a04 , idomain ) = P_glysoa_sfc_a04 ELSE P_glysoa_sfc_a04 = chem_index_table( PARAM_glysoa_sfc_a04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_a04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_a04 ) = 'glysoa_sfc_a04' chem_desc_table( idomain, P_glysoa_sfc_a04 ) = 'glysoa_sfc, aerosol bin 04' chem_units_table( idomain, P_glysoa_sfc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_sfc_a04 )%stream(2) = 2097216 ! 00200040 F_glysoa_sfc_a04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_nh4_a04 , idomain ) = P_glysoa_nh4_a04 ELSE P_glysoa_nh4_a04 = chem_index_table( PARAM_glysoa_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_nh4_a04 ) = 'glysoa_nh4_a04' chem_desc_table( idomain, P_glysoa_nh4_a04 ) = 'glysoa_nh4, aerosol bin 04' chem_units_table( idomain, P_glysoa_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_glysoa_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_oh_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_oh_a04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_oh_a04 , idomain ) = P_glysoa_oh_a04 ELSE P_glysoa_oh_a04 = chem_index_table( PARAM_glysoa_oh_a04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_oh_a04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_oh_a04 ) = 'glysoa_oh_a04' chem_desc_table( idomain, P_glysoa_oh_a04 ) = 'glysoa_oh, aerosol bin 04' chem_units_table( idomain, P_glysoa_oh_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_oh_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_oh_a04 )%stream(2) = 2097216 ! 00200040 F_glysoa_oh_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 ! 00200040 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 ! 00200040 F_co3_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 ! 00200040 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 ! 00200040 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 ! 00200040 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 ! 00200040 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 ! 00200040 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 ! 00200040 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 ! 00200040 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 ! 00200040 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw01 , idomain ) = P_so4_cw01 ELSE P_so4_cw01 = chem_index_table( PARAM_so4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw01 ) = .TRUE. chem_dname_table( idomain, P_so4_cw01 ) = 'so4_cw01' chem_desc_table( idomain, P_so4_cw01 ) = 'Sulfate, aerosol in cloud bin 01' chem_units_table( idomain, P_so4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw01 )%stream(2) = 2097216 ! 00200040 F_so4_cw01 = .TRUE. IF ( chem_index_table( PARAM_no3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw01 , idomain ) = P_no3_cw01 ELSE P_no3_cw01 = chem_index_table( PARAM_no3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw01 ) = .TRUE. chem_dname_table( idomain, P_no3_cw01 ) = 'no3_cw01' chem_desc_table( idomain, P_no3_cw01 ) = 'Nitrate, aerosol in cloud bin 01' chem_units_table( idomain, P_no3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw01 )%stream(2) = 2097216 ! 00200040 F_no3_cw01 = .TRUE. IF ( chem_index_table( PARAM_asoax_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoax_cw01 = chem_num_table(idomain) chem_index_table( PARAM_asoax_cw01 , idomain ) = P_asoax_cw01 ELSE P_asoax_cw01 = chem_index_table( PARAM_asoax_cw01 , idomain ) END IF chem_boundary_table( idomain, P_asoax_cw01 ) = .TRUE. chem_dname_table( idomain, P_asoax_cw01 ) = 'asoaX_cw01' chem_desc_table( idomain, P_asoax_cw01 ) = 'SOA Anth. org. conc. with C* value=X ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_asoax_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoax_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoax_cw01 )%stream(2) = 2097216 ! 00200040 F_asoax_cw01 = .TRUE. IF ( chem_index_table( PARAM_asoa1_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1_cw01 = chem_num_table(idomain) chem_index_table( PARAM_asoa1_cw01 , idomain ) = P_asoa1_cw01 ELSE P_asoa1_cw01 = chem_index_table( PARAM_asoa1_cw01 , idomain ) END IF chem_boundary_table( idomain, P_asoa1_cw01 ) = .TRUE. chem_dname_table( idomain, P_asoa1_cw01 ) = 'asoa1_cw01' chem_desc_table( idomain, P_asoa1_cw01 ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_asoa1_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1_cw01 )%stream(2) = 2097216 ! 00200040 F_asoa1_cw01 = .TRUE. IF ( chem_index_table( PARAM_asoa2_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2_cw01 = chem_num_table(idomain) chem_index_table( PARAM_asoa2_cw01 , idomain ) = P_asoa2_cw01 ELSE P_asoa2_cw01 = chem_index_table( PARAM_asoa2_cw01 , idomain ) END IF chem_boundary_table( idomain, P_asoa2_cw01 ) = .TRUE. chem_dname_table( idomain, P_asoa2_cw01 ) = 'asoa2_cw01' chem_desc_table( idomain, P_asoa2_cw01 ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_asoa2_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2_cw01 )%stream(2) = 2097216 ! 00200040 F_asoa2_cw01 = .TRUE. IF ( chem_index_table( PARAM_asoa3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_asoa3_cw01 , idomain ) = P_asoa3_cw01 ELSE P_asoa3_cw01 = chem_index_table( PARAM_asoa3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_asoa3_cw01 ) = .TRUE. chem_dname_table( idomain, P_asoa3_cw01 ) = 'asoa3_cw01' chem_desc_table( idomain, P_asoa3_cw01 ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_asoa3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3_cw01 )%stream(2) = 2097216 ! 00200040 F_asoa3_cw01 = .TRUE. IF ( chem_index_table( PARAM_asoa4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_asoa4_cw01 , idomain ) = P_asoa4_cw01 ELSE P_asoa4_cw01 = chem_index_table( PARAM_asoa4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_asoa4_cw01 ) = .TRUE. chem_dname_table( idomain, P_asoa4_cw01 ) = 'asoa4_cw01' chem_desc_table( idomain, P_asoa4_cw01 ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_asoa4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4_cw01 )%stream(2) = 2097216 ! 00200040 F_asoa4_cw01 = .TRUE. IF ( chem_index_table( PARAM_bsoax_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoax_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bsoax_cw01 , idomain ) = P_bsoax_cw01 ELSE P_bsoax_cw01 = chem_index_table( PARAM_bsoax_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bsoax_cw01 ) = .TRUE. chem_dname_table( idomain, P_bsoax_cw01 ) = 'bsoaX_cw01' chem_desc_table( idomain, P_bsoax_cw01 ) = 'SOA Biog. org. conc. with C* value=X ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_bsoax_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoax_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoax_cw01 )%stream(2) = 2097216 ! 00200040 F_bsoax_cw01 = .TRUE. IF ( chem_index_table( PARAM_bsoa1_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bsoa1_cw01 , idomain ) = P_bsoa1_cw01 ELSE P_bsoa1_cw01 = chem_index_table( PARAM_bsoa1_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bsoa1_cw01 ) = .TRUE. chem_dname_table( idomain, P_bsoa1_cw01 ) = 'bsoa1_cw01' chem_desc_table( idomain, P_bsoa1_cw01 ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_bsoa1_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1_cw01 )%stream(2) = 2097216 ! 00200040 F_bsoa1_cw01 = .TRUE. IF ( chem_index_table( PARAM_bsoa2_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bsoa2_cw01 , idomain ) = P_bsoa2_cw01 ELSE P_bsoa2_cw01 = chem_index_table( PARAM_bsoa2_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bsoa2_cw01 ) = .TRUE. chem_dname_table( idomain, P_bsoa2_cw01 ) = 'bsoa2_cw01' chem_desc_table( idomain, P_bsoa2_cw01 ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_bsoa2_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2_cw01 )%stream(2) = 2097216 ! 00200040 F_bsoa2_cw01 = .TRUE. IF ( chem_index_table( PARAM_bsoa3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bsoa3_cw01 , idomain ) = P_bsoa3_cw01 ELSE P_bsoa3_cw01 = chem_index_table( PARAM_bsoa3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bsoa3_cw01 ) = .TRUE. chem_dname_table( idomain, P_bsoa3_cw01 ) = 'bsoa3_cw01' chem_desc_table( idomain, P_bsoa3_cw01 ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_bsoa3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3_cw01 )%stream(2) = 2097216 ! 00200040 F_bsoa3_cw01 = .TRUE. IF ( chem_index_table( PARAM_bsoa4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bsoa4_cw01 , idomain ) = P_bsoa4_cw01 ELSE P_bsoa4_cw01 = chem_index_table( PARAM_bsoa4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bsoa4_cw01 ) = .TRUE. chem_dname_table( idomain, P_bsoa4_cw01 ) = 'bsoa4_cw01' chem_desc_table( idomain, P_bsoa4_cw01 ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_bsoa4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4_cw01 )%stream(2) = 2097216 ! 00200040 F_bsoa4_cw01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r1_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r1_cw01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r1_cw01 , idomain ) = P_glysoa_r1_cw01 ELSE P_glysoa_r1_cw01 = chem_index_table( PARAM_glysoa_r1_cw01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r1_cw01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r1_cw01 ) = 'glysoa_r1_cw01' chem_desc_table( idomain, P_glysoa_r1_cw01 ) = 'glysoa_r1, aerosol in cloud bin 01' chem_units_table( idomain, P_glysoa_r1_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r1_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_r1_cw01 )%stream(2) = 2097216 ! 00200040 F_glysoa_r1_cw01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r2_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r2_cw01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r2_cw01 , idomain ) = P_glysoa_r2_cw01 ELSE P_glysoa_r2_cw01 = chem_index_table( PARAM_glysoa_r2_cw01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r2_cw01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r2_cw01 ) = 'glysoa_r2_cw01' chem_desc_table( idomain, P_glysoa_r2_cw01 ) = 'glysoa_r2, aerosol in cloud bin 01' chem_units_table( idomain, P_glysoa_r2_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r2_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_r2_cw01 )%stream(2) = 2097216 ! 00200040 F_glysoa_r2_cw01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_cw01 , idomain ) = P_glysoa_sfc_cw01 ELSE P_glysoa_sfc_cw01 = chem_index_table( PARAM_glysoa_sfc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_cw01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_cw01 ) = 'glysoa_sfc_cw01' chem_desc_table( idomain, P_glysoa_sfc_cw01 ) = 'glysoa_sfc, aerosol in cloud bin 01' chem_units_table( idomain, P_glysoa_sfc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_sfc_cw01 )%stream(2) = 2097216 ! 00200040 F_glysoa_sfc_cw01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_nh4_cw01 , idomain ) = P_glysoa_nh4_cw01 ELSE P_glysoa_nh4_cw01 = chem_index_table( PARAM_glysoa_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_nh4_cw01 ) = 'glysoa_nh4_cw01' chem_desc_table( idomain, P_glysoa_nh4_cw01 ) = 'glysoa_nh4, aerosol in cloud bin 01' chem_units_table( idomain, P_glysoa_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_nh4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_nh4_cw01 )%stream(2) = 2097216 ! 00200040 F_glysoa_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_oh_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_oh_cw01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_oh_cw01 , idomain ) = P_glysoa_oh_cw01 ELSE P_glysoa_oh_cw01 = chem_index_table( PARAM_glysoa_oh_cw01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_oh_cw01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_oh_cw01 ) = 'glysoa_oh_cw01' chem_desc_table( idomain, P_glysoa_oh_cw01 ) = 'glysoa_oh, aerosol in cloud bin 01' chem_units_table( idomain, P_glysoa_oh_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_oh_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_oh_cw01 )%stream(2) = 2097216 ! 00200040 F_glysoa_oh_cw01 = .TRUE. IF ( chem_index_table( PARAM_cl_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw01 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw01 , idomain ) = P_cl_cw01 ELSE P_cl_cw01 = chem_index_table( PARAM_cl_cw01 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw01 ) = .TRUE. chem_dname_table( idomain, P_cl_cw01 ) = 'cl_cw01' chem_desc_table( idomain, P_cl_cw01 ) = 'Chloride, aerosol in cloud bin 01' chem_units_table( idomain, P_cl_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw01 )%stream(2) = 2097216 ! 00200040 F_cl_cw01 = .TRUE. IF ( chem_index_table( PARAM_co3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw01 , idomain ) = P_co3_cw01 ELSE P_co3_cw01 = chem_index_table( PARAM_co3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw01 ) = .TRUE. chem_dname_table( idomain, P_co3_cw01 ) = 'co3_cw01' chem_desc_table( idomain, P_co3_cw01 ) = 'Carbonate, aerosol in cloud bin 01' chem_units_table( idomain, P_co3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_cw01 )%stream(2) = 2097216 ! 00200040 F_co3_cw01 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw01 , idomain ) = P_nh4_cw01 ELSE P_nh4_cw01 = chem_index_table( PARAM_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw01 ) = 'nh4_cw01' chem_desc_table( idomain, P_nh4_cw01 ) = 'Ammonium, aerosol in cloud bin 01' chem_units_table( idomain, P_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw01 )%stream(2) = 2097216 ! 00200040 F_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_na_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw01 = chem_num_table(idomain) chem_index_table( PARAM_na_cw01 , idomain ) = P_na_cw01 ELSE P_na_cw01 = chem_index_table( PARAM_na_cw01 , idomain ) END IF chem_boundary_table( idomain, P_na_cw01 ) = .TRUE. chem_dname_table( idomain, P_na_cw01 ) = 'na_cw01' chem_desc_table( idomain, P_na_cw01 ) = 'Sodium, aerosol in cloud bin 01' chem_units_table( idomain, P_na_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw01 )%stream(2) = 2097216 ! 00200040 F_na_cw01 = .TRUE. IF ( chem_index_table( PARAM_ca_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw01 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw01 , idomain ) = P_ca_cw01 ELSE P_ca_cw01 = chem_index_table( PARAM_ca_cw01 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw01 ) = .TRUE. chem_dname_table( idomain, P_ca_cw01 ) = 'ca_cw01' chem_desc_table( idomain, P_ca_cw01 ) = 'Calcium, aerosol in cloud bin 01' chem_units_table( idomain, P_ca_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_cw01 )%stream(2) = 2097216 ! 00200040 F_ca_cw01 = .TRUE. IF ( chem_index_table( PARAM_oin_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw01 , idomain ) = P_oin_cw01 ELSE P_oin_cw01 = chem_index_table( PARAM_oin_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw01 ) = .TRUE. chem_dname_table( idomain, P_oin_cw01 ) = 'oin_cw01' chem_desc_table( idomain, P_oin_cw01 ) = 'Other inorganics, aerosol in cloud bin 01' chem_units_table( idomain, P_oin_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw01 )%stream(2) = 2097216 ! 00200040 F_oin_cw01 = .TRUE. IF ( chem_index_table( PARAM_oc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw01 , idomain ) = P_oc_cw01 ELSE P_oc_cw01 = chem_index_table( PARAM_oc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw01 ) = .TRUE. chem_dname_table( idomain, P_oc_cw01 ) = 'oc_cw01' chem_desc_table( idomain, P_oc_cw01 ) = 'Organic carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_oc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw01 )%stream(2) = 2097216 ! 00200040 F_oc_cw01 = .TRUE. IF ( chem_index_table( PARAM_bc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw01 , idomain ) = P_bc_cw01 ELSE P_bc_cw01 = chem_index_table( PARAM_bc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw01 ) = .TRUE. chem_dname_table( idomain, P_bc_cw01 ) = 'bc_cw01' chem_desc_table( idomain, P_bc_cw01 ) = 'Black carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_bc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw01 )%stream(2) = 2097216 ! 00200040 F_bc_cw01 = .TRUE. IF ( chem_index_table( PARAM_num_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw01 = chem_num_table(idomain) chem_index_table( PARAM_num_cw01 , idomain ) = P_num_cw01 ELSE P_num_cw01 = chem_index_table( PARAM_num_cw01 , idomain ) END IF chem_boundary_table( idomain, P_num_cw01 ) = .TRUE. chem_dname_table( idomain, P_num_cw01 ) = 'num_cw01' chem_desc_table( idomain, P_num_cw01 ) = 'Number, aerosol in cloud bin 01' chem_units_table( idomain, P_num_cw01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw01 )%stream(2) = 2097216 ! 00200040 F_num_cw01 = .TRUE. IF ( chem_index_table( PARAM_so4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw02 , idomain ) = P_so4_cw02 ELSE P_so4_cw02 = chem_index_table( PARAM_so4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw02 ) = .TRUE. chem_dname_table( idomain, P_so4_cw02 ) = 'so4_cw02' chem_desc_table( idomain, P_so4_cw02 ) = 'Sulfate, aerosol in cloud bin 02' chem_units_table( idomain, P_so4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw02 )%stream(2) = 2097216 ! 00200040 F_so4_cw02 = .TRUE. IF ( chem_index_table( PARAM_no3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw02 , idomain ) = P_no3_cw02 ELSE P_no3_cw02 = chem_index_table( PARAM_no3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw02 ) = .TRUE. chem_dname_table( idomain, P_no3_cw02 ) = 'no3_cw02' chem_desc_table( idomain, P_no3_cw02 ) = 'Nitrate, aerosol in cloud bin 02' chem_units_table( idomain, P_no3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw02 )%stream(2) = 2097216 ! 00200040 F_no3_cw02 = .TRUE. IF ( chem_index_table( PARAM_asoax_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoax_cw02 = chem_num_table(idomain) chem_index_table( PARAM_asoax_cw02 , idomain ) = P_asoax_cw02 ELSE P_asoax_cw02 = chem_index_table( PARAM_asoax_cw02 , idomain ) END IF chem_boundary_table( idomain, P_asoax_cw02 ) = .TRUE. chem_dname_table( idomain, P_asoax_cw02 ) = 'asoaX_cw02' chem_desc_table( idomain, P_asoax_cw02 ) = 'SOA Anth. org. conc. with C* value=X ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_asoax_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoax_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoax_cw02 )%stream(2) = 2097216 ! 00200040 F_asoax_cw02 = .TRUE. IF ( chem_index_table( PARAM_asoa1_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1_cw02 = chem_num_table(idomain) chem_index_table( PARAM_asoa1_cw02 , idomain ) = P_asoa1_cw02 ELSE P_asoa1_cw02 = chem_index_table( PARAM_asoa1_cw02 , idomain ) END IF chem_boundary_table( idomain, P_asoa1_cw02 ) = .TRUE. chem_dname_table( idomain, P_asoa1_cw02 ) = 'asoa1_cw02' chem_desc_table( idomain, P_asoa1_cw02 ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_asoa1_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1_cw02 )%stream(2) = 2097216 ! 00200040 F_asoa1_cw02 = .TRUE. IF ( chem_index_table( PARAM_asoa2_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2_cw02 = chem_num_table(idomain) chem_index_table( PARAM_asoa2_cw02 , idomain ) = P_asoa2_cw02 ELSE P_asoa2_cw02 = chem_index_table( PARAM_asoa2_cw02 , idomain ) END IF chem_boundary_table( idomain, P_asoa2_cw02 ) = .TRUE. chem_dname_table( idomain, P_asoa2_cw02 ) = 'asoa2_cw02' chem_desc_table( idomain, P_asoa2_cw02 ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_asoa2_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2_cw02 )%stream(2) = 2097216 ! 00200040 F_asoa2_cw02 = .TRUE. IF ( chem_index_table( PARAM_asoa3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_asoa3_cw02 , idomain ) = P_asoa3_cw02 ELSE P_asoa3_cw02 = chem_index_table( PARAM_asoa3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_asoa3_cw02 ) = .TRUE. chem_dname_table( idomain, P_asoa3_cw02 ) = 'asoa3_cw02' chem_desc_table( idomain, P_asoa3_cw02 ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_asoa3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3_cw02 )%stream(2) = 2097216 ! 00200040 F_asoa3_cw02 = .TRUE. IF ( chem_index_table( PARAM_asoa4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_asoa4_cw02 , idomain ) = P_asoa4_cw02 ELSE P_asoa4_cw02 = chem_index_table( PARAM_asoa4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_asoa4_cw02 ) = .TRUE. chem_dname_table( idomain, P_asoa4_cw02 ) = 'asoa4_cw02' chem_desc_table( idomain, P_asoa4_cw02 ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_asoa4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4_cw02 )%stream(2) = 2097216 ! 00200040 F_asoa4_cw02 = .TRUE. IF ( chem_index_table( PARAM_bsoax_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoax_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bsoax_cw02 , idomain ) = P_bsoax_cw02 ELSE P_bsoax_cw02 = chem_index_table( PARAM_bsoax_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bsoax_cw02 ) = .TRUE. chem_dname_table( idomain, P_bsoax_cw02 ) = 'bsoaX_cw02' chem_desc_table( idomain, P_bsoax_cw02 ) = 'SOA Biog. org. conc. with C* value=X ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_bsoax_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoax_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoax_cw02 )%stream(2) = 2097216 ! 00200040 F_bsoax_cw02 = .TRUE. IF ( chem_index_table( PARAM_bsoa1_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bsoa1_cw02 , idomain ) = P_bsoa1_cw02 ELSE P_bsoa1_cw02 = chem_index_table( PARAM_bsoa1_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bsoa1_cw02 ) = .TRUE. chem_dname_table( idomain, P_bsoa1_cw02 ) = 'bsoa1_cw02' chem_desc_table( idomain, P_bsoa1_cw02 ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_bsoa1_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1_cw02 )%stream(2) = 2097216 ! 00200040 F_bsoa1_cw02 = .TRUE. IF ( chem_index_table( PARAM_bsoa2_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bsoa2_cw02 , idomain ) = P_bsoa2_cw02 ELSE P_bsoa2_cw02 = chem_index_table( PARAM_bsoa2_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bsoa2_cw02 ) = .TRUE. chem_dname_table( idomain, P_bsoa2_cw02 ) = 'bsoa2_cw02' chem_desc_table( idomain, P_bsoa2_cw02 ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_bsoa2_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2_cw02 )%stream(2) = 2097216 ! 00200040 F_bsoa2_cw02 = .TRUE. IF ( chem_index_table( PARAM_bsoa3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bsoa3_cw02 , idomain ) = P_bsoa3_cw02 ELSE P_bsoa3_cw02 = chem_index_table( PARAM_bsoa3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bsoa3_cw02 ) = .TRUE. chem_dname_table( idomain, P_bsoa3_cw02 ) = 'bsoa3_cw02' chem_desc_table( idomain, P_bsoa3_cw02 ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_bsoa3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3_cw02 )%stream(2) = 2097216 ! 00200040 F_bsoa3_cw02 = .TRUE. IF ( chem_index_table( PARAM_bsoa4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bsoa4_cw02 , idomain ) = P_bsoa4_cw02 ELSE P_bsoa4_cw02 = chem_index_table( PARAM_bsoa4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bsoa4_cw02 ) = .TRUE. chem_dname_table( idomain, P_bsoa4_cw02 ) = 'bsoa4_cw02' chem_desc_table( idomain, P_bsoa4_cw02 ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_bsoa4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4_cw02 )%stream(2) = 2097216 ! 00200040 F_bsoa4_cw02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r1_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r1_cw02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r1_cw02 , idomain ) = P_glysoa_r1_cw02 ELSE P_glysoa_r1_cw02 = chem_index_table( PARAM_glysoa_r1_cw02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r1_cw02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r1_cw02 ) = 'glysoa_r1_cw02' chem_desc_table( idomain, P_glysoa_r1_cw02 ) = 'glysoa_r1, aerosol in cloud bin 02' chem_units_table( idomain, P_glysoa_r1_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r1_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_r1_cw02 )%stream(2) = 2097216 ! 00200040 F_glysoa_r1_cw02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r2_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r2_cw02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r2_cw02 , idomain ) = P_glysoa_r2_cw02 ELSE P_glysoa_r2_cw02 = chem_index_table( PARAM_glysoa_r2_cw02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r2_cw02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r2_cw02 ) = 'glysoa_r2_cw02' chem_desc_table( idomain, P_glysoa_r2_cw02 ) = 'glysoa_r2, aerosol in cloud bin 02' chem_units_table( idomain, P_glysoa_r2_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r2_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_r2_cw02 )%stream(2) = 2097216 ! 00200040 F_glysoa_r2_cw02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_cw02 , idomain ) = P_glysoa_sfc_cw02 ELSE P_glysoa_sfc_cw02 = chem_index_table( PARAM_glysoa_sfc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_cw02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_cw02 ) = 'glysoa_sfc_cw02' chem_desc_table( idomain, P_glysoa_sfc_cw02 ) = 'glysoa_sfc, aerosol in cloud bin 02' chem_units_table( idomain, P_glysoa_sfc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_sfc_cw02 )%stream(2) = 2097216 ! 00200040 F_glysoa_sfc_cw02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_nh4_cw02 , idomain ) = P_glysoa_nh4_cw02 ELSE P_glysoa_nh4_cw02 = chem_index_table( PARAM_glysoa_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_nh4_cw02 ) = 'glysoa_nh4_cw02' chem_desc_table( idomain, P_glysoa_nh4_cw02 ) = 'glysoa_nh4, aerosol in cloud bin 02' chem_units_table( idomain, P_glysoa_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_nh4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_nh4_cw02 )%stream(2) = 2097216 ! 00200040 F_glysoa_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_oh_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_oh_cw02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_oh_cw02 , idomain ) = P_glysoa_oh_cw02 ELSE P_glysoa_oh_cw02 = chem_index_table( PARAM_glysoa_oh_cw02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_oh_cw02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_oh_cw02 ) = 'glysoa_oh_cw02' chem_desc_table( idomain, P_glysoa_oh_cw02 ) = 'glysoa_oh, aerosol in cloud bin 02' chem_units_table( idomain, P_glysoa_oh_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_oh_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_oh_cw02 )%stream(2) = 2097216 ! 00200040 F_glysoa_oh_cw02 = .TRUE. IF ( chem_index_table( PARAM_cl_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw02 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw02 , idomain ) = P_cl_cw02 ELSE P_cl_cw02 = chem_index_table( PARAM_cl_cw02 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw02 ) = .TRUE. chem_dname_table( idomain, P_cl_cw02 ) = 'cl_cw02' chem_desc_table( idomain, P_cl_cw02 ) = 'Chloride, aerosol in cloud bin 02' chem_units_table( idomain, P_cl_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw02 )%stream(2) = 2097216 ! 00200040 F_cl_cw02 = .TRUE. IF ( chem_index_table( PARAM_co3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw02 , idomain ) = P_co3_cw02 ELSE P_co3_cw02 = chem_index_table( PARAM_co3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw02 ) = .TRUE. chem_dname_table( idomain, P_co3_cw02 ) = 'co3_cw02' chem_desc_table( idomain, P_co3_cw02 ) = 'Carbonate, aerosol in cloud bin 02' chem_units_table( idomain, P_co3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_cw02 )%stream(2) = 2097216 ! 00200040 F_co3_cw02 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw02 , idomain ) = P_nh4_cw02 ELSE P_nh4_cw02 = chem_index_table( PARAM_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw02 ) = 'nh4_cw02' chem_desc_table( idomain, P_nh4_cw02 ) = 'Ammonium, aerosol in cloud bin 02' chem_units_table( idomain, P_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw02 )%stream(2) = 2097216 ! 00200040 F_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_na_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw02 = chem_num_table(idomain) chem_index_table( PARAM_na_cw02 , idomain ) = P_na_cw02 ELSE P_na_cw02 = chem_index_table( PARAM_na_cw02 , idomain ) END IF chem_boundary_table( idomain, P_na_cw02 ) = .TRUE. chem_dname_table( idomain, P_na_cw02 ) = 'na_cw02' chem_desc_table( idomain, P_na_cw02 ) = 'Sodium, aerosol in cloud bin 02' chem_units_table( idomain, P_na_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw02 )%stream(2) = 2097216 ! 00200040 F_na_cw02 = .TRUE. IF ( chem_index_table( PARAM_ca_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw02 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw02 , idomain ) = P_ca_cw02 ELSE P_ca_cw02 = chem_index_table( PARAM_ca_cw02 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw02 ) = .TRUE. chem_dname_table( idomain, P_ca_cw02 ) = 'ca_cw02' chem_desc_table( idomain, P_ca_cw02 ) = 'Calcium, aerosol in cloud bin 02' chem_units_table( idomain, P_ca_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_cw02 )%stream(2) = 2097216 ! 00200040 F_ca_cw02 = .TRUE. IF ( chem_index_table( PARAM_oin_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw02 , idomain ) = P_oin_cw02 ELSE P_oin_cw02 = chem_index_table( PARAM_oin_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw02 ) = .TRUE. chem_dname_table( idomain, P_oin_cw02 ) = 'oin_cw02' chem_desc_table( idomain, P_oin_cw02 ) = 'Other inorganics, aerosol in cloud bin 02' chem_units_table( idomain, P_oin_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw02 )%stream(2) = 2097216 ! 00200040 F_oin_cw02 = .TRUE. IF ( chem_index_table( PARAM_oc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw02 , idomain ) = P_oc_cw02 ELSE P_oc_cw02 = chem_index_table( PARAM_oc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw02 ) = .TRUE. chem_dname_table( idomain, P_oc_cw02 ) = 'oc_cw02' chem_desc_table( idomain, P_oc_cw02 ) = 'Organic carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_oc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw02 )%stream(2) = 2097216 ! 00200040 F_oc_cw02 = .TRUE. IF ( chem_index_table( PARAM_bc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw02 , idomain ) = P_bc_cw02 ELSE P_bc_cw02 = chem_index_table( PARAM_bc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw02 ) = .TRUE. chem_dname_table( idomain, P_bc_cw02 ) = 'bc_cw02' chem_desc_table( idomain, P_bc_cw02 ) = 'Black carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_bc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw02 )%stream(2) = 2097216 ! 00200040 F_bc_cw02 = .TRUE. IF ( chem_index_table( PARAM_num_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw02 = chem_num_table(idomain) chem_index_table( PARAM_num_cw02 , idomain ) = P_num_cw02 ELSE P_num_cw02 = chem_index_table( PARAM_num_cw02 , idomain ) END IF chem_boundary_table( idomain, P_num_cw02 ) = .TRUE. chem_dname_table( idomain, P_num_cw02 ) = 'num_cw02' chem_desc_table( idomain, P_num_cw02 ) = 'Number, aerosol in cloud bin 02' chem_units_table( idomain, P_num_cw02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw02 )%stream(2) = 2097216 ! 00200040 F_num_cw02 = .TRUE. IF ( chem_index_table( PARAM_so4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw03 , idomain ) = P_so4_cw03 ELSE P_so4_cw03 = chem_index_table( PARAM_so4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw03 ) = .TRUE. chem_dname_table( idomain, P_so4_cw03 ) = 'so4_cw03' chem_desc_table( idomain, P_so4_cw03 ) = 'Sulfate, aerosol in cloud bin 03' chem_units_table( idomain, P_so4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw03 )%stream(2) = 2097216 ! 00200040 F_so4_cw03 = .TRUE. IF ( chem_index_table( PARAM_no3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw03 , idomain ) = P_no3_cw03 ELSE P_no3_cw03 = chem_index_table( PARAM_no3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw03 ) = .TRUE. chem_dname_table( idomain, P_no3_cw03 ) = 'no3_cw03' chem_desc_table( idomain, P_no3_cw03 ) = 'Nitrate, aerosol in cloud bin 03' chem_units_table( idomain, P_no3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw03 )%stream(2) = 2097216 ! 00200040 F_no3_cw03 = .TRUE. IF ( chem_index_table( PARAM_asoax_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoax_cw03 = chem_num_table(idomain) chem_index_table( PARAM_asoax_cw03 , idomain ) = P_asoax_cw03 ELSE P_asoax_cw03 = chem_index_table( PARAM_asoax_cw03 , idomain ) END IF chem_boundary_table( idomain, P_asoax_cw03 ) = .TRUE. chem_dname_table( idomain, P_asoax_cw03 ) = 'asoaX_cw03' chem_desc_table( idomain, P_asoax_cw03 ) = 'SOA Anth. org. conc. with C* value=X ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_asoax_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoax_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoax_cw03 )%stream(2) = 2097216 ! 00200040 F_asoax_cw03 = .TRUE. IF ( chem_index_table( PARAM_asoa1_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1_cw03 = chem_num_table(idomain) chem_index_table( PARAM_asoa1_cw03 , idomain ) = P_asoa1_cw03 ELSE P_asoa1_cw03 = chem_index_table( PARAM_asoa1_cw03 , idomain ) END IF chem_boundary_table( idomain, P_asoa1_cw03 ) = .TRUE. chem_dname_table( idomain, P_asoa1_cw03 ) = 'asoa1_cw03' chem_desc_table( idomain, P_asoa1_cw03 ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_asoa1_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1_cw03 )%stream(2) = 2097216 ! 00200040 F_asoa1_cw03 = .TRUE. IF ( chem_index_table( PARAM_asoa2_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2_cw03 = chem_num_table(idomain) chem_index_table( PARAM_asoa2_cw03 , idomain ) = P_asoa2_cw03 ELSE P_asoa2_cw03 = chem_index_table( PARAM_asoa2_cw03 , idomain ) END IF chem_boundary_table( idomain, P_asoa2_cw03 ) = .TRUE. chem_dname_table( idomain, P_asoa2_cw03 ) = 'asoa2_cw03' chem_desc_table( idomain, P_asoa2_cw03 ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_asoa2_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2_cw03 )%stream(2) = 2097216 ! 00200040 F_asoa2_cw03 = .TRUE. IF ( chem_index_table( PARAM_asoa3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_asoa3_cw03 , idomain ) = P_asoa3_cw03 ELSE P_asoa3_cw03 = chem_index_table( PARAM_asoa3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_asoa3_cw03 ) = .TRUE. chem_dname_table( idomain, P_asoa3_cw03 ) = 'asoa3_cw03' chem_desc_table( idomain, P_asoa3_cw03 ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_asoa3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3_cw03 )%stream(2) = 2097216 ! 00200040 F_asoa3_cw03 = .TRUE. IF ( chem_index_table( PARAM_asoa4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_asoa4_cw03 , idomain ) = P_asoa4_cw03 ELSE P_asoa4_cw03 = chem_index_table( PARAM_asoa4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_asoa4_cw03 ) = .TRUE. chem_dname_table( idomain, P_asoa4_cw03 ) = 'asoa4_cw03' chem_desc_table( idomain, P_asoa4_cw03 ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_asoa4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4_cw03 )%stream(2) = 2097216 ! 00200040 F_asoa4_cw03 = .TRUE. IF ( chem_index_table( PARAM_bsoax_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoax_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bsoax_cw03 , idomain ) = P_bsoax_cw03 ELSE P_bsoax_cw03 = chem_index_table( PARAM_bsoax_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bsoax_cw03 ) = .TRUE. chem_dname_table( idomain, P_bsoax_cw03 ) = 'bsoaX_cw03' chem_desc_table( idomain, P_bsoax_cw03 ) = 'SOA Biog. org. conc. with C* value=X ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_bsoax_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoax_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoax_cw03 )%stream(2) = 2097216 ! 00200040 F_bsoax_cw03 = .TRUE. IF ( chem_index_table( PARAM_bsoa1_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bsoa1_cw03 , idomain ) = P_bsoa1_cw03 ELSE P_bsoa1_cw03 = chem_index_table( PARAM_bsoa1_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bsoa1_cw03 ) = .TRUE. chem_dname_table( idomain, P_bsoa1_cw03 ) = 'bsoa1_cw03' chem_desc_table( idomain, P_bsoa1_cw03 ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_bsoa1_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1_cw03 )%stream(2) = 2097216 ! 00200040 F_bsoa1_cw03 = .TRUE. IF ( chem_index_table( PARAM_bsoa2_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bsoa2_cw03 , idomain ) = P_bsoa2_cw03 ELSE P_bsoa2_cw03 = chem_index_table( PARAM_bsoa2_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bsoa2_cw03 ) = .TRUE. chem_dname_table( idomain, P_bsoa2_cw03 ) = 'bsoa2_cw03' chem_desc_table( idomain, P_bsoa2_cw03 ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_bsoa2_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2_cw03 )%stream(2) = 2097216 ! 00200040 F_bsoa2_cw03 = .TRUE. IF ( chem_index_table( PARAM_bsoa3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bsoa3_cw03 , idomain ) = P_bsoa3_cw03 ELSE P_bsoa3_cw03 = chem_index_table( PARAM_bsoa3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bsoa3_cw03 ) = .TRUE. chem_dname_table( idomain, P_bsoa3_cw03 ) = 'bsoa3_cw03' chem_desc_table( idomain, P_bsoa3_cw03 ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_bsoa3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3_cw03 )%stream(2) = 2097216 ! 00200040 F_bsoa3_cw03 = .TRUE. IF ( chem_index_table( PARAM_bsoa4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bsoa4_cw03 , idomain ) = P_bsoa4_cw03 ELSE P_bsoa4_cw03 = chem_index_table( PARAM_bsoa4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bsoa4_cw03 ) = .TRUE. chem_dname_table( idomain, P_bsoa4_cw03 ) = 'bsoa4_cw03' chem_desc_table( idomain, P_bsoa4_cw03 ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_bsoa4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4_cw03 )%stream(2) = 2097216 ! 00200040 F_bsoa4_cw03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r1_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r1_cw03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r1_cw03 , idomain ) = P_glysoa_r1_cw03 ELSE P_glysoa_r1_cw03 = chem_index_table( PARAM_glysoa_r1_cw03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r1_cw03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r1_cw03 ) = 'glysoa_r1_cw03' chem_desc_table( idomain, P_glysoa_r1_cw03 ) = 'glysoa_r1, aerosol in cloud bin 03' chem_units_table( idomain, P_glysoa_r1_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r1_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_r1_cw03 )%stream(2) = 2097216 ! 00200040 F_glysoa_r1_cw03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r2_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r2_cw03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r2_cw03 , idomain ) = P_glysoa_r2_cw03 ELSE P_glysoa_r2_cw03 = chem_index_table( PARAM_glysoa_r2_cw03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r2_cw03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r2_cw03 ) = 'glysoa_r2_cw03' chem_desc_table( idomain, P_glysoa_r2_cw03 ) = 'glysoa_r2, aerosol in cloud bin 03' chem_units_table( idomain, P_glysoa_r2_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r2_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_r2_cw03 )%stream(2) = 2097216 ! 00200040 F_glysoa_r2_cw03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_cw03 , idomain ) = P_glysoa_sfc_cw03 ELSE P_glysoa_sfc_cw03 = chem_index_table( PARAM_glysoa_sfc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_cw03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_cw03 ) = 'glysoa_sfc_cw03' chem_desc_table( idomain, P_glysoa_sfc_cw03 ) = 'glysoa_sfc, aerosol in cloud bin 03' chem_units_table( idomain, P_glysoa_sfc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_sfc_cw03 )%stream(2) = 2097216 ! 00200040 F_glysoa_sfc_cw03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_nh4_cw03 , idomain ) = P_glysoa_nh4_cw03 ELSE P_glysoa_nh4_cw03 = chem_index_table( PARAM_glysoa_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_nh4_cw03 ) = 'glysoa_nh4_cw03' chem_desc_table( idomain, P_glysoa_nh4_cw03 ) = 'glysoa_nh4, aerosol in cloud bin 03' chem_units_table( idomain, P_glysoa_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_nh4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_nh4_cw03 )%stream(2) = 2097216 ! 00200040 F_glysoa_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_oh_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_oh_cw03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_oh_cw03 , idomain ) = P_glysoa_oh_cw03 ELSE P_glysoa_oh_cw03 = chem_index_table( PARAM_glysoa_oh_cw03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_oh_cw03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_oh_cw03 ) = 'glysoa_oh_cw03' chem_desc_table( idomain, P_glysoa_oh_cw03 ) = 'glysoa_oh, aerosol in cloud bin 03' chem_units_table( idomain, P_glysoa_oh_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_oh_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_oh_cw03 )%stream(2) = 2097216 ! 00200040 F_glysoa_oh_cw03 = .TRUE. IF ( chem_index_table( PARAM_cl_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw03 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw03 , idomain ) = P_cl_cw03 ELSE P_cl_cw03 = chem_index_table( PARAM_cl_cw03 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw03 ) = .TRUE. chem_dname_table( idomain, P_cl_cw03 ) = 'cl_cw03' chem_desc_table( idomain, P_cl_cw03 ) = 'Chloride, aerosol in cloud bin 03' chem_units_table( idomain, P_cl_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw03 )%stream(2) = 2097216 ! 00200040 F_cl_cw03 = .TRUE. IF ( chem_index_table( PARAM_co3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw03 , idomain ) = P_co3_cw03 ELSE P_co3_cw03 = chem_index_table( PARAM_co3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw03 ) = .TRUE. chem_dname_table( idomain, P_co3_cw03 ) = 'co3_cw03' chem_desc_table( idomain, P_co3_cw03 ) = 'Carbonate, aerosol in cloud bin 03' chem_units_table( idomain, P_co3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_cw03 )%stream(2) = 2097216 ! 00200040 F_co3_cw03 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw03 , idomain ) = P_nh4_cw03 ELSE P_nh4_cw03 = chem_index_table( PARAM_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw03 ) = 'nh4_cw03' chem_desc_table( idomain, P_nh4_cw03 ) = 'Ammonium, aerosol in cloud bin 03' chem_units_table( idomain, P_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw03 )%stream(2) = 2097216 ! 00200040 F_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_na_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw03 = chem_num_table(idomain) chem_index_table( PARAM_na_cw03 , idomain ) = P_na_cw03 ELSE P_na_cw03 = chem_index_table( PARAM_na_cw03 , idomain ) END IF chem_boundary_table( idomain, P_na_cw03 ) = .TRUE. chem_dname_table( idomain, P_na_cw03 ) = 'na_cw03' chem_desc_table( idomain, P_na_cw03 ) = 'Sodium, aerosol in cloud bin 03' chem_units_table( idomain, P_na_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw03 )%stream(2) = 2097216 ! 00200040 F_na_cw03 = .TRUE. IF ( chem_index_table( PARAM_ca_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw03 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw03 , idomain ) = P_ca_cw03 ELSE P_ca_cw03 = chem_index_table( PARAM_ca_cw03 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw03 ) = .TRUE. chem_dname_table( idomain, P_ca_cw03 ) = 'ca_cw03' chem_desc_table( idomain, P_ca_cw03 ) = 'Calcium, aerosol in cloud bin 03' chem_units_table( idomain, P_ca_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_cw03 )%stream(2) = 2097216 ! 00200040 F_ca_cw03 = .TRUE. IF ( chem_index_table( PARAM_oin_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw03 , idomain ) = P_oin_cw03 ELSE P_oin_cw03 = chem_index_table( PARAM_oin_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw03 ) = .TRUE. chem_dname_table( idomain, P_oin_cw03 ) = 'oin_cw03' chem_desc_table( idomain, P_oin_cw03 ) = 'Other inorganics, aerosol in cloud bin 03' chem_units_table( idomain, P_oin_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw03 )%stream(2) = 2097216 ! 00200040 F_oin_cw03 = .TRUE. IF ( chem_index_table( PARAM_oc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw03 , idomain ) = P_oc_cw03 ELSE P_oc_cw03 = chem_index_table( PARAM_oc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw03 ) = .TRUE. chem_dname_table( idomain, P_oc_cw03 ) = 'oc_cw03' chem_desc_table( idomain, P_oc_cw03 ) = 'Organic carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_oc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw03 )%stream(2) = 2097216 ! 00200040 F_oc_cw03 = .TRUE. IF ( chem_index_table( PARAM_bc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw03 , idomain ) = P_bc_cw03 ELSE P_bc_cw03 = chem_index_table( PARAM_bc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw03 ) = .TRUE. chem_dname_table( idomain, P_bc_cw03 ) = 'bc_cw03' chem_desc_table( idomain, P_bc_cw03 ) = 'Black carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_bc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw03 )%stream(2) = 2097216 ! 00200040 F_bc_cw03 = .TRUE. IF ( chem_index_table( PARAM_num_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw03 = chem_num_table(idomain) chem_index_table( PARAM_num_cw03 , idomain ) = P_num_cw03 ELSE P_num_cw03 = chem_index_table( PARAM_num_cw03 , idomain ) END IF chem_boundary_table( idomain, P_num_cw03 ) = .TRUE. chem_dname_table( idomain, P_num_cw03 ) = 'num_cw03' chem_desc_table( idomain, P_num_cw03 ) = 'Number, aerosol in cloud bin 03' chem_units_table( idomain, P_num_cw03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw03 )%stream(2) = 2097216 ! 00200040 F_num_cw03 = .TRUE. IF ( chem_index_table( PARAM_so4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw04 , idomain ) = P_so4_cw04 ELSE P_so4_cw04 = chem_index_table( PARAM_so4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw04 ) = .TRUE. chem_dname_table( idomain, P_so4_cw04 ) = 'so4_cw04' chem_desc_table( idomain, P_so4_cw04 ) = 'Sulfate, aerosol in cloud bin 04' chem_units_table( idomain, P_so4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw04 )%stream(2) = 2097216 ! 00200040 F_so4_cw04 = .TRUE. IF ( chem_index_table( PARAM_no3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw04 , idomain ) = P_no3_cw04 ELSE P_no3_cw04 = chem_index_table( PARAM_no3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw04 ) = .TRUE. chem_dname_table( idomain, P_no3_cw04 ) = 'no3_cw04' chem_desc_table( idomain, P_no3_cw04 ) = 'Nitrate, aerosol in cloud bin 04' chem_units_table( idomain, P_no3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw04 )%stream(2) = 2097216 ! 00200040 F_no3_cw04 = .TRUE. IF ( chem_index_table( PARAM_asoax_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoax_cw04 = chem_num_table(idomain) chem_index_table( PARAM_asoax_cw04 , idomain ) = P_asoax_cw04 ELSE P_asoax_cw04 = chem_index_table( PARAM_asoax_cw04 , idomain ) END IF chem_boundary_table( idomain, P_asoax_cw04 ) = .TRUE. chem_dname_table( idomain, P_asoax_cw04 ) = 'asoaX_cw04' chem_desc_table( idomain, P_asoax_cw04 ) = 'SOA Anth. org. conc. with C* value=X ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_asoax_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoax_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoax_cw04 )%stream(2) = 2097216 ! 00200040 F_asoax_cw04 = .TRUE. IF ( chem_index_table( PARAM_asoa1_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1_cw04 = chem_num_table(idomain) chem_index_table( PARAM_asoa1_cw04 , idomain ) = P_asoa1_cw04 ELSE P_asoa1_cw04 = chem_index_table( PARAM_asoa1_cw04 , idomain ) END IF chem_boundary_table( idomain, P_asoa1_cw04 ) = .TRUE. chem_dname_table( idomain, P_asoa1_cw04 ) = 'asoa1_cw04' chem_desc_table( idomain, P_asoa1_cw04 ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_asoa1_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa1_cw04 )%stream(2) = 2097216 ! 00200040 F_asoa1_cw04 = .TRUE. IF ( chem_index_table( PARAM_asoa2_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2_cw04 = chem_num_table(idomain) chem_index_table( PARAM_asoa2_cw04 , idomain ) = P_asoa2_cw04 ELSE P_asoa2_cw04 = chem_index_table( PARAM_asoa2_cw04 , idomain ) END IF chem_boundary_table( idomain, P_asoa2_cw04 ) = .TRUE. chem_dname_table( idomain, P_asoa2_cw04 ) = 'asoa2_cw04' chem_desc_table( idomain, P_asoa2_cw04 ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_asoa2_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa2_cw04 )%stream(2) = 2097216 ! 00200040 F_asoa2_cw04 = .TRUE. IF ( chem_index_table( PARAM_asoa3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_asoa3_cw04 , idomain ) = P_asoa3_cw04 ELSE P_asoa3_cw04 = chem_index_table( PARAM_asoa3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_asoa3_cw04 ) = .TRUE. chem_dname_table( idomain, P_asoa3_cw04 ) = 'asoa3_cw04' chem_desc_table( idomain, P_asoa3_cw04 ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_asoa3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa3_cw04 )%stream(2) = 2097216 ! 00200040 F_asoa3_cw04 = .TRUE. IF ( chem_index_table( PARAM_asoa4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_asoa4_cw04 , idomain ) = P_asoa4_cw04 ELSE P_asoa4_cw04 = chem_index_table( PARAM_asoa4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_asoa4_cw04 ) = .TRUE. chem_dname_table( idomain, P_asoa4_cw04 ) = 'asoa4_cw04' chem_desc_table( idomain, P_asoa4_cw04 ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_asoa4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_asoa4_cw04 )%stream(2) = 2097216 ! 00200040 F_asoa4_cw04 = .TRUE. IF ( chem_index_table( PARAM_bsoax_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoax_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bsoax_cw04 , idomain ) = P_bsoax_cw04 ELSE P_bsoax_cw04 = chem_index_table( PARAM_bsoax_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bsoax_cw04 ) = .TRUE. chem_dname_table( idomain, P_bsoax_cw04 ) = 'bsoaX_cw04' chem_desc_table( idomain, P_bsoax_cw04 ) = 'SOA Biog. org. conc. with C* value=X ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_bsoax_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoax_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoax_cw04 )%stream(2) = 2097216 ! 00200040 F_bsoax_cw04 = .TRUE. IF ( chem_index_table( PARAM_bsoa1_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bsoa1_cw04 , idomain ) = P_bsoa1_cw04 ELSE P_bsoa1_cw04 = chem_index_table( PARAM_bsoa1_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bsoa1_cw04 ) = .TRUE. chem_dname_table( idomain, P_bsoa1_cw04 ) = 'bsoa1_cw04' chem_desc_table( idomain, P_bsoa1_cw04 ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_bsoa1_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa1_cw04 )%stream(2) = 2097216 ! 00200040 F_bsoa1_cw04 = .TRUE. IF ( chem_index_table( PARAM_bsoa2_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bsoa2_cw04 , idomain ) = P_bsoa2_cw04 ELSE P_bsoa2_cw04 = chem_index_table( PARAM_bsoa2_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bsoa2_cw04 ) = .TRUE. chem_dname_table( idomain, P_bsoa2_cw04 ) = 'bsoa2_cw04' chem_desc_table( idomain, P_bsoa2_cw04 ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_bsoa2_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa2_cw04 )%stream(2) = 2097216 ! 00200040 F_bsoa2_cw04 = .TRUE. IF ( chem_index_table( PARAM_bsoa3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bsoa3_cw04 , idomain ) = P_bsoa3_cw04 ELSE P_bsoa3_cw04 = chem_index_table( PARAM_bsoa3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bsoa3_cw04 ) = .TRUE. chem_dname_table( idomain, P_bsoa3_cw04 ) = 'bsoa3_cw04' chem_desc_table( idomain, P_bsoa3_cw04 ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_bsoa3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa3_cw04 )%stream(2) = 2097216 ! 00200040 F_bsoa3_cw04 = .TRUE. IF ( chem_index_table( PARAM_bsoa4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bsoa4_cw04 , idomain ) = P_bsoa4_cw04 ELSE P_bsoa4_cw04 = chem_index_table( PARAM_bsoa4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bsoa4_cw04 ) = .TRUE. chem_dname_table( idomain, P_bsoa4_cw04 ) = 'bsoa4_cw04' chem_desc_table( idomain, P_bsoa4_cw04 ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_bsoa4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bsoa4_cw04 )%stream(2) = 2097216 ! 00200040 F_bsoa4_cw04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r1_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r1_cw04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r1_cw04 , idomain ) = P_glysoa_r1_cw04 ELSE P_glysoa_r1_cw04 = chem_index_table( PARAM_glysoa_r1_cw04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r1_cw04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r1_cw04 ) = 'glysoa_r1_cw04' chem_desc_table( idomain, P_glysoa_r1_cw04 ) = 'glysoa_r1, aerosol in cloud bin 04' chem_units_table( idomain, P_glysoa_r1_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r1_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_r1_cw04 )%stream(2) = 2097216 ! 00200040 F_glysoa_r1_cw04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r2_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r2_cw04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r2_cw04 , idomain ) = P_glysoa_r2_cw04 ELSE P_glysoa_r2_cw04 = chem_index_table( PARAM_glysoa_r2_cw04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r2_cw04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r2_cw04 ) = 'glysoa_r2_cw04' chem_desc_table( idomain, P_glysoa_r2_cw04 ) = 'glysoa_r2, aerosol in cloud bin 04' chem_units_table( idomain, P_glysoa_r2_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r2_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_r2_cw04 )%stream(2) = 2097216 ! 00200040 F_glysoa_r2_cw04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_cw04 , idomain ) = P_glysoa_sfc_cw04 ELSE P_glysoa_sfc_cw04 = chem_index_table( PARAM_glysoa_sfc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_cw04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_cw04 ) = 'glysoa_sfc_cw04' chem_desc_table( idomain, P_glysoa_sfc_cw04 ) = 'glysoa_sfc, aerosol in cloud bin 04' chem_units_table( idomain, P_glysoa_sfc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_sfc_cw04 )%stream(2) = 2097216 ! 00200040 F_glysoa_sfc_cw04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_nh4_cw04 , idomain ) = P_glysoa_nh4_cw04 ELSE P_glysoa_nh4_cw04 = chem_index_table( PARAM_glysoa_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_nh4_cw04 ) = 'glysoa_nh4_cw04' chem_desc_table( idomain, P_glysoa_nh4_cw04 ) = 'glysoa_nh4, aerosol in cloud bin 04' chem_units_table( idomain, P_glysoa_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_nh4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_nh4_cw04 )%stream(2) = 2097216 ! 00200040 F_glysoa_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_oh_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_oh_cw04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_oh_cw04 , idomain ) = P_glysoa_oh_cw04 ELSE P_glysoa_oh_cw04 = chem_index_table( PARAM_glysoa_oh_cw04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_oh_cw04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_oh_cw04 ) = 'glysoa_oh_cw04' chem_desc_table( idomain, P_glysoa_oh_cw04 ) = 'glysoa_oh, aerosol in cloud bin 04' chem_units_table( idomain, P_glysoa_oh_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_oh_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_glysoa_oh_cw04 )%stream(2) = 2097216 ! 00200040 F_glysoa_oh_cw04 = .TRUE. IF ( chem_index_table( PARAM_cl_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw04 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw04 , idomain ) = P_cl_cw04 ELSE P_cl_cw04 = chem_index_table( PARAM_cl_cw04 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw04 ) = .TRUE. chem_dname_table( idomain, P_cl_cw04 ) = 'cl_cw04' chem_desc_table( idomain, P_cl_cw04 ) = 'Chloride, aerosol in cloud bin 04' chem_units_table( idomain, P_cl_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw04 )%stream(2) = 2097216 ! 00200040 F_cl_cw04 = .TRUE. IF ( chem_index_table( PARAM_co3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw04 , idomain ) = P_co3_cw04 ELSE P_co3_cw04 = chem_index_table( PARAM_co3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw04 ) = .TRUE. chem_dname_table( idomain, P_co3_cw04 ) = 'co3_cw04' chem_desc_table( idomain, P_co3_cw04 ) = 'Carbonate, aerosol in cloud bin 04' chem_units_table( idomain, P_co3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co3_cw04 )%stream(2) = 2097216 ! 00200040 F_co3_cw04 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw04 , idomain ) = P_nh4_cw04 ELSE P_nh4_cw04 = chem_index_table( PARAM_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw04 ) = 'nh4_cw04' chem_desc_table( idomain, P_nh4_cw04 ) = 'Ammonium, aerosol in cloud bin 04' chem_units_table( idomain, P_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw04 )%stream(2) = 2097216 ! 00200040 F_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_na_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw04 = chem_num_table(idomain) chem_index_table( PARAM_na_cw04 , idomain ) = P_na_cw04 ELSE P_na_cw04 = chem_index_table( PARAM_na_cw04 , idomain ) END IF chem_boundary_table( idomain, P_na_cw04 ) = .TRUE. chem_dname_table( idomain, P_na_cw04 ) = 'na_cw04' chem_desc_table( idomain, P_na_cw04 ) = 'Sodium, aerosol in cloud bin 04' chem_units_table( idomain, P_na_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw04 )%stream(2) = 2097216 ! 00200040 F_na_cw04 = .TRUE. IF ( chem_index_table( PARAM_ca_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw04 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw04 , idomain ) = P_ca_cw04 ELSE P_ca_cw04 = chem_index_table( PARAM_ca_cw04 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw04 ) = .TRUE. chem_dname_table( idomain, P_ca_cw04 ) = 'ca_cw04' chem_desc_table( idomain, P_ca_cw04 ) = 'Calcium, aerosol in cloud bin 04' chem_units_table( idomain, P_ca_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ca_cw04 )%stream(2) = 2097216 ! 00200040 F_ca_cw04 = .TRUE. IF ( chem_index_table( PARAM_oin_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw04 , idomain ) = P_oin_cw04 ELSE P_oin_cw04 = chem_index_table( PARAM_oin_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw04 ) = .TRUE. chem_dname_table( idomain, P_oin_cw04 ) = 'oin_cw04' chem_desc_table( idomain, P_oin_cw04 ) = 'Other inorganics, aerosol in cloud bin 04' chem_units_table( idomain, P_oin_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw04 )%stream(2) = 2097216 ! 00200040 F_oin_cw04 = .TRUE. IF ( chem_index_table( PARAM_oc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw04 , idomain ) = P_oc_cw04 ELSE P_oc_cw04 = chem_index_table( PARAM_oc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw04 ) = .TRUE. chem_dname_table( idomain, P_oc_cw04 ) = 'oc_cw04' chem_desc_table( idomain, P_oc_cw04 ) = 'Organic carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_oc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw04 )%stream(2) = 2097216 ! 00200040 F_oc_cw04 = .TRUE. IF ( chem_index_table( PARAM_bc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw04 , idomain ) = P_bc_cw04 ELSE P_bc_cw04 = chem_index_table( PARAM_bc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw04 ) = .TRUE. chem_dname_table( idomain, P_bc_cw04 ) = 'bc_cw04' chem_desc_table( idomain, P_bc_cw04 ) = 'Black carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_bc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw04 )%stream(2) = 2097216 ! 00200040 F_bc_cw04 = .TRUE. IF ( chem_index_table( PARAM_num_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw04 = chem_num_table(idomain) chem_index_table( PARAM_num_cw04 , idomain ) = P_num_cw04 ELSE P_num_cw04 = chem_index_table( PARAM_num_cw04 , idomain ) END IF chem_boundary_table( idomain, P_num_cw04 ) = .TRUE. chem_dname_table( idomain, P_num_cw04 ) = 'num_cw04' chem_desc_table( idomain, P_num_cw04 ) = 'Number, aerosol in cloud bin 04' chem_units_table( idomain, P_num_cw04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw04 )%stream(2) = 2097216 ! 00200040 F_num_cw04 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==203)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_h2so4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2so4 = chem_num_table(idomain) chem_index_table( PARAM_h2so4 , idomain ) = P_h2so4 ELSE P_h2so4 = chem_index_table( PARAM_h2so4 , idomain ) END IF chem_boundary_table( idomain, P_h2so4 ) = .TRUE. chem_dname_table( idomain, P_h2so4 ) = 'h2so4' chem_desc_table( idomain, P_h2so4 ) = 'H2SO4 mixing ratio' chem_units_table( idomain, P_h2so4 ) = 'ppmv' chem_streams_table( idomain, P_h2so4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2so4 )%stream(2) = 2097216 ! 00200040 F_h2so4 = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ccho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ccho = chem_num_table(idomain) chem_index_table( PARAM_ccho , idomain ) = P_ccho ELSE P_ccho = chem_index_table( PARAM_ccho , idomain ) END IF chem_boundary_table( idomain, P_ccho ) = .TRUE. chem_dname_table( idomain, P_ccho ) = 'ccho' chem_desc_table( idomain, P_ccho ) = 'CCHO mixing ratio' chem_units_table( idomain, P_ccho ) = 'ppmv' chem_streams_table( idomain, P_ccho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ccho )%stream(2) = 2097216 ! 00200040 F_ccho = .TRUE. IF ( chem_index_table( PARAM_rcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rcho = chem_num_table(idomain) chem_index_table( PARAM_rcho , idomain ) = P_rcho ELSE P_rcho = chem_index_table( PARAM_rcho , idomain ) END IF chem_boundary_table( idomain, P_rcho ) = .TRUE. chem_dname_table( idomain, P_rcho ) = 'rcho' chem_desc_table( idomain, P_rcho ) = 'RCHO mixing ratio' chem_units_table( idomain, P_rcho ) = 'ppmv' chem_streams_table( idomain, P_rcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rcho )%stream(2) = 2097216 ! 00200040 F_rcho = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 ! 00200040 F_acet = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 ! 00200040 F_mek = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 ! 00200040 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_meoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meoh = chem_num_table(idomain) chem_index_table( PARAM_meoh , idomain ) = P_meoh ELSE P_meoh = chem_index_table( PARAM_meoh , idomain ) END IF chem_boundary_table( idomain, P_meoh ) = .TRUE. chem_dname_table( idomain, P_meoh ) = 'meoh' chem_desc_table( idomain, P_meoh ) = '' chem_units_table( idomain, P_meoh ) = '' chem_streams_table( idomain, P_meoh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_meoh )%stream(2) = 2097216 ! 00200040 F_meoh = .TRUE. IF ( chem_index_table( PARAM_etoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etoh = chem_num_table(idomain) chem_index_table( PARAM_etoh , idomain ) = P_etoh ELSE P_etoh = chem_index_table( PARAM_etoh , idomain ) END IF chem_boundary_table( idomain, P_etoh ) = .TRUE. chem_dname_table( idomain, P_etoh ) = 'etoh' chem_desc_table( idomain, P_etoh ) = 'ETOH mixing ratio' chem_units_table( idomain, P_etoh ) = 'ppmv' chem_streams_table( idomain, P_etoh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_etoh )%stream(2) = 2097216 ! 00200040 F_etoh = .TRUE. IF ( chem_index_table( PARAM_cco_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_oh = chem_num_table(idomain) chem_index_table( PARAM_cco_oh , idomain ) = P_cco_oh ELSE P_cco_oh = chem_index_table( PARAM_cco_oh , idomain ) END IF chem_boundary_table( idomain, P_cco_oh ) = .TRUE. chem_dname_table( idomain, P_cco_oh ) = 'cco_oh' chem_desc_table( idomain, P_cco_oh ) = 'CCO_OH mixing ratio' chem_units_table( idomain, P_cco_oh ) = 'ppmv' chem_streams_table( idomain, P_cco_oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cco_oh )%stream(2) = 2097216 ! 00200040 F_cco_oh = .TRUE. IF ( chem_index_table( PARAM_rco_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_oh = chem_num_table(idomain) chem_index_table( PARAM_rco_oh , idomain ) = P_rco_oh ELSE P_rco_oh = chem_index_table( PARAM_rco_oh , idomain ) END IF chem_boundary_table( idomain, P_rco_oh ) = .TRUE. chem_dname_table( idomain, P_rco_oh ) = 'rco_oh' chem_desc_table( idomain, P_rco_oh ) = 'RCO_OH mixing ratio' chem_units_table( idomain, P_rco_oh ) = 'ppmv' chem_streams_table( idomain, P_rco_oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rco_oh )%stream(2) = 2097216 ! 00200040 F_rco_oh = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_bacl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bacl = chem_num_table(idomain) chem_index_table( PARAM_bacl , idomain ) = P_bacl ELSE P_bacl = chem_index_table( PARAM_bacl , idomain ) END IF chem_boundary_table( idomain, P_bacl ) = .TRUE. chem_dname_table( idomain, P_bacl ) = 'bacl' chem_desc_table( idomain, P_bacl ) = 'BACL mixing ratio' chem_units_table( idomain, P_bacl ) = 'ppmv' chem_streams_table( idomain, P_bacl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bacl )%stream(2) = 2097216 ! 00200040 F_bacl = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 ! 00200040 F_cres = .TRUE. IF ( chem_index_table( PARAM_bald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bald = chem_num_table(idomain) chem_index_table( PARAM_bald , idomain ) = P_bald ELSE P_bald = chem_index_table( PARAM_bald , idomain ) END IF chem_boundary_table( idomain, P_bald ) = .TRUE. chem_dname_table( idomain, P_bald ) = 'bald' chem_desc_table( idomain, P_bald ) = 'BALD mixing ratio' chem_units_table( idomain, P_bald ) = 'ppmv' chem_streams_table( idomain, P_bald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bald )%stream(2) = 2097216 ! 00200040 F_bald = .TRUE. IF ( chem_index_table( PARAM_isoprod , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprod = chem_num_table(idomain) chem_index_table( PARAM_isoprod , idomain ) = P_isoprod ELSE P_isoprod = chem_index_table( PARAM_isoprod , idomain ) END IF chem_boundary_table( idomain, P_isoprod ) = .TRUE. chem_dname_table( idomain, P_isoprod ) = 'isoprod' chem_desc_table( idomain, P_isoprod ) = 'ISOPROD mixing ratio' chem_units_table( idomain, P_isoprod ) = 'ppmv' chem_streams_table( idomain, P_isoprod )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprod )%stream(2) = 2097216 ! 00200040 F_isoprod = .TRUE. IF ( chem_index_table( PARAM_methacro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_methacro = chem_num_table(idomain) chem_index_table( PARAM_methacro , idomain ) = P_methacro ELSE P_methacro = chem_index_table( PARAM_methacro , idomain ) END IF chem_boundary_table( idomain, P_methacro ) = .TRUE. chem_dname_table( idomain, P_methacro ) = 'methacro' chem_desc_table( idomain, P_methacro ) = 'METHACRO mixing ratio' chem_units_table( idomain, P_methacro ) = 'ppmv' chem_streams_table( idomain, P_methacro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_methacro )%stream(2) = 2097216 ! 00200040 F_methacro = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 ! 00200040 F_mvk = .TRUE. IF ( chem_index_table( PARAM_prod2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prod2 = chem_num_table(idomain) chem_index_table( PARAM_prod2 , idomain ) = P_prod2 ELSE P_prod2 = chem_index_table( PARAM_prod2 , idomain ) END IF chem_boundary_table( idomain, P_prod2 ) = .TRUE. chem_dname_table( idomain, P_prod2 ) = 'prod2' chem_desc_table( idomain, P_prod2 ) = 'PROD2 mixing ratio' chem_units_table( idomain, P_prod2 ) = 'ppmv' chem_streams_table( idomain, P_prod2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_prod2 )%stream(2) = 2097216 ! 00200040 F_prod2 = .TRUE. IF ( chem_index_table( PARAM_dcb1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb1 = chem_num_table(idomain) chem_index_table( PARAM_dcb1 , idomain ) = P_dcb1 ELSE P_dcb1 = chem_index_table( PARAM_dcb1 , idomain ) END IF chem_boundary_table( idomain, P_dcb1 ) = .TRUE. chem_dname_table( idomain, P_dcb1 ) = 'dcb1' chem_desc_table( idomain, P_dcb1 ) = 'DCB1 mixing ratio' chem_units_table( idomain, P_dcb1 ) = 'ppmv' chem_streams_table( idomain, P_dcb1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb1 )%stream(2) = 2097216 ! 00200040 F_dcb1 = .TRUE. IF ( chem_index_table( PARAM_dcb2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb2 = chem_num_table(idomain) chem_index_table( PARAM_dcb2 , idomain ) = P_dcb2 ELSE P_dcb2 = chem_index_table( PARAM_dcb2 , idomain ) END IF chem_boundary_table( idomain, P_dcb2 ) = .TRUE. chem_dname_table( idomain, P_dcb2 ) = 'dcb2' chem_desc_table( idomain, P_dcb2 ) = 'DCB2 mixing ratio' chem_units_table( idomain, P_dcb2 ) = 'ppmv' chem_streams_table( idomain, P_dcb2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb2 )%stream(2) = 2097216 ! 00200040 F_dcb2 = .TRUE. IF ( chem_index_table( PARAM_dcb3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb3 = chem_num_table(idomain) chem_index_table( PARAM_dcb3 , idomain ) = P_dcb3 ELSE P_dcb3 = chem_index_table( PARAM_dcb3 , idomain ) END IF chem_boundary_table( idomain, P_dcb3 ) = .TRUE. chem_dname_table( idomain, P_dcb3 ) = 'dcb3' chem_desc_table( idomain, P_dcb3 ) = 'DCB3 mixing ratio' chem_units_table( idomain, P_dcb3 ) = 'ppmv' chem_streams_table( idomain, P_dcb3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb3 )%stream(2) = 2097216 ! 00200040 F_dcb3 = .TRUE. IF ( chem_index_table( PARAM_ethene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethene = chem_num_table(idomain) chem_index_table( PARAM_ethene , idomain ) = P_ethene ELSE P_ethene = chem_index_table( PARAM_ethene , idomain ) END IF chem_boundary_table( idomain, P_ethene ) = .TRUE. chem_dname_table( idomain, P_ethene ) = 'ethene' chem_desc_table( idomain, P_ethene ) = 'ETHENE mixing ratio' chem_units_table( idomain, P_ethene ) = 'ppmv' chem_streams_table( idomain, P_ethene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethene )%stream(2) = 2097216 ! 00200040 F_ethene = .TRUE. IF ( chem_index_table( PARAM_isoprene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprene = chem_num_table(idomain) chem_index_table( PARAM_isoprene , idomain ) = P_isoprene ELSE P_isoprene = chem_index_table( PARAM_isoprene , idomain ) END IF chem_boundary_table( idomain, P_isoprene ) = .TRUE. chem_dname_table( idomain, P_isoprene ) = 'isoprene' chem_desc_table( idomain, P_isoprene ) = 'ISOPRENE mixing ratio' chem_units_table( idomain, P_isoprene ) = 'ppmv' chem_streams_table( idomain, P_isoprene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprene )%stream(2) = 2097216 ! 00200040 F_isoprene = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 ! 00200040 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 ! 00200040 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 ! 00200040 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 ! 00200040 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_alk3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk3 = chem_num_table(idomain) chem_index_table( PARAM_alk3 , idomain ) = P_alk3 ELSE P_alk3 = chem_index_table( PARAM_alk3 , idomain ) END IF chem_boundary_table( idomain, P_alk3 ) = .TRUE. chem_dname_table( idomain, P_alk3 ) = 'alk3' chem_desc_table( idomain, P_alk3 ) = 'ALK3 mixing ratio' chem_units_table( idomain, P_alk3 ) = 'ppmv' chem_streams_table( idomain, P_alk3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk3 )%stream(2) = 2097216 ! 00200040 F_alk3 = .TRUE. IF ( chem_index_table( PARAM_alk4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk4 = chem_num_table(idomain) chem_index_table( PARAM_alk4 , idomain ) = P_alk4 ELSE P_alk4 = chem_index_table( PARAM_alk4 , idomain ) END IF chem_boundary_table( idomain, P_alk4 ) = .TRUE. chem_dname_table( idomain, P_alk4 ) = 'alk4' chem_desc_table( idomain, P_alk4 ) = 'ALK4 mixing ratio' chem_units_table( idomain, P_alk4 ) = 'ppmv' chem_streams_table( idomain, P_alk4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk4 )%stream(2) = 2097216 ! 00200040 F_alk4 = .TRUE. IF ( chem_index_table( PARAM_alk5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk5 = chem_num_table(idomain) chem_index_table( PARAM_alk5 , idomain ) = P_alk5 ELSE P_alk5 = chem_index_table( PARAM_alk5 , idomain ) END IF chem_boundary_table( idomain, P_alk5 ) = .TRUE. chem_dname_table( idomain, P_alk5 ) = 'alk5' chem_desc_table( idomain, P_alk5 ) = 'ALK5 mixing ratio' chem_units_table( idomain, P_alk5 ) = 'ppmv' chem_streams_table( idomain, P_alk5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk5 )%stream(2) = 2097216 ! 00200040 F_alk5 = .TRUE. IF ( chem_index_table( PARAM_aro1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1 = chem_num_table(idomain) chem_index_table( PARAM_aro1 , idomain ) = P_aro1 ELSE P_aro1 = chem_index_table( PARAM_aro1 , idomain ) END IF chem_boundary_table( idomain, P_aro1 ) = .TRUE. chem_dname_table( idomain, P_aro1 ) = 'aro1' chem_desc_table( idomain, P_aro1 ) = 'ARO1 mixing ratio' chem_units_table( idomain, P_aro1 ) = 'ppmv' chem_streams_table( idomain, P_aro1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro1 )%stream(2) = 2097216 ! 00200040 F_aro1 = .TRUE. IF ( chem_index_table( PARAM_aro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2 = chem_num_table(idomain) chem_index_table( PARAM_aro2 , idomain ) = P_aro2 ELSE P_aro2 = chem_index_table( PARAM_aro2 , idomain ) END IF chem_boundary_table( idomain, P_aro2 ) = .TRUE. chem_dname_table( idomain, P_aro2 ) = 'aro2' chem_desc_table( idomain, P_aro2 ) = 'ARO2 mixing ratio' chem_units_table( idomain, P_aro2 ) = 'ppmv' chem_streams_table( idomain, P_aro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro2 )%stream(2) = 2097216 ! 00200040 F_aro2 = .TRUE. IF ( chem_index_table( PARAM_ole1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1 = chem_num_table(idomain) chem_index_table( PARAM_ole1 , idomain ) = P_ole1 ELSE P_ole1 = chem_index_table( PARAM_ole1 , idomain ) END IF chem_boundary_table( idomain, P_ole1 ) = .TRUE. chem_dname_table( idomain, P_ole1 ) = 'ole1' chem_desc_table( idomain, P_ole1 ) = 'OLE1 mixing ratio' chem_units_table( idomain, P_ole1 ) = 'ppmv' chem_streams_table( idomain, P_ole1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole1 )%stream(2) = 2097216 ! 00200040 F_ole1 = .TRUE. IF ( chem_index_table( PARAM_ole2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole2 = chem_num_table(idomain) chem_index_table( PARAM_ole2 , idomain ) = P_ole2 ELSE P_ole2 = chem_index_table( PARAM_ole2 , idomain ) END IF chem_boundary_table( idomain, P_ole2 ) = .TRUE. chem_dname_table( idomain, P_ole2 ) = 'ole2' chem_desc_table( idomain, P_ole2 ) = 'OLE2 mixing ratio' chem_units_table( idomain, P_ole2 ) = 'ppmv' chem_streams_table( idomain, P_ole2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole2 )%stream(2) = 2097216 ! 00200040 F_ole2 = .TRUE. IF ( chem_index_table( PARAM_terp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp = chem_num_table(idomain) chem_index_table( PARAM_terp , idomain ) = P_terp ELSE P_terp = chem_index_table( PARAM_terp , idomain ) END IF chem_boundary_table( idomain, P_terp ) = .TRUE. chem_dname_table( idomain, P_terp ) = 'terp' chem_desc_table( idomain, P_terp ) = 'TERP mixing ratio' chem_units_table( idomain, P_terp ) = 'ppmv' chem_streams_table( idomain, P_terp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terp )%stream(2) = 2097216 ! 00200040 F_terp = .TRUE. IF ( chem_index_table( PARAM_rno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rno3 = chem_num_table(idomain) chem_index_table( PARAM_rno3 , idomain ) = P_rno3 ELSE P_rno3 = chem_index_table( PARAM_rno3 , idomain ) END IF chem_boundary_table( idomain, P_rno3 ) = .TRUE. chem_dname_table( idomain, P_rno3 ) = 'rno3' chem_desc_table( idomain, P_rno3 ) = 'RNO3 mixing ratio' chem_units_table( idomain, P_rno3 ) = 'ppmv' chem_streams_table( idomain, P_rno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rno3 )%stream(2) = 2097216 ! 00200040 F_rno3 = .TRUE. IF ( chem_index_table( PARAM_nphe , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nphe = chem_num_table(idomain) chem_index_table( PARAM_nphe , idomain ) = P_nphe ELSE P_nphe = chem_index_table( PARAM_nphe , idomain ) END IF chem_boundary_table( idomain, P_nphe ) = .TRUE. chem_dname_table( idomain, P_nphe ) = 'nphe' chem_desc_table( idomain, P_nphe ) = 'NPHE mixing ratio' chem_units_table( idomain, P_nphe ) = 'ppmv' chem_streams_table( idomain, P_nphe )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nphe )%stream(2) = 2097216 ! 00200040 F_nphe = .TRUE. IF ( chem_index_table( PARAM_phen , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phen = chem_num_table(idomain) chem_index_table( PARAM_phen , idomain ) = P_phen ELSE P_phen = chem_index_table( PARAM_phen , idomain ) END IF chem_boundary_table( idomain, P_phen ) = .TRUE. chem_dname_table( idomain, P_phen ) = 'phen' chem_desc_table( idomain, P_phen ) = 'PHEN mixing ratio' chem_units_table( idomain, P_phen ) = 'ppmv' chem_streams_table( idomain, P_phen )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_phen )%stream(2) = 2097216 ! 00200040 F_phen = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_pan2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan2 = chem_num_table(idomain) chem_index_table( PARAM_pan2 , idomain ) = P_pan2 ELSE P_pan2 = chem_index_table( PARAM_pan2 , idomain ) END IF chem_boundary_table( idomain, P_pan2 ) = .TRUE. chem_dname_table( idomain, P_pan2 ) = 'pan2' chem_desc_table( idomain, P_pan2 ) = 'PAN2 mixing ratio' chem_units_table( idomain, P_pan2 ) = 'ppmv' chem_streams_table( idomain, P_pan2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan2 )%stream(2) = 2097216 ! 00200040 F_pan2 = .TRUE. IF ( chem_index_table( PARAM_pbzn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pbzn = chem_num_table(idomain) chem_index_table( PARAM_pbzn , idomain ) = P_pbzn ELSE P_pbzn = chem_index_table( PARAM_pbzn , idomain ) END IF chem_boundary_table( idomain, P_pbzn ) = .TRUE. chem_dname_table( idomain, P_pbzn ) = 'pbzn' chem_desc_table( idomain, P_pbzn ) = 'PBZN mixing ratio' chem_units_table( idomain, P_pbzn ) = 'ppmv' chem_streams_table( idomain, P_pbzn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pbzn )%stream(2) = 2097216 ! 00200040 F_pbzn = .TRUE. IF ( chem_index_table( PARAM_ma_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ma_pan = chem_num_table(idomain) chem_index_table( PARAM_ma_pan , idomain ) = P_ma_pan ELSE P_ma_pan = chem_index_table( PARAM_ma_pan , idomain ) END IF chem_boundary_table( idomain, P_ma_pan ) = .TRUE. chem_dname_table( idomain, P_ma_pan ) = 'ma_pan' chem_desc_table( idomain, P_ma_pan ) = 'MA_PAN mixing ratio' chem_units_table( idomain, P_ma_pan ) = 'ppmv' chem_streams_table( idomain, P_ma_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ma_pan )%stream(2) = 2097216 ! 00200040 F_ma_pan = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_cco_ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_ooh = chem_num_table(idomain) chem_index_table( PARAM_cco_ooh , idomain ) = P_cco_ooh ELSE P_cco_ooh = chem_index_table( PARAM_cco_ooh , idomain ) END IF chem_boundary_table( idomain, P_cco_ooh ) = .TRUE. chem_dname_table( idomain, P_cco_ooh ) = 'cco_ooh' chem_desc_table( idomain, P_cco_ooh ) = 'CCO_OOH mixing ratio' chem_units_table( idomain, P_cco_ooh ) = 'ppmv' chem_streams_table( idomain, P_cco_ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cco_ooh )%stream(2) = 2097216 ! 00200040 F_cco_ooh = .TRUE. IF ( chem_index_table( PARAM_rco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_o2 = chem_num_table(idomain) chem_index_table( PARAM_rco_o2 , idomain ) = P_rco_o2 ELSE P_rco_o2 = chem_index_table( PARAM_rco_o2 , idomain ) END IF chem_boundary_table( idomain, P_rco_o2 ) = .TRUE. chem_dname_table( idomain, P_rco_o2 ) = 'rco_o2' chem_desc_table( idomain, P_rco_o2 ) = 'RCO_O2 mixing ratio' chem_units_table( idomain, P_rco_o2 ) = 'ppmv' chem_streams_table( idomain, P_rco_o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rco_o2 )%stream(2) = 2097216 ! 00200040 F_rco_o2 = .TRUE. IF ( chem_index_table( PARAM_rco_ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_ooh = chem_num_table(idomain) chem_index_table( PARAM_rco_ooh , idomain ) = P_rco_ooh ELSE P_rco_ooh = chem_index_table( PARAM_rco_ooh , idomain ) END IF chem_boundary_table( idomain, P_rco_ooh ) = .TRUE. chem_dname_table( idomain, P_rco_ooh ) = 'rco_ooh' chem_desc_table( idomain, P_rco_ooh ) = 'RCO_OOH mixing ratio' chem_units_table( idomain, P_rco_ooh ) = 'ppmv' chem_streams_table( idomain, P_rco_ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rco_ooh )%stream(2) = 2097216 ! 00200040 F_rco_ooh = .TRUE. IF ( chem_index_table( PARAM_xn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xn = chem_num_table(idomain) chem_index_table( PARAM_xn , idomain ) = P_xn ELSE P_xn = chem_index_table( PARAM_xn , idomain ) END IF chem_boundary_table( idomain, P_xn ) = .TRUE. chem_dname_table( idomain, P_xn ) = 'xn' chem_desc_table( idomain, P_xn ) = 'XN mixing ratio' chem_units_table( idomain, P_xn ) = 'ppmv' chem_streams_table( idomain, P_xn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xn )%stream(2) = 2097216 ! 00200040 F_xn = .TRUE. IF ( chem_index_table( PARAM_xc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xc = chem_num_table(idomain) chem_index_table( PARAM_xc , idomain ) = P_xc ELSE P_xc = chem_index_table( PARAM_xc , idomain ) END IF chem_boundary_table( idomain, P_xc ) = .TRUE. chem_dname_table( idomain, P_xc ) = 'xc' chem_desc_table( idomain, P_xc ) = 'XC mixing ratio' chem_units_table( idomain, P_xc ) = 'ppmv' chem_streams_table( idomain, P_xc )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xc )%stream(2) = 2097216 ! 00200040 F_xc = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_c_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c_o2 = chem_num_table(idomain) chem_index_table( PARAM_c_o2 , idomain ) = P_c_o2 ELSE P_c_o2 = chem_index_table( PARAM_c_o2 , idomain ) END IF chem_boundary_table( idomain, P_c_o2 ) = .TRUE. chem_dname_table( idomain, P_c_o2 ) = 'c_o2' chem_desc_table( idomain, P_c_o2 ) = 'C_O2 mixing ratio' chem_units_table( idomain, P_c_o2 ) = 'ppmv' chem_streams_table( idomain, P_c_o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c_o2 )%stream(2) = 2097216 ! 00200040 F_c_o2 = .TRUE. IF ( chem_index_table( PARAM_cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cooh = chem_num_table(idomain) chem_index_table( PARAM_cooh , idomain ) = P_cooh ELSE P_cooh = chem_index_table( PARAM_cooh , idomain ) END IF chem_boundary_table( idomain, P_cooh ) = .TRUE. chem_dname_table( idomain, P_cooh ) = 'cooh' chem_desc_table( idomain, P_cooh ) = 'COOH mixing ratio' chem_units_table( idomain, P_cooh ) = 'ppmv' chem_streams_table( idomain, P_cooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cooh )%stream(2) = 2097216 ! 00200040 F_cooh = .TRUE. IF ( chem_index_table( PARAM_rooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rooh = chem_num_table(idomain) chem_index_table( PARAM_rooh , idomain ) = P_rooh ELSE P_rooh = chem_index_table( PARAM_rooh , idomain ) END IF chem_boundary_table( idomain, P_rooh ) = .TRUE. chem_dname_table( idomain, P_rooh ) = 'rooh' chem_desc_table( idomain, P_rooh ) = 'ROOH mixing ratio' chem_units_table( idomain, P_rooh ) = 'ppmv' chem_streams_table( idomain, P_rooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rooh )%stream(2) = 2097216 ! 00200040 F_rooh = .TRUE. IF ( chem_index_table( PARAM_ro2_r , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2_r = chem_num_table(idomain) chem_index_table( PARAM_ro2_r , idomain ) = P_ro2_r ELSE P_ro2_r = chem_index_table( PARAM_ro2_r , idomain ) END IF chem_boundary_table( idomain, P_ro2_r ) = .TRUE. chem_dname_table( idomain, P_ro2_r ) = 'ro2_r' chem_desc_table( idomain, P_ro2_r ) = 'RO2_R mixing ratio' chem_units_table( idomain, P_ro2_r ) = 'ppmv' chem_streams_table( idomain, P_ro2_r )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2_r )%stream(2) = 2097216 ! 00200040 F_ro2_r = .TRUE. IF ( chem_index_table( PARAM_r2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_r2o2 = chem_num_table(idomain) chem_index_table( PARAM_r2o2 , idomain ) = P_r2o2 ELSE P_r2o2 = chem_index_table( PARAM_r2o2 , idomain ) END IF chem_boundary_table( idomain, P_r2o2 ) = .TRUE. chem_dname_table( idomain, P_r2o2 ) = 'r2o2' chem_desc_table( idomain, P_r2o2 ) = 'R2O2 mixing ratio' chem_units_table( idomain, P_r2o2 ) = 'ppmv' chem_streams_table( idomain, P_r2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_r2o2 )%stream(2) = 2097216 ! 00200040 F_r2o2 = .TRUE. IF ( chem_index_table( PARAM_ro2_n , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2_n = chem_num_table(idomain) chem_index_table( PARAM_ro2_n , idomain ) = P_ro2_n ELSE P_ro2_n = chem_index_table( PARAM_ro2_n , idomain ) END IF chem_boundary_table( idomain, P_ro2_n ) = .TRUE. chem_dname_table( idomain, P_ro2_n ) = 'ro2_n' chem_desc_table( idomain, P_ro2_n ) = 'RO2_N mixing ratio' chem_units_table( idomain, P_ro2_n ) = 'ppmv' chem_streams_table( idomain, P_ro2_n )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2_n )%stream(2) = 2097216 ! 00200040 F_ro2_n = .TRUE. IF ( chem_index_table( PARAM_cco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_o2 = chem_num_table(idomain) chem_index_table( PARAM_cco_o2 , idomain ) = P_cco_o2 ELSE P_cco_o2 = chem_index_table( PARAM_cco_o2 , idomain ) END IF chem_boundary_table( idomain, P_cco_o2 ) = .TRUE. chem_dname_table( idomain, P_cco_o2 ) = 'cco_o2' chem_desc_table( idomain, P_cco_o2 ) = 'CCO_O2 mixing ratio' chem_units_table( idomain, P_cco_o2 ) = 'ppmv' chem_streams_table( idomain, P_cco_o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cco_o2 )%stream(2) = 2097216 ! 00200040 F_cco_o2 = .TRUE. IF ( chem_index_table( PARAM_bzco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bzco_o2 = chem_num_table(idomain) chem_index_table( PARAM_bzco_o2 , idomain ) = P_bzco_o2 ELSE P_bzco_o2 = chem_index_table( PARAM_bzco_o2 , idomain ) END IF chem_boundary_table( idomain, P_bzco_o2 ) = .TRUE. chem_dname_table( idomain, P_bzco_o2 ) = 'bzco_o2' chem_desc_table( idomain, P_bzco_o2 ) = 'BZCO_O2 mixing ratio' chem_units_table( idomain, P_bzco_o2 ) = 'ppmv' chem_streams_table( idomain, P_bzco_o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bzco_o2 )%stream(2) = 2097216 ! 00200040 F_bzco_o2 = .TRUE. IF ( chem_index_table( PARAM_ma_rco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ma_rco3 = chem_num_table(idomain) chem_index_table( PARAM_ma_rco3 , idomain ) = P_ma_rco3 ELSE P_ma_rco3 = chem_index_table( PARAM_ma_rco3 , idomain ) END IF chem_boundary_table( idomain, P_ma_rco3 ) = .TRUE. chem_dname_table( idomain, P_ma_rco3 ) = 'ma_rco3' chem_desc_table( idomain, P_ma_rco3 ) = 'MA_RCO3 mixing ratio' chem_units_table( idomain, P_ma_rco3 ) = 'ppmv' chem_streams_table( idomain, P_ma_rco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ma_rco3 )%stream(2) = 2097216 ! 00200040 F_ma_rco3 = .TRUE. IF ( chem_index_table( PARAM_sesq , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sesq = chem_num_table(idomain) chem_index_table( PARAM_sesq , idomain ) = P_sesq ELSE P_sesq = chem_index_table( PARAM_sesq , idomain ) END IF chem_boundary_table( idomain, P_sesq ) = .TRUE. chem_dname_table( idomain, P_sesq ) = 'sesq' chem_desc_table( idomain, P_sesq ) = 'SESQ mixing ratio' chem_units_table( idomain, P_sesq ) = 'ppmv' chem_streams_table( idomain, P_sesq )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sesq )%stream(2) = 2097216 ! 00200040 F_sesq = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c , idomain ) = P_pcg1_b_c ELSE P_pcg1_b_c = chem_index_table( PARAM_pcg1_b_c , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c ) = 'pcg1_b_c' chem_desc_table( idomain, P_pcg1_b_c ) = 'pcg1_b_c mixing ratio' chem_units_table( idomain, P_pcg1_b_c ) = 'ppmv' chem_streams_table( idomain, P_pcg1_b_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_c = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_c , idomain ) = P_pcg2_b_c ELSE P_pcg2_b_c = chem_index_table( PARAM_pcg2_b_c , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_c ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_c ) = 'pcg2_b_c' chem_desc_table( idomain, P_pcg2_b_c ) = 'pcg2_b_c mixing ratio' chem_units_table( idomain, P_pcg2_b_c ) = 'ppmv' chem_streams_table( idomain, P_pcg2_b_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_b_c )%stream(2) = 2097216 ! 00200040 F_pcg2_b_c = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o , idomain ) = P_pcg1_b_o ELSE P_pcg1_b_o = chem_index_table( PARAM_pcg1_b_o , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o ) = 'pcg1_b_o' chem_desc_table( idomain, P_pcg1_b_o ) = 'pcg1_b_o mixing ratio' chem_units_table( idomain, P_pcg1_b_o ) = 'ppmv' chem_streams_table( idomain, P_pcg1_b_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_o = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_o , idomain ) = P_pcg2_b_o ELSE P_pcg2_b_o = chem_index_table( PARAM_pcg2_b_o , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_o ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_o ) = 'pcg2_b_o' chem_desc_table( idomain, P_pcg2_b_o ) = 'pcg2_b_o mixing ratio' chem_units_table( idomain, P_pcg2_b_o ) = 'ppmv' chem_streams_table( idomain, P_pcg2_b_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_b_o )%stream(2) = 2097216 ! 00200040 F_pcg2_b_o = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c , idomain ) = P_opcg1_b_c ELSE P_opcg1_b_c = chem_index_table( PARAM_opcg1_b_c , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c ) = 'opcg1_b_c' chem_desc_table( idomain, P_opcg1_b_c ) = 'opcg1_b_c mixing ratio' chem_units_table( idomain, P_opcg1_b_c ) = 'ppmv' chem_streams_table( idomain, P_opcg1_b_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o , idomain ) = P_opcg1_b_o ELSE P_opcg1_b_o = chem_index_table( PARAM_opcg1_b_o , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o ) = 'opcg1_b_o' chem_desc_table( idomain, P_opcg1_b_o ) = 'opcg1_b_o mixing ratio' chem_units_table( idomain, P_opcg1_b_o ) = 'ppmv' chem_streams_table( idomain, P_opcg1_b_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c , idomain ) = P_pcg1_f_c ELSE P_pcg1_f_c = chem_index_table( PARAM_pcg1_f_c , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c ) = 'pcg1_f_c' chem_desc_table( idomain, P_pcg1_f_c ) = 'pcg1_f_c mixing ratio' chem_units_table( idomain, P_pcg1_f_c ) = 'ppmv' chem_streams_table( idomain, P_pcg1_f_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_c = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_c , idomain ) = P_pcg2_f_c ELSE P_pcg2_f_c = chem_index_table( PARAM_pcg2_f_c , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_c ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_c ) = 'pcg2_f_c' chem_desc_table( idomain, P_pcg2_f_c ) = 'pcg2_f_c mixing ratio' chem_units_table( idomain, P_pcg2_f_c ) = 'ppmv' chem_streams_table( idomain, P_pcg2_f_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_f_c )%stream(2) = 2097216 ! 00200040 F_pcg2_f_c = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o , idomain ) = P_pcg1_f_o ELSE P_pcg1_f_o = chem_index_table( PARAM_pcg1_f_o , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o ) = 'pcg1_f_o' chem_desc_table( idomain, P_pcg1_f_o ) = 'pcg1_f_o mixing ratio' chem_units_table( idomain, P_pcg1_f_o ) = 'ppmv' chem_streams_table( idomain, P_pcg1_f_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_o = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_o , idomain ) = P_pcg2_f_o ELSE P_pcg2_f_o = chem_index_table( PARAM_pcg2_f_o , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_o ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_o ) = 'pcg2_f_o' chem_desc_table( idomain, P_pcg2_f_o ) = 'pcg2_f_o mixing ratio' chem_units_table( idomain, P_pcg2_f_o ) = 'ppmv' chem_streams_table( idomain, P_pcg2_f_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_f_o )%stream(2) = 2097216 ! 00200040 F_pcg2_f_o = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c , idomain ) = P_opcg1_f_c ELSE P_opcg1_f_c = chem_index_table( PARAM_opcg1_f_c , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c ) = 'opcg1_f_c' chem_desc_table( idomain, P_opcg1_f_c ) = 'opcg1_f_c mixing ratio' chem_units_table( idomain, P_opcg1_f_c ) = 'ppmv' chem_streams_table( idomain, P_opcg1_f_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o , idomain ) = P_opcg1_f_o ELSE P_opcg1_f_o = chem_index_table( PARAM_opcg1_f_o , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o ) = 'opcg1_f_o' chem_desc_table( idomain, P_opcg1_f_o ) = 'opcg1_f_o mixing ratio' chem_units_table( idomain, P_opcg1_f_o ) = 'ppmv' chem_streams_table( idomain, P_opcg1_f_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o = .TRUE. IF ( chem_index_table( PARAM_psd1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_psd1 = chem_num_table(idomain) chem_index_table( PARAM_psd1 , idomain ) = P_psd1 ELSE P_psd1 = chem_index_table( PARAM_psd1 , idomain ) END IF chem_boundary_table( idomain, P_psd1 ) = .TRUE. chem_dname_table( idomain, P_psd1 ) = 'psd1' chem_desc_table( idomain, P_psd1 ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_psd1 ) = 'ppmv' chem_streams_table( idomain, P_psd1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_psd1 )%stream(2) = 2097216 ! 00200040 F_psd1 = .TRUE. IF ( chem_index_table( PARAM_psd2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_psd2 = chem_num_table(idomain) chem_index_table( PARAM_psd2 , idomain ) = P_psd2 ELSE P_psd2 = chem_index_table( PARAM_psd2 , idomain ) END IF chem_boundary_table( idomain, P_psd2 ) = .TRUE. chem_dname_table( idomain, P_psd2 ) = 'psd2' chem_desc_table( idomain, P_psd2 ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_psd2 ) = 'ppmv' chem_streams_table( idomain, P_psd2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_psd2 )%stream(2) = 2097216 ! 00200040 F_psd2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_nume , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nume = chem_num_table(idomain) chem_index_table( PARAM_nume , idomain ) = P_nume ELSE P_nume = chem_index_table( PARAM_nume , idomain ) END IF chem_boundary_table( idomain, P_nume ) = .TRUE. chem_dname_table( idomain, P_nume ) = 'nume' chem_desc_table( idomain, P_nume ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_nume ) = 'ppmv' chem_streams_table( idomain, P_nume )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nume )%stream(2) = 2097216 ! 00200040 F_nume = .TRUE. IF ( chem_index_table( PARAM_den , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_den = chem_num_table(idomain) chem_index_table( PARAM_den , idomain ) = P_den ELSE P_den = chem_index_table( PARAM_den , idomain ) END IF chem_boundary_table( idomain, P_den ) = .TRUE. chem_dname_table( idomain, P_den ) = 'den' chem_desc_table( idomain, P_den ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_den ) = 'ppmv' chem_streams_table( idomain, P_den )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_den )%stream(2) = 2097216 ! 00200040 F_den = .TRUE. IF ( chem_index_table( PARAM_ant1_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c = chem_num_table(idomain) chem_index_table( PARAM_ant1_c , idomain ) = P_ant1_c ELSE P_ant1_c = chem_index_table( PARAM_ant1_c , idomain ) END IF chem_boundary_table( idomain, P_ant1_c ) = .TRUE. chem_dname_table( idomain, P_ant1_c ) = 'ant1_c' chem_desc_table( idomain, P_ant1_c ) = 'ant1_c mixing ratio' chem_units_table( idomain, P_ant1_c ) = 'ppmv' chem_streams_table( idomain, P_ant1_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_c )%stream(2) = 2097216 ! 00200040 F_ant1_c = .TRUE. IF ( chem_index_table( PARAM_biog1_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c = chem_num_table(idomain) chem_index_table( PARAM_biog1_c , idomain ) = P_biog1_c ELSE P_biog1_c = chem_index_table( PARAM_biog1_c , idomain ) END IF chem_boundary_table( idomain, P_biog1_c ) = .TRUE. chem_dname_table( idomain, P_biog1_c ) = 'biog1_c' chem_desc_table( idomain, P_biog1_c ) = 'biog1_c mixing ratio' chem_units_table( idomain, P_biog1_c ) = 'ppmv' chem_streams_table( idomain, P_biog1_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c )%stream(2) = 2097216 ! 00200040 F_biog1_c = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 ! 00200040 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 ! 00200040 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 ! 00200040 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 ! 00200040 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 ! 00200040 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 ! 00200040 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 ! 00200040 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 ! 00200040 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 ! 00200040 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) = P_pcg1_b_c_a01 ELSE P_pcg1_b_c_a01 = chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a01 ) = 'pcg1_b_c_a01' chem_desc_table( idomain, P_pcg1_b_c_a01 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a01 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) = P_pcg1_b_o_a01 ELSE P_pcg1_b_o_a01 = chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a01 ) = 'pcg1_b_o_a01' chem_desc_table( idomain, P_pcg1_b_o_a01 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a01 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) = P_opcg1_b_c_a01 ELSE P_opcg1_b_c_a01 = chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a01 ) = 'opcg1_b_c_a01' chem_desc_table( idomain, P_opcg1_b_c_a01 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a01 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) = P_opcg1_b_o_a01 ELSE P_opcg1_b_o_a01 = chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a01 ) = 'opcg1_b_o_a01' chem_desc_table( idomain, P_opcg1_b_o_a01 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a01 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) = P_pcg1_f_c_a01 ELSE P_pcg1_f_c_a01 = chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a01 ) = 'pcg1_f_c_a01' chem_desc_table( idomain, P_pcg1_f_c_a01 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a01 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) = P_pcg1_f_o_a01 ELSE P_pcg1_f_o_a01 = chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a01 ) = 'pcg1_f_o_a01' chem_desc_table( idomain, P_pcg1_f_o_a01 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a01 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) = P_opcg1_f_c_a01 ELSE P_opcg1_f_c_a01 = chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a01 ) = 'opcg1_f_c_a01' chem_desc_table( idomain, P_opcg1_f_c_a01 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a01 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) = P_opcg1_f_o_a01 ELSE P_opcg1_f_o_a01 = chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a01 ) = 'opcg1_f_o_a01' chem_desc_table( idomain, P_opcg1_f_o_a01 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a01 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a01 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a01 , idomain ) = P_ant1_c_a01 ELSE P_ant1_c_a01 = chem_index_table( PARAM_ant1_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a01 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a01 ) = 'ant1_c_a01' chem_desc_table( idomain, P_ant1_c_a01 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_c_a01 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a01 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a01 , idomain ) = P_biog1_c_a01 ELSE P_biog1_c_a01 = chem_index_table( PARAM_biog1_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a01 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a01 ) = 'biog1_c_a01' chem_desc_table( idomain, P_biog1_c_a01 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_a01 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 ! 00200040 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 ! 00200040 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 ! 00200040 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 ! 00200040 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 ! 00200040 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 ! 00200040 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 ! 00200040 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 ! 00200040 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 ! 00200040 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 ! 00200040 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) = P_pcg1_b_c_a02 ELSE P_pcg1_b_c_a02 = chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a02 ) = 'pcg1_b_c_a02' chem_desc_table( idomain, P_pcg1_b_c_a02 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a02 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) = P_pcg1_b_o_a02 ELSE P_pcg1_b_o_a02 = chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a02 ) = 'pcg1_b_o_a02' chem_desc_table( idomain, P_pcg1_b_o_a02 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a02 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) = P_opcg1_b_c_a02 ELSE P_opcg1_b_c_a02 = chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a02 ) = 'opcg1_b_c_a02' chem_desc_table( idomain, P_opcg1_b_c_a02 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a02 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) = P_opcg1_b_o_a02 ELSE P_opcg1_b_o_a02 = chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a02 ) = 'opcg1_b_o_a02' chem_desc_table( idomain, P_opcg1_b_o_a02 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a02 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) = P_pcg1_f_c_a02 ELSE P_pcg1_f_c_a02 = chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a02 ) = 'pcg1_f_c_a02' chem_desc_table( idomain, P_pcg1_f_c_a02 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a02 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) = P_pcg1_f_o_a02 ELSE P_pcg1_f_o_a02 = chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a02 ) = 'pcg1_f_o_a02' chem_desc_table( idomain, P_pcg1_f_o_a02 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a02 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) = P_opcg1_f_c_a02 ELSE P_opcg1_f_c_a02 = chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a02 ) = 'opcg1_f_c_a02' chem_desc_table( idomain, P_opcg1_f_c_a02 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a02 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) = P_opcg1_f_o_a02 ELSE P_opcg1_f_o_a02 = chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a02 ) = 'opcg1_f_o_a02' chem_desc_table( idomain, P_opcg1_f_o_a02 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a02 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a02 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a02 , idomain ) = P_ant1_c_a02 ELSE P_ant1_c_a02 = chem_index_table( PARAM_ant1_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a02 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a02 ) = 'ant1_c_a02' chem_desc_table( idomain, P_ant1_c_a02 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_c_a02 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a02 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a02 , idomain ) = P_biog1_c_a02 ELSE P_biog1_c_a02 = chem_index_table( PARAM_biog1_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a02 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a02 ) = 'biog1_c_a02' chem_desc_table( idomain, P_biog1_c_a02 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_a02 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 ! 00200040 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 ! 00200040 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 ! 00200040 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 ! 00200040 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 ! 00200040 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 ! 00200040 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 ! 00200040 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 ! 00200040 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 ! 00200040 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 ! 00200040 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) = P_pcg1_b_c_a03 ELSE P_pcg1_b_c_a03 = chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a03 ) = 'pcg1_b_c_a03' chem_desc_table( idomain, P_pcg1_b_c_a03 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a03 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) = P_pcg1_b_o_a03 ELSE P_pcg1_b_o_a03 = chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a03 ) = 'pcg1_b_o_a03' chem_desc_table( idomain, P_pcg1_b_o_a03 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a03 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) = P_opcg1_b_c_a03 ELSE P_opcg1_b_c_a03 = chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a03 ) = 'opcg1_b_c_a03' chem_desc_table( idomain, P_opcg1_b_c_a03 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a03 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) = P_opcg1_b_o_a03 ELSE P_opcg1_b_o_a03 = chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a03 ) = 'opcg1_b_o_a03' chem_desc_table( idomain, P_opcg1_b_o_a03 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a03 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) = P_pcg1_f_c_a03 ELSE P_pcg1_f_c_a03 = chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a03 ) = 'pcg1_f_c_a03' chem_desc_table( idomain, P_pcg1_f_c_a03 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a03 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) = P_pcg1_f_o_a03 ELSE P_pcg1_f_o_a03 = chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a03 ) = 'pcg1_f_o_a03' chem_desc_table( idomain, P_pcg1_f_o_a03 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a03 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) = P_opcg1_f_c_a03 ELSE P_opcg1_f_c_a03 = chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a03 ) = 'opcg1_f_c_a03' chem_desc_table( idomain, P_opcg1_f_c_a03 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a03 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) = P_opcg1_f_o_a03 ELSE P_opcg1_f_o_a03 = chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a03 ) = 'opcg1_f_o_a03' chem_desc_table( idomain, P_opcg1_f_o_a03 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a03 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a03 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a03 , idomain ) = P_ant1_c_a03 ELSE P_ant1_c_a03 = chem_index_table( PARAM_ant1_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a03 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a03 ) = 'ant1_c_a03' chem_desc_table( idomain, P_ant1_c_a03 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_c_a03 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a03 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a03 , idomain ) = P_biog1_c_a03 ELSE P_biog1_c_a03 = chem_index_table( PARAM_biog1_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a03 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a03 ) = 'biog1_c_a03' chem_desc_table( idomain, P_biog1_c_a03 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_a03 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 ! 00200040 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 ! 00200040 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 ! 00200040 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 ! 00200040 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 ! 00200040 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 ! 00200040 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 ! 00200040 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 ! 00200040 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 ! 00200040 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 ! 00200040 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) = P_pcg1_b_c_a04 ELSE P_pcg1_b_c_a04 = chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a04 ) = 'pcg1_b_c_a04' chem_desc_table( idomain, P_pcg1_b_c_a04 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a04 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) = P_pcg1_b_o_a04 ELSE P_pcg1_b_o_a04 = chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a04 ) = 'pcg1_b_o_a04' chem_desc_table( idomain, P_pcg1_b_o_a04 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a04 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) = P_opcg1_b_c_a04 ELSE P_opcg1_b_c_a04 = chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a04 ) = 'opcg1_b_c_a04' chem_desc_table( idomain, P_opcg1_b_c_a04 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a04 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) = P_opcg1_b_o_a04 ELSE P_opcg1_b_o_a04 = chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a04 ) = 'opcg1_b_o_a04' chem_desc_table( idomain, P_opcg1_b_o_a04 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a04 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) = P_pcg1_f_c_a04 ELSE P_pcg1_f_c_a04 = chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a04 ) = 'pcg1_f_c_a04' chem_desc_table( idomain, P_pcg1_f_c_a04 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a04 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) = P_pcg1_f_o_a04 ELSE P_pcg1_f_o_a04 = chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a04 ) = 'pcg1_f_o_a04' chem_desc_table( idomain, P_pcg1_f_o_a04 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a04 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) = P_opcg1_f_c_a04 ELSE P_opcg1_f_c_a04 = chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a04 ) = 'opcg1_f_c_a04' chem_desc_table( idomain, P_opcg1_f_c_a04 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a04 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) = P_opcg1_f_o_a04 ELSE P_opcg1_f_o_a04 = chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a04 ) = 'opcg1_f_o_a04' chem_desc_table( idomain, P_opcg1_f_o_a04 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a04 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a04 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a04 , idomain ) = P_ant1_c_a04 ELSE P_ant1_c_a04 = chem_index_table( PARAM_ant1_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a04 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a04 ) = 'ant1_c_a04' chem_desc_table( idomain, P_ant1_c_a04 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_c_a04 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a04 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a04 , idomain ) = P_biog1_c_a04 ELSE P_biog1_c_a04 = chem_index_table( PARAM_biog1_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a04 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a04 ) = 'biog1_c_a04' chem_desc_table( idomain, P_biog1_c_a04 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_a04 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 ! 00200040 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a05 = chem_num_table(idomain) chem_index_table( PARAM_so4_a05 , idomain ) = P_so4_a05 ELSE P_so4_a05 = chem_index_table( PARAM_so4_a05 , idomain ) END IF chem_boundary_table( idomain, P_so4_a05 ) = .TRUE. chem_dname_table( idomain, P_so4_a05 ) = 'so4_a05' chem_desc_table( idomain, P_so4_a05 ) = 'Sulfate, aerosol bin 05' chem_units_table( idomain, P_so4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a05 )%stream(2) = 2097216 ! 00200040 F_so4_a05 = .TRUE. IF ( chem_index_table( PARAM_no3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a05 = chem_num_table(idomain) chem_index_table( PARAM_no3_a05 , idomain ) = P_no3_a05 ELSE P_no3_a05 = chem_index_table( PARAM_no3_a05 , idomain ) END IF chem_boundary_table( idomain, P_no3_a05 ) = .TRUE. chem_dname_table( idomain, P_no3_a05 ) = 'no3_a05' chem_desc_table( idomain, P_no3_a05 ) = 'Nitrate, aerosol bin 05' chem_units_table( idomain, P_no3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a05 )%stream(2) = 2097216 ! 00200040 F_no3_a05 = .TRUE. IF ( chem_index_table( PARAM_cl_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a05 = chem_num_table(idomain) chem_index_table( PARAM_cl_a05 , idomain ) = P_cl_a05 ELSE P_cl_a05 = chem_index_table( PARAM_cl_a05 , idomain ) END IF chem_boundary_table( idomain, P_cl_a05 ) = .TRUE. chem_dname_table( idomain, P_cl_a05 ) = 'cl_a05' chem_desc_table( idomain, P_cl_a05 ) = 'Chloride, aerosol bin 05' chem_units_table( idomain, P_cl_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a05 )%stream(2) = 2097216 ! 00200040 F_cl_a05 = .TRUE. IF ( chem_index_table( PARAM_nh4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a05 , idomain ) = P_nh4_a05 ELSE P_nh4_a05 = chem_index_table( PARAM_nh4_a05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a05 ) = .TRUE. chem_dname_table( idomain, P_nh4_a05 ) = 'nh4_a05' chem_desc_table( idomain, P_nh4_a05 ) = 'Ammonium, aerosol bin 05' chem_units_table( idomain, P_nh4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a05 )%stream(2) = 2097216 ! 00200040 F_nh4_a05 = .TRUE. IF ( chem_index_table( PARAM_na_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a05 = chem_num_table(idomain) chem_index_table( PARAM_na_a05 , idomain ) = P_na_a05 ELSE P_na_a05 = chem_index_table( PARAM_na_a05 , idomain ) END IF chem_boundary_table( idomain, P_na_a05 ) = .TRUE. chem_dname_table( idomain, P_na_a05 ) = 'na_a05' chem_desc_table( idomain, P_na_a05 ) = 'Sodium, aerosol bin 05' chem_units_table( idomain, P_na_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a05 )%stream(2) = 2097216 ! 00200040 F_na_a05 = .TRUE. IF ( chem_index_table( PARAM_oin_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a05 = chem_num_table(idomain) chem_index_table( PARAM_oin_a05 , idomain ) = P_oin_a05 ELSE P_oin_a05 = chem_index_table( PARAM_oin_a05 , idomain ) END IF chem_boundary_table( idomain, P_oin_a05 ) = .TRUE. chem_dname_table( idomain, P_oin_a05 ) = 'oin_a05' chem_desc_table( idomain, P_oin_a05 ) = 'Other inorganics, aerosol bin 05' chem_units_table( idomain, P_oin_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a05 )%stream(2) = 2097216 ! 00200040 F_oin_a05 = .TRUE. IF ( chem_index_table( PARAM_oc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a05 = chem_num_table(idomain) chem_index_table( PARAM_oc_a05 , idomain ) = P_oc_a05 ELSE P_oc_a05 = chem_index_table( PARAM_oc_a05 , idomain ) END IF chem_boundary_table( idomain, P_oc_a05 ) = .TRUE. chem_dname_table( idomain, P_oc_a05 ) = 'oc_a05' chem_desc_table( idomain, P_oc_a05 ) = 'Organic carbon, aerosol bin 05' chem_units_table( idomain, P_oc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a05 )%stream(2) = 2097216 ! 00200040 F_oc_a05 = .TRUE. IF ( chem_index_table( PARAM_bc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a05 = chem_num_table(idomain) chem_index_table( PARAM_bc_a05 , idomain ) = P_bc_a05 ELSE P_bc_a05 = chem_index_table( PARAM_bc_a05 , idomain ) END IF chem_boundary_table( idomain, P_bc_a05 ) = .TRUE. chem_dname_table( idomain, P_bc_a05 ) = 'bc_a05' chem_desc_table( idomain, P_bc_a05 ) = 'Black carbon, aerosol bin 05' chem_units_table( idomain, P_bc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a05 )%stream(2) = 2097216 ! 00200040 F_bc_a05 = .TRUE. IF ( chem_index_table( PARAM_hysw_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a05 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a05 , idomain ) = P_hysw_a05 ELSE P_hysw_a05 = chem_index_table( PARAM_hysw_a05 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a05 ) = .TRUE. chem_dname_table( idomain, P_hysw_a05 ) = 'hysw_a05' chem_desc_table( idomain, P_hysw_a05 ) = 'Hysteresis water, aerosol bin 05' chem_units_table( idomain, P_hysw_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a05 )%stream(2) = 2097216 ! 00200040 F_hysw_a05 = .TRUE. IF ( chem_index_table( PARAM_water_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a05 = chem_num_table(idomain) chem_index_table( PARAM_water_a05 , idomain ) = P_water_a05 ELSE P_water_a05 = chem_index_table( PARAM_water_a05 , idomain ) END IF chem_boundary_table( idomain, P_water_a05 ) = .TRUE. chem_dname_table( idomain, P_water_a05 ) = 'water_a05' chem_desc_table( idomain, P_water_a05 ) = 'Water, aerosol bin 05' chem_units_table( idomain, P_water_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a05 )%stream(2) = 2097216 ! 00200040 F_water_a05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a05 , idomain ) = P_pcg1_b_c_a05 ELSE P_pcg1_b_c_a05 = chem_index_table( PARAM_pcg1_b_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a05 ) = 'pcg1_b_c_a05' chem_desc_table( idomain, P_pcg1_b_c_a05 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a05 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a05 , idomain ) = P_pcg1_b_o_a05 ELSE P_pcg1_b_o_a05 = chem_index_table( PARAM_pcg1_b_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a05 ) = 'pcg1_b_o_a05' chem_desc_table( idomain, P_pcg1_b_o_a05 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a05 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a05 , idomain ) = P_opcg1_b_c_a05 ELSE P_opcg1_b_c_a05 = chem_index_table( PARAM_opcg1_b_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a05 ) = 'opcg1_b_c_a05' chem_desc_table( idomain, P_opcg1_b_c_a05 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a05 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a05 , idomain ) = P_opcg1_b_o_a05 ELSE P_opcg1_b_o_a05 = chem_index_table( PARAM_opcg1_b_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a05 ) = 'opcg1_b_o_a05' chem_desc_table( idomain, P_opcg1_b_o_a05 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a05 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a05 , idomain ) = P_pcg1_f_c_a05 ELSE P_pcg1_f_c_a05 = chem_index_table( PARAM_pcg1_f_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a05 ) = 'pcg1_f_c_a05' chem_desc_table( idomain, P_pcg1_f_c_a05 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a05 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a05 , idomain ) = P_pcg1_f_o_a05 ELSE P_pcg1_f_o_a05 = chem_index_table( PARAM_pcg1_f_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a05 ) = 'pcg1_f_o_a05' chem_desc_table( idomain, P_pcg1_f_o_a05 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a05 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a05 , idomain ) = P_opcg1_f_c_a05 ELSE P_opcg1_f_c_a05 = chem_index_table( PARAM_opcg1_f_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a05 ) = 'opcg1_f_c_a05' chem_desc_table( idomain, P_opcg1_f_c_a05 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a05 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a05 , idomain ) = P_opcg1_f_o_a05 ELSE P_opcg1_f_o_a05 = chem_index_table( PARAM_opcg1_f_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a05 ) = 'opcg1_f_o_a05' chem_desc_table( idomain, P_opcg1_f_o_a05 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a05 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a05 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a05 , idomain ) = P_ant1_c_a05 ELSE P_ant1_c_a05 = chem_index_table( PARAM_ant1_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a05 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a05 ) = 'ant1_c_a05' chem_desc_table( idomain, P_ant1_c_a05 ) = 'ant1_c, aerosol bin 05' chem_units_table( idomain, P_ant1_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant1_c_a05 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a05 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a05 , idomain ) = P_biog1_c_a05 ELSE P_biog1_c_a05 = chem_index_table( PARAM_biog1_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a05 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a05 ) = 'biog1_c_a05' chem_desc_table( idomain, P_biog1_c_a05 ) = 'biog1_c, aerosol bin 05' chem_units_table( idomain, P_biog1_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_c_a05 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a05 = .TRUE. IF ( chem_index_table( PARAM_num_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a05 = chem_num_table(idomain) chem_index_table( PARAM_num_a05 , idomain ) = P_num_a05 ELSE P_num_a05 = chem_index_table( PARAM_num_a05 , idomain ) END IF chem_boundary_table( idomain, P_num_a05 ) = .TRUE. chem_dname_table( idomain, P_num_a05 ) = 'num_a05' chem_desc_table( idomain, P_num_a05 ) = 'Number, aerosol bin 05' chem_units_table( idomain, P_num_a05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a05 )%stream(2) = 2097216 ! 00200040 F_num_a05 = .TRUE. IF ( chem_index_table( PARAM_so4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a06 = chem_num_table(idomain) chem_index_table( PARAM_so4_a06 , idomain ) = P_so4_a06 ELSE P_so4_a06 = chem_index_table( PARAM_so4_a06 , idomain ) END IF chem_boundary_table( idomain, P_so4_a06 ) = .TRUE. chem_dname_table( idomain, P_so4_a06 ) = 'so4_a06' chem_desc_table( idomain, P_so4_a06 ) = 'Sulfate, aerosol bin 06' chem_units_table( idomain, P_so4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a06 )%stream(2) = 2097216 ! 00200040 F_so4_a06 = .TRUE. IF ( chem_index_table( PARAM_no3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a06 = chem_num_table(idomain) chem_index_table( PARAM_no3_a06 , idomain ) = P_no3_a06 ELSE P_no3_a06 = chem_index_table( PARAM_no3_a06 , idomain ) END IF chem_boundary_table( idomain, P_no3_a06 ) = .TRUE. chem_dname_table( idomain, P_no3_a06 ) = 'no3_a06' chem_desc_table( idomain, P_no3_a06 ) = 'Nitrate, aerosol bin 06' chem_units_table( idomain, P_no3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a06 )%stream(2) = 2097216 ! 00200040 F_no3_a06 = .TRUE. IF ( chem_index_table( PARAM_cl_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a06 = chem_num_table(idomain) chem_index_table( PARAM_cl_a06 , idomain ) = P_cl_a06 ELSE P_cl_a06 = chem_index_table( PARAM_cl_a06 , idomain ) END IF chem_boundary_table( idomain, P_cl_a06 ) = .TRUE. chem_dname_table( idomain, P_cl_a06 ) = 'cl_a06' chem_desc_table( idomain, P_cl_a06 ) = 'Chloride, aerosol bin 06' chem_units_table( idomain, P_cl_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a06 )%stream(2) = 2097216 ! 00200040 F_cl_a06 = .TRUE. IF ( chem_index_table( PARAM_nh4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a06 , idomain ) = P_nh4_a06 ELSE P_nh4_a06 = chem_index_table( PARAM_nh4_a06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a06 ) = .TRUE. chem_dname_table( idomain, P_nh4_a06 ) = 'nh4_a06' chem_desc_table( idomain, P_nh4_a06 ) = 'Ammonium, aerosol bin 06' chem_units_table( idomain, P_nh4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a06 )%stream(2) = 2097216 ! 00200040 F_nh4_a06 = .TRUE. IF ( chem_index_table( PARAM_na_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a06 = chem_num_table(idomain) chem_index_table( PARAM_na_a06 , idomain ) = P_na_a06 ELSE P_na_a06 = chem_index_table( PARAM_na_a06 , idomain ) END IF chem_boundary_table( idomain, P_na_a06 ) = .TRUE. chem_dname_table( idomain, P_na_a06 ) = 'na_a06' chem_desc_table( idomain, P_na_a06 ) = 'Sodium, aerosol bin 06' chem_units_table( idomain, P_na_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a06 )%stream(2) = 2097216 ! 00200040 F_na_a06 = .TRUE. IF ( chem_index_table( PARAM_oin_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a06 = chem_num_table(idomain) chem_index_table( PARAM_oin_a06 , idomain ) = P_oin_a06 ELSE P_oin_a06 = chem_index_table( PARAM_oin_a06 , idomain ) END IF chem_boundary_table( idomain, P_oin_a06 ) = .TRUE. chem_dname_table( idomain, P_oin_a06 ) = 'oin_a06' chem_desc_table( idomain, P_oin_a06 ) = 'Other inorganics, aerosol bin 06' chem_units_table( idomain, P_oin_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a06 )%stream(2) = 2097216 ! 00200040 F_oin_a06 = .TRUE. IF ( chem_index_table( PARAM_oc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a06 = chem_num_table(idomain) chem_index_table( PARAM_oc_a06 , idomain ) = P_oc_a06 ELSE P_oc_a06 = chem_index_table( PARAM_oc_a06 , idomain ) END IF chem_boundary_table( idomain, P_oc_a06 ) = .TRUE. chem_dname_table( idomain, P_oc_a06 ) = 'oc_a06' chem_desc_table( idomain, P_oc_a06 ) = 'Organic carbon, aerosol bin 06' chem_units_table( idomain, P_oc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a06 )%stream(2) = 2097216 ! 00200040 F_oc_a06 = .TRUE. IF ( chem_index_table( PARAM_bc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a06 = chem_num_table(idomain) chem_index_table( PARAM_bc_a06 , idomain ) = P_bc_a06 ELSE P_bc_a06 = chem_index_table( PARAM_bc_a06 , idomain ) END IF chem_boundary_table( idomain, P_bc_a06 ) = .TRUE. chem_dname_table( idomain, P_bc_a06 ) = 'bc_a06' chem_desc_table( idomain, P_bc_a06 ) = 'Black carbon, aerosol bin 06' chem_units_table( idomain, P_bc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a06 )%stream(2) = 2097216 ! 00200040 F_bc_a06 = .TRUE. IF ( chem_index_table( PARAM_hysw_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a06 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a06 , idomain ) = P_hysw_a06 ELSE P_hysw_a06 = chem_index_table( PARAM_hysw_a06 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a06 ) = .TRUE. chem_dname_table( idomain, P_hysw_a06 ) = 'hysw_a06' chem_desc_table( idomain, P_hysw_a06 ) = 'Hysteresis water, aerosol bin 06' chem_units_table( idomain, P_hysw_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a06 )%stream(2) = 2097216 ! 00200040 F_hysw_a06 = .TRUE. IF ( chem_index_table( PARAM_water_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a06 = chem_num_table(idomain) chem_index_table( PARAM_water_a06 , idomain ) = P_water_a06 ELSE P_water_a06 = chem_index_table( PARAM_water_a06 , idomain ) END IF chem_boundary_table( idomain, P_water_a06 ) = .TRUE. chem_dname_table( idomain, P_water_a06 ) = 'water_a06' chem_desc_table( idomain, P_water_a06 ) = 'Water, aerosol bin 06' chem_units_table( idomain, P_water_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a06 )%stream(2) = 2097216 ! 00200040 F_water_a06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a06 , idomain ) = P_pcg1_b_c_a06 ELSE P_pcg1_b_c_a06 = chem_index_table( PARAM_pcg1_b_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a06 ) = 'pcg1_b_c_a06' chem_desc_table( idomain, P_pcg1_b_c_a06 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a06 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a06 , idomain ) = P_pcg1_b_o_a06 ELSE P_pcg1_b_o_a06 = chem_index_table( PARAM_pcg1_b_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a06 ) = 'pcg1_b_o_a06' chem_desc_table( idomain, P_pcg1_b_o_a06 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a06 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a06 , idomain ) = P_opcg1_b_c_a06 ELSE P_opcg1_b_c_a06 = chem_index_table( PARAM_opcg1_b_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a06 ) = 'opcg1_b_c_a06' chem_desc_table( idomain, P_opcg1_b_c_a06 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a06 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a06 , idomain ) = P_opcg1_b_o_a06 ELSE P_opcg1_b_o_a06 = chem_index_table( PARAM_opcg1_b_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a06 ) = 'opcg1_b_o_a06' chem_desc_table( idomain, P_opcg1_b_o_a06 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a06 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a06 , idomain ) = P_pcg1_f_c_a06 ELSE P_pcg1_f_c_a06 = chem_index_table( PARAM_pcg1_f_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a06 ) = 'pcg1_f_c_a06' chem_desc_table( idomain, P_pcg1_f_c_a06 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a06 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a06 , idomain ) = P_pcg1_f_o_a06 ELSE P_pcg1_f_o_a06 = chem_index_table( PARAM_pcg1_f_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a06 ) = 'pcg1_f_o_a06' chem_desc_table( idomain, P_pcg1_f_o_a06 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a06 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a06 , idomain ) = P_opcg1_f_c_a06 ELSE P_opcg1_f_c_a06 = chem_index_table( PARAM_opcg1_f_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a06 ) = 'opcg1_f_c_a06' chem_desc_table( idomain, P_opcg1_f_c_a06 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a06 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a06 , idomain ) = P_opcg1_f_o_a06 ELSE P_opcg1_f_o_a06 = chem_index_table( PARAM_opcg1_f_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a06 ) = 'opcg1_f_o_a06' chem_desc_table( idomain, P_opcg1_f_o_a06 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a06 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a06 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a06 , idomain ) = P_ant1_c_a06 ELSE P_ant1_c_a06 = chem_index_table( PARAM_ant1_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a06 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a06 ) = 'ant1_c_a06' chem_desc_table( idomain, P_ant1_c_a06 ) = 'ant1_c, aerosol bin 05' chem_units_table( idomain, P_ant1_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant1_c_a06 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a06 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a06 , idomain ) = P_biog1_c_a06 ELSE P_biog1_c_a06 = chem_index_table( PARAM_biog1_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a06 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a06 ) = 'biog1_c_a06' chem_desc_table( idomain, P_biog1_c_a06 ) = 'biog1_c, aerosol bin 05' chem_units_table( idomain, P_biog1_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_c_a06 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a06 = .TRUE. IF ( chem_index_table( PARAM_num_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a06 = chem_num_table(idomain) chem_index_table( PARAM_num_a06 , idomain ) = P_num_a06 ELSE P_num_a06 = chem_index_table( PARAM_num_a06 , idomain ) END IF chem_boundary_table( idomain, P_num_a06 ) = .TRUE. chem_dname_table( idomain, P_num_a06 ) = 'num_a06' chem_desc_table( idomain, P_num_a06 ) = 'Number, aerosol bin 06' chem_units_table( idomain, P_num_a06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a06 )%stream(2) = 2097216 ! 00200040 F_num_a06 = .TRUE. IF ( chem_index_table( PARAM_so4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a07 = chem_num_table(idomain) chem_index_table( PARAM_so4_a07 , idomain ) = P_so4_a07 ELSE P_so4_a07 = chem_index_table( PARAM_so4_a07 , idomain ) END IF chem_boundary_table( idomain, P_so4_a07 ) = .TRUE. chem_dname_table( idomain, P_so4_a07 ) = 'so4_a07' chem_desc_table( idomain, P_so4_a07 ) = 'Sulfate, aerosol bin 07' chem_units_table( idomain, P_so4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a07 )%stream(2) = 2097216 ! 00200040 F_so4_a07 = .TRUE. IF ( chem_index_table( PARAM_no3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a07 = chem_num_table(idomain) chem_index_table( PARAM_no3_a07 , idomain ) = P_no3_a07 ELSE P_no3_a07 = chem_index_table( PARAM_no3_a07 , idomain ) END IF chem_boundary_table( idomain, P_no3_a07 ) = .TRUE. chem_dname_table( idomain, P_no3_a07 ) = 'no3_a07' chem_desc_table( idomain, P_no3_a07 ) = 'Nitrate, aerosol bin 07' chem_units_table( idomain, P_no3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a07 )%stream(2) = 2097216 ! 00200040 F_no3_a07 = .TRUE. IF ( chem_index_table( PARAM_cl_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a07 = chem_num_table(idomain) chem_index_table( PARAM_cl_a07 , idomain ) = P_cl_a07 ELSE P_cl_a07 = chem_index_table( PARAM_cl_a07 , idomain ) END IF chem_boundary_table( idomain, P_cl_a07 ) = .TRUE. chem_dname_table( idomain, P_cl_a07 ) = 'cl_a07' chem_desc_table( idomain, P_cl_a07 ) = 'Chloride, aerosol bin 07' chem_units_table( idomain, P_cl_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a07 )%stream(2) = 2097216 ! 00200040 F_cl_a07 = .TRUE. IF ( chem_index_table( PARAM_nh4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a07 , idomain ) = P_nh4_a07 ELSE P_nh4_a07 = chem_index_table( PARAM_nh4_a07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a07 ) = .TRUE. chem_dname_table( idomain, P_nh4_a07 ) = 'nh4_a07' chem_desc_table( idomain, P_nh4_a07 ) = 'Ammonium, aerosol bin 07' chem_units_table( idomain, P_nh4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a07 )%stream(2) = 2097216 ! 00200040 F_nh4_a07 = .TRUE. IF ( chem_index_table( PARAM_na_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a07 = chem_num_table(idomain) chem_index_table( PARAM_na_a07 , idomain ) = P_na_a07 ELSE P_na_a07 = chem_index_table( PARAM_na_a07 , idomain ) END IF chem_boundary_table( idomain, P_na_a07 ) = .TRUE. chem_dname_table( idomain, P_na_a07 ) = 'na_a07' chem_desc_table( idomain, P_na_a07 ) = 'Sodium, aerosol bin 07' chem_units_table( idomain, P_na_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a07 )%stream(2) = 2097216 ! 00200040 F_na_a07 = .TRUE. IF ( chem_index_table( PARAM_oin_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a07 = chem_num_table(idomain) chem_index_table( PARAM_oin_a07 , idomain ) = P_oin_a07 ELSE P_oin_a07 = chem_index_table( PARAM_oin_a07 , idomain ) END IF chem_boundary_table( idomain, P_oin_a07 ) = .TRUE. chem_dname_table( idomain, P_oin_a07 ) = 'oin_a07' chem_desc_table( idomain, P_oin_a07 ) = 'Other inorganics, aerosol bin 07' chem_units_table( idomain, P_oin_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a07 )%stream(2) = 2097216 ! 00200040 F_oin_a07 = .TRUE. IF ( chem_index_table( PARAM_oc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a07 = chem_num_table(idomain) chem_index_table( PARAM_oc_a07 , idomain ) = P_oc_a07 ELSE P_oc_a07 = chem_index_table( PARAM_oc_a07 , idomain ) END IF chem_boundary_table( idomain, P_oc_a07 ) = .TRUE. chem_dname_table( idomain, P_oc_a07 ) = 'oc_a07' chem_desc_table( idomain, P_oc_a07 ) = 'Organic carbon, aerosol bin 07' chem_units_table( idomain, P_oc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a07 )%stream(2) = 2097216 ! 00200040 F_oc_a07 = .TRUE. IF ( chem_index_table( PARAM_bc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a07 = chem_num_table(idomain) chem_index_table( PARAM_bc_a07 , idomain ) = P_bc_a07 ELSE P_bc_a07 = chem_index_table( PARAM_bc_a07 , idomain ) END IF chem_boundary_table( idomain, P_bc_a07 ) = .TRUE. chem_dname_table( idomain, P_bc_a07 ) = 'bc_a07' chem_desc_table( idomain, P_bc_a07 ) = 'Black carbon, aerosol bin 07' chem_units_table( idomain, P_bc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a07 )%stream(2) = 2097216 ! 00200040 F_bc_a07 = .TRUE. IF ( chem_index_table( PARAM_hysw_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a07 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a07 , idomain ) = P_hysw_a07 ELSE P_hysw_a07 = chem_index_table( PARAM_hysw_a07 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a07 ) = .TRUE. chem_dname_table( idomain, P_hysw_a07 ) = 'hysw_a07' chem_desc_table( idomain, P_hysw_a07 ) = 'Hysteresis water, aerosol bin 07' chem_units_table( idomain, P_hysw_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a07 )%stream(2) = 2097216 ! 00200040 F_hysw_a07 = .TRUE. IF ( chem_index_table( PARAM_water_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a07 = chem_num_table(idomain) chem_index_table( PARAM_water_a07 , idomain ) = P_water_a07 ELSE P_water_a07 = chem_index_table( PARAM_water_a07 , idomain ) END IF chem_boundary_table( idomain, P_water_a07 ) = .TRUE. chem_dname_table( idomain, P_water_a07 ) = 'water_a07' chem_desc_table( idomain, P_water_a07 ) = 'Water, aerosol bin 07' chem_units_table( idomain, P_water_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a07 )%stream(2) = 2097216 ! 00200040 F_water_a07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a07 , idomain ) = P_pcg1_b_c_a07 ELSE P_pcg1_b_c_a07 = chem_index_table( PARAM_pcg1_b_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a07 ) = 'pcg1_b_c_a07' chem_desc_table( idomain, P_pcg1_b_c_a07 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a07 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a07 , idomain ) = P_pcg1_b_o_a07 ELSE P_pcg1_b_o_a07 = chem_index_table( PARAM_pcg1_b_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a07 ) = 'pcg1_b_o_a07' chem_desc_table( idomain, P_pcg1_b_o_a07 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a07 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a07 , idomain ) = P_opcg1_b_c_a07 ELSE P_opcg1_b_c_a07 = chem_index_table( PARAM_opcg1_b_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a07 ) = 'opcg1_b_c_a07' chem_desc_table( idomain, P_opcg1_b_c_a07 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a07 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a07 , idomain ) = P_opcg1_b_o_a07 ELSE P_opcg1_b_o_a07 = chem_index_table( PARAM_opcg1_b_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a07 ) = 'opcg1_b_o_a07' chem_desc_table( idomain, P_opcg1_b_o_a07 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a07 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a07 , idomain ) = P_pcg1_f_c_a07 ELSE P_pcg1_f_c_a07 = chem_index_table( PARAM_pcg1_f_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a07 ) = 'pcg1_f_c_a07' chem_desc_table( idomain, P_pcg1_f_c_a07 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a07 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a07 , idomain ) = P_pcg1_f_o_a07 ELSE P_pcg1_f_o_a07 = chem_index_table( PARAM_pcg1_f_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a07 ) = 'pcg1_f_o_a07' chem_desc_table( idomain, P_pcg1_f_o_a07 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a07 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a07 , idomain ) = P_opcg1_f_c_a07 ELSE P_opcg1_f_c_a07 = chem_index_table( PARAM_opcg1_f_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a07 ) = 'opcg1_f_c_a07' chem_desc_table( idomain, P_opcg1_f_c_a07 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a07 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a07 , idomain ) = P_opcg1_f_o_a07 ELSE P_opcg1_f_o_a07 = chem_index_table( PARAM_opcg1_f_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a07 ) = 'opcg1_f_o_a07' chem_desc_table( idomain, P_opcg1_f_o_a07 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a07 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a07 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a07 , idomain ) = P_ant1_c_a07 ELSE P_ant1_c_a07 = chem_index_table( PARAM_ant1_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a07 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a07 ) = 'ant1_c_a07' chem_desc_table( idomain, P_ant1_c_a07 ) = 'ant1_c, aerosol bin 05' chem_units_table( idomain, P_ant1_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant1_c_a07 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a07 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a07 , idomain ) = P_biog1_c_a07 ELSE P_biog1_c_a07 = chem_index_table( PARAM_biog1_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a07 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a07 ) = 'biog1_c_a07' chem_desc_table( idomain, P_biog1_c_a07 ) = 'biog1_c, aerosol bin 05' chem_units_table( idomain, P_biog1_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_c_a07 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a07 = .TRUE. IF ( chem_index_table( PARAM_num_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a07 = chem_num_table(idomain) chem_index_table( PARAM_num_a07 , idomain ) = P_num_a07 ELSE P_num_a07 = chem_index_table( PARAM_num_a07 , idomain ) END IF chem_boundary_table( idomain, P_num_a07 ) = .TRUE. chem_dname_table( idomain, P_num_a07 ) = 'num_a07' chem_desc_table( idomain, P_num_a07 ) = 'Number, aerosol bin 07' chem_units_table( idomain, P_num_a07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a07 )%stream(2) = 2097216 ! 00200040 F_num_a07 = .TRUE. IF ( chem_index_table( PARAM_so4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a08 = chem_num_table(idomain) chem_index_table( PARAM_so4_a08 , idomain ) = P_so4_a08 ELSE P_so4_a08 = chem_index_table( PARAM_so4_a08 , idomain ) END IF chem_boundary_table( idomain, P_so4_a08 ) = .TRUE. chem_dname_table( idomain, P_so4_a08 ) = 'so4_a08' chem_desc_table( idomain, P_so4_a08 ) = 'Sulfate, aerosol bin 08' chem_units_table( idomain, P_so4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a08 )%stream(2) = 2097216 ! 00200040 F_so4_a08 = .TRUE. IF ( chem_index_table( PARAM_no3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a08 = chem_num_table(idomain) chem_index_table( PARAM_no3_a08 , idomain ) = P_no3_a08 ELSE P_no3_a08 = chem_index_table( PARAM_no3_a08 , idomain ) END IF chem_boundary_table( idomain, P_no3_a08 ) = .TRUE. chem_dname_table( idomain, P_no3_a08 ) = 'no3_a08' chem_desc_table( idomain, P_no3_a08 ) = 'Nitrate, aerosol bin 08' chem_units_table( idomain, P_no3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a08 )%stream(2) = 2097216 ! 00200040 F_no3_a08 = .TRUE. IF ( chem_index_table( PARAM_cl_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a08 = chem_num_table(idomain) chem_index_table( PARAM_cl_a08 , idomain ) = P_cl_a08 ELSE P_cl_a08 = chem_index_table( PARAM_cl_a08 , idomain ) END IF chem_boundary_table( idomain, P_cl_a08 ) = .TRUE. chem_dname_table( idomain, P_cl_a08 ) = 'cl_a08' chem_desc_table( idomain, P_cl_a08 ) = 'Chloride, aerosol bin 08' chem_units_table( idomain, P_cl_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a08 )%stream(2) = 2097216 ! 00200040 F_cl_a08 = .TRUE. IF ( chem_index_table( PARAM_nh4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a08 , idomain ) = P_nh4_a08 ELSE P_nh4_a08 = chem_index_table( PARAM_nh4_a08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a08 ) = .TRUE. chem_dname_table( idomain, P_nh4_a08 ) = 'nh4_a08' chem_desc_table( idomain, P_nh4_a08 ) = 'Ammonium, aerosol bin 08' chem_units_table( idomain, P_nh4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a08 )%stream(2) = 2097216 ! 00200040 F_nh4_a08 = .TRUE. IF ( chem_index_table( PARAM_na_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a08 = chem_num_table(idomain) chem_index_table( PARAM_na_a08 , idomain ) = P_na_a08 ELSE P_na_a08 = chem_index_table( PARAM_na_a08 , idomain ) END IF chem_boundary_table( idomain, P_na_a08 ) = .TRUE. chem_dname_table( idomain, P_na_a08 ) = 'na_a08' chem_desc_table( idomain, P_na_a08 ) = 'Sodium, aerosol bin 08' chem_units_table( idomain, P_na_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a08 )%stream(2) = 2097216 ! 00200040 F_na_a08 = .TRUE. IF ( chem_index_table( PARAM_oin_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a08 = chem_num_table(idomain) chem_index_table( PARAM_oin_a08 , idomain ) = P_oin_a08 ELSE P_oin_a08 = chem_index_table( PARAM_oin_a08 , idomain ) END IF chem_boundary_table( idomain, P_oin_a08 ) = .TRUE. chem_dname_table( idomain, P_oin_a08 ) = 'oin_a08' chem_desc_table( idomain, P_oin_a08 ) = 'Other inorganics, aerosol bin 08' chem_units_table( idomain, P_oin_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a08 )%stream(2) = 2097216 ! 00200040 F_oin_a08 = .TRUE. IF ( chem_index_table( PARAM_oc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a08 = chem_num_table(idomain) chem_index_table( PARAM_oc_a08 , idomain ) = P_oc_a08 ELSE P_oc_a08 = chem_index_table( PARAM_oc_a08 , idomain ) END IF chem_boundary_table( idomain, P_oc_a08 ) = .TRUE. chem_dname_table( idomain, P_oc_a08 ) = 'oc_a08' chem_desc_table( idomain, P_oc_a08 ) = 'Organic carbon, aerosol bin 08' chem_units_table( idomain, P_oc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a08 )%stream(2) = 2097216 ! 00200040 F_oc_a08 = .TRUE. IF ( chem_index_table( PARAM_bc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a08 = chem_num_table(idomain) chem_index_table( PARAM_bc_a08 , idomain ) = P_bc_a08 ELSE P_bc_a08 = chem_index_table( PARAM_bc_a08 , idomain ) END IF chem_boundary_table( idomain, P_bc_a08 ) = .TRUE. chem_dname_table( idomain, P_bc_a08 ) = 'bc_a08' chem_desc_table( idomain, P_bc_a08 ) = 'Black carbon, aerosol bin 08' chem_units_table( idomain, P_bc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a08 )%stream(2) = 2097216 ! 00200040 F_bc_a08 = .TRUE. IF ( chem_index_table( PARAM_hysw_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a08 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a08 , idomain ) = P_hysw_a08 ELSE P_hysw_a08 = chem_index_table( PARAM_hysw_a08 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a08 ) = .TRUE. chem_dname_table( idomain, P_hysw_a08 ) = 'hysw_a08' chem_desc_table( idomain, P_hysw_a08 ) = 'Hysteresis water, aerosol bin 08' chem_units_table( idomain, P_hysw_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a08 )%stream(2) = 2097216 ! 00200040 F_hysw_a08 = .TRUE. IF ( chem_index_table( PARAM_water_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a08 = chem_num_table(idomain) chem_index_table( PARAM_water_a08 , idomain ) = P_water_a08 ELSE P_water_a08 = chem_index_table( PARAM_water_a08 , idomain ) END IF chem_boundary_table( idomain, P_water_a08 ) = .TRUE. chem_dname_table( idomain, P_water_a08 ) = 'water_a08' chem_desc_table( idomain, P_water_a08 ) = 'Water, aerosol bin 08' chem_units_table( idomain, P_water_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a08 )%stream(2) = 2097216 ! 00200040 F_water_a08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a08 , idomain ) = P_pcg1_b_c_a08 ELSE P_pcg1_b_c_a08 = chem_index_table( PARAM_pcg1_b_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a08 ) = 'pcg1_b_c_a08' chem_desc_table( idomain, P_pcg1_b_c_a08 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a08 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a08 , idomain ) = P_pcg1_b_o_a08 ELSE P_pcg1_b_o_a08 = chem_index_table( PARAM_pcg1_b_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a08 ) = 'pcg1_b_o_a08' chem_desc_table( idomain, P_pcg1_b_o_a08 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a08 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a08 , idomain ) = P_opcg1_b_c_a08 ELSE P_opcg1_b_c_a08 = chem_index_table( PARAM_opcg1_b_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a08 ) = 'opcg1_b_c_a08' chem_desc_table( idomain, P_opcg1_b_c_a08 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a08 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a08 , idomain ) = P_opcg1_b_o_a08 ELSE P_opcg1_b_o_a08 = chem_index_table( PARAM_opcg1_b_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a08 ) = 'opcg1_b_o_a08' chem_desc_table( idomain, P_opcg1_b_o_a08 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a08 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a08 , idomain ) = P_pcg1_f_c_a08 ELSE P_pcg1_f_c_a08 = chem_index_table( PARAM_pcg1_f_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a08 ) = 'pcg1_f_c_a08' chem_desc_table( idomain, P_pcg1_f_c_a08 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a08 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a08 , idomain ) = P_pcg1_f_o_a08 ELSE P_pcg1_f_o_a08 = chem_index_table( PARAM_pcg1_f_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a08 ) = 'pcg1_f_o_a08' chem_desc_table( idomain, P_pcg1_f_o_a08 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a08 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a08 , idomain ) = P_opcg1_f_c_a08 ELSE P_opcg1_f_c_a08 = chem_index_table( PARAM_opcg1_f_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a08 ) = 'opcg1_f_c_a08' chem_desc_table( idomain, P_opcg1_f_c_a08 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a08 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a08 , idomain ) = P_opcg1_f_o_a08 ELSE P_opcg1_f_o_a08 = chem_index_table( PARAM_opcg1_f_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a08 ) = 'opcg1_f_o_a08' chem_desc_table( idomain, P_opcg1_f_o_a08 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a08 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a08 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a08 , idomain ) = P_ant1_c_a08 ELSE P_ant1_c_a08 = chem_index_table( PARAM_ant1_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a08 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a08 ) = 'ant1_c_a08' chem_desc_table( idomain, P_ant1_c_a08 ) = 'ant1_c, aerosol bin 05' chem_units_table( idomain, P_ant1_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant1_c_a08 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a08 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a08 , idomain ) = P_biog1_c_a08 ELSE P_biog1_c_a08 = chem_index_table( PARAM_biog1_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a08 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a08 ) = 'biog1_c_a08' chem_desc_table( idomain, P_biog1_c_a08 ) = 'biog1_c, aerosol bin 05' chem_units_table( idomain, P_biog1_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_c_a08 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a08 = .TRUE. IF ( chem_index_table( PARAM_num_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a08 = chem_num_table(idomain) chem_index_table( PARAM_num_a08 , idomain ) = P_num_a08 ELSE P_num_a08 = chem_index_table( PARAM_num_a08 , idomain ) END IF chem_boundary_table( idomain, P_num_a08 ) = .TRUE. chem_dname_table( idomain, P_num_a08 ) = 'num_a08' chem_desc_table( idomain, P_num_a08 ) = 'Number, aerosol bin 08' chem_units_table( idomain, P_num_a08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a08 )%stream(2) = 2097216 ! 00200040 F_num_a08 = .TRUE. IF ( chem_index_table( PARAM_so4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw01 , idomain ) = P_so4_cw01 ELSE P_so4_cw01 = chem_index_table( PARAM_so4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw01 ) = .TRUE. chem_dname_table( idomain, P_so4_cw01 ) = 'so4_cw01' chem_desc_table( idomain, P_so4_cw01 ) = 'Sulfate, aerosol in cloud bin 01' chem_units_table( idomain, P_so4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw01 )%stream(2) = 2097216 ! 00200040 F_so4_cw01 = .TRUE. IF ( chem_index_table( PARAM_no3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw01 , idomain ) = P_no3_cw01 ELSE P_no3_cw01 = chem_index_table( PARAM_no3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw01 ) = .TRUE. chem_dname_table( idomain, P_no3_cw01 ) = 'no3_cw01' chem_desc_table( idomain, P_no3_cw01 ) = 'Nitrate, aerosol in cloud bin 01' chem_units_table( idomain, P_no3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw01 )%stream(2) = 2097216 ! 00200040 F_no3_cw01 = .TRUE. IF ( chem_index_table( PARAM_cl_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw01 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw01 , idomain ) = P_cl_cw01 ELSE P_cl_cw01 = chem_index_table( PARAM_cl_cw01 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw01 ) = .TRUE. chem_dname_table( idomain, P_cl_cw01 ) = 'cl_cw01' chem_desc_table( idomain, P_cl_cw01 ) = 'Chloride, aerosol in cloud bin 01' chem_units_table( idomain, P_cl_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw01 )%stream(2) = 2097216 ! 00200040 F_cl_cw01 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw01 , idomain ) = P_nh4_cw01 ELSE P_nh4_cw01 = chem_index_table( PARAM_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw01 ) = 'nh4_cw01' chem_desc_table( idomain, P_nh4_cw01 ) = 'Ammonium, aerosol in cloud bin 01' chem_units_table( idomain, P_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw01 )%stream(2) = 2097216 ! 00200040 F_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_na_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw01 = chem_num_table(idomain) chem_index_table( PARAM_na_cw01 , idomain ) = P_na_cw01 ELSE P_na_cw01 = chem_index_table( PARAM_na_cw01 , idomain ) END IF chem_boundary_table( idomain, P_na_cw01 ) = .TRUE. chem_dname_table( idomain, P_na_cw01 ) = 'na_cw01' chem_desc_table( idomain, P_na_cw01 ) = 'Sodium, aerosol in cloud bin 01' chem_units_table( idomain, P_na_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw01 )%stream(2) = 2097216 ! 00200040 F_na_cw01 = .TRUE. IF ( chem_index_table( PARAM_oin_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw01 , idomain ) = P_oin_cw01 ELSE P_oin_cw01 = chem_index_table( PARAM_oin_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw01 ) = .TRUE. chem_dname_table( idomain, P_oin_cw01 ) = 'oin_cw01' chem_desc_table( idomain, P_oin_cw01 ) = 'Other inorganics, aerosol in cloud bin 01' chem_units_table( idomain, P_oin_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw01 )%stream(2) = 2097216 ! 00200040 F_oin_cw01 = .TRUE. IF ( chem_index_table( PARAM_oc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw01 , idomain ) = P_oc_cw01 ELSE P_oc_cw01 = chem_index_table( PARAM_oc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw01 ) = .TRUE. chem_dname_table( idomain, P_oc_cw01 ) = 'oc_cw01' chem_desc_table( idomain, P_oc_cw01 ) = 'Organic carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_oc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw01 )%stream(2) = 2097216 ! 00200040 F_oc_cw01 = .TRUE. IF ( chem_index_table( PARAM_bc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw01 , idomain ) = P_bc_cw01 ELSE P_bc_cw01 = chem_index_table( PARAM_bc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw01 ) = .TRUE. chem_dname_table( idomain, P_bc_cw01 ) = 'bc_cw01' chem_desc_table( idomain, P_bc_cw01 ) = 'Black carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_bc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw01 )%stream(2) = 2097216 ! 00200040 F_bc_cw01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_cw01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_cw01 , idomain ) = P_pcg1_b_c_cw01 ELSE P_pcg1_b_c_cw01 = chem_index_table( PARAM_pcg1_b_c_cw01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_cw01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_cw01 ) = 'pcg1_b_c_cw01' chem_desc_table( idomain, P_pcg1_b_c_cw01 ) = 'pcg1_b_c_cw01, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_cw01 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_b_c_cw01 )%stream(2) = 2097152 ! 00200000 F_pcg1_b_c_cw01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_cw01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_cw01 , idomain ) = P_pcg1_b_o_cw01 ELSE P_pcg1_b_o_cw01 = chem_index_table( PARAM_pcg1_b_o_cw01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_cw01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_cw01 ) = 'pcg1_b_o_cw01' chem_desc_table( idomain, P_pcg1_b_o_cw01 ) = 'pcg1_b_o_cw01, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_cw01 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_b_o_cw01 )%stream(2) = 2097152 ! 00200000 F_pcg1_b_o_cw01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_cw01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_cw01 , idomain ) = P_opcg1_b_c_cw01 ELSE P_opcg1_b_c_cw01 = chem_index_table( PARAM_opcg1_b_c_cw01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_cw01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_cw01 ) = 'opcg1_b_c_cw01' chem_desc_table( idomain, P_opcg1_b_c_cw01 ) = 'opcg1_b_c_cw01, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_cw01 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_b_c_cw01 )%stream(2) = 2097152 ! 00200000 F_opcg1_b_c_cw01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_cw01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_cw01 , idomain ) = P_opcg1_b_o_cw01 ELSE P_opcg1_b_o_cw01 = chem_index_table( PARAM_opcg1_b_o_cw01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_cw01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_cw01 ) = 'opcg1_b_o_cw01' chem_desc_table( idomain, P_opcg1_b_o_cw01 ) = 'opcg1_b_o_cw01, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_cw01 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_b_o_cw01 )%stream(2) = 2097152 ! 00200000 F_opcg1_b_o_cw01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_cw01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_cw01 , idomain ) = P_pcg1_f_c_cw01 ELSE P_pcg1_f_c_cw01 = chem_index_table( PARAM_pcg1_f_c_cw01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_cw01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_cw01 ) = 'pcg1_f_c_cw01' chem_desc_table( idomain, P_pcg1_f_c_cw01 ) = 'pcg1_f_c_cw01, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_cw01 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_f_c_cw01 )%stream(2) = 2097152 ! 00200000 F_pcg1_f_c_cw01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_cw01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_cw01 , idomain ) = P_pcg1_f_o_cw01 ELSE P_pcg1_f_o_cw01 = chem_index_table( PARAM_pcg1_f_o_cw01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_cw01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_cw01 ) = 'pcg1_f_o_cw01' chem_desc_table( idomain, P_pcg1_f_o_cw01 ) = 'pcg1_f_o_cw01, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_cw01 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_f_o_cw01 )%stream(2) = 2097152 ! 00200000 F_pcg1_f_o_cw01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_cw01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_cw01 , idomain ) = P_opcg1_f_c_cw01 ELSE P_opcg1_f_c_cw01 = chem_index_table( PARAM_opcg1_f_c_cw01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_cw01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_cw01 ) = 'opcg1_f_c_cw01' chem_desc_table( idomain, P_opcg1_f_c_cw01 ) = 'opcg1_f_c_cw01, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_cw01 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_f_c_cw01 )%stream(2) = 2097152 ! 00200000 F_opcg1_f_c_cw01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_cw01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_cw01 , idomain ) = P_opcg1_f_o_cw01 ELSE P_opcg1_f_o_cw01 = chem_index_table( PARAM_opcg1_f_o_cw01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_cw01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_cw01 ) = 'opcg1_f_o_cw01' chem_desc_table( idomain, P_opcg1_f_o_cw01 ) = 'opcg1_f_o_cw01, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_cw01 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_f_o_cw01 )%stream(2) = 2097152 ! 00200000 F_opcg1_f_o_cw01 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_cw01 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_cw01 , idomain ) = P_ant1_c_cw01 ELSE P_ant1_c_cw01 = chem_index_table( PARAM_ant1_c_cw01 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_cw01 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_cw01 ) = 'ant1_c_cw01' chem_desc_table( idomain, P_ant1_c_cw01 ) = 'ant1_c_cw01, aerosol bin 01' chem_units_table( idomain, P_ant1_c_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_cw01 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant1_c_cw01 )%stream(2) = 2097152 ! 00200000 F_ant1_c_cw01 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_cw01 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_cw01 , idomain ) = P_biog1_c_cw01 ELSE P_biog1_c_cw01 = chem_index_table( PARAM_biog1_c_cw01 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_cw01 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_cw01 ) = 'biog1_c_cw01' chem_desc_table( idomain, P_biog1_c_cw01 ) = 'biog1_c_cw01, aerosol bin 01' chem_units_table( idomain, P_biog1_c_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_cw01 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_c_cw01 )%stream(2) = 2097152 ! 00200000 F_biog1_c_cw01 = .TRUE. IF ( chem_index_table( PARAM_num_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw01 = chem_num_table(idomain) chem_index_table( PARAM_num_cw01 , idomain ) = P_num_cw01 ELSE P_num_cw01 = chem_index_table( PARAM_num_cw01 , idomain ) END IF chem_boundary_table( idomain, P_num_cw01 ) = .TRUE. chem_dname_table( idomain, P_num_cw01 ) = 'num_cw01' chem_desc_table( idomain, P_num_cw01 ) = 'Number, aerosol in cloud bin 01' chem_units_table( idomain, P_num_cw01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw01 )%stream(2) = 2097216 ! 00200040 F_num_cw01 = .TRUE. IF ( chem_index_table( PARAM_so4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw02 , idomain ) = P_so4_cw02 ELSE P_so4_cw02 = chem_index_table( PARAM_so4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw02 ) = .TRUE. chem_dname_table( idomain, P_so4_cw02 ) = 'so4_cw02' chem_desc_table( idomain, P_so4_cw02 ) = 'Sulfate, aerosol in cloud bin 02' chem_units_table( idomain, P_so4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw02 )%stream(2) = 2097216 ! 00200040 F_so4_cw02 = .TRUE. IF ( chem_index_table( PARAM_no3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw02 , idomain ) = P_no3_cw02 ELSE P_no3_cw02 = chem_index_table( PARAM_no3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw02 ) = .TRUE. chem_dname_table( idomain, P_no3_cw02 ) = 'no3_cw02' chem_desc_table( idomain, P_no3_cw02 ) = 'Nitrate, aerosol in cloud bin 02' chem_units_table( idomain, P_no3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw02 )%stream(2) = 2097216 ! 00200040 F_no3_cw02 = .TRUE. IF ( chem_index_table( PARAM_cl_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw02 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw02 , idomain ) = P_cl_cw02 ELSE P_cl_cw02 = chem_index_table( PARAM_cl_cw02 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw02 ) = .TRUE. chem_dname_table( idomain, P_cl_cw02 ) = 'cl_cw02' chem_desc_table( idomain, P_cl_cw02 ) = 'Chloride, aerosol in cloud bin 02' chem_units_table( idomain, P_cl_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw02 )%stream(2) = 2097216 ! 00200040 F_cl_cw02 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw02 , idomain ) = P_nh4_cw02 ELSE P_nh4_cw02 = chem_index_table( PARAM_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw02 ) = 'nh4_cw02' chem_desc_table( idomain, P_nh4_cw02 ) = 'Ammonium, aerosol in cloud bin 02' chem_units_table( idomain, P_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw02 )%stream(2) = 2097216 ! 00200040 F_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_na_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw02 = chem_num_table(idomain) chem_index_table( PARAM_na_cw02 , idomain ) = P_na_cw02 ELSE P_na_cw02 = chem_index_table( PARAM_na_cw02 , idomain ) END IF chem_boundary_table( idomain, P_na_cw02 ) = .TRUE. chem_dname_table( idomain, P_na_cw02 ) = 'na_cw02' chem_desc_table( idomain, P_na_cw02 ) = 'Sodium, aerosol in cloud bin 02' chem_units_table( idomain, P_na_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw02 )%stream(2) = 2097216 ! 00200040 F_na_cw02 = .TRUE. IF ( chem_index_table( PARAM_oin_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw02 , idomain ) = P_oin_cw02 ELSE P_oin_cw02 = chem_index_table( PARAM_oin_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw02 ) = .TRUE. chem_dname_table( idomain, P_oin_cw02 ) = 'oin_cw02' chem_desc_table( idomain, P_oin_cw02 ) = 'Other inorganics, aerosol in cloud bin 02' chem_units_table( idomain, P_oin_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw02 )%stream(2) = 2097216 ! 00200040 F_oin_cw02 = .TRUE. IF ( chem_index_table( PARAM_oc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw02 , idomain ) = P_oc_cw02 ELSE P_oc_cw02 = chem_index_table( PARAM_oc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw02 ) = .TRUE. chem_dname_table( idomain, P_oc_cw02 ) = 'oc_cw02' chem_desc_table( idomain, P_oc_cw02 ) = 'Organic carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_oc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw02 )%stream(2) = 2097216 ! 00200040 F_oc_cw02 = .TRUE. IF ( chem_index_table( PARAM_bc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw02 , idomain ) = P_bc_cw02 ELSE P_bc_cw02 = chem_index_table( PARAM_bc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw02 ) = .TRUE. chem_dname_table( idomain, P_bc_cw02 ) = 'bc_cw02' chem_desc_table( idomain, P_bc_cw02 ) = 'Black carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_bc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw02 )%stream(2) = 2097216 ! 00200040 F_bc_cw02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_cw02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_cw02 , idomain ) = P_pcg1_b_c_cw02 ELSE P_pcg1_b_c_cw02 = chem_index_table( PARAM_pcg1_b_c_cw02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_cw02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_cw02 ) = 'pcg1_b_c_cw02' chem_desc_table( idomain, P_pcg1_b_c_cw02 ) = 'pcg1_b_c_cw02, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_cw02 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_b_c_cw02 )%stream(2) = 2097152 ! 00200000 F_pcg1_b_c_cw02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_cw02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_cw02 , idomain ) = P_pcg1_b_o_cw02 ELSE P_pcg1_b_o_cw02 = chem_index_table( PARAM_pcg1_b_o_cw02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_cw02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_cw02 ) = 'pcg1_b_o_cw02' chem_desc_table( idomain, P_pcg1_b_o_cw02 ) = 'pcg1_b_o_cw02, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_cw02 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_b_o_cw02 )%stream(2) = 2097152 ! 00200000 F_pcg1_b_o_cw02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_cw02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_cw02 , idomain ) = P_opcg1_b_c_cw02 ELSE P_opcg1_b_c_cw02 = chem_index_table( PARAM_opcg1_b_c_cw02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_cw02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_cw02 ) = 'opcg1_b_c_cw02' chem_desc_table( idomain, P_opcg1_b_c_cw02 ) = 'opcg1_b_c_cw02, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_cw02 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_b_c_cw02 )%stream(2) = 2097152 ! 00200000 F_opcg1_b_c_cw02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_cw02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_cw02 , idomain ) = P_opcg1_b_o_cw02 ELSE P_opcg1_b_o_cw02 = chem_index_table( PARAM_opcg1_b_o_cw02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_cw02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_cw02 ) = 'opcg1_b_o_cw02' chem_desc_table( idomain, P_opcg1_b_o_cw02 ) = 'opcg1_b_o_cw02, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_cw02 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_b_o_cw02 )%stream(2) = 2097152 ! 00200000 F_opcg1_b_o_cw02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_cw02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_cw02 , idomain ) = P_pcg1_f_c_cw02 ELSE P_pcg1_f_c_cw02 = chem_index_table( PARAM_pcg1_f_c_cw02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_cw02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_cw02 ) = 'pcg1_f_c_cw02' chem_desc_table( idomain, P_pcg1_f_c_cw02 ) = 'pcg1_f_c_cw02, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_cw02 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_f_c_cw02 )%stream(2) = 2097152 ! 00200000 F_pcg1_f_c_cw02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_cw02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_cw02 , idomain ) = P_pcg1_f_o_cw02 ELSE P_pcg1_f_o_cw02 = chem_index_table( PARAM_pcg1_f_o_cw02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_cw02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_cw02 ) = 'pcg1_f_o_cw02' chem_desc_table( idomain, P_pcg1_f_o_cw02 ) = 'pcg1_f_o_cw02, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_cw02 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_f_o_cw02 )%stream(2) = 2097152 ! 00200000 F_pcg1_f_o_cw02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_cw02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_cw02 , idomain ) = P_opcg1_f_c_cw02 ELSE P_opcg1_f_c_cw02 = chem_index_table( PARAM_opcg1_f_c_cw02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_cw02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_cw02 ) = 'opcg1_f_c_cw02' chem_desc_table( idomain, P_opcg1_f_c_cw02 ) = 'opcg1_f_c_cw02, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_cw02 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_f_c_cw02 )%stream(2) = 2097152 ! 00200000 F_opcg1_f_c_cw02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_cw02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_cw02 , idomain ) = P_opcg1_f_o_cw02 ELSE P_opcg1_f_o_cw02 = chem_index_table( PARAM_opcg1_f_o_cw02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_cw02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_cw02 ) = 'opcg1_f_o_cw02' chem_desc_table( idomain, P_opcg1_f_o_cw02 ) = 'opcg1_f_o_cw02, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_cw02 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_f_o_cw02 )%stream(2) = 2097152 ! 00200000 F_opcg1_f_o_cw02 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_cw02 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_cw02 , idomain ) = P_ant1_c_cw02 ELSE P_ant1_c_cw02 = chem_index_table( PARAM_ant1_c_cw02 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_cw02 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_cw02 ) = 'ant1_c_cw02' chem_desc_table( idomain, P_ant1_c_cw02 ) = 'ant1_c_cw02, aerosol bin 01' chem_units_table( idomain, P_ant1_c_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_cw02 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant1_c_cw02 )%stream(2) = 2097152 ! 00200000 F_ant1_c_cw02 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_cw02 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_cw02 , idomain ) = P_biog1_c_cw02 ELSE P_biog1_c_cw02 = chem_index_table( PARAM_biog1_c_cw02 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_cw02 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_cw02 ) = 'biog1_c_cw02' chem_desc_table( idomain, P_biog1_c_cw02 ) = 'biog1_c, aerosol in cloud bin 02' chem_units_table( idomain, P_biog1_c_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_cw02 )%stream(2) = 2097216 ! 00200040 F_biog1_c_cw02 = .TRUE. IF ( chem_index_table( PARAM_num_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw02 = chem_num_table(idomain) chem_index_table( PARAM_num_cw02 , idomain ) = P_num_cw02 ELSE P_num_cw02 = chem_index_table( PARAM_num_cw02 , idomain ) END IF chem_boundary_table( idomain, P_num_cw02 ) = .TRUE. chem_dname_table( idomain, P_num_cw02 ) = 'num_cw02' chem_desc_table( idomain, P_num_cw02 ) = 'Number, aerosol in cloud bin 02' chem_units_table( idomain, P_num_cw02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw02 )%stream(2) = 2097216 ! 00200040 F_num_cw02 = .TRUE. IF ( chem_index_table( PARAM_so4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw03 , idomain ) = P_so4_cw03 ELSE P_so4_cw03 = chem_index_table( PARAM_so4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw03 ) = .TRUE. chem_dname_table( idomain, P_so4_cw03 ) = 'so4_cw03' chem_desc_table( idomain, P_so4_cw03 ) = 'Sulfate, aerosol in cloud bin 03' chem_units_table( idomain, P_so4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw03 )%stream(2) = 2097216 ! 00200040 F_so4_cw03 = .TRUE. IF ( chem_index_table( PARAM_no3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw03 , idomain ) = P_no3_cw03 ELSE P_no3_cw03 = chem_index_table( PARAM_no3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw03 ) = .TRUE. chem_dname_table( idomain, P_no3_cw03 ) = 'no3_cw03' chem_desc_table( idomain, P_no3_cw03 ) = 'Nitrate, aerosol in cloud bin 03' chem_units_table( idomain, P_no3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw03 )%stream(2) = 2097216 ! 00200040 F_no3_cw03 = .TRUE. IF ( chem_index_table( PARAM_cl_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw03 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw03 , idomain ) = P_cl_cw03 ELSE P_cl_cw03 = chem_index_table( PARAM_cl_cw03 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw03 ) = .TRUE. chem_dname_table( idomain, P_cl_cw03 ) = 'cl_cw03' chem_desc_table( idomain, P_cl_cw03 ) = 'Chloride, aerosol in cloud bin 03' chem_units_table( idomain, P_cl_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw03 )%stream(2) = 2097216 ! 00200040 F_cl_cw03 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw03 , idomain ) = P_nh4_cw03 ELSE P_nh4_cw03 = chem_index_table( PARAM_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw03 ) = 'nh4_cw03' chem_desc_table( idomain, P_nh4_cw03 ) = 'Ammonium, aerosol in cloud bin 03' chem_units_table( idomain, P_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw03 )%stream(2) = 2097216 ! 00200040 F_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_na_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw03 = chem_num_table(idomain) chem_index_table( PARAM_na_cw03 , idomain ) = P_na_cw03 ELSE P_na_cw03 = chem_index_table( PARAM_na_cw03 , idomain ) END IF chem_boundary_table( idomain, P_na_cw03 ) = .TRUE. chem_dname_table( idomain, P_na_cw03 ) = 'na_cw03' chem_desc_table( idomain, P_na_cw03 ) = 'Sodium, aerosol in cloud bin 03' chem_units_table( idomain, P_na_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw03 )%stream(2) = 2097216 ! 00200040 F_na_cw03 = .TRUE. IF ( chem_index_table( PARAM_oin_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw03 , idomain ) = P_oin_cw03 ELSE P_oin_cw03 = chem_index_table( PARAM_oin_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw03 ) = .TRUE. chem_dname_table( idomain, P_oin_cw03 ) = 'oin_cw03' chem_desc_table( idomain, P_oin_cw03 ) = 'Other inorganics, aerosol in cloud bin 03' chem_units_table( idomain, P_oin_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw03 )%stream(2) = 2097216 ! 00200040 F_oin_cw03 = .TRUE. IF ( chem_index_table( PARAM_oc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw03 , idomain ) = P_oc_cw03 ELSE P_oc_cw03 = chem_index_table( PARAM_oc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw03 ) = .TRUE. chem_dname_table( idomain, P_oc_cw03 ) = 'oc_cw03' chem_desc_table( idomain, P_oc_cw03 ) = 'Organic carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_oc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw03 )%stream(2) = 2097216 ! 00200040 F_oc_cw03 = .TRUE. IF ( chem_index_table( PARAM_bc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw03 , idomain ) = P_bc_cw03 ELSE P_bc_cw03 = chem_index_table( PARAM_bc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw03 ) = .TRUE. chem_dname_table( idomain, P_bc_cw03 ) = 'bc_cw03' chem_desc_table( idomain, P_bc_cw03 ) = 'Black carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_bc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw03 )%stream(2) = 2097216 ! 00200040 F_bc_cw03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_cw03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_cw03 , idomain ) = P_pcg1_b_c_cw03 ELSE P_pcg1_b_c_cw03 = chem_index_table( PARAM_pcg1_b_c_cw03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_cw03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_cw03 ) = 'pcg1_b_c_cw03' chem_desc_table( idomain, P_pcg1_b_c_cw03 ) = 'pcg1_b_c_cw03, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_cw03 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_b_c_cw03 )%stream(2) = 2097152 ! 00200000 F_pcg1_b_c_cw03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_cw03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_cw03 , idomain ) = P_pcg1_b_o_cw03 ELSE P_pcg1_b_o_cw03 = chem_index_table( PARAM_pcg1_b_o_cw03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_cw03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_cw03 ) = 'pcg1_b_o_cw03' chem_desc_table( idomain, P_pcg1_b_o_cw03 ) = 'pcg1_b_o_cw03, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_cw03 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_b_o_cw03 )%stream(2) = 2097152 ! 00200000 F_pcg1_b_o_cw03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_cw03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_cw03 , idomain ) = P_opcg1_b_c_cw03 ELSE P_opcg1_b_c_cw03 = chem_index_table( PARAM_opcg1_b_c_cw03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_cw03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_cw03 ) = 'opcg1_b_c_cw03' chem_desc_table( idomain, P_opcg1_b_c_cw03 ) = 'opcg1_b_c_cw03, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_cw03 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_b_c_cw03 )%stream(2) = 2097152 ! 00200000 F_opcg1_b_c_cw03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_cw03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_cw03 , idomain ) = P_opcg1_b_o_cw03 ELSE P_opcg1_b_o_cw03 = chem_index_table( PARAM_opcg1_b_o_cw03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_cw03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_cw03 ) = 'opcg1_b_o_cw03' chem_desc_table( idomain, P_opcg1_b_o_cw03 ) = 'opcg1_b_o_cw03, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_cw03 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_b_o_cw03 )%stream(2) = 2097152 ! 00200000 F_opcg1_b_o_cw03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_cw03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_cw03 , idomain ) = P_pcg1_f_c_cw03 ELSE P_pcg1_f_c_cw03 = chem_index_table( PARAM_pcg1_f_c_cw03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_cw03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_cw03 ) = 'pcg1_f_c_cw03' chem_desc_table( idomain, P_pcg1_f_c_cw03 ) = 'pcg1_f_c_cw03, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_cw03 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_f_c_cw03 )%stream(2) = 2097152 ! 00200000 F_pcg1_f_c_cw03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_cw03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_cw03 , idomain ) = P_pcg1_f_o_cw03 ELSE P_pcg1_f_o_cw03 = chem_index_table( PARAM_pcg1_f_o_cw03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_cw03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_cw03 ) = 'pcg1_f_o_cw03' chem_desc_table( idomain, P_pcg1_f_o_cw03 ) = 'pcg1_f_o_cw03, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_cw03 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_f_o_cw03 )%stream(2) = 2097152 ! 00200000 F_pcg1_f_o_cw03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_cw03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_cw03 , idomain ) = P_opcg1_f_c_cw03 ELSE P_opcg1_f_c_cw03 = chem_index_table( PARAM_opcg1_f_c_cw03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_cw03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_cw03 ) = 'opcg1_f_c_cw03' chem_desc_table( idomain, P_opcg1_f_c_cw03 ) = 'opcg1_f_c_cw03, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_cw03 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_f_c_cw03 )%stream(2) = 2097152 ! 00200000 F_opcg1_f_c_cw03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_cw03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_cw03 , idomain ) = P_opcg1_f_o_cw03 ELSE P_opcg1_f_o_cw03 = chem_index_table( PARAM_opcg1_f_o_cw03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_cw03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_cw03 ) = 'opcg1_f_o_cw03' chem_desc_table( idomain, P_opcg1_f_o_cw03 ) = 'opcg1_f_o_cw03, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_cw03 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_f_o_cw03 )%stream(2) = 2097152 ! 00200000 F_opcg1_f_o_cw03 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_cw03 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_cw03 , idomain ) = P_ant1_c_cw03 ELSE P_ant1_c_cw03 = chem_index_table( PARAM_ant1_c_cw03 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_cw03 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_cw03 ) = 'ant1_c_cw03' chem_desc_table( idomain, P_ant1_c_cw03 ) = 'ant1_c_cw03, aerosol bin 01' chem_units_table( idomain, P_ant1_c_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_cw03 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant1_c_cw03 )%stream(2) = 2097152 ! 00200000 F_ant1_c_cw03 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_cw03 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_cw03 , idomain ) = P_biog1_c_cw03 ELSE P_biog1_c_cw03 = chem_index_table( PARAM_biog1_c_cw03 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_cw03 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_cw03 ) = 'biog1_c_cw03' chem_desc_table( idomain, P_biog1_c_cw03 ) = 'biog1_c, aerosol in cloud bin 03' chem_units_table( idomain, P_biog1_c_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_cw03 )%stream(2) = 2097216 ! 00200040 F_biog1_c_cw03 = .TRUE. IF ( chem_index_table( PARAM_num_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw03 = chem_num_table(idomain) chem_index_table( PARAM_num_cw03 , idomain ) = P_num_cw03 ELSE P_num_cw03 = chem_index_table( PARAM_num_cw03 , idomain ) END IF chem_boundary_table( idomain, P_num_cw03 ) = .TRUE. chem_dname_table( idomain, P_num_cw03 ) = 'num_cw03' chem_desc_table( idomain, P_num_cw03 ) = 'Number, aerosol in cloud bin 03' chem_units_table( idomain, P_num_cw03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw03 )%stream(2) = 2097216 ! 00200040 F_num_cw03 = .TRUE. IF ( chem_index_table( PARAM_so4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw04 , idomain ) = P_so4_cw04 ELSE P_so4_cw04 = chem_index_table( PARAM_so4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw04 ) = .TRUE. chem_dname_table( idomain, P_so4_cw04 ) = 'so4_cw04' chem_desc_table( idomain, P_so4_cw04 ) = 'Sulfate, aerosol in cloud bin 04' chem_units_table( idomain, P_so4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw04 )%stream(2) = 2097216 ! 00200040 F_so4_cw04 = .TRUE. IF ( chem_index_table( PARAM_no3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw04 , idomain ) = P_no3_cw04 ELSE P_no3_cw04 = chem_index_table( PARAM_no3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw04 ) = .TRUE. chem_dname_table( idomain, P_no3_cw04 ) = 'no3_cw04' chem_desc_table( idomain, P_no3_cw04 ) = 'Nitrate, aerosol in cloud bin 04' chem_units_table( idomain, P_no3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw04 )%stream(2) = 2097216 ! 00200040 F_no3_cw04 = .TRUE. IF ( chem_index_table( PARAM_cl_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw04 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw04 , idomain ) = P_cl_cw04 ELSE P_cl_cw04 = chem_index_table( PARAM_cl_cw04 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw04 ) = .TRUE. chem_dname_table( idomain, P_cl_cw04 ) = 'cl_cw04' chem_desc_table( idomain, P_cl_cw04 ) = 'Chloride, aerosol in cloud bin 04' chem_units_table( idomain, P_cl_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw04 )%stream(2) = 2097216 ! 00200040 F_cl_cw04 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw04 , idomain ) = P_nh4_cw04 ELSE P_nh4_cw04 = chem_index_table( PARAM_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw04 ) = 'nh4_cw04' chem_desc_table( idomain, P_nh4_cw04 ) = 'Ammonium, aerosol in cloud bin 04' chem_units_table( idomain, P_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw04 )%stream(2) = 2097216 ! 00200040 F_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_na_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw04 = chem_num_table(idomain) chem_index_table( PARAM_na_cw04 , idomain ) = P_na_cw04 ELSE P_na_cw04 = chem_index_table( PARAM_na_cw04 , idomain ) END IF chem_boundary_table( idomain, P_na_cw04 ) = .TRUE. chem_dname_table( idomain, P_na_cw04 ) = 'na_cw04' chem_desc_table( idomain, P_na_cw04 ) = 'Sodium, aerosol in cloud bin 04' chem_units_table( idomain, P_na_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw04 )%stream(2) = 2097216 ! 00200040 F_na_cw04 = .TRUE. IF ( chem_index_table( PARAM_oin_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw04 , idomain ) = P_oin_cw04 ELSE P_oin_cw04 = chem_index_table( PARAM_oin_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw04 ) = .TRUE. chem_dname_table( idomain, P_oin_cw04 ) = 'oin_cw04' chem_desc_table( idomain, P_oin_cw04 ) = 'Other inorganics, aerosol in cloud bin 04' chem_units_table( idomain, P_oin_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw04 )%stream(2) = 2097216 ! 00200040 F_oin_cw04 = .TRUE. IF ( chem_index_table( PARAM_oc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw04 , idomain ) = P_oc_cw04 ELSE P_oc_cw04 = chem_index_table( PARAM_oc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw04 ) = .TRUE. chem_dname_table( idomain, P_oc_cw04 ) = 'oc_cw04' chem_desc_table( idomain, P_oc_cw04 ) = 'Organic carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_oc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw04 )%stream(2) = 2097216 ! 00200040 F_oc_cw04 = .TRUE. IF ( chem_index_table( PARAM_bc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw04 , idomain ) = P_bc_cw04 ELSE P_bc_cw04 = chem_index_table( PARAM_bc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw04 ) = .TRUE. chem_dname_table( idomain, P_bc_cw04 ) = 'bc_cw04' chem_desc_table( idomain, P_bc_cw04 ) = 'Black carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_bc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw04 )%stream(2) = 2097216 ! 00200040 F_bc_cw04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_cw04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_cw04 , idomain ) = P_pcg1_b_c_cw04 ELSE P_pcg1_b_c_cw04 = chem_index_table( PARAM_pcg1_b_c_cw04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_cw04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_cw04 ) = 'pcg1_b_c_cw04' chem_desc_table( idomain, P_pcg1_b_c_cw04 ) = 'pcg1_b_c_cw04, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_cw04 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_b_c_cw04 )%stream(2) = 2097152 ! 00200000 F_pcg1_b_c_cw04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_cw04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_cw04 , idomain ) = P_pcg1_b_o_cw04 ELSE P_pcg1_b_o_cw04 = chem_index_table( PARAM_pcg1_b_o_cw04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_cw04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_cw04 ) = 'pcg1_b_o_cw04' chem_desc_table( idomain, P_pcg1_b_o_cw04 ) = 'pcg1_b_o_cw04, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_cw04 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_b_o_cw04 )%stream(2) = 2097152 ! 00200000 F_pcg1_b_o_cw04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_cw04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_cw04 , idomain ) = P_opcg1_b_c_cw04 ELSE P_opcg1_b_c_cw04 = chem_index_table( PARAM_opcg1_b_c_cw04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_cw04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_cw04 ) = 'opcg1_b_c_cw04' chem_desc_table( idomain, P_opcg1_b_c_cw04 ) = 'opcg1_b_c_cw04, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_cw04 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_b_c_cw04 )%stream(2) = 2097152 ! 00200000 F_opcg1_b_c_cw04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_cw04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_cw04 , idomain ) = P_opcg1_b_o_cw04 ELSE P_opcg1_b_o_cw04 = chem_index_table( PARAM_opcg1_b_o_cw04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_cw04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_cw04 ) = 'opcg1_b_o_cw04' chem_desc_table( idomain, P_opcg1_b_o_cw04 ) = 'opcg1_b_o_cw04, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_cw04 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_b_o_cw04 )%stream(2) = 2097152 ! 00200000 F_opcg1_b_o_cw04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_cw04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_cw04 , idomain ) = P_pcg1_f_c_cw04 ELSE P_pcg1_f_c_cw04 = chem_index_table( PARAM_pcg1_f_c_cw04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_cw04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_cw04 ) = 'pcg1_f_c_cw04' chem_desc_table( idomain, P_pcg1_f_c_cw04 ) = 'pcg1_f_c_cw04, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_cw04 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_f_c_cw04 )%stream(2) = 2097152 ! 00200000 F_pcg1_f_c_cw04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_cw04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_cw04 , idomain ) = P_pcg1_f_o_cw04 ELSE P_pcg1_f_o_cw04 = chem_index_table( PARAM_pcg1_f_o_cw04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_cw04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_cw04 ) = 'pcg1_f_o_cw04' chem_desc_table( idomain, P_pcg1_f_o_cw04 ) = 'pcg1_f_o_cw04, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_cw04 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_f_o_cw04 )%stream(2) = 2097152 ! 00200000 F_pcg1_f_o_cw04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_cw04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_cw04 , idomain ) = P_opcg1_f_c_cw04 ELSE P_opcg1_f_c_cw04 = chem_index_table( PARAM_opcg1_f_c_cw04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_cw04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_cw04 ) = 'opcg1_f_c_cw04' chem_desc_table( idomain, P_opcg1_f_c_cw04 ) = 'opcg1_f_c_cw04, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_cw04 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_f_c_cw04 )%stream(2) = 2097152 ! 00200000 F_opcg1_f_c_cw04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_cw04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_cw04 , idomain ) = P_opcg1_f_o_cw04 ELSE P_opcg1_f_o_cw04 = chem_index_table( PARAM_opcg1_f_o_cw04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_cw04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_cw04 ) = 'opcg1_f_o_cw04' chem_desc_table( idomain, P_opcg1_f_o_cw04 ) = 'opcg1_f_o_cw04, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_cw04 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_f_o_cw04 )%stream(2) = 2097152 ! 00200000 F_opcg1_f_o_cw04 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_cw04 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_cw04 , idomain ) = P_ant1_c_cw04 ELSE P_ant1_c_cw04 = chem_index_table( PARAM_ant1_c_cw04 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_cw04 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_cw04 ) = 'ant1_c_cw04' chem_desc_table( idomain, P_ant1_c_cw04 ) = 'ant1_c_cw04, aerosol bin 01' chem_units_table( idomain, P_ant1_c_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_cw04 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant1_c_cw04 )%stream(2) = 2097152 ! 00200000 F_ant1_c_cw04 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_cw04 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_cw04 , idomain ) = P_biog1_c_cw04 ELSE P_biog1_c_cw04 = chem_index_table( PARAM_biog1_c_cw04 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_cw04 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_cw04 ) = 'biog1_c_cw04' chem_desc_table( idomain, P_biog1_c_cw04 ) = 'biog1_c_cw04, aerosol bin 01' chem_units_table( idomain, P_biog1_c_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_cw04 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_c_cw04 )%stream(2) = 2097152 ! 00200000 F_biog1_c_cw04 = .TRUE. IF ( chem_index_table( PARAM_num_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw04 = chem_num_table(idomain) chem_index_table( PARAM_num_cw04 , idomain ) = P_num_cw04 ELSE P_num_cw04 = chem_index_table( PARAM_num_cw04 , idomain ) END IF chem_boundary_table( idomain, P_num_cw04 ) = .TRUE. chem_dname_table( idomain, P_num_cw04 ) = 'num_cw04' chem_desc_table( idomain, P_num_cw04 ) = 'Number, aerosol in cloud bin 04' chem_units_table( idomain, P_num_cw04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw04 )%stream(2) = 2097216 ! 00200040 F_num_cw04 = .TRUE. IF ( chem_index_table( PARAM_so4_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw05 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw05 , idomain ) = P_so4_cw05 ELSE P_so4_cw05 = chem_index_table( PARAM_so4_cw05 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw05 ) = .TRUE. chem_dname_table( idomain, P_so4_cw05 ) = 'so4_cw05' chem_desc_table( idomain, P_so4_cw05 ) = 'Sulfate, aerosol in cloud bin 05' chem_units_table( idomain, P_so4_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw05 )%stream(2) = 2097216 ! 00200040 F_so4_cw05 = .TRUE. IF ( chem_index_table( PARAM_no3_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw05 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw05 , idomain ) = P_no3_cw05 ELSE P_no3_cw05 = chem_index_table( PARAM_no3_cw05 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw05 ) = .TRUE. chem_dname_table( idomain, P_no3_cw05 ) = 'no3_cw05' chem_desc_table( idomain, P_no3_cw05 ) = 'Nitrate, aerosol in cloud bin 05' chem_units_table( idomain, P_no3_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw05 )%stream(2) = 2097216 ! 00200040 F_no3_cw05 = .TRUE. IF ( chem_index_table( PARAM_cl_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw05 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw05 , idomain ) = P_cl_cw05 ELSE P_cl_cw05 = chem_index_table( PARAM_cl_cw05 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw05 ) = .TRUE. chem_dname_table( idomain, P_cl_cw05 ) = 'cl_cw05' chem_desc_table( idomain, P_cl_cw05 ) = 'Chloride, aerosol in cloud bin 05' chem_units_table( idomain, P_cl_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw05 )%stream(2) = 2097216 ! 00200040 F_cl_cw05 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw05 , idomain ) = P_nh4_cw05 ELSE P_nh4_cw05 = chem_index_table( PARAM_nh4_cw05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw05 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw05 ) = 'nh4_cw05' chem_desc_table( idomain, P_nh4_cw05 ) = 'Ammonium, aerosol in cloud bin 05' chem_units_table( idomain, P_nh4_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw05 )%stream(2) = 2097216 ! 00200040 F_nh4_cw05 = .TRUE. IF ( chem_index_table( PARAM_na_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw05 = chem_num_table(idomain) chem_index_table( PARAM_na_cw05 , idomain ) = P_na_cw05 ELSE P_na_cw05 = chem_index_table( PARAM_na_cw05 , idomain ) END IF chem_boundary_table( idomain, P_na_cw05 ) = .TRUE. chem_dname_table( idomain, P_na_cw05 ) = 'na_cw05' chem_desc_table( idomain, P_na_cw05 ) = 'Sodium, aerosol in cloud bin 05' chem_units_table( idomain, P_na_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw05 )%stream(2) = 2097216 ! 00200040 F_na_cw05 = .TRUE. IF ( chem_index_table( PARAM_oin_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw05 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw05 , idomain ) = P_oin_cw05 ELSE P_oin_cw05 = chem_index_table( PARAM_oin_cw05 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw05 ) = .TRUE. chem_dname_table( idomain, P_oin_cw05 ) = 'oin_cw05' chem_desc_table( idomain, P_oin_cw05 ) = 'Other inorganics, aerosol in cloud bin 05' chem_units_table( idomain, P_oin_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw05 )%stream(2) = 2097216 ! 00200040 F_oin_cw05 = .TRUE. IF ( chem_index_table( PARAM_oc_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw05 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw05 , idomain ) = P_oc_cw05 ELSE P_oc_cw05 = chem_index_table( PARAM_oc_cw05 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw05 ) = .TRUE. chem_dname_table( idomain, P_oc_cw05 ) = 'oc_cw05' chem_desc_table( idomain, P_oc_cw05 ) = 'Organic carbon, aerosol in cloud bin 05' chem_units_table( idomain, P_oc_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw05 )%stream(2) = 2097216 ! 00200040 F_oc_cw05 = .TRUE. IF ( chem_index_table( PARAM_bc_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw05 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw05 , idomain ) = P_bc_cw05 ELSE P_bc_cw05 = chem_index_table( PARAM_bc_cw05 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw05 ) = .TRUE. chem_dname_table( idomain, P_bc_cw05 ) = 'bc_cw05' chem_desc_table( idomain, P_bc_cw05 ) = 'Black carbon, aerosol in cloud bin 05' chem_units_table( idomain, P_bc_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw05 )%stream(2) = 2097216 ! 00200040 F_bc_cw05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_cw05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_cw05 , idomain ) = P_pcg1_b_c_cw05 ELSE P_pcg1_b_c_cw05 = chem_index_table( PARAM_pcg1_b_c_cw05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_cw05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_cw05 ) = 'pcg1_b_c_cw05' chem_desc_table( idomain, P_pcg1_b_c_cw05 ) = 'pcg1_b_c_cw05, aerosol bin 05' chem_units_table( idomain, P_pcg1_b_c_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_cw05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_b_c_cw05 )%stream(2) = 2097152 ! 00200000 F_pcg1_b_c_cw05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_cw05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_cw05 , idomain ) = P_pcg1_b_o_cw05 ELSE P_pcg1_b_o_cw05 = chem_index_table( PARAM_pcg1_b_o_cw05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_cw05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_cw05 ) = 'pcg1_b_o_cw05' chem_desc_table( idomain, P_pcg1_b_o_cw05 ) = 'pcg1_b_o_cw05, aerosol bin 05' chem_units_table( idomain, P_pcg1_b_o_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_cw05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_b_o_cw05 )%stream(2) = 2097152 ! 00200000 F_pcg1_b_o_cw05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_cw05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_cw05 , idomain ) = P_opcg1_b_c_cw05 ELSE P_opcg1_b_c_cw05 = chem_index_table( PARAM_opcg1_b_c_cw05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_cw05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_cw05 ) = 'opcg1_b_c_cw05' chem_desc_table( idomain, P_opcg1_b_c_cw05 ) = 'opcg1_b_c_cw05, aerosol bin 05' chem_units_table( idomain, P_opcg1_b_c_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_cw05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_b_c_cw05 )%stream(2) = 2097152 ! 00200000 F_opcg1_b_c_cw05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_cw05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_cw05 , idomain ) = P_opcg1_b_o_cw05 ELSE P_opcg1_b_o_cw05 = chem_index_table( PARAM_opcg1_b_o_cw05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_cw05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_cw05 ) = 'opcg1_b_o_cw05' chem_desc_table( idomain, P_opcg1_b_o_cw05 ) = 'opcg1_b_o_cw05, aerosol bin 05' chem_units_table( idomain, P_opcg1_b_o_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_cw05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_b_o_cw05 )%stream(2) = 2097152 ! 00200000 F_opcg1_b_o_cw05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_cw05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_cw05 , idomain ) = P_pcg1_f_c_cw05 ELSE P_pcg1_f_c_cw05 = chem_index_table( PARAM_pcg1_f_c_cw05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_cw05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_cw05 ) = 'pcg1_f_c_cw05' chem_desc_table( idomain, P_pcg1_f_c_cw05 ) = 'pcg1_f_c_cw05, aerosol bin 05' chem_units_table( idomain, P_pcg1_f_c_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_cw05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_f_c_cw05 )%stream(2) = 2097152 ! 00200000 F_pcg1_f_c_cw05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_cw05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_cw05 , idomain ) = P_pcg1_f_o_cw05 ELSE P_pcg1_f_o_cw05 = chem_index_table( PARAM_pcg1_f_o_cw05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_cw05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_cw05 ) = 'pcg1_f_o_cw05' chem_desc_table( idomain, P_pcg1_f_o_cw05 ) = 'pcg1_f_o_cw05, aerosol bin 05' chem_units_table( idomain, P_pcg1_f_o_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_cw05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_f_o_cw05 )%stream(2) = 2097152 ! 00200000 F_pcg1_f_o_cw05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_cw05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_cw05 , idomain ) = P_opcg1_f_c_cw05 ELSE P_opcg1_f_c_cw05 = chem_index_table( PARAM_opcg1_f_c_cw05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_cw05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_cw05 ) = 'opcg1_f_c_cw05' chem_desc_table( idomain, P_opcg1_f_c_cw05 ) = 'opcg1_f_c_cw05, aerosol bin 05' chem_units_table( idomain, P_opcg1_f_c_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_cw05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_f_c_cw05 )%stream(2) = 2097152 ! 00200000 F_opcg1_f_c_cw05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_cw05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_cw05 , idomain ) = P_opcg1_f_o_cw05 ELSE P_opcg1_f_o_cw05 = chem_index_table( PARAM_opcg1_f_o_cw05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_cw05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_cw05 ) = 'opcg1_f_o_cw05' chem_desc_table( idomain, P_opcg1_f_o_cw05 ) = 'opcg1_f_o_cw05, aerosol bin 05' chem_units_table( idomain, P_opcg1_f_o_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_cw05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_f_o_cw05 )%stream(2) = 2097152 ! 00200000 F_opcg1_f_o_cw05 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_cw05 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_cw05 , idomain ) = P_ant1_c_cw05 ELSE P_ant1_c_cw05 = chem_index_table( PARAM_ant1_c_cw05 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_cw05 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_cw05 ) = 'ant1_c_cw05' chem_desc_table( idomain, P_ant1_c_cw05 ) = 'ant1_c_cw05, aerosol bin 05' chem_units_table( idomain, P_ant1_c_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_cw05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant1_c_cw05 )%stream(2) = 2097152 ! 00200000 F_ant1_c_cw05 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_cw05 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_cw05 , idomain ) = P_biog1_c_cw05 ELSE P_biog1_c_cw05 = chem_index_table( PARAM_biog1_c_cw05 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_cw05 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_cw05 ) = 'biog1_c_cw05' chem_desc_table( idomain, P_biog1_c_cw05 ) = 'biog1_c_cw05, aerosol bin 05' chem_units_table( idomain, P_biog1_c_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_cw05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_c_cw05 )%stream(2) = 2097152 ! 00200000 F_biog1_c_cw05 = .TRUE. IF ( chem_index_table( PARAM_num_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw05 = chem_num_table(idomain) chem_index_table( PARAM_num_cw05 , idomain ) = P_num_cw05 ELSE P_num_cw05 = chem_index_table( PARAM_num_cw05 , idomain ) END IF chem_boundary_table( idomain, P_num_cw05 ) = .TRUE. chem_dname_table( idomain, P_num_cw05 ) = 'num_cw05' chem_desc_table( idomain, P_num_cw05 ) = 'Number, aerosol in cloud bin 05' chem_units_table( idomain, P_num_cw05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw05 )%stream(2) = 2097216 ! 00200040 F_num_cw05 = .TRUE. IF ( chem_index_table( PARAM_so4_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw06 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw06 , idomain ) = P_so4_cw06 ELSE P_so4_cw06 = chem_index_table( PARAM_so4_cw06 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw06 ) = .TRUE. chem_dname_table( idomain, P_so4_cw06 ) = 'so4_cw06' chem_desc_table( idomain, P_so4_cw06 ) = 'Sulfate, aerosol in cloud bin 06' chem_units_table( idomain, P_so4_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw06 )%stream(2) = 2097216 ! 00200040 F_so4_cw06 = .TRUE. IF ( chem_index_table( PARAM_no3_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw06 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw06 , idomain ) = P_no3_cw06 ELSE P_no3_cw06 = chem_index_table( PARAM_no3_cw06 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw06 ) = .TRUE. chem_dname_table( idomain, P_no3_cw06 ) = 'no3_cw06' chem_desc_table( idomain, P_no3_cw06 ) = 'Nitrate, aerosol in cloud bin 06' chem_units_table( idomain, P_no3_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw06 )%stream(2) = 2097216 ! 00200040 F_no3_cw06 = .TRUE. IF ( chem_index_table( PARAM_cl_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw06 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw06 , idomain ) = P_cl_cw06 ELSE P_cl_cw06 = chem_index_table( PARAM_cl_cw06 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw06 ) = .TRUE. chem_dname_table( idomain, P_cl_cw06 ) = 'cl_cw06' chem_desc_table( idomain, P_cl_cw06 ) = 'Chloride, aerosol in cloud bin 06' chem_units_table( idomain, P_cl_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw06 )%stream(2) = 2097216 ! 00200040 F_cl_cw06 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw06 , idomain ) = P_nh4_cw06 ELSE P_nh4_cw06 = chem_index_table( PARAM_nh4_cw06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw06 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw06 ) = 'nh4_cw06' chem_desc_table( idomain, P_nh4_cw06 ) = 'Ammonium, aerosol in cloud bin 06' chem_units_table( idomain, P_nh4_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw06 )%stream(2) = 2097216 ! 00200040 F_nh4_cw06 = .TRUE. IF ( chem_index_table( PARAM_na_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw06 = chem_num_table(idomain) chem_index_table( PARAM_na_cw06 , idomain ) = P_na_cw06 ELSE P_na_cw06 = chem_index_table( PARAM_na_cw06 , idomain ) END IF chem_boundary_table( idomain, P_na_cw06 ) = .TRUE. chem_dname_table( idomain, P_na_cw06 ) = 'na_cw06' chem_desc_table( idomain, P_na_cw06 ) = 'Sodium, aerosol in cloud bin 06' chem_units_table( idomain, P_na_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw06 )%stream(2) = 2097216 ! 00200040 F_na_cw06 = .TRUE. IF ( chem_index_table( PARAM_oin_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw06 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw06 , idomain ) = P_oin_cw06 ELSE P_oin_cw06 = chem_index_table( PARAM_oin_cw06 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw06 ) = .TRUE. chem_dname_table( idomain, P_oin_cw06 ) = 'oin_cw06' chem_desc_table( idomain, P_oin_cw06 ) = 'Other inorganics, aerosol in cloud bin 06' chem_units_table( idomain, P_oin_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw06 )%stream(2) = 2097216 ! 00200040 F_oin_cw06 = .TRUE. IF ( chem_index_table( PARAM_oc_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw06 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw06 , idomain ) = P_oc_cw06 ELSE P_oc_cw06 = chem_index_table( PARAM_oc_cw06 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw06 ) = .TRUE. chem_dname_table( idomain, P_oc_cw06 ) = 'oc_cw06' chem_desc_table( idomain, P_oc_cw06 ) = 'Organic carbon, aerosol in cloud bin 06' chem_units_table( idomain, P_oc_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw06 )%stream(2) = 2097216 ! 00200040 F_oc_cw06 = .TRUE. IF ( chem_index_table( PARAM_bc_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw06 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw06 , idomain ) = P_bc_cw06 ELSE P_bc_cw06 = chem_index_table( PARAM_bc_cw06 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw06 ) = .TRUE. chem_dname_table( idomain, P_bc_cw06 ) = 'bc_cw06' chem_desc_table( idomain, P_bc_cw06 ) = 'Black carbon, aerosol in cloud bin 06' chem_units_table( idomain, P_bc_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw06 )%stream(2) = 2097216 ! 00200040 F_bc_cw06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_cw06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_cw06 , idomain ) = P_pcg1_b_c_cw06 ELSE P_pcg1_b_c_cw06 = chem_index_table( PARAM_pcg1_b_c_cw06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_cw06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_cw06 ) = 'pcg1_b_c_cw06' chem_desc_table( idomain, P_pcg1_b_c_cw06 ) = 'pcg1_b_c_cw06, aerosol bin 06' chem_units_table( idomain, P_pcg1_b_c_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_cw06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_b_c_cw06 )%stream(2) = 2097152 ! 00200000 F_pcg1_b_c_cw06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_cw06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_cw06 , idomain ) = P_pcg1_b_o_cw06 ELSE P_pcg1_b_o_cw06 = chem_index_table( PARAM_pcg1_b_o_cw06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_cw06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_cw06 ) = 'pcg1_b_o_cw06' chem_desc_table( idomain, P_pcg1_b_o_cw06 ) = 'pcg1_b_o_cw06, aerosol bin 06' chem_units_table( idomain, P_pcg1_b_o_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_cw06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_b_o_cw06 )%stream(2) = 2097152 ! 00200000 F_pcg1_b_o_cw06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_cw06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_cw06 , idomain ) = P_opcg1_b_c_cw06 ELSE P_opcg1_b_c_cw06 = chem_index_table( PARAM_opcg1_b_c_cw06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_cw06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_cw06 ) = 'opcg1_b_c_cw06' chem_desc_table( idomain, P_opcg1_b_c_cw06 ) = 'opcg1_b_c_cw06, aerosol bin 06' chem_units_table( idomain, P_opcg1_b_c_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_cw06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_b_c_cw06 )%stream(2) = 2097152 ! 00200000 F_opcg1_b_c_cw06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_cw06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_cw06 , idomain ) = P_opcg1_b_o_cw06 ELSE P_opcg1_b_o_cw06 = chem_index_table( PARAM_opcg1_b_o_cw06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_cw06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_cw06 ) = 'opcg1_b_o_cw06' chem_desc_table( idomain, P_opcg1_b_o_cw06 ) = 'opcg1_b_o_cw06, aerosol bin 06' chem_units_table( idomain, P_opcg1_b_o_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_cw06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_b_o_cw06 )%stream(2) = 2097152 ! 00200000 F_opcg1_b_o_cw06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_cw06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_cw06 , idomain ) = P_pcg1_f_c_cw06 ELSE P_pcg1_f_c_cw06 = chem_index_table( PARAM_pcg1_f_c_cw06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_cw06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_cw06 ) = 'pcg1_f_c_cw06' chem_desc_table( idomain, P_pcg1_f_c_cw06 ) = 'pcg1_f_c_cw06, aerosol bin 06' chem_units_table( idomain, P_pcg1_f_c_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_cw06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_f_c_cw06 )%stream(2) = 2097152 ! 00200000 F_pcg1_f_c_cw06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_cw06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_cw06 , idomain ) = P_pcg1_f_o_cw06 ELSE P_pcg1_f_o_cw06 = chem_index_table( PARAM_pcg1_f_o_cw06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_cw06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_cw06 ) = 'pcg1_f_o_cw06' chem_desc_table( idomain, P_pcg1_f_o_cw06 ) = 'pcg1_f_o_cw06, aerosol bin 06' chem_units_table( idomain, P_pcg1_f_o_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_cw06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_f_o_cw06 )%stream(2) = 2097152 ! 00200000 F_pcg1_f_o_cw06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_cw06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_cw06 , idomain ) = P_opcg1_f_c_cw06 ELSE P_opcg1_f_c_cw06 = chem_index_table( PARAM_opcg1_f_c_cw06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_cw06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_cw06 ) = 'opcg1_f_c_cw06' chem_desc_table( idomain, P_opcg1_f_c_cw06 ) = 'opcg1_f_c_cw06, aerosol bin 06' chem_units_table( idomain, P_opcg1_f_c_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_cw06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_f_c_cw06 )%stream(2) = 2097152 ! 00200000 F_opcg1_f_c_cw06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_cw06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_cw06 , idomain ) = P_opcg1_f_o_cw06 ELSE P_opcg1_f_o_cw06 = chem_index_table( PARAM_opcg1_f_o_cw06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_cw06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_cw06 ) = 'opcg1_f_o_cw06' chem_desc_table( idomain, P_opcg1_f_o_cw06 ) = 'opcg1_f_o_cw06, aerosol bin 06' chem_units_table( idomain, P_opcg1_f_o_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_cw06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_f_o_cw06 )%stream(2) = 2097152 ! 00200000 F_opcg1_f_o_cw06 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_cw06 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_cw06 , idomain ) = P_ant1_c_cw06 ELSE P_ant1_c_cw06 = chem_index_table( PARAM_ant1_c_cw06 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_cw06 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_cw06 ) = 'ant1_c_cw06' chem_desc_table( idomain, P_ant1_c_cw06 ) = 'ant1_c_cw06, aerosol bin 06' chem_units_table( idomain, P_ant1_c_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_cw06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant1_c_cw06 )%stream(2) = 2097152 ! 00200000 F_ant1_c_cw06 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_cw06 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_cw06 , idomain ) = P_biog1_c_cw06 ELSE P_biog1_c_cw06 = chem_index_table( PARAM_biog1_c_cw06 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_cw06 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_cw06 ) = 'biog1_c_cw06' chem_desc_table( idomain, P_biog1_c_cw06 ) = 'biog1_c_cw06, aerosol bin 06' chem_units_table( idomain, P_biog1_c_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_cw06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_c_cw06 )%stream(2) = 2097152 ! 00200000 F_biog1_c_cw06 = .TRUE. IF ( chem_index_table( PARAM_num_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw06 = chem_num_table(idomain) chem_index_table( PARAM_num_cw06 , idomain ) = P_num_cw06 ELSE P_num_cw06 = chem_index_table( PARAM_num_cw06 , idomain ) END IF chem_boundary_table( idomain, P_num_cw06 ) = .TRUE. chem_dname_table( idomain, P_num_cw06 ) = 'num_cw06' chem_desc_table( idomain, P_num_cw06 ) = 'Number, aerosol in cloud bin 06' chem_units_table( idomain, P_num_cw06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw06 )%stream(2) = 2097216 ! 00200040 F_num_cw06 = .TRUE. IF ( chem_index_table( PARAM_so4_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw07 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw07 , idomain ) = P_so4_cw07 ELSE P_so4_cw07 = chem_index_table( PARAM_so4_cw07 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw07 ) = .TRUE. chem_dname_table( idomain, P_so4_cw07 ) = 'so4_cw07' chem_desc_table( idomain, P_so4_cw07 ) = 'Sulfate, aerosol in cloud bin 07' chem_units_table( idomain, P_so4_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw07 )%stream(2) = 2097216 ! 00200040 F_so4_cw07 = .TRUE. IF ( chem_index_table( PARAM_no3_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw07 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw07 , idomain ) = P_no3_cw07 ELSE P_no3_cw07 = chem_index_table( PARAM_no3_cw07 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw07 ) = .TRUE. chem_dname_table( idomain, P_no3_cw07 ) = 'no3_cw07' chem_desc_table( idomain, P_no3_cw07 ) = 'Nitrate, aerosol in cloud bin 07' chem_units_table( idomain, P_no3_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw07 )%stream(2) = 2097216 ! 00200040 F_no3_cw07 = .TRUE. IF ( chem_index_table( PARAM_cl_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw07 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw07 , idomain ) = P_cl_cw07 ELSE P_cl_cw07 = chem_index_table( PARAM_cl_cw07 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw07 ) = .TRUE. chem_dname_table( idomain, P_cl_cw07 ) = 'cl_cw07' chem_desc_table( idomain, P_cl_cw07 ) = 'Chloride, aerosol in cloud bin 07' chem_units_table( idomain, P_cl_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw07 )%stream(2) = 2097216 ! 00200040 F_cl_cw07 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw07 , idomain ) = P_nh4_cw07 ELSE P_nh4_cw07 = chem_index_table( PARAM_nh4_cw07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw07 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw07 ) = 'nh4_cw07' chem_desc_table( idomain, P_nh4_cw07 ) = 'Ammonium, aerosol in cloud bin 07' chem_units_table( idomain, P_nh4_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw07 )%stream(2) = 2097216 ! 00200040 F_nh4_cw07 = .TRUE. IF ( chem_index_table( PARAM_na_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw07 = chem_num_table(idomain) chem_index_table( PARAM_na_cw07 , idomain ) = P_na_cw07 ELSE P_na_cw07 = chem_index_table( PARAM_na_cw07 , idomain ) END IF chem_boundary_table( idomain, P_na_cw07 ) = .TRUE. chem_dname_table( idomain, P_na_cw07 ) = 'na_cw07' chem_desc_table( idomain, P_na_cw07 ) = 'Sodium, aerosol in cloud bin 07' chem_units_table( idomain, P_na_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw07 )%stream(2) = 2097216 ! 00200040 F_na_cw07 = .TRUE. IF ( chem_index_table( PARAM_oin_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw07 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw07 , idomain ) = P_oin_cw07 ELSE P_oin_cw07 = chem_index_table( PARAM_oin_cw07 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw07 ) = .TRUE. chem_dname_table( idomain, P_oin_cw07 ) = 'oin_cw07' chem_desc_table( idomain, P_oin_cw07 ) = 'Other inorganics, aerosol in cloud bin 07' chem_units_table( idomain, P_oin_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw07 )%stream(2) = 2097216 ! 00200040 F_oin_cw07 = .TRUE. IF ( chem_index_table( PARAM_oc_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw07 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw07 , idomain ) = P_oc_cw07 ELSE P_oc_cw07 = chem_index_table( PARAM_oc_cw07 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw07 ) = .TRUE. chem_dname_table( idomain, P_oc_cw07 ) = 'oc_cw07' chem_desc_table( idomain, P_oc_cw07 ) = 'Organic carbon, aerosol in cloud bin 07' chem_units_table( idomain, P_oc_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw07 )%stream(2) = 2097216 ! 00200040 F_oc_cw07 = .TRUE. IF ( chem_index_table( PARAM_bc_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw07 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw07 , idomain ) = P_bc_cw07 ELSE P_bc_cw07 = chem_index_table( PARAM_bc_cw07 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw07 ) = .TRUE. chem_dname_table( idomain, P_bc_cw07 ) = 'bc_cw07' chem_desc_table( idomain, P_bc_cw07 ) = 'Black carbon, aerosol in cloud bin 07' chem_units_table( idomain, P_bc_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw07 )%stream(2) = 2097216 ! 00200040 F_bc_cw07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_cw07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_cw07 , idomain ) = P_pcg1_b_c_cw07 ELSE P_pcg1_b_c_cw07 = chem_index_table( PARAM_pcg1_b_c_cw07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_cw07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_cw07 ) = 'pcg1_b_c_cw07' chem_desc_table( idomain, P_pcg1_b_c_cw07 ) = 'pcg1_b_c_cw07, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_cw07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_b_c_cw07 )%stream(2) = 2097152 ! 00200000 F_pcg1_b_c_cw07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_cw07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_cw07 , idomain ) = P_pcg1_b_o_cw07 ELSE P_pcg1_b_o_cw07 = chem_index_table( PARAM_pcg1_b_o_cw07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_cw07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_cw07 ) = 'pcg1_b_o_cw07' chem_desc_table( idomain, P_pcg1_b_o_cw07 ) = 'pcg1_b_o_cw07, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_cw07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_b_o_cw07 )%stream(2) = 2097152 ! 00200000 F_pcg1_b_o_cw07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_cw07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_cw07 , idomain ) = P_opcg1_b_c_cw07 ELSE P_opcg1_b_c_cw07 = chem_index_table( PARAM_opcg1_b_c_cw07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_cw07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_cw07 ) = 'opcg1_b_c_cw07' chem_desc_table( idomain, P_opcg1_b_c_cw07 ) = 'opcg1_b_c_cw07, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_cw07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_b_c_cw07 )%stream(2) = 2097152 ! 00200000 F_opcg1_b_c_cw07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_cw07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_cw07 , idomain ) = P_opcg1_b_o_cw07 ELSE P_opcg1_b_o_cw07 = chem_index_table( PARAM_opcg1_b_o_cw07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_cw07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_cw07 ) = 'opcg1_b_o_cw07' chem_desc_table( idomain, P_opcg1_b_o_cw07 ) = 'opcg1_b_o_cw07, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_cw07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_b_o_cw07 )%stream(2) = 2097152 ! 00200000 F_opcg1_b_o_cw07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_cw07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_cw07 , idomain ) = P_pcg1_f_c_cw07 ELSE P_pcg1_f_c_cw07 = chem_index_table( PARAM_pcg1_f_c_cw07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_cw07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_cw07 ) = 'pcg1_f_c_cw07' chem_desc_table( idomain, P_pcg1_f_c_cw07 ) = 'pcg1_f_c_cw07, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_cw07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_f_c_cw07 )%stream(2) = 2097152 ! 00200000 F_pcg1_f_c_cw07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_cw07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_cw07 , idomain ) = P_pcg1_f_o_cw07 ELSE P_pcg1_f_o_cw07 = chem_index_table( PARAM_pcg1_f_o_cw07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_cw07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_cw07 ) = 'pcg1_f_o_cw07' chem_desc_table( idomain, P_pcg1_f_o_cw07 ) = 'pcg1_f_o_cw07, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_cw07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_f_o_cw07 )%stream(2) = 2097152 ! 00200000 F_pcg1_f_o_cw07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_cw07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_cw07 , idomain ) = P_opcg1_f_c_cw07 ELSE P_opcg1_f_c_cw07 = chem_index_table( PARAM_opcg1_f_c_cw07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_cw07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_cw07 ) = 'opcg1_f_c_cw07' chem_desc_table( idomain, P_opcg1_f_c_cw07 ) = 'opcg1_f_c_cw07, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_cw07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_f_c_cw07 )%stream(2) = 2097152 ! 00200000 F_opcg1_f_c_cw07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_cw07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_cw07 , idomain ) = P_opcg1_f_o_cw07 ELSE P_opcg1_f_o_cw07 = chem_index_table( PARAM_opcg1_f_o_cw07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_cw07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_cw07 ) = 'opcg1_f_o_cw07' chem_desc_table( idomain, P_opcg1_f_o_cw07 ) = 'opcg1_f_o_cw07, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_cw07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_f_o_cw07 )%stream(2) = 2097152 ! 00200000 F_opcg1_f_o_cw07 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_cw07 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_cw07 , idomain ) = P_ant1_c_cw07 ELSE P_ant1_c_cw07 = chem_index_table( PARAM_ant1_c_cw07 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_cw07 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_cw07 ) = 'ant1_c_cw07' chem_desc_table( idomain, P_ant1_c_cw07 ) = 'ant1_c_cw07, aerosol bin 01' chem_units_table( idomain, P_ant1_c_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_cw07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant1_c_cw07 )%stream(2) = 2097152 ! 00200000 F_ant1_c_cw07 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_cw07 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_cw07 , idomain ) = P_biog1_c_cw07 ELSE P_biog1_c_cw07 = chem_index_table( PARAM_biog1_c_cw07 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_cw07 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_cw07 ) = 'biog1_c_cw07' chem_desc_table( idomain, P_biog1_c_cw07 ) = 'biog1_c_cw07, aerosol bin 01' chem_units_table( idomain, P_biog1_c_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_cw07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_c_cw07 )%stream(2) = 2097152 ! 00200000 F_biog1_c_cw07 = .TRUE. IF ( chem_index_table( PARAM_num_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw07 = chem_num_table(idomain) chem_index_table( PARAM_num_cw07 , idomain ) = P_num_cw07 ELSE P_num_cw07 = chem_index_table( PARAM_num_cw07 , idomain ) END IF chem_boundary_table( idomain, P_num_cw07 ) = .TRUE. chem_dname_table( idomain, P_num_cw07 ) = 'num_cw07' chem_desc_table( idomain, P_num_cw07 ) = 'Number, aerosol in cloud bin 07' chem_units_table( idomain, P_num_cw07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw07 )%stream(2) = 2097216 ! 00200040 F_num_cw07 = .TRUE. IF ( chem_index_table( PARAM_so4_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw08 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw08 , idomain ) = P_so4_cw08 ELSE P_so4_cw08 = chem_index_table( PARAM_so4_cw08 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw08 ) = .TRUE. chem_dname_table( idomain, P_so4_cw08 ) = 'so4_cw08' chem_desc_table( idomain, P_so4_cw08 ) = 'Sulfate, aerosol in cloud bin 08' chem_units_table( idomain, P_so4_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw08 )%stream(2) = 2097216 ! 00200040 F_so4_cw08 = .TRUE. IF ( chem_index_table( PARAM_no3_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw08 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw08 , idomain ) = P_no3_cw08 ELSE P_no3_cw08 = chem_index_table( PARAM_no3_cw08 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw08 ) = .TRUE. chem_dname_table( idomain, P_no3_cw08 ) = 'no3_cw08' chem_desc_table( idomain, P_no3_cw08 ) = 'Nitrate, aerosol in cloud bin 08' chem_units_table( idomain, P_no3_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw08 )%stream(2) = 2097216 ! 00200040 F_no3_cw08 = .TRUE. IF ( chem_index_table( PARAM_cl_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw08 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw08 , idomain ) = P_cl_cw08 ELSE P_cl_cw08 = chem_index_table( PARAM_cl_cw08 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw08 ) = .TRUE. chem_dname_table( idomain, P_cl_cw08 ) = 'cl_cw08' chem_desc_table( idomain, P_cl_cw08 ) = 'Chloride, aerosol in cloud bin 08' chem_units_table( idomain, P_cl_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw08 )%stream(2) = 2097216 ! 00200040 F_cl_cw08 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw08 , idomain ) = P_nh4_cw08 ELSE P_nh4_cw08 = chem_index_table( PARAM_nh4_cw08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw08 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw08 ) = 'nh4_cw08' chem_desc_table( idomain, P_nh4_cw08 ) = 'Ammonium, aerosol in cloud bin 08' chem_units_table( idomain, P_nh4_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw08 )%stream(2) = 2097216 ! 00200040 F_nh4_cw08 = .TRUE. IF ( chem_index_table( PARAM_na_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw08 = chem_num_table(idomain) chem_index_table( PARAM_na_cw08 , idomain ) = P_na_cw08 ELSE P_na_cw08 = chem_index_table( PARAM_na_cw08 , idomain ) END IF chem_boundary_table( idomain, P_na_cw08 ) = .TRUE. chem_dname_table( idomain, P_na_cw08 ) = 'na_cw08' chem_desc_table( idomain, P_na_cw08 ) = 'Sodium, aerosol in cloud bin 08' chem_units_table( idomain, P_na_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw08 )%stream(2) = 2097216 ! 00200040 F_na_cw08 = .TRUE. IF ( chem_index_table( PARAM_oin_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw08 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw08 , idomain ) = P_oin_cw08 ELSE P_oin_cw08 = chem_index_table( PARAM_oin_cw08 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw08 ) = .TRUE. chem_dname_table( idomain, P_oin_cw08 ) = 'oin_cw08' chem_desc_table( idomain, P_oin_cw08 ) = 'Other inorganics, aerosol in cloud bin 08' chem_units_table( idomain, P_oin_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw08 )%stream(2) = 2097216 ! 00200040 F_oin_cw08 = .TRUE. IF ( chem_index_table( PARAM_oc_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw08 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw08 , idomain ) = P_oc_cw08 ELSE P_oc_cw08 = chem_index_table( PARAM_oc_cw08 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw08 ) = .TRUE. chem_dname_table( idomain, P_oc_cw08 ) = 'oc_cw08' chem_desc_table( idomain, P_oc_cw08 ) = 'Organic carbon, aerosol in cloud bin 08' chem_units_table( idomain, P_oc_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw08 )%stream(2) = 2097216 ! 00200040 F_oc_cw08 = .TRUE. IF ( chem_index_table( PARAM_bc_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw08 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw08 , idomain ) = P_bc_cw08 ELSE P_bc_cw08 = chem_index_table( PARAM_bc_cw08 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw08 ) = .TRUE. chem_dname_table( idomain, P_bc_cw08 ) = 'bc_cw08' chem_desc_table( idomain, P_bc_cw08 ) = 'Black carbon, aerosol in cloud bin 08' chem_units_table( idomain, P_bc_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw08 )%stream(2) = 2097216 ! 00200040 F_bc_cw08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_cw08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_cw08 , idomain ) = P_pcg1_b_c_cw08 ELSE P_pcg1_b_c_cw08 = chem_index_table( PARAM_pcg1_b_c_cw08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_cw08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_cw08 ) = 'pcg1_b_c_cw08' chem_desc_table( idomain, P_pcg1_b_c_cw08 ) = 'pcg1_b_c_cw08, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_cw08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_b_c_cw08 )%stream(2) = 2097152 ! 00200000 F_pcg1_b_c_cw08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_cw08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_cw08 , idomain ) = P_pcg1_b_o_cw08 ELSE P_pcg1_b_o_cw08 = chem_index_table( PARAM_pcg1_b_o_cw08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_cw08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_cw08 ) = 'pcg1_b_o_cw08' chem_desc_table( idomain, P_pcg1_b_o_cw08 ) = 'pcg1_b_o_cw08, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_cw08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_b_o_cw08 )%stream(2) = 2097152 ! 00200000 F_pcg1_b_o_cw08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_cw08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_cw08 , idomain ) = P_opcg1_b_c_cw08 ELSE P_opcg1_b_c_cw08 = chem_index_table( PARAM_opcg1_b_c_cw08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_cw08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_cw08 ) = 'opcg1_b_c_cw08' chem_desc_table( idomain, P_opcg1_b_c_cw08 ) = 'opcg1_b_c_cw08, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_cw08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_b_c_cw08 )%stream(2) = 2097152 ! 00200000 F_opcg1_b_c_cw08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_cw08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_cw08 , idomain ) = P_opcg1_b_o_cw08 ELSE P_opcg1_b_o_cw08 = chem_index_table( PARAM_opcg1_b_o_cw08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_cw08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_cw08 ) = 'opcg1_b_o_cw08' chem_desc_table( idomain, P_opcg1_b_o_cw08 ) = 'opcg1_b_o_cw08, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_cw08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_b_o_cw08 )%stream(2) = 2097152 ! 00200000 F_opcg1_b_o_cw08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_cw08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_cw08 , idomain ) = P_pcg1_f_c_cw08 ELSE P_pcg1_f_c_cw08 = chem_index_table( PARAM_pcg1_f_c_cw08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_cw08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_cw08 ) = 'pcg1_f_c_cw08' chem_desc_table( idomain, P_pcg1_f_c_cw08 ) = 'pcg1_f_c_cw08, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_cw08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_f_c_cw08 )%stream(2) = 2097152 ! 00200000 F_pcg1_f_c_cw08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_cw08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_cw08 , idomain ) = P_pcg1_f_o_cw08 ELSE P_pcg1_f_o_cw08 = chem_index_table( PARAM_pcg1_f_o_cw08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_cw08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_cw08 ) = 'pcg1_f_o_cw08' chem_desc_table( idomain, P_pcg1_f_o_cw08 ) = 'pcg1_f_o_cw08, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_cw08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_pcg1_f_o_cw08 )%stream(2) = 2097152 ! 00200000 F_pcg1_f_o_cw08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_cw08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_cw08 , idomain ) = P_opcg1_f_c_cw08 ELSE P_opcg1_f_c_cw08 = chem_index_table( PARAM_opcg1_f_c_cw08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_cw08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_cw08 ) = 'opcg1_f_c_cw08' chem_desc_table( idomain, P_opcg1_f_c_cw08 ) = 'opcg1_f_c_cw08, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_cw08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_f_c_cw08 )%stream(2) = 2097152 ! 00200000 F_opcg1_f_c_cw08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_cw08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_cw08 , idomain ) = P_opcg1_f_o_cw08 ELSE P_opcg1_f_o_cw08 = chem_index_table( PARAM_opcg1_f_o_cw08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_cw08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_cw08 ) = 'opcg1_f_o_cw08' chem_desc_table( idomain, P_opcg1_f_o_cw08 ) = 'opcg1_f_o_cw08, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_cw08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_opcg1_f_o_cw08 )%stream(2) = 2097152 ! 00200000 F_opcg1_f_o_cw08 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_cw08 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_cw08 , idomain ) = P_ant1_c_cw08 ELSE P_ant1_c_cw08 = chem_index_table( PARAM_ant1_c_cw08 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_cw08 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_cw08 ) = 'ant1_c_cw08' chem_desc_table( idomain, P_ant1_c_cw08 ) = 'ant1_c_cw08, aerosol bin 01' chem_units_table( idomain, P_ant1_c_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_cw08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant1_c_cw08 )%stream(2) = 2097152 ! 00200000 F_ant1_c_cw08 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_cw08 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_cw08 , idomain ) = P_biog1_c_cw08 ELSE P_biog1_c_cw08 = chem_index_table( PARAM_biog1_c_cw08 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_cw08 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_cw08 ) = 'biog1_c_cw08' chem_desc_table( idomain, P_biog1_c_cw08 ) = 'biog1_c_cw08, aerosol bin 01' chem_units_table( idomain, P_biog1_c_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_cw08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_c_cw08 )%stream(2) = 2097152 ! 00200000 F_biog1_c_cw08 = .TRUE. IF ( chem_index_table( PARAM_num_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw08 = chem_num_table(idomain) chem_index_table( PARAM_num_cw08 , idomain ) = P_num_cw08 ELSE P_num_cw08 = chem_index_table( PARAM_num_cw08 , idomain ) END IF chem_boundary_table( idomain, P_num_cw08 ) = .TRUE. chem_dname_table( idomain, P_num_cw08 ) = 'num_cw08' chem_desc_table( idomain, P_num_cw08 ) = 'Number, aerosol in cloud bin 08' chem_units_table( idomain, P_num_cw08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw08 )%stream(2) = 2097216 ! 00200040 F_num_cw08 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==204)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_h2so4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2so4 = chem_num_table(idomain) chem_index_table( PARAM_h2so4 , idomain ) = P_h2so4 ELSE P_h2so4 = chem_index_table( PARAM_h2so4 , idomain ) END IF chem_boundary_table( idomain, P_h2so4 ) = .TRUE. chem_dname_table( idomain, P_h2so4 ) = 'h2so4' chem_desc_table( idomain, P_h2so4 ) = 'H2SO4 mixing ratio' chem_units_table( idomain, P_h2so4 ) = 'ppmv' chem_streams_table( idomain, P_h2so4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2so4 )%stream(2) = 2097216 ! 00200040 F_h2so4 = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ccho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ccho = chem_num_table(idomain) chem_index_table( PARAM_ccho , idomain ) = P_ccho ELSE P_ccho = chem_index_table( PARAM_ccho , idomain ) END IF chem_boundary_table( idomain, P_ccho ) = .TRUE. chem_dname_table( idomain, P_ccho ) = 'ccho' chem_desc_table( idomain, P_ccho ) = 'CCHO mixing ratio' chem_units_table( idomain, P_ccho ) = 'ppmv' chem_streams_table( idomain, P_ccho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ccho )%stream(2) = 2097216 ! 00200040 F_ccho = .TRUE. IF ( chem_index_table( PARAM_rcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rcho = chem_num_table(idomain) chem_index_table( PARAM_rcho , idomain ) = P_rcho ELSE P_rcho = chem_index_table( PARAM_rcho , idomain ) END IF chem_boundary_table( idomain, P_rcho ) = .TRUE. chem_dname_table( idomain, P_rcho ) = 'rcho' chem_desc_table( idomain, P_rcho ) = 'RCHO mixing ratio' chem_units_table( idomain, P_rcho ) = 'ppmv' chem_streams_table( idomain, P_rcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rcho )%stream(2) = 2097216 ! 00200040 F_rcho = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 ! 00200040 F_acet = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 ! 00200040 F_mek = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 ! 00200040 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_meoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meoh = chem_num_table(idomain) chem_index_table( PARAM_meoh , idomain ) = P_meoh ELSE P_meoh = chem_index_table( PARAM_meoh , idomain ) END IF chem_boundary_table( idomain, P_meoh ) = .TRUE. chem_dname_table( idomain, P_meoh ) = 'meoh' chem_desc_table( idomain, P_meoh ) = '' chem_units_table( idomain, P_meoh ) = '' chem_streams_table( idomain, P_meoh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_meoh )%stream(2) = 2097216 ! 00200040 F_meoh = .TRUE. IF ( chem_index_table( PARAM_etoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etoh = chem_num_table(idomain) chem_index_table( PARAM_etoh , idomain ) = P_etoh ELSE P_etoh = chem_index_table( PARAM_etoh , idomain ) END IF chem_boundary_table( idomain, P_etoh ) = .TRUE. chem_dname_table( idomain, P_etoh ) = 'etoh' chem_desc_table( idomain, P_etoh ) = 'ETOH mixing ratio' chem_units_table( idomain, P_etoh ) = 'ppmv' chem_streams_table( idomain, P_etoh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_etoh )%stream(2) = 2097216 ! 00200040 F_etoh = .TRUE. IF ( chem_index_table( PARAM_cco_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_oh = chem_num_table(idomain) chem_index_table( PARAM_cco_oh , idomain ) = P_cco_oh ELSE P_cco_oh = chem_index_table( PARAM_cco_oh , idomain ) END IF chem_boundary_table( idomain, P_cco_oh ) = .TRUE. chem_dname_table( idomain, P_cco_oh ) = 'cco_oh' chem_desc_table( idomain, P_cco_oh ) = 'CCO_OH mixing ratio' chem_units_table( idomain, P_cco_oh ) = 'ppmv' chem_streams_table( idomain, P_cco_oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cco_oh )%stream(2) = 2097216 ! 00200040 F_cco_oh = .TRUE. IF ( chem_index_table( PARAM_rco_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_oh = chem_num_table(idomain) chem_index_table( PARAM_rco_oh , idomain ) = P_rco_oh ELSE P_rco_oh = chem_index_table( PARAM_rco_oh , idomain ) END IF chem_boundary_table( idomain, P_rco_oh ) = .TRUE. chem_dname_table( idomain, P_rco_oh ) = 'rco_oh' chem_desc_table( idomain, P_rco_oh ) = 'RCO_OH mixing ratio' chem_units_table( idomain, P_rco_oh ) = 'ppmv' chem_streams_table( idomain, P_rco_oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rco_oh )%stream(2) = 2097216 ! 00200040 F_rco_oh = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_bacl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bacl = chem_num_table(idomain) chem_index_table( PARAM_bacl , idomain ) = P_bacl ELSE P_bacl = chem_index_table( PARAM_bacl , idomain ) END IF chem_boundary_table( idomain, P_bacl ) = .TRUE. chem_dname_table( idomain, P_bacl ) = 'bacl' chem_desc_table( idomain, P_bacl ) = 'BACL mixing ratio' chem_units_table( idomain, P_bacl ) = 'ppmv' chem_streams_table( idomain, P_bacl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bacl )%stream(2) = 2097216 ! 00200040 F_bacl = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 ! 00200040 F_cres = .TRUE. IF ( chem_index_table( PARAM_bald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bald = chem_num_table(idomain) chem_index_table( PARAM_bald , idomain ) = P_bald ELSE P_bald = chem_index_table( PARAM_bald , idomain ) END IF chem_boundary_table( idomain, P_bald ) = .TRUE. chem_dname_table( idomain, P_bald ) = 'bald' chem_desc_table( idomain, P_bald ) = 'BALD mixing ratio' chem_units_table( idomain, P_bald ) = 'ppmv' chem_streams_table( idomain, P_bald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bald )%stream(2) = 2097216 ! 00200040 F_bald = .TRUE. IF ( chem_index_table( PARAM_isoprod , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprod = chem_num_table(idomain) chem_index_table( PARAM_isoprod , idomain ) = P_isoprod ELSE P_isoprod = chem_index_table( PARAM_isoprod , idomain ) END IF chem_boundary_table( idomain, P_isoprod ) = .TRUE. chem_dname_table( idomain, P_isoprod ) = 'isoprod' chem_desc_table( idomain, P_isoprod ) = 'ISOPROD mixing ratio' chem_units_table( idomain, P_isoprod ) = 'ppmv' chem_streams_table( idomain, P_isoprod )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprod )%stream(2) = 2097216 ! 00200040 F_isoprod = .TRUE. IF ( chem_index_table( PARAM_methacro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_methacro = chem_num_table(idomain) chem_index_table( PARAM_methacro , idomain ) = P_methacro ELSE P_methacro = chem_index_table( PARAM_methacro , idomain ) END IF chem_boundary_table( idomain, P_methacro ) = .TRUE. chem_dname_table( idomain, P_methacro ) = 'methacro' chem_desc_table( idomain, P_methacro ) = 'METHACRO mixing ratio' chem_units_table( idomain, P_methacro ) = 'ppmv' chem_streams_table( idomain, P_methacro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_methacro )%stream(2) = 2097216 ! 00200040 F_methacro = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 ! 00200040 F_mvk = .TRUE. IF ( chem_index_table( PARAM_prod2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prod2 = chem_num_table(idomain) chem_index_table( PARAM_prod2 , idomain ) = P_prod2 ELSE P_prod2 = chem_index_table( PARAM_prod2 , idomain ) END IF chem_boundary_table( idomain, P_prod2 ) = .TRUE. chem_dname_table( idomain, P_prod2 ) = 'prod2' chem_desc_table( idomain, P_prod2 ) = 'PROD2 mixing ratio' chem_units_table( idomain, P_prod2 ) = 'ppmv' chem_streams_table( idomain, P_prod2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_prod2 )%stream(2) = 2097216 ! 00200040 F_prod2 = .TRUE. IF ( chem_index_table( PARAM_dcb1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb1 = chem_num_table(idomain) chem_index_table( PARAM_dcb1 , idomain ) = P_dcb1 ELSE P_dcb1 = chem_index_table( PARAM_dcb1 , idomain ) END IF chem_boundary_table( idomain, P_dcb1 ) = .TRUE. chem_dname_table( idomain, P_dcb1 ) = 'dcb1' chem_desc_table( idomain, P_dcb1 ) = 'DCB1 mixing ratio' chem_units_table( idomain, P_dcb1 ) = 'ppmv' chem_streams_table( idomain, P_dcb1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb1 )%stream(2) = 2097216 ! 00200040 F_dcb1 = .TRUE. IF ( chem_index_table( PARAM_dcb2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb2 = chem_num_table(idomain) chem_index_table( PARAM_dcb2 , idomain ) = P_dcb2 ELSE P_dcb2 = chem_index_table( PARAM_dcb2 , idomain ) END IF chem_boundary_table( idomain, P_dcb2 ) = .TRUE. chem_dname_table( idomain, P_dcb2 ) = 'dcb2' chem_desc_table( idomain, P_dcb2 ) = 'DCB2 mixing ratio' chem_units_table( idomain, P_dcb2 ) = 'ppmv' chem_streams_table( idomain, P_dcb2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb2 )%stream(2) = 2097216 ! 00200040 F_dcb2 = .TRUE. IF ( chem_index_table( PARAM_dcb3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb3 = chem_num_table(idomain) chem_index_table( PARAM_dcb3 , idomain ) = P_dcb3 ELSE P_dcb3 = chem_index_table( PARAM_dcb3 , idomain ) END IF chem_boundary_table( idomain, P_dcb3 ) = .TRUE. chem_dname_table( idomain, P_dcb3 ) = 'dcb3' chem_desc_table( idomain, P_dcb3 ) = 'DCB3 mixing ratio' chem_units_table( idomain, P_dcb3 ) = 'ppmv' chem_streams_table( idomain, P_dcb3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb3 )%stream(2) = 2097216 ! 00200040 F_dcb3 = .TRUE. IF ( chem_index_table( PARAM_ethene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethene = chem_num_table(idomain) chem_index_table( PARAM_ethene , idomain ) = P_ethene ELSE P_ethene = chem_index_table( PARAM_ethene , idomain ) END IF chem_boundary_table( idomain, P_ethene ) = .TRUE. chem_dname_table( idomain, P_ethene ) = 'ethene' chem_desc_table( idomain, P_ethene ) = 'ETHENE mixing ratio' chem_units_table( idomain, P_ethene ) = 'ppmv' chem_streams_table( idomain, P_ethene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethene )%stream(2) = 2097216 ! 00200040 F_ethene = .TRUE. IF ( chem_index_table( PARAM_isoprene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprene = chem_num_table(idomain) chem_index_table( PARAM_isoprene , idomain ) = P_isoprene ELSE P_isoprene = chem_index_table( PARAM_isoprene , idomain ) END IF chem_boundary_table( idomain, P_isoprene ) = .TRUE. chem_dname_table( idomain, P_isoprene ) = 'isoprene' chem_desc_table( idomain, P_isoprene ) = 'ISOPRENE mixing ratio' chem_units_table( idomain, P_isoprene ) = 'ppmv' chem_streams_table( idomain, P_isoprene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprene )%stream(2) = 2097216 ! 00200040 F_isoprene = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 ! 00200040 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 ! 00200040 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 ! 00200040 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 ! 00200040 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_alk3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk3 = chem_num_table(idomain) chem_index_table( PARAM_alk3 , idomain ) = P_alk3 ELSE P_alk3 = chem_index_table( PARAM_alk3 , idomain ) END IF chem_boundary_table( idomain, P_alk3 ) = .TRUE. chem_dname_table( idomain, P_alk3 ) = 'alk3' chem_desc_table( idomain, P_alk3 ) = 'ALK3 mixing ratio' chem_units_table( idomain, P_alk3 ) = 'ppmv' chem_streams_table( idomain, P_alk3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk3 )%stream(2) = 2097216 ! 00200040 F_alk3 = .TRUE. IF ( chem_index_table( PARAM_alk4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk4 = chem_num_table(idomain) chem_index_table( PARAM_alk4 , idomain ) = P_alk4 ELSE P_alk4 = chem_index_table( PARAM_alk4 , idomain ) END IF chem_boundary_table( idomain, P_alk4 ) = .TRUE. chem_dname_table( idomain, P_alk4 ) = 'alk4' chem_desc_table( idomain, P_alk4 ) = 'ALK4 mixing ratio' chem_units_table( idomain, P_alk4 ) = 'ppmv' chem_streams_table( idomain, P_alk4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk4 )%stream(2) = 2097216 ! 00200040 F_alk4 = .TRUE. IF ( chem_index_table( PARAM_alk5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk5 = chem_num_table(idomain) chem_index_table( PARAM_alk5 , idomain ) = P_alk5 ELSE P_alk5 = chem_index_table( PARAM_alk5 , idomain ) END IF chem_boundary_table( idomain, P_alk5 ) = .TRUE. chem_dname_table( idomain, P_alk5 ) = 'alk5' chem_desc_table( idomain, P_alk5 ) = 'ALK5 mixing ratio' chem_units_table( idomain, P_alk5 ) = 'ppmv' chem_streams_table( idomain, P_alk5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_alk5 )%stream(2) = 2097216 ! 00200040 F_alk5 = .TRUE. IF ( chem_index_table( PARAM_aro1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1 = chem_num_table(idomain) chem_index_table( PARAM_aro1 , idomain ) = P_aro1 ELSE P_aro1 = chem_index_table( PARAM_aro1 , idomain ) END IF chem_boundary_table( idomain, P_aro1 ) = .TRUE. chem_dname_table( idomain, P_aro1 ) = 'aro1' chem_desc_table( idomain, P_aro1 ) = 'ARO1 mixing ratio' chem_units_table( idomain, P_aro1 ) = 'ppmv' chem_streams_table( idomain, P_aro1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro1 )%stream(2) = 2097216 ! 00200040 F_aro1 = .TRUE. IF ( chem_index_table( PARAM_aro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2 = chem_num_table(idomain) chem_index_table( PARAM_aro2 , idomain ) = P_aro2 ELSE P_aro2 = chem_index_table( PARAM_aro2 , idomain ) END IF chem_boundary_table( idomain, P_aro2 ) = .TRUE. chem_dname_table( idomain, P_aro2 ) = 'aro2' chem_desc_table( idomain, P_aro2 ) = 'ARO2 mixing ratio' chem_units_table( idomain, P_aro2 ) = 'ppmv' chem_streams_table( idomain, P_aro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aro2 )%stream(2) = 2097216 ! 00200040 F_aro2 = .TRUE. IF ( chem_index_table( PARAM_ole1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1 = chem_num_table(idomain) chem_index_table( PARAM_ole1 , idomain ) = P_ole1 ELSE P_ole1 = chem_index_table( PARAM_ole1 , idomain ) END IF chem_boundary_table( idomain, P_ole1 ) = .TRUE. chem_dname_table( idomain, P_ole1 ) = 'ole1' chem_desc_table( idomain, P_ole1 ) = 'OLE1 mixing ratio' chem_units_table( idomain, P_ole1 ) = 'ppmv' chem_streams_table( idomain, P_ole1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole1 )%stream(2) = 2097216 ! 00200040 F_ole1 = .TRUE. IF ( chem_index_table( PARAM_ole2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole2 = chem_num_table(idomain) chem_index_table( PARAM_ole2 , idomain ) = P_ole2 ELSE P_ole2 = chem_index_table( PARAM_ole2 , idomain ) END IF chem_boundary_table( idomain, P_ole2 ) = .TRUE. chem_dname_table( idomain, P_ole2 ) = 'ole2' chem_desc_table( idomain, P_ole2 ) = 'OLE2 mixing ratio' chem_units_table( idomain, P_ole2 ) = 'ppmv' chem_streams_table( idomain, P_ole2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ole2 )%stream(2) = 2097216 ! 00200040 F_ole2 = .TRUE. IF ( chem_index_table( PARAM_terp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp = chem_num_table(idomain) chem_index_table( PARAM_terp , idomain ) = P_terp ELSE P_terp = chem_index_table( PARAM_terp , idomain ) END IF chem_boundary_table( idomain, P_terp ) = .TRUE. chem_dname_table( idomain, P_terp ) = 'terp' chem_desc_table( idomain, P_terp ) = 'TERP mixing ratio' chem_units_table( idomain, P_terp ) = 'ppmv' chem_streams_table( idomain, P_terp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_terp )%stream(2) = 2097216 ! 00200040 F_terp = .TRUE. IF ( chem_index_table( PARAM_rno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rno3 = chem_num_table(idomain) chem_index_table( PARAM_rno3 , idomain ) = P_rno3 ELSE P_rno3 = chem_index_table( PARAM_rno3 , idomain ) END IF chem_boundary_table( idomain, P_rno3 ) = .TRUE. chem_dname_table( idomain, P_rno3 ) = 'rno3' chem_desc_table( idomain, P_rno3 ) = 'RNO3 mixing ratio' chem_units_table( idomain, P_rno3 ) = 'ppmv' chem_streams_table( idomain, P_rno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rno3 )%stream(2) = 2097216 ! 00200040 F_rno3 = .TRUE. IF ( chem_index_table( PARAM_nphe , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nphe = chem_num_table(idomain) chem_index_table( PARAM_nphe , idomain ) = P_nphe ELSE P_nphe = chem_index_table( PARAM_nphe , idomain ) END IF chem_boundary_table( idomain, P_nphe ) = .TRUE. chem_dname_table( idomain, P_nphe ) = 'nphe' chem_desc_table( idomain, P_nphe ) = 'NPHE mixing ratio' chem_units_table( idomain, P_nphe ) = 'ppmv' chem_streams_table( idomain, P_nphe )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nphe )%stream(2) = 2097216 ! 00200040 F_nphe = .TRUE. IF ( chem_index_table( PARAM_phen , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phen = chem_num_table(idomain) chem_index_table( PARAM_phen , idomain ) = P_phen ELSE P_phen = chem_index_table( PARAM_phen , idomain ) END IF chem_boundary_table( idomain, P_phen ) = .TRUE. chem_dname_table( idomain, P_phen ) = 'phen' chem_desc_table( idomain, P_phen ) = 'PHEN mixing ratio' chem_units_table( idomain, P_phen ) = 'ppmv' chem_streams_table( idomain, P_phen )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_phen )%stream(2) = 2097216 ! 00200040 F_phen = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_pan2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan2 = chem_num_table(idomain) chem_index_table( PARAM_pan2 , idomain ) = P_pan2 ELSE P_pan2 = chem_index_table( PARAM_pan2 , idomain ) END IF chem_boundary_table( idomain, P_pan2 ) = .TRUE. chem_dname_table( idomain, P_pan2 ) = 'pan2' chem_desc_table( idomain, P_pan2 ) = 'PAN2 mixing ratio' chem_units_table( idomain, P_pan2 ) = 'ppmv' chem_streams_table( idomain, P_pan2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan2 )%stream(2) = 2097216 ! 00200040 F_pan2 = .TRUE. IF ( chem_index_table( PARAM_pbzn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pbzn = chem_num_table(idomain) chem_index_table( PARAM_pbzn , idomain ) = P_pbzn ELSE P_pbzn = chem_index_table( PARAM_pbzn , idomain ) END IF chem_boundary_table( idomain, P_pbzn ) = .TRUE. chem_dname_table( idomain, P_pbzn ) = 'pbzn' chem_desc_table( idomain, P_pbzn ) = 'PBZN mixing ratio' chem_units_table( idomain, P_pbzn ) = 'ppmv' chem_streams_table( idomain, P_pbzn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pbzn )%stream(2) = 2097216 ! 00200040 F_pbzn = .TRUE. IF ( chem_index_table( PARAM_ma_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ma_pan = chem_num_table(idomain) chem_index_table( PARAM_ma_pan , idomain ) = P_ma_pan ELSE P_ma_pan = chem_index_table( PARAM_ma_pan , idomain ) END IF chem_boundary_table( idomain, P_ma_pan ) = .TRUE. chem_dname_table( idomain, P_ma_pan ) = 'ma_pan' chem_desc_table( idomain, P_ma_pan ) = 'MA_PAN mixing ratio' chem_units_table( idomain, P_ma_pan ) = 'ppmv' chem_streams_table( idomain, P_ma_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ma_pan )%stream(2) = 2097216 ! 00200040 F_ma_pan = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_cco_ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_ooh = chem_num_table(idomain) chem_index_table( PARAM_cco_ooh , idomain ) = P_cco_ooh ELSE P_cco_ooh = chem_index_table( PARAM_cco_ooh , idomain ) END IF chem_boundary_table( idomain, P_cco_ooh ) = .TRUE. chem_dname_table( idomain, P_cco_ooh ) = 'cco_ooh' chem_desc_table( idomain, P_cco_ooh ) = 'CCO_OOH mixing ratio' chem_units_table( idomain, P_cco_ooh ) = 'ppmv' chem_streams_table( idomain, P_cco_ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cco_ooh )%stream(2) = 2097216 ! 00200040 F_cco_ooh = .TRUE. IF ( chem_index_table( PARAM_rco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_o2 = chem_num_table(idomain) chem_index_table( PARAM_rco_o2 , idomain ) = P_rco_o2 ELSE P_rco_o2 = chem_index_table( PARAM_rco_o2 , idomain ) END IF chem_boundary_table( idomain, P_rco_o2 ) = .TRUE. chem_dname_table( idomain, P_rco_o2 ) = 'rco_o2' chem_desc_table( idomain, P_rco_o2 ) = 'RCO_O2 mixing ratio' chem_units_table( idomain, P_rco_o2 ) = 'ppmv' chem_streams_table( idomain, P_rco_o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rco_o2 )%stream(2) = 2097216 ! 00200040 F_rco_o2 = .TRUE. IF ( chem_index_table( PARAM_rco_ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_ooh = chem_num_table(idomain) chem_index_table( PARAM_rco_ooh , idomain ) = P_rco_ooh ELSE P_rco_ooh = chem_index_table( PARAM_rco_ooh , idomain ) END IF chem_boundary_table( idomain, P_rco_ooh ) = .TRUE. chem_dname_table( idomain, P_rco_ooh ) = 'rco_ooh' chem_desc_table( idomain, P_rco_ooh ) = 'RCO_OOH mixing ratio' chem_units_table( idomain, P_rco_ooh ) = 'ppmv' chem_streams_table( idomain, P_rco_ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rco_ooh )%stream(2) = 2097216 ! 00200040 F_rco_ooh = .TRUE. IF ( chem_index_table( PARAM_xn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xn = chem_num_table(idomain) chem_index_table( PARAM_xn , idomain ) = P_xn ELSE P_xn = chem_index_table( PARAM_xn , idomain ) END IF chem_boundary_table( idomain, P_xn ) = .TRUE. chem_dname_table( idomain, P_xn ) = 'xn' chem_desc_table( idomain, P_xn ) = 'XN mixing ratio' chem_units_table( idomain, P_xn ) = 'ppmv' chem_streams_table( idomain, P_xn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xn )%stream(2) = 2097216 ! 00200040 F_xn = .TRUE. IF ( chem_index_table( PARAM_xc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xc = chem_num_table(idomain) chem_index_table( PARAM_xc , idomain ) = P_xc ELSE P_xc = chem_index_table( PARAM_xc , idomain ) END IF chem_boundary_table( idomain, P_xc ) = .TRUE. chem_dname_table( idomain, P_xc ) = 'xc' chem_desc_table( idomain, P_xc ) = 'XC mixing ratio' chem_units_table( idomain, P_xc ) = 'ppmv' chem_streams_table( idomain, P_xc )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xc )%stream(2) = 2097216 ! 00200040 F_xc = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_c_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c_o2 = chem_num_table(idomain) chem_index_table( PARAM_c_o2 , idomain ) = P_c_o2 ELSE P_c_o2 = chem_index_table( PARAM_c_o2 , idomain ) END IF chem_boundary_table( idomain, P_c_o2 ) = .TRUE. chem_dname_table( idomain, P_c_o2 ) = 'c_o2' chem_desc_table( idomain, P_c_o2 ) = 'C_O2 mixing ratio' chem_units_table( idomain, P_c_o2 ) = 'ppmv' chem_streams_table( idomain, P_c_o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c_o2 )%stream(2) = 2097216 ! 00200040 F_c_o2 = .TRUE. IF ( chem_index_table( PARAM_cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cooh = chem_num_table(idomain) chem_index_table( PARAM_cooh , idomain ) = P_cooh ELSE P_cooh = chem_index_table( PARAM_cooh , idomain ) END IF chem_boundary_table( idomain, P_cooh ) = .TRUE. chem_dname_table( idomain, P_cooh ) = 'cooh' chem_desc_table( idomain, P_cooh ) = 'COOH mixing ratio' chem_units_table( idomain, P_cooh ) = 'ppmv' chem_streams_table( idomain, P_cooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cooh )%stream(2) = 2097216 ! 00200040 F_cooh = .TRUE. IF ( chem_index_table( PARAM_rooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rooh = chem_num_table(idomain) chem_index_table( PARAM_rooh , idomain ) = P_rooh ELSE P_rooh = chem_index_table( PARAM_rooh , idomain ) END IF chem_boundary_table( idomain, P_rooh ) = .TRUE. chem_dname_table( idomain, P_rooh ) = 'rooh' chem_desc_table( idomain, P_rooh ) = 'ROOH mixing ratio' chem_units_table( idomain, P_rooh ) = 'ppmv' chem_streams_table( idomain, P_rooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rooh )%stream(2) = 2097216 ! 00200040 F_rooh = .TRUE. IF ( chem_index_table( PARAM_ro2_r , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2_r = chem_num_table(idomain) chem_index_table( PARAM_ro2_r , idomain ) = P_ro2_r ELSE P_ro2_r = chem_index_table( PARAM_ro2_r , idomain ) END IF chem_boundary_table( idomain, P_ro2_r ) = .TRUE. chem_dname_table( idomain, P_ro2_r ) = 'ro2_r' chem_desc_table( idomain, P_ro2_r ) = 'RO2_R mixing ratio' chem_units_table( idomain, P_ro2_r ) = 'ppmv' chem_streams_table( idomain, P_ro2_r )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2_r )%stream(2) = 2097216 ! 00200040 F_ro2_r = .TRUE. IF ( chem_index_table( PARAM_r2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_r2o2 = chem_num_table(idomain) chem_index_table( PARAM_r2o2 , idomain ) = P_r2o2 ELSE P_r2o2 = chem_index_table( PARAM_r2o2 , idomain ) END IF chem_boundary_table( idomain, P_r2o2 ) = .TRUE. chem_dname_table( idomain, P_r2o2 ) = 'r2o2' chem_desc_table( idomain, P_r2o2 ) = 'R2O2 mixing ratio' chem_units_table( idomain, P_r2o2 ) = 'ppmv' chem_streams_table( idomain, P_r2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_r2o2 )%stream(2) = 2097216 ! 00200040 F_r2o2 = .TRUE. IF ( chem_index_table( PARAM_ro2_n , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2_n = chem_num_table(idomain) chem_index_table( PARAM_ro2_n , idomain ) = P_ro2_n ELSE P_ro2_n = chem_index_table( PARAM_ro2_n , idomain ) END IF chem_boundary_table( idomain, P_ro2_n ) = .TRUE. chem_dname_table( idomain, P_ro2_n ) = 'ro2_n' chem_desc_table( idomain, P_ro2_n ) = 'RO2_N mixing ratio' chem_units_table( idomain, P_ro2_n ) = 'ppmv' chem_streams_table( idomain, P_ro2_n )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2_n )%stream(2) = 2097216 ! 00200040 F_ro2_n = .TRUE. IF ( chem_index_table( PARAM_cco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_o2 = chem_num_table(idomain) chem_index_table( PARAM_cco_o2 , idomain ) = P_cco_o2 ELSE P_cco_o2 = chem_index_table( PARAM_cco_o2 , idomain ) END IF chem_boundary_table( idomain, P_cco_o2 ) = .TRUE. chem_dname_table( idomain, P_cco_o2 ) = 'cco_o2' chem_desc_table( idomain, P_cco_o2 ) = 'CCO_O2 mixing ratio' chem_units_table( idomain, P_cco_o2 ) = 'ppmv' chem_streams_table( idomain, P_cco_o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cco_o2 )%stream(2) = 2097216 ! 00200040 F_cco_o2 = .TRUE. IF ( chem_index_table( PARAM_bzco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bzco_o2 = chem_num_table(idomain) chem_index_table( PARAM_bzco_o2 , idomain ) = P_bzco_o2 ELSE P_bzco_o2 = chem_index_table( PARAM_bzco_o2 , idomain ) END IF chem_boundary_table( idomain, P_bzco_o2 ) = .TRUE. chem_dname_table( idomain, P_bzco_o2 ) = 'bzco_o2' chem_desc_table( idomain, P_bzco_o2 ) = 'BZCO_O2 mixing ratio' chem_units_table( idomain, P_bzco_o2 ) = 'ppmv' chem_streams_table( idomain, P_bzco_o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bzco_o2 )%stream(2) = 2097216 ! 00200040 F_bzco_o2 = .TRUE. IF ( chem_index_table( PARAM_ma_rco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ma_rco3 = chem_num_table(idomain) chem_index_table( PARAM_ma_rco3 , idomain ) = P_ma_rco3 ELSE P_ma_rco3 = chem_index_table( PARAM_ma_rco3 , idomain ) END IF chem_boundary_table( idomain, P_ma_rco3 ) = .TRUE. chem_dname_table( idomain, P_ma_rco3 ) = 'ma_rco3' chem_desc_table( idomain, P_ma_rco3 ) = 'MA_RCO3 mixing ratio' chem_units_table( idomain, P_ma_rco3 ) = 'ppmv' chem_streams_table( idomain, P_ma_rco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ma_rco3 )%stream(2) = 2097216 ! 00200040 F_ma_rco3 = .TRUE. IF ( chem_index_table( PARAM_sesq , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sesq = chem_num_table(idomain) chem_index_table( PARAM_sesq , idomain ) = P_sesq ELSE P_sesq = chem_index_table( PARAM_sesq , idomain ) END IF chem_boundary_table( idomain, P_sesq ) = .TRUE. chem_dname_table( idomain, P_sesq ) = 'sesq' chem_desc_table( idomain, P_sesq ) = 'SESQ mixing ratio' chem_units_table( idomain, P_sesq ) = 'ppmv' chem_streams_table( idomain, P_sesq )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sesq )%stream(2) = 2097216 ! 00200040 F_sesq = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c , idomain ) = P_pcg1_b_c ELSE P_pcg1_b_c = chem_index_table( PARAM_pcg1_b_c , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c ) = 'pcg1_b_c' chem_desc_table( idomain, P_pcg1_b_c ) = 'pcg1_b_c mixing ratio' chem_units_table( idomain, P_pcg1_b_c ) = 'ppmv' chem_streams_table( idomain, P_pcg1_b_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_c = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_c , idomain ) = P_pcg2_b_c ELSE P_pcg2_b_c = chem_index_table( PARAM_pcg2_b_c , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_c ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_c ) = 'pcg2_b_c' chem_desc_table( idomain, P_pcg2_b_c ) = 'pcg2_b_c mixing ratio' chem_units_table( idomain, P_pcg2_b_c ) = 'ppmv' chem_streams_table( idomain, P_pcg2_b_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_b_c )%stream(2) = 2097216 ! 00200040 F_pcg2_b_c = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o , idomain ) = P_pcg1_b_o ELSE P_pcg1_b_o = chem_index_table( PARAM_pcg1_b_o , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o ) = 'pcg1_b_o' chem_desc_table( idomain, P_pcg1_b_o ) = 'pcg1_b_o mixing ratio' chem_units_table( idomain, P_pcg1_b_o ) = 'ppmv' chem_streams_table( idomain, P_pcg1_b_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_o = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_o , idomain ) = P_pcg2_b_o ELSE P_pcg2_b_o = chem_index_table( PARAM_pcg2_b_o , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_o ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_o ) = 'pcg2_b_o' chem_desc_table( idomain, P_pcg2_b_o ) = 'pcg2_b_o mixing ratio' chem_units_table( idomain, P_pcg2_b_o ) = 'ppmv' chem_streams_table( idomain, P_pcg2_b_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_b_o )%stream(2) = 2097216 ! 00200040 F_pcg2_b_o = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c , idomain ) = P_opcg1_b_c ELSE P_opcg1_b_c = chem_index_table( PARAM_opcg1_b_c , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c ) = 'opcg1_b_c' chem_desc_table( idomain, P_opcg1_b_c ) = 'opcg1_b_c mixing ratio' chem_units_table( idomain, P_opcg1_b_c ) = 'ppmv' chem_streams_table( idomain, P_opcg1_b_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o , idomain ) = P_opcg1_b_o ELSE P_opcg1_b_o = chem_index_table( PARAM_opcg1_b_o , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o ) = 'opcg1_b_o' chem_desc_table( idomain, P_opcg1_b_o ) = 'opcg1_b_o mixing ratio' chem_units_table( idomain, P_opcg1_b_o ) = 'ppmv' chem_streams_table( idomain, P_opcg1_b_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c , idomain ) = P_pcg1_f_c ELSE P_pcg1_f_c = chem_index_table( PARAM_pcg1_f_c , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c ) = 'pcg1_f_c' chem_desc_table( idomain, P_pcg1_f_c ) = 'pcg1_f_c mixing ratio' chem_units_table( idomain, P_pcg1_f_c ) = 'ppmv' chem_streams_table( idomain, P_pcg1_f_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_c = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_c , idomain ) = P_pcg2_f_c ELSE P_pcg2_f_c = chem_index_table( PARAM_pcg2_f_c , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_c ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_c ) = 'pcg2_f_c' chem_desc_table( idomain, P_pcg2_f_c ) = 'pcg2_f_c mixing ratio' chem_units_table( idomain, P_pcg2_f_c ) = 'ppmv' chem_streams_table( idomain, P_pcg2_f_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_f_c )%stream(2) = 2097216 ! 00200040 F_pcg2_f_c = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o , idomain ) = P_pcg1_f_o ELSE P_pcg1_f_o = chem_index_table( PARAM_pcg1_f_o , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o ) = 'pcg1_f_o' chem_desc_table( idomain, P_pcg1_f_o ) = 'pcg1_f_o mixing ratio' chem_units_table( idomain, P_pcg1_f_o ) = 'ppmv' chem_streams_table( idomain, P_pcg1_f_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_o = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_o , idomain ) = P_pcg2_f_o ELSE P_pcg2_f_o = chem_index_table( PARAM_pcg2_f_o , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_o ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_o ) = 'pcg2_f_o' chem_desc_table( idomain, P_pcg2_f_o ) = 'pcg2_f_o mixing ratio' chem_units_table( idomain, P_pcg2_f_o ) = 'ppmv' chem_streams_table( idomain, P_pcg2_f_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg2_f_o )%stream(2) = 2097216 ! 00200040 F_pcg2_f_o = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c , idomain ) = P_opcg1_f_c ELSE P_opcg1_f_c = chem_index_table( PARAM_opcg1_f_c , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c ) = 'opcg1_f_c' chem_desc_table( idomain, P_opcg1_f_c ) = 'opcg1_f_c mixing ratio' chem_units_table( idomain, P_opcg1_f_c ) = 'ppmv' chem_streams_table( idomain, P_opcg1_f_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o , idomain ) = P_opcg1_f_o ELSE P_opcg1_f_o = chem_index_table( PARAM_opcg1_f_o , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o ) = 'opcg1_f_o' chem_desc_table( idomain, P_opcg1_f_o ) = 'opcg1_f_o mixing ratio' chem_units_table( idomain, P_opcg1_f_o ) = 'ppmv' chem_streams_table( idomain, P_opcg1_f_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o = .TRUE. IF ( chem_index_table( PARAM_psd1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_psd1 = chem_num_table(idomain) chem_index_table( PARAM_psd1 , idomain ) = P_psd1 ELSE P_psd1 = chem_index_table( PARAM_psd1 , idomain ) END IF chem_boundary_table( idomain, P_psd1 ) = .TRUE. chem_dname_table( idomain, P_psd1 ) = 'psd1' chem_desc_table( idomain, P_psd1 ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_psd1 ) = 'ppmv' chem_streams_table( idomain, P_psd1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_psd1 )%stream(2) = 2097216 ! 00200040 F_psd1 = .TRUE. IF ( chem_index_table( PARAM_psd2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_psd2 = chem_num_table(idomain) chem_index_table( PARAM_psd2 , idomain ) = P_psd2 ELSE P_psd2 = chem_index_table( PARAM_psd2 , idomain ) END IF chem_boundary_table( idomain, P_psd2 ) = .TRUE. chem_dname_table( idomain, P_psd2 ) = 'psd2' chem_desc_table( idomain, P_psd2 ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_psd2 ) = 'ppmv' chem_streams_table( idomain, P_psd2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_psd2 )%stream(2) = 2097216 ! 00200040 F_psd2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_nume , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nume = chem_num_table(idomain) chem_index_table( PARAM_nume , idomain ) = P_nume ELSE P_nume = chem_index_table( PARAM_nume , idomain ) END IF chem_boundary_table( idomain, P_nume ) = .TRUE. chem_dname_table( idomain, P_nume ) = 'nume' chem_desc_table( idomain, P_nume ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_nume ) = 'ppmv' chem_streams_table( idomain, P_nume )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nume )%stream(2) = 2097216 ! 00200040 F_nume = .TRUE. IF ( chem_index_table( PARAM_den , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_den = chem_num_table(idomain) chem_index_table( PARAM_den , idomain ) = P_den ELSE P_den = chem_index_table( PARAM_den , idomain ) END IF chem_boundary_table( idomain, P_den ) = .TRUE. chem_dname_table( idomain, P_den ) = 'den' chem_desc_table( idomain, P_den ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_den ) = 'ppmv' chem_streams_table( idomain, P_den )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_den )%stream(2) = 2097216 ! 00200040 F_den = .TRUE. IF ( chem_index_table( PARAM_ant1_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c = chem_num_table(idomain) chem_index_table( PARAM_ant1_c , idomain ) = P_ant1_c ELSE P_ant1_c = chem_index_table( PARAM_ant1_c , idomain ) END IF chem_boundary_table( idomain, P_ant1_c ) = .TRUE. chem_dname_table( idomain, P_ant1_c ) = 'ant1_c' chem_desc_table( idomain, P_ant1_c ) = 'ant1_c mixing ratio' chem_units_table( idomain, P_ant1_c ) = 'ppmv' chem_streams_table( idomain, P_ant1_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_c )%stream(2) = 2097216 ! 00200040 F_ant1_c = .TRUE. IF ( chem_index_table( PARAM_biog1_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c = chem_num_table(idomain) chem_index_table( PARAM_biog1_c , idomain ) = P_biog1_c ELSE P_biog1_c = chem_index_table( PARAM_biog1_c , idomain ) END IF chem_boundary_table( idomain, P_biog1_c ) = .TRUE. chem_dname_table( idomain, P_biog1_c ) = 'biog1_c' chem_desc_table( idomain, P_biog1_c ) = 'biog1_c mixing ratio' chem_units_table( idomain, P_biog1_c ) = 'ppmv' chem_streams_table( idomain, P_biog1_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c )%stream(2) = 2097216 ! 00200040 F_biog1_c = .TRUE. IF ( chem_index_table( PARAM_ant2_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c = chem_num_table(idomain) chem_index_table( PARAM_ant2_c , idomain ) = P_ant2_c ELSE P_ant2_c = chem_index_table( PARAM_ant2_c , idomain ) END IF chem_boundary_table( idomain, P_ant2_c ) = .TRUE. chem_dname_table( idomain, P_ant2_c ) = 'ant2_c' chem_desc_table( idomain, P_ant2_c ) = 'ant2_c mixing ratio' chem_units_table( idomain, P_ant2_c ) = 'ppmv' chem_streams_table( idomain, P_ant2_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant2_c )%stream(2) = 2097216 ! 00200040 F_ant2_c = .TRUE. IF ( chem_index_table( PARAM_biog2_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c = chem_num_table(idomain) chem_index_table( PARAM_biog2_c , idomain ) = P_biog2_c ELSE P_biog2_c = chem_index_table( PARAM_biog2_c , idomain ) END IF chem_boundary_table( idomain, P_biog2_c ) = .TRUE. chem_dname_table( idomain, P_biog2_c ) = 'biog2_c' chem_desc_table( idomain, P_biog2_c ) = 'biog2_c mixing ratio' chem_units_table( idomain, P_biog2_c ) = 'ppmv' chem_streams_table( idomain, P_biog2_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog2_c )%stream(2) = 2097216 ! 00200040 F_biog2_c = .TRUE. IF ( chem_index_table( PARAM_biog3_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c = chem_num_table(idomain) chem_index_table( PARAM_biog3_c , idomain ) = P_biog3_c ELSE P_biog3_c = chem_index_table( PARAM_biog3_c , idomain ) END IF chem_boundary_table( idomain, P_biog3_c ) = .TRUE. chem_dname_table( idomain, P_biog3_c ) = 'biog3_c' chem_desc_table( idomain, P_biog3_c ) = 'biog3_c mixing ratio' chem_units_table( idomain, P_biog3_c ) = 'ppmv' chem_streams_table( idomain, P_biog3_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog3_c )%stream(2) = 2097216 ! 00200040 F_biog3_c = .TRUE. IF ( chem_index_table( PARAM_biog1_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o = chem_num_table(idomain) chem_index_table( PARAM_biog1_o , idomain ) = P_biog1_o ELSE P_biog1_o = chem_index_table( PARAM_biog1_o , idomain ) END IF chem_boundary_table( idomain, P_biog1_o ) = .TRUE. chem_dname_table( idomain, P_biog1_o ) = 'biog1_o' chem_desc_table( idomain, P_biog1_o ) = 'biog1_o mixing ratio' chem_units_table( idomain, P_biog1_o ) = 'ppmv' chem_streams_table( idomain, P_biog1_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_o )%stream(2) = 2097216 ! 00200040 F_biog1_o = .TRUE. IF ( chem_index_table( PARAM_biog2_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o = chem_num_table(idomain) chem_index_table( PARAM_biog2_o , idomain ) = P_biog2_o ELSE P_biog2_o = chem_index_table( PARAM_biog2_o , idomain ) END IF chem_boundary_table( idomain, P_biog2_o ) = .TRUE. chem_dname_table( idomain, P_biog2_o ) = 'biog2_o' chem_desc_table( idomain, P_biog2_o ) = 'biog2_o mixing ratio' chem_units_table( idomain, P_biog2_o ) = 'ppmv' chem_streams_table( idomain, P_biog2_o )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog2_o )%stream(2) = 2097216 ! 00200040 F_biog2_o = .TRUE. IF ( chem_index_table( PARAM_ant3_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c = chem_num_table(idomain) chem_index_table( PARAM_ant3_c , idomain ) = P_ant3_c ELSE P_ant3_c = chem_index_table( PARAM_ant3_c , idomain ) END IF chem_boundary_table( idomain, P_ant3_c ) = .TRUE. chem_dname_table( idomain, P_ant3_c ) = 'ant3_c' chem_desc_table( idomain, P_ant3_c ) = 'ant3_c mixing ratio' chem_units_table( idomain, P_ant3_c ) = 'ppmv' chem_streams_table( idomain, P_ant3_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant3_c )%stream(2) = 2097216 ! 00200040 F_ant3_c = .TRUE. IF ( chem_index_table( PARAM_ant4_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c = chem_num_table(idomain) chem_index_table( PARAM_ant4_c , idomain ) = P_ant4_c ELSE P_ant4_c = chem_index_table( PARAM_ant4_c , idomain ) END IF chem_boundary_table( idomain, P_ant4_c ) = .TRUE. chem_dname_table( idomain, P_ant4_c ) = 'ant4_c' chem_desc_table( idomain, P_ant4_c ) = 'ant4_c mixing ratio' chem_units_table( idomain, P_ant4_c ) = 'ppmv' chem_streams_table( idomain, P_ant4_c )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant4_c )%stream(2) = 2097216 ! 00200040 F_ant4_c = .TRUE. IF ( chem_index_table( PARAM_bgas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bgas = chem_num_table(idomain) chem_index_table( PARAM_bgas , idomain ) = P_bgas ELSE P_bgas = chem_index_table( PARAM_bgas , idomain ) END IF chem_boundary_table( idomain, P_bgas ) = .TRUE. chem_dname_table( idomain, P_bgas ) = 'bgas' chem_desc_table( idomain, P_bgas ) = 'Biogenic gas concentration' chem_units_table( idomain, P_bgas ) = 'ppmv' chem_streams_table( idomain, P_bgas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bgas )%stream(2) = 2097216 ! 00200040 F_bgas = .TRUE. IF ( chem_index_table( PARAM_agas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_agas = chem_num_table(idomain) chem_index_table( PARAM_agas , idomain ) = P_agas ELSE P_agas = chem_index_table( PARAM_agas , idomain ) END IF chem_boundary_table( idomain, P_agas ) = .TRUE. chem_dname_table( idomain, P_agas ) = 'agas' chem_desc_table( idomain, P_agas ) = 'Anthropogenic gas concentration' chem_units_table( idomain, P_agas ) = 'ppmv' chem_streams_table( idomain, P_agas )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_agas )%stream(2) = 2097216 ! 00200040 F_agas = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 ! 00200040 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 ! 00200040 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 ! 00200040 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 ! 00200040 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 ! 00200040 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 ! 00200040 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 ! 00200040 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 ! 00200040 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 ! 00200040 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) = P_pcg1_b_c_a01 ELSE P_pcg1_b_c_a01 = chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a01 ) = 'pcg1_b_c_a01' chem_desc_table( idomain, P_pcg1_b_c_a01 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a01 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) = P_pcg1_b_o_a01 ELSE P_pcg1_b_o_a01 = chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a01 ) = 'pcg1_b_o_a01' chem_desc_table( idomain, P_pcg1_b_o_a01 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a01 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) = P_opcg1_b_c_a01 ELSE P_opcg1_b_c_a01 = chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a01 ) = 'opcg1_b_c_a01' chem_desc_table( idomain, P_opcg1_b_c_a01 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a01 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) = P_opcg1_b_o_a01 ELSE P_opcg1_b_o_a01 = chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a01 ) = 'opcg1_b_o_a01' chem_desc_table( idomain, P_opcg1_b_o_a01 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a01 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) = P_pcg1_f_c_a01 ELSE P_pcg1_f_c_a01 = chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a01 ) = 'pcg1_f_c_a01' chem_desc_table( idomain, P_pcg1_f_c_a01 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a01 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) = P_pcg1_f_o_a01 ELSE P_pcg1_f_o_a01 = chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a01 ) = 'pcg1_f_o_a01' chem_desc_table( idomain, P_pcg1_f_o_a01 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a01 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) = P_opcg1_f_c_a01 ELSE P_opcg1_f_c_a01 = chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a01 ) = 'opcg1_f_c_a01' chem_desc_table( idomain, P_opcg1_f_c_a01 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a01 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) = P_opcg1_f_o_a01 ELSE P_opcg1_f_o_a01 = chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a01 ) = 'opcg1_f_o_a01' chem_desc_table( idomain, P_opcg1_f_o_a01 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a01 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a01 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a01 , idomain ) = P_ant1_c_a01 ELSE P_ant1_c_a01 = chem_index_table( PARAM_ant1_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a01 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a01 ) = 'ant1_c_a01' chem_desc_table( idomain, P_ant1_c_a01 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_c_a01 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a01 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a01 , idomain ) = P_biog1_c_a01 ELSE P_biog1_c_a01 = chem_index_table( PARAM_biog1_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a01 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a01 ) = 'biog1_c_a01' chem_desc_table( idomain, P_biog1_c_a01 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_a01 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a01 = .TRUE. IF ( chem_index_table( PARAM_ant2_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_ant2_c_a01 , idomain ) = P_ant2_c_a01 ELSE P_ant2_c_a01 = chem_index_table( PARAM_ant2_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_ant2_c_a01 ) = .TRUE. chem_dname_table( idomain, P_ant2_c_a01 ) = 'ant2_c_a01' chem_desc_table( idomain, P_ant2_c_a01 ) = 'ant2_c, aerosol bin 01' chem_units_table( idomain, P_ant2_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant2_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant2_c_a01 )%stream(2) = 2097216 ! 00200040 F_ant2_c_a01 = .TRUE. IF ( chem_index_table( PARAM_biog2_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog2_c_a01 , idomain ) = P_biog2_c_a01 ELSE P_biog2_c_a01 = chem_index_table( PARAM_biog2_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog2_c_a01 ) = .TRUE. chem_dname_table( idomain, P_biog2_c_a01 ) = 'biog2_c_a01' chem_desc_table( idomain, P_biog2_c_a01 ) = 'biog2_c, aerosol bin 01' chem_units_table( idomain, P_biog2_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog2_c_a01 )%stream(2) = 2097216 ! 00200040 F_biog2_c_a01 = .TRUE. IF ( chem_index_table( PARAM_biog3_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog3_c_a01 , idomain ) = P_biog3_c_a01 ELSE P_biog3_c_a01 = chem_index_table( PARAM_biog3_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog3_c_a01 ) = .TRUE. chem_dname_table( idomain, P_biog3_c_a01 ) = 'biog3_c_a01' chem_desc_table( idomain, P_biog3_c_a01 ) = 'biog3_c, aerosol bin 01' chem_units_table( idomain, P_biog3_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog3_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog3_c_a01 )%stream(2) = 2097216 ! 00200040 F_biog3_c_a01 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a01 , idomain ) = P_biog1_o_a01 ELSE P_biog1_o_a01 = chem_index_table( PARAM_biog1_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a01 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a01 ) = 'biog1_o_a01' chem_desc_table( idomain, P_biog1_o_a01 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_o_a01 )%stream(2) = 2097216 ! 00200040 F_biog1_o_a01 = .TRUE. IF ( chem_index_table( PARAM_biog2_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog2_o_a01 , idomain ) = P_biog2_o_a01 ELSE P_biog2_o_a01 = chem_index_table( PARAM_biog2_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog2_o_a01 ) = .TRUE. chem_dname_table( idomain, P_biog2_o_a01 ) = 'biog2_o_a01' chem_desc_table( idomain, P_biog2_o_a01 ) = 'biog2_o, aerosol bin 01' chem_units_table( idomain, P_biog2_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_o_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog2_o_a01 )%stream(2) = 2097216 ! 00200040 F_biog2_o_a01 = .TRUE. IF ( chem_index_table( PARAM_ant3_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_ant3_c_a01 , idomain ) = P_ant3_c_a01 ELSE P_ant3_c_a01 = chem_index_table( PARAM_ant3_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_ant3_c_a01 ) = .TRUE. chem_dname_table( idomain, P_ant3_c_a01 ) = 'ant3_c_a01' chem_desc_table( idomain, P_ant3_c_a01 ) = 'ant3_c, aerosol bin 01' chem_units_table( idomain, P_ant3_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant3_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant3_c_a01 )%stream(2) = 2097216 ! 00200040 F_ant3_c_a01 = .TRUE. IF ( chem_index_table( PARAM_ant4_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_ant4_c_a01 , idomain ) = P_ant4_c_a01 ELSE P_ant4_c_a01 = chem_index_table( PARAM_ant4_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_ant4_c_a01 ) = .TRUE. chem_dname_table( idomain, P_ant4_c_a01 ) = 'ant4_c_a01' chem_desc_table( idomain, P_ant4_c_a01 ) = 'ant4_c, aerosol bin 01' chem_units_table( idomain, P_ant4_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant4_c_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant4_c_a01 )%stream(2) = 2097216 ! 00200040 F_ant4_c_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 ! 00200040 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 ! 00200040 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 ! 00200040 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 ! 00200040 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 ! 00200040 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 ! 00200040 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 ! 00200040 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 ! 00200040 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 ! 00200040 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 ! 00200040 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) = P_pcg1_b_c_a02 ELSE P_pcg1_b_c_a02 = chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a02 ) = 'pcg1_b_c_a02' chem_desc_table( idomain, P_pcg1_b_c_a02 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a02 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) = P_pcg1_b_o_a02 ELSE P_pcg1_b_o_a02 = chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a02 ) = 'pcg1_b_o_a02' chem_desc_table( idomain, P_pcg1_b_o_a02 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a02 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) = P_opcg1_b_c_a02 ELSE P_opcg1_b_c_a02 = chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a02 ) = 'opcg1_b_c_a02' chem_desc_table( idomain, P_opcg1_b_c_a02 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a02 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) = P_opcg1_b_o_a02 ELSE P_opcg1_b_o_a02 = chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a02 ) = 'opcg1_b_o_a02' chem_desc_table( idomain, P_opcg1_b_o_a02 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a02 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) = P_pcg1_f_c_a02 ELSE P_pcg1_f_c_a02 = chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a02 ) = 'pcg1_f_c_a02' chem_desc_table( idomain, P_pcg1_f_c_a02 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a02 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) = P_pcg1_f_o_a02 ELSE P_pcg1_f_o_a02 = chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a02 ) = 'pcg1_f_o_a02' chem_desc_table( idomain, P_pcg1_f_o_a02 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a02 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) = P_opcg1_f_c_a02 ELSE P_opcg1_f_c_a02 = chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a02 ) = 'opcg1_f_c_a02' chem_desc_table( idomain, P_opcg1_f_c_a02 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a02 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) = P_opcg1_f_o_a02 ELSE P_opcg1_f_o_a02 = chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a02 ) = 'opcg1_f_o_a02' chem_desc_table( idomain, P_opcg1_f_o_a02 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a02 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a02 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a02 , idomain ) = P_ant1_c_a02 ELSE P_ant1_c_a02 = chem_index_table( PARAM_ant1_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a02 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a02 ) = 'ant1_c_a02' chem_desc_table( idomain, P_ant1_c_a02 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_c_a02 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a02 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a02 , idomain ) = P_biog1_c_a02 ELSE P_biog1_c_a02 = chem_index_table( PARAM_biog1_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a02 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a02 ) = 'biog1_c_a02' chem_desc_table( idomain, P_biog1_c_a02 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_a02 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a02 = .TRUE. IF ( chem_index_table( PARAM_ant2_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_ant2_c_a02 , idomain ) = P_ant2_c_a02 ELSE P_ant2_c_a02 = chem_index_table( PARAM_ant2_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_ant2_c_a02 ) = .TRUE. chem_dname_table( idomain, P_ant2_c_a02 ) = 'ant2_c_a02' chem_desc_table( idomain, P_ant2_c_a02 ) = 'ant2_c, aerosol bin 01' chem_units_table( idomain, P_ant2_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant2_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant2_c_a02 )%stream(2) = 2097216 ! 00200040 F_ant2_c_a02 = .TRUE. IF ( chem_index_table( PARAM_biog2_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog2_c_a02 , idomain ) = P_biog2_c_a02 ELSE P_biog2_c_a02 = chem_index_table( PARAM_biog2_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog2_c_a02 ) = .TRUE. chem_dname_table( idomain, P_biog2_c_a02 ) = 'biog2_c_a02' chem_desc_table( idomain, P_biog2_c_a02 ) = 'biog2_c, aerosol bin 01' chem_units_table( idomain, P_biog2_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog2_c_a02 )%stream(2) = 2097216 ! 00200040 F_biog2_c_a02 = .TRUE. IF ( chem_index_table( PARAM_biog3_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog3_c_a02 , idomain ) = P_biog3_c_a02 ELSE P_biog3_c_a02 = chem_index_table( PARAM_biog3_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog3_c_a02 ) = .TRUE. chem_dname_table( idomain, P_biog3_c_a02 ) = 'biog3_c_a02' chem_desc_table( idomain, P_biog3_c_a02 ) = 'biog3_c, aerosol bin 01' chem_units_table( idomain, P_biog3_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog3_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog3_c_a02 )%stream(2) = 2097216 ! 00200040 F_biog3_c_a02 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a02 , idomain ) = P_biog1_o_a02 ELSE P_biog1_o_a02 = chem_index_table( PARAM_biog1_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a02 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a02 ) = 'biog1_o_a02' chem_desc_table( idomain, P_biog1_o_a02 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_o_a02 )%stream(2) = 2097216 ! 00200040 F_biog1_o_a02 = .TRUE. IF ( chem_index_table( PARAM_biog2_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog2_o_a02 , idomain ) = P_biog2_o_a02 ELSE P_biog2_o_a02 = chem_index_table( PARAM_biog2_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog2_o_a02 ) = .TRUE. chem_dname_table( idomain, P_biog2_o_a02 ) = 'biog2_o_a02' chem_desc_table( idomain, P_biog2_o_a02 ) = 'biog2_o, aerosol bin 01' chem_units_table( idomain, P_biog2_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_o_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog2_o_a02 )%stream(2) = 2097216 ! 00200040 F_biog2_o_a02 = .TRUE. IF ( chem_index_table( PARAM_ant3_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_ant3_c_a02 , idomain ) = P_ant3_c_a02 ELSE P_ant3_c_a02 = chem_index_table( PARAM_ant3_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_ant3_c_a02 ) = .TRUE. chem_dname_table( idomain, P_ant3_c_a02 ) = 'ant3_c_a02' chem_desc_table( idomain, P_ant3_c_a02 ) = 'ant3_c, aerosol bin 01' chem_units_table( idomain, P_ant3_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant3_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant3_c_a02 )%stream(2) = 2097216 ! 00200040 F_ant3_c_a02 = .TRUE. IF ( chem_index_table( PARAM_ant4_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_ant4_c_a02 , idomain ) = P_ant4_c_a02 ELSE P_ant4_c_a02 = chem_index_table( PARAM_ant4_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_ant4_c_a02 ) = .TRUE. chem_dname_table( idomain, P_ant4_c_a02 ) = 'ant4_c_a02' chem_desc_table( idomain, P_ant4_c_a02 ) = 'ant4_c, aerosol bin 01' chem_units_table( idomain, P_ant4_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant4_c_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant4_c_a02 )%stream(2) = 2097216 ! 00200040 F_ant4_c_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 ! 00200040 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 ! 00200040 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 ! 00200040 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 ! 00200040 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 ! 00200040 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 ! 00200040 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 ! 00200040 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 ! 00200040 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 ! 00200040 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 ! 00200040 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) = P_pcg1_b_c_a03 ELSE P_pcg1_b_c_a03 = chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a03 ) = 'pcg1_b_c_a03' chem_desc_table( idomain, P_pcg1_b_c_a03 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a03 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) = P_pcg1_b_o_a03 ELSE P_pcg1_b_o_a03 = chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a03 ) = 'pcg1_b_o_a03' chem_desc_table( idomain, P_pcg1_b_o_a03 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a03 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) = P_opcg1_b_c_a03 ELSE P_opcg1_b_c_a03 = chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a03 ) = 'opcg1_b_c_a03' chem_desc_table( idomain, P_opcg1_b_c_a03 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a03 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) = P_opcg1_b_o_a03 ELSE P_opcg1_b_o_a03 = chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a03 ) = 'opcg1_b_o_a03' chem_desc_table( idomain, P_opcg1_b_o_a03 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a03 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) = P_pcg1_f_c_a03 ELSE P_pcg1_f_c_a03 = chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a03 ) = 'pcg1_f_c_a03' chem_desc_table( idomain, P_pcg1_f_c_a03 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a03 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) = P_pcg1_f_o_a03 ELSE P_pcg1_f_o_a03 = chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a03 ) = 'pcg1_f_o_a03' chem_desc_table( idomain, P_pcg1_f_o_a03 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a03 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) = P_opcg1_f_c_a03 ELSE P_opcg1_f_c_a03 = chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a03 ) = 'opcg1_f_c_a03' chem_desc_table( idomain, P_opcg1_f_c_a03 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a03 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) = P_opcg1_f_o_a03 ELSE P_opcg1_f_o_a03 = chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a03 ) = 'opcg1_f_o_a03' chem_desc_table( idomain, P_opcg1_f_o_a03 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a03 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a03 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a03 , idomain ) = P_ant1_c_a03 ELSE P_ant1_c_a03 = chem_index_table( PARAM_ant1_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a03 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a03 ) = 'ant1_c_a03' chem_desc_table( idomain, P_ant1_c_a03 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_c_a03 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a03 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a03 , idomain ) = P_biog1_c_a03 ELSE P_biog1_c_a03 = chem_index_table( PARAM_biog1_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a03 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a03 ) = 'biog1_c_a03' chem_desc_table( idomain, P_biog1_c_a03 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_a03 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a03 = .TRUE. IF ( chem_index_table( PARAM_ant2_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_ant2_c_a03 , idomain ) = P_ant2_c_a03 ELSE P_ant2_c_a03 = chem_index_table( PARAM_ant2_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_ant2_c_a03 ) = .TRUE. chem_dname_table( idomain, P_ant2_c_a03 ) = 'ant2_c_a03' chem_desc_table( idomain, P_ant2_c_a03 ) = 'ant2_c, aerosol bin 01' chem_units_table( idomain, P_ant2_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant2_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant2_c_a03 )%stream(2) = 2097216 ! 00200040 F_ant2_c_a03 = .TRUE. IF ( chem_index_table( PARAM_biog2_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog2_c_a03 , idomain ) = P_biog2_c_a03 ELSE P_biog2_c_a03 = chem_index_table( PARAM_biog2_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog2_c_a03 ) = .TRUE. chem_dname_table( idomain, P_biog2_c_a03 ) = 'biog2_c_a03' chem_desc_table( idomain, P_biog2_c_a03 ) = 'biog2_c, aerosol bin 01' chem_units_table( idomain, P_biog2_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog2_c_a03 )%stream(2) = 2097216 ! 00200040 F_biog2_c_a03 = .TRUE. IF ( chem_index_table( PARAM_biog3_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog3_c_a03 , idomain ) = P_biog3_c_a03 ELSE P_biog3_c_a03 = chem_index_table( PARAM_biog3_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog3_c_a03 ) = .TRUE. chem_dname_table( idomain, P_biog3_c_a03 ) = 'biog3_c_a03' chem_desc_table( idomain, P_biog3_c_a03 ) = 'biog3_c, aerosol bin 01' chem_units_table( idomain, P_biog3_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog3_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog3_c_a03 )%stream(2) = 2097216 ! 00200040 F_biog3_c_a03 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a03 , idomain ) = P_biog1_o_a03 ELSE P_biog1_o_a03 = chem_index_table( PARAM_biog1_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a03 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a03 ) = 'biog1_o_a03' chem_desc_table( idomain, P_biog1_o_a03 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_o_a03 )%stream(2) = 2097216 ! 00200040 F_biog1_o_a03 = .TRUE. IF ( chem_index_table( PARAM_biog2_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog2_o_a03 , idomain ) = P_biog2_o_a03 ELSE P_biog2_o_a03 = chem_index_table( PARAM_biog2_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog2_o_a03 ) = .TRUE. chem_dname_table( idomain, P_biog2_o_a03 ) = 'biog2_o_a03' chem_desc_table( idomain, P_biog2_o_a03 ) = 'biog2_o, aerosol bin 01' chem_units_table( idomain, P_biog2_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_o_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog2_o_a03 )%stream(2) = 2097216 ! 00200040 F_biog2_o_a03 = .TRUE. IF ( chem_index_table( PARAM_ant3_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_ant3_c_a03 , idomain ) = P_ant3_c_a03 ELSE P_ant3_c_a03 = chem_index_table( PARAM_ant3_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_ant3_c_a03 ) = .TRUE. chem_dname_table( idomain, P_ant3_c_a03 ) = 'ant3_c_a03' chem_desc_table( idomain, P_ant3_c_a03 ) = 'ant3_c, aerosol bin 01' chem_units_table( idomain, P_ant3_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant3_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant3_c_a03 )%stream(2) = 2097216 ! 00200040 F_ant3_c_a03 = .TRUE. IF ( chem_index_table( PARAM_ant4_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_ant4_c_a03 , idomain ) = P_ant4_c_a03 ELSE P_ant4_c_a03 = chem_index_table( PARAM_ant4_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_ant4_c_a03 ) = .TRUE. chem_dname_table( idomain, P_ant4_c_a03 ) = 'ant4_c_a03' chem_desc_table( idomain, P_ant4_c_a03 ) = 'ant4_c, aerosol bin 01' chem_units_table( idomain, P_ant4_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant4_c_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant4_c_a03 )%stream(2) = 2097216 ! 00200040 F_ant4_c_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 ! 00200040 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 ! 00200040 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 ! 00200040 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 ! 00200040 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 ! 00200040 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 ! 00200040 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 ! 00200040 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 ! 00200040 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 ! 00200040 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 ! 00200040 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) = P_pcg1_b_c_a04 ELSE P_pcg1_b_c_a04 = chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a04 ) = 'pcg1_b_c_a04' chem_desc_table( idomain, P_pcg1_b_c_a04 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a04 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) = P_pcg1_b_o_a04 ELSE P_pcg1_b_o_a04 = chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a04 ) = 'pcg1_b_o_a04' chem_desc_table( idomain, P_pcg1_b_o_a04 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a04 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) = P_opcg1_b_c_a04 ELSE P_opcg1_b_c_a04 = chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a04 ) = 'opcg1_b_c_a04' chem_desc_table( idomain, P_opcg1_b_c_a04 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a04 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) = P_opcg1_b_o_a04 ELSE P_opcg1_b_o_a04 = chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a04 ) = 'opcg1_b_o_a04' chem_desc_table( idomain, P_opcg1_b_o_a04 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a04 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) = P_pcg1_f_c_a04 ELSE P_pcg1_f_c_a04 = chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a04 ) = 'pcg1_f_c_a04' chem_desc_table( idomain, P_pcg1_f_c_a04 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a04 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) = P_pcg1_f_o_a04 ELSE P_pcg1_f_o_a04 = chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a04 ) = 'pcg1_f_o_a04' chem_desc_table( idomain, P_pcg1_f_o_a04 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a04 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) = P_opcg1_f_c_a04 ELSE P_opcg1_f_c_a04 = chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a04 ) = 'opcg1_f_c_a04' chem_desc_table( idomain, P_opcg1_f_c_a04 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a04 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) = P_opcg1_f_o_a04 ELSE P_opcg1_f_o_a04 = chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a04 ) = 'opcg1_f_o_a04' chem_desc_table( idomain, P_opcg1_f_o_a04 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a04 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a04 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a04 , idomain ) = P_ant1_c_a04 ELSE P_ant1_c_a04 = chem_index_table( PARAM_ant1_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a04 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a04 ) = 'ant1_c_a04' chem_desc_table( idomain, P_ant1_c_a04 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant1_c_a04 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a04 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a04 , idomain ) = P_biog1_c_a04 ELSE P_biog1_c_a04 = chem_index_table( PARAM_biog1_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a04 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a04 ) = 'biog1_c_a04' chem_desc_table( idomain, P_biog1_c_a04 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_c_a04 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a04 = .TRUE. IF ( chem_index_table( PARAM_ant2_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_ant2_c_a04 , idomain ) = P_ant2_c_a04 ELSE P_ant2_c_a04 = chem_index_table( PARAM_ant2_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_ant2_c_a04 ) = .TRUE. chem_dname_table( idomain, P_ant2_c_a04 ) = 'ant2_c_a04' chem_desc_table( idomain, P_ant2_c_a04 ) = 'ant2_c, aerosol bin 01' chem_units_table( idomain, P_ant2_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant2_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant2_c_a04 )%stream(2) = 2097216 ! 00200040 F_ant2_c_a04 = .TRUE. IF ( chem_index_table( PARAM_biog2_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog2_c_a04 , idomain ) = P_biog2_c_a04 ELSE P_biog2_c_a04 = chem_index_table( PARAM_biog2_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog2_c_a04 ) = .TRUE. chem_dname_table( idomain, P_biog2_c_a04 ) = 'biog2_c_a04' chem_desc_table( idomain, P_biog2_c_a04 ) = 'biog2_c, aerosol bin 01' chem_units_table( idomain, P_biog2_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog2_c_a04 )%stream(2) = 2097216 ! 00200040 F_biog2_c_a04 = .TRUE. IF ( chem_index_table( PARAM_biog3_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog3_c_a04 , idomain ) = P_biog3_c_a04 ELSE P_biog3_c_a04 = chem_index_table( PARAM_biog3_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog3_c_a04 ) = .TRUE. chem_dname_table( idomain, P_biog3_c_a04 ) = 'biog3_c_a04' chem_desc_table( idomain, P_biog3_c_a04 ) = 'biog3_c, aerosol bin 01' chem_units_table( idomain, P_biog3_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog3_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog3_c_a04 )%stream(2) = 2097216 ! 00200040 F_biog3_c_a04 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a04 , idomain ) = P_biog1_o_a04 ELSE P_biog1_o_a04 = chem_index_table( PARAM_biog1_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a04 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a04 ) = 'biog1_o_a04' chem_desc_table( idomain, P_biog1_o_a04 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog1_o_a04 )%stream(2) = 2097216 ! 00200040 F_biog1_o_a04 = .TRUE. IF ( chem_index_table( PARAM_biog2_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog2_o_a04 , idomain ) = P_biog2_o_a04 ELSE P_biog2_o_a04 = chem_index_table( PARAM_biog2_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog2_o_a04 ) = .TRUE. chem_dname_table( idomain, P_biog2_o_a04 ) = 'biog2_o_a04' chem_desc_table( idomain, P_biog2_o_a04 ) = 'biog2_o, aerosol bin 01' chem_units_table( idomain, P_biog2_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_o_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_biog2_o_a04 )%stream(2) = 2097216 ! 00200040 F_biog2_o_a04 = .TRUE. IF ( chem_index_table( PARAM_ant3_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_ant3_c_a04 , idomain ) = P_ant3_c_a04 ELSE P_ant3_c_a04 = chem_index_table( PARAM_ant3_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_ant3_c_a04 ) = .TRUE. chem_dname_table( idomain, P_ant3_c_a04 ) = 'ant3_c_a04' chem_desc_table( idomain, P_ant3_c_a04 ) = 'ant3_c, aerosol bin 01' chem_units_table( idomain, P_ant3_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant3_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant3_c_a04 )%stream(2) = 2097216 ! 00200040 F_ant3_c_a04 = .TRUE. IF ( chem_index_table( PARAM_ant4_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_ant4_c_a04 , idomain ) = P_ant4_c_a04 ELSE P_ant4_c_a04 = chem_index_table( PARAM_ant4_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_ant4_c_a04 ) = .TRUE. chem_dname_table( idomain, P_ant4_c_a04 ) = 'ant4_c_a04' chem_desc_table( idomain, P_ant4_c_a04 ) = 'ant4_c, aerosol bin 01' chem_units_table( idomain, P_ant4_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant4_c_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ant4_c_a04 )%stream(2) = 2097216 ! 00200040 F_ant4_c_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 ! 00200040 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a05 = chem_num_table(idomain) chem_index_table( PARAM_so4_a05 , idomain ) = P_so4_a05 ELSE P_so4_a05 = chem_index_table( PARAM_so4_a05 , idomain ) END IF chem_boundary_table( idomain, P_so4_a05 ) = .TRUE. chem_dname_table( idomain, P_so4_a05 ) = 'so4_a05' chem_desc_table( idomain, P_so4_a05 ) = 'Sulfate, aerosol bin 05' chem_units_table( idomain, P_so4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a05 )%stream(2) = 2097216 ! 00200040 F_so4_a05 = .TRUE. IF ( chem_index_table( PARAM_no3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a05 = chem_num_table(idomain) chem_index_table( PARAM_no3_a05 , idomain ) = P_no3_a05 ELSE P_no3_a05 = chem_index_table( PARAM_no3_a05 , idomain ) END IF chem_boundary_table( idomain, P_no3_a05 ) = .TRUE. chem_dname_table( idomain, P_no3_a05 ) = 'no3_a05' chem_desc_table( idomain, P_no3_a05 ) = 'Nitrate, aerosol bin 05' chem_units_table( idomain, P_no3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a05 )%stream(2) = 2097216 ! 00200040 F_no3_a05 = .TRUE. IF ( chem_index_table( PARAM_cl_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a05 = chem_num_table(idomain) chem_index_table( PARAM_cl_a05 , idomain ) = P_cl_a05 ELSE P_cl_a05 = chem_index_table( PARAM_cl_a05 , idomain ) END IF chem_boundary_table( idomain, P_cl_a05 ) = .TRUE. chem_dname_table( idomain, P_cl_a05 ) = 'cl_a05' chem_desc_table( idomain, P_cl_a05 ) = 'Chloride, aerosol bin 05' chem_units_table( idomain, P_cl_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a05 )%stream(2) = 2097216 ! 00200040 F_cl_a05 = .TRUE. IF ( chem_index_table( PARAM_nh4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a05 , idomain ) = P_nh4_a05 ELSE P_nh4_a05 = chem_index_table( PARAM_nh4_a05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a05 ) = .TRUE. chem_dname_table( idomain, P_nh4_a05 ) = 'nh4_a05' chem_desc_table( idomain, P_nh4_a05 ) = 'Ammonium, aerosol bin 05' chem_units_table( idomain, P_nh4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a05 )%stream(2) = 2097216 ! 00200040 F_nh4_a05 = .TRUE. IF ( chem_index_table( PARAM_na_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a05 = chem_num_table(idomain) chem_index_table( PARAM_na_a05 , idomain ) = P_na_a05 ELSE P_na_a05 = chem_index_table( PARAM_na_a05 , idomain ) END IF chem_boundary_table( idomain, P_na_a05 ) = .TRUE. chem_dname_table( idomain, P_na_a05 ) = 'na_a05' chem_desc_table( idomain, P_na_a05 ) = 'Sodium, aerosol bin 05' chem_units_table( idomain, P_na_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a05 )%stream(2) = 2097216 ! 00200040 F_na_a05 = .TRUE. IF ( chem_index_table( PARAM_oin_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a05 = chem_num_table(idomain) chem_index_table( PARAM_oin_a05 , idomain ) = P_oin_a05 ELSE P_oin_a05 = chem_index_table( PARAM_oin_a05 , idomain ) END IF chem_boundary_table( idomain, P_oin_a05 ) = .TRUE. chem_dname_table( idomain, P_oin_a05 ) = 'oin_a05' chem_desc_table( idomain, P_oin_a05 ) = 'Other inorganics, aerosol bin 05' chem_units_table( idomain, P_oin_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a05 )%stream(2) = 2097216 ! 00200040 F_oin_a05 = .TRUE. IF ( chem_index_table( PARAM_oc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a05 = chem_num_table(idomain) chem_index_table( PARAM_oc_a05 , idomain ) = P_oc_a05 ELSE P_oc_a05 = chem_index_table( PARAM_oc_a05 , idomain ) END IF chem_boundary_table( idomain, P_oc_a05 ) = .TRUE. chem_dname_table( idomain, P_oc_a05 ) = 'oc_a05' chem_desc_table( idomain, P_oc_a05 ) = 'Organic carbon, aerosol bin 05' chem_units_table( idomain, P_oc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a05 )%stream(2) = 2097216 ! 00200040 F_oc_a05 = .TRUE. IF ( chem_index_table( PARAM_bc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a05 = chem_num_table(idomain) chem_index_table( PARAM_bc_a05 , idomain ) = P_bc_a05 ELSE P_bc_a05 = chem_index_table( PARAM_bc_a05 , idomain ) END IF chem_boundary_table( idomain, P_bc_a05 ) = .TRUE. chem_dname_table( idomain, P_bc_a05 ) = 'bc_a05' chem_desc_table( idomain, P_bc_a05 ) = 'Black carbon, aerosol bin 05' chem_units_table( idomain, P_bc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a05 )%stream(2) = 2097216 ! 00200040 F_bc_a05 = .TRUE. IF ( chem_index_table( PARAM_hysw_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a05 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a05 , idomain ) = P_hysw_a05 ELSE P_hysw_a05 = chem_index_table( PARAM_hysw_a05 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a05 ) = .TRUE. chem_dname_table( idomain, P_hysw_a05 ) = 'hysw_a05' chem_desc_table( idomain, P_hysw_a05 ) = 'Hysteresis water, aerosol bin 05' chem_units_table( idomain, P_hysw_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a05 )%stream(2) = 2097216 ! 00200040 F_hysw_a05 = .TRUE. IF ( chem_index_table( PARAM_water_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a05 = chem_num_table(idomain) chem_index_table( PARAM_water_a05 , idomain ) = P_water_a05 ELSE P_water_a05 = chem_index_table( PARAM_water_a05 , idomain ) END IF chem_boundary_table( idomain, P_water_a05 ) = .TRUE. chem_dname_table( idomain, P_water_a05 ) = 'water_a05' chem_desc_table( idomain, P_water_a05 ) = 'Water, aerosol bin 05' chem_units_table( idomain, P_water_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a05 )%stream(2) = 2097216 ! 00200040 F_water_a05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a05 , idomain ) = P_pcg1_b_c_a05 ELSE P_pcg1_b_c_a05 = chem_index_table( PARAM_pcg1_b_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a05 ) = 'pcg1_b_c_a05' chem_desc_table( idomain, P_pcg1_b_c_a05 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a05 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a05 , idomain ) = P_pcg1_b_o_a05 ELSE P_pcg1_b_o_a05 = chem_index_table( PARAM_pcg1_b_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a05 ) = 'pcg1_b_o_a05' chem_desc_table( idomain, P_pcg1_b_o_a05 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a05 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a05 , idomain ) = P_opcg1_b_c_a05 ELSE P_opcg1_b_c_a05 = chem_index_table( PARAM_opcg1_b_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a05 ) = 'opcg1_b_c_a05' chem_desc_table( idomain, P_opcg1_b_c_a05 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a05 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a05 , idomain ) = P_opcg1_b_o_a05 ELSE P_opcg1_b_o_a05 = chem_index_table( PARAM_opcg1_b_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a05 ) = 'opcg1_b_o_a05' chem_desc_table( idomain, P_opcg1_b_o_a05 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a05 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a05 , idomain ) = P_pcg1_f_c_a05 ELSE P_pcg1_f_c_a05 = chem_index_table( PARAM_pcg1_f_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a05 ) = 'pcg1_f_c_a05' chem_desc_table( idomain, P_pcg1_f_c_a05 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a05 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a05 , idomain ) = P_pcg1_f_o_a05 ELSE P_pcg1_f_o_a05 = chem_index_table( PARAM_pcg1_f_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a05 ) = 'pcg1_f_o_a05' chem_desc_table( idomain, P_pcg1_f_o_a05 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a05 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a05 , idomain ) = P_opcg1_f_c_a05 ELSE P_opcg1_f_c_a05 = chem_index_table( PARAM_opcg1_f_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a05 ) = 'opcg1_f_c_a05' chem_desc_table( idomain, P_opcg1_f_c_a05 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a05 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a05 , idomain ) = P_opcg1_f_o_a05 ELSE P_opcg1_f_o_a05 = chem_index_table( PARAM_opcg1_f_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a05 ) = 'opcg1_f_o_a05' chem_desc_table( idomain, P_opcg1_f_o_a05 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a05 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a05 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a05 , idomain ) = P_ant1_c_a05 ELSE P_ant1_c_a05 = chem_index_table( PARAM_ant1_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a05 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a05 ) = 'ant1_c_a05' chem_desc_table( idomain, P_ant1_c_a05 ) = 'ant1_c, aerosol bin 05' chem_units_table( idomain, P_ant1_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant1_c_a05 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a05 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a05 , idomain ) = P_biog1_c_a05 ELSE P_biog1_c_a05 = chem_index_table( PARAM_biog1_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a05 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a05 ) = 'biog1_c_a05' chem_desc_table( idomain, P_biog1_c_a05 ) = 'biog1_c, aerosol bin 05' chem_units_table( idomain, P_biog1_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_c_a05 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a05 = .TRUE. IF ( chem_index_table( PARAM_ant2_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_ant2_c_a05 , idomain ) = P_ant2_c_a05 ELSE P_ant2_c_a05 = chem_index_table( PARAM_ant2_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_ant2_c_a05 ) = .TRUE. chem_dname_table( idomain, P_ant2_c_a05 ) = 'ant2_c_a05' chem_desc_table( idomain, P_ant2_c_a05 ) = 'ant2_c, aerosol bin 01' chem_units_table( idomain, P_ant2_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant2_c_a05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant2_c_a05 )%stream(2) = 2097216 ! 00200040 F_ant2_c_a05 = .TRUE. IF ( chem_index_table( PARAM_biog2_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_biog2_c_a05 , idomain ) = P_biog2_c_a05 ELSE P_biog2_c_a05 = chem_index_table( PARAM_biog2_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_biog2_c_a05 ) = .TRUE. chem_dname_table( idomain, P_biog2_c_a05 ) = 'biog2_c_a05' chem_desc_table( idomain, P_biog2_c_a05 ) = 'biog2_c, aerosol bin 01' chem_units_table( idomain, P_biog2_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_c_a05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog2_c_a05 )%stream(2) = 2097216 ! 00200040 F_biog2_c_a05 = .TRUE. IF ( chem_index_table( PARAM_biog3_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_biog3_c_a05 , idomain ) = P_biog3_c_a05 ELSE P_biog3_c_a05 = chem_index_table( PARAM_biog3_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_biog3_c_a05 ) = .TRUE. chem_dname_table( idomain, P_biog3_c_a05 ) = 'biog3_c_a05' chem_desc_table( idomain, P_biog3_c_a05 ) = 'biog3_c, aerosol bin 01' chem_units_table( idomain, P_biog3_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog3_c_a05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog3_c_a05 )%stream(2) = 2097216 ! 00200040 F_biog3_c_a05 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a05 , idomain ) = P_biog1_o_a05 ELSE P_biog1_o_a05 = chem_index_table( PARAM_biog1_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a05 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a05 ) = 'biog1_o_a05' chem_desc_table( idomain, P_biog1_o_a05 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_o_a05 )%stream(2) = 2097216 ! 00200040 F_biog1_o_a05 = .TRUE. IF ( chem_index_table( PARAM_biog2_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_biog2_o_a05 , idomain ) = P_biog2_o_a05 ELSE P_biog2_o_a05 = chem_index_table( PARAM_biog2_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_biog2_o_a05 ) = .TRUE. chem_dname_table( idomain, P_biog2_o_a05 ) = 'biog2_o_a05' chem_desc_table( idomain, P_biog2_o_a05 ) = 'biog2_o, aerosol bin 01' chem_units_table( idomain, P_biog2_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_o_a05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog2_o_a05 )%stream(2) = 2097216 ! 00200040 F_biog2_o_a05 = .TRUE. IF ( chem_index_table( PARAM_ant3_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_ant3_c_a05 , idomain ) = P_ant3_c_a05 ELSE P_ant3_c_a05 = chem_index_table( PARAM_ant3_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_ant3_c_a05 ) = .TRUE. chem_dname_table( idomain, P_ant3_c_a05 ) = 'ant3_c_a05' chem_desc_table( idomain, P_ant3_c_a05 ) = 'ant3_c, aerosol bin 01' chem_units_table( idomain, P_ant3_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant3_c_a05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant3_c_a05 )%stream(2) = 2097216 ! 00200040 F_ant3_c_a05 = .TRUE. IF ( chem_index_table( PARAM_ant4_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_ant4_c_a05 , idomain ) = P_ant4_c_a05 ELSE P_ant4_c_a05 = chem_index_table( PARAM_ant4_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_ant4_c_a05 ) = .TRUE. chem_dname_table( idomain, P_ant4_c_a05 ) = 'ant4_c_a05' chem_desc_table( idomain, P_ant4_c_a05 ) = 'ant4_c, aerosol bin 01' chem_units_table( idomain, P_ant4_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant4_c_a05 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant4_c_a05 )%stream(2) = 2097216 ! 00200040 F_ant4_c_a05 = .TRUE. IF ( chem_index_table( PARAM_num_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a05 = chem_num_table(idomain) chem_index_table( PARAM_num_a05 , idomain ) = P_num_a05 ELSE P_num_a05 = chem_index_table( PARAM_num_a05 , idomain ) END IF chem_boundary_table( idomain, P_num_a05 ) = .TRUE. chem_dname_table( idomain, P_num_a05 ) = 'num_a05' chem_desc_table( idomain, P_num_a05 ) = 'Number, aerosol bin 05' chem_units_table( idomain, P_num_a05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a05 )%stream(2) = 2097216 ! 00200040 F_num_a05 = .TRUE. IF ( chem_index_table( PARAM_so4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a06 = chem_num_table(idomain) chem_index_table( PARAM_so4_a06 , idomain ) = P_so4_a06 ELSE P_so4_a06 = chem_index_table( PARAM_so4_a06 , idomain ) END IF chem_boundary_table( idomain, P_so4_a06 ) = .TRUE. chem_dname_table( idomain, P_so4_a06 ) = 'so4_a06' chem_desc_table( idomain, P_so4_a06 ) = 'Sulfate, aerosol bin 06' chem_units_table( idomain, P_so4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a06 )%stream(2) = 2097216 ! 00200040 F_so4_a06 = .TRUE. IF ( chem_index_table( PARAM_no3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a06 = chem_num_table(idomain) chem_index_table( PARAM_no3_a06 , idomain ) = P_no3_a06 ELSE P_no3_a06 = chem_index_table( PARAM_no3_a06 , idomain ) END IF chem_boundary_table( idomain, P_no3_a06 ) = .TRUE. chem_dname_table( idomain, P_no3_a06 ) = 'no3_a06' chem_desc_table( idomain, P_no3_a06 ) = 'Nitrate, aerosol bin 06' chem_units_table( idomain, P_no3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a06 )%stream(2) = 2097216 ! 00200040 F_no3_a06 = .TRUE. IF ( chem_index_table( PARAM_cl_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a06 = chem_num_table(idomain) chem_index_table( PARAM_cl_a06 , idomain ) = P_cl_a06 ELSE P_cl_a06 = chem_index_table( PARAM_cl_a06 , idomain ) END IF chem_boundary_table( idomain, P_cl_a06 ) = .TRUE. chem_dname_table( idomain, P_cl_a06 ) = 'cl_a06' chem_desc_table( idomain, P_cl_a06 ) = 'Chloride, aerosol bin 06' chem_units_table( idomain, P_cl_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a06 )%stream(2) = 2097216 ! 00200040 F_cl_a06 = .TRUE. IF ( chem_index_table( PARAM_nh4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a06 , idomain ) = P_nh4_a06 ELSE P_nh4_a06 = chem_index_table( PARAM_nh4_a06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a06 ) = .TRUE. chem_dname_table( idomain, P_nh4_a06 ) = 'nh4_a06' chem_desc_table( idomain, P_nh4_a06 ) = 'Ammonium, aerosol bin 06' chem_units_table( idomain, P_nh4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a06 )%stream(2) = 2097216 ! 00200040 F_nh4_a06 = .TRUE. IF ( chem_index_table( PARAM_na_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a06 = chem_num_table(idomain) chem_index_table( PARAM_na_a06 , idomain ) = P_na_a06 ELSE P_na_a06 = chem_index_table( PARAM_na_a06 , idomain ) END IF chem_boundary_table( idomain, P_na_a06 ) = .TRUE. chem_dname_table( idomain, P_na_a06 ) = 'na_a06' chem_desc_table( idomain, P_na_a06 ) = 'Sodium, aerosol bin 06' chem_units_table( idomain, P_na_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a06 )%stream(2) = 2097216 ! 00200040 F_na_a06 = .TRUE. IF ( chem_index_table( PARAM_oin_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a06 = chem_num_table(idomain) chem_index_table( PARAM_oin_a06 , idomain ) = P_oin_a06 ELSE P_oin_a06 = chem_index_table( PARAM_oin_a06 , idomain ) END IF chem_boundary_table( idomain, P_oin_a06 ) = .TRUE. chem_dname_table( idomain, P_oin_a06 ) = 'oin_a06' chem_desc_table( idomain, P_oin_a06 ) = 'Other inorganics, aerosol bin 06' chem_units_table( idomain, P_oin_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a06 )%stream(2) = 2097216 ! 00200040 F_oin_a06 = .TRUE. IF ( chem_index_table( PARAM_oc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a06 = chem_num_table(idomain) chem_index_table( PARAM_oc_a06 , idomain ) = P_oc_a06 ELSE P_oc_a06 = chem_index_table( PARAM_oc_a06 , idomain ) END IF chem_boundary_table( idomain, P_oc_a06 ) = .TRUE. chem_dname_table( idomain, P_oc_a06 ) = 'oc_a06' chem_desc_table( idomain, P_oc_a06 ) = 'Organic carbon, aerosol bin 06' chem_units_table( idomain, P_oc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a06 )%stream(2) = 2097216 ! 00200040 F_oc_a06 = .TRUE. IF ( chem_index_table( PARAM_bc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a06 = chem_num_table(idomain) chem_index_table( PARAM_bc_a06 , idomain ) = P_bc_a06 ELSE P_bc_a06 = chem_index_table( PARAM_bc_a06 , idomain ) END IF chem_boundary_table( idomain, P_bc_a06 ) = .TRUE. chem_dname_table( idomain, P_bc_a06 ) = 'bc_a06' chem_desc_table( idomain, P_bc_a06 ) = 'Black carbon, aerosol bin 06' chem_units_table( idomain, P_bc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a06 )%stream(2) = 2097216 ! 00200040 F_bc_a06 = .TRUE. IF ( chem_index_table( PARAM_hysw_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a06 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a06 , idomain ) = P_hysw_a06 ELSE P_hysw_a06 = chem_index_table( PARAM_hysw_a06 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a06 ) = .TRUE. chem_dname_table( idomain, P_hysw_a06 ) = 'hysw_a06' chem_desc_table( idomain, P_hysw_a06 ) = 'Hysteresis water, aerosol bin 06' chem_units_table( idomain, P_hysw_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a06 )%stream(2) = 2097216 ! 00200040 F_hysw_a06 = .TRUE. IF ( chem_index_table( PARAM_water_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a06 = chem_num_table(idomain) chem_index_table( PARAM_water_a06 , idomain ) = P_water_a06 ELSE P_water_a06 = chem_index_table( PARAM_water_a06 , idomain ) END IF chem_boundary_table( idomain, P_water_a06 ) = .TRUE. chem_dname_table( idomain, P_water_a06 ) = 'water_a06' chem_desc_table( idomain, P_water_a06 ) = 'Water, aerosol bin 06' chem_units_table( idomain, P_water_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a06 )%stream(2) = 2097216 ! 00200040 F_water_a06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a06 , idomain ) = P_pcg1_b_c_a06 ELSE P_pcg1_b_c_a06 = chem_index_table( PARAM_pcg1_b_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a06 ) = 'pcg1_b_c_a06' chem_desc_table( idomain, P_pcg1_b_c_a06 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a06 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a06 , idomain ) = P_pcg1_b_o_a06 ELSE P_pcg1_b_o_a06 = chem_index_table( PARAM_pcg1_b_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a06 ) = 'pcg1_b_o_a06' chem_desc_table( idomain, P_pcg1_b_o_a06 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a06 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a06 , idomain ) = P_opcg1_b_c_a06 ELSE P_opcg1_b_c_a06 = chem_index_table( PARAM_opcg1_b_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a06 ) = 'opcg1_b_c_a06' chem_desc_table( idomain, P_opcg1_b_c_a06 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a06 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a06 , idomain ) = P_opcg1_b_o_a06 ELSE P_opcg1_b_o_a06 = chem_index_table( PARAM_opcg1_b_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a06 ) = 'opcg1_b_o_a06' chem_desc_table( idomain, P_opcg1_b_o_a06 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a06 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a06 , idomain ) = P_pcg1_f_c_a06 ELSE P_pcg1_f_c_a06 = chem_index_table( PARAM_pcg1_f_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a06 ) = 'pcg1_f_c_a06' chem_desc_table( idomain, P_pcg1_f_c_a06 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a06 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a06 , idomain ) = P_pcg1_f_o_a06 ELSE P_pcg1_f_o_a06 = chem_index_table( PARAM_pcg1_f_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a06 ) = 'pcg1_f_o_a06' chem_desc_table( idomain, P_pcg1_f_o_a06 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a06 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a06 , idomain ) = P_opcg1_f_c_a06 ELSE P_opcg1_f_c_a06 = chem_index_table( PARAM_opcg1_f_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a06 ) = 'opcg1_f_c_a06' chem_desc_table( idomain, P_opcg1_f_c_a06 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a06 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a06 , idomain ) = P_opcg1_f_o_a06 ELSE P_opcg1_f_o_a06 = chem_index_table( PARAM_opcg1_f_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a06 ) = 'opcg1_f_o_a06' chem_desc_table( idomain, P_opcg1_f_o_a06 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a06 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a06 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a06 , idomain ) = P_ant1_c_a06 ELSE P_ant1_c_a06 = chem_index_table( PARAM_ant1_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a06 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a06 ) = 'ant1_c_a06' chem_desc_table( idomain, P_ant1_c_a06 ) = 'ant1_c, aerosol bin 05' chem_units_table( idomain, P_ant1_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant1_c_a06 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a06 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a06 , idomain ) = P_biog1_c_a06 ELSE P_biog1_c_a06 = chem_index_table( PARAM_biog1_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a06 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a06 ) = 'biog1_c_a06' chem_desc_table( idomain, P_biog1_c_a06 ) = 'biog1_c, aerosol bin 05' chem_units_table( idomain, P_biog1_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_c_a06 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a06 = .TRUE. IF ( chem_index_table( PARAM_ant2_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_ant2_c_a06 , idomain ) = P_ant2_c_a06 ELSE P_ant2_c_a06 = chem_index_table( PARAM_ant2_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_ant2_c_a06 ) = .TRUE. chem_dname_table( idomain, P_ant2_c_a06 ) = 'ant2_c_a06' chem_desc_table( idomain, P_ant2_c_a06 ) = 'ant2_c, aerosol bin 01' chem_units_table( idomain, P_ant2_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant2_c_a06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant2_c_a06 )%stream(2) = 2097216 ! 00200040 F_ant2_c_a06 = .TRUE. IF ( chem_index_table( PARAM_biog2_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_biog2_c_a06 , idomain ) = P_biog2_c_a06 ELSE P_biog2_c_a06 = chem_index_table( PARAM_biog2_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_biog2_c_a06 ) = .TRUE. chem_dname_table( idomain, P_biog2_c_a06 ) = 'biog2_c_a06' chem_desc_table( idomain, P_biog2_c_a06 ) = 'biog2_c, aerosol bin 01' chem_units_table( idomain, P_biog2_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_c_a06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog2_c_a06 )%stream(2) = 2097216 ! 00200040 F_biog2_c_a06 = .TRUE. IF ( chem_index_table( PARAM_biog3_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_biog3_c_a06 , idomain ) = P_biog3_c_a06 ELSE P_biog3_c_a06 = chem_index_table( PARAM_biog3_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_biog3_c_a06 ) = .TRUE. chem_dname_table( idomain, P_biog3_c_a06 ) = 'biog3_c_a06' chem_desc_table( idomain, P_biog3_c_a06 ) = 'biog3_c, aerosol bin 01' chem_units_table( idomain, P_biog3_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog3_c_a06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog3_c_a06 )%stream(2) = 2097216 ! 00200040 F_biog3_c_a06 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a06 , idomain ) = P_biog1_o_a06 ELSE P_biog1_o_a06 = chem_index_table( PARAM_biog1_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a06 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a06 ) = 'biog1_o_a06' chem_desc_table( idomain, P_biog1_o_a06 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_o_a06 )%stream(2) = 2097216 ! 00200040 F_biog1_o_a06 = .TRUE. IF ( chem_index_table( PARAM_biog2_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_biog2_o_a06 , idomain ) = P_biog2_o_a06 ELSE P_biog2_o_a06 = chem_index_table( PARAM_biog2_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_biog2_o_a06 ) = .TRUE. chem_dname_table( idomain, P_biog2_o_a06 ) = 'biog2_o_a06' chem_desc_table( idomain, P_biog2_o_a06 ) = 'biog2_o, aerosol bin 01' chem_units_table( idomain, P_biog2_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_o_a06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog2_o_a06 )%stream(2) = 2097216 ! 00200040 F_biog2_o_a06 = .TRUE. IF ( chem_index_table( PARAM_ant3_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_ant3_c_a06 , idomain ) = P_ant3_c_a06 ELSE P_ant3_c_a06 = chem_index_table( PARAM_ant3_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_ant3_c_a06 ) = .TRUE. chem_dname_table( idomain, P_ant3_c_a06 ) = 'ant3_c_a06' chem_desc_table( idomain, P_ant3_c_a06 ) = 'ant3_c, aerosol bin 01' chem_units_table( idomain, P_ant3_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant3_c_a06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant3_c_a06 )%stream(2) = 2097216 ! 00200040 F_ant3_c_a06 = .TRUE. IF ( chem_index_table( PARAM_ant4_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_ant4_c_a06 , idomain ) = P_ant4_c_a06 ELSE P_ant4_c_a06 = chem_index_table( PARAM_ant4_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_ant4_c_a06 ) = .TRUE. chem_dname_table( idomain, P_ant4_c_a06 ) = 'ant4_c_a06' chem_desc_table( idomain, P_ant4_c_a06 ) = 'ant4_c, aerosol bin 01' chem_units_table( idomain, P_ant4_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant4_c_a06 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant4_c_a06 )%stream(2) = 2097216 ! 00200040 F_ant4_c_a06 = .TRUE. IF ( chem_index_table( PARAM_num_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a06 = chem_num_table(idomain) chem_index_table( PARAM_num_a06 , idomain ) = P_num_a06 ELSE P_num_a06 = chem_index_table( PARAM_num_a06 , idomain ) END IF chem_boundary_table( idomain, P_num_a06 ) = .TRUE. chem_dname_table( idomain, P_num_a06 ) = 'num_a06' chem_desc_table( idomain, P_num_a06 ) = 'Number, aerosol bin 06' chem_units_table( idomain, P_num_a06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a06 )%stream(2) = 2097216 ! 00200040 F_num_a06 = .TRUE. IF ( chem_index_table( PARAM_so4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a07 = chem_num_table(idomain) chem_index_table( PARAM_so4_a07 , idomain ) = P_so4_a07 ELSE P_so4_a07 = chem_index_table( PARAM_so4_a07 , idomain ) END IF chem_boundary_table( idomain, P_so4_a07 ) = .TRUE. chem_dname_table( idomain, P_so4_a07 ) = 'so4_a07' chem_desc_table( idomain, P_so4_a07 ) = 'Sulfate, aerosol bin 07' chem_units_table( idomain, P_so4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a07 )%stream(2) = 2097216 ! 00200040 F_so4_a07 = .TRUE. IF ( chem_index_table( PARAM_no3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a07 = chem_num_table(idomain) chem_index_table( PARAM_no3_a07 , idomain ) = P_no3_a07 ELSE P_no3_a07 = chem_index_table( PARAM_no3_a07 , idomain ) END IF chem_boundary_table( idomain, P_no3_a07 ) = .TRUE. chem_dname_table( idomain, P_no3_a07 ) = 'no3_a07' chem_desc_table( idomain, P_no3_a07 ) = 'Nitrate, aerosol bin 07' chem_units_table( idomain, P_no3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a07 )%stream(2) = 2097216 ! 00200040 F_no3_a07 = .TRUE. IF ( chem_index_table( PARAM_cl_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a07 = chem_num_table(idomain) chem_index_table( PARAM_cl_a07 , idomain ) = P_cl_a07 ELSE P_cl_a07 = chem_index_table( PARAM_cl_a07 , idomain ) END IF chem_boundary_table( idomain, P_cl_a07 ) = .TRUE. chem_dname_table( idomain, P_cl_a07 ) = 'cl_a07' chem_desc_table( idomain, P_cl_a07 ) = 'Chloride, aerosol bin 07' chem_units_table( idomain, P_cl_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a07 )%stream(2) = 2097216 ! 00200040 F_cl_a07 = .TRUE. IF ( chem_index_table( PARAM_nh4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a07 , idomain ) = P_nh4_a07 ELSE P_nh4_a07 = chem_index_table( PARAM_nh4_a07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a07 ) = .TRUE. chem_dname_table( idomain, P_nh4_a07 ) = 'nh4_a07' chem_desc_table( idomain, P_nh4_a07 ) = 'Ammonium, aerosol bin 07' chem_units_table( idomain, P_nh4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a07 )%stream(2) = 2097216 ! 00200040 F_nh4_a07 = .TRUE. IF ( chem_index_table( PARAM_na_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a07 = chem_num_table(idomain) chem_index_table( PARAM_na_a07 , idomain ) = P_na_a07 ELSE P_na_a07 = chem_index_table( PARAM_na_a07 , idomain ) END IF chem_boundary_table( idomain, P_na_a07 ) = .TRUE. chem_dname_table( idomain, P_na_a07 ) = 'na_a07' chem_desc_table( idomain, P_na_a07 ) = 'Sodium, aerosol bin 07' chem_units_table( idomain, P_na_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a07 )%stream(2) = 2097216 ! 00200040 F_na_a07 = .TRUE. IF ( chem_index_table( PARAM_oin_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a07 = chem_num_table(idomain) chem_index_table( PARAM_oin_a07 , idomain ) = P_oin_a07 ELSE P_oin_a07 = chem_index_table( PARAM_oin_a07 , idomain ) END IF chem_boundary_table( idomain, P_oin_a07 ) = .TRUE. chem_dname_table( idomain, P_oin_a07 ) = 'oin_a07' chem_desc_table( idomain, P_oin_a07 ) = 'Other inorganics, aerosol bin 07' chem_units_table( idomain, P_oin_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a07 )%stream(2) = 2097216 ! 00200040 F_oin_a07 = .TRUE. IF ( chem_index_table( PARAM_oc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a07 = chem_num_table(idomain) chem_index_table( PARAM_oc_a07 , idomain ) = P_oc_a07 ELSE P_oc_a07 = chem_index_table( PARAM_oc_a07 , idomain ) END IF chem_boundary_table( idomain, P_oc_a07 ) = .TRUE. chem_dname_table( idomain, P_oc_a07 ) = 'oc_a07' chem_desc_table( idomain, P_oc_a07 ) = 'Organic carbon, aerosol bin 07' chem_units_table( idomain, P_oc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a07 )%stream(2) = 2097216 ! 00200040 F_oc_a07 = .TRUE. IF ( chem_index_table( PARAM_bc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a07 = chem_num_table(idomain) chem_index_table( PARAM_bc_a07 , idomain ) = P_bc_a07 ELSE P_bc_a07 = chem_index_table( PARAM_bc_a07 , idomain ) END IF chem_boundary_table( idomain, P_bc_a07 ) = .TRUE. chem_dname_table( idomain, P_bc_a07 ) = 'bc_a07' chem_desc_table( idomain, P_bc_a07 ) = 'Black carbon, aerosol bin 07' chem_units_table( idomain, P_bc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a07 )%stream(2) = 2097216 ! 00200040 F_bc_a07 = .TRUE. IF ( chem_index_table( PARAM_hysw_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a07 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a07 , idomain ) = P_hysw_a07 ELSE P_hysw_a07 = chem_index_table( PARAM_hysw_a07 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a07 ) = .TRUE. chem_dname_table( idomain, P_hysw_a07 ) = 'hysw_a07' chem_desc_table( idomain, P_hysw_a07 ) = 'Hysteresis water, aerosol bin 07' chem_units_table( idomain, P_hysw_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a07 )%stream(2) = 2097216 ! 00200040 F_hysw_a07 = .TRUE. IF ( chem_index_table( PARAM_water_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a07 = chem_num_table(idomain) chem_index_table( PARAM_water_a07 , idomain ) = P_water_a07 ELSE P_water_a07 = chem_index_table( PARAM_water_a07 , idomain ) END IF chem_boundary_table( idomain, P_water_a07 ) = .TRUE. chem_dname_table( idomain, P_water_a07 ) = 'water_a07' chem_desc_table( idomain, P_water_a07 ) = 'Water, aerosol bin 07' chem_units_table( idomain, P_water_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a07 )%stream(2) = 2097216 ! 00200040 F_water_a07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a07 , idomain ) = P_pcg1_b_c_a07 ELSE P_pcg1_b_c_a07 = chem_index_table( PARAM_pcg1_b_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a07 ) = 'pcg1_b_c_a07' chem_desc_table( idomain, P_pcg1_b_c_a07 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a07 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a07 , idomain ) = P_pcg1_b_o_a07 ELSE P_pcg1_b_o_a07 = chem_index_table( PARAM_pcg1_b_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a07 ) = 'pcg1_b_o_a07' chem_desc_table( idomain, P_pcg1_b_o_a07 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a07 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a07 , idomain ) = P_opcg1_b_c_a07 ELSE P_opcg1_b_c_a07 = chem_index_table( PARAM_opcg1_b_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a07 ) = 'opcg1_b_c_a07' chem_desc_table( idomain, P_opcg1_b_c_a07 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a07 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a07 , idomain ) = P_opcg1_b_o_a07 ELSE P_opcg1_b_o_a07 = chem_index_table( PARAM_opcg1_b_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a07 ) = 'opcg1_b_o_a07' chem_desc_table( idomain, P_opcg1_b_o_a07 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a07 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a07 , idomain ) = P_pcg1_f_c_a07 ELSE P_pcg1_f_c_a07 = chem_index_table( PARAM_pcg1_f_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a07 ) = 'pcg1_f_c_a07' chem_desc_table( idomain, P_pcg1_f_c_a07 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a07 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a07 , idomain ) = P_pcg1_f_o_a07 ELSE P_pcg1_f_o_a07 = chem_index_table( PARAM_pcg1_f_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a07 ) = 'pcg1_f_o_a07' chem_desc_table( idomain, P_pcg1_f_o_a07 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a07 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a07 , idomain ) = P_opcg1_f_c_a07 ELSE P_opcg1_f_c_a07 = chem_index_table( PARAM_opcg1_f_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a07 ) = 'opcg1_f_c_a07' chem_desc_table( idomain, P_opcg1_f_c_a07 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a07 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a07 , idomain ) = P_opcg1_f_o_a07 ELSE P_opcg1_f_o_a07 = chem_index_table( PARAM_opcg1_f_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a07 ) = 'opcg1_f_o_a07' chem_desc_table( idomain, P_opcg1_f_o_a07 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a07 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a07 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a07 , idomain ) = P_ant1_c_a07 ELSE P_ant1_c_a07 = chem_index_table( PARAM_ant1_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a07 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a07 ) = 'ant1_c_a07' chem_desc_table( idomain, P_ant1_c_a07 ) = 'ant1_c, aerosol bin 05' chem_units_table( idomain, P_ant1_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant1_c_a07 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a07 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a07 , idomain ) = P_biog1_c_a07 ELSE P_biog1_c_a07 = chem_index_table( PARAM_biog1_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a07 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a07 ) = 'biog1_c_a07' chem_desc_table( idomain, P_biog1_c_a07 ) = 'biog1_c, aerosol bin 05' chem_units_table( idomain, P_biog1_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_c_a07 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a07 = .TRUE. IF ( chem_index_table( PARAM_ant2_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_ant2_c_a07 , idomain ) = P_ant2_c_a07 ELSE P_ant2_c_a07 = chem_index_table( PARAM_ant2_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_ant2_c_a07 ) = .TRUE. chem_dname_table( idomain, P_ant2_c_a07 ) = 'ant2_c_a07' chem_desc_table( idomain, P_ant2_c_a07 ) = 'ant2_c, aerosol bin 01' chem_units_table( idomain, P_ant2_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant2_c_a07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant2_c_a07 )%stream(2) = 2097216 ! 00200040 F_ant2_c_a07 = .TRUE. IF ( chem_index_table( PARAM_biog2_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_biog2_c_a07 , idomain ) = P_biog2_c_a07 ELSE P_biog2_c_a07 = chem_index_table( PARAM_biog2_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_biog2_c_a07 ) = .TRUE. chem_dname_table( idomain, P_biog2_c_a07 ) = 'biog2_c_a07' chem_desc_table( idomain, P_biog2_c_a07 ) = 'biog2_c, aerosol bin 01' chem_units_table( idomain, P_biog2_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_c_a07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog2_c_a07 )%stream(2) = 2097216 ! 00200040 F_biog2_c_a07 = .TRUE. IF ( chem_index_table( PARAM_biog3_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_biog3_c_a07 , idomain ) = P_biog3_c_a07 ELSE P_biog3_c_a07 = chem_index_table( PARAM_biog3_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_biog3_c_a07 ) = .TRUE. chem_dname_table( idomain, P_biog3_c_a07 ) = 'biog3_c_a07' chem_desc_table( idomain, P_biog3_c_a07 ) = 'biog3_c, aerosol bin 01' chem_units_table( idomain, P_biog3_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog3_c_a07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog3_c_a07 )%stream(2) = 2097216 ! 00200040 F_biog3_c_a07 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a07 , idomain ) = P_biog1_o_a07 ELSE P_biog1_o_a07 = chem_index_table( PARAM_biog1_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a07 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a07 ) = 'biog1_o_a07' chem_desc_table( idomain, P_biog1_o_a07 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_o_a07 )%stream(2) = 2097216 ! 00200040 F_biog1_o_a07 = .TRUE. IF ( chem_index_table( PARAM_biog2_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_biog2_o_a07 , idomain ) = P_biog2_o_a07 ELSE P_biog2_o_a07 = chem_index_table( PARAM_biog2_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_biog2_o_a07 ) = .TRUE. chem_dname_table( idomain, P_biog2_o_a07 ) = 'biog2_o_a07' chem_desc_table( idomain, P_biog2_o_a07 ) = 'biog2_o, aerosol bin 01' chem_units_table( idomain, P_biog2_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_o_a07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog2_o_a07 )%stream(2) = 2097216 ! 00200040 F_biog2_o_a07 = .TRUE. IF ( chem_index_table( PARAM_ant3_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_ant3_c_a07 , idomain ) = P_ant3_c_a07 ELSE P_ant3_c_a07 = chem_index_table( PARAM_ant3_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_ant3_c_a07 ) = .TRUE. chem_dname_table( idomain, P_ant3_c_a07 ) = 'ant3_c_a07' chem_desc_table( idomain, P_ant3_c_a07 ) = 'ant3_c, aerosol bin 01' chem_units_table( idomain, P_ant3_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant3_c_a07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant3_c_a07 )%stream(2) = 2097216 ! 00200040 F_ant3_c_a07 = .TRUE. IF ( chem_index_table( PARAM_ant4_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_ant4_c_a07 , idomain ) = P_ant4_c_a07 ELSE P_ant4_c_a07 = chem_index_table( PARAM_ant4_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_ant4_c_a07 ) = .TRUE. chem_dname_table( idomain, P_ant4_c_a07 ) = 'ant4_c_a07' chem_desc_table( idomain, P_ant4_c_a07 ) = 'ant4_c, aerosol bin 01' chem_units_table( idomain, P_ant4_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant4_c_a07 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant4_c_a07 )%stream(2) = 2097216 ! 00200040 F_ant4_c_a07 = .TRUE. IF ( chem_index_table( PARAM_num_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a07 = chem_num_table(idomain) chem_index_table( PARAM_num_a07 , idomain ) = P_num_a07 ELSE P_num_a07 = chem_index_table( PARAM_num_a07 , idomain ) END IF chem_boundary_table( idomain, P_num_a07 ) = .TRUE. chem_dname_table( idomain, P_num_a07 ) = 'num_a07' chem_desc_table( idomain, P_num_a07 ) = 'Number, aerosol bin 07' chem_units_table( idomain, P_num_a07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a07 )%stream(2) = 2097216 ! 00200040 F_num_a07 = .TRUE. IF ( chem_index_table( PARAM_so4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a08 = chem_num_table(idomain) chem_index_table( PARAM_so4_a08 , idomain ) = P_so4_a08 ELSE P_so4_a08 = chem_index_table( PARAM_so4_a08 , idomain ) END IF chem_boundary_table( idomain, P_so4_a08 ) = .TRUE. chem_dname_table( idomain, P_so4_a08 ) = 'so4_a08' chem_desc_table( idomain, P_so4_a08 ) = 'Sulfate, aerosol bin 08' chem_units_table( idomain, P_so4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a08 )%stream(2) = 2097216 ! 00200040 F_so4_a08 = .TRUE. IF ( chem_index_table( PARAM_no3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a08 = chem_num_table(idomain) chem_index_table( PARAM_no3_a08 , idomain ) = P_no3_a08 ELSE P_no3_a08 = chem_index_table( PARAM_no3_a08 , idomain ) END IF chem_boundary_table( idomain, P_no3_a08 ) = .TRUE. chem_dname_table( idomain, P_no3_a08 ) = 'no3_a08' chem_desc_table( idomain, P_no3_a08 ) = 'Nitrate, aerosol bin 08' chem_units_table( idomain, P_no3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a08 )%stream(2) = 2097216 ! 00200040 F_no3_a08 = .TRUE. IF ( chem_index_table( PARAM_cl_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a08 = chem_num_table(idomain) chem_index_table( PARAM_cl_a08 , idomain ) = P_cl_a08 ELSE P_cl_a08 = chem_index_table( PARAM_cl_a08 , idomain ) END IF chem_boundary_table( idomain, P_cl_a08 ) = .TRUE. chem_dname_table( idomain, P_cl_a08 ) = 'cl_a08' chem_desc_table( idomain, P_cl_a08 ) = 'Chloride, aerosol bin 08' chem_units_table( idomain, P_cl_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a08 )%stream(2) = 2097216 ! 00200040 F_cl_a08 = .TRUE. IF ( chem_index_table( PARAM_nh4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a08 , idomain ) = P_nh4_a08 ELSE P_nh4_a08 = chem_index_table( PARAM_nh4_a08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a08 ) = .TRUE. chem_dname_table( idomain, P_nh4_a08 ) = 'nh4_a08' chem_desc_table( idomain, P_nh4_a08 ) = 'Ammonium, aerosol bin 08' chem_units_table( idomain, P_nh4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a08 )%stream(2) = 2097216 ! 00200040 F_nh4_a08 = .TRUE. IF ( chem_index_table( PARAM_na_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a08 = chem_num_table(idomain) chem_index_table( PARAM_na_a08 , idomain ) = P_na_a08 ELSE P_na_a08 = chem_index_table( PARAM_na_a08 , idomain ) END IF chem_boundary_table( idomain, P_na_a08 ) = .TRUE. chem_dname_table( idomain, P_na_a08 ) = 'na_a08' chem_desc_table( idomain, P_na_a08 ) = 'Sodium, aerosol bin 08' chem_units_table( idomain, P_na_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a08 )%stream(2) = 2097216 ! 00200040 F_na_a08 = .TRUE. IF ( chem_index_table( PARAM_oin_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a08 = chem_num_table(idomain) chem_index_table( PARAM_oin_a08 , idomain ) = P_oin_a08 ELSE P_oin_a08 = chem_index_table( PARAM_oin_a08 , idomain ) END IF chem_boundary_table( idomain, P_oin_a08 ) = .TRUE. chem_dname_table( idomain, P_oin_a08 ) = 'oin_a08' chem_desc_table( idomain, P_oin_a08 ) = 'Other inorganics, aerosol bin 08' chem_units_table( idomain, P_oin_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a08 )%stream(2) = 2097216 ! 00200040 F_oin_a08 = .TRUE. IF ( chem_index_table( PARAM_oc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a08 = chem_num_table(idomain) chem_index_table( PARAM_oc_a08 , idomain ) = P_oc_a08 ELSE P_oc_a08 = chem_index_table( PARAM_oc_a08 , idomain ) END IF chem_boundary_table( idomain, P_oc_a08 ) = .TRUE. chem_dname_table( idomain, P_oc_a08 ) = 'oc_a08' chem_desc_table( idomain, P_oc_a08 ) = 'Organic carbon, aerosol bin 08' chem_units_table( idomain, P_oc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a08 )%stream(2) = 2097216 ! 00200040 F_oc_a08 = .TRUE. IF ( chem_index_table( PARAM_bc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a08 = chem_num_table(idomain) chem_index_table( PARAM_bc_a08 , idomain ) = P_bc_a08 ELSE P_bc_a08 = chem_index_table( PARAM_bc_a08 , idomain ) END IF chem_boundary_table( idomain, P_bc_a08 ) = .TRUE. chem_dname_table( idomain, P_bc_a08 ) = 'bc_a08' chem_desc_table( idomain, P_bc_a08 ) = 'Black carbon, aerosol bin 08' chem_units_table( idomain, P_bc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a08 )%stream(2) = 2097216 ! 00200040 F_bc_a08 = .TRUE. IF ( chem_index_table( PARAM_hysw_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a08 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a08 , idomain ) = P_hysw_a08 ELSE P_hysw_a08 = chem_index_table( PARAM_hysw_a08 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a08 ) = .TRUE. chem_dname_table( idomain, P_hysw_a08 ) = 'hysw_a08' chem_desc_table( idomain, P_hysw_a08 ) = 'Hysteresis water, aerosol bin 08' chem_units_table( idomain, P_hysw_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a08 )%stream(2) = 2097216 ! 00200040 F_hysw_a08 = .TRUE. IF ( chem_index_table( PARAM_water_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a08 = chem_num_table(idomain) chem_index_table( PARAM_water_a08 , idomain ) = P_water_a08 ELSE P_water_a08 = chem_index_table( PARAM_water_a08 , idomain ) END IF chem_boundary_table( idomain, P_water_a08 ) = .TRUE. chem_dname_table( idomain, P_water_a08 ) = 'water_a08' chem_desc_table( idomain, P_water_a08 ) = 'Water, aerosol bin 08' chem_units_table( idomain, P_water_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a08 )%stream(2) = 2097216 ! 00200040 F_water_a08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a08 , idomain ) = P_pcg1_b_c_a08 ELSE P_pcg1_b_c_a08 = chem_index_table( PARAM_pcg1_b_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a08 ) = 'pcg1_b_c_a08' chem_desc_table( idomain, P_pcg1_b_c_a08 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_c_a08 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_c_a08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a08 , idomain ) = P_pcg1_b_o_a08 ELSE P_pcg1_b_o_a08 = chem_index_table( PARAM_pcg1_b_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a08 ) = 'pcg1_b_o_a08' chem_desc_table( idomain, P_pcg1_b_o_a08 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_b_o_a08 )%stream(2) = 2097216 ! 00200040 F_pcg1_b_o_a08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a08 , idomain ) = P_opcg1_b_c_a08 ELSE P_opcg1_b_c_a08 = chem_index_table( PARAM_opcg1_b_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a08 ) = 'opcg1_b_c_a08' chem_desc_table( idomain, P_opcg1_b_c_a08 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_c_a08 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_c_a08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a08 , idomain ) = P_opcg1_b_o_a08 ELSE P_opcg1_b_o_a08 = chem_index_table( PARAM_opcg1_b_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a08 ) = 'opcg1_b_o_a08' chem_desc_table( idomain, P_opcg1_b_o_a08 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_b_o_a08 )%stream(2) = 2097216 ! 00200040 F_opcg1_b_o_a08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a08 , idomain ) = P_pcg1_f_c_a08 ELSE P_pcg1_f_c_a08 = chem_index_table( PARAM_pcg1_f_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a08 ) = 'pcg1_f_c_a08' chem_desc_table( idomain, P_pcg1_f_c_a08 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_c_a08 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_c_a08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a08 , idomain ) = P_pcg1_f_o_a08 ELSE P_pcg1_f_o_a08 = chem_index_table( PARAM_pcg1_f_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a08 ) = 'pcg1_f_o_a08' chem_desc_table( idomain, P_pcg1_f_o_a08 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pcg1_f_o_a08 )%stream(2) = 2097216 ! 00200040 F_pcg1_f_o_a08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a08 , idomain ) = P_opcg1_f_c_a08 ELSE P_opcg1_f_c_a08 = chem_index_table( PARAM_opcg1_f_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a08 ) = 'opcg1_f_c_a08' chem_desc_table( idomain, P_opcg1_f_c_a08 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_c_a08 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_c_a08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a08 , idomain ) = P_opcg1_f_o_a08 ELSE P_opcg1_f_o_a08 = chem_index_table( PARAM_opcg1_f_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a08 ) = 'opcg1_f_o_a08' chem_desc_table( idomain, P_opcg1_f_o_a08 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_opcg1_f_o_a08 )%stream(2) = 2097216 ! 00200040 F_opcg1_f_o_a08 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a08 , idomain ) = P_ant1_c_a08 ELSE P_ant1_c_a08 = chem_index_table( PARAM_ant1_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a08 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a08 ) = 'ant1_c_a08' chem_desc_table( idomain, P_ant1_c_a08 ) = 'ant1_c, aerosol bin 05' chem_units_table( idomain, P_ant1_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant1_c_a08 )%stream(2) = 2097216 ! 00200040 F_ant1_c_a08 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a08 , idomain ) = P_biog1_c_a08 ELSE P_biog1_c_a08 = chem_index_table( PARAM_biog1_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a08 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a08 ) = 'biog1_c_a08' chem_desc_table( idomain, P_biog1_c_a08 ) = 'biog1_c, aerosol bin 05' chem_units_table( idomain, P_biog1_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_c_a08 )%stream(2) = 2097216 ! 00200040 F_biog1_c_a08 = .TRUE. IF ( chem_index_table( PARAM_ant2_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_ant2_c_a08 , idomain ) = P_ant2_c_a08 ELSE P_ant2_c_a08 = chem_index_table( PARAM_ant2_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_ant2_c_a08 ) = .TRUE. chem_dname_table( idomain, P_ant2_c_a08 ) = 'ant2_c_a08' chem_desc_table( idomain, P_ant2_c_a08 ) = 'ant2_c, aerosol bin 01' chem_units_table( idomain, P_ant2_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant2_c_a08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant2_c_a08 )%stream(2) = 2097216 ! 00200040 F_ant2_c_a08 = .TRUE. IF ( chem_index_table( PARAM_biog2_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_biog2_c_a08 , idomain ) = P_biog2_c_a08 ELSE P_biog2_c_a08 = chem_index_table( PARAM_biog2_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_biog2_c_a08 ) = .TRUE. chem_dname_table( idomain, P_biog2_c_a08 ) = 'biog2_c_a08' chem_desc_table( idomain, P_biog2_c_a08 ) = 'biog2_c, aerosol bin 01' chem_units_table( idomain, P_biog2_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_c_a08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog2_c_a08 )%stream(2) = 2097216 ! 00200040 F_biog2_c_a08 = .TRUE. IF ( chem_index_table( PARAM_biog3_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_biog3_c_a08 , idomain ) = P_biog3_c_a08 ELSE P_biog3_c_a08 = chem_index_table( PARAM_biog3_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_biog3_c_a08 ) = .TRUE. chem_dname_table( idomain, P_biog3_c_a08 ) = 'biog3_c_a08' chem_desc_table( idomain, P_biog3_c_a08 ) = 'biog3_c, aerosol bin 01' chem_units_table( idomain, P_biog3_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog3_c_a08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog3_c_a08 )%stream(2) = 2097216 ! 00200040 F_biog3_c_a08 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a08 , idomain ) = P_biog1_o_a08 ELSE P_biog1_o_a08 = chem_index_table( PARAM_biog1_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a08 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a08 ) = 'biog1_o_a08' chem_desc_table( idomain, P_biog1_o_a08 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog1_o_a08 )%stream(2) = 2097216 ! 00200040 F_biog1_o_a08 = .TRUE. IF ( chem_index_table( PARAM_biog2_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_biog2_o_a08 , idomain ) = P_biog2_o_a08 ELSE P_biog2_o_a08 = chem_index_table( PARAM_biog2_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_biog2_o_a08 ) = .TRUE. chem_dname_table( idomain, P_biog2_o_a08 ) = 'biog2_o_a08' chem_desc_table( idomain, P_biog2_o_a08 ) = 'biog2_o, aerosol bin 01' chem_units_table( idomain, P_biog2_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_o_a08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_biog2_o_a08 )%stream(2) = 2097216 ! 00200040 F_biog2_o_a08 = .TRUE. IF ( chem_index_table( PARAM_ant3_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_ant3_c_a08 , idomain ) = P_ant3_c_a08 ELSE P_ant3_c_a08 = chem_index_table( PARAM_ant3_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_ant3_c_a08 ) = .TRUE. chem_dname_table( idomain, P_ant3_c_a08 ) = 'ant3_c_a08' chem_desc_table( idomain, P_ant3_c_a08 ) = 'ant3_c, aerosol bin 01' chem_units_table( idomain, P_ant3_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant3_c_a08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant3_c_a08 )%stream(2) = 2097216 ! 00200040 F_ant3_c_a08 = .TRUE. IF ( chem_index_table( PARAM_ant4_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_ant4_c_a08 , idomain ) = P_ant4_c_a08 ELSE P_ant4_c_a08 = chem_index_table( PARAM_ant4_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_ant4_c_a08 ) = .TRUE. chem_dname_table( idomain, P_ant4_c_a08 ) = 'ant4_c_a08' chem_desc_table( idomain, P_ant4_c_a08 ) = 'ant4_c, aerosol bin 01' chem_units_table( idomain, P_ant4_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant4_c_a08 )%stream(1) = 33554432 ! 02000000 chem_streams_table( idomain, P_ant4_c_a08 )%stream(2) = 2097216 ! 00200040 F_ant4_c_a08 = .TRUE. IF ( chem_index_table( PARAM_num_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a08 = chem_num_table(idomain) chem_index_table( PARAM_num_a08 , idomain ) = P_num_a08 ELSE P_num_a08 = chem_index_table( PARAM_num_a08 , idomain ) END IF chem_boundary_table( idomain, P_num_a08 ) = .TRUE. chem_dname_table( idomain, P_num_a08 ) = 'num_a08' chem_desc_table( idomain, P_num_a08 ) = 'Number, aerosol bin 08' chem_units_table( idomain, P_num_a08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a08 )%stream(2) = 2097216 ! 00200040 F_num_a08 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==200)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_isopr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopr = chem_num_table(idomain) chem_index_table( PARAM_isopr , idomain ) = P_isopr ELSE P_isopr = chem_index_table( PARAM_isopr , idomain ) END IF chem_boundary_table( idomain, P_isopr ) = .TRUE. chem_dname_table( idomain, P_isopr ) = 'isopr' chem_desc_table( idomain, P_isopr ) = 'isoprene' chem_units_table( idomain, P_isopr ) = '' chem_streams_table( idomain, P_isopr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopr )%stream(2) = 2097216 ! 00200040 F_isopr = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 ! 00200040 F_mvk = .TRUE. IF ( chem_index_table( PARAM_iso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso2 = chem_num_table(idomain) chem_index_table( PARAM_iso2 , idomain ) = P_iso2 ELSE P_iso2 = chem_index_table( PARAM_iso2 , idomain ) END IF chem_boundary_table( idomain, P_iso2 ) = .TRUE. chem_dname_table( idomain, P_iso2 ) = 'iso2' chem_desc_table( idomain, P_iso2 ) = '' chem_units_table( idomain, P_iso2 ) = '' chem_streams_table( idomain, P_iso2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso2 )%stream(2) = 2097216 ! 00200040 F_iso2 = .TRUE. IF ( chem_index_table( PARAM_isooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isooh = chem_num_table(idomain) chem_index_table( PARAM_isooh , idomain ) = P_isooh ELSE P_isooh = chem_index_table( PARAM_isooh , idomain ) END IF chem_boundary_table( idomain, P_isooh ) = .TRUE. chem_dname_table( idomain, P_isooh ) = 'isooh' chem_desc_table( idomain, P_isooh ) = '' chem_units_table( idomain, P_isooh ) = '' chem_streams_table( idomain, P_isooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isooh )%stream(2) = 2097216 ! 00200040 F_isooh = .TRUE. IF ( chem_index_table( PARAM_mvko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvko2 = chem_num_table(idomain) chem_index_table( PARAM_mvko2 , idomain ) = P_mvko2 ELSE P_mvko2 = chem_index_table( PARAM_mvko2 , idomain ) END IF chem_boundary_table( idomain, P_mvko2 ) = .TRUE. chem_dname_table( idomain, P_mvko2 ) = 'mvko2' chem_desc_table( idomain, P_mvko2 ) = '' chem_units_table( idomain, P_mvko2 ) = '' chem_streams_table( idomain, P_mvko2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvko2 )%stream(2) = 2097216 ! 00200040 F_mvko2 = .TRUE. IF ( chem_index_table( PARAM_mvkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvkooh = chem_num_table(idomain) chem_index_table( PARAM_mvkooh , idomain ) = P_mvkooh ELSE P_mvkooh = chem_index_table( PARAM_mvkooh , idomain ) END IF chem_boundary_table( idomain, P_mvkooh ) = .TRUE. chem_dname_table( idomain, P_mvkooh ) = 'mvkooh' chem_desc_table( idomain, P_mvkooh ) = '' chem_units_table( idomain, P_mvkooh ) = '' chem_streams_table( idomain, P_mvkooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mvkooh )%stream(2) = 2097216 ! 00200040 F_mvkooh = .TRUE. IF ( chem_index_table( PARAM_ison , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ison = chem_num_table(idomain) chem_index_table( PARAM_ison , idomain ) = P_ison ELSE P_ison = chem_index_table( PARAM_ison , idomain ) END IF chem_boundary_table( idomain, P_ison ) = .TRUE. chem_dname_table( idomain, P_ison ) = 'ison' chem_desc_table( idomain, P_ison ) = 'ISON concentration' chem_units_table( idomain, P_ison ) = 'ppm' chem_streams_table( idomain, P_ison )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ison )%stream(2) = 2097216 ! 00200040 F_ison = .TRUE. IF ( chem_index_table( PARAM_aca , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aca = chem_num_table(idomain) chem_index_table( PARAM_aca , idomain ) = P_aca ELSE P_aca = chem_index_table( PARAM_aca , idomain ) END IF chem_boundary_table( idomain, P_aca ) = .TRUE. chem_dname_table( idomain, P_aca ) = 'aca' chem_desc_table( idomain, P_aca ) = '' chem_units_table( idomain, P_aca ) = '' chem_streams_table( idomain, P_aca )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aca )%stream(2) = 2097216 ! 00200040 F_aca = .TRUE. IF ( chem_index_table( PARAM_acol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acol = chem_num_table(idomain) chem_index_table( PARAM_acol , idomain ) = P_acol ELSE P_acol = chem_index_table( PARAM_acol , idomain ) END IF chem_boundary_table( idomain, P_acol ) = .TRUE. chem_dname_table( idomain, P_acol ) = 'acol' chem_desc_table( idomain, P_acol ) = '' chem_units_table( idomain, P_acol ) = '' chem_streams_table( idomain, P_acol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acol )%stream(2) = 2097216 ! 00200040 F_acol = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 ! 00200040 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 ! 00200040 F_mpan = .TRUE. IF ( chem_index_table( PARAM_naca , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naca = chem_num_table(idomain) chem_index_table( PARAM_naca , idomain ) = P_naca ELSE P_naca = chem_index_table( PARAM_naca , idomain ) END IF chem_boundary_table( idomain, P_naca ) = .TRUE. chem_dname_table( idomain, P_naca ) = 'naca' chem_desc_table( idomain, P_naca ) = '' chem_units_table( idomain, P_naca ) = '' chem_streams_table( idomain, P_naca )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_naca )%stream(2) = 2097216 ! 00200040 F_naca = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_pa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pa = chem_num_table(idomain) chem_index_table( PARAM_pa , idomain ) = P_pa ELSE P_pa = chem_index_table( PARAM_pa , idomain ) END IF chem_boundary_table( idomain, P_pa ) = .TRUE. chem_dname_table( idomain, P_pa ) = 'pa' chem_desc_table( idomain, P_pa ) = '' chem_units_table( idomain, P_pa ) = '' chem_streams_table( idomain, P_pa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pa )%stream(2) = 2097216 ! 00200040 F_pa = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_mglo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mglo = chem_num_table(idomain) chem_index_table( PARAM_mglo , idomain ) = P_mglo ELSE P_mglo = chem_index_table( PARAM_mglo , idomain ) END IF chem_boundary_table( idomain, P_mglo ) = .TRUE. chem_dname_table( idomain, P_mglo ) = 'mglo' chem_desc_table( idomain, P_mglo ) = '' chem_units_table( idomain, P_mglo ) = '' chem_streams_table( idomain, P_mglo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mglo )%stream(2) = 2097216 ! 00200040 F_mglo = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 ! 00200040 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_etooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etooh = chem_num_table(idomain) chem_index_table( PARAM_etooh , idomain ) = P_etooh ELSE P_etooh = chem_index_table( PARAM_etooh , idomain ) END IF chem_boundary_table( idomain, P_etooh ) = .TRUE. chem_dname_table( idomain, P_etooh ) = 'etooh' chem_desc_table( idomain, P_etooh ) = '' chem_units_table( idomain, P_etooh ) = '' chem_streams_table( idomain, P_etooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_etooh )%stream(2) = 2097216 ! 00200040 F_etooh = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 ! 00200040 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_prooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prooh = chem_num_table(idomain) chem_index_table( PARAM_prooh , idomain ) = P_prooh ELSE P_prooh = chem_index_table( PARAM_prooh , idomain ) END IF chem_boundary_table( idomain, P_prooh ) = .TRUE. chem_dname_table( idomain, P_prooh ) = 'prooh' chem_desc_table( idomain, P_prooh ) = '' chem_units_table( idomain, P_prooh ) = '' chem_streams_table( idomain, P_prooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_prooh )%stream(2) = 2097216 ! 00200040 F_prooh = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 ! 00200040 F_acet = .TRUE. IF ( chem_index_table( PARAM_acooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acooh = chem_num_table(idomain) chem_index_table( PARAM_acooh , idomain ) = P_acooh ELSE P_acooh = chem_index_table( PARAM_acooh , idomain ) END IF chem_boundary_table( idomain, P_acooh ) = .TRUE. chem_dname_table( idomain, P_acooh ) = 'acooh' chem_desc_table( idomain, P_acooh ) = '' chem_units_table( idomain, P_acooh ) = '' chem_streams_table( idomain, P_acooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acooh )%stream(2) = 2097216 ! 00200040 F_acooh = .TRUE. IF ( chem_index_table( PARAM_eto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eto2 = chem_num_table(idomain) chem_index_table( PARAM_eto2 , idomain ) = P_eto2 ELSE P_eto2 = chem_index_table( PARAM_eto2 , idomain ) END IF chem_boundary_table( idomain, P_eto2 ) = .TRUE. chem_dname_table( idomain, P_eto2 ) = 'eto2' chem_desc_table( idomain, P_eto2 ) = '' chem_units_table( idomain, P_eto2 ) = '' chem_streams_table( idomain, P_eto2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eto2 )%stream(2) = 2097216 ! 00200040 F_eto2 = .TRUE. IF ( chem_index_table( PARAM_pro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pro2 = chem_num_table(idomain) chem_index_table( PARAM_pro2 , idomain ) = P_pro2 ELSE P_pro2 = chem_index_table( PARAM_pro2 , idomain ) END IF chem_boundary_table( idomain, P_pro2 ) = .TRUE. chem_dname_table( idomain, P_pro2 ) = 'pro2' chem_desc_table( idomain, P_pro2 ) = '' chem_units_table( idomain, P_pro2 ) = '' chem_streams_table( idomain, P_pro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pro2 )%stream(2) = 2097216 ! 00200040 F_pro2 = .TRUE. IF ( chem_index_table( PARAM_aco2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco2 = chem_num_table(idomain) chem_index_table( PARAM_aco2 , idomain ) = P_aco2 ELSE P_aco2 = chem_index_table( PARAM_aco2 , idomain ) END IF chem_boundary_table( idomain, P_aco2 ) = .TRUE. chem_dname_table( idomain, P_aco2 ) = 'aco2' chem_desc_table( idomain, P_aco2 ) = '' chem_units_table( idomain, P_aco2 ) = '' chem_streams_table( idomain, P_aco2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco2 )%stream(2) = 2097216 ! 00200040 F_aco2 = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 ! 00200040 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_c3h6ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6ooh = chem_num_table(idomain) chem_index_table( PARAM_c3h6ooh , idomain ) = P_c3h6ooh ELSE P_c3h6ooh = chem_index_table( PARAM_c3h6ooh , idomain ) END IF chem_boundary_table( idomain, P_c3h6ooh ) = .TRUE. chem_dname_table( idomain, P_c3h6ooh ) = 'c3h6ooh' chem_desc_table( idomain, P_c3h6ooh ) = '' chem_units_table( idomain, P_c3h6ooh ) = '' chem_streams_table( idomain, P_c3h6ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6ooh )%stream(2) = 2097216 ! 00200040 F_c3h6ooh = .TRUE. IF ( chem_index_table( PARAM_c2h4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h4 = chem_num_table(idomain) chem_index_table( PARAM_c2h4 , idomain ) = P_c2h4 ELSE P_c2h4 = chem_index_table( PARAM_c2h4 , idomain ) END IF chem_boundary_table( idomain, P_c2h4 ) = .TRUE. chem_dname_table( idomain, P_c2h4 ) = 'c2h4' chem_desc_table( idomain, P_c2h4 ) = '' chem_units_table( idomain, P_c2h4 ) = '' chem_streams_table( idomain, P_c2h4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h4 )%stream(2) = 2097216 ! 00200040 F_c2h4 = .TRUE. IF ( chem_index_table( PARAM_c4h10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c4h10 = chem_num_table(idomain) chem_index_table( PARAM_c4h10 , idomain ) = P_c4h10 ELSE P_c4h10 = chem_index_table( PARAM_c4h10 , idomain ) END IF chem_boundary_table( idomain, P_c4h10 ) = .TRUE. chem_dname_table( idomain, P_c4h10 ) = 'c4h10' chem_desc_table( idomain, P_c4h10 ) = '' chem_units_table( idomain, P_c4h10 ) = '' chem_streams_table( idomain, P_c4h10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c4h10 )%stream(2) = 2097216 ! 00200040 F_c4h10 = .TRUE. IF ( chem_index_table( PARAM_buooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_buooh = chem_num_table(idomain) chem_index_table( PARAM_buooh , idomain ) = P_buooh ELSE P_buooh = chem_index_table( PARAM_buooh , idomain ) END IF chem_boundary_table( idomain, P_buooh ) = .TRUE. chem_dname_table( idomain, P_buooh ) = 'c4h9ooh' chem_desc_table( idomain, P_buooh ) = '' chem_units_table( idomain, P_buooh ) = '' chem_streams_table( idomain, P_buooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_buooh )%stream(2) = 2097216 ! 00200040 F_buooh = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 ! 00200040 F_mek = .TRUE. IF ( chem_index_table( PARAM_mekooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mekooh = chem_num_table(idomain) chem_index_table( PARAM_mekooh , idomain ) = P_mekooh ELSE P_mekooh = chem_index_table( PARAM_mekooh , idomain ) END IF chem_boundary_table( idomain, P_mekooh ) = .TRUE. chem_dname_table( idomain, P_mekooh ) = 'mekooh' chem_desc_table( idomain, P_mekooh ) = '' chem_units_table( idomain, P_mekooh ) = '' chem_streams_table( idomain, P_mekooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mekooh )%stream(2) = 2097216 ! 00200040 F_mekooh = .TRUE. IF ( chem_index_table( PARAM_mecoco , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mecoco = chem_num_table(idomain) chem_index_table( PARAM_mecoco , idomain ) = P_mecoco ELSE P_mecoco = chem_index_table( PARAM_mecoco , idomain ) END IF chem_boundary_table( idomain, P_mecoco ) = .TRUE. chem_dname_table( idomain, P_mecoco ) = 'mecoco' chem_desc_table( idomain, P_mecoco ) = '' chem_units_table( idomain, P_mecoco ) = '' chem_streams_table( idomain, P_mecoco )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mecoco )%stream(2) = 2097216 ! 00200040 F_mecoco = .TRUE. IF ( chem_index_table( PARAM_c3h6o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6o2 = chem_num_table(idomain) chem_index_table( PARAM_c3h6o2 , idomain ) = P_c3h6o2 ELSE P_c3h6o2 = chem_index_table( PARAM_c3h6o2 , idomain ) END IF chem_boundary_table( idomain, P_c3h6o2 ) = .TRUE. chem_dname_table( idomain, P_c3h6o2 ) = 'c3h6o2' chem_desc_table( idomain, P_c3h6o2 ) = '' chem_units_table( idomain, P_c3h6o2 ) = '' chem_streams_table( idomain, P_c3h6o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6o2 )%stream(2) = 2097216 ! 00200040 F_c3h6o2 = .TRUE. IF ( chem_index_table( PARAM_c4h9o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c4h9o2 = chem_num_table(idomain) chem_index_table( PARAM_c4h9o2 , idomain ) = P_c4h9o2 ELSE P_c4h9o2 = chem_index_table( PARAM_c4h9o2 , idomain ) END IF chem_boundary_table( idomain, P_c4h9o2 ) = .TRUE. chem_dname_table( idomain, P_c4h9o2 ) = 'c4h9o2' chem_desc_table( idomain, P_c4h9o2 ) = '' chem_units_table( idomain, P_c4h9o2 ) = '' chem_streams_table( idomain, P_c4h9o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c4h9o2 )%stream(2) = 2097216 ! 00200040 F_c4h9o2 = .TRUE. IF ( chem_index_table( PARAM_meko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meko2 = chem_num_table(idomain) chem_index_table( PARAM_meko2 , idomain ) = P_meko2 ELSE P_meko2 = chem_index_table( PARAM_meko2 , idomain ) END IF chem_boundary_table( idomain, P_meko2 ) = .TRUE. chem_dname_table( idomain, P_meko2 ) = 'meko2' chem_desc_table( idomain, P_meko2 ) = '' chem_units_table( idomain, P_meko2 ) = '' chem_streams_table( idomain, P_meko2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_meko2 )%stream(2) = 2097216 ! 00200040 F_meko2 = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_prono2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prono2 = chem_num_table(idomain) chem_index_table( PARAM_prono2 , idomain ) = P_prono2 ELSE P_prono2 = chem_index_table( PARAM_prono2 , idomain ) END IF chem_boundary_table( idomain, P_prono2 ) = .TRUE. chem_dname_table( idomain, P_prono2 ) = 'prono2' chem_desc_table( idomain, P_prono2 ) = '' chem_units_table( idomain, P_prono2 ) = '' chem_streams_table( idomain, P_prono2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_prono2 )%stream(2) = 2097216 ! 00200040 F_prono2 = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_acetol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetol = chem_num_table(idomain) chem_index_table( PARAM_acetol , idomain ) = P_acetol ELSE P_acetol = chem_index_table( PARAM_acetol , idomain ) END IF chem_boundary_table( idomain, P_acetol ) = .TRUE. chem_dname_table( idomain, P_acetol ) = 'acetol' chem_desc_table( idomain, P_acetol ) = '' chem_units_table( idomain, P_acetol ) = '' chem_streams_table( idomain, P_acetol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acetol )%stream(2) = 2097216 ! 00200040 F_acetol = .TRUE. IF ( chem_index_table( PARAM_acetp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetp = chem_num_table(idomain) chem_index_table( PARAM_acetp , idomain ) = P_acetp ELSE P_acetp = chem_index_table( PARAM_acetp , idomain ) END IF chem_boundary_table( idomain, P_acetp ) = .TRUE. chem_dname_table( idomain, P_acetp ) = 'acetp' chem_desc_table( idomain, P_acetp ) = '' chem_units_table( idomain, P_acetp ) = '' chem_streams_table( idomain, P_acetp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_acetp )%stream(2) = 2097216 ! 00200040 F_acetp = .TRUE. IF ( chem_index_table( PARAM_aceto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aceto2 = chem_num_table(idomain) chem_index_table( PARAM_aceto2 , idomain ) = P_aceto2 ELSE P_aceto2 = chem_index_table( PARAM_aceto2 , idomain ) END IF chem_boundary_table( idomain, P_aceto2 ) = .TRUE. chem_dname_table( idomain, P_aceto2 ) = 'aceto2' chem_desc_table( idomain, P_aceto2 ) = '' chem_units_table( idomain, P_aceto2 ) = '' chem_streams_table( idomain, P_aceto2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aceto2 )%stream(2) = 2097216 ! 00200040 F_aceto2 = .TRUE. IF ( chem_index_table( PARAM_ch3cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cooh = chem_num_table(idomain) chem_index_table( PARAM_ch3cooh , idomain ) = P_ch3cooh ELSE P_ch3cooh = chem_index_table( PARAM_ch3cooh , idomain ) END IF chem_boundary_table( idomain, P_ch3cooh ) = .TRUE. chem_dname_table( idomain, P_ch3cooh ) = 'ch3cooh' chem_desc_table( idomain, P_ch3cooh ) = '' chem_units_table( idomain, P_ch3cooh ) = '' chem_streams_table( idomain, P_ch3cooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3cooh )%stream(2) = 2097216 ! 00200040 F_ch3cooh = .TRUE. IF ( chem_index_table( PARAM_c4h9ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c4h9ooh = chem_num_table(idomain) chem_index_table( PARAM_c4h9ooh , idomain ) = P_c4h9ooh ELSE P_c4h9ooh = chem_index_table( PARAM_c4h9ooh , idomain ) END IF chem_boundary_table( idomain, P_c4h9ooh ) = .TRUE. chem_dname_table( idomain, P_c4h9ooh ) = 'c4h9ooh' chem_desc_table( idomain, P_c4h9ooh ) = '' chem_units_table( idomain, P_c4h9ooh ) = '' chem_streams_table( idomain, P_c4h9ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c4h9ooh )%stream(2) = 2097216 ! 00200040 F_c4h9ooh = .TRUE. IF ( chem_index_table( PARAM_meoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meoh = chem_num_table(idomain) chem_index_table( PARAM_meoh , idomain ) = P_meoh ELSE P_meoh = chem_index_table( PARAM_meoh , idomain ) END IF chem_boundary_table( idomain, P_meoh ) = .TRUE. chem_dname_table( idomain, P_meoh ) = 'meoh' chem_desc_table( idomain, P_meoh ) = '' chem_units_table( idomain, P_meoh ) = '' chem_streams_table( idomain, P_meoh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_meoh )%stream(2) = 2097216 ! 00200040 F_meoh = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_meo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meo2 = chem_num_table(idomain) chem_index_table( PARAM_meo2 , idomain ) = P_meo2 ELSE P_meo2 = chem_index_table( PARAM_meo2 , idomain ) END IF chem_boundary_table( idomain, P_meo2 ) = .TRUE. chem_dname_table( idomain, P_meo2 ) = 'meo2' chem_desc_table( idomain, P_meo2 ) = '' chem_units_table( idomain, P_meo2 ) = '' chem_streams_table( idomain, P_meo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_meo2 )%stream(2) = 2097216 ! 00200040 F_meo2 = .TRUE. IF ( chem_index_table( PARAM_meo2no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meo2no2 = chem_num_table(idomain) chem_index_table( PARAM_meo2no2 , idomain ) = P_meo2no2 ELSE P_meo2no2 = chem_index_table( PARAM_meo2no2 , idomain ) END IF chem_boundary_table( idomain, P_meo2no2 ) = .TRUE. chem_dname_table( idomain, P_meo2no2 ) = 'meo2no2' chem_desc_table( idomain, P_meo2no2 ) = '' chem_units_table( idomain, P_meo2no2 ) = '' chem_streams_table( idomain, P_meo2no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_meo2no2 )%stream(2) = 2097216 ! 00200040 F_meo2no2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==300)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 ! 00200040 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 ! 00200040 F_msa = .TRUE. IF ( chem_index_table( PARAM_p25 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25 = chem_num_table(idomain) chem_index_table( PARAM_p25 , idomain ) = P_p25 ELSE P_p25 = chem_index_table( PARAM_p25 , idomain ) END IF chem_boundary_table( idomain, P_p25 ) = .TRUE. chem_dname_table( idomain, P_p25 ) = 'P25' chem_desc_table( idomain, P_p25 ) = 'other gocart primary pm25' chem_units_table( idomain, P_p25 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25 )%stream(2) = 2097216 ! 00200040 F_p25 = .TRUE. IF ( chem_index_table( PARAM_bc1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc1 = chem_num_table(idomain) chem_index_table( PARAM_bc1 , idomain ) = P_bc1 ELSE P_bc1 = chem_index_table( PARAM_bc1 , idomain ) END IF chem_boundary_table( idomain, P_bc1 ) = .TRUE. chem_dname_table( idomain, P_bc1 ) = 'BC1' chem_desc_table( idomain, P_bc1 ) = 'Hydrophobic Black Carbon' chem_units_table( idomain, P_bc1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc1 )%stream(2) = 2097216 ! 00200040 F_bc1 = .TRUE. IF ( chem_index_table( PARAM_bc2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc2 = chem_num_table(idomain) chem_index_table( PARAM_bc2 , idomain ) = P_bc2 ELSE P_bc2 = chem_index_table( PARAM_bc2 , idomain ) END IF chem_boundary_table( idomain, P_bc2 ) = .TRUE. chem_dname_table( idomain, P_bc2 ) = 'BC2' chem_desc_table( idomain, P_bc2 ) = 'Hydrophilic Black Carbon' chem_units_table( idomain, P_bc2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc2 )%stream(2) = 2097216 ! 00200040 F_bc2 = .TRUE. IF ( chem_index_table( PARAM_oc1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc1 = chem_num_table(idomain) chem_index_table( PARAM_oc1 , idomain ) = P_oc1 ELSE P_oc1 = chem_index_table( PARAM_oc1 , idomain ) END IF chem_boundary_table( idomain, P_oc1 ) = .TRUE. chem_dname_table( idomain, P_oc1 ) = 'OC1' chem_desc_table( idomain, P_oc1 ) = 'Hydrophobic Black Carbon' chem_units_table( idomain, P_oc1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc1 )%stream(2) = 2097216 ! 00200040 F_oc1 = .TRUE. IF ( chem_index_table( PARAM_oc2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc2 = chem_num_table(idomain) chem_index_table( PARAM_oc2 , idomain ) = P_oc2 ELSE P_oc2 = chem_index_table( PARAM_oc2 , idomain ) END IF chem_boundary_table( idomain, P_oc2 ) = .TRUE. chem_dname_table( idomain, P_oc2 ) = 'OC2' chem_desc_table( idomain, P_oc2 ) = 'Hydrophilic Black Carbon' chem_units_table( idomain, P_oc2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc2 )%stream(2) = 2097216 ! 00200040 F_oc2 = .TRUE. IF ( chem_index_table( PARAM_dust_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_1 = chem_num_table(idomain) chem_index_table( PARAM_dust_1 , idomain ) = P_dust_1 ELSE P_dust_1 = chem_index_table( PARAM_dust_1 , idomain ) END IF chem_boundary_table( idomain, P_dust_1 ) = .TRUE. chem_dname_table( idomain, P_dust_1 ) = 'DUST_1' chem_desc_table( idomain, P_dust_1 ) = 'dust size bin 1: 0.5um effective radius' chem_units_table( idomain, P_dust_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_1 )%stream(2) = 2097216 ! 00200040 F_dust_1 = .TRUE. IF ( chem_index_table( PARAM_dust_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_2 = chem_num_table(idomain) chem_index_table( PARAM_dust_2 , idomain ) = P_dust_2 ELSE P_dust_2 = chem_index_table( PARAM_dust_2 , idomain ) END IF chem_boundary_table( idomain, P_dust_2 ) = .TRUE. chem_dname_table( idomain, P_dust_2 ) = 'DUST_2' chem_desc_table( idomain, P_dust_2 ) = 'dust size bin 2: 1.4um effective radius' chem_units_table( idomain, P_dust_2 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_2 )%stream(2) = 2097216 ! 00200040 F_dust_2 = .TRUE. IF ( chem_index_table( PARAM_dust_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_3 = chem_num_table(idomain) chem_index_table( PARAM_dust_3 , idomain ) = P_dust_3 ELSE P_dust_3 = chem_index_table( PARAM_dust_3 , idomain ) END IF chem_boundary_table( idomain, P_dust_3 ) = .TRUE. chem_dname_table( idomain, P_dust_3 ) = 'DUST_3' chem_desc_table( idomain, P_dust_3 ) = 'dust size bin 3: 2.4um effective radius' chem_units_table( idomain, P_dust_3 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_3 )%stream(2) = 2097216 ! 00200040 F_dust_3 = .TRUE. IF ( chem_index_table( PARAM_dust_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_4 = chem_num_table(idomain) chem_index_table( PARAM_dust_4 , idomain ) = P_dust_4 ELSE P_dust_4 = chem_index_table( PARAM_dust_4 , idomain ) END IF chem_boundary_table( idomain, P_dust_4 ) = .TRUE. chem_dname_table( idomain, P_dust_4 ) = 'DUST_4' chem_desc_table( idomain, P_dust_4 ) = 'dust size bin 4: 4.5um effective radius' chem_units_table( idomain, P_dust_4 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_4 )%stream(2) = 2097216 ! 00200040 F_dust_4 = .TRUE. IF ( chem_index_table( PARAM_dust_5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_5 = chem_num_table(idomain) chem_index_table( PARAM_dust_5 , idomain ) = P_dust_5 ELSE P_dust_5 = chem_index_table( PARAM_dust_5 , idomain ) END IF chem_boundary_table( idomain, P_dust_5 ) = .TRUE. chem_dname_table( idomain, P_dust_5 ) = 'DUST_5' chem_desc_table( idomain, P_dust_5 ) = 'dust size bin 5: 8.0um effective radius' chem_units_table( idomain, P_dust_5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_5 )%stream(2) = 2097216 ! 00200040 F_dust_5 = .TRUE. IF ( chem_index_table( PARAM_seas_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_1 = chem_num_table(idomain) chem_index_table( PARAM_seas_1 , idomain ) = P_seas_1 ELSE P_seas_1 = chem_index_table( PARAM_seas_1 , idomain ) END IF chem_boundary_table( idomain, P_seas_1 ) = .TRUE. chem_dname_table( idomain, P_seas_1 ) = 'SEAS_1' chem_desc_table( idomain, P_seas_1 ) = 'sea-salt size bin 1: 0.3um effective radius' chem_units_table( idomain, P_seas_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas_1 )%stream(2) = 2097216 ! 00200040 F_seas_1 = .TRUE. IF ( chem_index_table( PARAM_seas_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_2 = chem_num_table(idomain) chem_index_table( PARAM_seas_2 , idomain ) = P_seas_2 ELSE P_seas_2 = chem_index_table( PARAM_seas_2 , idomain ) END IF chem_boundary_table( idomain, P_seas_2 ) = .TRUE. chem_dname_table( idomain, P_seas_2 ) = 'SEAS_2' chem_desc_table( idomain, P_seas_2 ) = 'sea-salt size bin 2: 1.0um effective radius' chem_units_table( idomain, P_seas_2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas_2 )%stream(2) = 2097216 ! 00200040 F_seas_2 = .TRUE. IF ( chem_index_table( PARAM_seas_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_3 = chem_num_table(idomain) chem_index_table( PARAM_seas_3 , idomain ) = P_seas_3 ELSE P_seas_3 = chem_index_table( PARAM_seas_3 , idomain ) END IF chem_boundary_table( idomain, P_seas_3 ) = .TRUE. chem_dname_table( idomain, P_seas_3 ) = 'SEAS_3' chem_desc_table( idomain, P_seas_3 ) = 'sea-salt size bin 3: 3.2um effective radius' chem_units_table( idomain, P_seas_3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas_3 )%stream(2) = 2097216 ! 00200040 F_seas_3 = .TRUE. IF ( chem_index_table( PARAM_seas_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_4 = chem_num_table(idomain) chem_index_table( PARAM_seas_4 , idomain ) = P_seas_4 ELSE P_seas_4 = chem_index_table( PARAM_seas_4 , idomain ) END IF chem_boundary_table( idomain, P_seas_4 ) = .TRUE. chem_dname_table( idomain, P_seas_4 ) = 'SEAS_4' chem_desc_table( idomain, P_seas_4 ) = 'sea-salt size bin 4: 7.5um effective radius' chem_units_table( idomain, P_seas_4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas_4 )%stream(2) = 2097216 ! 00200040 F_seas_4 = .TRUE. IF ( chem_index_table( PARAM_p10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p10 = chem_num_table(idomain) chem_index_table( PARAM_p10 , idomain ) = P_p10 ELSE P_p10 = chem_index_table( PARAM_p10 , idomain ) END IF chem_boundary_table( idomain, P_p10 ) = .TRUE. chem_dname_table( idomain, P_p10 ) = 'P10' chem_desc_table( idomain, P_p10 ) = 'other gocart primary pm10' chem_units_table( idomain, P_p10 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p10 )%stream(2) = 2097216 ! 00200040 F_p10 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==301)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 ! 00200040 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 ! 00200040 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 ! 00200040 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 ! 00200040 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_api )%stream(2) = 2097216 ! 00200040 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 ! 00200040 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 ! 00200040 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 ! 00200040 F_macr = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 ! 00200040 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 ! 00200040 F_msa = .TRUE. IF ( chem_index_table( PARAM_p25 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25 = chem_num_table(idomain) chem_index_table( PARAM_p25 , idomain ) = P_p25 ELSE P_p25 = chem_index_table( PARAM_p25 , idomain ) END IF chem_boundary_table( idomain, P_p25 ) = .TRUE. chem_dname_table( idomain, P_p25 ) = 'P25' chem_desc_table( idomain, P_p25 ) = 'other gocart primary pm25' chem_units_table( idomain, P_p25 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25 )%stream(2) = 2097216 ! 00200040 F_p25 = .TRUE. IF ( chem_index_table( PARAM_bc1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc1 = chem_num_table(idomain) chem_index_table( PARAM_bc1 , idomain ) = P_bc1 ELSE P_bc1 = chem_index_table( PARAM_bc1 , idomain ) END IF chem_boundary_table( idomain, P_bc1 ) = .TRUE. chem_dname_table( idomain, P_bc1 ) = 'BC1' chem_desc_table( idomain, P_bc1 ) = 'Hydrophobic Black Carbon' chem_units_table( idomain, P_bc1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc1 )%stream(2) = 2097216 ! 00200040 F_bc1 = .TRUE. IF ( chem_index_table( PARAM_bc2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc2 = chem_num_table(idomain) chem_index_table( PARAM_bc2 , idomain ) = P_bc2 ELSE P_bc2 = chem_index_table( PARAM_bc2 , idomain ) END IF chem_boundary_table( idomain, P_bc2 ) = .TRUE. chem_dname_table( idomain, P_bc2 ) = 'BC2' chem_desc_table( idomain, P_bc2 ) = 'Hydrophilic Black Carbon' chem_units_table( idomain, P_bc2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc2 )%stream(2) = 2097216 ! 00200040 F_bc2 = .TRUE. IF ( chem_index_table( PARAM_oc1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc1 = chem_num_table(idomain) chem_index_table( PARAM_oc1 , idomain ) = P_oc1 ELSE P_oc1 = chem_index_table( PARAM_oc1 , idomain ) END IF chem_boundary_table( idomain, P_oc1 ) = .TRUE. chem_dname_table( idomain, P_oc1 ) = 'OC1' chem_desc_table( idomain, P_oc1 ) = 'Hydrophobic Black Carbon' chem_units_table( idomain, P_oc1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc1 )%stream(2) = 2097216 ! 00200040 F_oc1 = .TRUE. IF ( chem_index_table( PARAM_oc2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc2 = chem_num_table(idomain) chem_index_table( PARAM_oc2 , idomain ) = P_oc2 ELSE P_oc2 = chem_index_table( PARAM_oc2 , idomain ) END IF chem_boundary_table( idomain, P_oc2 ) = .TRUE. chem_dname_table( idomain, P_oc2 ) = 'OC2' chem_desc_table( idomain, P_oc2 ) = 'Hydrophilic Black Carbon' chem_units_table( idomain, P_oc2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc2 )%stream(2) = 2097216 ! 00200040 F_oc2 = .TRUE. IF ( chem_index_table( PARAM_dust_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_1 = chem_num_table(idomain) chem_index_table( PARAM_dust_1 , idomain ) = P_dust_1 ELSE P_dust_1 = chem_index_table( PARAM_dust_1 , idomain ) END IF chem_boundary_table( idomain, P_dust_1 ) = .TRUE. chem_dname_table( idomain, P_dust_1 ) = 'DUST_1' chem_desc_table( idomain, P_dust_1 ) = 'dust size bin 1: 0.5um effective radius' chem_units_table( idomain, P_dust_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_1 )%stream(2) = 2097216 ! 00200040 F_dust_1 = .TRUE. IF ( chem_index_table( PARAM_dust_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_2 = chem_num_table(idomain) chem_index_table( PARAM_dust_2 , idomain ) = P_dust_2 ELSE P_dust_2 = chem_index_table( PARAM_dust_2 , idomain ) END IF chem_boundary_table( idomain, P_dust_2 ) = .TRUE. chem_dname_table( idomain, P_dust_2 ) = 'DUST_2' chem_desc_table( idomain, P_dust_2 ) = 'dust size bin 2: 1.4um effective radius' chem_units_table( idomain, P_dust_2 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_2 )%stream(2) = 2097216 ! 00200040 F_dust_2 = .TRUE. IF ( chem_index_table( PARAM_dust_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_3 = chem_num_table(idomain) chem_index_table( PARAM_dust_3 , idomain ) = P_dust_3 ELSE P_dust_3 = chem_index_table( PARAM_dust_3 , idomain ) END IF chem_boundary_table( idomain, P_dust_3 ) = .TRUE. chem_dname_table( idomain, P_dust_3 ) = 'DUST_3' chem_desc_table( idomain, P_dust_3 ) = 'dust size bin 3: 2.4um effective radius' chem_units_table( idomain, P_dust_3 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_3 )%stream(2) = 2097216 ! 00200040 F_dust_3 = .TRUE. IF ( chem_index_table( PARAM_dust_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_4 = chem_num_table(idomain) chem_index_table( PARAM_dust_4 , idomain ) = P_dust_4 ELSE P_dust_4 = chem_index_table( PARAM_dust_4 , idomain ) END IF chem_boundary_table( idomain, P_dust_4 ) = .TRUE. chem_dname_table( idomain, P_dust_4 ) = 'DUST_4' chem_desc_table( idomain, P_dust_4 ) = 'dust size bin 4: 4.5um effective radius' chem_units_table( idomain, P_dust_4 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_4 )%stream(2) = 2097216 ! 00200040 F_dust_4 = .TRUE. IF ( chem_index_table( PARAM_dust_5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_5 = chem_num_table(idomain) chem_index_table( PARAM_dust_5 , idomain ) = P_dust_5 ELSE P_dust_5 = chem_index_table( PARAM_dust_5 , idomain ) END IF chem_boundary_table( idomain, P_dust_5 ) = .TRUE. chem_dname_table( idomain, P_dust_5 ) = 'DUST_5' chem_desc_table( idomain, P_dust_5 ) = 'dust size bin 5: 8.0um effective radius' chem_units_table( idomain, P_dust_5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_5 )%stream(2) = 2097216 ! 00200040 F_dust_5 = .TRUE. IF ( chem_index_table( PARAM_seas_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_1 = chem_num_table(idomain) chem_index_table( PARAM_seas_1 , idomain ) = P_seas_1 ELSE P_seas_1 = chem_index_table( PARAM_seas_1 , idomain ) END IF chem_boundary_table( idomain, P_seas_1 ) = .TRUE. chem_dname_table( idomain, P_seas_1 ) = 'SEAS_1' chem_desc_table( idomain, P_seas_1 ) = 'sea-salt size bin 1: 0.3um effective radius' chem_units_table( idomain, P_seas_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas_1 )%stream(2) = 2097216 ! 00200040 F_seas_1 = .TRUE. IF ( chem_index_table( PARAM_seas_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_2 = chem_num_table(idomain) chem_index_table( PARAM_seas_2 , idomain ) = P_seas_2 ELSE P_seas_2 = chem_index_table( PARAM_seas_2 , idomain ) END IF chem_boundary_table( idomain, P_seas_2 ) = .TRUE. chem_dname_table( idomain, P_seas_2 ) = 'SEAS_2' chem_desc_table( idomain, P_seas_2 ) = 'sea-salt size bin 2: 1.0um effective radius' chem_units_table( idomain, P_seas_2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas_2 )%stream(2) = 2097216 ! 00200040 F_seas_2 = .TRUE. IF ( chem_index_table( PARAM_seas_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_3 = chem_num_table(idomain) chem_index_table( PARAM_seas_3 , idomain ) = P_seas_3 ELSE P_seas_3 = chem_index_table( PARAM_seas_3 , idomain ) END IF chem_boundary_table( idomain, P_seas_3 ) = .TRUE. chem_dname_table( idomain, P_seas_3 ) = 'SEAS_3' chem_desc_table( idomain, P_seas_3 ) = 'sea-salt size bin 3: 3.2um effective radius' chem_units_table( idomain, P_seas_3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas_3 )%stream(2) = 2097216 ! 00200040 F_seas_3 = .TRUE. IF ( chem_index_table( PARAM_seas_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_4 = chem_num_table(idomain) chem_index_table( PARAM_seas_4 , idomain ) = P_seas_4 ELSE P_seas_4 = chem_index_table( PARAM_seas_4 , idomain ) END IF chem_boundary_table( idomain, P_seas_4 ) = .TRUE. chem_dname_table( idomain, P_seas_4 ) = 'SEAS_4' chem_desc_table( idomain, P_seas_4 ) = 'sea-salt size bin 4: 7.5um effective radius' chem_units_table( idomain, P_seas_4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas_4 )%stream(2) = 2097216 ! 00200040 F_seas_4 = .TRUE. IF ( chem_index_table( PARAM_p10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p10 = chem_num_table(idomain) chem_index_table( PARAM_p10 , idomain ) = P_p10 ELSE P_p10 = chem_index_table( PARAM_p10 , idomain ) END IF chem_boundary_table( idomain, P_p10 ) = .TRUE. chem_dname_table( idomain, P_p10 ) = 'P10' chem_desc_table( idomain, P_p10 ) = 'other gocart primary pm10' chem_units_table( idomain, P_p10 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p10 )%stream(2) = 2097216 ! 00200040 F_p10 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==303)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 ! 00200040 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 ! 00200040 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 ! 00200040 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 ! 00200040 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 ! 00200040 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 ! 00200040 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 ! 00200040 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 ! 00200040 F_msa = .TRUE. IF ( chem_index_table( PARAM_p25 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25 = chem_num_table(idomain) chem_index_table( PARAM_p25 , idomain ) = P_p25 ELSE P_p25 = chem_index_table( PARAM_p25 , idomain ) END IF chem_boundary_table( idomain, P_p25 ) = .TRUE. chem_dname_table( idomain, P_p25 ) = 'P25' chem_desc_table( idomain, P_p25 ) = 'other gocart primary pm25' chem_units_table( idomain, P_p25 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p25 )%stream(2) = 2097216 ! 00200040 F_p25 = .TRUE. IF ( chem_index_table( PARAM_bc1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc1 = chem_num_table(idomain) chem_index_table( PARAM_bc1 , idomain ) = P_bc1 ELSE P_bc1 = chem_index_table( PARAM_bc1 , idomain ) END IF chem_boundary_table( idomain, P_bc1 ) = .TRUE. chem_dname_table( idomain, P_bc1 ) = 'BC1' chem_desc_table( idomain, P_bc1 ) = 'Hydrophobic Black Carbon' chem_units_table( idomain, P_bc1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc1 )%stream(2) = 2097216 ! 00200040 F_bc1 = .TRUE. IF ( chem_index_table( PARAM_bc2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc2 = chem_num_table(idomain) chem_index_table( PARAM_bc2 , idomain ) = P_bc2 ELSE P_bc2 = chem_index_table( PARAM_bc2 , idomain ) END IF chem_boundary_table( idomain, P_bc2 ) = .TRUE. chem_dname_table( idomain, P_bc2 ) = 'BC2' chem_desc_table( idomain, P_bc2 ) = 'Hydrophilic Black Carbon' chem_units_table( idomain, P_bc2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc2 )%stream(2) = 2097216 ! 00200040 F_bc2 = .TRUE. IF ( chem_index_table( PARAM_oc1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc1 = chem_num_table(idomain) chem_index_table( PARAM_oc1 , idomain ) = P_oc1 ELSE P_oc1 = chem_index_table( PARAM_oc1 , idomain ) END IF chem_boundary_table( idomain, P_oc1 ) = .TRUE. chem_dname_table( idomain, P_oc1 ) = 'OC1' chem_desc_table( idomain, P_oc1 ) = 'Hydrophobic Black Carbon' chem_units_table( idomain, P_oc1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc1 )%stream(2) = 2097216 ! 00200040 F_oc1 = .TRUE. IF ( chem_index_table( PARAM_oc2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc2 = chem_num_table(idomain) chem_index_table( PARAM_oc2 , idomain ) = P_oc2 ELSE P_oc2 = chem_index_table( PARAM_oc2 , idomain ) END IF chem_boundary_table( idomain, P_oc2 ) = .TRUE. chem_dname_table( idomain, P_oc2 ) = 'OC2' chem_desc_table( idomain, P_oc2 ) = 'Hydrophilic Black Carbon' chem_units_table( idomain, P_oc2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc2 )%stream(2) = 2097216 ! 00200040 F_oc2 = .TRUE. IF ( chem_index_table( PARAM_dust_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_1 = chem_num_table(idomain) chem_index_table( PARAM_dust_1 , idomain ) = P_dust_1 ELSE P_dust_1 = chem_index_table( PARAM_dust_1 , idomain ) END IF chem_boundary_table( idomain, P_dust_1 ) = .TRUE. chem_dname_table( idomain, P_dust_1 ) = 'DUST_1' chem_desc_table( idomain, P_dust_1 ) = 'dust size bin 1: 0.5um effective radius' chem_units_table( idomain, P_dust_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_1 )%stream(2) = 2097216 ! 00200040 F_dust_1 = .TRUE. IF ( chem_index_table( PARAM_dust_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_2 = chem_num_table(idomain) chem_index_table( PARAM_dust_2 , idomain ) = P_dust_2 ELSE P_dust_2 = chem_index_table( PARAM_dust_2 , idomain ) END IF chem_boundary_table( idomain, P_dust_2 ) = .TRUE. chem_dname_table( idomain, P_dust_2 ) = 'DUST_2' chem_desc_table( idomain, P_dust_2 ) = 'dust size bin 2: 1.4um effective radius' chem_units_table( idomain, P_dust_2 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_2 )%stream(2) = 2097216 ! 00200040 F_dust_2 = .TRUE. IF ( chem_index_table( PARAM_dust_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_3 = chem_num_table(idomain) chem_index_table( PARAM_dust_3 , idomain ) = P_dust_3 ELSE P_dust_3 = chem_index_table( PARAM_dust_3 , idomain ) END IF chem_boundary_table( idomain, P_dust_3 ) = .TRUE. chem_dname_table( idomain, P_dust_3 ) = 'DUST_3' chem_desc_table( idomain, P_dust_3 ) = 'dust size bin 3: 2.4um effective radius' chem_units_table( idomain, P_dust_3 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_3 )%stream(2) = 2097216 ! 00200040 F_dust_3 = .TRUE. IF ( chem_index_table( PARAM_dust_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_4 = chem_num_table(idomain) chem_index_table( PARAM_dust_4 , idomain ) = P_dust_4 ELSE P_dust_4 = chem_index_table( PARAM_dust_4 , idomain ) END IF chem_boundary_table( idomain, P_dust_4 ) = .TRUE. chem_dname_table( idomain, P_dust_4 ) = 'DUST_4' chem_desc_table( idomain, P_dust_4 ) = 'dust size bin 4: 4.5um effective radius' chem_units_table( idomain, P_dust_4 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_4 )%stream(2) = 2097216 ! 00200040 F_dust_4 = .TRUE. IF ( chem_index_table( PARAM_dust_5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_5 = chem_num_table(idomain) chem_index_table( PARAM_dust_5 , idomain ) = P_dust_5 ELSE P_dust_5 = chem_index_table( PARAM_dust_5 , idomain ) END IF chem_boundary_table( idomain, P_dust_5 ) = .TRUE. chem_dname_table( idomain, P_dust_5 ) = 'DUST_5' chem_desc_table( idomain, P_dust_5 ) = 'dust size bin 5: 8.0um effective radius' chem_units_table( idomain, P_dust_5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_5 )%stream(2) = 2097216 ! 00200040 F_dust_5 = .TRUE. IF ( chem_index_table( PARAM_seas_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_1 = chem_num_table(idomain) chem_index_table( PARAM_seas_1 , idomain ) = P_seas_1 ELSE P_seas_1 = chem_index_table( PARAM_seas_1 , idomain ) END IF chem_boundary_table( idomain, P_seas_1 ) = .TRUE. chem_dname_table( idomain, P_seas_1 ) = 'SEAS_1' chem_desc_table( idomain, P_seas_1 ) = 'sea-salt size bin 1: 0.3um effective radius' chem_units_table( idomain, P_seas_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas_1 )%stream(2) = 2097216 ! 00200040 F_seas_1 = .TRUE. IF ( chem_index_table( PARAM_seas_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_2 = chem_num_table(idomain) chem_index_table( PARAM_seas_2 , idomain ) = P_seas_2 ELSE P_seas_2 = chem_index_table( PARAM_seas_2 , idomain ) END IF chem_boundary_table( idomain, P_seas_2 ) = .TRUE. chem_dname_table( idomain, P_seas_2 ) = 'SEAS_2' chem_desc_table( idomain, P_seas_2 ) = 'sea-salt size bin 2: 1.0um effective radius' chem_units_table( idomain, P_seas_2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas_2 )%stream(2) = 2097216 ! 00200040 F_seas_2 = .TRUE. IF ( chem_index_table( PARAM_seas_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_3 = chem_num_table(idomain) chem_index_table( PARAM_seas_3 , idomain ) = P_seas_3 ELSE P_seas_3 = chem_index_table( PARAM_seas_3 , idomain ) END IF chem_boundary_table( idomain, P_seas_3 ) = .TRUE. chem_dname_table( idomain, P_seas_3 ) = 'SEAS_3' chem_desc_table( idomain, P_seas_3 ) = 'sea-salt size bin 3: 3.2um effective radius' chem_units_table( idomain, P_seas_3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas_3 )%stream(2) = 2097216 ! 00200040 F_seas_3 = .TRUE. IF ( chem_index_table( PARAM_seas_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_4 = chem_num_table(idomain) chem_index_table( PARAM_seas_4 , idomain ) = P_seas_4 ELSE P_seas_4 = chem_index_table( PARAM_seas_4 , idomain ) END IF chem_boundary_table( idomain, P_seas_4 ) = .TRUE. chem_dname_table( idomain, P_seas_4 ) = 'SEAS_4' chem_desc_table( idomain, P_seas_4 ) = 'sea-salt size bin 4: 7.5um effective radius' chem_units_table( idomain, P_seas_4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_seas_4 )%stream(2) = 2097216 ! 00200040 F_seas_4 = .TRUE. IF ( chem_index_table( PARAM_p10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p10 = chem_num_table(idomain) chem_index_table( PARAM_p10 , idomain ) = P_p10 ELSE P_p10 = chem_index_table( PARAM_p10 , idomain ) END IF chem_boundary_table( idomain, P_p10 ) = .TRUE. chem_dname_table( idomain, P_p10 ) = 'P10' chem_desc_table( idomain, P_p10 ) = 'other gocart primary pm10' chem_units_table( idomain, P_p10 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_p10 )%stream(2) = 2097216 ! 00200040 F_p10 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==400)THEN IF ( chem_index_table( PARAM_vash_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_1 = chem_num_table(idomain) chem_index_table( PARAM_vash_1 , idomain ) = P_vash_1 ELSE P_vash_1 = chem_index_table( PARAM_vash_1 , idomain ) END IF chem_boundary_table( idomain, P_vash_1 ) = .TRUE. chem_dname_table( idomain, P_vash_1 ) = 'vash_1' chem_desc_table( idomain, P_vash_1 ) = 'vash1 mixing ratio' chem_units_table( idomain, P_vash_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_1 )%stream(2) = 2097216 ! 00200040 F_vash_1 = .TRUE. IF ( chem_index_table( PARAM_vash_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_2 = chem_num_table(idomain) chem_index_table( PARAM_vash_2 , idomain ) = P_vash_2 ELSE P_vash_2 = chem_index_table( PARAM_vash_2 , idomain ) END IF chem_boundary_table( idomain, P_vash_2 ) = .TRUE. chem_dname_table( idomain, P_vash_2 ) = 'vash_2' chem_desc_table( idomain, P_vash_2 ) = 'vash2 mixing ratio' chem_units_table( idomain, P_vash_2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_2 )%stream(2) = 2097216 ! 00200040 F_vash_2 = .TRUE. IF ( chem_index_table( PARAM_vash_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_3 = chem_num_table(idomain) chem_index_table( PARAM_vash_3 , idomain ) = P_vash_3 ELSE P_vash_3 = chem_index_table( PARAM_vash_3 , idomain ) END IF chem_boundary_table( idomain, P_vash_3 ) = .TRUE. chem_dname_table( idomain, P_vash_3 ) = 'vash_3' chem_desc_table( idomain, P_vash_3 ) = 'vash3 mixing ratio' chem_units_table( idomain, P_vash_3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_3 )%stream(2) = 2097216 ! 00200040 F_vash_3 = .TRUE. IF ( chem_index_table( PARAM_vash_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_4 = chem_num_table(idomain) chem_index_table( PARAM_vash_4 , idomain ) = P_vash_4 ELSE P_vash_4 = chem_index_table( PARAM_vash_4 , idomain ) END IF chem_boundary_table( idomain, P_vash_4 ) = .TRUE. chem_dname_table( idomain, P_vash_4 ) = 'vash_4' chem_desc_table( idomain, P_vash_4 ) = 'vash4 mixing ratio' chem_units_table( idomain, P_vash_4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_4 )%stream(2) = 2097216 ! 00200040 F_vash_4 = .TRUE. IF ( chem_index_table( PARAM_vash_5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_5 = chem_num_table(idomain) chem_index_table( PARAM_vash_5 , idomain ) = P_vash_5 ELSE P_vash_5 = chem_index_table( PARAM_vash_5 , idomain ) END IF chem_boundary_table( idomain, P_vash_5 ) = .TRUE. chem_dname_table( idomain, P_vash_5 ) = 'vash_5' chem_desc_table( idomain, P_vash_5 ) = 'vash5 mixing ratio' chem_units_table( idomain, P_vash_5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_5 )%stream(2) = 2097216 ! 00200040 F_vash_5 = .TRUE. IF ( chem_index_table( PARAM_vash_6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_6 = chem_num_table(idomain) chem_index_table( PARAM_vash_6 , idomain ) = P_vash_6 ELSE P_vash_6 = chem_index_table( PARAM_vash_6 , idomain ) END IF chem_boundary_table( idomain, P_vash_6 ) = .TRUE. chem_dname_table( idomain, P_vash_6 ) = 'vash_6' chem_desc_table( idomain, P_vash_6 ) = 'vash6 mixing ratio' chem_units_table( idomain, P_vash_6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_6 )%stream(2) = 2097216 ! 00200040 F_vash_6 = .TRUE. IF ( chem_index_table( PARAM_vash_7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_7 = chem_num_table(idomain) chem_index_table( PARAM_vash_7 , idomain ) = P_vash_7 ELSE P_vash_7 = chem_index_table( PARAM_vash_7 , idomain ) END IF chem_boundary_table( idomain, P_vash_7 ) = .TRUE. chem_dname_table( idomain, P_vash_7 ) = 'vash_7' chem_desc_table( idomain, P_vash_7 ) = 'vash7 mixing ratio' chem_units_table( idomain, P_vash_7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_7 )%stream(2) = 2097216 ! 00200040 F_vash_7 = .TRUE. IF ( chem_index_table( PARAM_vash_8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_8 = chem_num_table(idomain) chem_index_table( PARAM_vash_8 , idomain ) = P_vash_8 ELSE P_vash_8 = chem_index_table( PARAM_vash_8 , idomain ) END IF chem_boundary_table( idomain, P_vash_8 ) = .TRUE. chem_dname_table( idomain, P_vash_8 ) = 'vash_8' chem_desc_table( idomain, P_vash_8 ) = 'vash8 mixing ratio' chem_units_table( idomain, P_vash_8 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_8 )%stream(2) = 2097216 ! 00200040 F_vash_8 = .TRUE. IF ( chem_index_table( PARAM_vash_9 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_9 = chem_num_table(idomain) chem_index_table( PARAM_vash_9 , idomain ) = P_vash_9 ELSE P_vash_9 = chem_index_table( PARAM_vash_9 , idomain ) END IF chem_boundary_table( idomain, P_vash_9 ) = .TRUE. chem_dname_table( idomain, P_vash_9 ) = 'vash_9' chem_desc_table( idomain, P_vash_9 ) = 'vash9 mixing ratio' chem_units_table( idomain, P_vash_9 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_9 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_9 )%stream(2) = 2097216 ! 00200040 F_vash_9 = .TRUE. IF ( chem_index_table( PARAM_vash_10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_10 = chem_num_table(idomain) chem_index_table( PARAM_vash_10 , idomain ) = P_vash_10 ELSE P_vash_10 = chem_index_table( PARAM_vash_10 , idomain ) END IF chem_boundary_table( idomain, P_vash_10 ) = .TRUE. chem_dname_table( idomain, P_vash_10 ) = 'vash_10' chem_desc_table( idomain, P_vash_10 ) = 'vash10 mixing ratio' chem_units_table( idomain, P_vash_10 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_10 )%stream(2) = 2097216 ! 00200040 F_vash_10 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==401)THEN IF ( chem_index_table( PARAM_dust_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_1 = chem_num_table(idomain) chem_index_table( PARAM_dust_1 , idomain ) = P_dust_1 ELSE P_dust_1 = chem_index_table( PARAM_dust_1 , idomain ) END IF chem_boundary_table( idomain, P_dust_1 ) = .TRUE. chem_dname_table( idomain, P_dust_1 ) = 'DUST_1' chem_desc_table( idomain, P_dust_1 ) = 'dust size bin 1: 0.5um effective radius' chem_units_table( idomain, P_dust_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_1 )%stream(2) = 2097216 ! 00200040 F_dust_1 = .TRUE. IF ( chem_index_table( PARAM_dust_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_2 = chem_num_table(idomain) chem_index_table( PARAM_dust_2 , idomain ) = P_dust_2 ELSE P_dust_2 = chem_index_table( PARAM_dust_2 , idomain ) END IF chem_boundary_table( idomain, P_dust_2 ) = .TRUE. chem_dname_table( idomain, P_dust_2 ) = 'DUST_2' chem_desc_table( idomain, P_dust_2 ) = 'dust size bin 2: 1.4um effective radius' chem_units_table( idomain, P_dust_2 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_2 )%stream(2) = 2097216 ! 00200040 F_dust_2 = .TRUE. IF ( chem_index_table( PARAM_dust_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_3 = chem_num_table(idomain) chem_index_table( PARAM_dust_3 , idomain ) = P_dust_3 ELSE P_dust_3 = chem_index_table( PARAM_dust_3 , idomain ) END IF chem_boundary_table( idomain, P_dust_3 ) = .TRUE. chem_dname_table( idomain, P_dust_3 ) = 'DUST_3' chem_desc_table( idomain, P_dust_3 ) = 'dust size bin 3: 2.4um effective radius' chem_units_table( idomain, P_dust_3 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_3 )%stream(2) = 2097216 ! 00200040 F_dust_3 = .TRUE. IF ( chem_index_table( PARAM_dust_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_4 = chem_num_table(idomain) chem_index_table( PARAM_dust_4 , idomain ) = P_dust_4 ELSE P_dust_4 = chem_index_table( PARAM_dust_4 , idomain ) END IF chem_boundary_table( idomain, P_dust_4 ) = .TRUE. chem_dname_table( idomain, P_dust_4 ) = 'DUST_4' chem_desc_table( idomain, P_dust_4 ) = 'dust size bin 4: 4.5um effective radius' chem_units_table( idomain, P_dust_4 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_4 )%stream(2) = 2097216 ! 00200040 F_dust_4 = .TRUE. IF ( chem_index_table( PARAM_dust_5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_5 = chem_num_table(idomain) chem_index_table( PARAM_dust_5 , idomain ) = P_dust_5 ELSE P_dust_5 = chem_index_table( PARAM_dust_5 , idomain ) END IF chem_boundary_table( idomain, P_dust_5 ) = .TRUE. chem_dname_table( idomain, P_dust_5 ) = 'DUST_5' chem_desc_table( idomain, P_dust_5 ) = 'dust size bin 5: 8.0um effective radius' chem_units_table( idomain, P_dust_5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dust_5 )%stream(2) = 2097216 ! 00200040 F_dust_5 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==402)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_vash_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_1 = chem_num_table(idomain) chem_index_table( PARAM_vash_1 , idomain ) = P_vash_1 ELSE P_vash_1 = chem_index_table( PARAM_vash_1 , idomain ) END IF chem_boundary_table( idomain, P_vash_1 ) = .TRUE. chem_dname_table( idomain, P_vash_1 ) = 'vash_1' chem_desc_table( idomain, P_vash_1 ) = 'vash1 mixing ratio' chem_units_table( idomain, P_vash_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_1 )%stream(2) = 2097216 ! 00200040 F_vash_1 = .TRUE. IF ( chem_index_table( PARAM_vash_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_2 = chem_num_table(idomain) chem_index_table( PARAM_vash_2 , idomain ) = P_vash_2 ELSE P_vash_2 = chem_index_table( PARAM_vash_2 , idomain ) END IF chem_boundary_table( idomain, P_vash_2 ) = .TRUE. chem_dname_table( idomain, P_vash_2 ) = 'vash_2' chem_desc_table( idomain, P_vash_2 ) = 'vash2 mixing ratio' chem_units_table( idomain, P_vash_2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_2 )%stream(2) = 2097216 ! 00200040 F_vash_2 = .TRUE. IF ( chem_index_table( PARAM_vash_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_3 = chem_num_table(idomain) chem_index_table( PARAM_vash_3 , idomain ) = P_vash_3 ELSE P_vash_3 = chem_index_table( PARAM_vash_3 , idomain ) END IF chem_boundary_table( idomain, P_vash_3 ) = .TRUE. chem_dname_table( idomain, P_vash_3 ) = 'vash_3' chem_desc_table( idomain, P_vash_3 ) = 'vash3 mixing ratio' chem_units_table( idomain, P_vash_3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_3 )%stream(2) = 2097216 ! 00200040 F_vash_3 = .TRUE. IF ( chem_index_table( PARAM_vash_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_4 = chem_num_table(idomain) chem_index_table( PARAM_vash_4 , idomain ) = P_vash_4 ELSE P_vash_4 = chem_index_table( PARAM_vash_4 , idomain ) END IF chem_boundary_table( idomain, P_vash_4 ) = .TRUE. chem_dname_table( idomain, P_vash_4 ) = 'vash_4' chem_desc_table( idomain, P_vash_4 ) = 'vash4 mixing ratio' chem_units_table( idomain, P_vash_4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_4 )%stream(2) = 2097216 ! 00200040 F_vash_4 = .TRUE. IF ( chem_index_table( PARAM_vash_5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_5 = chem_num_table(idomain) chem_index_table( PARAM_vash_5 , idomain ) = P_vash_5 ELSE P_vash_5 = chem_index_table( PARAM_vash_5 , idomain ) END IF chem_boundary_table( idomain, P_vash_5 ) = .TRUE. chem_dname_table( idomain, P_vash_5 ) = 'vash_5' chem_desc_table( idomain, P_vash_5 ) = 'vash5 mixing ratio' chem_units_table( idomain, P_vash_5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_5 )%stream(2) = 2097216 ! 00200040 F_vash_5 = .TRUE. IF ( chem_index_table( PARAM_vash_6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_6 = chem_num_table(idomain) chem_index_table( PARAM_vash_6 , idomain ) = P_vash_6 ELSE P_vash_6 = chem_index_table( PARAM_vash_6 , idomain ) END IF chem_boundary_table( idomain, P_vash_6 ) = .TRUE. chem_dname_table( idomain, P_vash_6 ) = 'vash_6' chem_desc_table( idomain, P_vash_6 ) = 'vash6 mixing ratio' chem_units_table( idomain, P_vash_6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_6 )%stream(2) = 2097216 ! 00200040 F_vash_6 = .TRUE. IF ( chem_index_table( PARAM_vash_7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_7 = chem_num_table(idomain) chem_index_table( PARAM_vash_7 , idomain ) = P_vash_7 ELSE P_vash_7 = chem_index_table( PARAM_vash_7 , idomain ) END IF chem_boundary_table( idomain, P_vash_7 ) = .TRUE. chem_dname_table( idomain, P_vash_7 ) = 'vash_7' chem_desc_table( idomain, P_vash_7 ) = 'vash7 mixing ratio' chem_units_table( idomain, P_vash_7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_7 )%stream(2) = 2097216 ! 00200040 F_vash_7 = .TRUE. IF ( chem_index_table( PARAM_vash_8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_8 = chem_num_table(idomain) chem_index_table( PARAM_vash_8 , idomain ) = P_vash_8 ELSE P_vash_8 = chem_index_table( PARAM_vash_8 , idomain ) END IF chem_boundary_table( idomain, P_vash_8 ) = .TRUE. chem_dname_table( idomain, P_vash_8 ) = 'vash_8' chem_desc_table( idomain, P_vash_8 ) = 'vash8 mixing ratio' chem_units_table( idomain, P_vash_8 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_8 )%stream(2) = 2097216 ! 00200040 F_vash_8 = .TRUE. IF ( chem_index_table( PARAM_vash_9 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_9 = chem_num_table(idomain) chem_index_table( PARAM_vash_9 , idomain ) = P_vash_9 ELSE P_vash_9 = chem_index_table( PARAM_vash_9 , idomain ) END IF chem_boundary_table( idomain, P_vash_9 ) = .TRUE. chem_dname_table( idomain, P_vash_9 ) = 'vash_9' chem_desc_table( idomain, P_vash_9 ) = 'vash9 mixing ratio' chem_units_table( idomain, P_vash_9 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_9 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_9 )%stream(2) = 2097216 ! 00200040 F_vash_9 = .TRUE. IF ( chem_index_table( PARAM_vash_10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_10 = chem_num_table(idomain) chem_index_table( PARAM_vash_10 , idomain ) = P_vash_10 ELSE P_vash_10 = chem_index_table( PARAM_vash_10 , idomain ) END IF chem_boundary_table( idomain, P_vash_10 ) = .TRUE. chem_dname_table( idomain, P_vash_10 ) = 'vash_10' chem_desc_table( idomain, P_vash_10 ) = 'vash10 mixing ratio' chem_units_table( idomain, P_vash_10 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_10 )%stream(2) = 2097216 ! 00200040 F_vash_10 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==403)THEN IF ( chem_index_table( PARAM_vash_7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_7 = chem_num_table(idomain) chem_index_table( PARAM_vash_7 , idomain ) = P_vash_7 ELSE P_vash_7 = chem_index_table( PARAM_vash_7 , idomain ) END IF chem_boundary_table( idomain, P_vash_7 ) = .TRUE. chem_dname_table( idomain, P_vash_7 ) = 'vash_7' chem_desc_table( idomain, P_vash_7 ) = 'vash7 mixing ratio' chem_units_table( idomain, P_vash_7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_7 )%stream(2) = 2097216 ! 00200040 F_vash_7 = .TRUE. IF ( chem_index_table( PARAM_vash_8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_8 = chem_num_table(idomain) chem_index_table( PARAM_vash_8 , idomain ) = P_vash_8 ELSE P_vash_8 = chem_index_table( PARAM_vash_8 , idomain ) END IF chem_boundary_table( idomain, P_vash_8 ) = .TRUE. chem_dname_table( idomain, P_vash_8 ) = 'vash_8' chem_desc_table( idomain, P_vash_8 ) = 'vash8 mixing ratio' chem_units_table( idomain, P_vash_8 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_8 )%stream(2) = 2097216 ! 00200040 F_vash_8 = .TRUE. IF ( chem_index_table( PARAM_vash_9 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_9 = chem_num_table(idomain) chem_index_table( PARAM_vash_9 , idomain ) = P_vash_9 ELSE P_vash_9 = chem_index_table( PARAM_vash_9 , idomain ) END IF chem_boundary_table( idomain, P_vash_9 ) = .TRUE. chem_dname_table( idomain, P_vash_9 ) = 'vash_9' chem_desc_table( idomain, P_vash_9 ) = 'vash9 mixing ratio' chem_units_table( idomain, P_vash_9 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_9 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_9 )%stream(2) = 2097216 ! 00200040 F_vash_9 = .TRUE. IF ( chem_index_table( PARAM_vash_10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_10 = chem_num_table(idomain) chem_index_table( PARAM_vash_10 , idomain ) = P_vash_10 ELSE P_vash_10 = chem_index_table( PARAM_vash_10 , idomain ) END IF chem_boundary_table( idomain, P_vash_10 ) = .TRUE. chem_dname_table( idomain, P_vash_10 ) = 'vash_10' chem_desc_table( idomain, P_vash_10 ) = 'vash10 mixing ratio' chem_units_table( idomain, P_vash_10 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_vash_10 )%stream(2) = 2097216 ! 00200040 F_vash_10 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==501)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_soag , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soag = chem_num_table(idomain) chem_index_table( PARAM_soag , idomain ) = P_soag ELSE P_soag = chem_index_table( PARAM_soag , idomain ) END IF chem_boundary_table( idomain, P_soag ) = .TRUE. chem_dname_table( idomain, P_soag ) = 'soag' chem_desc_table( idomain, P_soag ) = 'Gas-phase SOA' chem_units_table( idomain, P_soag ) = 'ppmv' chem_streams_table( idomain, P_soag )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soag )%stream(2) = 2097152 ! 00200000 F_soag = .TRUE. IF ( chem_index_table( PARAM_so4_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a1 = chem_num_table(idomain) chem_index_table( PARAM_so4_a1 , idomain ) = P_so4_a1 ELSE P_so4_a1 = chem_index_table( PARAM_so4_a1 , idomain ) END IF chem_boundary_table( idomain, P_so4_a1 ) = .TRUE. chem_dname_table( idomain, P_so4_a1 ) = 'so4_a1' chem_desc_table( idomain, P_so4_a1 ) = 'Sulfate aerosol, mode 1' chem_units_table( idomain, P_so4_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a1 )%stream(2) = 2097152 ! 00200000 F_so4_a1 = .TRUE. IF ( chem_index_table( PARAM_pom_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_a1 = chem_num_table(idomain) chem_index_table( PARAM_pom_a1 , idomain ) = P_pom_a1 ELSE P_pom_a1 = chem_index_table( PARAM_pom_a1 , idomain ) END IF chem_boundary_table( idomain, P_pom_a1 ) = .TRUE. chem_dname_table( idomain, P_pom_a1 ) = 'pom_a1' chem_desc_table( idomain, P_pom_a1 ) = 'Primary organic aerosol, mode 1' chem_units_table( idomain, P_pom_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pom_a1 )%stream(2) = 2097152 ! 00200000 F_pom_a1 = .TRUE. IF ( chem_index_table( PARAM_soa_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_a1 = chem_num_table(idomain) chem_index_table( PARAM_soa_a1 , idomain ) = P_soa_a1 ELSE P_soa_a1 = chem_index_table( PARAM_soa_a1 , idomain ) END IF chem_boundary_table( idomain, P_soa_a1 ) = .TRUE. chem_dname_table( idomain, P_soa_a1 ) = 'soa_a1' chem_desc_table( idomain, P_soa_a1 ) = 'Secondary organic aerosol, mode 1' chem_units_table( idomain, P_soa_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soa_a1 )%stream(2) = 2097152 ! 00200000 F_soa_a1 = .TRUE. IF ( chem_index_table( PARAM_bc_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a1 = chem_num_table(idomain) chem_index_table( PARAM_bc_a1 , idomain ) = P_bc_a1 ELSE P_bc_a1 = chem_index_table( PARAM_bc_a1 , idomain ) END IF chem_boundary_table( idomain, P_bc_a1 ) = .TRUE. chem_dname_table( idomain, P_bc_a1 ) = 'bc_a1' chem_desc_table( idomain, P_bc_a1 ) = 'Black carbon aerosol, mode 1' chem_units_table( idomain, P_bc_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a1 )%stream(2) = 2097152 ! 00200000 F_bc_a1 = .TRUE. IF ( chem_index_table( PARAM_dst_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_a1 = chem_num_table(idomain) chem_index_table( PARAM_dst_a1 , idomain ) = P_dst_a1 ELSE P_dst_a1 = chem_index_table( PARAM_dst_a1 , idomain ) END IF chem_boundary_table( idomain, P_dst_a1 ) = .TRUE. chem_dname_table( idomain, P_dst_a1 ) = 'dst_a1' chem_desc_table( idomain, P_dst_a1 ) = 'Dust aerosol, mode 1' chem_units_table( idomain, P_dst_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dst_a1 )%stream(2) = 2097152 ! 00200000 F_dst_a1 = .TRUE. IF ( chem_index_table( PARAM_ncl_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a1 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a1 , idomain ) = P_ncl_a1 ELSE P_ncl_a1 = chem_index_table( PARAM_ncl_a1 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a1 ) = .TRUE. chem_dname_table( idomain, P_ncl_a1 ) = 'ncl_a1' chem_desc_table( idomain, P_ncl_a1 ) = 'Sea salt aerosol, mode 1' chem_units_table( idomain, P_ncl_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_a1 )%stream(2) = 2097152 ! 00200000 F_ncl_a1 = .TRUE. IF ( chem_index_table( PARAM_wtr_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a1 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a1 , idomain ) = P_wtr_a1 ELSE P_wtr_a1 = chem_index_table( PARAM_wtr_a1 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a1 ) = .TRUE. chem_dname_table( idomain, P_wtr_a1 ) = 'wtr_a1' chem_desc_table( idomain, P_wtr_a1 ) = 'Aerosol water, mode 1' chem_units_table( idomain, P_wtr_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a1 )%stream(2) = 2097152 ! 00200000 F_wtr_a1 = .TRUE. IF ( chem_index_table( PARAM_num_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a1 = chem_num_table(idomain) chem_index_table( PARAM_num_a1 , idomain ) = P_num_a1 ELSE P_num_a1 = chem_index_table( PARAM_num_a1 , idomain ) END IF chem_boundary_table( idomain, P_num_a1 ) = .TRUE. chem_dname_table( idomain, P_num_a1 ) = 'num_a1' chem_desc_table( idomain, P_num_a1 ) = 'Aerosol number, mode 1' chem_units_table( idomain, P_num_a1 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a1 )%stream(2) = 2097152 ! 00200000 F_num_a1 = .TRUE. IF ( chem_index_table( PARAM_so4_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a2 = chem_num_table(idomain) chem_index_table( PARAM_so4_a2 , idomain ) = P_so4_a2 ELSE P_so4_a2 = chem_index_table( PARAM_so4_a2 , idomain ) END IF chem_boundary_table( idomain, P_so4_a2 ) = .TRUE. chem_dname_table( idomain, P_so4_a2 ) = 'so4_a2' chem_desc_table( idomain, P_so4_a2 ) = 'Sulfate aerosol, mode 2' chem_units_table( idomain, P_so4_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a2 )%stream(2) = 2097152 ! 00200000 F_so4_a2 = .TRUE. IF ( chem_index_table( PARAM_soa_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_a2 = chem_num_table(idomain) chem_index_table( PARAM_soa_a2 , idomain ) = P_soa_a2 ELSE P_soa_a2 = chem_index_table( PARAM_soa_a2 , idomain ) END IF chem_boundary_table( idomain, P_soa_a2 ) = .TRUE. chem_dname_table( idomain, P_soa_a2 ) = 'soa_a2' chem_desc_table( idomain, P_soa_a2 ) = 'Secondary organic aerosol, mode 2' chem_units_table( idomain, P_soa_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soa_a2 )%stream(2) = 2097152 ! 00200000 F_soa_a2 = .TRUE. IF ( chem_index_table( PARAM_ncl_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a2 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a2 , idomain ) = P_ncl_a2 ELSE P_ncl_a2 = chem_index_table( PARAM_ncl_a2 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a2 ) = .TRUE. chem_dname_table( idomain, P_ncl_a2 ) = 'ncl_a2' chem_desc_table( idomain, P_ncl_a2 ) = 'Sea salt aerosol, mode 2' chem_units_table( idomain, P_ncl_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_a2 )%stream(2) = 2097152 ! 00200000 F_ncl_a2 = .TRUE. IF ( chem_index_table( PARAM_wtr_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a2 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a2 , idomain ) = P_wtr_a2 ELSE P_wtr_a2 = chem_index_table( PARAM_wtr_a2 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a2 ) = .TRUE. chem_dname_table( idomain, P_wtr_a2 ) = 'wtr_a2' chem_desc_table( idomain, P_wtr_a2 ) = 'Aerosol water, mode 2' chem_units_table( idomain, P_wtr_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a2 )%stream(2) = 2097152 ! 00200000 F_wtr_a2 = .TRUE. IF ( chem_index_table( PARAM_num_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a2 = chem_num_table(idomain) chem_index_table( PARAM_num_a2 , idomain ) = P_num_a2 ELSE P_num_a2 = chem_index_table( PARAM_num_a2 , idomain ) END IF chem_boundary_table( idomain, P_num_a2 ) = .TRUE. chem_dname_table( idomain, P_num_a2 ) = 'num_a2' chem_desc_table( idomain, P_num_a2 ) = 'Aerosol number, mode 2' chem_units_table( idomain, P_num_a2 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a2 )%stream(2) = 2097152 ! 00200000 F_num_a2 = .TRUE. IF ( chem_index_table( PARAM_dst_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_a3 = chem_num_table(idomain) chem_index_table( PARAM_dst_a3 , idomain ) = P_dst_a3 ELSE P_dst_a3 = chem_index_table( PARAM_dst_a3 , idomain ) END IF chem_boundary_table( idomain, P_dst_a3 ) = .TRUE. chem_dname_table( idomain, P_dst_a3 ) = 'dst_a3' chem_desc_table( idomain, P_dst_a3 ) = 'Dust aerosol, mode 3' chem_units_table( idomain, P_dst_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dst_a3 )%stream(2) = 2097152 ! 00200000 F_dst_a3 = .TRUE. IF ( chem_index_table( PARAM_ncl_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a3 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a3 , idomain ) = P_ncl_a3 ELSE P_ncl_a3 = chem_index_table( PARAM_ncl_a3 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a3 ) = .TRUE. chem_dname_table( idomain, P_ncl_a3 ) = 'ncl_a3' chem_desc_table( idomain, P_ncl_a3 ) = 'Sea salt aerosol, mode 3' chem_units_table( idomain, P_ncl_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_a3 )%stream(2) = 2097152 ! 00200000 F_ncl_a3 = .TRUE. IF ( chem_index_table( PARAM_so4_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a3 = chem_num_table(idomain) chem_index_table( PARAM_so4_a3 , idomain ) = P_so4_a3 ELSE P_so4_a3 = chem_index_table( PARAM_so4_a3 , idomain ) END IF chem_boundary_table( idomain, P_so4_a3 ) = .TRUE. chem_dname_table( idomain, P_so4_a3 ) = 'so4_a3' chem_desc_table( idomain, P_so4_a3 ) = 'Sulfate aerosol, mode 3' chem_units_table( idomain, P_so4_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a3 )%stream(2) = 2097152 ! 00200000 F_so4_a3 = .TRUE. IF ( chem_index_table( PARAM_wtr_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a3 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a3 , idomain ) = P_wtr_a3 ELSE P_wtr_a3 = chem_index_table( PARAM_wtr_a3 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a3 ) = .TRUE. chem_dname_table( idomain, P_wtr_a3 ) = 'wtr_a3' chem_desc_table( idomain, P_wtr_a3 ) = 'Aerosol water, mode 3' chem_units_table( idomain, P_wtr_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a3 )%stream(2) = 2097152 ! 00200000 F_wtr_a3 = .TRUE. IF ( chem_index_table( PARAM_num_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a3 = chem_num_table(idomain) chem_index_table( PARAM_num_a3 , idomain ) = P_num_a3 ELSE P_num_a3 = chem_index_table( PARAM_num_a3 , idomain ) END IF chem_boundary_table( idomain, P_num_a3 ) = .TRUE. chem_dname_table( idomain, P_num_a3 ) = 'num_a3' chem_desc_table( idomain, P_num_a3 ) = 'Aerosol number, mode 3' chem_units_table( idomain, P_num_a3 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a3 )%stream(2) = 2097152 ! 00200000 F_num_a3 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==502)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_soag , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soag = chem_num_table(idomain) chem_index_table( PARAM_soag , idomain ) = P_soag ELSE P_soag = chem_index_table( PARAM_soag , idomain ) END IF chem_boundary_table( idomain, P_soag ) = .TRUE. chem_dname_table( idomain, P_soag ) = 'soag' chem_desc_table( idomain, P_soag ) = 'Gas-phase SOA' chem_units_table( idomain, P_soag ) = 'ppmv' chem_streams_table( idomain, P_soag )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soag )%stream(2) = 2097152 ! 00200000 F_soag = .TRUE. IF ( chem_index_table( PARAM_so4_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a1 = chem_num_table(idomain) chem_index_table( PARAM_so4_a1 , idomain ) = P_so4_a1 ELSE P_so4_a1 = chem_index_table( PARAM_so4_a1 , idomain ) END IF chem_boundary_table( idomain, P_so4_a1 ) = .TRUE. chem_dname_table( idomain, P_so4_a1 ) = 'so4_a1' chem_desc_table( idomain, P_so4_a1 ) = 'Sulfate aerosol, mode 1' chem_units_table( idomain, P_so4_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a1 )%stream(2) = 2097152 ! 00200000 F_so4_a1 = .TRUE. IF ( chem_index_table( PARAM_nh4_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a1 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a1 , idomain ) = P_nh4_a1 ELSE P_nh4_a1 = chem_index_table( PARAM_nh4_a1 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a1 ) = .TRUE. chem_dname_table( idomain, P_nh4_a1 ) = 'nh4_a1' chem_desc_table( idomain, P_nh4_a1 ) = 'Ammonium aerosol, mode 1' chem_units_table( idomain, P_nh4_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a1 )%stream(2) = 2097152 ! 00200000 F_nh4_a1 = .TRUE. IF ( chem_index_table( PARAM_pom_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_a1 = chem_num_table(idomain) chem_index_table( PARAM_pom_a1 , idomain ) = P_pom_a1 ELSE P_pom_a1 = chem_index_table( PARAM_pom_a1 , idomain ) END IF chem_boundary_table( idomain, P_pom_a1 ) = .TRUE. chem_dname_table( idomain, P_pom_a1 ) = 'pom_a1' chem_desc_table( idomain, P_pom_a1 ) = 'Primary organic aerosol, mode 1' chem_units_table( idomain, P_pom_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pom_a1 )%stream(2) = 2097152 ! 00200000 F_pom_a1 = .TRUE. IF ( chem_index_table( PARAM_soa_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_a1 = chem_num_table(idomain) chem_index_table( PARAM_soa_a1 , idomain ) = P_soa_a1 ELSE P_soa_a1 = chem_index_table( PARAM_soa_a1 , idomain ) END IF chem_boundary_table( idomain, P_soa_a1 ) = .TRUE. chem_dname_table( idomain, P_soa_a1 ) = 'soa_a1' chem_desc_table( idomain, P_soa_a1 ) = 'Secondary organic aerosol, mode 1' chem_units_table( idomain, P_soa_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soa_a1 )%stream(2) = 2097152 ! 00200000 F_soa_a1 = .TRUE. IF ( chem_index_table( PARAM_bc_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a1 = chem_num_table(idomain) chem_index_table( PARAM_bc_a1 , idomain ) = P_bc_a1 ELSE P_bc_a1 = chem_index_table( PARAM_bc_a1 , idomain ) END IF chem_boundary_table( idomain, P_bc_a1 ) = .TRUE. chem_dname_table( idomain, P_bc_a1 ) = 'bc_a1' chem_desc_table( idomain, P_bc_a1 ) = 'Black carbon aerosol, mode 1' chem_units_table( idomain, P_bc_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a1 )%stream(2) = 2097152 ! 00200000 F_bc_a1 = .TRUE. IF ( chem_index_table( PARAM_ncl_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a1 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a1 , idomain ) = P_ncl_a1 ELSE P_ncl_a1 = chem_index_table( PARAM_ncl_a1 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a1 ) = .TRUE. chem_dname_table( idomain, P_ncl_a1 ) = 'ncl_a1' chem_desc_table( idomain, P_ncl_a1 ) = 'Sea salt aerosol, mode 1' chem_units_table( idomain, P_ncl_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_a1 )%stream(2) = 2097152 ! 00200000 F_ncl_a1 = .TRUE. IF ( chem_index_table( PARAM_wtr_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a1 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a1 , idomain ) = P_wtr_a1 ELSE P_wtr_a1 = chem_index_table( PARAM_wtr_a1 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a1 ) = .TRUE. chem_dname_table( idomain, P_wtr_a1 ) = 'wtr_a1' chem_desc_table( idomain, P_wtr_a1 ) = 'Aerosol water, mode 1' chem_units_table( idomain, P_wtr_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a1 )%stream(2) = 2097152 ! 00200000 F_wtr_a1 = .TRUE. IF ( chem_index_table( PARAM_num_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a1 = chem_num_table(idomain) chem_index_table( PARAM_num_a1 , idomain ) = P_num_a1 ELSE P_num_a1 = chem_index_table( PARAM_num_a1 , idomain ) END IF chem_boundary_table( idomain, P_num_a1 ) = .TRUE. chem_dname_table( idomain, P_num_a1 ) = 'num_a1' chem_desc_table( idomain, P_num_a1 ) = 'Aerosol number, mode 1' chem_units_table( idomain, P_num_a1 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a1 )%stream(2) = 2097152 ! 00200000 F_num_a1 = .TRUE. IF ( chem_index_table( PARAM_so4_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a2 = chem_num_table(idomain) chem_index_table( PARAM_so4_a2 , idomain ) = P_so4_a2 ELSE P_so4_a2 = chem_index_table( PARAM_so4_a2 , idomain ) END IF chem_boundary_table( idomain, P_so4_a2 ) = .TRUE. chem_dname_table( idomain, P_so4_a2 ) = 'so4_a2' chem_desc_table( idomain, P_so4_a2 ) = 'Sulfate aerosol, mode 2' chem_units_table( idomain, P_so4_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a2 )%stream(2) = 2097152 ! 00200000 F_so4_a2 = .TRUE. IF ( chem_index_table( PARAM_nh4_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a2 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a2 , idomain ) = P_nh4_a2 ELSE P_nh4_a2 = chem_index_table( PARAM_nh4_a2 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a2 ) = .TRUE. chem_dname_table( idomain, P_nh4_a2 ) = 'nh4_a2' chem_desc_table( idomain, P_nh4_a2 ) = 'Ammonium aerosol, mode 2' chem_units_table( idomain, P_nh4_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a2 )%stream(2) = 2097152 ! 00200000 F_nh4_a2 = .TRUE. IF ( chem_index_table( PARAM_soa_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_a2 = chem_num_table(idomain) chem_index_table( PARAM_soa_a2 , idomain ) = P_soa_a2 ELSE P_soa_a2 = chem_index_table( PARAM_soa_a2 , idomain ) END IF chem_boundary_table( idomain, P_soa_a2 ) = .TRUE. chem_dname_table( idomain, P_soa_a2 ) = 'soa_a2' chem_desc_table( idomain, P_soa_a2 ) = 'Secondary organic aerosol, mode 2' chem_units_table( idomain, P_soa_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soa_a2 )%stream(2) = 2097152 ! 00200000 F_soa_a2 = .TRUE. IF ( chem_index_table( PARAM_ncl_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a2 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a2 , idomain ) = P_ncl_a2 ELSE P_ncl_a2 = chem_index_table( PARAM_ncl_a2 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a2 ) = .TRUE. chem_dname_table( idomain, P_ncl_a2 ) = 'ncl_a2' chem_desc_table( idomain, P_ncl_a2 ) = 'Sea salt aerosol, mode 2' chem_units_table( idomain, P_ncl_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_a2 )%stream(2) = 2097152 ! 00200000 F_ncl_a2 = .TRUE. IF ( chem_index_table( PARAM_wtr_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a2 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a2 , idomain ) = P_wtr_a2 ELSE P_wtr_a2 = chem_index_table( PARAM_wtr_a2 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a2 ) = .TRUE. chem_dname_table( idomain, P_wtr_a2 ) = 'wtr_a2' chem_desc_table( idomain, P_wtr_a2 ) = 'Aerosol water, mode 2' chem_units_table( idomain, P_wtr_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a2 )%stream(2) = 2097152 ! 00200000 F_wtr_a2 = .TRUE. IF ( chem_index_table( PARAM_num_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a2 = chem_num_table(idomain) chem_index_table( PARAM_num_a2 , idomain ) = P_num_a2 ELSE P_num_a2 = chem_index_table( PARAM_num_a2 , idomain ) END IF chem_boundary_table( idomain, P_num_a2 ) = .TRUE. chem_dname_table( idomain, P_num_a2 ) = 'num_a2' chem_desc_table( idomain, P_num_a2 ) = 'Aerosol number, mode 2' chem_units_table( idomain, P_num_a2 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a2 )%stream(2) = 2097152 ! 00200000 F_num_a2 = .TRUE. IF ( chem_index_table( PARAM_pom_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_a3 = chem_num_table(idomain) chem_index_table( PARAM_pom_a3 , idomain ) = P_pom_a3 ELSE P_pom_a3 = chem_index_table( PARAM_pom_a3 , idomain ) END IF chem_boundary_table( idomain, P_pom_a3 ) = .TRUE. chem_dname_table( idomain, P_pom_a3 ) = 'pom_a3' chem_desc_table( idomain, P_pom_a3 ) = 'Primary organic aerosol, mode 3' chem_units_table( idomain, P_pom_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pom_a3 )%stream(2) = 2097152 ! 00200000 F_pom_a3 = .TRUE. IF ( chem_index_table( PARAM_bc_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a3 = chem_num_table(idomain) chem_index_table( PARAM_bc_a3 , idomain ) = P_bc_a3 ELSE P_bc_a3 = chem_index_table( PARAM_bc_a3 , idomain ) END IF chem_boundary_table( idomain, P_bc_a3 ) = .TRUE. chem_dname_table( idomain, P_bc_a3 ) = 'bc_a3' chem_desc_table( idomain, P_bc_a3 ) = 'Black carbon aerosol, mode 3' chem_units_table( idomain, P_bc_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a3 )%stream(2) = 2097152 ! 00200000 F_bc_a3 = .TRUE. IF ( chem_index_table( PARAM_wtr_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a3 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a3 , idomain ) = P_wtr_a3 ELSE P_wtr_a3 = chem_index_table( PARAM_wtr_a3 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a3 ) = .TRUE. chem_dname_table( idomain, P_wtr_a3 ) = 'wtr_a3' chem_desc_table( idomain, P_wtr_a3 ) = 'Aerosol water, mode 3' chem_units_table( idomain, P_wtr_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a3 )%stream(2) = 2097152 ! 00200000 F_wtr_a3 = .TRUE. IF ( chem_index_table( PARAM_num_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a3 = chem_num_table(idomain) chem_index_table( PARAM_num_a3 , idomain ) = P_num_a3 ELSE P_num_a3 = chem_index_table( PARAM_num_a3 , idomain ) END IF chem_boundary_table( idomain, P_num_a3 ) = .TRUE. chem_dname_table( idomain, P_num_a3 ) = 'num_a3' chem_desc_table( idomain, P_num_a3 ) = 'Aerosol number, mode 3' chem_units_table( idomain, P_num_a3 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a3 )%stream(2) = 2097152 ! 00200000 F_num_a3 = .TRUE. IF ( chem_index_table( PARAM_ncl_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a4 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a4 , idomain ) = P_ncl_a4 ELSE P_ncl_a4 = chem_index_table( PARAM_ncl_a4 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a4 ) = .TRUE. chem_dname_table( idomain, P_ncl_a4 ) = 'ncl_a4' chem_desc_table( idomain, P_ncl_a4 ) = 'Sea salt aerosol, mode 4' chem_units_table( idomain, P_ncl_a4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_a4 )%stream(2) = 2097152 ! 00200000 F_ncl_a4 = .TRUE. IF ( chem_index_table( PARAM_so4_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a4 = chem_num_table(idomain) chem_index_table( PARAM_so4_a4 , idomain ) = P_so4_a4 ELSE P_so4_a4 = chem_index_table( PARAM_so4_a4 , idomain ) END IF chem_boundary_table( idomain, P_so4_a4 ) = .TRUE. chem_dname_table( idomain, P_so4_a4 ) = 'so4_a4' chem_desc_table( idomain, P_so4_a4 ) = 'Sulfate aerosol, mode 4' chem_units_table( idomain, P_so4_a4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a4 )%stream(2) = 2097152 ! 00200000 F_so4_a4 = .TRUE. IF ( chem_index_table( PARAM_nh4_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a4 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a4 , idomain ) = P_nh4_a4 ELSE P_nh4_a4 = chem_index_table( PARAM_nh4_a4 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a4 ) = .TRUE. chem_dname_table( idomain, P_nh4_a4 ) = 'nh4_a4' chem_desc_table( idomain, P_nh4_a4 ) = 'Ammonium aerosol, mode 4' chem_units_table( idomain, P_nh4_a4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a4 )%stream(2) = 2097152 ! 00200000 F_nh4_a4 = .TRUE. IF ( chem_index_table( PARAM_wtr_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a4 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a4 , idomain ) = P_wtr_a4 ELSE P_wtr_a4 = chem_index_table( PARAM_wtr_a4 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a4 ) = .TRUE. chem_dname_table( idomain, P_wtr_a4 ) = 'wtr_a4' chem_desc_table( idomain, P_wtr_a4 ) = 'Aerosol water, mode 4' chem_units_table( idomain, P_wtr_a4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a4 )%stream(2) = 2097152 ! 00200000 F_wtr_a4 = .TRUE. IF ( chem_index_table( PARAM_num_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a4 = chem_num_table(idomain) chem_index_table( PARAM_num_a4 , idomain ) = P_num_a4 ELSE P_num_a4 = chem_index_table( PARAM_num_a4 , idomain ) END IF chem_boundary_table( idomain, P_num_a4 ) = .TRUE. chem_dname_table( idomain, P_num_a4 ) = 'num_a4' chem_desc_table( idomain, P_num_a4 ) = 'Aerosol number, mode 4' chem_units_table( idomain, P_num_a4 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a4 )%stream(2) = 2097152 ! 00200000 F_num_a4 = .TRUE. IF ( chem_index_table( PARAM_dst_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_a5 = chem_num_table(idomain) chem_index_table( PARAM_dst_a5 , idomain ) = P_dst_a5 ELSE P_dst_a5 = chem_index_table( PARAM_dst_a5 , idomain ) END IF chem_boundary_table( idomain, P_dst_a5 ) = .TRUE. chem_dname_table( idomain, P_dst_a5 ) = 'dst_a5' chem_desc_table( idomain, P_dst_a5 ) = 'Dust aerosol, mode 5' chem_units_table( idomain, P_dst_a5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_a5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dst_a5 )%stream(2) = 2097152 ! 00200000 F_dst_a5 = .TRUE. IF ( chem_index_table( PARAM_so4_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a5 = chem_num_table(idomain) chem_index_table( PARAM_so4_a5 , idomain ) = P_so4_a5 ELSE P_so4_a5 = chem_index_table( PARAM_so4_a5 , idomain ) END IF chem_boundary_table( idomain, P_so4_a5 ) = .TRUE. chem_dname_table( idomain, P_so4_a5 ) = 'so4_a5' chem_desc_table( idomain, P_so4_a5 ) = 'Sulfate aerosol, mode 5' chem_units_table( idomain, P_so4_a5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a5 )%stream(2) = 2097152 ! 00200000 F_so4_a5 = .TRUE. IF ( chem_index_table( PARAM_nh4_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a5 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a5 , idomain ) = P_nh4_a5 ELSE P_nh4_a5 = chem_index_table( PARAM_nh4_a5 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a5 ) = .TRUE. chem_dname_table( idomain, P_nh4_a5 ) = 'nh4_a5' chem_desc_table( idomain, P_nh4_a5 ) = 'Ammonium aerosol, mode 5' chem_units_table( idomain, P_nh4_a5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a5 )%stream(2) = 2097152 ! 00200000 F_nh4_a5 = .TRUE. IF ( chem_index_table( PARAM_wtr_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a5 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a5 , idomain ) = P_wtr_a5 ELSE P_wtr_a5 = chem_index_table( PARAM_wtr_a5 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a5 ) = .TRUE. chem_dname_table( idomain, P_wtr_a5 ) = 'wtr_a5' chem_desc_table( idomain, P_wtr_a5 ) = 'Aerosol water, mode 5' chem_units_table( idomain, P_wtr_a5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a5 )%stream(2) = 2097152 ! 00200000 F_wtr_a5 = .TRUE. IF ( chem_index_table( PARAM_num_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a5 = chem_num_table(idomain) chem_index_table( PARAM_num_a5 , idomain ) = P_num_a5 ELSE P_num_a5 = chem_index_table( PARAM_num_a5 , idomain ) END IF chem_boundary_table( idomain, P_num_a5 ) = .TRUE. chem_dname_table( idomain, P_num_a5 ) = 'num_a5' chem_desc_table( idomain, P_num_a5 ) = 'Aerosol number, mode 5' chem_units_table( idomain, P_num_a5 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a5 )%stream(2) = 2097152 ! 00200000 F_num_a5 = .TRUE. IF ( chem_index_table( PARAM_ncl_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a6 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a6 , idomain ) = P_ncl_a6 ELSE P_ncl_a6 = chem_index_table( PARAM_ncl_a6 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a6 ) = .TRUE. chem_dname_table( idomain, P_ncl_a6 ) = 'ncl_a6' chem_desc_table( idomain, P_ncl_a6 ) = 'Sea salt aerosol, mode 6' chem_units_table( idomain, P_ncl_a6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_a6 )%stream(2) = 2097152 ! 00200000 F_ncl_a6 = .TRUE. IF ( chem_index_table( PARAM_so4_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a6 = chem_num_table(idomain) chem_index_table( PARAM_so4_a6 , idomain ) = P_so4_a6 ELSE P_so4_a6 = chem_index_table( PARAM_so4_a6 , idomain ) END IF chem_boundary_table( idomain, P_so4_a6 ) = .TRUE. chem_dname_table( idomain, P_so4_a6 ) = 'so4_a6' chem_desc_table( idomain, P_so4_a6 ) = 'Sulfate aerosol, mode 6' chem_units_table( idomain, P_so4_a6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a6 )%stream(2) = 2097152 ! 00200000 F_so4_a6 = .TRUE. IF ( chem_index_table( PARAM_nh4_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a6 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a6 , idomain ) = P_nh4_a6 ELSE P_nh4_a6 = chem_index_table( PARAM_nh4_a6 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a6 ) = .TRUE. chem_dname_table( idomain, P_nh4_a6 ) = 'nh4_a6' chem_desc_table( idomain, P_nh4_a6 ) = 'Ammonium aerosol, mode 6' chem_units_table( idomain, P_nh4_a6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a6 )%stream(2) = 2097152 ! 00200000 F_nh4_a6 = .TRUE. IF ( chem_index_table( PARAM_wtr_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a6 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a6 , idomain ) = P_wtr_a6 ELSE P_wtr_a6 = chem_index_table( PARAM_wtr_a6 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a6 ) = .TRUE. chem_dname_table( idomain, P_wtr_a6 ) = 'wtr_a6' chem_desc_table( idomain, P_wtr_a6 ) = 'Aerosol water, mode 6' chem_units_table( idomain, P_wtr_a6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a6 )%stream(2) = 2097152 ! 00200000 F_wtr_a6 = .TRUE. IF ( chem_index_table( PARAM_num_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a6 = chem_num_table(idomain) chem_index_table( PARAM_num_a6 , idomain ) = P_num_a6 ELSE P_num_a6 = chem_index_table( PARAM_num_a6 , idomain ) END IF chem_boundary_table( idomain, P_num_a6 ) = .TRUE. chem_dname_table( idomain, P_num_a6 ) = 'num_a6' chem_desc_table( idomain, P_num_a6 ) = 'Aerosol number, mode 6' chem_units_table( idomain, P_num_a6 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a6 )%stream(2) = 2097152 ! 00200000 F_num_a6 = .TRUE. IF ( chem_index_table( PARAM_dst_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_a7 = chem_num_table(idomain) chem_index_table( PARAM_dst_a7 , idomain ) = P_dst_a7 ELSE P_dst_a7 = chem_index_table( PARAM_dst_a7 , idomain ) END IF chem_boundary_table( idomain, P_dst_a7 ) = .TRUE. chem_dname_table( idomain, P_dst_a7 ) = 'dst_a7' chem_desc_table( idomain, P_dst_a7 ) = 'Dust aerosol, mode 7' chem_units_table( idomain, P_dst_a7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_a7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dst_a7 )%stream(2) = 2097152 ! 00200000 F_dst_a7 = .TRUE. IF ( chem_index_table( PARAM_so4_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a7 = chem_num_table(idomain) chem_index_table( PARAM_so4_a7 , idomain ) = P_so4_a7 ELSE P_so4_a7 = chem_index_table( PARAM_so4_a7 , idomain ) END IF chem_boundary_table( idomain, P_so4_a7 ) = .TRUE. chem_dname_table( idomain, P_so4_a7 ) = 'so4_a7' chem_desc_table( idomain, P_so4_a7 ) = 'Sulfate aerosol, mode 7' chem_units_table( idomain, P_so4_a7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a7 )%stream(2) = 2097152 ! 00200000 F_so4_a7 = .TRUE. IF ( chem_index_table( PARAM_nh4_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a7 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a7 , idomain ) = P_nh4_a7 ELSE P_nh4_a7 = chem_index_table( PARAM_nh4_a7 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a7 ) = .TRUE. chem_dname_table( idomain, P_nh4_a7 ) = 'nh4_a7' chem_desc_table( idomain, P_nh4_a7 ) = 'Ammonium aerosol, mode 7' chem_units_table( idomain, P_nh4_a7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a7 )%stream(2) = 2097152 ! 00200000 F_nh4_a7 = .TRUE. IF ( chem_index_table( PARAM_wtr_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a7 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a7 , idomain ) = P_wtr_a7 ELSE P_wtr_a7 = chem_index_table( PARAM_wtr_a7 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a7 ) = .TRUE. chem_dname_table( idomain, P_wtr_a7 ) = 'wtr_a7' chem_desc_table( idomain, P_wtr_a7 ) = 'Aerosol water, mode 7' chem_units_table( idomain, P_wtr_a7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a7 )%stream(2) = 2097152 ! 00200000 F_wtr_a7 = .TRUE. IF ( chem_index_table( PARAM_num_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a7 = chem_num_table(idomain) chem_index_table( PARAM_num_a7 , idomain ) = P_num_a7 ELSE P_num_a7 = chem_index_table( PARAM_num_a7 , idomain ) END IF chem_boundary_table( idomain, P_num_a7 ) = .TRUE. chem_dname_table( idomain, P_num_a7 ) = 'num_a7' chem_desc_table( idomain, P_num_a7 ) = 'Aerosol number, mode 7' chem_units_table( idomain, P_num_a7 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a7 )%stream(2) = 2097152 ! 00200000 F_num_a7 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==503)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 ! 00200040 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 ! 00200040 F_msa = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 ! 00200040 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 ! 00200040 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3so2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2h = chem_num_table(idomain) chem_index_table( PARAM_ch3so2h , idomain ) = P_ch3so2h ELSE P_ch3so2h = chem_index_table( PARAM_ch3so2h , idomain ) END IF chem_boundary_table( idomain, P_ch3so2h ) = .TRUE. chem_dname_table( idomain, P_ch3so2h ) = 'ch3so2h' chem_desc_table( idomain, P_ch3so2h ) = 'CH3SO2H mixing ratio' chem_units_table( idomain, P_ch3so2h ) = 'ppmv' chem_streams_table( idomain, P_ch3so2h )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2h )%stream(2) = 2097216 ! 00200040 F_ch3so2h = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 ! 00200040 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 ! 00200040 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 ! 00200040 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_ch3so2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2oo , idomain ) = P_ch3so2oo ELSE P_ch3so2oo = chem_index_table( PARAM_ch3so2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2oo ) = 'ch3so2oo' chem_desc_table( idomain, P_ch3so2oo ) = 'CH3SO2OO mixing ratio' chem_units_table( idomain, P_ch3so2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2oo )%stream(2) = 2097216 ! 00200040 F_ch3so2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2ch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2ch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2ch2oo , idomain ) = P_ch3so2ch2oo ELSE P_ch3so2ch2oo = chem_index_table( PARAM_ch3so2ch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2ch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2ch2oo ) = 'ch3so2ch2oo' chem_desc_table( idomain, P_ch3so2ch2oo ) = 'CH3SO2CH2OO mixing ratio' chem_units_table( idomain, P_ch3so2ch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2ch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2ch2oo )%stream(2) = 2097216 ! 00200040 F_ch3so2ch2oo = .TRUE. IF ( chem_index_table( PARAM_mtf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mtf = chem_num_table(idomain) chem_index_table( PARAM_mtf , idomain ) = P_mtf ELSE P_mtf = chem_index_table( PARAM_mtf , idomain ) END IF chem_boundary_table( idomain, P_mtf ) = .TRUE. chem_dname_table( idomain, P_mtf ) = 'mtf' chem_desc_table( idomain, P_mtf ) = 'MTF mixing ratio' chem_units_table( idomain, P_mtf ) = 'ppmv' chem_streams_table( idomain, P_mtf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mtf )%stream(2) = 2097216 ! 00200040 F_mtf = .TRUE. IF ( chem_index_table( PARAM_soag , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soag = chem_num_table(idomain) chem_index_table( PARAM_soag , idomain ) = P_soag ELSE P_soag = chem_index_table( PARAM_soag , idomain ) END IF chem_boundary_table( idomain, P_soag ) = .TRUE. chem_dname_table( idomain, P_soag ) = 'soag' chem_desc_table( idomain, P_soag ) = 'Gas-phase SOA' chem_units_table( idomain, P_soag ) = 'ppmv' chem_streams_table( idomain, P_soag )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soag )%stream(2) = 2097152 ! 00200000 F_soag = .TRUE. IF ( chem_index_table( PARAM_so4_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a1 = chem_num_table(idomain) chem_index_table( PARAM_so4_a1 , idomain ) = P_so4_a1 ELSE P_so4_a1 = chem_index_table( PARAM_so4_a1 , idomain ) END IF chem_boundary_table( idomain, P_so4_a1 ) = .TRUE. chem_dname_table( idomain, P_so4_a1 ) = 'so4_a1' chem_desc_table( idomain, P_so4_a1 ) = 'Sulfate aerosol, mode 1' chem_units_table( idomain, P_so4_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a1 )%stream(2) = 2097152 ! 00200000 F_so4_a1 = .TRUE. IF ( chem_index_table( PARAM_pom_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_a1 = chem_num_table(idomain) chem_index_table( PARAM_pom_a1 , idomain ) = P_pom_a1 ELSE P_pom_a1 = chem_index_table( PARAM_pom_a1 , idomain ) END IF chem_boundary_table( idomain, P_pom_a1 ) = .TRUE. chem_dname_table( idomain, P_pom_a1 ) = 'pom_a1' chem_desc_table( idomain, P_pom_a1 ) = 'Primary organic aerosol, mode 1' chem_units_table( idomain, P_pom_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pom_a1 )%stream(2) = 2097152 ! 00200000 F_pom_a1 = .TRUE. IF ( chem_index_table( PARAM_soa_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_a1 = chem_num_table(idomain) chem_index_table( PARAM_soa_a1 , idomain ) = P_soa_a1 ELSE P_soa_a1 = chem_index_table( PARAM_soa_a1 , idomain ) END IF chem_boundary_table( idomain, P_soa_a1 ) = .TRUE. chem_dname_table( idomain, P_soa_a1 ) = 'soa_a1' chem_desc_table( idomain, P_soa_a1 ) = 'Secondary organic aerosol, mode 1' chem_units_table( idomain, P_soa_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soa_a1 )%stream(2) = 2097152 ! 00200000 F_soa_a1 = .TRUE. IF ( chem_index_table( PARAM_bc_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a1 = chem_num_table(idomain) chem_index_table( PARAM_bc_a1 , idomain ) = P_bc_a1 ELSE P_bc_a1 = chem_index_table( PARAM_bc_a1 , idomain ) END IF chem_boundary_table( idomain, P_bc_a1 ) = .TRUE. chem_dname_table( idomain, P_bc_a1 ) = 'bc_a1' chem_desc_table( idomain, P_bc_a1 ) = 'Black carbon aerosol, mode 1' chem_units_table( idomain, P_bc_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a1 )%stream(2) = 2097152 ! 00200000 F_bc_a1 = .TRUE. IF ( chem_index_table( PARAM_dst_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_a1 = chem_num_table(idomain) chem_index_table( PARAM_dst_a1 , idomain ) = P_dst_a1 ELSE P_dst_a1 = chem_index_table( PARAM_dst_a1 , idomain ) END IF chem_boundary_table( idomain, P_dst_a1 ) = .TRUE. chem_dname_table( idomain, P_dst_a1 ) = 'dst_a1' chem_desc_table( idomain, P_dst_a1 ) = 'Dust aerosol, mode 1' chem_units_table( idomain, P_dst_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dst_a1 )%stream(2) = 2097152 ! 00200000 F_dst_a1 = .TRUE. IF ( chem_index_table( PARAM_ncl_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a1 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a1 , idomain ) = P_ncl_a1 ELSE P_ncl_a1 = chem_index_table( PARAM_ncl_a1 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a1 ) = .TRUE. chem_dname_table( idomain, P_ncl_a1 ) = 'ncl_a1' chem_desc_table( idomain, P_ncl_a1 ) = 'Sea salt aerosol, mode 1' chem_units_table( idomain, P_ncl_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_a1 )%stream(2) = 2097152 ! 00200000 F_ncl_a1 = .TRUE. IF ( chem_index_table( PARAM_wtr_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a1 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a1 , idomain ) = P_wtr_a1 ELSE P_wtr_a1 = chem_index_table( PARAM_wtr_a1 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a1 ) = .TRUE. chem_dname_table( idomain, P_wtr_a1 ) = 'wtr_a1' chem_desc_table( idomain, P_wtr_a1 ) = 'Aerosol water, mode 1' chem_units_table( idomain, P_wtr_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a1 )%stream(2) = 2097152 ! 00200000 F_wtr_a1 = .TRUE. IF ( chem_index_table( PARAM_num_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a1 = chem_num_table(idomain) chem_index_table( PARAM_num_a1 , idomain ) = P_num_a1 ELSE P_num_a1 = chem_index_table( PARAM_num_a1 , idomain ) END IF chem_boundary_table( idomain, P_num_a1 ) = .TRUE. chem_dname_table( idomain, P_num_a1 ) = 'num_a1' chem_desc_table( idomain, P_num_a1 ) = 'Aerosol number, mode 1' chem_units_table( idomain, P_num_a1 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a1 )%stream(2) = 2097152 ! 00200000 F_num_a1 = .TRUE. IF ( chem_index_table( PARAM_so4_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a2 = chem_num_table(idomain) chem_index_table( PARAM_so4_a2 , idomain ) = P_so4_a2 ELSE P_so4_a2 = chem_index_table( PARAM_so4_a2 , idomain ) END IF chem_boundary_table( idomain, P_so4_a2 ) = .TRUE. chem_dname_table( idomain, P_so4_a2 ) = 'so4_a2' chem_desc_table( idomain, P_so4_a2 ) = 'Sulfate aerosol, mode 2' chem_units_table( idomain, P_so4_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a2 )%stream(2) = 2097152 ! 00200000 F_so4_a2 = .TRUE. IF ( chem_index_table( PARAM_soa_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_a2 = chem_num_table(idomain) chem_index_table( PARAM_soa_a2 , idomain ) = P_soa_a2 ELSE P_soa_a2 = chem_index_table( PARAM_soa_a2 , idomain ) END IF chem_boundary_table( idomain, P_soa_a2 ) = .TRUE. chem_dname_table( idomain, P_soa_a2 ) = 'soa_a2' chem_desc_table( idomain, P_soa_a2 ) = 'Secondary organic aerosol, mode 2' chem_units_table( idomain, P_soa_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soa_a2 )%stream(2) = 2097152 ! 00200000 F_soa_a2 = .TRUE. IF ( chem_index_table( PARAM_ncl_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a2 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a2 , idomain ) = P_ncl_a2 ELSE P_ncl_a2 = chem_index_table( PARAM_ncl_a2 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a2 ) = .TRUE. chem_dname_table( idomain, P_ncl_a2 ) = 'ncl_a2' chem_desc_table( idomain, P_ncl_a2 ) = 'Sea salt aerosol, mode 2' chem_units_table( idomain, P_ncl_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_a2 )%stream(2) = 2097152 ! 00200000 F_ncl_a2 = .TRUE. IF ( chem_index_table( PARAM_wtr_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a2 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a2 , idomain ) = P_wtr_a2 ELSE P_wtr_a2 = chem_index_table( PARAM_wtr_a2 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a2 ) = .TRUE. chem_dname_table( idomain, P_wtr_a2 ) = 'wtr_a2' chem_desc_table( idomain, P_wtr_a2 ) = 'Aerosol water, mode 2' chem_units_table( idomain, P_wtr_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a2 )%stream(2) = 2097152 ! 00200000 F_wtr_a2 = .TRUE. IF ( chem_index_table( PARAM_num_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a2 = chem_num_table(idomain) chem_index_table( PARAM_num_a2 , idomain ) = P_num_a2 ELSE P_num_a2 = chem_index_table( PARAM_num_a2 , idomain ) END IF chem_boundary_table( idomain, P_num_a2 ) = .TRUE. chem_dname_table( idomain, P_num_a2 ) = 'num_a2' chem_desc_table( idomain, P_num_a2 ) = 'Aerosol number, mode 2' chem_units_table( idomain, P_num_a2 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a2 )%stream(2) = 2097152 ! 00200000 F_num_a2 = .TRUE. IF ( chem_index_table( PARAM_dst_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_a3 = chem_num_table(idomain) chem_index_table( PARAM_dst_a3 , idomain ) = P_dst_a3 ELSE P_dst_a3 = chem_index_table( PARAM_dst_a3 , idomain ) END IF chem_boundary_table( idomain, P_dst_a3 ) = .TRUE. chem_dname_table( idomain, P_dst_a3 ) = 'dst_a3' chem_desc_table( idomain, P_dst_a3 ) = 'Dust aerosol, mode 3' chem_units_table( idomain, P_dst_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dst_a3 )%stream(2) = 2097152 ! 00200000 F_dst_a3 = .TRUE. IF ( chem_index_table( PARAM_ncl_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a3 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a3 , idomain ) = P_ncl_a3 ELSE P_ncl_a3 = chem_index_table( PARAM_ncl_a3 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a3 ) = .TRUE. chem_dname_table( idomain, P_ncl_a3 ) = 'ncl_a3' chem_desc_table( idomain, P_ncl_a3 ) = 'Sea salt aerosol, mode 3' chem_units_table( idomain, P_ncl_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_a3 )%stream(2) = 2097152 ! 00200000 F_ncl_a3 = .TRUE. IF ( chem_index_table( PARAM_so4_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a3 = chem_num_table(idomain) chem_index_table( PARAM_so4_a3 , idomain ) = P_so4_a3 ELSE P_so4_a3 = chem_index_table( PARAM_so4_a3 , idomain ) END IF chem_boundary_table( idomain, P_so4_a3 ) = .TRUE. chem_dname_table( idomain, P_so4_a3 ) = 'so4_a3' chem_desc_table( idomain, P_so4_a3 ) = 'Sulfate aerosol, mode 3' chem_units_table( idomain, P_so4_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a3 )%stream(2) = 2097152 ! 00200000 F_so4_a3 = .TRUE. IF ( chem_index_table( PARAM_wtr_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a3 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a3 , idomain ) = P_wtr_a3 ELSE P_wtr_a3 = chem_index_table( PARAM_wtr_a3 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a3 ) = .TRUE. chem_dname_table( idomain, P_wtr_a3 ) = 'wtr_a3' chem_desc_table( idomain, P_wtr_a3 ) = 'Aerosol water, mode 3' chem_units_table( idomain, P_wtr_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a3 )%stream(2) = 2097152 ! 00200000 F_wtr_a3 = .TRUE. IF ( chem_index_table( PARAM_num_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a3 = chem_num_table(idomain) chem_index_table( PARAM_num_a3 , idomain ) = P_num_a3 ELSE P_num_a3 = chem_index_table( PARAM_num_a3 , idomain ) END IF chem_boundary_table( idomain, P_num_a3 ) = .TRUE. chem_dname_table( idomain, P_num_a3 ) = 'num_a3' chem_desc_table( idomain, P_num_a3 ) = 'Aerosol number, mode 3' chem_units_table( idomain, P_num_a3 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a3 )%stream(2) = 2097152 ! 00200000 F_num_a3 = .TRUE. IF ( chem_index_table( PARAM_so4_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c1 = chem_num_table(idomain) chem_index_table( PARAM_so4_c1 , idomain ) = P_so4_c1 ELSE P_so4_c1 = chem_index_table( PARAM_so4_c1 , idomain ) END IF chem_boundary_table( idomain, P_so4_c1 ) = .TRUE. chem_dname_table( idomain, P_so4_c1 ) = 'so4_c1' chem_desc_table( idomain, P_so4_c1 ) = 'Sulfate aerosol, mode 1' chem_units_table( idomain, P_so4_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_c1 )%stream(2) = 2097152 ! 00200000 F_so4_c1 = .TRUE. IF ( chem_index_table( PARAM_pom_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_c1 = chem_num_table(idomain) chem_index_table( PARAM_pom_c1 , idomain ) = P_pom_c1 ELSE P_pom_c1 = chem_index_table( PARAM_pom_c1 , idomain ) END IF chem_boundary_table( idomain, P_pom_c1 ) = .TRUE. chem_dname_table( idomain, P_pom_c1 ) = 'pom_c1' chem_desc_table( idomain, P_pom_c1 ) = 'Primary organic aerosol, mode 1' chem_units_table( idomain, P_pom_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_c1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pom_c1 )%stream(2) = 2097152 ! 00200000 F_pom_c1 = .TRUE. IF ( chem_index_table( PARAM_soa_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_c1 = chem_num_table(idomain) chem_index_table( PARAM_soa_c1 , idomain ) = P_soa_c1 ELSE P_soa_c1 = chem_index_table( PARAM_soa_c1 , idomain ) END IF chem_boundary_table( idomain, P_soa_c1 ) = .TRUE. chem_dname_table( idomain, P_soa_c1 ) = 'soa_c1' chem_desc_table( idomain, P_soa_c1 ) = 'Secondary organic aerosol, mode 1' chem_units_table( idomain, P_soa_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_c1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soa_c1 )%stream(2) = 2097152 ! 00200000 F_soa_c1 = .TRUE. IF ( chem_index_table( PARAM_bc_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_c1 = chem_num_table(idomain) chem_index_table( PARAM_bc_c1 , idomain ) = P_bc_c1 ELSE P_bc_c1 = chem_index_table( PARAM_bc_c1 , idomain ) END IF chem_boundary_table( idomain, P_bc_c1 ) = .TRUE. chem_dname_table( idomain, P_bc_c1 ) = 'bc_c1' chem_desc_table( idomain, P_bc_c1 ) = 'Black carbon aerosol, mode 1' chem_units_table( idomain, P_bc_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_c1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_c1 )%stream(2) = 2097152 ! 00200000 F_bc_c1 = .TRUE. IF ( chem_index_table( PARAM_dst_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_c1 = chem_num_table(idomain) chem_index_table( PARAM_dst_c1 , idomain ) = P_dst_c1 ELSE P_dst_c1 = chem_index_table( PARAM_dst_c1 , idomain ) END IF chem_boundary_table( idomain, P_dst_c1 ) = .TRUE. chem_dname_table( idomain, P_dst_c1 ) = 'dst_c1' chem_desc_table( idomain, P_dst_c1 ) = 'Dust aerosol, mode 1' chem_units_table( idomain, P_dst_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_c1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dst_c1 )%stream(2) = 2097152 ! 00200000 F_dst_c1 = .TRUE. IF ( chem_index_table( PARAM_ncl_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_c1 = chem_num_table(idomain) chem_index_table( PARAM_ncl_c1 , idomain ) = P_ncl_c1 ELSE P_ncl_c1 = chem_index_table( PARAM_ncl_c1 , idomain ) END IF chem_boundary_table( idomain, P_ncl_c1 ) = .TRUE. chem_dname_table( idomain, P_ncl_c1 ) = 'ncl_c1' chem_desc_table( idomain, P_ncl_c1 ) = 'Sea salt aerosol, mode 1' chem_units_table( idomain, P_ncl_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_c1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_c1 )%stream(2) = 2097152 ! 00200000 F_ncl_c1 = .TRUE. IF ( chem_index_table( PARAM_num_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c1 = chem_num_table(idomain) chem_index_table( PARAM_num_c1 , idomain ) = P_num_c1 ELSE P_num_c1 = chem_index_table( PARAM_num_c1 , idomain ) END IF chem_boundary_table( idomain, P_num_c1 ) = .TRUE. chem_dname_table( idomain, P_num_c1 ) = 'num_c1' chem_desc_table( idomain, P_num_c1 ) = 'Aerosol number, mode 1' chem_units_table( idomain, P_num_c1 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_c1 )%stream(2) = 2097152 ! 00200000 F_num_c1 = .TRUE. IF ( chem_index_table( PARAM_so4_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c2 = chem_num_table(idomain) chem_index_table( PARAM_so4_c2 , idomain ) = P_so4_c2 ELSE P_so4_c2 = chem_index_table( PARAM_so4_c2 , idomain ) END IF chem_boundary_table( idomain, P_so4_c2 ) = .TRUE. chem_dname_table( idomain, P_so4_c2 ) = 'so4_c2' chem_desc_table( idomain, P_so4_c2 ) = 'Sulfate aerosol, mode 2' chem_units_table( idomain, P_so4_c2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_c2 )%stream(2) = 2097152 ! 00200000 F_so4_c2 = .TRUE. IF ( chem_index_table( PARAM_soa_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_c2 = chem_num_table(idomain) chem_index_table( PARAM_soa_c2 , idomain ) = P_soa_c2 ELSE P_soa_c2 = chem_index_table( PARAM_soa_c2 , idomain ) END IF chem_boundary_table( idomain, P_soa_c2 ) = .TRUE. chem_dname_table( idomain, P_soa_c2 ) = 'soa_c2' chem_desc_table( idomain, P_soa_c2 ) = 'Secondary organic aerosol, mode 2' chem_units_table( idomain, P_soa_c2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_c2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soa_c2 )%stream(2) = 2097152 ! 00200000 F_soa_c2 = .TRUE. IF ( chem_index_table( PARAM_ncl_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_c2 = chem_num_table(idomain) chem_index_table( PARAM_ncl_c2 , idomain ) = P_ncl_c2 ELSE P_ncl_c2 = chem_index_table( PARAM_ncl_c2 , idomain ) END IF chem_boundary_table( idomain, P_ncl_c2 ) = .TRUE. chem_dname_table( idomain, P_ncl_c2 ) = 'ncl_c2' chem_desc_table( idomain, P_ncl_c2 ) = 'Sea salt aerosol, mode 2' chem_units_table( idomain, P_ncl_c2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_c2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_c2 )%stream(2) = 2097152 ! 00200000 F_ncl_c2 = .TRUE. IF ( chem_index_table( PARAM_num_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c2 = chem_num_table(idomain) chem_index_table( PARAM_num_c2 , idomain ) = P_num_c2 ELSE P_num_c2 = chem_index_table( PARAM_num_c2 , idomain ) END IF chem_boundary_table( idomain, P_num_c2 ) = .TRUE. chem_dname_table( idomain, P_num_c2 ) = 'num_c2' chem_desc_table( idomain, P_num_c2 ) = 'Aerosol number, mode 2' chem_units_table( idomain, P_num_c2 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_c2 )%stream(2) = 2097152 ! 00200000 F_num_c2 = .TRUE. IF ( chem_index_table( PARAM_dst_c3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_c3 = chem_num_table(idomain) chem_index_table( PARAM_dst_c3 , idomain ) = P_dst_c3 ELSE P_dst_c3 = chem_index_table( PARAM_dst_c3 , idomain ) END IF chem_boundary_table( idomain, P_dst_c3 ) = .TRUE. chem_dname_table( idomain, P_dst_c3 ) = 'dst_c3' chem_desc_table( idomain, P_dst_c3 ) = 'Dust aerosol, mode 3' chem_units_table( idomain, P_dst_c3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_c3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dst_c3 )%stream(2) = 2097152 ! 00200000 F_dst_c3 = .TRUE. IF ( chem_index_table( PARAM_ncl_c3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_c3 = chem_num_table(idomain) chem_index_table( PARAM_ncl_c3 , idomain ) = P_ncl_c3 ELSE P_ncl_c3 = chem_index_table( PARAM_ncl_c3 , idomain ) END IF chem_boundary_table( idomain, P_ncl_c3 ) = .TRUE. chem_dname_table( idomain, P_ncl_c3 ) = 'ncl_c3' chem_desc_table( idomain, P_ncl_c3 ) = 'Sea salt aerosol, mode 3' chem_units_table( idomain, P_ncl_c3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_c3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_c3 )%stream(2) = 2097152 ! 00200000 F_ncl_c3 = .TRUE. IF ( chem_index_table( PARAM_so4_c3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c3 = chem_num_table(idomain) chem_index_table( PARAM_so4_c3 , idomain ) = P_so4_c3 ELSE P_so4_c3 = chem_index_table( PARAM_so4_c3 , idomain ) END IF chem_boundary_table( idomain, P_so4_c3 ) = .TRUE. chem_dname_table( idomain, P_so4_c3 ) = 'so4_c3' chem_desc_table( idomain, P_so4_c3 ) = 'Sulfate aerosol, mode 3' chem_units_table( idomain, P_so4_c3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_c3 )%stream(2) = 2097152 ! 00200000 F_so4_c3 = .TRUE. IF ( chem_index_table( PARAM_num_c3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c3 = chem_num_table(idomain) chem_index_table( PARAM_num_c3 , idomain ) = P_num_c3 ELSE P_num_c3 = chem_index_table( PARAM_num_c3 , idomain ) END IF chem_boundary_table( idomain, P_num_c3 ) = .TRUE. chem_dname_table( idomain, P_num_c3 ) = 'num_c3' chem_desc_table( idomain, P_num_c3 ) = 'Aerosol number, mode 3' chem_units_table( idomain, P_num_c3 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_c3 )%stream(2) = 2097152 ! 00200000 F_num_c3 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==504)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 ! 00200040 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 ! 00200040 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 ! 00200040 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 ! 00200040 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 ! 00200040 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 ! 00200040 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 ! 00200040 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 ! 00200040 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 ! 00200040 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 ! 00200040 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 ! 00200040 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 ! 00200040 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 ! 00200040 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 ! 00200040 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 ! 00200040 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 ! 00200040 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 ! 00200040 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_par )%stream(2) = 2097216 ! 00200040 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 ! 00200040 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 ! 00200040 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_open )%stream(2) = 2097216 ! 00200040 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 ! 00200040 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 ! 00200040 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 ! 00200040 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 ! 00200040 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 ! 00200040 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 ! 00200040 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 ! 00200040 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 ! 00200040 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 ! 00200040 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 ! 00200040 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 ! 00200040 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_soag , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soag = chem_num_table(idomain) chem_index_table( PARAM_soag , idomain ) = P_soag ELSE P_soag = chem_index_table( PARAM_soag , idomain ) END IF chem_boundary_table( idomain, P_soag ) = .TRUE. chem_dname_table( idomain, P_soag ) = 'soag' chem_desc_table( idomain, P_soag ) = 'Gas-phase SOA' chem_units_table( idomain, P_soag ) = 'ppmv' chem_streams_table( idomain, P_soag )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soag )%stream(2) = 2097152 ! 00200000 F_soag = .TRUE. IF ( chem_index_table( PARAM_so4_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a1 = chem_num_table(idomain) chem_index_table( PARAM_so4_a1 , idomain ) = P_so4_a1 ELSE P_so4_a1 = chem_index_table( PARAM_so4_a1 , idomain ) END IF chem_boundary_table( idomain, P_so4_a1 ) = .TRUE. chem_dname_table( idomain, P_so4_a1 ) = 'so4_a1' chem_desc_table( idomain, P_so4_a1 ) = 'Sulfate aerosol, mode 1' chem_units_table( idomain, P_so4_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a1 )%stream(2) = 2097152 ! 00200000 F_so4_a1 = .TRUE. IF ( chem_index_table( PARAM_nh4_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a1 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a1 , idomain ) = P_nh4_a1 ELSE P_nh4_a1 = chem_index_table( PARAM_nh4_a1 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a1 ) = .TRUE. chem_dname_table( idomain, P_nh4_a1 ) = 'nh4_a1' chem_desc_table( idomain, P_nh4_a1 ) = 'Ammonium aerosol, mode 1' chem_units_table( idomain, P_nh4_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a1 )%stream(2) = 2097152 ! 00200000 F_nh4_a1 = .TRUE. IF ( chem_index_table( PARAM_pom_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_a1 = chem_num_table(idomain) chem_index_table( PARAM_pom_a1 , idomain ) = P_pom_a1 ELSE P_pom_a1 = chem_index_table( PARAM_pom_a1 , idomain ) END IF chem_boundary_table( idomain, P_pom_a1 ) = .TRUE. chem_dname_table( idomain, P_pom_a1 ) = 'pom_a1' chem_desc_table( idomain, P_pom_a1 ) = 'Primary organic aerosol, mode 1' chem_units_table( idomain, P_pom_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pom_a1 )%stream(2) = 2097152 ! 00200000 F_pom_a1 = .TRUE. IF ( chem_index_table( PARAM_soa_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_a1 = chem_num_table(idomain) chem_index_table( PARAM_soa_a1 , idomain ) = P_soa_a1 ELSE P_soa_a1 = chem_index_table( PARAM_soa_a1 , idomain ) END IF chem_boundary_table( idomain, P_soa_a1 ) = .TRUE. chem_dname_table( idomain, P_soa_a1 ) = 'soa_a1' chem_desc_table( idomain, P_soa_a1 ) = 'Secondary organic aerosol, mode 1' chem_units_table( idomain, P_soa_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soa_a1 )%stream(2) = 2097152 ! 00200000 F_soa_a1 = .TRUE. IF ( chem_index_table( PARAM_bc_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a1 = chem_num_table(idomain) chem_index_table( PARAM_bc_a1 , idomain ) = P_bc_a1 ELSE P_bc_a1 = chem_index_table( PARAM_bc_a1 , idomain ) END IF chem_boundary_table( idomain, P_bc_a1 ) = .TRUE. chem_dname_table( idomain, P_bc_a1 ) = 'bc_a1' chem_desc_table( idomain, P_bc_a1 ) = 'Black carbon aerosol, mode 1' chem_units_table( idomain, P_bc_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a1 )%stream(2) = 2097152 ! 00200000 F_bc_a1 = .TRUE. IF ( chem_index_table( PARAM_ncl_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a1 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a1 , idomain ) = P_ncl_a1 ELSE P_ncl_a1 = chem_index_table( PARAM_ncl_a1 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a1 ) = .TRUE. chem_dname_table( idomain, P_ncl_a1 ) = 'ncl_a1' chem_desc_table( idomain, P_ncl_a1 ) = 'Sea salt aerosol, mode 1' chem_units_table( idomain, P_ncl_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_a1 )%stream(2) = 2097152 ! 00200000 F_ncl_a1 = .TRUE. IF ( chem_index_table( PARAM_wtr_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a1 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a1 , idomain ) = P_wtr_a1 ELSE P_wtr_a1 = chem_index_table( PARAM_wtr_a1 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a1 ) = .TRUE. chem_dname_table( idomain, P_wtr_a1 ) = 'wtr_a1' chem_desc_table( idomain, P_wtr_a1 ) = 'Aerosol water, mode 1' chem_units_table( idomain, P_wtr_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a1 )%stream(2) = 2097152 ! 00200000 F_wtr_a1 = .TRUE. IF ( chem_index_table( PARAM_num_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a1 = chem_num_table(idomain) chem_index_table( PARAM_num_a1 , idomain ) = P_num_a1 ELSE P_num_a1 = chem_index_table( PARAM_num_a1 , idomain ) END IF chem_boundary_table( idomain, P_num_a1 ) = .TRUE. chem_dname_table( idomain, P_num_a1 ) = 'num_a1' chem_desc_table( idomain, P_num_a1 ) = 'Aerosol number, mode 1' chem_units_table( idomain, P_num_a1 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a1 )%stream(2) = 2097152 ! 00200000 F_num_a1 = .TRUE. IF ( chem_index_table( PARAM_so4_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a2 = chem_num_table(idomain) chem_index_table( PARAM_so4_a2 , idomain ) = P_so4_a2 ELSE P_so4_a2 = chem_index_table( PARAM_so4_a2 , idomain ) END IF chem_boundary_table( idomain, P_so4_a2 ) = .TRUE. chem_dname_table( idomain, P_so4_a2 ) = 'so4_a2' chem_desc_table( idomain, P_so4_a2 ) = 'Sulfate aerosol, mode 2' chem_units_table( idomain, P_so4_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a2 )%stream(2) = 2097152 ! 00200000 F_so4_a2 = .TRUE. IF ( chem_index_table( PARAM_nh4_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a2 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a2 , idomain ) = P_nh4_a2 ELSE P_nh4_a2 = chem_index_table( PARAM_nh4_a2 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a2 ) = .TRUE. chem_dname_table( idomain, P_nh4_a2 ) = 'nh4_a2' chem_desc_table( idomain, P_nh4_a2 ) = 'Ammonium aerosol, mode 2' chem_units_table( idomain, P_nh4_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a2 )%stream(2) = 2097152 ! 00200000 F_nh4_a2 = .TRUE. IF ( chem_index_table( PARAM_soa_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_a2 = chem_num_table(idomain) chem_index_table( PARAM_soa_a2 , idomain ) = P_soa_a2 ELSE P_soa_a2 = chem_index_table( PARAM_soa_a2 , idomain ) END IF chem_boundary_table( idomain, P_soa_a2 ) = .TRUE. chem_dname_table( idomain, P_soa_a2 ) = 'soa_a2' chem_desc_table( idomain, P_soa_a2 ) = 'Secondary organic aerosol, mode 2' chem_units_table( idomain, P_soa_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soa_a2 )%stream(2) = 2097152 ! 00200000 F_soa_a2 = .TRUE. IF ( chem_index_table( PARAM_ncl_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a2 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a2 , idomain ) = P_ncl_a2 ELSE P_ncl_a2 = chem_index_table( PARAM_ncl_a2 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a2 ) = .TRUE. chem_dname_table( idomain, P_ncl_a2 ) = 'ncl_a2' chem_desc_table( idomain, P_ncl_a2 ) = 'Sea salt aerosol, mode 2' chem_units_table( idomain, P_ncl_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_a2 )%stream(2) = 2097152 ! 00200000 F_ncl_a2 = .TRUE. IF ( chem_index_table( PARAM_wtr_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a2 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a2 , idomain ) = P_wtr_a2 ELSE P_wtr_a2 = chem_index_table( PARAM_wtr_a2 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a2 ) = .TRUE. chem_dname_table( idomain, P_wtr_a2 ) = 'wtr_a2' chem_desc_table( idomain, P_wtr_a2 ) = 'Aerosol water, mode 2' chem_units_table( idomain, P_wtr_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a2 )%stream(2) = 2097152 ! 00200000 F_wtr_a2 = .TRUE. IF ( chem_index_table( PARAM_num_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a2 = chem_num_table(idomain) chem_index_table( PARAM_num_a2 , idomain ) = P_num_a2 ELSE P_num_a2 = chem_index_table( PARAM_num_a2 , idomain ) END IF chem_boundary_table( idomain, P_num_a2 ) = .TRUE. chem_dname_table( idomain, P_num_a2 ) = 'num_a2' chem_desc_table( idomain, P_num_a2 ) = 'Aerosol number, mode 2' chem_units_table( idomain, P_num_a2 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a2 )%stream(2) = 2097152 ! 00200000 F_num_a2 = .TRUE. IF ( chem_index_table( PARAM_pom_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_a3 = chem_num_table(idomain) chem_index_table( PARAM_pom_a3 , idomain ) = P_pom_a3 ELSE P_pom_a3 = chem_index_table( PARAM_pom_a3 , idomain ) END IF chem_boundary_table( idomain, P_pom_a3 ) = .TRUE. chem_dname_table( idomain, P_pom_a3 ) = 'pom_a3' chem_desc_table( idomain, P_pom_a3 ) = 'Primary organic aerosol, mode 3' chem_units_table( idomain, P_pom_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pom_a3 )%stream(2) = 2097152 ! 00200000 F_pom_a3 = .TRUE. IF ( chem_index_table( PARAM_bc_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a3 = chem_num_table(idomain) chem_index_table( PARAM_bc_a3 , idomain ) = P_bc_a3 ELSE P_bc_a3 = chem_index_table( PARAM_bc_a3 , idomain ) END IF chem_boundary_table( idomain, P_bc_a3 ) = .TRUE. chem_dname_table( idomain, P_bc_a3 ) = 'bc_a3' chem_desc_table( idomain, P_bc_a3 ) = 'Black carbon aerosol, mode 3' chem_units_table( idomain, P_bc_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a3 )%stream(2) = 2097152 ! 00200000 F_bc_a3 = .TRUE. IF ( chem_index_table( PARAM_wtr_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a3 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a3 , idomain ) = P_wtr_a3 ELSE P_wtr_a3 = chem_index_table( PARAM_wtr_a3 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a3 ) = .TRUE. chem_dname_table( idomain, P_wtr_a3 ) = 'wtr_a3' chem_desc_table( idomain, P_wtr_a3 ) = 'Aerosol water, mode 3' chem_units_table( idomain, P_wtr_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a3 )%stream(2) = 2097152 ! 00200000 F_wtr_a3 = .TRUE. IF ( chem_index_table( PARAM_num_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a3 = chem_num_table(idomain) chem_index_table( PARAM_num_a3 , idomain ) = P_num_a3 ELSE P_num_a3 = chem_index_table( PARAM_num_a3 , idomain ) END IF chem_boundary_table( idomain, P_num_a3 ) = .TRUE. chem_dname_table( idomain, P_num_a3 ) = 'num_a3' chem_desc_table( idomain, P_num_a3 ) = 'Aerosol number, mode 3' chem_units_table( idomain, P_num_a3 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a3 )%stream(2) = 2097152 ! 00200000 F_num_a3 = .TRUE. IF ( chem_index_table( PARAM_ncl_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a4 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a4 , idomain ) = P_ncl_a4 ELSE P_ncl_a4 = chem_index_table( PARAM_ncl_a4 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a4 ) = .TRUE. chem_dname_table( idomain, P_ncl_a4 ) = 'ncl_a4' chem_desc_table( idomain, P_ncl_a4 ) = 'Sea salt aerosol, mode 4' chem_units_table( idomain, P_ncl_a4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_a4 )%stream(2) = 2097152 ! 00200000 F_ncl_a4 = .TRUE. IF ( chem_index_table( PARAM_so4_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a4 = chem_num_table(idomain) chem_index_table( PARAM_so4_a4 , idomain ) = P_so4_a4 ELSE P_so4_a4 = chem_index_table( PARAM_so4_a4 , idomain ) END IF chem_boundary_table( idomain, P_so4_a4 ) = .TRUE. chem_dname_table( idomain, P_so4_a4 ) = 'so4_a4' chem_desc_table( idomain, P_so4_a4 ) = 'Sulfate aerosol, mode 4' chem_units_table( idomain, P_so4_a4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a4 )%stream(2) = 2097152 ! 00200000 F_so4_a4 = .TRUE. IF ( chem_index_table( PARAM_nh4_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a4 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a4 , idomain ) = P_nh4_a4 ELSE P_nh4_a4 = chem_index_table( PARAM_nh4_a4 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a4 ) = .TRUE. chem_dname_table( idomain, P_nh4_a4 ) = 'nh4_a4' chem_desc_table( idomain, P_nh4_a4 ) = 'Ammonium aerosol, mode 4' chem_units_table( idomain, P_nh4_a4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a4 )%stream(2) = 2097152 ! 00200000 F_nh4_a4 = .TRUE. IF ( chem_index_table( PARAM_wtr_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a4 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a4 , idomain ) = P_wtr_a4 ELSE P_wtr_a4 = chem_index_table( PARAM_wtr_a4 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a4 ) = .TRUE. chem_dname_table( idomain, P_wtr_a4 ) = 'wtr_a4' chem_desc_table( idomain, P_wtr_a4 ) = 'Aerosol water, mode 4' chem_units_table( idomain, P_wtr_a4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a4 )%stream(2) = 2097152 ! 00200000 F_wtr_a4 = .TRUE. IF ( chem_index_table( PARAM_num_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a4 = chem_num_table(idomain) chem_index_table( PARAM_num_a4 , idomain ) = P_num_a4 ELSE P_num_a4 = chem_index_table( PARAM_num_a4 , idomain ) END IF chem_boundary_table( idomain, P_num_a4 ) = .TRUE. chem_dname_table( idomain, P_num_a4 ) = 'num_a4' chem_desc_table( idomain, P_num_a4 ) = 'Aerosol number, mode 4' chem_units_table( idomain, P_num_a4 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a4 )%stream(2) = 2097152 ! 00200000 F_num_a4 = .TRUE. IF ( chem_index_table( PARAM_dst_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_a5 = chem_num_table(idomain) chem_index_table( PARAM_dst_a5 , idomain ) = P_dst_a5 ELSE P_dst_a5 = chem_index_table( PARAM_dst_a5 , idomain ) END IF chem_boundary_table( idomain, P_dst_a5 ) = .TRUE. chem_dname_table( idomain, P_dst_a5 ) = 'dst_a5' chem_desc_table( idomain, P_dst_a5 ) = 'Dust aerosol, mode 5' chem_units_table( idomain, P_dst_a5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_a5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dst_a5 )%stream(2) = 2097152 ! 00200000 F_dst_a5 = .TRUE. IF ( chem_index_table( PARAM_so4_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a5 = chem_num_table(idomain) chem_index_table( PARAM_so4_a5 , idomain ) = P_so4_a5 ELSE P_so4_a5 = chem_index_table( PARAM_so4_a5 , idomain ) END IF chem_boundary_table( idomain, P_so4_a5 ) = .TRUE. chem_dname_table( idomain, P_so4_a5 ) = 'so4_a5' chem_desc_table( idomain, P_so4_a5 ) = 'Sulfate aerosol, mode 5' chem_units_table( idomain, P_so4_a5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a5 )%stream(2) = 2097152 ! 00200000 F_so4_a5 = .TRUE. IF ( chem_index_table( PARAM_nh4_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a5 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a5 , idomain ) = P_nh4_a5 ELSE P_nh4_a5 = chem_index_table( PARAM_nh4_a5 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a5 ) = .TRUE. chem_dname_table( idomain, P_nh4_a5 ) = 'nh4_a5' chem_desc_table( idomain, P_nh4_a5 ) = 'Ammonium aerosol, mode 5' chem_units_table( idomain, P_nh4_a5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a5 )%stream(2) = 2097152 ! 00200000 F_nh4_a5 = .TRUE. IF ( chem_index_table( PARAM_wtr_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a5 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a5 , idomain ) = P_wtr_a5 ELSE P_wtr_a5 = chem_index_table( PARAM_wtr_a5 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a5 ) = .TRUE. chem_dname_table( idomain, P_wtr_a5 ) = 'wtr_a5' chem_desc_table( idomain, P_wtr_a5 ) = 'Aerosol water, mode 5' chem_units_table( idomain, P_wtr_a5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a5 )%stream(2) = 2097152 ! 00200000 F_wtr_a5 = .TRUE. IF ( chem_index_table( PARAM_num_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a5 = chem_num_table(idomain) chem_index_table( PARAM_num_a5 , idomain ) = P_num_a5 ELSE P_num_a5 = chem_index_table( PARAM_num_a5 , idomain ) END IF chem_boundary_table( idomain, P_num_a5 ) = .TRUE. chem_dname_table( idomain, P_num_a5 ) = 'num_a5' chem_desc_table( idomain, P_num_a5 ) = 'Aerosol number, mode 5' chem_units_table( idomain, P_num_a5 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a5 )%stream(2) = 2097152 ! 00200000 F_num_a5 = .TRUE. IF ( chem_index_table( PARAM_ncl_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a6 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a6 , idomain ) = P_ncl_a6 ELSE P_ncl_a6 = chem_index_table( PARAM_ncl_a6 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a6 ) = .TRUE. chem_dname_table( idomain, P_ncl_a6 ) = 'ncl_a6' chem_desc_table( idomain, P_ncl_a6 ) = 'Sea salt aerosol, mode 6' chem_units_table( idomain, P_ncl_a6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_a6 )%stream(2) = 2097152 ! 00200000 F_ncl_a6 = .TRUE. IF ( chem_index_table( PARAM_so4_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a6 = chem_num_table(idomain) chem_index_table( PARAM_so4_a6 , idomain ) = P_so4_a6 ELSE P_so4_a6 = chem_index_table( PARAM_so4_a6 , idomain ) END IF chem_boundary_table( idomain, P_so4_a6 ) = .TRUE. chem_dname_table( idomain, P_so4_a6 ) = 'so4_a6' chem_desc_table( idomain, P_so4_a6 ) = 'Sulfate aerosol, mode 6' chem_units_table( idomain, P_so4_a6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a6 )%stream(2) = 2097152 ! 00200000 F_so4_a6 = .TRUE. IF ( chem_index_table( PARAM_nh4_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a6 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a6 , idomain ) = P_nh4_a6 ELSE P_nh4_a6 = chem_index_table( PARAM_nh4_a6 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a6 ) = .TRUE. chem_dname_table( idomain, P_nh4_a6 ) = 'nh4_a6' chem_desc_table( idomain, P_nh4_a6 ) = 'Ammonium aerosol, mode 6' chem_units_table( idomain, P_nh4_a6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a6 )%stream(2) = 2097152 ! 00200000 F_nh4_a6 = .TRUE. IF ( chem_index_table( PARAM_wtr_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a6 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a6 , idomain ) = P_wtr_a6 ELSE P_wtr_a6 = chem_index_table( PARAM_wtr_a6 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a6 ) = .TRUE. chem_dname_table( idomain, P_wtr_a6 ) = 'wtr_a6' chem_desc_table( idomain, P_wtr_a6 ) = 'Aerosol water, mode 6' chem_units_table( idomain, P_wtr_a6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a6 )%stream(2) = 2097152 ! 00200000 F_wtr_a6 = .TRUE. IF ( chem_index_table( PARAM_num_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a6 = chem_num_table(idomain) chem_index_table( PARAM_num_a6 , idomain ) = P_num_a6 ELSE P_num_a6 = chem_index_table( PARAM_num_a6 , idomain ) END IF chem_boundary_table( idomain, P_num_a6 ) = .TRUE. chem_dname_table( idomain, P_num_a6 ) = 'num_a6' chem_desc_table( idomain, P_num_a6 ) = 'Aerosol number, mode 6' chem_units_table( idomain, P_num_a6 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a6 )%stream(2) = 2097152 ! 00200000 F_num_a6 = .TRUE. IF ( chem_index_table( PARAM_dst_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_a7 = chem_num_table(idomain) chem_index_table( PARAM_dst_a7 , idomain ) = P_dst_a7 ELSE P_dst_a7 = chem_index_table( PARAM_dst_a7 , idomain ) END IF chem_boundary_table( idomain, P_dst_a7 ) = .TRUE. chem_dname_table( idomain, P_dst_a7 ) = 'dst_a7' chem_desc_table( idomain, P_dst_a7 ) = 'Dust aerosol, mode 7' chem_units_table( idomain, P_dst_a7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_a7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dst_a7 )%stream(2) = 2097152 ! 00200000 F_dst_a7 = .TRUE. IF ( chem_index_table( PARAM_so4_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a7 = chem_num_table(idomain) chem_index_table( PARAM_so4_a7 , idomain ) = P_so4_a7 ELSE P_so4_a7 = chem_index_table( PARAM_so4_a7 , idomain ) END IF chem_boundary_table( idomain, P_so4_a7 ) = .TRUE. chem_dname_table( idomain, P_so4_a7 ) = 'so4_a7' chem_desc_table( idomain, P_so4_a7 ) = 'Sulfate aerosol, mode 7' chem_units_table( idomain, P_so4_a7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a7 )%stream(2) = 2097152 ! 00200000 F_so4_a7 = .TRUE. IF ( chem_index_table( PARAM_nh4_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a7 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a7 , idomain ) = P_nh4_a7 ELSE P_nh4_a7 = chem_index_table( PARAM_nh4_a7 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a7 ) = .TRUE. chem_dname_table( idomain, P_nh4_a7 ) = 'nh4_a7' chem_desc_table( idomain, P_nh4_a7 ) = 'Ammonium aerosol, mode 7' chem_units_table( idomain, P_nh4_a7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a7 )%stream(2) = 2097152 ! 00200000 F_nh4_a7 = .TRUE. IF ( chem_index_table( PARAM_wtr_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a7 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a7 , idomain ) = P_wtr_a7 ELSE P_wtr_a7 = chem_index_table( PARAM_wtr_a7 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a7 ) = .TRUE. chem_dname_table( idomain, P_wtr_a7 ) = 'wtr_a7' chem_desc_table( idomain, P_wtr_a7 ) = 'Aerosol water, mode 7' chem_units_table( idomain, P_wtr_a7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_wtr_a7 )%stream(2) = 2097152 ! 00200000 F_wtr_a7 = .TRUE. IF ( chem_index_table( PARAM_num_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a7 = chem_num_table(idomain) chem_index_table( PARAM_num_a7 , idomain ) = P_num_a7 ELSE P_num_a7 = chem_index_table( PARAM_num_a7 , idomain ) END IF chem_boundary_table( idomain, P_num_a7 ) = .TRUE. chem_dname_table( idomain, P_num_a7 ) = 'num_a7' chem_desc_table( idomain, P_num_a7 ) = 'Aerosol number, mode 7' chem_units_table( idomain, P_num_a7 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a7 )%stream(2) = 2097152 ! 00200000 F_num_a7 = .TRUE. IF ( chem_index_table( PARAM_so4_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c1 = chem_num_table(idomain) chem_index_table( PARAM_so4_c1 , idomain ) = P_so4_c1 ELSE P_so4_c1 = chem_index_table( PARAM_so4_c1 , idomain ) END IF chem_boundary_table( idomain, P_so4_c1 ) = .TRUE. chem_dname_table( idomain, P_so4_c1 ) = 'so4_c1' chem_desc_table( idomain, P_so4_c1 ) = 'Sulfate aerosol, mode 1' chem_units_table( idomain, P_so4_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_c1 )%stream(2) = 2097152 ! 00200000 F_so4_c1 = .TRUE. IF ( chem_index_table( PARAM_nh4_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_c1 = chem_num_table(idomain) chem_index_table( PARAM_nh4_c1 , idomain ) = P_nh4_c1 ELSE P_nh4_c1 = chem_index_table( PARAM_nh4_c1 , idomain ) END IF chem_boundary_table( idomain, P_nh4_c1 ) = .TRUE. chem_dname_table( idomain, P_nh4_c1 ) = 'nh4_c1' chem_desc_table( idomain, P_nh4_c1 ) = 'Ammonium aerosol, mode 1' chem_units_table( idomain, P_nh4_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_c1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_c1 )%stream(2) = 2097152 ! 00200000 F_nh4_c1 = .TRUE. IF ( chem_index_table( PARAM_pom_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_c1 = chem_num_table(idomain) chem_index_table( PARAM_pom_c1 , idomain ) = P_pom_c1 ELSE P_pom_c1 = chem_index_table( PARAM_pom_c1 , idomain ) END IF chem_boundary_table( idomain, P_pom_c1 ) = .TRUE. chem_dname_table( idomain, P_pom_c1 ) = 'pom_c1' chem_desc_table( idomain, P_pom_c1 ) = 'Primary organic aerosol, mode 1' chem_units_table( idomain, P_pom_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_c1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pom_c1 )%stream(2) = 2097152 ! 00200000 F_pom_c1 = .TRUE. IF ( chem_index_table( PARAM_soa_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_c1 = chem_num_table(idomain) chem_index_table( PARAM_soa_c1 , idomain ) = P_soa_c1 ELSE P_soa_c1 = chem_index_table( PARAM_soa_c1 , idomain ) END IF chem_boundary_table( idomain, P_soa_c1 ) = .TRUE. chem_dname_table( idomain, P_soa_c1 ) = 'soa_c1' chem_desc_table( idomain, P_soa_c1 ) = 'Secondary organic aerosol, mode 1' chem_units_table( idomain, P_soa_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_c1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soa_c1 )%stream(2) = 2097152 ! 00200000 F_soa_c1 = .TRUE. IF ( chem_index_table( PARAM_bc_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_c1 = chem_num_table(idomain) chem_index_table( PARAM_bc_c1 , idomain ) = P_bc_c1 ELSE P_bc_c1 = chem_index_table( PARAM_bc_c1 , idomain ) END IF chem_boundary_table( idomain, P_bc_c1 ) = .TRUE. chem_dname_table( idomain, P_bc_c1 ) = 'bc_c1' chem_desc_table( idomain, P_bc_c1 ) = 'Black carbon aerosol, mode 1' chem_units_table( idomain, P_bc_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_c1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_c1 )%stream(2) = 2097152 ! 00200000 F_bc_c1 = .TRUE. IF ( chem_index_table( PARAM_ncl_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_c1 = chem_num_table(idomain) chem_index_table( PARAM_ncl_c1 , idomain ) = P_ncl_c1 ELSE P_ncl_c1 = chem_index_table( PARAM_ncl_c1 , idomain ) END IF chem_boundary_table( idomain, P_ncl_c1 ) = .TRUE. chem_dname_table( idomain, P_ncl_c1 ) = 'ncl_c1' chem_desc_table( idomain, P_ncl_c1 ) = 'Sea salt aerosol, mode 1' chem_units_table( idomain, P_ncl_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_c1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_c1 )%stream(2) = 2097152 ! 00200000 F_ncl_c1 = .TRUE. IF ( chem_index_table( PARAM_num_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c1 = chem_num_table(idomain) chem_index_table( PARAM_num_c1 , idomain ) = P_num_c1 ELSE P_num_c1 = chem_index_table( PARAM_num_c1 , idomain ) END IF chem_boundary_table( idomain, P_num_c1 ) = .TRUE. chem_dname_table( idomain, P_num_c1 ) = 'num_c1' chem_desc_table( idomain, P_num_c1 ) = 'Aerosol number, mode 1' chem_units_table( idomain, P_num_c1 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c1 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_c1 )%stream(2) = 2097152 ! 00200000 F_num_c1 = .TRUE. IF ( chem_index_table( PARAM_so4_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c2 = chem_num_table(idomain) chem_index_table( PARAM_so4_c2 , idomain ) = P_so4_c2 ELSE P_so4_c2 = chem_index_table( PARAM_so4_c2 , idomain ) END IF chem_boundary_table( idomain, P_so4_c2 ) = .TRUE. chem_dname_table( idomain, P_so4_c2 ) = 'so4_c2' chem_desc_table( idomain, P_so4_c2 ) = 'Sulfate aerosol, mode 2' chem_units_table( idomain, P_so4_c2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_c2 )%stream(2) = 2097152 ! 00200000 F_so4_c2 = .TRUE. IF ( chem_index_table( PARAM_nh4_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_c2 = chem_num_table(idomain) chem_index_table( PARAM_nh4_c2 , idomain ) = P_nh4_c2 ELSE P_nh4_c2 = chem_index_table( PARAM_nh4_c2 , idomain ) END IF chem_boundary_table( idomain, P_nh4_c2 ) = .TRUE. chem_dname_table( idomain, P_nh4_c2 ) = 'nh4_c2' chem_desc_table( idomain, P_nh4_c2 ) = 'Ammonium aerosol, mode 2' chem_units_table( idomain, P_nh4_c2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_c2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_c2 )%stream(2) = 2097152 ! 00200000 F_nh4_c2 = .TRUE. IF ( chem_index_table( PARAM_soa_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_c2 = chem_num_table(idomain) chem_index_table( PARAM_soa_c2 , idomain ) = P_soa_c2 ELSE P_soa_c2 = chem_index_table( PARAM_soa_c2 , idomain ) END IF chem_boundary_table( idomain, P_soa_c2 ) = .TRUE. chem_dname_table( idomain, P_soa_c2 ) = 'soa_c2' chem_desc_table( idomain, P_soa_c2 ) = 'Secondary organic aerosol, mode 2' chem_units_table( idomain, P_soa_c2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_c2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_soa_c2 )%stream(2) = 2097152 ! 00200000 F_soa_c2 = .TRUE. IF ( chem_index_table( PARAM_ncl_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_c2 = chem_num_table(idomain) chem_index_table( PARAM_ncl_c2 , idomain ) = P_ncl_c2 ELSE P_ncl_c2 = chem_index_table( PARAM_ncl_c2 , idomain ) END IF chem_boundary_table( idomain, P_ncl_c2 ) = .TRUE. chem_dname_table( idomain, P_ncl_c2 ) = 'ncl_c2' chem_desc_table( idomain, P_ncl_c2 ) = 'Sea salt aerosol, mode 2' chem_units_table( idomain, P_ncl_c2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_c2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_c2 )%stream(2) = 2097152 ! 00200000 F_ncl_c2 = .TRUE. IF ( chem_index_table( PARAM_num_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c2 = chem_num_table(idomain) chem_index_table( PARAM_num_c2 , idomain ) = P_num_c2 ELSE P_num_c2 = chem_index_table( PARAM_num_c2 , idomain ) END IF chem_boundary_table( idomain, P_num_c2 ) = .TRUE. chem_dname_table( idomain, P_num_c2 ) = 'num_c2' chem_desc_table( idomain, P_num_c2 ) = 'Aerosol number, mode 2' chem_units_table( idomain, P_num_c2 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_c2 )%stream(2) = 2097152 ! 00200000 F_num_c2 = .TRUE. IF ( chem_index_table( PARAM_pom_c3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_c3 = chem_num_table(idomain) chem_index_table( PARAM_pom_c3 , idomain ) = P_pom_c3 ELSE P_pom_c3 = chem_index_table( PARAM_pom_c3 , idomain ) END IF chem_boundary_table( idomain, P_pom_c3 ) = .TRUE. chem_dname_table( idomain, P_pom_c3 ) = 'pom_c3' chem_desc_table( idomain, P_pom_c3 ) = 'Primary organic aerosol, mode 3' chem_units_table( idomain, P_pom_c3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_c3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pom_c3 )%stream(2) = 2097152 ! 00200000 F_pom_c3 = .TRUE. IF ( chem_index_table( PARAM_bc_c3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_c3 = chem_num_table(idomain) chem_index_table( PARAM_bc_c3 , idomain ) = P_bc_c3 ELSE P_bc_c3 = chem_index_table( PARAM_bc_c3 , idomain ) END IF chem_boundary_table( idomain, P_bc_c3 ) = .TRUE. chem_dname_table( idomain, P_bc_c3 ) = 'bc_c3' chem_desc_table( idomain, P_bc_c3 ) = 'Black carbon aerosol, mode 3' chem_units_table( idomain, P_bc_c3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_c3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_c3 )%stream(2) = 2097152 ! 00200000 F_bc_c3 = .TRUE. IF ( chem_index_table( PARAM_num_c3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c3 = chem_num_table(idomain) chem_index_table( PARAM_num_c3 , idomain ) = P_num_c3 ELSE P_num_c3 = chem_index_table( PARAM_num_c3 , idomain ) END IF chem_boundary_table( idomain, P_num_c3 ) = .TRUE. chem_dname_table( idomain, P_num_c3 ) = 'num_c3' chem_desc_table( idomain, P_num_c3 ) = 'Aerosol number, mode 3' chem_units_table( idomain, P_num_c3 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_c3 )%stream(2) = 2097152 ! 00200000 F_num_c3 = .TRUE. IF ( chem_index_table( PARAM_ncl_c4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_c4 = chem_num_table(idomain) chem_index_table( PARAM_ncl_c4 , idomain ) = P_ncl_c4 ELSE P_ncl_c4 = chem_index_table( PARAM_ncl_c4 , idomain ) END IF chem_boundary_table( idomain, P_ncl_c4 ) = .TRUE. chem_dname_table( idomain, P_ncl_c4 ) = 'ncl_c4' chem_desc_table( idomain, P_ncl_c4 ) = 'Sea salt aerosol, mode 4' chem_units_table( idomain, P_ncl_c4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_c4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_c4 )%stream(2) = 2097152 ! 00200000 F_ncl_c4 = .TRUE. IF ( chem_index_table( PARAM_so4_c4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c4 = chem_num_table(idomain) chem_index_table( PARAM_so4_c4 , idomain ) = P_so4_c4 ELSE P_so4_c4 = chem_index_table( PARAM_so4_c4 , idomain ) END IF chem_boundary_table( idomain, P_so4_c4 ) = .TRUE. chem_dname_table( idomain, P_so4_c4 ) = 'so4_c4' chem_desc_table( idomain, P_so4_c4 ) = 'Sulfate aerosol, mode 4' chem_units_table( idomain, P_so4_c4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_c4 )%stream(2) = 2097152 ! 00200000 F_so4_c4 = .TRUE. IF ( chem_index_table( PARAM_nh4_c4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_c4 = chem_num_table(idomain) chem_index_table( PARAM_nh4_c4 , idomain ) = P_nh4_c4 ELSE P_nh4_c4 = chem_index_table( PARAM_nh4_c4 , idomain ) END IF chem_boundary_table( idomain, P_nh4_c4 ) = .TRUE. chem_dname_table( idomain, P_nh4_c4 ) = 'nh4_c4' chem_desc_table( idomain, P_nh4_c4 ) = 'Ammonium aerosol, mode 4' chem_units_table( idomain, P_nh4_c4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_c4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_c4 )%stream(2) = 2097152 ! 00200000 F_nh4_c4 = .TRUE. IF ( chem_index_table( PARAM_num_c4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c4 = chem_num_table(idomain) chem_index_table( PARAM_num_c4 , idomain ) = P_num_c4 ELSE P_num_c4 = chem_index_table( PARAM_num_c4 , idomain ) END IF chem_boundary_table( idomain, P_num_c4 ) = .TRUE. chem_dname_table( idomain, P_num_c4 ) = 'num_c4' chem_desc_table( idomain, P_num_c4 ) = 'Aerosol number, mode 4' chem_units_table( idomain, P_num_c4 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_c4 )%stream(2) = 2097152 ! 00200000 F_num_c4 = .TRUE. IF ( chem_index_table( PARAM_dst_c5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_c5 = chem_num_table(idomain) chem_index_table( PARAM_dst_c5 , idomain ) = P_dst_c5 ELSE P_dst_c5 = chem_index_table( PARAM_dst_c5 , idomain ) END IF chem_boundary_table( idomain, P_dst_c5 ) = .TRUE. chem_dname_table( idomain, P_dst_c5 ) = 'dst_c5' chem_desc_table( idomain, P_dst_c5 ) = 'Dust aerosol, mode 5' chem_units_table( idomain, P_dst_c5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_c5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dst_c5 )%stream(2) = 2097152 ! 00200000 F_dst_c5 = .TRUE. IF ( chem_index_table( PARAM_so4_c5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c5 = chem_num_table(idomain) chem_index_table( PARAM_so4_c5 , idomain ) = P_so4_c5 ELSE P_so4_c5 = chem_index_table( PARAM_so4_c5 , idomain ) END IF chem_boundary_table( idomain, P_so4_c5 ) = .TRUE. chem_dname_table( idomain, P_so4_c5 ) = 'so4_c5' chem_desc_table( idomain, P_so4_c5 ) = 'Sulfate aerosol, mode 5' chem_units_table( idomain, P_so4_c5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_c5 )%stream(2) = 2097152 ! 00200000 F_so4_c5 = .TRUE. IF ( chem_index_table( PARAM_nh4_c5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_c5 = chem_num_table(idomain) chem_index_table( PARAM_nh4_c5 , idomain ) = P_nh4_c5 ELSE P_nh4_c5 = chem_index_table( PARAM_nh4_c5 , idomain ) END IF chem_boundary_table( idomain, P_nh4_c5 ) = .TRUE. chem_dname_table( idomain, P_nh4_c5 ) = 'nh4_c5' chem_desc_table( idomain, P_nh4_c5 ) = 'Ammonium aerosol, mode 5' chem_units_table( idomain, P_nh4_c5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_c5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_c5 )%stream(2) = 2097152 ! 00200000 F_nh4_c5 = .TRUE. IF ( chem_index_table( PARAM_num_c5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c5 = chem_num_table(idomain) chem_index_table( PARAM_num_c5 , idomain ) = P_num_c5 ELSE P_num_c5 = chem_index_table( PARAM_num_c5 , idomain ) END IF chem_boundary_table( idomain, P_num_c5 ) = .TRUE. chem_dname_table( idomain, P_num_c5 ) = 'num_c5' chem_desc_table( idomain, P_num_c5 ) = 'Aerosol number, mode 5' chem_units_table( idomain, P_num_c5 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_c5 )%stream(2) = 2097152 ! 00200000 F_num_c5 = .TRUE. IF ( chem_index_table( PARAM_ncl_c6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_c6 = chem_num_table(idomain) chem_index_table( PARAM_ncl_c6 , idomain ) = P_ncl_c6 ELSE P_ncl_c6 = chem_index_table( PARAM_ncl_c6 , idomain ) END IF chem_boundary_table( idomain, P_ncl_c6 ) = .TRUE. chem_dname_table( idomain, P_ncl_c6 ) = 'ncl_c6' chem_desc_table( idomain, P_ncl_c6 ) = 'Sea salt aerosol, mode 6' chem_units_table( idomain, P_ncl_c6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_c6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ncl_c6 )%stream(2) = 2097152 ! 00200000 F_ncl_c6 = .TRUE. IF ( chem_index_table( PARAM_so4_c6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c6 = chem_num_table(idomain) chem_index_table( PARAM_so4_c6 , idomain ) = P_so4_c6 ELSE P_so4_c6 = chem_index_table( PARAM_so4_c6 , idomain ) END IF chem_boundary_table( idomain, P_so4_c6 ) = .TRUE. chem_dname_table( idomain, P_so4_c6 ) = 'so4_c6' chem_desc_table( idomain, P_so4_c6 ) = 'Sulfate aerosol, mode 6' chem_units_table( idomain, P_so4_c6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_c6 )%stream(2) = 2097152 ! 00200000 F_so4_c6 = .TRUE. IF ( chem_index_table( PARAM_nh4_c6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_c6 = chem_num_table(idomain) chem_index_table( PARAM_nh4_c6 , idomain ) = P_nh4_c6 ELSE P_nh4_c6 = chem_index_table( PARAM_nh4_c6 , idomain ) END IF chem_boundary_table( idomain, P_nh4_c6 ) = .TRUE. chem_dname_table( idomain, P_nh4_c6 ) = 'nh4_c6' chem_desc_table( idomain, P_nh4_c6 ) = 'Ammonium aerosol, mode 6' chem_units_table( idomain, P_nh4_c6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_c6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_c6 )%stream(2) = 2097152 ! 00200000 F_nh4_c6 = .TRUE. IF ( chem_index_table( PARAM_num_c6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c6 = chem_num_table(idomain) chem_index_table( PARAM_num_c6 , idomain ) = P_num_c6 ELSE P_num_c6 = chem_index_table( PARAM_num_c6 , idomain ) END IF chem_boundary_table( idomain, P_num_c6 ) = .TRUE. chem_dname_table( idomain, P_num_c6 ) = 'num_c6' chem_desc_table( idomain, P_num_c6 ) = 'Aerosol number, mode 6' chem_units_table( idomain, P_num_c6 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_c6 )%stream(2) = 2097152 ! 00200000 F_num_c6 = .TRUE. IF ( chem_index_table( PARAM_dst_c7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_c7 = chem_num_table(idomain) chem_index_table( PARAM_dst_c7 , idomain ) = P_dst_c7 ELSE P_dst_c7 = chem_index_table( PARAM_dst_c7 , idomain ) END IF chem_boundary_table( idomain, P_dst_c7 ) = .TRUE. chem_dname_table( idomain, P_dst_c7 ) = 'dst_c7' chem_desc_table( idomain, P_dst_c7 ) = 'Dust aerosol, mode 7' chem_units_table( idomain, P_dst_c7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_c7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dst_c7 )%stream(2) = 2097152 ! 00200000 F_dst_c7 = .TRUE. IF ( chem_index_table( PARAM_so4_c7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c7 = chem_num_table(idomain) chem_index_table( PARAM_so4_c7 , idomain ) = P_so4_c7 ELSE P_so4_c7 = chem_index_table( PARAM_so4_c7 , idomain ) END IF chem_boundary_table( idomain, P_so4_c7 ) = .TRUE. chem_dname_table( idomain, P_so4_c7 ) = 'so4_c7' chem_desc_table( idomain, P_so4_c7 ) = 'Sulfate aerosol, mode 7' chem_units_table( idomain, P_so4_c7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_c7 )%stream(2) = 2097152 ! 00200000 F_so4_c7 = .TRUE. IF ( chem_index_table( PARAM_nh4_c7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_c7 = chem_num_table(idomain) chem_index_table( PARAM_nh4_c7 , idomain ) = P_nh4_c7 ELSE P_nh4_c7 = chem_index_table( PARAM_nh4_c7 , idomain ) END IF chem_boundary_table( idomain, P_nh4_c7 ) = .TRUE. chem_dname_table( idomain, P_nh4_c7 ) = 'nh4_c7' chem_desc_table( idomain, P_nh4_c7 ) = 'Ammonium aerosol, mode 7' chem_units_table( idomain, P_nh4_c7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_c7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_c7 )%stream(2) = 2097152 ! 00200000 F_nh4_c7 = .TRUE. IF ( chem_index_table( PARAM_num_c7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c7 = chem_num_table(idomain) chem_index_table( PARAM_num_c7 , idomain ) = P_num_c7 ELSE P_num_c7 = chem_index_table( PARAM_num_c7 , idomain ) END IF chem_boundary_table( idomain, P_num_c7 ) = .TRUE. chem_dname_table( idomain, P_num_c7 ) = 'num_c7' chem_desc_table( idomain, P_num_c7 ) = 'Aerosol number, mode 7' chem_units_table( idomain, P_num_c7 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_c7 )%stream(2) = 2097152 ! 00200000 F_num_c7 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==600)THEN IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 ! 00200040 F_dms = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 ! 00200040 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 ! 00200040 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 ! 00200040 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3s , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3s = chem_num_table(idomain) chem_index_table( PARAM_ch3s , idomain ) = P_ch3s ELSE P_ch3s = chem_index_table( PARAM_ch3s , idomain ) END IF chem_boundary_table( idomain, P_ch3s ) = .TRUE. chem_dname_table( idomain, P_ch3s ) = 'ch3s' chem_desc_table( idomain, P_ch3s ) = 'CH3S concentration' chem_units_table( idomain, P_ch3s ) = 'ppmv' chem_streams_table( idomain, P_ch3s )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3s )%stream(2) = 2097216 ! 00200040 F_ch3s = .TRUE. IF ( chem_index_table( PARAM_ch3so , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so = chem_num_table(idomain) chem_index_table( PARAM_ch3so , idomain ) = P_ch3so ELSE P_ch3so = chem_index_table( PARAM_ch3so , idomain ) END IF chem_boundary_table( idomain, P_ch3so ) = .TRUE. chem_dname_table( idomain, P_ch3so ) = 'ch3so' chem_desc_table( idomain, P_ch3so ) = 'CH3SO concentration' chem_units_table( idomain, P_ch3so ) = 'ppmv' chem_streams_table( idomain, P_ch3so )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so )%stream(2) = 2097216 ! 00200040 F_ch3so = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 ! 00200040 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 ! 00200040 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 ! 00200040 F_msa = .TRUE. IF ( chem_index_table( PARAM_msia , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msia = chem_num_table(idomain) chem_index_table( PARAM_msia , idomain ) = P_msia ELSE P_msia = chem_index_table( PARAM_msia , idomain ) END IF chem_boundary_table( idomain, P_msia ) = .TRUE. chem_dname_table( idomain, P_msia ) = 'msia' chem_desc_table( idomain, P_msia ) = 'MSIA concentration' chem_units_table( idomain, P_msia ) = 'ppmv' chem_streams_table( idomain, P_msia )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msia )%stream(2) = 2097216 ! 00200040 F_msia = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_hso3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hso3 = chem_num_table(idomain) chem_index_table( PARAM_hso3 , idomain ) = P_hso3 ELSE P_hso3 = chem_index_table( PARAM_hso3 , idomain ) END IF chem_boundary_table( idomain, P_hso3 ) = .TRUE. chem_dname_table( idomain, P_hso3 ) = 'hso3' chem_desc_table( idomain, P_hso3 ) = 'HSO3 concentration' chem_units_table( idomain, P_hso3 ) = 'ppmv' chem_streams_table( idomain, P_hso3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hso3 )%stream(2) = 2097216 ! 00200040 F_hso3 = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ch3cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cho = chem_num_table(idomain) chem_index_table( PARAM_ch3cho , idomain ) = P_ch3cho ELSE P_ch3cho = chem_index_table( PARAM_ch3cho , idomain ) END IF chem_boundary_table( idomain, P_ch3cho ) = .TRUE. chem_dname_table( idomain, P_ch3cho ) = 'ch3cho' chem_desc_table( idomain, P_ch3cho ) = 'CH3CHO concentration' chem_units_table( idomain, P_ch3cho ) = 'ppmv' chem_streams_table( idomain, P_ch3cho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3cho )%stream(2) = 2097216 ! 00200040 F_ch3cho = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ch3ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ooh = chem_num_table(idomain) chem_index_table( PARAM_ch3ooh , idomain ) = P_ch3ooh ELSE P_ch3ooh = chem_index_table( PARAM_ch3ooh , idomain ) END IF chem_boundary_table( idomain, P_ch3ooh ) = .TRUE. chem_dname_table( idomain, P_ch3ooh ) = 'ch3ooh' chem_desc_table( idomain, P_ch3ooh ) = 'CH3OOH mixing ratio' chem_units_table( idomain, P_ch3ooh ) = 'ppmv' chem_streams_table( idomain, P_ch3ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3ooh )%stream(2) = 2097216 ! 00200040 F_ch3ooh = .TRUE. IF ( chem_index_table( PARAM_c2h5ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5ooh = chem_num_table(idomain) chem_index_table( PARAM_c2h5ooh , idomain ) = P_c2h5ooh ELSE P_c2h5ooh = chem_index_table( PARAM_c2h5ooh , idomain ) END IF chem_boundary_table( idomain, P_c2h5ooh ) = .TRUE. chem_dname_table( idomain, P_c2h5ooh ) = 'c2h5ooh' chem_desc_table( idomain, P_c2h5ooh ) = 'C2H5OOH concentration' chem_units_table( idomain, P_c2h5ooh ) = 'ppmv' chem_streams_table( idomain, P_c2h5ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5ooh )%stream(2) = 2097216 ! 00200040 F_c2h5ooh = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 ! 00200040 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 ! 00200040 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_nc4h10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nc4h10 = chem_num_table(idomain) chem_index_table( PARAM_nc4h10 , idomain ) = P_nc4h10 ELSE P_nc4h10 = chem_index_table( PARAM_nc4h10 , idomain ) END IF chem_boundary_table( idomain, P_nc4h10 ) = .TRUE. chem_dname_table( idomain, P_nc4h10 ) = 'nc4h10' chem_desc_table( idomain, P_nc4h10 ) = 'NC4H10 concentration' chem_units_table( idomain, P_nc4h10 ) = 'ppmv' chem_streams_table( idomain, P_nc4h10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nc4h10 )%stream(2) = 2097216 ! 00200040 F_nc4h10 = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 ! 00200040 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_c2h4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h4 = chem_num_table(idomain) chem_index_table( PARAM_c2h4 , idomain ) = P_c2h4 ELSE P_c2h4 = chem_index_table( PARAM_c2h4 , idomain ) END IF chem_boundary_table( idomain, P_c2h4 ) = .TRUE. chem_dname_table( idomain, P_c2h4 ) = 'c2h4' chem_desc_table( idomain, P_c2h4 ) = '' chem_units_table( idomain, P_c2h4 ) = '' chem_streams_table( idomain, P_c2h4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h4 )%stream(2) = 2097216 ! 00200040 F_c2h4 = .TRUE. IF ( chem_index_table( PARAM_toluene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_toluene = chem_num_table(idomain) chem_index_table( PARAM_toluene , idomain ) = P_toluene ELSE P_toluene = chem_index_table( PARAM_toluene , idomain ) END IF chem_boundary_table( idomain, P_toluene ) = .TRUE. chem_dname_table( idomain, P_toluene ) = 'toluene' chem_desc_table( idomain, P_toluene ) = 'TOLUENE concentration' chem_units_table( idomain, P_toluene ) = 'ppmv' chem_streams_table( idomain, P_toluene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_toluene )%stream(2) = 2097216 ! 00200040 F_toluene = .TRUE. IF ( chem_index_table( PARAM_oxyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oxyl = chem_num_table(idomain) chem_index_table( PARAM_oxyl , idomain ) = P_oxyl ELSE P_oxyl = chem_index_table( PARAM_oxyl , idomain ) END IF chem_boundary_table( idomain, P_oxyl ) = .TRUE. chem_dname_table( idomain, P_oxyl ) = 'oxyl' chem_desc_table( idomain, P_oxyl ) = 'OXYL concentration' chem_units_table( idomain, P_oxyl ) = 'ppmv' chem_streams_table( idomain, P_oxyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oxyl )%stream(2) = 2097216 ! 00200040 F_oxyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_c5h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c5h8 = chem_num_table(idomain) chem_index_table( PARAM_c5h8 , idomain ) = P_c5h8 ELSE P_c5h8 = chem_index_table( PARAM_c5h8 , idomain ) END IF chem_boundary_table( idomain, P_c5h8 ) = .TRUE. chem_dname_table( idomain, P_c5h8 ) = 'c5h8' chem_desc_table( idomain, P_c5h8 ) = 'C5H8 concentration' chem_units_table( idomain, P_c5h8 ) = 'ppmv' chem_streams_table( idomain, P_c5h8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c5h8 )%stream(2) = 2097216 ! 00200040 F_c5h8 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so3 = chem_num_table(idomain) chem_index_table( PARAM_so3 , idomain ) = P_so3 ELSE P_so3 = chem_index_table( PARAM_so3 , idomain ) END IF chem_boundary_table( idomain, P_so3 ) = .TRUE. chem_dname_table( idomain, P_so3 ) = 'so3' chem_desc_table( idomain, P_so3 ) = 'SO3 concentration' chem_units_table( idomain, P_so3 ) = 'ppmv' chem_streams_table( idomain, P_so3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so3 )%stream(2) = 2097216 ! 00200040 F_so3 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_benzene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzene = chem_num_table(idomain) chem_index_table( PARAM_benzene , idomain ) = P_benzene ELSE P_benzene = chem_index_table( PARAM_benzene , idomain ) END IF chem_boundary_table( idomain, P_benzene ) = .TRUE. chem_dname_table( idomain, P_benzene ) = 'benzene' chem_desc_table( idomain, P_benzene ) = 'BENZENE concentration' chem_units_table( idomain, P_benzene ) = 'ppmv' chem_streams_table( idomain, P_benzene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_benzene )%stream(2) = 2097216 ! 00200040 F_benzene = .TRUE. IF ( chem_index_table( PARAM_npropol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_npropol = chem_num_table(idomain) chem_index_table( PARAM_npropol , idomain ) = P_npropol ELSE P_npropol = chem_index_table( PARAM_npropol , idomain ) END IF chem_boundary_table( idomain, P_npropol ) = .TRUE. chem_dname_table( idomain, P_npropol ) = 'npropol' chem_desc_table( idomain, P_npropol ) = 'NPROPOL concentration' chem_units_table( idomain, P_npropol ) = 'ppmv' chem_streams_table( idomain, P_npropol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_npropol )%stream(2) = 2097216 ! 00200040 F_npropol = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 ! 00200040 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 ! 00200040 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_tbut2ene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tbut2ene = chem_num_table(idomain) chem_index_table( PARAM_tbut2ene , idomain ) = P_tbut2ene ELSE P_tbut2ene = chem_index_table( PARAM_tbut2ene , idomain ) END IF chem_boundary_table( idomain, P_tbut2ene ) = .TRUE. chem_dname_table( idomain, P_tbut2ene ) = 'tbut2ene' chem_desc_table( idomain, P_tbut2ene ) = 'TBUT2ENE concentration' chem_units_table( idomain, P_tbut2ene ) = 'ppmv' chem_streams_table( idomain, P_tbut2ene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tbut2ene )%stream(2) = 2097216 ! 00200040 F_tbut2ene = .TRUE. IF ( chem_index_table( PARAM_c2h5cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5cho = chem_num_table(idomain) chem_index_table( PARAM_c2h5cho , idomain ) = P_c2h5cho ELSE P_c2h5cho = chem_index_table( PARAM_c2h5cho , idomain ) END IF chem_boundary_table( idomain, P_c2h5cho ) = .TRUE. chem_dname_table( idomain, P_c2h5cho ) = 'c2h5cho' chem_desc_table( idomain, P_c2h5cho ) = 'C2H5CHO concentration' chem_units_table( idomain, P_c2h5cho ) = 'ppmv' chem_streams_table( idomain, P_c2h5cho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5cho )%stream(2) = 2097216 ! 00200040 F_c2h5cho = .TRUE. IF ( chem_index_table( PARAM_ch3co2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3co2h = chem_num_table(idomain) chem_index_table( PARAM_ch3co2h , idomain ) = P_ch3co2h ELSE P_ch3co2h = chem_index_table( PARAM_ch3co2h , idomain ) END IF chem_boundary_table( idomain, P_ch3co2h ) = .TRUE. chem_dname_table( idomain, P_ch3co2h ) = 'ch3co2h' chem_desc_table( idomain, P_ch3co2h ) = 'CH3CO2H concentration' chem_units_table( idomain, P_ch3co2h ) = 'ppmv' chem_streams_table( idomain, P_ch3co2h )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3co2h )%stream(2) = 2097216 ! 00200040 F_ch3co2h = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 ! 00200040 F_mek = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_ipropol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ipropol = chem_num_table(idomain) chem_index_table( PARAM_ipropol , idomain ) = P_ipropol ELSE P_ipropol = chem_index_table( PARAM_ipropol , idomain ) END IF chem_boundary_table( idomain, P_ipropol ) = .TRUE. chem_dname_table( idomain, P_ipropol ) = 'ipropol' chem_desc_table( idomain, P_ipropol ) = 'IPROPOL concentration' chem_units_table( idomain, P_ipropol ) = 'ppmv' chem_streams_table( idomain, P_ipropol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ipropol )%stream(2) = 2097216 ! 00200040 F_ipropol = .TRUE. IF ( chem_index_table( PARAM_ch3no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3no3 = chem_num_table(idomain) chem_index_table( PARAM_ch3no3 , idomain ) = P_ch3no3 ELSE P_ch3no3 = chem_index_table( PARAM_ch3no3 , idomain ) END IF chem_boundary_table( idomain, P_ch3no3 ) = .TRUE. chem_dname_table( idomain, P_ch3no3 ) = 'ch3no3' chem_desc_table( idomain, P_ch3no3 ) = 'CH3NO3 concentration' chem_units_table( idomain, P_ch3no3 ) = 'ppmv' chem_streams_table( idomain, P_ch3no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3no3 )%stream(2) = 2097216 ! 00200040 F_ch3no3 = .TRUE. IF ( chem_index_table( PARAM_c2h5no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5no3 = chem_num_table(idomain) chem_index_table( PARAM_c2h5no3 , idomain ) = P_c2h5no3 ELSE P_c2h5no3 = chem_index_table( PARAM_c2h5no3 , idomain ) END IF chem_boundary_table( idomain, P_c2h5no3 ) = .TRUE. chem_dname_table( idomain, P_c2h5no3 ) = 'c2h5no3' chem_desc_table( idomain, P_c2h5no3 ) = 'C2H5NO3 concentration' chem_units_table( idomain, P_c2h5no3 ) = 'ppmv' chem_streams_table( idomain, P_c2h5no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5no3 )%stream(2) = 2097216 ! 00200040 F_c2h5no3 = .TRUE. IF ( chem_index_table( PARAM_hoc2h4no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoc2h4no3 = chem_num_table(idomain) chem_index_table( PARAM_hoc2h4no3 , idomain ) = P_hoc2h4no3 ELSE P_hoc2h4no3 = chem_index_table( PARAM_hoc2h4no3 , idomain ) END IF chem_boundary_table( idomain, P_hoc2h4no3 ) = .TRUE. chem_dname_table( idomain, P_hoc2h4no3 ) = 'hoc2h4no3' chem_desc_table( idomain, P_hoc2h4no3 ) = 'HOC2H4NO3 concentration' chem_units_table( idomain, P_hoc2h4no3 ) = 'ppmv' chem_streams_table( idomain, P_hoc2h4no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoc2h4no3 )%stream(2) = 2097216 ! 00200040 F_hoc2h4no3 = .TRUE. IF ( chem_index_table( PARAM_prooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prooh = chem_num_table(idomain) chem_index_table( PARAM_prooh , idomain ) = P_prooh ELSE P_prooh = chem_index_table( PARAM_prooh , idomain ) END IF chem_boundary_table( idomain, P_prooh ) = .TRUE. chem_dname_table( idomain, P_prooh ) = 'prooh' chem_desc_table( idomain, P_prooh ) = '' chem_units_table( idomain, P_prooh ) = '' chem_streams_table( idomain, P_prooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_prooh )%stream(2) = 2097216 ! 00200040 F_prooh = .TRUE. IF ( chem_index_table( PARAM_hoc2h4ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoc2h4ooh = chem_num_table(idomain) chem_index_table( PARAM_hoc2h4ooh , idomain ) = P_hoc2h4ooh ELSE P_hoc2h4ooh = chem_index_table( PARAM_hoc2h4ooh , idomain ) END IF chem_boundary_table( idomain, P_hoc2h4ooh ) = .TRUE. chem_dname_table( idomain, P_hoc2h4ooh ) = 'hoc2h4ooh' chem_desc_table( idomain, P_hoc2h4ooh ) = 'HOC2H4OOH concentration' chem_units_table( idomain, P_hoc2h4ooh ) = 'ppmv' chem_streams_table( idomain, P_hoc2h4ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoc2h4ooh )%stream(2) = 2097216 ! 00200040 F_hoc2h4ooh = .TRUE. IF ( chem_index_table( PARAM_carb14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb14 = chem_num_table(idomain) chem_index_table( PARAM_carb14 , idomain ) = P_carb14 ELSE P_carb14 = chem_index_table( PARAM_carb14 , idomain ) END IF chem_boundary_table( idomain, P_carb14 ) = .TRUE. chem_dname_table( idomain, P_carb14 ) = 'carb14' chem_desc_table( idomain, P_carb14 ) = 'CARB14 concentration' chem_units_table( idomain, P_carb14 ) = 'ppmv' chem_streams_table( idomain, P_carb14 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb14 )%stream(2) = 2097216 ! 00200040 F_carb14 = .TRUE. IF ( chem_index_table( PARAM_carb17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb17 = chem_num_table(idomain) chem_index_table( PARAM_carb17 , idomain ) = P_carb17 ELSE P_carb17 = chem_index_table( PARAM_carb17 , idomain ) END IF chem_boundary_table( idomain, P_carb17 ) = .TRUE. chem_dname_table( idomain, P_carb17 ) = 'carb17' chem_desc_table( idomain, P_carb17 ) = 'CARB17 concentration' chem_units_table( idomain, P_carb17 ) = 'ppmv' chem_streams_table( idomain, P_carb17 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb17 )%stream(2) = 2097216 ! 00200040 F_carb17 = .TRUE. IF ( chem_index_table( PARAM_rn10no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10no3 = chem_num_table(idomain) chem_index_table( PARAM_rn10no3 , idomain ) = P_rn10no3 ELSE P_rn10no3 = chem_index_table( PARAM_rn10no3 , idomain ) END IF chem_boundary_table( idomain, P_rn10no3 ) = .TRUE. chem_dname_table( idomain, P_rn10no3 ) = 'rn10no3' chem_desc_table( idomain, P_rn10no3 ) = 'RN10NO3 concentration' chem_units_table( idomain, P_rn10no3 ) = 'ppmv' chem_streams_table( idomain, P_rn10no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn10no3 )%stream(2) = 2097216 ! 00200040 F_rn10no3 = .TRUE. IF ( chem_index_table( PARAM_rn13no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13no3 = chem_num_table(idomain) chem_index_table( PARAM_rn13no3 , idomain ) = P_rn13no3 ELSE P_rn13no3 = chem_index_table( PARAM_rn13no3 , idomain ) END IF chem_boundary_table( idomain, P_rn13no3 ) = .TRUE. chem_dname_table( idomain, P_rn13no3 ) = 'rn13no3' chem_desc_table( idomain, P_rn13no3 ) = 'RN13NO3 concentration' chem_units_table( idomain, P_rn13no3 ) = 'ppmv' chem_streams_table( idomain, P_rn13no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn13no3 )%stream(2) = 2097216 ! 00200040 F_rn13no3 = .TRUE. IF ( chem_index_table( PARAM_rn19no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19no3 = chem_num_table(idomain) chem_index_table( PARAM_rn19no3 , idomain ) = P_rn19no3 ELSE P_rn19no3 = chem_index_table( PARAM_rn19no3 , idomain ) END IF chem_boundary_table( idomain, P_rn19no3 ) = .TRUE. chem_dname_table( idomain, P_rn19no3 ) = 'rn19no3' chem_desc_table( idomain, P_rn19no3 ) = 'RN19NO3 concentration' chem_units_table( idomain, P_rn19no3 ) = 'ppmv' chem_streams_table( idomain, P_rn19no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn19no3 )%stream(2) = 2097216 ! 00200040 F_rn19no3 = .TRUE. IF ( chem_index_table( PARAM_rn9no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9no3 = chem_num_table(idomain) chem_index_table( PARAM_rn9no3 , idomain ) = P_rn9no3 ELSE P_rn9no3 = chem_index_table( PARAM_rn9no3 , idomain ) END IF chem_boundary_table( idomain, P_rn9no3 ) = .TRUE. chem_dname_table( idomain, P_rn9no3 ) = 'rn9no3' chem_desc_table( idomain, P_rn9no3 ) = 'RN9NO3 concentration' chem_units_table( idomain, P_rn9no3 ) = 'ppmv' chem_streams_table( idomain, P_rn9no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn9no3 )%stream(2) = 2097216 ! 00200040 F_rn9no3 = .TRUE. IF ( chem_index_table( PARAM_rn12no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12no3 = chem_num_table(idomain) chem_index_table( PARAM_rn12no3 , idomain ) = P_rn12no3 ELSE P_rn12no3 = chem_index_table( PARAM_rn12no3 , idomain ) END IF chem_boundary_table( idomain, P_rn12no3 ) = .TRUE. chem_dname_table( idomain, P_rn12no3 ) = 'rn12no3' chem_desc_table( idomain, P_rn12no3 ) = 'RN12NO3 concentration' chem_units_table( idomain, P_rn12no3 ) = 'ppmv' chem_streams_table( idomain, P_rn12no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn12no3 )%stream(2) = 2097216 ! 00200040 F_rn12no3 = .TRUE. IF ( chem_index_table( PARAM_rn15no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15no3 = chem_num_table(idomain) chem_index_table( PARAM_rn15no3 , idomain ) = P_rn15no3 ELSE P_rn15no3 = chem_index_table( PARAM_rn15no3 , idomain ) END IF chem_boundary_table( idomain, P_rn15no3 ) = .TRUE. chem_dname_table( idomain, P_rn15no3 ) = 'rn15no3' chem_desc_table( idomain, P_rn15no3 ) = 'RN15NO3 concentration' chem_units_table( idomain, P_rn15no3 ) = 'ppmv' chem_streams_table( idomain, P_rn15no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn15no3 )%stream(2) = 2097216 ! 00200040 F_rn15no3 = .TRUE. IF ( chem_index_table( PARAM_rn18no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18no3 = chem_num_table(idomain) chem_index_table( PARAM_rn18no3 , idomain ) = P_rn18no3 ELSE P_rn18no3 = chem_index_table( PARAM_rn18no3 , idomain ) END IF chem_boundary_table( idomain, P_rn18no3 ) = .TRUE. chem_dname_table( idomain, P_rn18no3 ) = 'rn18no3' chem_desc_table( idomain, P_rn18no3 ) = 'RN18NO3 concentration' chem_units_table( idomain, P_rn18no3 ) = 'ppmv' chem_streams_table( idomain, P_rn18no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn18no3 )%stream(2) = 2097216 ! 00200040 F_rn18no3 = .TRUE. IF ( chem_index_table( PARAM_rn16no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16no3 = chem_num_table(idomain) chem_index_table( PARAM_rn16no3 , idomain ) = P_rn16no3 ELSE P_rn16no3 = chem_index_table( PARAM_rn16no3 , idomain ) END IF chem_boundary_table( idomain, P_rn16no3 ) = .TRUE. chem_dname_table( idomain, P_rn16no3 ) = 'rn16no3' chem_desc_table( idomain, P_rn16no3 ) = 'RN16NO3 concentration' chem_units_table( idomain, P_rn16no3 ) = 'ppmv' chem_streams_table( idomain, P_rn16no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn16no3 )%stream(2) = 2097216 ! 00200040 F_rn16no3 = .TRUE. IF ( chem_index_table( PARAM_rn10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10ooh = chem_num_table(idomain) chem_index_table( PARAM_rn10ooh , idomain ) = P_rn10ooh ELSE P_rn10ooh = chem_index_table( PARAM_rn10ooh , idomain ) END IF chem_boundary_table( idomain, P_rn10ooh ) = .TRUE. chem_dname_table( idomain, P_rn10ooh ) = 'rn10ooh' chem_desc_table( idomain, P_rn10ooh ) = 'RN10OOH concentration' chem_units_table( idomain, P_rn10ooh ) = 'ppmv' chem_streams_table( idomain, P_rn10ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn10ooh )%stream(2) = 2097216 ! 00200040 F_rn10ooh = .TRUE. IF ( chem_index_table( PARAM_rn13ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13ooh = chem_num_table(idomain) chem_index_table( PARAM_rn13ooh , idomain ) = P_rn13ooh ELSE P_rn13ooh = chem_index_table( PARAM_rn13ooh , idomain ) END IF chem_boundary_table( idomain, P_rn13ooh ) = .TRUE. chem_dname_table( idomain, P_rn13ooh ) = 'rn13ooh' chem_desc_table( idomain, P_rn13ooh ) = 'RN13OOH concentration' chem_units_table( idomain, P_rn13ooh ) = 'ppmv' chem_streams_table( idomain, P_rn13ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn13ooh )%stream(2) = 2097216 ! 00200040 F_rn13ooh = .TRUE. IF ( chem_index_table( PARAM_rn16ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16ooh = chem_num_table(idomain) chem_index_table( PARAM_rn16ooh , idomain ) = P_rn16ooh ELSE P_rn16ooh = chem_index_table( PARAM_rn16ooh , idomain ) END IF chem_boundary_table( idomain, P_rn16ooh ) = .TRUE. chem_dname_table( idomain, P_rn16ooh ) = 'rn16ooh' chem_desc_table( idomain, P_rn16ooh ) = 'RN16OOH concentration' chem_units_table( idomain, P_rn16ooh ) = 'ppmv' chem_streams_table( idomain, P_rn16ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn16ooh )%stream(2) = 2097216 ! 00200040 F_rn16ooh = .TRUE. IF ( chem_index_table( PARAM_rn19ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19ooh = chem_num_table(idomain) chem_index_table( PARAM_rn19ooh , idomain ) = P_rn19ooh ELSE P_rn19ooh = chem_index_table( PARAM_rn19ooh , idomain ) END IF chem_boundary_table( idomain, P_rn19ooh ) = .TRUE. chem_dname_table( idomain, P_rn19ooh ) = 'rn19ooh' chem_desc_table( idomain, P_rn19ooh ) = 'RN19OOH concentration' chem_units_table( idomain, P_rn19ooh ) = 'ppmv' chem_streams_table( idomain, P_rn19ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn19ooh )%stream(2) = 2097216 ! 00200040 F_rn19ooh = .TRUE. IF ( chem_index_table( PARAM_rn8ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn8ooh = chem_num_table(idomain) chem_index_table( PARAM_rn8ooh , idomain ) = P_rn8ooh ELSE P_rn8ooh = chem_index_table( PARAM_rn8ooh , idomain ) END IF chem_boundary_table( idomain, P_rn8ooh ) = .TRUE. chem_dname_table( idomain, P_rn8ooh ) = 'rn8ooh' chem_desc_table( idomain, P_rn8ooh ) = 'RN8OOH concentration' chem_units_table( idomain, P_rn8ooh ) = 'ppmv' chem_streams_table( idomain, P_rn8ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn8ooh )%stream(2) = 2097216 ! 00200040 F_rn8ooh = .TRUE. IF ( chem_index_table( PARAM_rn11ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn11ooh = chem_num_table(idomain) chem_index_table( PARAM_rn11ooh , idomain ) = P_rn11ooh ELSE P_rn11ooh = chem_index_table( PARAM_rn11ooh , idomain ) END IF chem_boundary_table( idomain, P_rn11ooh ) = .TRUE. chem_dname_table( idomain, P_rn11ooh ) = 'rn11ooh' chem_desc_table( idomain, P_rn11ooh ) = 'RN11OOH concentration' chem_units_table( idomain, P_rn11ooh ) = 'ppmv' chem_streams_table( idomain, P_rn11ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn11ooh )%stream(2) = 2097216 ! 00200040 F_rn11ooh = .TRUE. IF ( chem_index_table( PARAM_rn14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn14ooh = chem_num_table(idomain) chem_index_table( PARAM_rn14ooh , idomain ) = P_rn14ooh ELSE P_rn14ooh = chem_index_table( PARAM_rn14ooh , idomain ) END IF chem_boundary_table( idomain, P_rn14ooh ) = .TRUE. chem_dname_table( idomain, P_rn14ooh ) = 'rn14ooh' chem_desc_table( idomain, P_rn14ooh ) = 'RN14OOH concentration' chem_units_table( idomain, P_rn14ooh ) = 'ppmv' chem_streams_table( idomain, P_rn14ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn14ooh )%stream(2) = 2097216 ! 00200040 F_rn14ooh = .TRUE. IF ( chem_index_table( PARAM_rn17ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn17ooh = chem_num_table(idomain) chem_index_table( PARAM_rn17ooh , idomain ) = P_rn17ooh ELSE P_rn17ooh = chem_index_table( PARAM_rn17ooh , idomain ) END IF chem_boundary_table( idomain, P_rn17ooh ) = .TRUE. chem_dname_table( idomain, P_rn17ooh ) = 'rn17ooh' chem_desc_table( idomain, P_rn17ooh ) = 'RN17OOH concentration' chem_units_table( idomain, P_rn17ooh ) = 'ppmv' chem_streams_table( idomain, P_rn17ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn17ooh )%stream(2) = 2097216 ! 00200040 F_rn17ooh = .TRUE. IF ( chem_index_table( PARAM_rn9ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9ooh = chem_num_table(idomain) chem_index_table( PARAM_rn9ooh , idomain ) = P_rn9ooh ELSE P_rn9ooh = chem_index_table( PARAM_rn9ooh , idomain ) END IF chem_boundary_table( idomain, P_rn9ooh ) = .TRUE. chem_dname_table( idomain, P_rn9ooh ) = 'rn9ooh' chem_desc_table( idomain, P_rn9ooh ) = 'RN9OOH concentration' chem_units_table( idomain, P_rn9ooh ) = 'ppmv' chem_streams_table( idomain, P_rn9ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn9ooh )%stream(2) = 2097216 ! 00200040 F_rn9ooh = .TRUE. IF ( chem_index_table( PARAM_rn12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12ooh = chem_num_table(idomain) chem_index_table( PARAM_rn12ooh , idomain ) = P_rn12ooh ELSE P_rn12ooh = chem_index_table( PARAM_rn12ooh , idomain ) END IF chem_boundary_table( idomain, P_rn12ooh ) = .TRUE. chem_dname_table( idomain, P_rn12ooh ) = 'rn12ooh' chem_desc_table( idomain, P_rn12ooh ) = 'RN12OOH concentration' chem_units_table( idomain, P_rn12ooh ) = 'ppmv' chem_streams_table( idomain, P_rn12ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn12ooh )%stream(2) = 2097216 ! 00200040 F_rn12ooh = .TRUE. IF ( chem_index_table( PARAM_rn15ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15ooh = chem_num_table(idomain) chem_index_table( PARAM_rn15ooh , idomain ) = P_rn15ooh ELSE P_rn15ooh = chem_index_table( PARAM_rn15ooh , idomain ) END IF chem_boundary_table( idomain, P_rn15ooh ) = .TRUE. chem_dname_table( idomain, P_rn15ooh ) = 'rn15ooh' chem_desc_table( idomain, P_rn15ooh ) = 'RN15OOH concentration' chem_units_table( idomain, P_rn15ooh ) = 'ppmv' chem_streams_table( idomain, P_rn15ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn15ooh )%stream(2) = 2097216 ! 00200040 F_rn15ooh = .TRUE. IF ( chem_index_table( PARAM_rn18ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18ooh = chem_num_table(idomain) chem_index_table( PARAM_rn18ooh , idomain ) = P_rn18ooh ELSE P_rn18ooh = chem_index_table( PARAM_rn18ooh , idomain ) END IF chem_boundary_table( idomain, P_rn18ooh ) = .TRUE. chem_dname_table( idomain, P_rn18ooh ) = 'rn18ooh' chem_desc_table( idomain, P_rn18ooh ) = 'RN18OOH concentration' chem_units_table( idomain, P_rn18ooh ) = 'ppmv' chem_streams_table( idomain, P_rn18ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn18ooh )%stream(2) = 2097216 ! 00200040 F_rn18ooh = .TRUE. IF ( chem_index_table( PARAM_nrn6ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn6ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn6ooh , idomain ) = P_nrn6ooh ELSE P_nrn6ooh = chem_index_table( PARAM_nrn6ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn6ooh ) = .TRUE. chem_dname_table( idomain, P_nrn6ooh ) = 'nrn6ooh' chem_desc_table( idomain, P_nrn6ooh ) = 'NRN6OOH concentration' chem_units_table( idomain, P_nrn6ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn6ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn6ooh )%stream(2) = 2097216 ! 00200040 F_nrn6ooh = .TRUE. IF ( chem_index_table( PARAM_nrn9ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn9ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn9ooh , idomain ) = P_nrn9ooh ELSE P_nrn9ooh = chem_index_table( PARAM_nrn9ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn9ooh ) = .TRUE. chem_dname_table( idomain, P_nrn9ooh ) = 'nrn9ooh' chem_desc_table( idomain, P_nrn9ooh ) = 'NRN9OOH concentration' chem_units_table( idomain, P_nrn9ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn9ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn9ooh )%stream(2) = 2097216 ! 00200040 F_nrn9ooh = .TRUE. IF ( chem_index_table( PARAM_nrn12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn12ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn12ooh , idomain ) = P_nrn12ooh ELSE P_nrn12ooh = chem_index_table( PARAM_nrn12ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn12ooh ) = .TRUE. chem_dname_table( idomain, P_nrn12ooh ) = 'nrn12ooh' chem_desc_table( idomain, P_nrn12ooh ) = 'NRN12OOH concentration' chem_units_table( idomain, P_nrn12ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn12ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn12ooh )%stream(2) = 2097216 ! 00200040 F_nrn12ooh = .TRUE. IF ( chem_index_table( PARAM_apinene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinene = chem_num_table(idomain) chem_index_table( PARAM_apinene , idomain ) = P_apinene ELSE P_apinene = chem_index_table( PARAM_apinene , idomain ) END IF chem_boundary_table( idomain, P_apinene ) = .TRUE. chem_dname_table( idomain, P_apinene ) = 'apinene' chem_desc_table( idomain, P_apinene ) = 'APINENE concentration' chem_units_table( idomain, P_apinene ) = 'ppmv' chem_streams_table( idomain, P_apinene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_apinene )%stream(2) = 2097216 ! 00200040 F_apinene = .TRUE. IF ( chem_index_table( PARAM_bpinene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinene = chem_num_table(idomain) chem_index_table( PARAM_bpinene , idomain ) = P_bpinene ELSE P_bpinene = chem_index_table( PARAM_bpinene , idomain ) END IF chem_boundary_table( idomain, P_bpinene ) = .TRUE. chem_dname_table( idomain, P_bpinene ) = 'bpinene' chem_desc_table( idomain, P_bpinene ) = 'BPINENE concentration' chem_units_table( idomain, P_bpinene ) = 'ppmv' chem_streams_table( idomain, P_bpinene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpinene )%stream(2) = 2097216 ! 00200040 F_bpinene = .TRUE. IF ( chem_index_table( PARAM_carb7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb7 = chem_num_table(idomain) chem_index_table( PARAM_carb7 , idomain ) = P_carb7 ELSE P_carb7 = chem_index_table( PARAM_carb7 , idomain ) END IF chem_boundary_table( idomain, P_carb7 ) = .TRUE. chem_dname_table( idomain, P_carb7 ) = 'carb7' chem_desc_table( idomain, P_carb7 ) = 'CARB7 concentration' chem_units_table( idomain, P_carb7 ) = 'ppmv' chem_streams_table( idomain, P_carb7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb7 )%stream(2) = 2097216 ! 00200040 F_carb7 = .TRUE. IF ( chem_index_table( PARAM_carb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb10 = chem_num_table(idomain) chem_index_table( PARAM_carb10 , idomain ) = P_carb10 ELSE P_carb10 = chem_index_table( PARAM_carb10 , idomain ) END IF chem_boundary_table( idomain, P_carb10 ) = .TRUE. chem_dname_table( idomain, P_carb10 ) = 'carb10' chem_desc_table( idomain, P_carb10 ) = 'CARB10 concentration' chem_units_table( idomain, P_carb10 ) = 'ppmv' chem_streams_table( idomain, P_carb10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb10 )%stream(2) = 2097216 ! 00200040 F_carb10 = .TRUE. IF ( chem_index_table( PARAM_carb13 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb13 = chem_num_table(idomain) chem_index_table( PARAM_carb13 , idomain ) = P_carb13 ELSE P_carb13 = chem_index_table( PARAM_carb13 , idomain ) END IF chem_boundary_table( idomain, P_carb13 ) = .TRUE. chem_dname_table( idomain, P_carb13 ) = 'carb13' chem_desc_table( idomain, P_carb13 ) = 'CARB13 concentration' chem_units_table( idomain, P_carb13 ) = 'ppmv' chem_streams_table( idomain, P_carb13 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb13 )%stream(2) = 2097216 ! 00200040 F_carb13 = .TRUE. IF ( chem_index_table( PARAM_carb16 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb16 = chem_num_table(idomain) chem_index_table( PARAM_carb16 , idomain ) = P_carb16 ELSE P_carb16 = chem_index_table( PARAM_carb16 , idomain ) END IF chem_boundary_table( idomain, P_carb16 ) = .TRUE. chem_dname_table( idomain, P_carb16 ) = 'carb16' chem_desc_table( idomain, P_carb16 ) = 'CARB16 concentration' chem_units_table( idomain, P_carb16 ) = 'ppmv' chem_streams_table( idomain, P_carb16 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb16 )%stream(2) = 2097216 ! 00200040 F_carb16 = .TRUE. IF ( chem_index_table( PARAM_carb3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb3 = chem_num_table(idomain) chem_index_table( PARAM_carb3 , idomain ) = P_carb3 ELSE P_carb3 = chem_index_table( PARAM_carb3 , idomain ) END IF chem_boundary_table( idomain, P_carb3 ) = .TRUE. chem_dname_table( idomain, P_carb3 ) = 'carb3' chem_desc_table( idomain, P_carb3 ) = 'CARB3 concentration' chem_units_table( idomain, P_carb3 ) = 'ppmv' chem_streams_table( idomain, P_carb3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb3 )%stream(2) = 2097216 ! 00200040 F_carb3 = .TRUE. IF ( chem_index_table( PARAM_carb6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb6 = chem_num_table(idomain) chem_index_table( PARAM_carb6 , idomain ) = P_carb6 ELSE P_carb6 = chem_index_table( PARAM_carb6 , idomain ) END IF chem_boundary_table( idomain, P_carb6 ) = .TRUE. chem_dname_table( idomain, P_carb6 ) = 'carb6' chem_desc_table( idomain, P_carb6 ) = 'CARB6 concentration' chem_units_table( idomain, P_carb6 ) = 'ppmv' chem_streams_table( idomain, P_carb6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb6 )%stream(2) = 2097216 ! 00200040 F_carb6 = .TRUE. IF ( chem_index_table( PARAM_carb9 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb9 = chem_num_table(idomain) chem_index_table( PARAM_carb9 , idomain ) = P_carb9 ELSE P_carb9 = chem_index_table( PARAM_carb9 , idomain ) END IF chem_boundary_table( idomain, P_carb9 ) = .TRUE. chem_dname_table( idomain, P_carb9 ) = 'carb9' chem_desc_table( idomain, P_carb9 ) = 'CARB9 concentration' chem_units_table( idomain, P_carb9 ) = 'ppmv' chem_streams_table( idomain, P_carb9 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb9 )%stream(2) = 2097216 ! 00200040 F_carb9 = .TRUE. IF ( chem_index_table( PARAM_carb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb12 = chem_num_table(idomain) chem_index_table( PARAM_carb12 , idomain ) = P_carb12 ELSE P_carb12 = chem_index_table( PARAM_carb12 , idomain ) END IF chem_boundary_table( idomain, P_carb12 ) = .TRUE. chem_dname_table( idomain, P_carb12 ) = 'carb12' chem_desc_table( idomain, P_carb12 ) = 'CARB12 concentration' chem_units_table( idomain, P_carb12 ) = 'ppmv' chem_streams_table( idomain, P_carb12 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb12 )%stream(2) = 2097216 ! 00200040 F_carb12 = .TRUE. IF ( chem_index_table( PARAM_carb15 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb15 = chem_num_table(idomain) chem_index_table( PARAM_carb15 , idomain ) = P_carb15 ELSE P_carb15 = chem_index_table( PARAM_carb15 , idomain ) END IF chem_boundary_table( idomain, P_carb15 ) = .TRUE. chem_dname_table( idomain, P_carb15 ) = 'carb15' chem_desc_table( idomain, P_carb15 ) = 'CARB15 concentration' chem_units_table( idomain, P_carb15 ) = 'ppmv' chem_streams_table( idomain, P_carb15 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb15 )%stream(2) = 2097216 ! 00200040 F_carb15 = .TRUE. IF ( chem_index_table( PARAM_c2h5co3h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5co3h = chem_num_table(idomain) chem_index_table( PARAM_c2h5co3h , idomain ) = P_c2h5co3h ELSE P_c2h5co3h = chem_index_table( PARAM_c2h5co3h , idomain ) END IF chem_boundary_table( idomain, P_c2h5co3h ) = .TRUE. chem_dname_table( idomain, P_c2h5co3h ) = 'c2h5co3h' chem_desc_table( idomain, P_c2h5co3h ) = 'C2H5CO3H concentration' chem_units_table( idomain, P_c2h5co3h ) = 'ppmv' chem_streams_table( idomain, P_c2h5co3h )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5co3h )%stream(2) = 2097216 ! 00200040 F_c2h5co3h = .TRUE. IF ( chem_index_table( PARAM_c2h5co3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5co3 = chem_num_table(idomain) chem_index_table( PARAM_c2h5co3 , idomain ) = P_c2h5co3 ELSE P_c2h5co3 = chem_index_table( PARAM_c2h5co3 , idomain ) END IF chem_boundary_table( idomain, P_c2h5co3 ) = .TRUE. chem_dname_table( idomain, P_c2h5co3 ) = 'c2h5co3' chem_desc_table( idomain, P_c2h5co3 ) = 'C2H5CO3 concentration' chem_units_table( idomain, P_c2h5co3 ) = 'ppmv' chem_streams_table( idomain, P_c2h5co3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5co3 )%stream(2) = 2097216 ! 00200040 F_c2h5co3 = .TRUE. IF ( chem_index_table( PARAM_ppn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ppn = chem_num_table(idomain) chem_index_table( PARAM_ppn , idomain ) = P_ppn ELSE P_ppn = chem_index_table( PARAM_ppn , idomain ) END IF chem_boundary_table( idomain, P_ppn ) = .TRUE. chem_dname_table( idomain, P_ppn ) = 'ppn' chem_desc_table( idomain, P_ppn ) = 'PPN concentration' chem_units_table( idomain, P_ppn ) = 'ppmv' chem_streams_table( idomain, P_ppn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ppn )%stream(2) = 2097216 ! 00200040 F_ppn = .TRUE. IF ( chem_index_table( PARAM_hoch2cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2cho = chem_num_table(idomain) chem_index_table( PARAM_hoch2cho , idomain ) = P_hoch2cho ELSE P_hoch2cho = chem_index_table( PARAM_hoch2cho , idomain ) END IF chem_boundary_table( idomain, P_hoch2cho ) = .TRUE. chem_dname_table( idomain, P_hoch2cho ) = 'hoch2cho' chem_desc_table( idomain, P_hoch2cho ) = 'HOCH2CHO concentration' chem_units_table( idomain, P_hoch2cho ) = 'ppmv' chem_streams_table( idomain, P_hoch2cho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoch2cho )%stream(2) = 2097216 ! 00200040 F_hoch2cho = .TRUE. IF ( chem_index_table( PARAM_hoch2co3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2co3 = chem_num_table(idomain) chem_index_table( PARAM_hoch2co3 , idomain ) = P_hoch2co3 ELSE P_hoch2co3 = chem_index_table( PARAM_hoch2co3 , idomain ) END IF chem_boundary_table( idomain, P_hoch2co3 ) = .TRUE. chem_dname_table( idomain, P_hoch2co3 ) = 'hoch2co3' chem_desc_table( idomain, P_hoch2co3 ) = 'HOCH2CO3 concentration' chem_units_table( idomain, P_hoch2co3 ) = 'ppmv' chem_streams_table( idomain, P_hoch2co3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoch2co3 )%stream(2) = 2097216 ! 00200040 F_hoch2co3 = .TRUE. IF ( chem_index_table( PARAM_hoch2co3h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2co3h = chem_num_table(idomain) chem_index_table( PARAM_hoch2co3h , idomain ) = P_hoch2co3h ELSE P_hoch2co3h = chem_index_table( PARAM_hoch2co3h , idomain ) END IF chem_boundary_table( idomain, P_hoch2co3h ) = .TRUE. chem_dname_table( idomain, P_hoch2co3h ) = 'hoch2co3h' chem_desc_table( idomain, P_hoch2co3h ) = 'HOCH2CO3H concentration' chem_units_table( idomain, P_hoch2co3h ) = 'ppmv' chem_streams_table( idomain, P_hoch2co3h )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoch2co3h )%stream(2) = 2097216 ! 00200040 F_hoch2co3h = .TRUE. IF ( chem_index_table( PARAM_phan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phan = chem_num_table(idomain) chem_index_table( PARAM_phan , idomain ) = P_phan ELSE P_phan = chem_index_table( PARAM_phan , idomain ) END IF chem_boundary_table( idomain, P_phan ) = .TRUE. chem_dname_table( idomain, P_phan ) = 'phan' chem_desc_table( idomain, P_phan ) = 'PHAN concentration' chem_units_table( idomain, P_phan ) = 'ppmv' chem_streams_table( idomain, P_phan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_phan )%stream(2) = 2097216 ! 00200040 F_phan = .TRUE. IF ( chem_index_table( PARAM_ccarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ccarb12 = chem_num_table(idomain) chem_index_table( PARAM_ccarb12 , idomain ) = P_ccarb12 ELSE P_ccarb12 = chem_index_table( PARAM_ccarb12 , idomain ) END IF chem_boundary_table( idomain, P_ccarb12 ) = .TRUE. chem_dname_table( idomain, P_ccarb12 ) = 'ccarb12' chem_desc_table( idomain, P_ccarb12 ) = 'CCARB12 concentration' chem_units_table( idomain, P_ccarb12 ) = 'ppmv' chem_streams_table( idomain, P_ccarb12 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ccarb12 )%stream(2) = 2097216 ! 00200040 F_ccarb12 = .TRUE. IF ( chem_index_table( PARAM_ch3cl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cl = chem_num_table(idomain) chem_index_table( PARAM_ch3cl , idomain ) = P_ch3cl ELSE P_ch3cl = chem_index_table( PARAM_ch3cl , idomain ) END IF chem_boundary_table( idomain, P_ch3cl ) = .TRUE. chem_dname_table( idomain, P_ch3cl ) = 'ch3cl' chem_desc_table( idomain, P_ch3cl ) = 'CH3CL concentration' chem_units_table( idomain, P_ch3cl ) = 'ppmv' chem_streams_table( idomain, P_ch3cl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3cl )%stream(2) = 2097216 ! 00200040 F_ch3cl = .TRUE. IF ( chem_index_table( PARAM_ch2cl2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch2cl2 = chem_num_table(idomain) chem_index_table( PARAM_ch2cl2 , idomain ) = P_ch2cl2 ELSE P_ch2cl2 = chem_index_table( PARAM_ch2cl2 , idomain ) END IF chem_boundary_table( idomain, P_ch2cl2 ) = .TRUE. chem_dname_table( idomain, P_ch2cl2 ) = 'ch2cl2' chem_desc_table( idomain, P_ch2cl2 ) = 'CH2CL2 concentration' chem_units_table( idomain, P_ch2cl2 ) = 'ppmv' chem_streams_table( idomain, P_ch2cl2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch2cl2 )%stream(2) = 2097216 ! 00200040 F_ch2cl2 = .TRUE. IF ( chem_index_table( PARAM_chcl3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_chcl3 = chem_num_table(idomain) chem_index_table( PARAM_chcl3 , idomain ) = P_chcl3 ELSE P_chcl3 = chem_index_table( PARAM_chcl3 , idomain ) END IF chem_boundary_table( idomain, P_chcl3 ) = .TRUE. chem_dname_table( idomain, P_chcl3 ) = 'chcl3' chem_desc_table( idomain, P_chcl3 ) = 'CHCL3 concentration' chem_units_table( idomain, P_chcl3 ) = 'ppmv' chem_streams_table( idomain, P_chcl3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_chcl3 )%stream(2) = 2097216 ! 00200040 F_chcl3 = .TRUE. IF ( chem_index_table( PARAM_ch3ccl3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ccl3 = chem_num_table(idomain) chem_index_table( PARAM_ch3ccl3 , idomain ) = P_ch3ccl3 ELSE P_ch3ccl3 = chem_index_table( PARAM_ch3ccl3 , idomain ) END IF chem_boundary_table( idomain, P_ch3ccl3 ) = .TRUE. chem_dname_table( idomain, P_ch3ccl3 ) = 'ch3ccl3' chem_desc_table( idomain, P_ch3ccl3 ) = 'CH3CCL3 concentration' chem_units_table( idomain, P_ch3ccl3 ) = 'ppmv' chem_streams_table( idomain, P_ch3ccl3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3ccl3 )%stream(2) = 2097216 ! 00200040 F_ch3ccl3 = .TRUE. IF ( chem_index_table( PARAM_cdicleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cdicleth = chem_num_table(idomain) chem_index_table( PARAM_cdicleth , idomain ) = P_cdicleth ELSE P_cdicleth = chem_index_table( PARAM_cdicleth , idomain ) END IF chem_boundary_table( idomain, P_cdicleth ) = .TRUE. chem_dname_table( idomain, P_cdicleth ) = 'cdicleth' chem_desc_table( idomain, P_cdicleth ) = 'CDICLETH concentration' chem_units_table( idomain, P_cdicleth ) = 'ppmv' chem_streams_table( idomain, P_cdicleth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cdicleth )%stream(2) = 2097216 ! 00200040 F_cdicleth = .TRUE. IF ( chem_index_table( PARAM_tdicleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tdicleth = chem_num_table(idomain) chem_index_table( PARAM_tdicleth , idomain ) = P_tdicleth ELSE P_tdicleth = chem_index_table( PARAM_tdicleth , idomain ) END IF chem_boundary_table( idomain, P_tdicleth ) = .TRUE. chem_dname_table( idomain, P_tdicleth ) = 'tdicleth' chem_desc_table( idomain, P_tdicleth ) = 'TDICLETH concentration' chem_units_table( idomain, P_tdicleth ) = 'ppmv' chem_streams_table( idomain, P_tdicleth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tdicleth )%stream(2) = 2097216 ! 00200040 F_tdicleth = .TRUE. IF ( chem_index_table( PARAM_tricleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tricleth = chem_num_table(idomain) chem_index_table( PARAM_tricleth , idomain ) = P_tricleth ELSE P_tricleth = chem_index_table( PARAM_tricleth , idomain ) END IF chem_boundary_table( idomain, P_tricleth ) = .TRUE. chem_dname_table( idomain, P_tricleth ) = 'tricleth' chem_desc_table( idomain, P_tricleth ) = 'TRICLETH concentration' chem_units_table( idomain, P_tricleth ) = 'ppmv' chem_streams_table( idomain, P_tricleth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tricleth )%stream(2) = 2097216 ! 00200040 F_tricleth = .TRUE. IF ( chem_index_table( PARAM_tce , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tce = chem_num_table(idomain) chem_index_table( PARAM_tce , idomain ) = P_tce ELSE P_tce = chem_index_table( PARAM_tce , idomain ) END IF chem_boundary_table( idomain, P_tce ) = .TRUE. chem_dname_table( idomain, P_tce ) = 'tce' chem_desc_table( idomain, P_tce ) = 'TCE concentration' chem_units_table( idomain, P_tce ) = 'ppmv' chem_streams_table( idomain, P_tce )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tce )%stream(2) = 2097216 ! 00200040 F_tce = .TRUE. IF ( chem_index_table( PARAM_ucarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ucarb12 = chem_num_table(idomain) chem_index_table( PARAM_ucarb12 , idomain ) = P_ucarb12 ELSE P_ucarb12 = chem_index_table( PARAM_ucarb12 , idomain ) END IF chem_boundary_table( idomain, P_ucarb12 ) = .TRUE. chem_dname_table( idomain, P_ucarb12 ) = 'ucarb12' chem_desc_table( idomain, P_ucarb12 ) = 'UCARB12 concentration' chem_units_table( idomain, P_ucarb12 ) = 'ppmv' chem_streams_table( idomain, P_ucarb12 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ucarb12 )%stream(2) = 2097216 ! 00200040 F_ucarb12 = .TRUE. IF ( chem_index_table( PARAM_ucarb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ucarb10 = chem_num_table(idomain) chem_index_table( PARAM_ucarb10 , idomain ) = P_ucarb10 ELSE P_ucarb10 = chem_index_table( PARAM_ucarb10 , idomain ) END IF chem_boundary_table( idomain, P_ucarb10 ) = .TRUE. chem_dname_table( idomain, P_ucarb10 ) = 'ucarb10' chem_desc_table( idomain, P_ucarb10 ) = 'UCARB10 concentration' chem_units_table( idomain, P_ucarb10 ) = 'ppmv' chem_streams_table( idomain, P_ucarb10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ucarb10 )%stream(2) = 2097216 ! 00200040 F_ucarb10 = .TRUE. IF ( chem_index_table( PARAM_ru14no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14no3 = chem_num_table(idomain) chem_index_table( PARAM_ru14no3 , idomain ) = P_ru14no3 ELSE P_ru14no3 = chem_index_table( PARAM_ru14no3 , idomain ) END IF chem_boundary_table( idomain, P_ru14no3 ) = .TRUE. chem_dname_table( idomain, P_ru14no3 ) = 'ru14no3' chem_desc_table( idomain, P_ru14no3 ) = 'RU14NO3 concentration' chem_units_table( idomain, P_ru14no3 ) = 'ppmv' chem_streams_table( idomain, P_ru14no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru14no3 )%stream(2) = 2097216 ! 00200040 F_ru14no3 = .TRUE. IF ( chem_index_table( PARAM_ru14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14ooh = chem_num_table(idomain) chem_index_table( PARAM_ru14ooh , idomain ) = P_ru14ooh ELSE P_ru14ooh = chem_index_table( PARAM_ru14ooh , idomain ) END IF chem_boundary_table( idomain, P_ru14ooh ) = .TRUE. chem_dname_table( idomain, P_ru14ooh ) = 'ru14ooh' chem_desc_table( idomain, P_ru14ooh ) = 'RU14OOH concentration' chem_units_table( idomain, P_ru14ooh ) = 'ppmv' chem_streams_table( idomain, P_ru14ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru14ooh )%stream(2) = 2097216 ! 00200040 F_ru14ooh = .TRUE. IF ( chem_index_table( PARAM_ru12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12ooh = chem_num_table(idomain) chem_index_table( PARAM_ru12ooh , idomain ) = P_ru12ooh ELSE P_ru12ooh = chem_index_table( PARAM_ru12ooh , idomain ) END IF chem_boundary_table( idomain, P_ru12ooh ) = .TRUE. chem_dname_table( idomain, P_ru12ooh ) = 'ru12ooh' chem_desc_table( idomain, P_ru12ooh ) = 'RU12OOH concentration' chem_units_table( idomain, P_ru12ooh ) = 'ppmv' chem_streams_table( idomain, P_ru12ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru12ooh )%stream(2) = 2097216 ! 00200040 F_ru12ooh = .TRUE. IF ( chem_index_table( PARAM_ru10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru10ooh = chem_num_table(idomain) chem_index_table( PARAM_ru10ooh , idomain ) = P_ru10ooh ELSE P_ru10ooh = chem_index_table( PARAM_ru10ooh , idomain ) END IF chem_boundary_table( idomain, P_ru10ooh ) = .TRUE. chem_dname_table( idomain, P_ru10ooh ) = 'ru10ooh' chem_desc_table( idomain, P_ru10ooh ) = 'RU10OOH concentration' chem_units_table( idomain, P_ru10ooh ) = 'ppmv' chem_streams_table( idomain, P_ru10ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru10ooh )%stream(2) = 2097216 ! 00200040 F_ru10ooh = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 ! 00200040 F_mpan = .TRUE. IF ( chem_index_table( PARAM_ru12pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12pan = chem_num_table(idomain) chem_index_table( PARAM_ru12pan , idomain ) = P_ru12pan ELSE P_ru12pan = chem_index_table( PARAM_ru12pan , idomain ) END IF chem_boundary_table( idomain, P_ru12pan ) = .TRUE. chem_dname_table( idomain, P_ru12pan ) = 'ru12pan' chem_desc_table( idomain, P_ru12pan ) = 'RU12PAN concentration' chem_units_table( idomain, P_ru12pan ) = 'ppmv' chem_streams_table( idomain, P_ru12pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru12pan )%stream(2) = 2097216 ! 00200040 F_ru12pan = .TRUE. IF ( chem_index_table( PARAM_nucarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nucarb12 = chem_num_table(idomain) chem_index_table( PARAM_nucarb12 , idomain ) = P_nucarb12 ELSE P_nucarb12 = chem_index_table( PARAM_nucarb12 , idomain ) END IF chem_boundary_table( idomain, P_nucarb12 ) = .TRUE. chem_dname_table( idomain, P_nucarb12 ) = 'nucarb12' chem_desc_table( idomain, P_nucarb12 ) = 'NUCARB12 concentration' chem_units_table( idomain, P_nucarb12 ) = 'ppmv' chem_streams_table( idomain, P_nucarb12 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nucarb12 )%stream(2) = 2097216 ! 00200040 F_nucarb12 = .TRUE. IF ( chem_index_table( PARAM_nru14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru14ooh = chem_num_table(idomain) chem_index_table( PARAM_nru14ooh , idomain ) = P_nru14ooh ELSE P_nru14ooh = chem_index_table( PARAM_nru14ooh , idomain ) END IF chem_boundary_table( idomain, P_nru14ooh ) = .TRUE. chem_dname_table( idomain, P_nru14ooh ) = 'nru14ooh' chem_desc_table( idomain, P_nru14ooh ) = 'NRU14OOH concentration' chem_units_table( idomain, P_nru14ooh ) = 'ppmv' chem_streams_table( idomain, P_nru14ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nru14ooh )%stream(2) = 2097216 ! 00200040 F_nru14ooh = .TRUE. IF ( chem_index_table( PARAM_nru12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru12ooh = chem_num_table(idomain) chem_index_table( PARAM_nru12ooh , idomain ) = P_nru12ooh ELSE P_nru12ooh = chem_index_table( PARAM_nru12ooh , idomain ) END IF chem_boundary_table( idomain, P_nru12ooh ) = .TRUE. chem_dname_table( idomain, P_nru12ooh ) = 'nru12ooh' chem_desc_table( idomain, P_nru12ooh ) = 'NRU12OOH concentration' chem_units_table( idomain, P_nru12ooh ) = 'ppmv' chem_streams_table( idomain, P_nru12ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nru12ooh )%stream(2) = 2097216 ! 00200040 F_nru12ooh = .TRUE. IF ( chem_index_table( PARAM_noa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_noa = chem_num_table(idomain) chem_index_table( PARAM_noa , idomain ) = P_noa ELSE P_noa = chem_index_table( PARAM_noa , idomain ) END IF chem_boundary_table( idomain, P_noa ) = .TRUE. chem_dname_table( idomain, P_noa ) = 'noa' chem_desc_table( idomain, P_noa ) = 'NOA concentration' chem_units_table( idomain, P_noa ) = 'ppmv' chem_streams_table( idomain, P_noa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_noa )%stream(2) = 2097216 ! 00200040 F_noa = .TRUE. IF ( chem_index_table( PARAM_ra13no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13no3 = chem_num_table(idomain) chem_index_table( PARAM_ra13no3 , idomain ) = P_ra13no3 ELSE P_ra13no3 = chem_index_table( PARAM_ra13no3 , idomain ) END IF chem_boundary_table( idomain, P_ra13no3 ) = .TRUE. chem_dname_table( idomain, P_ra13no3 ) = 'ra13no3' chem_desc_table( idomain, P_ra13no3 ) = 'RA13NO3 concentration' chem_units_table( idomain, P_ra13no3 ) = 'ppmv' chem_streams_table( idomain, P_ra13no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra13no3 )%stream(2) = 2097216 ! 00200040 F_ra13no3 = .TRUE. IF ( chem_index_table( PARAM_ra13ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13ooh = chem_num_table(idomain) chem_index_table( PARAM_ra13ooh , idomain ) = P_ra13ooh ELSE P_ra13ooh = chem_index_table( PARAM_ra13ooh , idomain ) END IF chem_boundary_table( idomain, P_ra13ooh ) = .TRUE. chem_dname_table( idomain, P_ra13ooh ) = 'ra13ooh' chem_desc_table( idomain, P_ra13ooh ) = 'RA13OOH concentration' chem_units_table( idomain, P_ra13ooh ) = 'ppmv' chem_streams_table( idomain, P_ra13ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra13ooh )%stream(2) = 2097216 ! 00200040 F_ra13ooh = .TRUE. IF ( chem_index_table( PARAM_udcarb8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb8 = chem_num_table(idomain) chem_index_table( PARAM_udcarb8 , idomain ) = P_udcarb8 ELSE P_udcarb8 = chem_index_table( PARAM_udcarb8 , idomain ) END IF chem_boundary_table( idomain, P_udcarb8 ) = .TRUE. chem_dname_table( idomain, P_udcarb8 ) = 'udcarb8' chem_desc_table( idomain, P_udcarb8 ) = 'UDCARB8 concentration' chem_units_table( idomain, P_udcarb8 ) = 'ppmv' chem_streams_table( idomain, P_udcarb8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udcarb8 )%stream(2) = 2097216 ! 00200040 F_udcarb8 = .TRUE. IF ( chem_index_table( PARAM_aroh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aroh14 = chem_num_table(idomain) chem_index_table( PARAM_aroh14 , idomain ) = P_aroh14 ELSE P_aroh14 = chem_index_table( PARAM_aroh14 , idomain ) END IF chem_boundary_table( idomain, P_aroh14 ) = .TRUE. chem_dname_table( idomain, P_aroh14 ) = 'aroh14' chem_desc_table( idomain, P_aroh14 ) = 'AROH14 concentration' chem_units_table( idomain, P_aroh14 ) = 'ppmv' chem_streams_table( idomain, P_aroh14 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aroh14 )%stream(2) = 2097216 ! 00200040 F_aroh14 = .TRUE. IF ( chem_index_table( PARAM_raroh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_raroh14 = chem_num_table(idomain) chem_index_table( PARAM_raroh14 , idomain ) = P_raroh14 ELSE P_raroh14 = chem_index_table( PARAM_raroh14 , idomain ) END IF chem_boundary_table( idomain, P_raroh14 ) = .TRUE. chem_dname_table( idomain, P_raroh14 ) = 'raroh14' chem_desc_table( idomain, P_raroh14 ) = 'RAROH14 concentration' chem_units_table( idomain, P_raroh14 ) = 'ppmv' chem_streams_table( idomain, P_raroh14 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_raroh14 )%stream(2) = 2097216 ! 00200040 F_raroh14 = .TRUE. IF ( chem_index_table( PARAM_arnoh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_arnoh14 = chem_num_table(idomain) chem_index_table( PARAM_arnoh14 , idomain ) = P_arnoh14 ELSE P_arnoh14 = chem_index_table( PARAM_arnoh14 , idomain ) END IF chem_boundary_table( idomain, P_arnoh14 ) = .TRUE. chem_dname_table( idomain, P_arnoh14 ) = 'arnoh14' chem_desc_table( idomain, P_arnoh14 ) = 'ARNOH14 concentration' chem_units_table( idomain, P_arnoh14 ) = 'ppmv' chem_streams_table( idomain, P_arnoh14 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_arnoh14 )%stream(2) = 2097216 ! 00200040 F_arnoh14 = .TRUE. IF ( chem_index_table( PARAM_ra16no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16no3 = chem_num_table(idomain) chem_index_table( PARAM_ra16no3 , idomain ) = P_ra16no3 ELSE P_ra16no3 = chem_index_table( PARAM_ra16no3 , idomain ) END IF chem_boundary_table( idomain, P_ra16no3 ) = .TRUE. chem_dname_table( idomain, P_ra16no3 ) = 'ra16no3' chem_desc_table( idomain, P_ra16no3 ) = 'RA16NO3 concentration' chem_units_table( idomain, P_ra16no3 ) = 'ppmv' chem_streams_table( idomain, P_ra16no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra16no3 )%stream(2) = 2097216 ! 00200040 F_ra16no3 = .TRUE. IF ( chem_index_table( PARAM_ra16ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16ooh = chem_num_table(idomain) chem_index_table( PARAM_ra16ooh , idomain ) = P_ra16ooh ELSE P_ra16ooh = chem_index_table( PARAM_ra16ooh , idomain ) END IF chem_boundary_table( idomain, P_ra16ooh ) = .TRUE. chem_dname_table( idomain, P_ra16ooh ) = 'ra16ooh' chem_desc_table( idomain, P_ra16ooh ) = 'RA16OOH concentration' chem_units_table( idomain, P_ra16ooh ) = 'ppmv' chem_streams_table( idomain, P_ra16ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra16ooh )%stream(2) = 2097216 ! 00200040 F_ra16ooh = .TRUE. IF ( chem_index_table( PARAM_udcarb11 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb11 = chem_num_table(idomain) chem_index_table( PARAM_udcarb11 , idomain ) = P_udcarb11 ELSE P_udcarb11 = chem_index_table( PARAM_udcarb11 , idomain ) END IF chem_boundary_table( idomain, P_udcarb11 ) = .TRUE. chem_dname_table( idomain, P_udcarb11 ) = 'udcarb11' chem_desc_table( idomain, P_udcarb11 ) = 'UDCARB11 concentration' chem_units_table( idomain, P_udcarb11 ) = 'ppmv' chem_streams_table( idomain, P_udcarb11 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udcarb11 )%stream(2) = 2097216 ! 00200040 F_udcarb11 = .TRUE. IF ( chem_index_table( PARAM_aroh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aroh17 = chem_num_table(idomain) chem_index_table( PARAM_aroh17 , idomain ) = P_aroh17 ELSE P_aroh17 = chem_index_table( PARAM_aroh17 , idomain ) END IF chem_boundary_table( idomain, P_aroh17 ) = .TRUE. chem_dname_table( idomain, P_aroh17 ) = 'aroh17' chem_desc_table( idomain, P_aroh17 ) = 'AROH17 concentration' chem_units_table( idomain, P_aroh17 ) = 'ppmv' chem_streams_table( idomain, P_aroh17 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aroh17 )%stream(2) = 2097216 ! 00200040 F_aroh17 = .TRUE. IF ( chem_index_table( PARAM_raroh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_raroh17 = chem_num_table(idomain) chem_index_table( PARAM_raroh17 , idomain ) = P_raroh17 ELSE P_raroh17 = chem_index_table( PARAM_raroh17 , idomain ) END IF chem_boundary_table( idomain, P_raroh17 ) = .TRUE. chem_dname_table( idomain, P_raroh17 ) = 'raroh17' chem_desc_table( idomain, P_raroh17 ) = 'RAROH17 concentration' chem_units_table( idomain, P_raroh17 ) = 'ppmv' chem_streams_table( idomain, P_raroh17 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_raroh17 )%stream(2) = 2097216 ! 00200040 F_raroh17 = .TRUE. IF ( chem_index_table( PARAM_arnoh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_arnoh17 = chem_num_table(idomain) chem_index_table( PARAM_arnoh17 , idomain ) = P_arnoh17 ELSE P_arnoh17 = chem_index_table( PARAM_arnoh17 , idomain ) END IF chem_boundary_table( idomain, P_arnoh17 ) = .TRUE. chem_dname_table( idomain, P_arnoh17 ) = 'arnoh17' chem_desc_table( idomain, P_arnoh17 ) = 'ARNOH17 concentration' chem_units_table( idomain, P_arnoh17 ) = 'ppmv' chem_streams_table( idomain, P_arnoh17 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_arnoh17 )%stream(2) = 2097216 ! 00200040 F_arnoh17 = .TRUE. IF ( chem_index_table( PARAM_udcarb14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb14 = chem_num_table(idomain) chem_index_table( PARAM_udcarb14 , idomain ) = P_udcarb14 ELSE P_udcarb14 = chem_index_table( PARAM_udcarb14 , idomain ) END IF chem_boundary_table( idomain, P_udcarb14 ) = .TRUE. chem_dname_table( idomain, P_udcarb14 ) = 'udcarb14' chem_desc_table( idomain, P_udcarb14 ) = 'UDCARB14 concentration' chem_units_table( idomain, P_udcarb14 ) = 'ppmv' chem_streams_table( idomain, P_udcarb14 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udcarb14 )%stream(2) = 2097216 ! 00200040 F_udcarb14 = .TRUE. IF ( chem_index_table( PARAM_ra19co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19co2 = chem_num_table(idomain) chem_index_table( PARAM_ra19co2 , idomain ) = P_ra19co2 ELSE P_ra19co2 = chem_index_table( PARAM_ra19co2 , idomain ) END IF chem_boundary_table( idomain, P_ra19co2 ) = .TRUE. chem_dname_table( idomain, P_ra19co2 ) = 'ra19co2' chem_desc_table( idomain, P_ra19co2 ) = 'RA19CO2 concentration' chem_units_table( idomain, P_ra19co2 ) = 'ppmv' chem_streams_table( idomain, P_ra19co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra19co2 )%stream(2) = 2097216 ! 00200040 F_ra19co2 = .TRUE. IF ( chem_index_table( PARAM_ra19no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19no3 = chem_num_table(idomain) chem_index_table( PARAM_ra19no3 , idomain ) = P_ra19no3 ELSE P_ra19no3 = chem_index_table( PARAM_ra19no3 , idomain ) END IF chem_boundary_table( idomain, P_ra19no3 ) = .TRUE. chem_dname_table( idomain, P_ra19no3 ) = 'ra19no3' chem_desc_table( idomain, P_ra19no3 ) = 'RA19NO3 concentration' chem_units_table( idomain, P_ra19no3 ) = 'ppmv' chem_streams_table( idomain, P_ra19no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra19no3 )%stream(2) = 2097216 ! 00200040 F_ra19no3 = .TRUE. IF ( chem_index_table( PARAM_ra19ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19ooh = chem_num_table(idomain) chem_index_table( PARAM_ra19ooh , idomain ) = P_ra19ooh ELSE P_ra19ooh = chem_index_table( PARAM_ra19ooh , idomain ) END IF chem_boundary_table( idomain, P_ra19ooh ) = .TRUE. chem_dname_table( idomain, P_ra19ooh ) = 'ra19ooh' chem_desc_table( idomain, P_ra19ooh ) = 'RA19OOH concentration' chem_units_table( idomain, P_ra19ooh ) = 'ppmv' chem_streams_table( idomain, P_ra19ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra19ooh )%stream(2) = 2097216 ! 00200040 F_ra19ooh = .TRUE. IF ( chem_index_table( PARAM_rtn28no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn28no3 , idomain ) = P_rtn28no3 ELSE P_rtn28no3 = chem_index_table( PARAM_rtn28no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn28no3 ) = .TRUE. chem_dname_table( idomain, P_rtn28no3 ) = 'rtn28no3' chem_desc_table( idomain, P_rtn28no3 ) = 'RTN28NO3 concentration' chem_units_table( idomain, P_rtn28no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn28no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn28no3 )%stream(2) = 2097216 ! 00200040 F_rtn28no3 = .TRUE. IF ( chem_index_table( PARAM_rtn28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn28ooh , idomain ) = P_rtn28ooh ELSE P_rtn28ooh = chem_index_table( PARAM_rtn28ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn28ooh ) = .TRUE. chem_dname_table( idomain, P_rtn28ooh ) = 'rtn28ooh' chem_desc_table( idomain, P_rtn28ooh ) = 'RTN28OOH concentration' chem_units_table( idomain, P_rtn28ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn28ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn28ooh )%stream(2) = 2097216 ! 00200040 F_rtn28ooh = .TRUE. IF ( chem_index_table( PARAM_tncarb26 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb26 = chem_num_table(idomain) chem_index_table( PARAM_tncarb26 , idomain ) = P_tncarb26 ELSE P_tncarb26 = chem_index_table( PARAM_tncarb26 , idomain ) END IF chem_boundary_table( idomain, P_tncarb26 ) = .TRUE. chem_dname_table( idomain, P_tncarb26 ) = 'tncarb26' chem_desc_table( idomain, P_tncarb26 ) = 'TNCARB26 concentration' chem_units_table( idomain, P_tncarb26 ) = 'ppmv' chem_streams_table( idomain, P_tncarb26 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tncarb26 )%stream(2) = 2097216 ! 00200040 F_tncarb26 = .TRUE. IF ( chem_index_table( PARAM_rtn26ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn26ooh , idomain ) = P_rtn26ooh ELSE P_rtn26ooh = chem_index_table( PARAM_rtn26ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn26ooh ) = .TRUE. chem_dname_table( idomain, P_rtn26ooh ) = 'rtn26ooh' chem_desc_table( idomain, P_rtn26ooh ) = 'RTN26OOH concentration' chem_units_table( idomain, P_rtn26ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn26ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn26ooh )%stream(2) = 2097216 ! 00200040 F_rtn26ooh = .TRUE. IF ( chem_index_table( PARAM_nrtn28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtn28ooh = chem_num_table(idomain) chem_index_table( PARAM_nrtn28ooh , idomain ) = P_nrtn28ooh ELSE P_nrtn28ooh = chem_index_table( PARAM_nrtn28ooh , idomain ) END IF chem_boundary_table( idomain, P_nrtn28ooh ) = .TRUE. chem_dname_table( idomain, P_nrtn28ooh ) = 'nrtn28ooh' chem_desc_table( idomain, P_nrtn28ooh ) = 'NRTN28OOH concentration' chem_units_table( idomain, P_nrtn28ooh ) = 'ppmv' chem_streams_table( idomain, P_nrtn28ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrtn28ooh )%stream(2) = 2097216 ! 00200040 F_nrtn28ooh = .TRUE. IF ( chem_index_table( PARAM_rtn26pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26pan = chem_num_table(idomain) chem_index_table( PARAM_rtn26pan , idomain ) = P_rtn26pan ELSE P_rtn26pan = chem_index_table( PARAM_rtn26pan , idomain ) END IF chem_boundary_table( idomain, P_rtn26pan ) = .TRUE. chem_dname_table( idomain, P_rtn26pan ) = 'rtn26pan' chem_desc_table( idomain, P_rtn26pan ) = 'RTN26PAN concentration' chem_units_table( idomain, P_rtn26pan ) = 'ppmv' chem_streams_table( idomain, P_rtn26pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn26pan )%stream(2) = 2097216 ! 00200040 F_rtn26pan = .TRUE. IF ( chem_index_table( PARAM_rtn25ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn25ooh , idomain ) = P_rtn25ooh ELSE P_rtn25ooh = chem_index_table( PARAM_rtn25ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn25ooh ) = .TRUE. chem_dname_table( idomain, P_rtn25ooh ) = 'rtn25ooh' chem_desc_table( idomain, P_rtn25ooh ) = 'RTN25OOH concentration' chem_units_table( idomain, P_rtn25ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn25ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn25ooh )%stream(2) = 2097216 ! 00200040 F_rtn25ooh = .TRUE. IF ( chem_index_table( PARAM_rtn24ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn24ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn24ooh , idomain ) = P_rtn24ooh ELSE P_rtn24ooh = chem_index_table( PARAM_rtn24ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn24ooh ) = .TRUE. chem_dname_table( idomain, P_rtn24ooh ) = 'rtn24ooh' chem_desc_table( idomain, P_rtn24ooh ) = 'RTN24OOH concentration' chem_units_table( idomain, P_rtn24ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn24ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn24ooh )%stream(2) = 2097216 ! 00200040 F_rtn24ooh = .TRUE. IF ( chem_index_table( PARAM_rtn23ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn23ooh , idomain ) = P_rtn23ooh ELSE P_rtn23ooh = chem_index_table( PARAM_rtn23ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn23ooh ) = .TRUE. chem_dname_table( idomain, P_rtn23ooh ) = 'rtn23ooh' chem_desc_table( idomain, P_rtn23ooh ) = 'RTN23OOH concentration' chem_units_table( idomain, P_rtn23ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn23ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn23ooh )%stream(2) = 2097216 ! 00200040 F_rtn23ooh = .TRUE. IF ( chem_index_table( PARAM_rtn14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn14ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn14ooh , idomain ) = P_rtn14ooh ELSE P_rtn14ooh = chem_index_table( PARAM_rtn14ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn14ooh ) = .TRUE. chem_dname_table( idomain, P_rtn14ooh ) = 'rtn14ooh' chem_desc_table( idomain, P_rtn14ooh ) = 'RTN14OOH concentration' chem_units_table( idomain, P_rtn14ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn14ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn14ooh )%stream(2) = 2097216 ! 00200040 F_rtn14ooh = .TRUE. IF ( chem_index_table( PARAM_rtn10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn10ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn10ooh , idomain ) = P_rtn10ooh ELSE P_rtn10ooh = chem_index_table( PARAM_rtn10ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn10ooh ) = .TRUE. chem_dname_table( idomain, P_rtn10ooh ) = 'rtn10ooh' chem_desc_table( idomain, P_rtn10ooh ) = 'RTN10OOH concentration' chem_units_table( idomain, P_rtn10ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn10ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn10ooh )%stream(2) = 2097216 ! 00200040 F_rtn10ooh = .TRUE. IF ( chem_index_table( PARAM_tncarb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb10 = chem_num_table(idomain) chem_index_table( PARAM_tncarb10 , idomain ) = P_tncarb10 ELSE P_tncarb10 = chem_index_table( PARAM_tncarb10 , idomain ) END IF chem_boundary_table( idomain, P_tncarb10 ) = .TRUE. chem_dname_table( idomain, P_tncarb10 ) = 'tncarb10' chem_desc_table( idomain, P_tncarb10 ) = 'TNCARB10 concentration' chem_units_table( idomain, P_tncarb10 ) = 'ppmv' chem_streams_table( idomain, P_tncarb10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tncarb10 )%stream(2) = 2097216 ! 00200040 F_tncarb10 = .TRUE. IF ( chem_index_table( PARAM_rtn25no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn25no3 , idomain ) = P_rtn25no3 ELSE P_rtn25no3 = chem_index_table( PARAM_rtn25no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn25no3 ) = .TRUE. chem_dname_table( idomain, P_rtn25no3 ) = 'rtn25no3' chem_desc_table( idomain, P_rtn25no3 ) = 'RTN25NO3 concentration' chem_units_table( idomain, P_rtn25no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn25no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn25no3 )%stream(2) = 2097216 ! 00200040 F_rtn25no3 = .TRUE. IF ( chem_index_table( PARAM_tncarb15 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb15 = chem_num_table(idomain) chem_index_table( PARAM_tncarb15 , idomain ) = P_tncarb15 ELSE P_tncarb15 = chem_index_table( PARAM_tncarb15 , idomain ) END IF chem_boundary_table( idomain, P_tncarb15 ) = .TRUE. chem_dname_table( idomain, P_tncarb15 ) = 'tncarb15' chem_desc_table( idomain, P_tncarb15 ) = 'TNCARB15 concentration' chem_units_table( idomain, P_tncarb15 ) = 'ppmv' chem_streams_table( idomain, P_tncarb15 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tncarb15 )%stream(2) = 2097216 ! 00200040 F_tncarb15 = .TRUE. IF ( chem_index_table( PARAM_rcooh25 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rcooh25 = chem_num_table(idomain) chem_index_table( PARAM_rcooh25 , idomain ) = P_rcooh25 ELSE P_rcooh25 = chem_index_table( PARAM_rcooh25 , idomain ) END IF chem_boundary_table( idomain, P_rcooh25 ) = .TRUE. chem_dname_table( idomain, P_rcooh25 ) = 'rcooh25' chem_desc_table( idomain, P_rcooh25 ) = 'RCOOH25 concentration' chem_units_table( idomain, P_rcooh25 ) = 'ppmv' chem_streams_table( idomain, P_rcooh25 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rcooh25 )%stream(2) = 2097216 ! 00200040 F_rcooh25 = .TRUE. IF ( chem_index_table( PARAM_rtx28no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx28no3 , idomain ) = P_rtx28no3 ELSE P_rtx28no3 = chem_index_table( PARAM_rtx28no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx28no3 ) = .TRUE. chem_dname_table( idomain, P_rtx28no3 ) = 'rtx28no3' chem_desc_table( idomain, P_rtx28no3 ) = 'RTX28NO3 concentration' chem_units_table( idomain, P_rtx28no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx28no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx28no3 )%stream(2) = 2097216 ! 00200040 F_rtx28no3 = .TRUE. IF ( chem_index_table( PARAM_rtx28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx28ooh , idomain ) = P_rtx28ooh ELSE P_rtx28ooh = chem_index_table( PARAM_rtx28ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx28ooh ) = .TRUE. chem_dname_table( idomain, P_rtx28ooh ) = 'rtx28ooh' chem_desc_table( idomain, P_rtx28ooh ) = 'RTX28OOH concentration' chem_units_table( idomain, P_rtx28ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx28ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx28ooh )%stream(2) = 2097216 ! 00200040 F_rtx28ooh = .TRUE. IF ( chem_index_table( PARAM_txcarb24 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_txcarb24 = chem_num_table(idomain) chem_index_table( PARAM_txcarb24 , idomain ) = P_txcarb24 ELSE P_txcarb24 = chem_index_table( PARAM_txcarb24 , idomain ) END IF chem_boundary_table( idomain, P_txcarb24 ) = .TRUE. chem_dname_table( idomain, P_txcarb24 ) = 'txcarb24' chem_desc_table( idomain, P_txcarb24 ) = 'TXCARB24 concentration' chem_units_table( idomain, P_txcarb24 ) = 'ppmv' chem_streams_table( idomain, P_txcarb24 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_txcarb24 )%stream(2) = 2097216 ! 00200040 F_txcarb24 = .TRUE. IF ( chem_index_table( PARAM_rtx24no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx24no3 , idomain ) = P_rtx24no3 ELSE P_rtx24no3 = chem_index_table( PARAM_rtx24no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx24no3 ) = .TRUE. chem_dname_table( idomain, P_rtx24no3 ) = 'rtx24no3' chem_desc_table( idomain, P_rtx24no3 ) = 'RTX24NO3 concentration' chem_units_table( idomain, P_rtx24no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx24no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx24no3 )%stream(2) = 2097216 ! 00200040 F_rtx24no3 = .TRUE. IF ( chem_index_table( PARAM_rtx24ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx24ooh , idomain ) = P_rtx24ooh ELSE P_rtx24ooh = chem_index_table( PARAM_rtx24ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx24ooh ) = .TRUE. chem_dname_table( idomain, P_rtx24ooh ) = 'rtx24ooh' chem_desc_table( idomain, P_rtx24ooh ) = 'RTX24OOH concentration' chem_units_table( idomain, P_rtx24ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx24ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx24ooh )%stream(2) = 2097216 ! 00200040 F_rtx24ooh = .TRUE. IF ( chem_index_table( PARAM_txcarb22 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_txcarb22 = chem_num_table(idomain) chem_index_table( PARAM_txcarb22 , idomain ) = P_txcarb22 ELSE P_txcarb22 = chem_index_table( PARAM_txcarb22 , idomain ) END IF chem_boundary_table( idomain, P_txcarb22 ) = .TRUE. chem_dname_table( idomain, P_txcarb22 ) = 'txcarb22' chem_desc_table( idomain, P_txcarb22 ) = 'TXCARB22 concentration' chem_units_table( idomain, P_txcarb22 ) = 'ppmv' chem_streams_table( idomain, P_txcarb22 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_txcarb22 )%stream(2) = 2097216 ! 00200040 F_txcarb22 = .TRUE. IF ( chem_index_table( PARAM_rtx22no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx22no3 , idomain ) = P_rtx22no3 ELSE P_rtx22no3 = chem_index_table( PARAM_rtx22no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx22no3 ) = .TRUE. chem_dname_table( idomain, P_rtx22no3 ) = 'rtx22no3' chem_desc_table( idomain, P_rtx22no3 ) = 'RTX22NO3 concentration' chem_units_table( idomain, P_rtx22no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx22no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx22no3 )%stream(2) = 2097216 ! 00200040 F_rtx22no3 = .TRUE. IF ( chem_index_table( PARAM_rtx22ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx22ooh , idomain ) = P_rtx22ooh ELSE P_rtx22ooh = chem_index_table( PARAM_rtx22ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx22ooh ) = .TRUE. chem_dname_table( idomain, P_rtx22ooh ) = 'rtx22ooh' chem_desc_table( idomain, P_rtx22ooh ) = 'RTX22OOH concentration' chem_units_table( idomain, P_rtx22ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx22ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx22ooh )%stream(2) = 2097216 ! 00200040 F_rtx22ooh = .TRUE. IF ( chem_index_table( PARAM_nrtx28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtx28ooh = chem_num_table(idomain) chem_index_table( PARAM_nrtx28ooh , idomain ) = P_nrtx28ooh ELSE P_nrtx28ooh = chem_index_table( PARAM_nrtx28ooh , idomain ) END IF chem_boundary_table( idomain, P_nrtx28ooh ) = .TRUE. chem_dname_table( idomain, P_nrtx28ooh ) = 'nrtx28ooh' chem_desc_table( idomain, P_nrtx28ooh ) = 'NRTX28OOH concentration' chem_units_table( idomain, P_nrtx28ooh ) = 'ppmv' chem_streams_table( idomain, P_nrtx28ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrtx28ooh )%stream(2) = 2097216 ! 00200040 F_nrtx28ooh = .TRUE. IF ( chem_index_table( PARAM_carb11a , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb11a = chem_num_table(idomain) chem_index_table( PARAM_carb11a , idomain ) = P_carb11a ELSE P_carb11a = chem_index_table( PARAM_carb11a , idomain ) END IF chem_boundary_table( idomain, P_carb11a ) = .TRUE. chem_dname_table( idomain, P_carb11a ) = 'carb11a' chem_desc_table( idomain, P_carb11a ) = 'CARB11A concentration' chem_units_table( idomain, P_carb11a ) = 'ppmv' chem_streams_table( idomain, P_carb11a )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb11a )%stream(2) = 2097216 ! 00200040 F_carb11a = .TRUE. IF ( chem_index_table( PARAM_anhy , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anhy = chem_num_table(idomain) chem_index_table( PARAM_anhy , idomain ) = P_anhy ELSE P_anhy = chem_index_table( PARAM_anhy , idomain ) END IF chem_boundary_table( idomain, P_anhy ) = .TRUE. chem_dname_table( idomain, P_anhy ) = 'anhy' chem_desc_table( idomain, P_anhy ) = 'ANHY concentration' chem_units_table( idomain, P_anhy ) = 'ppmv' chem_streams_table( idomain, P_anhy )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_anhy )%stream(2) = 2097216 ! 00200040 F_anhy = .TRUE. IF ( chem_index_table( PARAM_ch3o2no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2no2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2no2 , idomain ) = P_ch3o2no2 ELSE P_ch3o2no2 = chem_index_table( PARAM_ch3o2no2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2no2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2no2 ) = 'ch3o2no2' chem_desc_table( idomain, P_ch3o2no2 ) = 'CH3O2NO2 concentration' chem_units_table( idomain, P_ch3o2no2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2no2 )%stream(2) = 2097216 ! 00200040 F_ch3o2no2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_rtn23no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn23no3 , idomain ) = P_rtn23no3 ELSE P_rtn23no3 = chem_index_table( PARAM_rtn23no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn23no3 ) = .TRUE. chem_dname_table( idomain, P_rtn23no3 ) = 'rtn23no3' chem_desc_table( idomain, P_rtn23no3 ) = 'rtn23no3 concentration' chem_units_table( idomain, P_rtn23no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn23no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn23no3 )%stream(2) = 2097216 ! 00200040 F_rtn23no3 = .TRUE. IF ( chem_index_table( PARAM_tncarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb12 = chem_num_table(idomain) chem_index_table( PARAM_tncarb12 , idomain ) = P_tncarb12 ELSE P_tncarb12 = chem_index_table( PARAM_tncarb12 , idomain ) END IF chem_boundary_table( idomain, P_tncarb12 ) = .TRUE. chem_dname_table( idomain, P_tncarb12 ) = 'tncarb12' chem_desc_table( idomain, P_tncarb12 ) = 'tncarb12 concentration' chem_units_table( idomain, P_tncarb12 ) = 'ppmv' chem_streams_table( idomain, P_tncarb12 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tncarb12 )%stream(2) = 2097216 ! 00200040 F_tncarb12 = .TRUE. IF ( chem_index_table( PARAM_tncarb11 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb11 = chem_num_table(idomain) chem_index_table( PARAM_tncarb11 , idomain ) = P_tncarb11 ELSE P_tncarb11 = chem_index_table( PARAM_tncarb11 , idomain ) END IF chem_boundary_table( idomain, P_tncarb11 ) = .TRUE. chem_dname_table( idomain, P_tncarb11 ) = 'tncarb11' chem_desc_table( idomain, P_tncarb11 ) = 'tncarb11 concentration' chem_units_table( idomain, P_tncarb11 ) = 'ppmv' chem_streams_table( idomain, P_tncarb11 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tncarb11 )%stream(2) = 2097216 ! 00200040 F_tncarb11 = .TRUE. IF ( chem_index_table( PARAM_tm123b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm123b = chem_num_table(idomain) chem_index_table( PARAM_tm123b , idomain ) = P_tm123b ELSE P_tm123b = chem_index_table( PARAM_tm123b , idomain ) END IF chem_boundary_table( idomain, P_tm123b ) = .TRUE. chem_dname_table( idomain, P_tm123b ) = 'tm123b' chem_desc_table( idomain, P_tm123b ) = 'tm123b concentration' chem_units_table( idomain, P_tm123b ) = 'ppmv' chem_streams_table( idomain, P_tm123b )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tm123b )%stream(2) = 2097216 ! 00200040 F_tm123b = .TRUE. IF ( chem_index_table( PARAM_tm124b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm124b = chem_num_table(idomain) chem_index_table( PARAM_tm124b , idomain ) = P_tm124b ELSE P_tm124b = chem_index_table( PARAM_tm124b , idomain ) END IF chem_boundary_table( idomain, P_tm124b ) = .TRUE. chem_dname_table( idomain, P_tm124b ) = 'tm124b' chem_desc_table( idomain, P_tm124b ) = 'tm124b concentration' chem_units_table( idomain, P_tm124b ) = 'ppmv' chem_streams_table( idomain, P_tm124b )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tm124b )%stream(2) = 2097216 ! 00200040 F_tm124b = .TRUE. IF ( chem_index_table( PARAM_tm135b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm135b = chem_num_table(idomain) chem_index_table( PARAM_tm135b , idomain ) = P_tm135b ELSE P_tm135b = chem_index_table( PARAM_tm135b , idomain ) END IF chem_boundary_table( idomain, P_tm135b ) = .TRUE. chem_dname_table( idomain, P_tm135b ) = 'tm135b' chem_desc_table( idomain, P_tm135b ) = 'tm135b concentration' chem_units_table( idomain, P_tm135b ) = 'ppmv' chem_streams_table( idomain, P_tm135b )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tm135b )%stream(2) = 2097216 ! 00200040 F_tm135b = .TRUE. IF ( chem_index_table( PARAM_oethtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oethtol = chem_num_table(idomain) chem_index_table( PARAM_oethtol , idomain ) = P_oethtol ELSE P_oethtol = chem_index_table( PARAM_oethtol , idomain ) END IF chem_boundary_table( idomain, P_oethtol ) = .TRUE. chem_dname_table( idomain, P_oethtol ) = 'oethtol' chem_desc_table( idomain, P_oethtol ) = 'oethtol concentration' chem_units_table( idomain, P_oethtol ) = 'ppmv' chem_streams_table( idomain, P_oethtol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oethtol )%stream(2) = 2097216 ! 00200040 F_oethtol = .TRUE. IF ( chem_index_table( PARAM_methtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_methtol = chem_num_table(idomain) chem_index_table( PARAM_methtol , idomain ) = P_methtol ELSE P_methtol = chem_index_table( PARAM_methtol , idomain ) END IF chem_boundary_table( idomain, P_methtol ) = .TRUE. chem_dname_table( idomain, P_methtol ) = 'methtol' chem_desc_table( idomain, P_methtol ) = 'methtol concentration' chem_units_table( idomain, P_methtol ) = 'ppmv' chem_streams_table( idomain, P_methtol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_methtol )%stream(2) = 2097216 ! 00200040 F_methtol = .TRUE. IF ( chem_index_table( PARAM_pethtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pethtol = chem_num_table(idomain) chem_index_table( PARAM_pethtol , idomain ) = P_pethtol ELSE P_pethtol = chem_index_table( PARAM_pethtol , idomain ) END IF chem_boundary_table( idomain, P_pethtol ) = .TRUE. chem_dname_table( idomain, P_pethtol ) = 'pethtol' chem_desc_table( idomain, P_pethtol ) = 'pethtol concentration' chem_units_table( idomain, P_pethtol ) = 'ppmv' chem_streams_table( idomain, P_pethtol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pethtol )%stream(2) = 2097216 ! 00200040 F_pethtol = .TRUE. IF ( chem_index_table( PARAM_ra22no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22no3 = chem_num_table(idomain) chem_index_table( PARAM_ra22no3 , idomain ) = P_ra22no3 ELSE P_ra22no3 = chem_index_table( PARAM_ra22no3 , idomain ) END IF chem_boundary_table( idomain, P_ra22no3 ) = .TRUE. chem_dname_table( idomain, P_ra22no3 ) = 'ra22no3' chem_desc_table( idomain, P_ra22no3 ) = 'ra22no3 concentration' chem_units_table( idomain, P_ra22no3 ) = 'ppmv' chem_streams_table( idomain, P_ra22no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra22no3 )%stream(2) = 2097216 ! 00200040 F_ra22no3 = .TRUE. IF ( chem_index_table( PARAM_ra22ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22ooh = chem_num_table(idomain) chem_index_table( PARAM_ra22ooh , idomain ) = P_ra22ooh ELSE P_ra22ooh = chem_index_table( PARAM_ra22ooh , idomain ) END IF chem_boundary_table( idomain, P_ra22ooh ) = .TRUE. chem_dname_table( idomain, P_ra22ooh ) = 'ra22ooh' chem_desc_table( idomain, P_ra22ooh ) = 'ra22ooh concentration' chem_units_table( idomain, P_ra22ooh ) = 'ppmv' chem_streams_table( idomain, P_ra22ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra22ooh )%stream(2) = 2097216 ! 00200040 F_ra22ooh = .TRUE. IF ( chem_index_table( PARAM_dime35eb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dime35eb = chem_num_table(idomain) chem_index_table( PARAM_dime35eb , idomain ) = P_dime35eb ELSE P_dime35eb = chem_index_table( PARAM_dime35eb , idomain ) END IF chem_boundary_table( idomain, P_dime35eb ) = .TRUE. chem_dname_table( idomain, P_dime35eb ) = 'dime35eb' chem_desc_table( idomain, P_dime35eb ) = 'dime35eb concentration' chem_units_table( idomain, P_dime35eb ) = 'ppmv' chem_streams_table( idomain, P_dime35eb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dime35eb )%stream(2) = 2097216 ! 00200040 F_dime35eb = .TRUE. IF ( chem_index_table( PARAM_ra25no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25no3 = chem_num_table(idomain) chem_index_table( PARAM_ra25no3 , idomain ) = P_ra25no3 ELSE P_ra25no3 = chem_index_table( PARAM_ra25no3 , idomain ) END IF chem_boundary_table( idomain, P_ra25no3 ) = .TRUE. chem_dname_table( idomain, P_ra25no3 ) = 'ra25no3' chem_desc_table( idomain, P_ra25no3 ) = 'ra25no3 concentration' chem_units_table( idomain, P_ra25no3 ) = 'ppmv' chem_streams_table( idomain, P_ra25no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra25no3 )%stream(2) = 2097216 ! 00200040 F_ra25no3 = .TRUE. IF ( chem_index_table( PARAM_udcarb17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb17 = chem_num_table(idomain) chem_index_table( PARAM_udcarb17 , idomain ) = P_udcarb17 ELSE P_udcarb17 = chem_index_table( PARAM_udcarb17 , idomain ) END IF chem_boundary_table( idomain, P_udcarb17 ) = .TRUE. chem_dname_table( idomain, P_udcarb17 ) = 'udcarb17' chem_desc_table( idomain, P_udcarb17 ) = 'udcarb17 concentration' chem_units_table( idomain, P_udcarb17 ) = 'ppmv' chem_streams_table( idomain, P_udcarb17 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udcarb17 )%stream(2) = 2097216 ! 00200040 F_udcarb17 = .TRUE. IF ( chem_index_table( PARAM_ra25ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25ooh = chem_num_table(idomain) chem_index_table( PARAM_ra25ooh , idomain ) = P_ra25ooh ELSE P_ra25ooh = chem_index_table( PARAM_ra25ooh , idomain ) END IF chem_boundary_table( idomain, P_ra25ooh ) = .TRUE. chem_dname_table( idomain, P_ra25ooh ) = 'ra25ooh' chem_desc_table( idomain, P_ra25ooh ) = 'ra25ooh concentration' chem_units_table( idomain, P_ra25ooh ) = 'ppmv' chem_streams_table( idomain, P_ra25ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra25ooh )%stream(2) = 2097216 ! 00200040 F_ra25ooh = .TRUE. IF ( chem_index_table( PARAM_ch3oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oo = chem_num_table(idomain) chem_index_table( PARAM_ch3oo , idomain ) = P_ch3oo ELSE P_ch3oo = chem_index_table( PARAM_ch3oo , idomain ) END IF chem_boundary_table( idomain, P_ch3oo ) = .TRUE. chem_dname_table( idomain, P_ch3oo ) = 'ch3oo' chem_desc_table( idomain, P_ch3oo ) = 'CH3OO concentration' chem_units_table( idomain, P_ch3oo ) = 'ppmv' chem_streams_table( idomain, P_ch3oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oo )%stream(2) = 2097216 ! 00200040 F_ch3oo = .TRUE. IF ( chem_index_table( PARAM_c2h5o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5o2 = chem_num_table(idomain) chem_index_table( PARAM_c2h5o2 , idomain ) = P_c2h5o2 ELSE P_c2h5o2 = chem_index_table( PARAM_c2h5o2 , idomain ) END IF chem_boundary_table( idomain, P_c2h5o2 ) = .TRUE. chem_dname_table( idomain, P_c2h5o2 ) = 'c2h5o2' chem_desc_table( idomain, P_c2h5o2 ) = 'C2H5O2 concentration' chem_units_table( idomain, P_c2h5o2 ) = 'ppmv' chem_streams_table( idomain, P_c2h5o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5o2 )%stream(2) = 2097216 ! 00200040 F_c2h5o2 = .TRUE. IF ( chem_index_table( PARAM_hoch2ch2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2ch2o2 = chem_num_table(idomain) chem_index_table( PARAM_hoch2ch2o2 , idomain ) = P_hoch2ch2o2 ELSE P_hoch2ch2o2 = chem_index_table( PARAM_hoch2ch2o2 , idomain ) END IF chem_boundary_table( idomain, P_hoch2ch2o2 ) = .TRUE. chem_dname_table( idomain, P_hoch2ch2o2 ) = 'hoch2ch2o2' chem_desc_table( idomain, P_hoch2ch2o2 ) = 'HOCH2CH2O2 concentration' chem_units_table( idomain, P_hoch2ch2o2 ) = 'ppmv' chem_streams_table( idomain, P_hoch2ch2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoch2ch2o2 )%stream(2) = 2097216 ! 00200040 F_hoch2ch2o2 = .TRUE. IF ( chem_index_table( PARAM_ic3h7o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ic3h7o2 = chem_num_table(idomain) chem_index_table( PARAM_ic3h7o2 , idomain ) = P_ic3h7o2 ELSE P_ic3h7o2 = chem_index_table( PARAM_ic3h7o2 , idomain ) END IF chem_boundary_table( idomain, P_ic3h7o2 ) = .TRUE. chem_dname_table( idomain, P_ic3h7o2 ) = 'ic3h7o2' chem_desc_table( idomain, P_ic3h7o2 ) = 'IC3H7O2 concentration' chem_units_table( idomain, P_ic3h7o2 ) = 'ppmv' chem_streams_table( idomain, P_ic3h7o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ic3h7o2 )%stream(2) = 2097216 ! 00200040 F_ic3h7o2 = .TRUE. IF ( chem_index_table( PARAM_rn10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10o2 = chem_num_table(idomain) chem_index_table( PARAM_rn10o2 , idomain ) = P_rn10o2 ELSE P_rn10o2 = chem_index_table( PARAM_rn10o2 , idomain ) END IF chem_boundary_table( idomain, P_rn10o2 ) = .TRUE. chem_dname_table( idomain, P_rn10o2 ) = 'rn10o2' chem_desc_table( idomain, P_rn10o2 ) = 'RN10O2 concentration' chem_units_table( idomain, P_rn10o2 ) = 'ppmv' chem_streams_table( idomain, P_rn10o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn10o2 )%stream(2) = 2097216 ! 00200040 F_rn10o2 = .TRUE. IF ( chem_index_table( PARAM_rn13o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13o2 = chem_num_table(idomain) chem_index_table( PARAM_rn13o2 , idomain ) = P_rn13o2 ELSE P_rn13o2 = chem_index_table( PARAM_rn13o2 , idomain ) END IF chem_boundary_table( idomain, P_rn13o2 ) = .TRUE. chem_dname_table( idomain, P_rn13o2 ) = 'rn13o2' chem_desc_table( idomain, P_rn13o2 ) = 'RN13O2 concentration' chem_units_table( idomain, P_rn13o2 ) = 'ppmv' chem_streams_table( idomain, P_rn13o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn13o2 )%stream(2) = 2097216 ! 00200040 F_rn13o2 = .TRUE. IF ( chem_index_table( PARAM_rn16o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16o2 = chem_num_table(idomain) chem_index_table( PARAM_rn16o2 , idomain ) = P_rn16o2 ELSE P_rn16o2 = chem_index_table( PARAM_rn16o2 , idomain ) END IF chem_boundary_table( idomain, P_rn16o2 ) = .TRUE. chem_dname_table( idomain, P_rn16o2 ) = 'rn16o2' chem_desc_table( idomain, P_rn16o2 ) = 'RN16O2 concentration' chem_units_table( idomain, P_rn16o2 ) = 'ppmv' chem_streams_table( idomain, P_rn16o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn16o2 )%stream(2) = 2097216 ! 00200040 F_rn16o2 = .TRUE. IF ( chem_index_table( PARAM_rn19o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19o2 = chem_num_table(idomain) chem_index_table( PARAM_rn19o2 , idomain ) = P_rn19o2 ELSE P_rn19o2 = chem_index_table( PARAM_rn19o2 , idomain ) END IF chem_boundary_table( idomain, P_rn19o2 ) = .TRUE. chem_dname_table( idomain, P_rn19o2 ) = 'rn19o2' chem_desc_table( idomain, P_rn19o2 ) = 'RN19O2 concentration' chem_units_table( idomain, P_rn19o2 ) = 'ppmv' chem_streams_table( idomain, P_rn19o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn19o2 )%stream(2) = 2097216 ! 00200040 F_rn19o2 = .TRUE. IF ( chem_index_table( PARAM_rn9o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9o2 = chem_num_table(idomain) chem_index_table( PARAM_rn9o2 , idomain ) = P_rn9o2 ELSE P_rn9o2 = chem_index_table( PARAM_rn9o2 , idomain ) END IF chem_boundary_table( idomain, P_rn9o2 ) = .TRUE. chem_dname_table( idomain, P_rn9o2 ) = 'rn9o2' chem_desc_table( idomain, P_rn9o2 ) = 'RN9O2 concentration' chem_units_table( idomain, P_rn9o2 ) = 'ppmv' chem_streams_table( idomain, P_rn9o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn9o2 )%stream(2) = 2097216 ! 00200040 F_rn9o2 = .TRUE. IF ( chem_index_table( PARAM_rn12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12o2 = chem_num_table(idomain) chem_index_table( PARAM_rn12o2 , idomain ) = P_rn12o2 ELSE P_rn12o2 = chem_index_table( PARAM_rn12o2 , idomain ) END IF chem_boundary_table( idomain, P_rn12o2 ) = .TRUE. chem_dname_table( idomain, P_rn12o2 ) = 'rn12o2' chem_desc_table( idomain, P_rn12o2 ) = 'RN12O2 concentration' chem_units_table( idomain, P_rn12o2 ) = 'ppmv' chem_streams_table( idomain, P_rn12o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn12o2 )%stream(2) = 2097216 ! 00200040 F_rn12o2 = .TRUE. IF ( chem_index_table( PARAM_rn15o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15o2 = chem_num_table(idomain) chem_index_table( PARAM_rn15o2 , idomain ) = P_rn15o2 ELSE P_rn15o2 = chem_index_table( PARAM_rn15o2 , idomain ) END IF chem_boundary_table( idomain, P_rn15o2 ) = .TRUE. chem_dname_table( idomain, P_rn15o2 ) = 'rn15o2' chem_desc_table( idomain, P_rn15o2 ) = 'RN15O2 concentration' chem_units_table( idomain, P_rn15o2 ) = 'ppmv' chem_streams_table( idomain, P_rn15o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn15o2 )%stream(2) = 2097216 ! 00200040 F_rn15o2 = .TRUE. IF ( chem_index_table( PARAM_rn18o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18o2 = chem_num_table(idomain) chem_index_table( PARAM_rn18o2 , idomain ) = P_rn18o2 ELSE P_rn18o2 = chem_index_table( PARAM_rn18o2 , idomain ) END IF chem_boundary_table( idomain, P_rn18o2 ) = .TRUE. chem_dname_table( idomain, P_rn18o2 ) = 'rn18o2' chem_desc_table( idomain, P_rn18o2 ) = 'RN18O2 concentration' chem_units_table( idomain, P_rn18o2 ) = 'ppmv' chem_streams_table( idomain, P_rn18o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn18o2 )%stream(2) = 2097216 ! 00200040 F_rn18o2 = .TRUE. IF ( chem_index_table( PARAM_nrn6o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn6o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn6o2 , idomain ) = P_nrn6o2 ELSE P_nrn6o2 = chem_index_table( PARAM_nrn6o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn6o2 ) = .TRUE. chem_dname_table( idomain, P_nrn6o2 ) = 'nrn6o2' chem_desc_table( idomain, P_nrn6o2 ) = 'NRN6O2 concentration' chem_units_table( idomain, P_nrn6o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn6o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn6o2 )%stream(2) = 2097216 ! 00200040 F_nrn6o2 = .TRUE. IF ( chem_index_table( PARAM_nrn9o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn9o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn9o2 , idomain ) = P_nrn9o2 ELSE P_nrn9o2 = chem_index_table( PARAM_nrn9o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn9o2 ) = .TRUE. chem_dname_table( idomain, P_nrn9o2 ) = 'nrn9o2' chem_desc_table( idomain, P_nrn9o2 ) = 'NRN9O2 concentration' chem_units_table( idomain, P_nrn9o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn9o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn9o2 )%stream(2) = 2097216 ! 00200040 F_nrn9o2 = .TRUE. IF ( chem_index_table( PARAM_nrn12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn12o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn12o2 , idomain ) = P_nrn12o2 ELSE P_nrn12o2 = chem_index_table( PARAM_nrn12o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn12o2 ) = .TRUE. chem_dname_table( idomain, P_nrn12o2 ) = 'nrn12o2' chem_desc_table( idomain, P_nrn12o2 ) = 'NRN12O2 concentration' chem_units_table( idomain, P_nrn12o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn12o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn12o2 )%stream(2) = 2097216 ! 00200040 F_nrn12o2 = .TRUE. IF ( chem_index_table( PARAM_rn11o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn11o2 = chem_num_table(idomain) chem_index_table( PARAM_rn11o2 , idomain ) = P_rn11o2 ELSE P_rn11o2 = chem_index_table( PARAM_rn11o2 , idomain ) END IF chem_boundary_table( idomain, P_rn11o2 ) = .TRUE. chem_dname_table( idomain, P_rn11o2 ) = 'rn11o2' chem_desc_table( idomain, P_rn11o2 ) = 'RN11O2 concentration' chem_units_table( idomain, P_rn11o2 ) = 'ppmv' chem_streams_table( idomain, P_rn11o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn11o2 )%stream(2) = 2097216 ! 00200040 F_rn11o2 = .TRUE. IF ( chem_index_table( PARAM_rn14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn14o2 = chem_num_table(idomain) chem_index_table( PARAM_rn14o2 , idomain ) = P_rn14o2 ELSE P_rn14o2 = chem_index_table( PARAM_rn14o2 , idomain ) END IF chem_boundary_table( idomain, P_rn14o2 ) = .TRUE. chem_dname_table( idomain, P_rn14o2 ) = 'rn14o2' chem_desc_table( idomain, P_rn14o2 ) = 'RN14O2 concentration' chem_units_table( idomain, P_rn14o2 ) = 'ppmv' chem_streams_table( idomain, P_rn14o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn14o2 )%stream(2) = 2097216 ! 00200040 F_rn14o2 = .TRUE. IF ( chem_index_table( PARAM_rn8o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn8o2 = chem_num_table(idomain) chem_index_table( PARAM_rn8o2 , idomain ) = P_rn8o2 ELSE P_rn8o2 = chem_index_table( PARAM_rn8o2 , idomain ) END IF chem_boundary_table( idomain, P_rn8o2 ) = .TRUE. chem_dname_table( idomain, P_rn8o2 ) = 'rn8o2' chem_desc_table( idomain, P_rn8o2 ) = 'RN8O2 concentration' chem_units_table( idomain, P_rn8o2 ) = 'ppmv' chem_streams_table( idomain, P_rn8o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn8o2 )%stream(2) = 2097216 ! 00200040 F_rn8o2 = .TRUE. IF ( chem_index_table( PARAM_rn17o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn17o2 = chem_num_table(idomain) chem_index_table( PARAM_rn17o2 , idomain ) = P_rn17o2 ELSE P_rn17o2 = chem_index_table( PARAM_rn17o2 , idomain ) END IF chem_boundary_table( idomain, P_rn17o2 ) = .TRUE. chem_dname_table( idomain, P_rn17o2 ) = 'rn17o2' chem_desc_table( idomain, P_rn17o2 ) = 'RN17O2 concentration' chem_units_table( idomain, P_rn17o2 ) = 'ppmv' chem_streams_table( idomain, P_rn17o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn17o2 )%stream(2) = 2097216 ! 00200040 F_rn17o2 = .TRUE. IF ( chem_index_table( PARAM_rn13ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn13ao2 , idomain ) = P_rn13ao2 ELSE P_rn13ao2 = chem_index_table( PARAM_rn13ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn13ao2 ) = .TRUE. chem_dname_table( idomain, P_rn13ao2 ) = 'rn13ao2' chem_desc_table( idomain, P_rn13ao2 ) = 'RN13AO2 concentration' chem_units_table( idomain, P_rn13ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn13ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn13ao2 )%stream(2) = 2097216 ! 00200040 F_rn13ao2 = .TRUE. IF ( chem_index_table( PARAM_rn16ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn16ao2 , idomain ) = P_rn16ao2 ELSE P_rn16ao2 = chem_index_table( PARAM_rn16ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn16ao2 ) = .TRUE. chem_dname_table( idomain, P_rn16ao2 ) = 'rn16ao2' chem_desc_table( idomain, P_rn16ao2 ) = 'RN16AO2 concentration' chem_units_table( idomain, P_rn16ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn16ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn16ao2 )%stream(2) = 2097216 ! 00200040 F_rn16ao2 = .TRUE. IF ( chem_index_table( PARAM_rn15ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn15ao2 , idomain ) = P_rn15ao2 ELSE P_rn15ao2 = chem_index_table( PARAM_rn15ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn15ao2 ) = .TRUE. chem_dname_table( idomain, P_rn15ao2 ) = 'rn15ao2' chem_desc_table( idomain, P_rn15ao2 ) = 'RN15AO2 concentration' chem_units_table( idomain, P_rn15ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn15ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn15ao2 )%stream(2) = 2097216 ! 00200040 F_rn15ao2 = .TRUE. IF ( chem_index_table( PARAM_rn18ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn18ao2 , idomain ) = P_rn18ao2 ELSE P_rn18ao2 = chem_index_table( PARAM_rn18ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn18ao2 ) = .TRUE. chem_dname_table( idomain, P_rn18ao2 ) = 'rn18ao2' chem_desc_table( idomain, P_rn18ao2 ) = 'RN18AO2 concentration' chem_units_table( idomain, P_rn18ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn18ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn18ao2 )%stream(2) = 2097216 ! 00200040 F_rn18ao2 = .TRUE. IF ( chem_index_table( PARAM_ru10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru10o2 = chem_num_table(idomain) chem_index_table( PARAM_ru10o2 , idomain ) = P_ru10o2 ELSE P_ru10o2 = chem_index_table( PARAM_ru10o2 , idomain ) END IF chem_boundary_table( idomain, P_ru10o2 ) = .TRUE. chem_dname_table( idomain, P_ru10o2 ) = 'ru10o2' chem_desc_table( idomain, P_ru10o2 ) = 'RU10O2 concentration' chem_units_table( idomain, P_ru10o2 ) = 'ppmv' chem_streams_table( idomain, P_ru10o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru10o2 )%stream(2) = 2097216 ! 00200040 F_ru10o2 = .TRUE. IF ( chem_index_table( PARAM_nru14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru14o2 = chem_num_table(idomain) chem_index_table( PARAM_nru14o2 , idomain ) = P_nru14o2 ELSE P_nru14o2 = chem_index_table( PARAM_nru14o2 , idomain ) END IF chem_boundary_table( idomain, P_nru14o2 ) = .TRUE. chem_dname_table( idomain, P_nru14o2 ) = 'nru14o2' chem_desc_table( idomain, P_nru14o2 ) = 'NRU14O2 concentration' chem_units_table( idomain, P_nru14o2 ) = 'ppmv' chem_streams_table( idomain, P_nru14o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nru14o2 )%stream(2) = 2097216 ! 00200040 F_nru14o2 = .TRUE. IF ( chem_index_table( PARAM_nru12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru12o2 = chem_num_table(idomain) chem_index_table( PARAM_nru12o2 , idomain ) = P_nru12o2 ELSE P_nru12o2 = chem_index_table( PARAM_nru12o2 , idomain ) END IF chem_boundary_table( idomain, P_nru12o2 ) = .TRUE. chem_dname_table( idomain, P_nru12o2 ) = 'nru12o2' chem_desc_table( idomain, P_nru12o2 ) = 'NRU12O2 concentration' chem_units_table( idomain, P_nru12o2 ) = 'ppmv' chem_streams_table( idomain, P_nru12o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nru12o2 )%stream(2) = 2097216 ! 00200040 F_nru12o2 = .TRUE. IF ( chem_index_table( PARAM_ra13o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13o2 = chem_num_table(idomain) chem_index_table( PARAM_ra13o2 , idomain ) = P_ra13o2 ELSE P_ra13o2 = chem_index_table( PARAM_ra13o2 , idomain ) END IF chem_boundary_table( idomain, P_ra13o2 ) = .TRUE. chem_dname_table( idomain, P_ra13o2 ) = 'ra13o2' chem_desc_table( idomain, P_ra13o2 ) = 'RA13O2 concentration' chem_units_table( idomain, P_ra13o2 ) = 'ppmv' chem_streams_table( idomain, P_ra13o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra13o2 )%stream(2) = 2097216 ! 00200040 F_ra13o2 = .TRUE. IF ( chem_index_table( PARAM_nrtx28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtx28o2 = chem_num_table(idomain) chem_index_table( PARAM_nrtx28o2 , idomain ) = P_nrtx28o2 ELSE P_nrtx28o2 = chem_index_table( PARAM_nrtx28o2 , idomain ) END IF chem_boundary_table( idomain, P_nrtx28o2 ) = .TRUE. chem_dname_table( idomain, P_nrtx28o2 ) = 'nrtx28o2' chem_desc_table( idomain, P_nrtx28o2 ) = 'NRTX28O2 concentration' chem_units_table( idomain, P_nrtx28o2 ) = 'ppmv' chem_streams_table( idomain, P_nrtx28o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrtx28o2 )%stream(2) = 2097216 ! 00200040 F_nrtx28o2 = .TRUE. IF ( chem_index_table( PARAM_rtx24o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx24o2 , idomain ) = P_rtx24o2 ELSE P_rtx24o2 = chem_index_table( PARAM_rtx24o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx24o2 ) = .TRUE. chem_dname_table( idomain, P_rtx24o2 ) = 'rtx24o2' chem_desc_table( idomain, P_rtx24o2 ) = 'RTX24O2 concentration' chem_units_table( idomain, P_rtx24o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx24o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx24o2 )%stream(2) = 2097216 ! 00200040 F_rtx24o2 = .TRUE. IF ( chem_index_table( PARAM_rtx28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx28o2 , idomain ) = P_rtx28o2 ELSE P_rtx28o2 = chem_index_table( PARAM_rtx28o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx28o2 ) = .TRUE. chem_dname_table( idomain, P_rtx28o2 ) = 'rtx28o2' chem_desc_table( idomain, P_rtx28o2 ) = 'RTX28O2 concentration' chem_units_table( idomain, P_rtx28o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx28o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx28o2 )%stream(2) = 2097216 ! 00200040 F_rtx28o2 = .TRUE. IF ( chem_index_table( PARAM_rtn25o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn25o2 , idomain ) = P_rtn25o2 ELSE P_rtn25o2 = chem_index_table( PARAM_rtn25o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn25o2 ) = .TRUE. chem_dname_table( idomain, P_rtn25o2 ) = 'rtn25o2' chem_desc_table( idomain, P_rtn25o2 ) = 'RTN25O2 concentration' chem_units_table( idomain, P_rtn25o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn25o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn25o2 )%stream(2) = 2097216 ! 00200040 F_rtn25o2 = .TRUE. IF ( chem_index_table( PARAM_rtn24o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn24o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn24o2 , idomain ) = P_rtn24o2 ELSE P_rtn24o2 = chem_index_table( PARAM_rtn24o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn24o2 ) = .TRUE. chem_dname_table( idomain, P_rtn24o2 ) = 'rtn24o2' chem_desc_table( idomain, P_rtn24o2 ) = 'RTN24O2 concentration' chem_units_table( idomain, P_rtn24o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn24o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn24o2 )%stream(2) = 2097216 ! 00200040 F_rtn24o2 = .TRUE. IF ( chem_index_table( PARAM_rtn23o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn23o2 , idomain ) = P_rtn23o2 ELSE P_rtn23o2 = chem_index_table( PARAM_rtn23o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn23o2 ) = .TRUE. chem_dname_table( idomain, P_rtn23o2 ) = 'rtn23o2' chem_desc_table( idomain, P_rtn23o2 ) = 'RTN23O2 concentration' chem_units_table( idomain, P_rtn23o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn23o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn23o2 )%stream(2) = 2097216 ! 00200040 F_rtn23o2 = .TRUE. IF ( chem_index_table( PARAM_rtn14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn14o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn14o2 , idomain ) = P_rtn14o2 ELSE P_rtn14o2 = chem_index_table( PARAM_rtn14o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn14o2 ) = .TRUE. chem_dname_table( idomain, P_rtn14o2 ) = 'rtn14o2' chem_desc_table( idomain, P_rtn14o2 ) = 'RTN14O2 concentration' chem_units_table( idomain, P_rtn14o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn14o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn14o2 )%stream(2) = 2097216 ! 00200040 F_rtn14o2 = .TRUE. IF ( chem_index_table( PARAM_rtn10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn10o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn10o2 , idomain ) = P_rtn10o2 ELSE P_rtn10o2 = chem_index_table( PARAM_rtn10o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn10o2 ) = .TRUE. chem_dname_table( idomain, P_rtn10o2 ) = 'rtn10o2' chem_desc_table( idomain, P_rtn10o2 ) = 'RTN10O2 concentration' chem_units_table( idomain, P_rtn10o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn10o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn10o2 )%stream(2) = 2097216 ! 00200040 F_rtn10o2 = .TRUE. IF ( chem_index_table( PARAM_nrtn28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtn28o2 = chem_num_table(idomain) chem_index_table( PARAM_nrtn28o2 , idomain ) = P_nrtn28o2 ELSE P_nrtn28o2 = chem_index_table( PARAM_nrtn28o2 , idomain ) END IF chem_boundary_table( idomain, P_nrtn28o2 ) = .TRUE. chem_dname_table( idomain, P_nrtn28o2 ) = 'nrtn28o2' chem_desc_table( idomain, P_nrtn28o2 ) = 'NRTN28O2 concentration' chem_units_table( idomain, P_nrtn28o2 ) = 'ppmv' chem_streams_table( idomain, P_nrtn28o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrtn28o2 )%stream(2) = 2097216 ! 00200040 F_nrtn28o2 = .TRUE. IF ( chem_index_table( PARAM_rtn26o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn26o2 , idomain ) = P_rtn26o2 ELSE P_rtn26o2 = chem_index_table( PARAM_rtn26o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn26o2 ) = .TRUE. chem_dname_table( idomain, P_rtn26o2 ) = 'rtn26o2' chem_desc_table( idomain, P_rtn26o2 ) = 'RTN26O2 concentration' chem_units_table( idomain, P_rtn26o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn26o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn26o2 )%stream(2) = 2097216 ! 00200040 F_rtn26o2 = .TRUE. IF ( chem_index_table( PARAM_rtn28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn28o2 , idomain ) = P_rtn28o2 ELSE P_rtn28o2 = chem_index_table( PARAM_rtn28o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn28o2 ) = .TRUE. chem_dname_table( idomain, P_rtn28o2 ) = 'rtn28o2' chem_desc_table( idomain, P_rtn28o2 ) = 'RTN28O2 concentration' chem_units_table( idomain, P_rtn28o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn28o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn28o2 )%stream(2) = 2097216 ! 00200040 F_rtn28o2 = .TRUE. IF ( chem_index_table( PARAM_ra19ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19ao2 = chem_num_table(idomain) chem_index_table( PARAM_ra19ao2 , idomain ) = P_ra19ao2 ELSE P_ra19ao2 = chem_index_table( PARAM_ra19ao2 , idomain ) END IF chem_boundary_table( idomain, P_ra19ao2 ) = .TRUE. chem_dname_table( idomain, P_ra19ao2 ) = 'ra19ao2' chem_desc_table( idomain, P_ra19ao2 ) = 'RA19AO2 concentration' chem_units_table( idomain, P_ra19ao2 ) = 'ppmv' chem_streams_table( idomain, P_ra19ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra19ao2 )%stream(2) = 2097216 ! 00200040 F_ra19ao2 = .TRUE. IF ( chem_index_table( PARAM_ru14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14o2 = chem_num_table(idomain) chem_index_table( PARAM_ru14o2 , idomain ) = P_ru14o2 ELSE P_ru14o2 = chem_index_table( PARAM_ru14o2 , idomain ) END IF chem_boundary_table( idomain, P_ru14o2 ) = .TRUE. chem_dname_table( idomain, P_ru14o2 ) = 'ru14o2' chem_desc_table( idomain, P_ru14o2 ) = 'RU14O2 concentration' chem_units_table( idomain, P_ru14o2 ) = 'ppmv' chem_streams_table( idomain, P_ru14o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru14o2 )%stream(2) = 2097216 ! 00200040 F_ru14o2 = .TRUE. IF ( chem_index_table( PARAM_ru12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12o2 = chem_num_table(idomain) chem_index_table( PARAM_ru12o2 , idomain ) = P_ru12o2 ELSE P_ru12o2 = chem_index_table( PARAM_ru12o2 , idomain ) END IF chem_boundary_table( idomain, P_ru12o2 ) = .TRUE. chem_dname_table( idomain, P_ru12o2 ) = 'ru12o2' chem_desc_table( idomain, P_ru12o2 ) = 'RU12O2 concentration' chem_units_table( idomain, P_ru12o2 ) = 'ppmv' chem_streams_table( idomain, P_ru12o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru12o2 )%stream(2) = 2097216 ! 00200040 F_ru12o2 = .TRUE. IF ( chem_index_table( PARAM_ra16o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16o2 = chem_num_table(idomain) chem_index_table( PARAM_ra16o2 , idomain ) = P_ra16o2 ELSE P_ra16o2 = chem_index_table( PARAM_ra16o2 , idomain ) END IF chem_boundary_table( idomain, P_ra16o2 ) = .TRUE. chem_dname_table( idomain, P_ra16o2 ) = 'ra16o2' chem_desc_table( idomain, P_ra16o2 ) = 'RA16O2 concentration' chem_units_table( idomain, P_ra16o2 ) = 'ppmv' chem_streams_table( idomain, P_ra16o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra16o2 )%stream(2) = 2097216 ! 00200040 F_ra16o2 = .TRUE. IF ( chem_index_table( PARAM_rtx22o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx22o2 , idomain ) = P_rtx22o2 ELSE P_rtx22o2 = chem_index_table( PARAM_rtx22o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx22o2 ) = .TRUE. chem_dname_table( idomain, P_rtx22o2 ) = 'rtx22o2' chem_desc_table( idomain, P_rtx22o2 ) = 'RTX22O2 concentration' chem_units_table( idomain, P_rtx22o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx22o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx22o2 )%stream(2) = 2097216 ! 00200040 F_rtx22o2 = .TRUE. IF ( chem_index_table( PARAM_ra22ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22ao2 = chem_num_table(idomain) chem_index_table( PARAM_ra22ao2 , idomain ) = P_ra22ao2 ELSE P_ra22ao2 = chem_index_table( PARAM_ra22ao2 , idomain ) END IF chem_boundary_table( idomain, P_ra22ao2 ) = .TRUE. chem_dname_table( idomain, P_ra22ao2 ) = 'ra22ao2' chem_desc_table( idomain, P_ra22ao2 ) = 'RA22AO2 concentration' chem_units_table( idomain, P_ra22ao2 ) = 'ppmv' chem_streams_table( idomain, P_ra22ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra22ao2 )%stream(2) = 2097216 ! 00200040 F_ra22ao2 = .TRUE. IF ( chem_index_table( PARAM_ra22bo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22bo2 = chem_num_table(idomain) chem_index_table( PARAM_ra22bo2 , idomain ) = P_ra22bo2 ELSE P_ra22bo2 = chem_index_table( PARAM_ra22bo2 , idomain ) END IF chem_boundary_table( idomain, P_ra22bo2 ) = .TRUE. chem_dname_table( idomain, P_ra22bo2 ) = 'ra22bo2' chem_desc_table( idomain, P_ra22bo2 ) = 'RA22BO2 concentration' chem_units_table( idomain, P_ra22bo2 ) = 'ppmv' chem_streams_table( idomain, P_ra22bo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra22bo2 )%stream(2) = 2097216 ! 00200040 F_ra22bo2 = .TRUE. IF ( chem_index_table( PARAM_ra25o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25o2 = chem_num_table(idomain) chem_index_table( PARAM_ra25o2 , idomain ) = P_ra25o2 ELSE P_ra25o2 = chem_index_table( PARAM_ra25o2 , idomain ) END IF chem_boundary_table( idomain, P_ra25o2 ) = .TRUE. chem_dname_table( idomain, P_ra25o2 ) = 'ra25o2' chem_desc_table( idomain, P_ra25o2 ) = 'RA25O2 concentration' chem_units_table( idomain, P_ra25o2 ) = 'ppmv' chem_streams_table( idomain, P_ra25o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra25o2 )%stream(2) = 2097216 ! 00200040 F_ra25o2 = .TRUE. IF ( chem_index_table( PARAM_ic3h7no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ic3h7no3 = chem_num_table(idomain) chem_index_table( PARAM_ic3h7no3 , idomain ) = P_ic3h7no3 ELSE P_ic3h7no3 = chem_index_table( PARAM_ic3h7no3 , idomain ) END IF chem_boundary_table( idomain, P_ic3h7no3 ) = .TRUE. chem_dname_table( idomain, P_ic3h7no3 ) = 'ic3h7no3' chem_desc_table( idomain, P_ic3h7no3 ) = 'IC3H7NO3 concentration' chem_units_table( idomain, P_ic3h7no3 ) = 'ppmv' chem_streams_table( idomain, P_ic3h7no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ic3h7no3 )%stream(2) = 2097216 ! 00200040 F_ic3h7no3 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==601)THEN IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 ! 00200040 F_dms = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 ! 00200040 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 ! 00200040 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 ! 00200040 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3s , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3s = chem_num_table(idomain) chem_index_table( PARAM_ch3s , idomain ) = P_ch3s ELSE P_ch3s = chem_index_table( PARAM_ch3s , idomain ) END IF chem_boundary_table( idomain, P_ch3s ) = .TRUE. chem_dname_table( idomain, P_ch3s ) = 'ch3s' chem_desc_table( idomain, P_ch3s ) = 'CH3S concentration' chem_units_table( idomain, P_ch3s ) = 'ppmv' chem_streams_table( idomain, P_ch3s )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3s )%stream(2) = 2097216 ! 00200040 F_ch3s = .TRUE. IF ( chem_index_table( PARAM_ch3so , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so = chem_num_table(idomain) chem_index_table( PARAM_ch3so , idomain ) = P_ch3so ELSE P_ch3so = chem_index_table( PARAM_ch3so , idomain ) END IF chem_boundary_table( idomain, P_ch3so ) = .TRUE. chem_dname_table( idomain, P_ch3so ) = 'ch3so' chem_desc_table( idomain, P_ch3so ) = 'CH3SO concentration' chem_units_table( idomain, P_ch3so ) = 'ppmv' chem_streams_table( idomain, P_ch3so )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so )%stream(2) = 2097216 ! 00200040 F_ch3so = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 ! 00200040 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 ! 00200040 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 ! 00200040 F_msa = .TRUE. IF ( chem_index_table( PARAM_msia , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msia = chem_num_table(idomain) chem_index_table( PARAM_msia , idomain ) = P_msia ELSE P_msia = chem_index_table( PARAM_msia , idomain ) END IF chem_boundary_table( idomain, P_msia ) = .TRUE. chem_dname_table( idomain, P_msia ) = 'msia' chem_desc_table( idomain, P_msia ) = 'MSIA concentration' chem_units_table( idomain, P_msia ) = 'ppmv' chem_streams_table( idomain, P_msia )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msia )%stream(2) = 2097216 ! 00200040 F_msia = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_hso3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hso3 = chem_num_table(idomain) chem_index_table( PARAM_hso3 , idomain ) = P_hso3 ELSE P_hso3 = chem_index_table( PARAM_hso3 , idomain ) END IF chem_boundary_table( idomain, P_hso3 ) = .TRUE. chem_dname_table( idomain, P_hso3 ) = 'hso3' chem_desc_table( idomain, P_hso3 ) = 'HSO3 concentration' chem_units_table( idomain, P_hso3 ) = 'ppmv' chem_streams_table( idomain, P_hso3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hso3 )%stream(2) = 2097216 ! 00200040 F_hso3 = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ch3cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cho = chem_num_table(idomain) chem_index_table( PARAM_ch3cho , idomain ) = P_ch3cho ELSE P_ch3cho = chem_index_table( PARAM_ch3cho , idomain ) END IF chem_boundary_table( idomain, P_ch3cho ) = .TRUE. chem_dname_table( idomain, P_ch3cho ) = 'ch3cho' chem_desc_table( idomain, P_ch3cho ) = 'CH3CHO concentration' chem_units_table( idomain, P_ch3cho ) = 'ppmv' chem_streams_table( idomain, P_ch3cho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3cho )%stream(2) = 2097216 ! 00200040 F_ch3cho = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ch3ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ooh = chem_num_table(idomain) chem_index_table( PARAM_ch3ooh , idomain ) = P_ch3ooh ELSE P_ch3ooh = chem_index_table( PARAM_ch3ooh , idomain ) END IF chem_boundary_table( idomain, P_ch3ooh ) = .TRUE. chem_dname_table( idomain, P_ch3ooh ) = 'ch3ooh' chem_desc_table( idomain, P_ch3ooh ) = 'CH3OOH mixing ratio' chem_units_table( idomain, P_ch3ooh ) = 'ppmv' chem_streams_table( idomain, P_ch3ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3ooh )%stream(2) = 2097216 ! 00200040 F_ch3ooh = .TRUE. IF ( chem_index_table( PARAM_c2h5ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5ooh = chem_num_table(idomain) chem_index_table( PARAM_c2h5ooh , idomain ) = P_c2h5ooh ELSE P_c2h5ooh = chem_index_table( PARAM_c2h5ooh , idomain ) END IF chem_boundary_table( idomain, P_c2h5ooh ) = .TRUE. chem_dname_table( idomain, P_c2h5ooh ) = 'c2h5ooh' chem_desc_table( idomain, P_c2h5ooh ) = 'C2H5OOH concentration' chem_units_table( idomain, P_c2h5ooh ) = 'ppmv' chem_streams_table( idomain, P_c2h5ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5ooh )%stream(2) = 2097216 ! 00200040 F_c2h5ooh = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 ! 00200040 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 ! 00200040 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_nc4h10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nc4h10 = chem_num_table(idomain) chem_index_table( PARAM_nc4h10 , idomain ) = P_nc4h10 ELSE P_nc4h10 = chem_index_table( PARAM_nc4h10 , idomain ) END IF chem_boundary_table( idomain, P_nc4h10 ) = .TRUE. chem_dname_table( idomain, P_nc4h10 ) = 'nc4h10' chem_desc_table( idomain, P_nc4h10 ) = 'NC4H10 concentration' chem_units_table( idomain, P_nc4h10 ) = 'ppmv' chem_streams_table( idomain, P_nc4h10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nc4h10 )%stream(2) = 2097216 ! 00200040 F_nc4h10 = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 ! 00200040 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_c2h4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h4 = chem_num_table(idomain) chem_index_table( PARAM_c2h4 , idomain ) = P_c2h4 ELSE P_c2h4 = chem_index_table( PARAM_c2h4 , idomain ) END IF chem_boundary_table( idomain, P_c2h4 ) = .TRUE. chem_dname_table( idomain, P_c2h4 ) = 'c2h4' chem_desc_table( idomain, P_c2h4 ) = '' chem_units_table( idomain, P_c2h4 ) = '' chem_streams_table( idomain, P_c2h4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h4 )%stream(2) = 2097216 ! 00200040 F_c2h4 = .TRUE. IF ( chem_index_table( PARAM_toluene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_toluene = chem_num_table(idomain) chem_index_table( PARAM_toluene , idomain ) = P_toluene ELSE P_toluene = chem_index_table( PARAM_toluene , idomain ) END IF chem_boundary_table( idomain, P_toluene ) = .TRUE. chem_dname_table( idomain, P_toluene ) = 'toluene' chem_desc_table( idomain, P_toluene ) = 'TOLUENE concentration' chem_units_table( idomain, P_toluene ) = 'ppmv' chem_streams_table( idomain, P_toluene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_toluene )%stream(2) = 2097216 ! 00200040 F_toluene = .TRUE. IF ( chem_index_table( PARAM_oxyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oxyl = chem_num_table(idomain) chem_index_table( PARAM_oxyl , idomain ) = P_oxyl ELSE P_oxyl = chem_index_table( PARAM_oxyl , idomain ) END IF chem_boundary_table( idomain, P_oxyl ) = .TRUE. chem_dname_table( idomain, P_oxyl ) = 'oxyl' chem_desc_table( idomain, P_oxyl ) = 'OXYL concentration' chem_units_table( idomain, P_oxyl ) = 'ppmv' chem_streams_table( idomain, P_oxyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oxyl )%stream(2) = 2097216 ! 00200040 F_oxyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_c5h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c5h8 = chem_num_table(idomain) chem_index_table( PARAM_c5h8 , idomain ) = P_c5h8 ELSE P_c5h8 = chem_index_table( PARAM_c5h8 , idomain ) END IF chem_boundary_table( idomain, P_c5h8 ) = .TRUE. chem_dname_table( idomain, P_c5h8 ) = 'c5h8' chem_desc_table( idomain, P_c5h8 ) = 'C5H8 concentration' chem_units_table( idomain, P_c5h8 ) = 'ppmv' chem_streams_table( idomain, P_c5h8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c5h8 )%stream(2) = 2097216 ! 00200040 F_c5h8 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so3 = chem_num_table(idomain) chem_index_table( PARAM_so3 , idomain ) = P_so3 ELSE P_so3 = chem_index_table( PARAM_so3 , idomain ) END IF chem_boundary_table( idomain, P_so3 ) = .TRUE. chem_dname_table( idomain, P_so3 ) = 'so3' chem_desc_table( idomain, P_so3 ) = 'SO3 concentration' chem_units_table( idomain, P_so3 ) = 'ppmv' chem_streams_table( idomain, P_so3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so3 )%stream(2) = 2097216 ! 00200040 F_so3 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_benzene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzene = chem_num_table(idomain) chem_index_table( PARAM_benzene , idomain ) = P_benzene ELSE P_benzene = chem_index_table( PARAM_benzene , idomain ) END IF chem_boundary_table( idomain, P_benzene ) = .TRUE. chem_dname_table( idomain, P_benzene ) = 'benzene' chem_desc_table( idomain, P_benzene ) = 'BENZENE concentration' chem_units_table( idomain, P_benzene ) = 'ppmv' chem_streams_table( idomain, P_benzene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_benzene )%stream(2) = 2097216 ! 00200040 F_benzene = .TRUE. IF ( chem_index_table( PARAM_npropol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_npropol = chem_num_table(idomain) chem_index_table( PARAM_npropol , idomain ) = P_npropol ELSE P_npropol = chem_index_table( PARAM_npropol , idomain ) END IF chem_boundary_table( idomain, P_npropol ) = .TRUE. chem_dname_table( idomain, P_npropol ) = 'npropol' chem_desc_table( idomain, P_npropol ) = 'NPROPOL concentration' chem_units_table( idomain, P_npropol ) = 'ppmv' chem_streams_table( idomain, P_npropol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_npropol )%stream(2) = 2097216 ! 00200040 F_npropol = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 ! 00200040 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 ! 00200040 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_tbut2ene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tbut2ene = chem_num_table(idomain) chem_index_table( PARAM_tbut2ene , idomain ) = P_tbut2ene ELSE P_tbut2ene = chem_index_table( PARAM_tbut2ene , idomain ) END IF chem_boundary_table( idomain, P_tbut2ene ) = .TRUE. chem_dname_table( idomain, P_tbut2ene ) = 'tbut2ene' chem_desc_table( idomain, P_tbut2ene ) = 'TBUT2ENE concentration' chem_units_table( idomain, P_tbut2ene ) = 'ppmv' chem_streams_table( idomain, P_tbut2ene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tbut2ene )%stream(2) = 2097216 ! 00200040 F_tbut2ene = .TRUE. IF ( chem_index_table( PARAM_c2h5cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5cho = chem_num_table(idomain) chem_index_table( PARAM_c2h5cho , idomain ) = P_c2h5cho ELSE P_c2h5cho = chem_index_table( PARAM_c2h5cho , idomain ) END IF chem_boundary_table( idomain, P_c2h5cho ) = .TRUE. chem_dname_table( idomain, P_c2h5cho ) = 'c2h5cho' chem_desc_table( idomain, P_c2h5cho ) = 'C2H5CHO concentration' chem_units_table( idomain, P_c2h5cho ) = 'ppmv' chem_streams_table( idomain, P_c2h5cho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5cho )%stream(2) = 2097216 ! 00200040 F_c2h5cho = .TRUE. IF ( chem_index_table( PARAM_ch3co2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3co2h = chem_num_table(idomain) chem_index_table( PARAM_ch3co2h , idomain ) = P_ch3co2h ELSE P_ch3co2h = chem_index_table( PARAM_ch3co2h , idomain ) END IF chem_boundary_table( idomain, P_ch3co2h ) = .TRUE. chem_dname_table( idomain, P_ch3co2h ) = 'ch3co2h' chem_desc_table( idomain, P_ch3co2h ) = 'CH3CO2H concentration' chem_units_table( idomain, P_ch3co2h ) = 'ppmv' chem_streams_table( idomain, P_ch3co2h )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3co2h )%stream(2) = 2097216 ! 00200040 F_ch3co2h = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 ! 00200040 F_mek = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_ipropol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ipropol = chem_num_table(idomain) chem_index_table( PARAM_ipropol , idomain ) = P_ipropol ELSE P_ipropol = chem_index_table( PARAM_ipropol , idomain ) END IF chem_boundary_table( idomain, P_ipropol ) = .TRUE. chem_dname_table( idomain, P_ipropol ) = 'ipropol' chem_desc_table( idomain, P_ipropol ) = 'IPROPOL concentration' chem_units_table( idomain, P_ipropol ) = 'ppmv' chem_streams_table( idomain, P_ipropol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ipropol )%stream(2) = 2097216 ! 00200040 F_ipropol = .TRUE. IF ( chem_index_table( PARAM_ch3no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3no3 = chem_num_table(idomain) chem_index_table( PARAM_ch3no3 , idomain ) = P_ch3no3 ELSE P_ch3no3 = chem_index_table( PARAM_ch3no3 , idomain ) END IF chem_boundary_table( idomain, P_ch3no3 ) = .TRUE. chem_dname_table( idomain, P_ch3no3 ) = 'ch3no3' chem_desc_table( idomain, P_ch3no3 ) = 'CH3NO3 concentration' chem_units_table( idomain, P_ch3no3 ) = 'ppmv' chem_streams_table( idomain, P_ch3no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3no3 )%stream(2) = 2097216 ! 00200040 F_ch3no3 = .TRUE. IF ( chem_index_table( PARAM_c2h5no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5no3 = chem_num_table(idomain) chem_index_table( PARAM_c2h5no3 , idomain ) = P_c2h5no3 ELSE P_c2h5no3 = chem_index_table( PARAM_c2h5no3 , idomain ) END IF chem_boundary_table( idomain, P_c2h5no3 ) = .TRUE. chem_dname_table( idomain, P_c2h5no3 ) = 'c2h5no3' chem_desc_table( idomain, P_c2h5no3 ) = 'C2H5NO3 concentration' chem_units_table( idomain, P_c2h5no3 ) = 'ppmv' chem_streams_table( idomain, P_c2h5no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5no3 )%stream(2) = 2097216 ! 00200040 F_c2h5no3 = .TRUE. IF ( chem_index_table( PARAM_hoc2h4no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoc2h4no3 = chem_num_table(idomain) chem_index_table( PARAM_hoc2h4no3 , idomain ) = P_hoc2h4no3 ELSE P_hoc2h4no3 = chem_index_table( PARAM_hoc2h4no3 , idomain ) END IF chem_boundary_table( idomain, P_hoc2h4no3 ) = .TRUE. chem_dname_table( idomain, P_hoc2h4no3 ) = 'hoc2h4no3' chem_desc_table( idomain, P_hoc2h4no3 ) = 'HOC2H4NO3 concentration' chem_units_table( idomain, P_hoc2h4no3 ) = 'ppmv' chem_streams_table( idomain, P_hoc2h4no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoc2h4no3 )%stream(2) = 2097216 ! 00200040 F_hoc2h4no3 = .TRUE. IF ( chem_index_table( PARAM_prooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prooh = chem_num_table(idomain) chem_index_table( PARAM_prooh , idomain ) = P_prooh ELSE P_prooh = chem_index_table( PARAM_prooh , idomain ) END IF chem_boundary_table( idomain, P_prooh ) = .TRUE. chem_dname_table( idomain, P_prooh ) = 'prooh' chem_desc_table( idomain, P_prooh ) = '' chem_units_table( idomain, P_prooh ) = '' chem_streams_table( idomain, P_prooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_prooh )%stream(2) = 2097216 ! 00200040 F_prooh = .TRUE. IF ( chem_index_table( PARAM_hoc2h4ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoc2h4ooh = chem_num_table(idomain) chem_index_table( PARAM_hoc2h4ooh , idomain ) = P_hoc2h4ooh ELSE P_hoc2h4ooh = chem_index_table( PARAM_hoc2h4ooh , idomain ) END IF chem_boundary_table( idomain, P_hoc2h4ooh ) = .TRUE. chem_dname_table( idomain, P_hoc2h4ooh ) = 'hoc2h4ooh' chem_desc_table( idomain, P_hoc2h4ooh ) = 'HOC2H4OOH concentration' chem_units_table( idomain, P_hoc2h4ooh ) = 'ppmv' chem_streams_table( idomain, P_hoc2h4ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoc2h4ooh )%stream(2) = 2097216 ! 00200040 F_hoc2h4ooh = .TRUE. IF ( chem_index_table( PARAM_carb14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb14 = chem_num_table(idomain) chem_index_table( PARAM_carb14 , idomain ) = P_carb14 ELSE P_carb14 = chem_index_table( PARAM_carb14 , idomain ) END IF chem_boundary_table( idomain, P_carb14 ) = .TRUE. chem_dname_table( idomain, P_carb14 ) = 'carb14' chem_desc_table( idomain, P_carb14 ) = 'CARB14 concentration' chem_units_table( idomain, P_carb14 ) = 'ppmv' chem_streams_table( idomain, P_carb14 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb14 )%stream(2) = 2097216 ! 00200040 F_carb14 = .TRUE. IF ( chem_index_table( PARAM_carb17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb17 = chem_num_table(idomain) chem_index_table( PARAM_carb17 , idomain ) = P_carb17 ELSE P_carb17 = chem_index_table( PARAM_carb17 , idomain ) END IF chem_boundary_table( idomain, P_carb17 ) = .TRUE. chem_dname_table( idomain, P_carb17 ) = 'carb17' chem_desc_table( idomain, P_carb17 ) = 'CARB17 concentration' chem_units_table( idomain, P_carb17 ) = 'ppmv' chem_streams_table( idomain, P_carb17 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb17 )%stream(2) = 2097216 ! 00200040 F_carb17 = .TRUE. IF ( chem_index_table( PARAM_rn10no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10no3 = chem_num_table(idomain) chem_index_table( PARAM_rn10no3 , idomain ) = P_rn10no3 ELSE P_rn10no3 = chem_index_table( PARAM_rn10no3 , idomain ) END IF chem_boundary_table( idomain, P_rn10no3 ) = .TRUE. chem_dname_table( idomain, P_rn10no3 ) = 'rn10no3' chem_desc_table( idomain, P_rn10no3 ) = 'RN10NO3 concentration' chem_units_table( idomain, P_rn10no3 ) = 'ppmv' chem_streams_table( idomain, P_rn10no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn10no3 )%stream(2) = 2097216 ! 00200040 F_rn10no3 = .TRUE. IF ( chem_index_table( PARAM_rn13no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13no3 = chem_num_table(idomain) chem_index_table( PARAM_rn13no3 , idomain ) = P_rn13no3 ELSE P_rn13no3 = chem_index_table( PARAM_rn13no3 , idomain ) END IF chem_boundary_table( idomain, P_rn13no3 ) = .TRUE. chem_dname_table( idomain, P_rn13no3 ) = 'rn13no3' chem_desc_table( idomain, P_rn13no3 ) = 'RN13NO3 concentration' chem_units_table( idomain, P_rn13no3 ) = 'ppmv' chem_streams_table( idomain, P_rn13no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn13no3 )%stream(2) = 2097216 ! 00200040 F_rn13no3 = .TRUE. IF ( chem_index_table( PARAM_rn19no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19no3 = chem_num_table(idomain) chem_index_table( PARAM_rn19no3 , idomain ) = P_rn19no3 ELSE P_rn19no3 = chem_index_table( PARAM_rn19no3 , idomain ) END IF chem_boundary_table( idomain, P_rn19no3 ) = .TRUE. chem_dname_table( idomain, P_rn19no3 ) = 'rn19no3' chem_desc_table( idomain, P_rn19no3 ) = 'RN19NO3 concentration' chem_units_table( idomain, P_rn19no3 ) = 'ppmv' chem_streams_table( idomain, P_rn19no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn19no3 )%stream(2) = 2097216 ! 00200040 F_rn19no3 = .TRUE. IF ( chem_index_table( PARAM_rn9no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9no3 = chem_num_table(idomain) chem_index_table( PARAM_rn9no3 , idomain ) = P_rn9no3 ELSE P_rn9no3 = chem_index_table( PARAM_rn9no3 , idomain ) END IF chem_boundary_table( idomain, P_rn9no3 ) = .TRUE. chem_dname_table( idomain, P_rn9no3 ) = 'rn9no3' chem_desc_table( idomain, P_rn9no3 ) = 'RN9NO3 concentration' chem_units_table( idomain, P_rn9no3 ) = 'ppmv' chem_streams_table( idomain, P_rn9no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn9no3 )%stream(2) = 2097216 ! 00200040 F_rn9no3 = .TRUE. IF ( chem_index_table( PARAM_rn12no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12no3 = chem_num_table(idomain) chem_index_table( PARAM_rn12no3 , idomain ) = P_rn12no3 ELSE P_rn12no3 = chem_index_table( PARAM_rn12no3 , idomain ) END IF chem_boundary_table( idomain, P_rn12no3 ) = .TRUE. chem_dname_table( idomain, P_rn12no3 ) = 'rn12no3' chem_desc_table( idomain, P_rn12no3 ) = 'RN12NO3 concentration' chem_units_table( idomain, P_rn12no3 ) = 'ppmv' chem_streams_table( idomain, P_rn12no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn12no3 )%stream(2) = 2097216 ! 00200040 F_rn12no3 = .TRUE. IF ( chem_index_table( PARAM_rn15no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15no3 = chem_num_table(idomain) chem_index_table( PARAM_rn15no3 , idomain ) = P_rn15no3 ELSE P_rn15no3 = chem_index_table( PARAM_rn15no3 , idomain ) END IF chem_boundary_table( idomain, P_rn15no3 ) = .TRUE. chem_dname_table( idomain, P_rn15no3 ) = 'rn15no3' chem_desc_table( idomain, P_rn15no3 ) = 'RN15NO3 concentration' chem_units_table( idomain, P_rn15no3 ) = 'ppmv' chem_streams_table( idomain, P_rn15no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn15no3 )%stream(2) = 2097216 ! 00200040 F_rn15no3 = .TRUE. IF ( chem_index_table( PARAM_rn18no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18no3 = chem_num_table(idomain) chem_index_table( PARAM_rn18no3 , idomain ) = P_rn18no3 ELSE P_rn18no3 = chem_index_table( PARAM_rn18no3 , idomain ) END IF chem_boundary_table( idomain, P_rn18no3 ) = .TRUE. chem_dname_table( idomain, P_rn18no3 ) = 'rn18no3' chem_desc_table( idomain, P_rn18no3 ) = 'RN18NO3 concentration' chem_units_table( idomain, P_rn18no3 ) = 'ppmv' chem_streams_table( idomain, P_rn18no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn18no3 )%stream(2) = 2097216 ! 00200040 F_rn18no3 = .TRUE. IF ( chem_index_table( PARAM_rn16no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16no3 = chem_num_table(idomain) chem_index_table( PARAM_rn16no3 , idomain ) = P_rn16no3 ELSE P_rn16no3 = chem_index_table( PARAM_rn16no3 , idomain ) END IF chem_boundary_table( idomain, P_rn16no3 ) = .TRUE. chem_dname_table( idomain, P_rn16no3 ) = 'rn16no3' chem_desc_table( idomain, P_rn16no3 ) = 'RN16NO3 concentration' chem_units_table( idomain, P_rn16no3 ) = 'ppmv' chem_streams_table( idomain, P_rn16no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn16no3 )%stream(2) = 2097216 ! 00200040 F_rn16no3 = .TRUE. IF ( chem_index_table( PARAM_rn10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10ooh = chem_num_table(idomain) chem_index_table( PARAM_rn10ooh , idomain ) = P_rn10ooh ELSE P_rn10ooh = chem_index_table( PARAM_rn10ooh , idomain ) END IF chem_boundary_table( idomain, P_rn10ooh ) = .TRUE. chem_dname_table( idomain, P_rn10ooh ) = 'rn10ooh' chem_desc_table( idomain, P_rn10ooh ) = 'RN10OOH concentration' chem_units_table( idomain, P_rn10ooh ) = 'ppmv' chem_streams_table( idomain, P_rn10ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn10ooh )%stream(2) = 2097216 ! 00200040 F_rn10ooh = .TRUE. IF ( chem_index_table( PARAM_rn13ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13ooh = chem_num_table(idomain) chem_index_table( PARAM_rn13ooh , idomain ) = P_rn13ooh ELSE P_rn13ooh = chem_index_table( PARAM_rn13ooh , idomain ) END IF chem_boundary_table( idomain, P_rn13ooh ) = .TRUE. chem_dname_table( idomain, P_rn13ooh ) = 'rn13ooh' chem_desc_table( idomain, P_rn13ooh ) = 'RN13OOH concentration' chem_units_table( idomain, P_rn13ooh ) = 'ppmv' chem_streams_table( idomain, P_rn13ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn13ooh )%stream(2) = 2097216 ! 00200040 F_rn13ooh = .TRUE. IF ( chem_index_table( PARAM_rn16ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16ooh = chem_num_table(idomain) chem_index_table( PARAM_rn16ooh , idomain ) = P_rn16ooh ELSE P_rn16ooh = chem_index_table( PARAM_rn16ooh , idomain ) END IF chem_boundary_table( idomain, P_rn16ooh ) = .TRUE. chem_dname_table( idomain, P_rn16ooh ) = 'rn16ooh' chem_desc_table( idomain, P_rn16ooh ) = 'RN16OOH concentration' chem_units_table( idomain, P_rn16ooh ) = 'ppmv' chem_streams_table( idomain, P_rn16ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn16ooh )%stream(2) = 2097216 ! 00200040 F_rn16ooh = .TRUE. IF ( chem_index_table( PARAM_rn19ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19ooh = chem_num_table(idomain) chem_index_table( PARAM_rn19ooh , idomain ) = P_rn19ooh ELSE P_rn19ooh = chem_index_table( PARAM_rn19ooh , idomain ) END IF chem_boundary_table( idomain, P_rn19ooh ) = .TRUE. chem_dname_table( idomain, P_rn19ooh ) = 'rn19ooh' chem_desc_table( idomain, P_rn19ooh ) = 'RN19OOH concentration' chem_units_table( idomain, P_rn19ooh ) = 'ppmv' chem_streams_table( idomain, P_rn19ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn19ooh )%stream(2) = 2097216 ! 00200040 F_rn19ooh = .TRUE. IF ( chem_index_table( PARAM_rn8ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn8ooh = chem_num_table(idomain) chem_index_table( PARAM_rn8ooh , idomain ) = P_rn8ooh ELSE P_rn8ooh = chem_index_table( PARAM_rn8ooh , idomain ) END IF chem_boundary_table( idomain, P_rn8ooh ) = .TRUE. chem_dname_table( idomain, P_rn8ooh ) = 'rn8ooh' chem_desc_table( idomain, P_rn8ooh ) = 'RN8OOH concentration' chem_units_table( idomain, P_rn8ooh ) = 'ppmv' chem_streams_table( idomain, P_rn8ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn8ooh )%stream(2) = 2097216 ! 00200040 F_rn8ooh = .TRUE. IF ( chem_index_table( PARAM_rn11ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn11ooh = chem_num_table(idomain) chem_index_table( PARAM_rn11ooh , idomain ) = P_rn11ooh ELSE P_rn11ooh = chem_index_table( PARAM_rn11ooh , idomain ) END IF chem_boundary_table( idomain, P_rn11ooh ) = .TRUE. chem_dname_table( idomain, P_rn11ooh ) = 'rn11ooh' chem_desc_table( idomain, P_rn11ooh ) = 'RN11OOH concentration' chem_units_table( idomain, P_rn11ooh ) = 'ppmv' chem_streams_table( idomain, P_rn11ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn11ooh )%stream(2) = 2097216 ! 00200040 F_rn11ooh = .TRUE. IF ( chem_index_table( PARAM_rn14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn14ooh = chem_num_table(idomain) chem_index_table( PARAM_rn14ooh , idomain ) = P_rn14ooh ELSE P_rn14ooh = chem_index_table( PARAM_rn14ooh , idomain ) END IF chem_boundary_table( idomain, P_rn14ooh ) = .TRUE. chem_dname_table( idomain, P_rn14ooh ) = 'rn14ooh' chem_desc_table( idomain, P_rn14ooh ) = 'RN14OOH concentration' chem_units_table( idomain, P_rn14ooh ) = 'ppmv' chem_streams_table( idomain, P_rn14ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn14ooh )%stream(2) = 2097216 ! 00200040 F_rn14ooh = .TRUE. IF ( chem_index_table( PARAM_rn17ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn17ooh = chem_num_table(idomain) chem_index_table( PARAM_rn17ooh , idomain ) = P_rn17ooh ELSE P_rn17ooh = chem_index_table( PARAM_rn17ooh , idomain ) END IF chem_boundary_table( idomain, P_rn17ooh ) = .TRUE. chem_dname_table( idomain, P_rn17ooh ) = 'rn17ooh' chem_desc_table( idomain, P_rn17ooh ) = 'RN17OOH concentration' chem_units_table( idomain, P_rn17ooh ) = 'ppmv' chem_streams_table( idomain, P_rn17ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn17ooh )%stream(2) = 2097216 ! 00200040 F_rn17ooh = .TRUE. IF ( chem_index_table( PARAM_rn9ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9ooh = chem_num_table(idomain) chem_index_table( PARAM_rn9ooh , idomain ) = P_rn9ooh ELSE P_rn9ooh = chem_index_table( PARAM_rn9ooh , idomain ) END IF chem_boundary_table( idomain, P_rn9ooh ) = .TRUE. chem_dname_table( idomain, P_rn9ooh ) = 'rn9ooh' chem_desc_table( idomain, P_rn9ooh ) = 'RN9OOH concentration' chem_units_table( idomain, P_rn9ooh ) = 'ppmv' chem_streams_table( idomain, P_rn9ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn9ooh )%stream(2) = 2097216 ! 00200040 F_rn9ooh = .TRUE. IF ( chem_index_table( PARAM_rn12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12ooh = chem_num_table(idomain) chem_index_table( PARAM_rn12ooh , idomain ) = P_rn12ooh ELSE P_rn12ooh = chem_index_table( PARAM_rn12ooh , idomain ) END IF chem_boundary_table( idomain, P_rn12ooh ) = .TRUE. chem_dname_table( idomain, P_rn12ooh ) = 'rn12ooh' chem_desc_table( idomain, P_rn12ooh ) = 'RN12OOH concentration' chem_units_table( idomain, P_rn12ooh ) = 'ppmv' chem_streams_table( idomain, P_rn12ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn12ooh )%stream(2) = 2097216 ! 00200040 F_rn12ooh = .TRUE. IF ( chem_index_table( PARAM_rn15ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15ooh = chem_num_table(idomain) chem_index_table( PARAM_rn15ooh , idomain ) = P_rn15ooh ELSE P_rn15ooh = chem_index_table( PARAM_rn15ooh , idomain ) END IF chem_boundary_table( idomain, P_rn15ooh ) = .TRUE. chem_dname_table( idomain, P_rn15ooh ) = 'rn15ooh' chem_desc_table( idomain, P_rn15ooh ) = 'RN15OOH concentration' chem_units_table( idomain, P_rn15ooh ) = 'ppmv' chem_streams_table( idomain, P_rn15ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn15ooh )%stream(2) = 2097216 ! 00200040 F_rn15ooh = .TRUE. IF ( chem_index_table( PARAM_rn18ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18ooh = chem_num_table(idomain) chem_index_table( PARAM_rn18ooh , idomain ) = P_rn18ooh ELSE P_rn18ooh = chem_index_table( PARAM_rn18ooh , idomain ) END IF chem_boundary_table( idomain, P_rn18ooh ) = .TRUE. chem_dname_table( idomain, P_rn18ooh ) = 'rn18ooh' chem_desc_table( idomain, P_rn18ooh ) = 'RN18OOH concentration' chem_units_table( idomain, P_rn18ooh ) = 'ppmv' chem_streams_table( idomain, P_rn18ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn18ooh )%stream(2) = 2097216 ! 00200040 F_rn18ooh = .TRUE. IF ( chem_index_table( PARAM_nrn6ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn6ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn6ooh , idomain ) = P_nrn6ooh ELSE P_nrn6ooh = chem_index_table( PARAM_nrn6ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn6ooh ) = .TRUE. chem_dname_table( idomain, P_nrn6ooh ) = 'nrn6ooh' chem_desc_table( idomain, P_nrn6ooh ) = 'NRN6OOH concentration' chem_units_table( idomain, P_nrn6ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn6ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn6ooh )%stream(2) = 2097216 ! 00200040 F_nrn6ooh = .TRUE. IF ( chem_index_table( PARAM_nrn9ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn9ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn9ooh , idomain ) = P_nrn9ooh ELSE P_nrn9ooh = chem_index_table( PARAM_nrn9ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn9ooh ) = .TRUE. chem_dname_table( idomain, P_nrn9ooh ) = 'nrn9ooh' chem_desc_table( idomain, P_nrn9ooh ) = 'NRN9OOH concentration' chem_units_table( idomain, P_nrn9ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn9ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn9ooh )%stream(2) = 2097216 ! 00200040 F_nrn9ooh = .TRUE. IF ( chem_index_table( PARAM_nrn12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn12ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn12ooh , idomain ) = P_nrn12ooh ELSE P_nrn12ooh = chem_index_table( PARAM_nrn12ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn12ooh ) = .TRUE. chem_dname_table( idomain, P_nrn12ooh ) = 'nrn12ooh' chem_desc_table( idomain, P_nrn12ooh ) = 'NRN12OOH concentration' chem_units_table( idomain, P_nrn12ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn12ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn12ooh )%stream(2) = 2097216 ! 00200040 F_nrn12ooh = .TRUE. IF ( chem_index_table( PARAM_apinene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinene = chem_num_table(idomain) chem_index_table( PARAM_apinene , idomain ) = P_apinene ELSE P_apinene = chem_index_table( PARAM_apinene , idomain ) END IF chem_boundary_table( idomain, P_apinene ) = .TRUE. chem_dname_table( idomain, P_apinene ) = 'apinene' chem_desc_table( idomain, P_apinene ) = 'APINENE concentration' chem_units_table( idomain, P_apinene ) = 'ppmv' chem_streams_table( idomain, P_apinene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_apinene )%stream(2) = 2097216 ! 00200040 F_apinene = .TRUE. IF ( chem_index_table( PARAM_bpinene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinene = chem_num_table(idomain) chem_index_table( PARAM_bpinene , idomain ) = P_bpinene ELSE P_bpinene = chem_index_table( PARAM_bpinene , idomain ) END IF chem_boundary_table( idomain, P_bpinene ) = .TRUE. chem_dname_table( idomain, P_bpinene ) = 'bpinene' chem_desc_table( idomain, P_bpinene ) = 'BPINENE concentration' chem_units_table( idomain, P_bpinene ) = 'ppmv' chem_streams_table( idomain, P_bpinene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpinene )%stream(2) = 2097216 ! 00200040 F_bpinene = .TRUE. IF ( chem_index_table( PARAM_carb7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb7 = chem_num_table(idomain) chem_index_table( PARAM_carb7 , idomain ) = P_carb7 ELSE P_carb7 = chem_index_table( PARAM_carb7 , idomain ) END IF chem_boundary_table( idomain, P_carb7 ) = .TRUE. chem_dname_table( idomain, P_carb7 ) = 'carb7' chem_desc_table( idomain, P_carb7 ) = 'CARB7 concentration' chem_units_table( idomain, P_carb7 ) = 'ppmv' chem_streams_table( idomain, P_carb7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb7 )%stream(2) = 2097216 ! 00200040 F_carb7 = .TRUE. IF ( chem_index_table( PARAM_carb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb10 = chem_num_table(idomain) chem_index_table( PARAM_carb10 , idomain ) = P_carb10 ELSE P_carb10 = chem_index_table( PARAM_carb10 , idomain ) END IF chem_boundary_table( idomain, P_carb10 ) = .TRUE. chem_dname_table( idomain, P_carb10 ) = 'carb10' chem_desc_table( idomain, P_carb10 ) = 'CARB10 concentration' chem_units_table( idomain, P_carb10 ) = 'ppmv' chem_streams_table( idomain, P_carb10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb10 )%stream(2) = 2097216 ! 00200040 F_carb10 = .TRUE. IF ( chem_index_table( PARAM_carb13 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb13 = chem_num_table(idomain) chem_index_table( PARAM_carb13 , idomain ) = P_carb13 ELSE P_carb13 = chem_index_table( PARAM_carb13 , idomain ) END IF chem_boundary_table( idomain, P_carb13 ) = .TRUE. chem_dname_table( idomain, P_carb13 ) = 'carb13' chem_desc_table( idomain, P_carb13 ) = 'CARB13 concentration' chem_units_table( idomain, P_carb13 ) = 'ppmv' chem_streams_table( idomain, P_carb13 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb13 )%stream(2) = 2097216 ! 00200040 F_carb13 = .TRUE. IF ( chem_index_table( PARAM_carb16 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb16 = chem_num_table(idomain) chem_index_table( PARAM_carb16 , idomain ) = P_carb16 ELSE P_carb16 = chem_index_table( PARAM_carb16 , idomain ) END IF chem_boundary_table( idomain, P_carb16 ) = .TRUE. chem_dname_table( idomain, P_carb16 ) = 'carb16' chem_desc_table( idomain, P_carb16 ) = 'CARB16 concentration' chem_units_table( idomain, P_carb16 ) = 'ppmv' chem_streams_table( idomain, P_carb16 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb16 )%stream(2) = 2097216 ! 00200040 F_carb16 = .TRUE. IF ( chem_index_table( PARAM_carb3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb3 = chem_num_table(idomain) chem_index_table( PARAM_carb3 , idomain ) = P_carb3 ELSE P_carb3 = chem_index_table( PARAM_carb3 , idomain ) END IF chem_boundary_table( idomain, P_carb3 ) = .TRUE. chem_dname_table( idomain, P_carb3 ) = 'carb3' chem_desc_table( idomain, P_carb3 ) = 'CARB3 concentration' chem_units_table( idomain, P_carb3 ) = 'ppmv' chem_streams_table( idomain, P_carb3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb3 )%stream(2) = 2097216 ! 00200040 F_carb3 = .TRUE. IF ( chem_index_table( PARAM_carb6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb6 = chem_num_table(idomain) chem_index_table( PARAM_carb6 , idomain ) = P_carb6 ELSE P_carb6 = chem_index_table( PARAM_carb6 , idomain ) END IF chem_boundary_table( idomain, P_carb6 ) = .TRUE. chem_dname_table( idomain, P_carb6 ) = 'carb6' chem_desc_table( idomain, P_carb6 ) = 'CARB6 concentration' chem_units_table( idomain, P_carb6 ) = 'ppmv' chem_streams_table( idomain, P_carb6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb6 )%stream(2) = 2097216 ! 00200040 F_carb6 = .TRUE. IF ( chem_index_table( PARAM_carb9 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb9 = chem_num_table(idomain) chem_index_table( PARAM_carb9 , idomain ) = P_carb9 ELSE P_carb9 = chem_index_table( PARAM_carb9 , idomain ) END IF chem_boundary_table( idomain, P_carb9 ) = .TRUE. chem_dname_table( idomain, P_carb9 ) = 'carb9' chem_desc_table( idomain, P_carb9 ) = 'CARB9 concentration' chem_units_table( idomain, P_carb9 ) = 'ppmv' chem_streams_table( idomain, P_carb9 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb9 )%stream(2) = 2097216 ! 00200040 F_carb9 = .TRUE. IF ( chem_index_table( PARAM_carb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb12 = chem_num_table(idomain) chem_index_table( PARAM_carb12 , idomain ) = P_carb12 ELSE P_carb12 = chem_index_table( PARAM_carb12 , idomain ) END IF chem_boundary_table( idomain, P_carb12 ) = .TRUE. chem_dname_table( idomain, P_carb12 ) = 'carb12' chem_desc_table( idomain, P_carb12 ) = 'CARB12 concentration' chem_units_table( idomain, P_carb12 ) = 'ppmv' chem_streams_table( idomain, P_carb12 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb12 )%stream(2) = 2097216 ! 00200040 F_carb12 = .TRUE. IF ( chem_index_table( PARAM_carb15 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb15 = chem_num_table(idomain) chem_index_table( PARAM_carb15 , idomain ) = P_carb15 ELSE P_carb15 = chem_index_table( PARAM_carb15 , idomain ) END IF chem_boundary_table( idomain, P_carb15 ) = .TRUE. chem_dname_table( idomain, P_carb15 ) = 'carb15' chem_desc_table( idomain, P_carb15 ) = 'CARB15 concentration' chem_units_table( idomain, P_carb15 ) = 'ppmv' chem_streams_table( idomain, P_carb15 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb15 )%stream(2) = 2097216 ! 00200040 F_carb15 = .TRUE. IF ( chem_index_table( PARAM_c2h5co3h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5co3h = chem_num_table(idomain) chem_index_table( PARAM_c2h5co3h , idomain ) = P_c2h5co3h ELSE P_c2h5co3h = chem_index_table( PARAM_c2h5co3h , idomain ) END IF chem_boundary_table( idomain, P_c2h5co3h ) = .TRUE. chem_dname_table( idomain, P_c2h5co3h ) = 'c2h5co3h' chem_desc_table( idomain, P_c2h5co3h ) = 'C2H5CO3H concentration' chem_units_table( idomain, P_c2h5co3h ) = 'ppmv' chem_streams_table( idomain, P_c2h5co3h )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5co3h )%stream(2) = 2097216 ! 00200040 F_c2h5co3h = .TRUE. IF ( chem_index_table( PARAM_c2h5co3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5co3 = chem_num_table(idomain) chem_index_table( PARAM_c2h5co3 , idomain ) = P_c2h5co3 ELSE P_c2h5co3 = chem_index_table( PARAM_c2h5co3 , idomain ) END IF chem_boundary_table( idomain, P_c2h5co3 ) = .TRUE. chem_dname_table( idomain, P_c2h5co3 ) = 'c2h5co3' chem_desc_table( idomain, P_c2h5co3 ) = 'C2H5CO3 concentration' chem_units_table( idomain, P_c2h5co3 ) = 'ppmv' chem_streams_table( idomain, P_c2h5co3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5co3 )%stream(2) = 2097216 ! 00200040 F_c2h5co3 = .TRUE. IF ( chem_index_table( PARAM_ppn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ppn = chem_num_table(idomain) chem_index_table( PARAM_ppn , idomain ) = P_ppn ELSE P_ppn = chem_index_table( PARAM_ppn , idomain ) END IF chem_boundary_table( idomain, P_ppn ) = .TRUE. chem_dname_table( idomain, P_ppn ) = 'ppn' chem_desc_table( idomain, P_ppn ) = 'PPN concentration' chem_units_table( idomain, P_ppn ) = 'ppmv' chem_streams_table( idomain, P_ppn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ppn )%stream(2) = 2097216 ! 00200040 F_ppn = .TRUE. IF ( chem_index_table( PARAM_hoch2cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2cho = chem_num_table(idomain) chem_index_table( PARAM_hoch2cho , idomain ) = P_hoch2cho ELSE P_hoch2cho = chem_index_table( PARAM_hoch2cho , idomain ) END IF chem_boundary_table( idomain, P_hoch2cho ) = .TRUE. chem_dname_table( idomain, P_hoch2cho ) = 'hoch2cho' chem_desc_table( idomain, P_hoch2cho ) = 'HOCH2CHO concentration' chem_units_table( idomain, P_hoch2cho ) = 'ppmv' chem_streams_table( idomain, P_hoch2cho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoch2cho )%stream(2) = 2097216 ! 00200040 F_hoch2cho = .TRUE. IF ( chem_index_table( PARAM_hoch2co3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2co3 = chem_num_table(idomain) chem_index_table( PARAM_hoch2co3 , idomain ) = P_hoch2co3 ELSE P_hoch2co3 = chem_index_table( PARAM_hoch2co3 , idomain ) END IF chem_boundary_table( idomain, P_hoch2co3 ) = .TRUE. chem_dname_table( idomain, P_hoch2co3 ) = 'hoch2co3' chem_desc_table( idomain, P_hoch2co3 ) = 'HOCH2CO3 concentration' chem_units_table( idomain, P_hoch2co3 ) = 'ppmv' chem_streams_table( idomain, P_hoch2co3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoch2co3 )%stream(2) = 2097216 ! 00200040 F_hoch2co3 = .TRUE. IF ( chem_index_table( PARAM_hoch2co3h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2co3h = chem_num_table(idomain) chem_index_table( PARAM_hoch2co3h , idomain ) = P_hoch2co3h ELSE P_hoch2co3h = chem_index_table( PARAM_hoch2co3h , idomain ) END IF chem_boundary_table( idomain, P_hoch2co3h ) = .TRUE. chem_dname_table( idomain, P_hoch2co3h ) = 'hoch2co3h' chem_desc_table( idomain, P_hoch2co3h ) = 'HOCH2CO3H concentration' chem_units_table( idomain, P_hoch2co3h ) = 'ppmv' chem_streams_table( idomain, P_hoch2co3h )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoch2co3h )%stream(2) = 2097216 ! 00200040 F_hoch2co3h = .TRUE. IF ( chem_index_table( PARAM_phan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phan = chem_num_table(idomain) chem_index_table( PARAM_phan , idomain ) = P_phan ELSE P_phan = chem_index_table( PARAM_phan , idomain ) END IF chem_boundary_table( idomain, P_phan ) = .TRUE. chem_dname_table( idomain, P_phan ) = 'phan' chem_desc_table( idomain, P_phan ) = 'PHAN concentration' chem_units_table( idomain, P_phan ) = 'ppmv' chem_streams_table( idomain, P_phan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_phan )%stream(2) = 2097216 ! 00200040 F_phan = .TRUE. IF ( chem_index_table( PARAM_ccarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ccarb12 = chem_num_table(idomain) chem_index_table( PARAM_ccarb12 , idomain ) = P_ccarb12 ELSE P_ccarb12 = chem_index_table( PARAM_ccarb12 , idomain ) END IF chem_boundary_table( idomain, P_ccarb12 ) = .TRUE. chem_dname_table( idomain, P_ccarb12 ) = 'ccarb12' chem_desc_table( idomain, P_ccarb12 ) = 'CCARB12 concentration' chem_units_table( idomain, P_ccarb12 ) = 'ppmv' chem_streams_table( idomain, P_ccarb12 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ccarb12 )%stream(2) = 2097216 ! 00200040 F_ccarb12 = .TRUE. IF ( chem_index_table( PARAM_ch3cl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cl = chem_num_table(idomain) chem_index_table( PARAM_ch3cl , idomain ) = P_ch3cl ELSE P_ch3cl = chem_index_table( PARAM_ch3cl , idomain ) END IF chem_boundary_table( idomain, P_ch3cl ) = .TRUE. chem_dname_table( idomain, P_ch3cl ) = 'ch3cl' chem_desc_table( idomain, P_ch3cl ) = 'CH3CL concentration' chem_units_table( idomain, P_ch3cl ) = 'ppmv' chem_streams_table( idomain, P_ch3cl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3cl )%stream(2) = 2097216 ! 00200040 F_ch3cl = .TRUE. IF ( chem_index_table( PARAM_ch2cl2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch2cl2 = chem_num_table(idomain) chem_index_table( PARAM_ch2cl2 , idomain ) = P_ch2cl2 ELSE P_ch2cl2 = chem_index_table( PARAM_ch2cl2 , idomain ) END IF chem_boundary_table( idomain, P_ch2cl2 ) = .TRUE. chem_dname_table( idomain, P_ch2cl2 ) = 'ch2cl2' chem_desc_table( idomain, P_ch2cl2 ) = 'CH2CL2 concentration' chem_units_table( idomain, P_ch2cl2 ) = 'ppmv' chem_streams_table( idomain, P_ch2cl2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch2cl2 )%stream(2) = 2097216 ! 00200040 F_ch2cl2 = .TRUE. IF ( chem_index_table( PARAM_chcl3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_chcl3 = chem_num_table(idomain) chem_index_table( PARAM_chcl3 , idomain ) = P_chcl3 ELSE P_chcl3 = chem_index_table( PARAM_chcl3 , idomain ) END IF chem_boundary_table( idomain, P_chcl3 ) = .TRUE. chem_dname_table( idomain, P_chcl3 ) = 'chcl3' chem_desc_table( idomain, P_chcl3 ) = 'CHCL3 concentration' chem_units_table( idomain, P_chcl3 ) = 'ppmv' chem_streams_table( idomain, P_chcl3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_chcl3 )%stream(2) = 2097216 ! 00200040 F_chcl3 = .TRUE. IF ( chem_index_table( PARAM_ch3ccl3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ccl3 = chem_num_table(idomain) chem_index_table( PARAM_ch3ccl3 , idomain ) = P_ch3ccl3 ELSE P_ch3ccl3 = chem_index_table( PARAM_ch3ccl3 , idomain ) END IF chem_boundary_table( idomain, P_ch3ccl3 ) = .TRUE. chem_dname_table( idomain, P_ch3ccl3 ) = 'ch3ccl3' chem_desc_table( idomain, P_ch3ccl3 ) = 'CH3CCL3 concentration' chem_units_table( idomain, P_ch3ccl3 ) = 'ppmv' chem_streams_table( idomain, P_ch3ccl3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3ccl3 )%stream(2) = 2097216 ! 00200040 F_ch3ccl3 = .TRUE. IF ( chem_index_table( PARAM_cdicleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cdicleth = chem_num_table(idomain) chem_index_table( PARAM_cdicleth , idomain ) = P_cdicleth ELSE P_cdicleth = chem_index_table( PARAM_cdicleth , idomain ) END IF chem_boundary_table( idomain, P_cdicleth ) = .TRUE. chem_dname_table( idomain, P_cdicleth ) = 'cdicleth' chem_desc_table( idomain, P_cdicleth ) = 'CDICLETH concentration' chem_units_table( idomain, P_cdicleth ) = 'ppmv' chem_streams_table( idomain, P_cdicleth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cdicleth )%stream(2) = 2097216 ! 00200040 F_cdicleth = .TRUE. IF ( chem_index_table( PARAM_tdicleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tdicleth = chem_num_table(idomain) chem_index_table( PARAM_tdicleth , idomain ) = P_tdicleth ELSE P_tdicleth = chem_index_table( PARAM_tdicleth , idomain ) END IF chem_boundary_table( idomain, P_tdicleth ) = .TRUE. chem_dname_table( idomain, P_tdicleth ) = 'tdicleth' chem_desc_table( idomain, P_tdicleth ) = 'TDICLETH concentration' chem_units_table( idomain, P_tdicleth ) = 'ppmv' chem_streams_table( idomain, P_tdicleth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tdicleth )%stream(2) = 2097216 ! 00200040 F_tdicleth = .TRUE. IF ( chem_index_table( PARAM_tricleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tricleth = chem_num_table(idomain) chem_index_table( PARAM_tricleth , idomain ) = P_tricleth ELSE P_tricleth = chem_index_table( PARAM_tricleth , idomain ) END IF chem_boundary_table( idomain, P_tricleth ) = .TRUE. chem_dname_table( idomain, P_tricleth ) = 'tricleth' chem_desc_table( idomain, P_tricleth ) = 'TRICLETH concentration' chem_units_table( idomain, P_tricleth ) = 'ppmv' chem_streams_table( idomain, P_tricleth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tricleth )%stream(2) = 2097216 ! 00200040 F_tricleth = .TRUE. IF ( chem_index_table( PARAM_tce , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tce = chem_num_table(idomain) chem_index_table( PARAM_tce , idomain ) = P_tce ELSE P_tce = chem_index_table( PARAM_tce , idomain ) END IF chem_boundary_table( idomain, P_tce ) = .TRUE. chem_dname_table( idomain, P_tce ) = 'tce' chem_desc_table( idomain, P_tce ) = 'TCE concentration' chem_units_table( idomain, P_tce ) = 'ppmv' chem_streams_table( idomain, P_tce )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tce )%stream(2) = 2097216 ! 00200040 F_tce = .TRUE. IF ( chem_index_table( PARAM_ucarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ucarb12 = chem_num_table(idomain) chem_index_table( PARAM_ucarb12 , idomain ) = P_ucarb12 ELSE P_ucarb12 = chem_index_table( PARAM_ucarb12 , idomain ) END IF chem_boundary_table( idomain, P_ucarb12 ) = .TRUE. chem_dname_table( idomain, P_ucarb12 ) = 'ucarb12' chem_desc_table( idomain, P_ucarb12 ) = 'UCARB12 concentration' chem_units_table( idomain, P_ucarb12 ) = 'ppmv' chem_streams_table( idomain, P_ucarb12 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ucarb12 )%stream(2) = 2097216 ! 00200040 F_ucarb12 = .TRUE. IF ( chem_index_table( PARAM_ucarb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ucarb10 = chem_num_table(idomain) chem_index_table( PARAM_ucarb10 , idomain ) = P_ucarb10 ELSE P_ucarb10 = chem_index_table( PARAM_ucarb10 , idomain ) END IF chem_boundary_table( idomain, P_ucarb10 ) = .TRUE. chem_dname_table( idomain, P_ucarb10 ) = 'ucarb10' chem_desc_table( idomain, P_ucarb10 ) = 'UCARB10 concentration' chem_units_table( idomain, P_ucarb10 ) = 'ppmv' chem_streams_table( idomain, P_ucarb10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ucarb10 )%stream(2) = 2097216 ! 00200040 F_ucarb10 = .TRUE. IF ( chem_index_table( PARAM_ru14no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14no3 = chem_num_table(idomain) chem_index_table( PARAM_ru14no3 , idomain ) = P_ru14no3 ELSE P_ru14no3 = chem_index_table( PARAM_ru14no3 , idomain ) END IF chem_boundary_table( idomain, P_ru14no3 ) = .TRUE. chem_dname_table( idomain, P_ru14no3 ) = 'ru14no3' chem_desc_table( idomain, P_ru14no3 ) = 'RU14NO3 concentration' chem_units_table( idomain, P_ru14no3 ) = 'ppmv' chem_streams_table( idomain, P_ru14no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru14no3 )%stream(2) = 2097216 ! 00200040 F_ru14no3 = .TRUE. IF ( chem_index_table( PARAM_ru14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14ooh = chem_num_table(idomain) chem_index_table( PARAM_ru14ooh , idomain ) = P_ru14ooh ELSE P_ru14ooh = chem_index_table( PARAM_ru14ooh , idomain ) END IF chem_boundary_table( idomain, P_ru14ooh ) = .TRUE. chem_dname_table( idomain, P_ru14ooh ) = 'ru14ooh' chem_desc_table( idomain, P_ru14ooh ) = 'RU14OOH concentration' chem_units_table( idomain, P_ru14ooh ) = 'ppmv' chem_streams_table( idomain, P_ru14ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru14ooh )%stream(2) = 2097216 ! 00200040 F_ru14ooh = .TRUE. IF ( chem_index_table( PARAM_ru12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12ooh = chem_num_table(idomain) chem_index_table( PARAM_ru12ooh , idomain ) = P_ru12ooh ELSE P_ru12ooh = chem_index_table( PARAM_ru12ooh , idomain ) END IF chem_boundary_table( idomain, P_ru12ooh ) = .TRUE. chem_dname_table( idomain, P_ru12ooh ) = 'ru12ooh' chem_desc_table( idomain, P_ru12ooh ) = 'RU12OOH concentration' chem_units_table( idomain, P_ru12ooh ) = 'ppmv' chem_streams_table( idomain, P_ru12ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru12ooh )%stream(2) = 2097216 ! 00200040 F_ru12ooh = .TRUE. IF ( chem_index_table( PARAM_ru10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru10ooh = chem_num_table(idomain) chem_index_table( PARAM_ru10ooh , idomain ) = P_ru10ooh ELSE P_ru10ooh = chem_index_table( PARAM_ru10ooh , idomain ) END IF chem_boundary_table( idomain, P_ru10ooh ) = .TRUE. chem_dname_table( idomain, P_ru10ooh ) = 'ru10ooh' chem_desc_table( idomain, P_ru10ooh ) = 'RU10OOH concentration' chem_units_table( idomain, P_ru10ooh ) = 'ppmv' chem_streams_table( idomain, P_ru10ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru10ooh )%stream(2) = 2097216 ! 00200040 F_ru10ooh = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 ! 00200040 F_mpan = .TRUE. IF ( chem_index_table( PARAM_ru12pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12pan = chem_num_table(idomain) chem_index_table( PARAM_ru12pan , idomain ) = P_ru12pan ELSE P_ru12pan = chem_index_table( PARAM_ru12pan , idomain ) END IF chem_boundary_table( idomain, P_ru12pan ) = .TRUE. chem_dname_table( idomain, P_ru12pan ) = 'ru12pan' chem_desc_table( idomain, P_ru12pan ) = 'RU12PAN concentration' chem_units_table( idomain, P_ru12pan ) = 'ppmv' chem_streams_table( idomain, P_ru12pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru12pan )%stream(2) = 2097216 ! 00200040 F_ru12pan = .TRUE. IF ( chem_index_table( PARAM_nucarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nucarb12 = chem_num_table(idomain) chem_index_table( PARAM_nucarb12 , idomain ) = P_nucarb12 ELSE P_nucarb12 = chem_index_table( PARAM_nucarb12 , idomain ) END IF chem_boundary_table( idomain, P_nucarb12 ) = .TRUE. chem_dname_table( idomain, P_nucarb12 ) = 'nucarb12' chem_desc_table( idomain, P_nucarb12 ) = 'NUCARB12 concentration' chem_units_table( idomain, P_nucarb12 ) = 'ppmv' chem_streams_table( idomain, P_nucarb12 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nucarb12 )%stream(2) = 2097216 ! 00200040 F_nucarb12 = .TRUE. IF ( chem_index_table( PARAM_nru14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru14ooh = chem_num_table(idomain) chem_index_table( PARAM_nru14ooh , idomain ) = P_nru14ooh ELSE P_nru14ooh = chem_index_table( PARAM_nru14ooh , idomain ) END IF chem_boundary_table( idomain, P_nru14ooh ) = .TRUE. chem_dname_table( idomain, P_nru14ooh ) = 'nru14ooh' chem_desc_table( idomain, P_nru14ooh ) = 'NRU14OOH concentration' chem_units_table( idomain, P_nru14ooh ) = 'ppmv' chem_streams_table( idomain, P_nru14ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nru14ooh )%stream(2) = 2097216 ! 00200040 F_nru14ooh = .TRUE. IF ( chem_index_table( PARAM_nru12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru12ooh = chem_num_table(idomain) chem_index_table( PARAM_nru12ooh , idomain ) = P_nru12ooh ELSE P_nru12ooh = chem_index_table( PARAM_nru12ooh , idomain ) END IF chem_boundary_table( idomain, P_nru12ooh ) = .TRUE. chem_dname_table( idomain, P_nru12ooh ) = 'nru12ooh' chem_desc_table( idomain, P_nru12ooh ) = 'NRU12OOH concentration' chem_units_table( idomain, P_nru12ooh ) = 'ppmv' chem_streams_table( idomain, P_nru12ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nru12ooh )%stream(2) = 2097216 ! 00200040 F_nru12ooh = .TRUE. IF ( chem_index_table( PARAM_noa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_noa = chem_num_table(idomain) chem_index_table( PARAM_noa , idomain ) = P_noa ELSE P_noa = chem_index_table( PARAM_noa , idomain ) END IF chem_boundary_table( idomain, P_noa ) = .TRUE. chem_dname_table( idomain, P_noa ) = 'noa' chem_desc_table( idomain, P_noa ) = 'NOA concentration' chem_units_table( idomain, P_noa ) = 'ppmv' chem_streams_table( idomain, P_noa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_noa )%stream(2) = 2097216 ! 00200040 F_noa = .TRUE. IF ( chem_index_table( PARAM_ra13no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13no3 = chem_num_table(idomain) chem_index_table( PARAM_ra13no3 , idomain ) = P_ra13no3 ELSE P_ra13no3 = chem_index_table( PARAM_ra13no3 , idomain ) END IF chem_boundary_table( idomain, P_ra13no3 ) = .TRUE. chem_dname_table( idomain, P_ra13no3 ) = 'ra13no3' chem_desc_table( idomain, P_ra13no3 ) = 'RA13NO3 concentration' chem_units_table( idomain, P_ra13no3 ) = 'ppmv' chem_streams_table( idomain, P_ra13no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra13no3 )%stream(2) = 2097216 ! 00200040 F_ra13no3 = .TRUE. IF ( chem_index_table( PARAM_ra13ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13ooh = chem_num_table(idomain) chem_index_table( PARAM_ra13ooh , idomain ) = P_ra13ooh ELSE P_ra13ooh = chem_index_table( PARAM_ra13ooh , idomain ) END IF chem_boundary_table( idomain, P_ra13ooh ) = .TRUE. chem_dname_table( idomain, P_ra13ooh ) = 'ra13ooh' chem_desc_table( idomain, P_ra13ooh ) = 'RA13OOH concentration' chem_units_table( idomain, P_ra13ooh ) = 'ppmv' chem_streams_table( idomain, P_ra13ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra13ooh )%stream(2) = 2097216 ! 00200040 F_ra13ooh = .TRUE. IF ( chem_index_table( PARAM_udcarb8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb8 = chem_num_table(idomain) chem_index_table( PARAM_udcarb8 , idomain ) = P_udcarb8 ELSE P_udcarb8 = chem_index_table( PARAM_udcarb8 , idomain ) END IF chem_boundary_table( idomain, P_udcarb8 ) = .TRUE. chem_dname_table( idomain, P_udcarb8 ) = 'udcarb8' chem_desc_table( idomain, P_udcarb8 ) = 'UDCARB8 concentration' chem_units_table( idomain, P_udcarb8 ) = 'ppmv' chem_streams_table( idomain, P_udcarb8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udcarb8 )%stream(2) = 2097216 ! 00200040 F_udcarb8 = .TRUE. IF ( chem_index_table( PARAM_aroh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aroh14 = chem_num_table(idomain) chem_index_table( PARAM_aroh14 , idomain ) = P_aroh14 ELSE P_aroh14 = chem_index_table( PARAM_aroh14 , idomain ) END IF chem_boundary_table( idomain, P_aroh14 ) = .TRUE. chem_dname_table( idomain, P_aroh14 ) = 'aroh14' chem_desc_table( idomain, P_aroh14 ) = 'AROH14 concentration' chem_units_table( idomain, P_aroh14 ) = 'ppmv' chem_streams_table( idomain, P_aroh14 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aroh14 )%stream(2) = 2097216 ! 00200040 F_aroh14 = .TRUE. IF ( chem_index_table( PARAM_raroh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_raroh14 = chem_num_table(idomain) chem_index_table( PARAM_raroh14 , idomain ) = P_raroh14 ELSE P_raroh14 = chem_index_table( PARAM_raroh14 , idomain ) END IF chem_boundary_table( idomain, P_raroh14 ) = .TRUE. chem_dname_table( idomain, P_raroh14 ) = 'raroh14' chem_desc_table( idomain, P_raroh14 ) = 'RAROH14 concentration' chem_units_table( idomain, P_raroh14 ) = 'ppmv' chem_streams_table( idomain, P_raroh14 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_raroh14 )%stream(2) = 2097216 ! 00200040 F_raroh14 = .TRUE. IF ( chem_index_table( PARAM_arnoh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_arnoh14 = chem_num_table(idomain) chem_index_table( PARAM_arnoh14 , idomain ) = P_arnoh14 ELSE P_arnoh14 = chem_index_table( PARAM_arnoh14 , idomain ) END IF chem_boundary_table( idomain, P_arnoh14 ) = .TRUE. chem_dname_table( idomain, P_arnoh14 ) = 'arnoh14' chem_desc_table( idomain, P_arnoh14 ) = 'ARNOH14 concentration' chem_units_table( idomain, P_arnoh14 ) = 'ppmv' chem_streams_table( idomain, P_arnoh14 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_arnoh14 )%stream(2) = 2097216 ! 00200040 F_arnoh14 = .TRUE. IF ( chem_index_table( PARAM_ra16no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16no3 = chem_num_table(idomain) chem_index_table( PARAM_ra16no3 , idomain ) = P_ra16no3 ELSE P_ra16no3 = chem_index_table( PARAM_ra16no3 , idomain ) END IF chem_boundary_table( idomain, P_ra16no3 ) = .TRUE. chem_dname_table( idomain, P_ra16no3 ) = 'ra16no3' chem_desc_table( idomain, P_ra16no3 ) = 'RA16NO3 concentration' chem_units_table( idomain, P_ra16no3 ) = 'ppmv' chem_streams_table( idomain, P_ra16no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra16no3 )%stream(2) = 2097216 ! 00200040 F_ra16no3 = .TRUE. IF ( chem_index_table( PARAM_ra16ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16ooh = chem_num_table(idomain) chem_index_table( PARAM_ra16ooh , idomain ) = P_ra16ooh ELSE P_ra16ooh = chem_index_table( PARAM_ra16ooh , idomain ) END IF chem_boundary_table( idomain, P_ra16ooh ) = .TRUE. chem_dname_table( idomain, P_ra16ooh ) = 'ra16ooh' chem_desc_table( idomain, P_ra16ooh ) = 'RA16OOH concentration' chem_units_table( idomain, P_ra16ooh ) = 'ppmv' chem_streams_table( idomain, P_ra16ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra16ooh )%stream(2) = 2097216 ! 00200040 F_ra16ooh = .TRUE. IF ( chem_index_table( PARAM_udcarb11 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb11 = chem_num_table(idomain) chem_index_table( PARAM_udcarb11 , idomain ) = P_udcarb11 ELSE P_udcarb11 = chem_index_table( PARAM_udcarb11 , idomain ) END IF chem_boundary_table( idomain, P_udcarb11 ) = .TRUE. chem_dname_table( idomain, P_udcarb11 ) = 'udcarb11' chem_desc_table( idomain, P_udcarb11 ) = 'UDCARB11 concentration' chem_units_table( idomain, P_udcarb11 ) = 'ppmv' chem_streams_table( idomain, P_udcarb11 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udcarb11 )%stream(2) = 2097216 ! 00200040 F_udcarb11 = .TRUE. IF ( chem_index_table( PARAM_aroh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aroh17 = chem_num_table(idomain) chem_index_table( PARAM_aroh17 , idomain ) = P_aroh17 ELSE P_aroh17 = chem_index_table( PARAM_aroh17 , idomain ) END IF chem_boundary_table( idomain, P_aroh17 ) = .TRUE. chem_dname_table( idomain, P_aroh17 ) = 'aroh17' chem_desc_table( idomain, P_aroh17 ) = 'AROH17 concentration' chem_units_table( idomain, P_aroh17 ) = 'ppmv' chem_streams_table( idomain, P_aroh17 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aroh17 )%stream(2) = 2097216 ! 00200040 F_aroh17 = .TRUE. IF ( chem_index_table( PARAM_raroh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_raroh17 = chem_num_table(idomain) chem_index_table( PARAM_raroh17 , idomain ) = P_raroh17 ELSE P_raroh17 = chem_index_table( PARAM_raroh17 , idomain ) END IF chem_boundary_table( idomain, P_raroh17 ) = .TRUE. chem_dname_table( idomain, P_raroh17 ) = 'raroh17' chem_desc_table( idomain, P_raroh17 ) = 'RAROH17 concentration' chem_units_table( idomain, P_raroh17 ) = 'ppmv' chem_streams_table( idomain, P_raroh17 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_raroh17 )%stream(2) = 2097216 ! 00200040 F_raroh17 = .TRUE. IF ( chem_index_table( PARAM_arnoh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_arnoh17 = chem_num_table(idomain) chem_index_table( PARAM_arnoh17 , idomain ) = P_arnoh17 ELSE P_arnoh17 = chem_index_table( PARAM_arnoh17 , idomain ) END IF chem_boundary_table( idomain, P_arnoh17 ) = .TRUE. chem_dname_table( idomain, P_arnoh17 ) = 'arnoh17' chem_desc_table( idomain, P_arnoh17 ) = 'ARNOH17 concentration' chem_units_table( idomain, P_arnoh17 ) = 'ppmv' chem_streams_table( idomain, P_arnoh17 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_arnoh17 )%stream(2) = 2097216 ! 00200040 F_arnoh17 = .TRUE. IF ( chem_index_table( PARAM_udcarb14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb14 = chem_num_table(idomain) chem_index_table( PARAM_udcarb14 , idomain ) = P_udcarb14 ELSE P_udcarb14 = chem_index_table( PARAM_udcarb14 , idomain ) END IF chem_boundary_table( idomain, P_udcarb14 ) = .TRUE. chem_dname_table( idomain, P_udcarb14 ) = 'udcarb14' chem_desc_table( idomain, P_udcarb14 ) = 'UDCARB14 concentration' chem_units_table( idomain, P_udcarb14 ) = 'ppmv' chem_streams_table( idomain, P_udcarb14 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udcarb14 )%stream(2) = 2097216 ! 00200040 F_udcarb14 = .TRUE. IF ( chem_index_table( PARAM_ra19co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19co2 = chem_num_table(idomain) chem_index_table( PARAM_ra19co2 , idomain ) = P_ra19co2 ELSE P_ra19co2 = chem_index_table( PARAM_ra19co2 , idomain ) END IF chem_boundary_table( idomain, P_ra19co2 ) = .TRUE. chem_dname_table( idomain, P_ra19co2 ) = 'ra19co2' chem_desc_table( idomain, P_ra19co2 ) = 'RA19CO2 concentration' chem_units_table( idomain, P_ra19co2 ) = 'ppmv' chem_streams_table( idomain, P_ra19co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra19co2 )%stream(2) = 2097216 ! 00200040 F_ra19co2 = .TRUE. IF ( chem_index_table( PARAM_ra19no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19no3 = chem_num_table(idomain) chem_index_table( PARAM_ra19no3 , idomain ) = P_ra19no3 ELSE P_ra19no3 = chem_index_table( PARAM_ra19no3 , idomain ) END IF chem_boundary_table( idomain, P_ra19no3 ) = .TRUE. chem_dname_table( idomain, P_ra19no3 ) = 'ra19no3' chem_desc_table( idomain, P_ra19no3 ) = 'RA19NO3 concentration' chem_units_table( idomain, P_ra19no3 ) = 'ppmv' chem_streams_table( idomain, P_ra19no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra19no3 )%stream(2) = 2097216 ! 00200040 F_ra19no3 = .TRUE. IF ( chem_index_table( PARAM_ra19ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19ooh = chem_num_table(idomain) chem_index_table( PARAM_ra19ooh , idomain ) = P_ra19ooh ELSE P_ra19ooh = chem_index_table( PARAM_ra19ooh , idomain ) END IF chem_boundary_table( idomain, P_ra19ooh ) = .TRUE. chem_dname_table( idomain, P_ra19ooh ) = 'ra19ooh' chem_desc_table( idomain, P_ra19ooh ) = 'RA19OOH concentration' chem_units_table( idomain, P_ra19ooh ) = 'ppmv' chem_streams_table( idomain, P_ra19ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra19ooh )%stream(2) = 2097216 ! 00200040 F_ra19ooh = .TRUE. IF ( chem_index_table( PARAM_rtn28no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn28no3 , idomain ) = P_rtn28no3 ELSE P_rtn28no3 = chem_index_table( PARAM_rtn28no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn28no3 ) = .TRUE. chem_dname_table( idomain, P_rtn28no3 ) = 'rtn28no3' chem_desc_table( idomain, P_rtn28no3 ) = 'RTN28NO3 concentration' chem_units_table( idomain, P_rtn28no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn28no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn28no3 )%stream(2) = 2097216 ! 00200040 F_rtn28no3 = .TRUE. IF ( chem_index_table( PARAM_rtn28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn28ooh , idomain ) = P_rtn28ooh ELSE P_rtn28ooh = chem_index_table( PARAM_rtn28ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn28ooh ) = .TRUE. chem_dname_table( idomain, P_rtn28ooh ) = 'rtn28ooh' chem_desc_table( idomain, P_rtn28ooh ) = 'RTN28OOH concentration' chem_units_table( idomain, P_rtn28ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn28ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn28ooh )%stream(2) = 2097216 ! 00200040 F_rtn28ooh = .TRUE. IF ( chem_index_table( PARAM_tncarb26 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb26 = chem_num_table(idomain) chem_index_table( PARAM_tncarb26 , idomain ) = P_tncarb26 ELSE P_tncarb26 = chem_index_table( PARAM_tncarb26 , idomain ) END IF chem_boundary_table( idomain, P_tncarb26 ) = .TRUE. chem_dname_table( idomain, P_tncarb26 ) = 'tncarb26' chem_desc_table( idomain, P_tncarb26 ) = 'TNCARB26 concentration' chem_units_table( idomain, P_tncarb26 ) = 'ppmv' chem_streams_table( idomain, P_tncarb26 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tncarb26 )%stream(2) = 2097216 ! 00200040 F_tncarb26 = .TRUE. IF ( chem_index_table( PARAM_rtn26ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn26ooh , idomain ) = P_rtn26ooh ELSE P_rtn26ooh = chem_index_table( PARAM_rtn26ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn26ooh ) = .TRUE. chem_dname_table( idomain, P_rtn26ooh ) = 'rtn26ooh' chem_desc_table( idomain, P_rtn26ooh ) = 'RTN26OOH concentration' chem_units_table( idomain, P_rtn26ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn26ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn26ooh )%stream(2) = 2097216 ! 00200040 F_rtn26ooh = .TRUE. IF ( chem_index_table( PARAM_nrtn28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtn28ooh = chem_num_table(idomain) chem_index_table( PARAM_nrtn28ooh , idomain ) = P_nrtn28ooh ELSE P_nrtn28ooh = chem_index_table( PARAM_nrtn28ooh , idomain ) END IF chem_boundary_table( idomain, P_nrtn28ooh ) = .TRUE. chem_dname_table( idomain, P_nrtn28ooh ) = 'nrtn28ooh' chem_desc_table( idomain, P_nrtn28ooh ) = 'NRTN28OOH concentration' chem_units_table( idomain, P_nrtn28ooh ) = 'ppmv' chem_streams_table( idomain, P_nrtn28ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrtn28ooh )%stream(2) = 2097216 ! 00200040 F_nrtn28ooh = .TRUE. IF ( chem_index_table( PARAM_rtn26pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26pan = chem_num_table(idomain) chem_index_table( PARAM_rtn26pan , idomain ) = P_rtn26pan ELSE P_rtn26pan = chem_index_table( PARAM_rtn26pan , idomain ) END IF chem_boundary_table( idomain, P_rtn26pan ) = .TRUE. chem_dname_table( idomain, P_rtn26pan ) = 'rtn26pan' chem_desc_table( idomain, P_rtn26pan ) = 'RTN26PAN concentration' chem_units_table( idomain, P_rtn26pan ) = 'ppmv' chem_streams_table( idomain, P_rtn26pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn26pan )%stream(2) = 2097216 ! 00200040 F_rtn26pan = .TRUE. IF ( chem_index_table( PARAM_rtn25ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn25ooh , idomain ) = P_rtn25ooh ELSE P_rtn25ooh = chem_index_table( PARAM_rtn25ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn25ooh ) = .TRUE. chem_dname_table( idomain, P_rtn25ooh ) = 'rtn25ooh' chem_desc_table( idomain, P_rtn25ooh ) = 'RTN25OOH concentration' chem_units_table( idomain, P_rtn25ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn25ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn25ooh )%stream(2) = 2097216 ! 00200040 F_rtn25ooh = .TRUE. IF ( chem_index_table( PARAM_rtn24ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn24ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn24ooh , idomain ) = P_rtn24ooh ELSE P_rtn24ooh = chem_index_table( PARAM_rtn24ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn24ooh ) = .TRUE. chem_dname_table( idomain, P_rtn24ooh ) = 'rtn24ooh' chem_desc_table( idomain, P_rtn24ooh ) = 'RTN24OOH concentration' chem_units_table( idomain, P_rtn24ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn24ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn24ooh )%stream(2) = 2097216 ! 00200040 F_rtn24ooh = .TRUE. IF ( chem_index_table( PARAM_rtn23ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn23ooh , idomain ) = P_rtn23ooh ELSE P_rtn23ooh = chem_index_table( PARAM_rtn23ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn23ooh ) = .TRUE. chem_dname_table( idomain, P_rtn23ooh ) = 'rtn23ooh' chem_desc_table( idomain, P_rtn23ooh ) = 'RTN23OOH concentration' chem_units_table( idomain, P_rtn23ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn23ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn23ooh )%stream(2) = 2097216 ! 00200040 F_rtn23ooh = .TRUE. IF ( chem_index_table( PARAM_rtn14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn14ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn14ooh , idomain ) = P_rtn14ooh ELSE P_rtn14ooh = chem_index_table( PARAM_rtn14ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn14ooh ) = .TRUE. chem_dname_table( idomain, P_rtn14ooh ) = 'rtn14ooh' chem_desc_table( idomain, P_rtn14ooh ) = 'RTN14OOH concentration' chem_units_table( idomain, P_rtn14ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn14ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn14ooh )%stream(2) = 2097216 ! 00200040 F_rtn14ooh = .TRUE. IF ( chem_index_table( PARAM_rtn10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn10ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn10ooh , idomain ) = P_rtn10ooh ELSE P_rtn10ooh = chem_index_table( PARAM_rtn10ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn10ooh ) = .TRUE. chem_dname_table( idomain, P_rtn10ooh ) = 'rtn10ooh' chem_desc_table( idomain, P_rtn10ooh ) = 'RTN10OOH concentration' chem_units_table( idomain, P_rtn10ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn10ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn10ooh )%stream(2) = 2097216 ! 00200040 F_rtn10ooh = .TRUE. IF ( chem_index_table( PARAM_tncarb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb10 = chem_num_table(idomain) chem_index_table( PARAM_tncarb10 , idomain ) = P_tncarb10 ELSE P_tncarb10 = chem_index_table( PARAM_tncarb10 , idomain ) END IF chem_boundary_table( idomain, P_tncarb10 ) = .TRUE. chem_dname_table( idomain, P_tncarb10 ) = 'tncarb10' chem_desc_table( idomain, P_tncarb10 ) = 'TNCARB10 concentration' chem_units_table( idomain, P_tncarb10 ) = 'ppmv' chem_streams_table( idomain, P_tncarb10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tncarb10 )%stream(2) = 2097216 ! 00200040 F_tncarb10 = .TRUE. IF ( chem_index_table( PARAM_rtn25no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn25no3 , idomain ) = P_rtn25no3 ELSE P_rtn25no3 = chem_index_table( PARAM_rtn25no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn25no3 ) = .TRUE. chem_dname_table( idomain, P_rtn25no3 ) = 'rtn25no3' chem_desc_table( idomain, P_rtn25no3 ) = 'RTN25NO3 concentration' chem_units_table( idomain, P_rtn25no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn25no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn25no3 )%stream(2) = 2097216 ! 00200040 F_rtn25no3 = .TRUE. IF ( chem_index_table( PARAM_tncarb15 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb15 = chem_num_table(idomain) chem_index_table( PARAM_tncarb15 , idomain ) = P_tncarb15 ELSE P_tncarb15 = chem_index_table( PARAM_tncarb15 , idomain ) END IF chem_boundary_table( idomain, P_tncarb15 ) = .TRUE. chem_dname_table( idomain, P_tncarb15 ) = 'tncarb15' chem_desc_table( idomain, P_tncarb15 ) = 'TNCARB15 concentration' chem_units_table( idomain, P_tncarb15 ) = 'ppmv' chem_streams_table( idomain, P_tncarb15 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tncarb15 )%stream(2) = 2097216 ! 00200040 F_tncarb15 = .TRUE. IF ( chem_index_table( PARAM_rcooh25 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rcooh25 = chem_num_table(idomain) chem_index_table( PARAM_rcooh25 , idomain ) = P_rcooh25 ELSE P_rcooh25 = chem_index_table( PARAM_rcooh25 , idomain ) END IF chem_boundary_table( idomain, P_rcooh25 ) = .TRUE. chem_dname_table( idomain, P_rcooh25 ) = 'rcooh25' chem_desc_table( idomain, P_rcooh25 ) = 'RCOOH25 concentration' chem_units_table( idomain, P_rcooh25 ) = 'ppmv' chem_streams_table( idomain, P_rcooh25 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rcooh25 )%stream(2) = 2097216 ! 00200040 F_rcooh25 = .TRUE. IF ( chem_index_table( PARAM_rtx28no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx28no3 , idomain ) = P_rtx28no3 ELSE P_rtx28no3 = chem_index_table( PARAM_rtx28no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx28no3 ) = .TRUE. chem_dname_table( idomain, P_rtx28no3 ) = 'rtx28no3' chem_desc_table( idomain, P_rtx28no3 ) = 'RTX28NO3 concentration' chem_units_table( idomain, P_rtx28no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx28no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx28no3 )%stream(2) = 2097216 ! 00200040 F_rtx28no3 = .TRUE. IF ( chem_index_table( PARAM_rtx28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx28ooh , idomain ) = P_rtx28ooh ELSE P_rtx28ooh = chem_index_table( PARAM_rtx28ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx28ooh ) = .TRUE. chem_dname_table( idomain, P_rtx28ooh ) = 'rtx28ooh' chem_desc_table( idomain, P_rtx28ooh ) = 'RTX28OOH concentration' chem_units_table( idomain, P_rtx28ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx28ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx28ooh )%stream(2) = 2097216 ! 00200040 F_rtx28ooh = .TRUE. IF ( chem_index_table( PARAM_txcarb24 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_txcarb24 = chem_num_table(idomain) chem_index_table( PARAM_txcarb24 , idomain ) = P_txcarb24 ELSE P_txcarb24 = chem_index_table( PARAM_txcarb24 , idomain ) END IF chem_boundary_table( idomain, P_txcarb24 ) = .TRUE. chem_dname_table( idomain, P_txcarb24 ) = 'txcarb24' chem_desc_table( idomain, P_txcarb24 ) = 'TXCARB24 concentration' chem_units_table( idomain, P_txcarb24 ) = 'ppmv' chem_streams_table( idomain, P_txcarb24 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_txcarb24 )%stream(2) = 2097216 ! 00200040 F_txcarb24 = .TRUE. IF ( chem_index_table( PARAM_rtx24no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx24no3 , idomain ) = P_rtx24no3 ELSE P_rtx24no3 = chem_index_table( PARAM_rtx24no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx24no3 ) = .TRUE. chem_dname_table( idomain, P_rtx24no3 ) = 'rtx24no3' chem_desc_table( idomain, P_rtx24no3 ) = 'RTX24NO3 concentration' chem_units_table( idomain, P_rtx24no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx24no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx24no3 )%stream(2) = 2097216 ! 00200040 F_rtx24no3 = .TRUE. IF ( chem_index_table( PARAM_rtx24ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx24ooh , idomain ) = P_rtx24ooh ELSE P_rtx24ooh = chem_index_table( PARAM_rtx24ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx24ooh ) = .TRUE. chem_dname_table( idomain, P_rtx24ooh ) = 'rtx24ooh' chem_desc_table( idomain, P_rtx24ooh ) = 'RTX24OOH concentration' chem_units_table( idomain, P_rtx24ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx24ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx24ooh )%stream(2) = 2097216 ! 00200040 F_rtx24ooh = .TRUE. IF ( chem_index_table( PARAM_txcarb22 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_txcarb22 = chem_num_table(idomain) chem_index_table( PARAM_txcarb22 , idomain ) = P_txcarb22 ELSE P_txcarb22 = chem_index_table( PARAM_txcarb22 , idomain ) END IF chem_boundary_table( idomain, P_txcarb22 ) = .TRUE. chem_dname_table( idomain, P_txcarb22 ) = 'txcarb22' chem_desc_table( idomain, P_txcarb22 ) = 'TXCARB22 concentration' chem_units_table( idomain, P_txcarb22 ) = 'ppmv' chem_streams_table( idomain, P_txcarb22 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_txcarb22 )%stream(2) = 2097216 ! 00200040 F_txcarb22 = .TRUE. IF ( chem_index_table( PARAM_rtx22no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx22no3 , idomain ) = P_rtx22no3 ELSE P_rtx22no3 = chem_index_table( PARAM_rtx22no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx22no3 ) = .TRUE. chem_dname_table( idomain, P_rtx22no3 ) = 'rtx22no3' chem_desc_table( idomain, P_rtx22no3 ) = 'RTX22NO3 concentration' chem_units_table( idomain, P_rtx22no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx22no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx22no3 )%stream(2) = 2097216 ! 00200040 F_rtx22no3 = .TRUE. IF ( chem_index_table( PARAM_rtx22ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx22ooh , idomain ) = P_rtx22ooh ELSE P_rtx22ooh = chem_index_table( PARAM_rtx22ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx22ooh ) = .TRUE. chem_dname_table( idomain, P_rtx22ooh ) = 'rtx22ooh' chem_desc_table( idomain, P_rtx22ooh ) = 'RTX22OOH concentration' chem_units_table( idomain, P_rtx22ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx22ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx22ooh )%stream(2) = 2097216 ! 00200040 F_rtx22ooh = .TRUE. IF ( chem_index_table( PARAM_nrtx28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtx28ooh = chem_num_table(idomain) chem_index_table( PARAM_nrtx28ooh , idomain ) = P_nrtx28ooh ELSE P_nrtx28ooh = chem_index_table( PARAM_nrtx28ooh , idomain ) END IF chem_boundary_table( idomain, P_nrtx28ooh ) = .TRUE. chem_dname_table( idomain, P_nrtx28ooh ) = 'nrtx28ooh' chem_desc_table( idomain, P_nrtx28ooh ) = 'NRTX28OOH concentration' chem_units_table( idomain, P_nrtx28ooh ) = 'ppmv' chem_streams_table( idomain, P_nrtx28ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrtx28ooh )%stream(2) = 2097216 ! 00200040 F_nrtx28ooh = .TRUE. IF ( chem_index_table( PARAM_carb11a , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb11a = chem_num_table(idomain) chem_index_table( PARAM_carb11a , idomain ) = P_carb11a ELSE P_carb11a = chem_index_table( PARAM_carb11a , idomain ) END IF chem_boundary_table( idomain, P_carb11a ) = .TRUE. chem_dname_table( idomain, P_carb11a ) = 'carb11a' chem_desc_table( idomain, P_carb11a ) = 'CARB11A concentration' chem_units_table( idomain, P_carb11a ) = 'ppmv' chem_streams_table( idomain, P_carb11a )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb11a )%stream(2) = 2097216 ! 00200040 F_carb11a = .TRUE. IF ( chem_index_table( PARAM_anhy , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anhy = chem_num_table(idomain) chem_index_table( PARAM_anhy , idomain ) = P_anhy ELSE P_anhy = chem_index_table( PARAM_anhy , idomain ) END IF chem_boundary_table( idomain, P_anhy ) = .TRUE. chem_dname_table( idomain, P_anhy ) = 'anhy' chem_desc_table( idomain, P_anhy ) = 'ANHY concentration' chem_units_table( idomain, P_anhy ) = 'ppmv' chem_streams_table( idomain, P_anhy )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_anhy )%stream(2) = 2097216 ! 00200040 F_anhy = .TRUE. IF ( chem_index_table( PARAM_ch3o2no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2no2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2no2 , idomain ) = P_ch3o2no2 ELSE P_ch3o2no2 = chem_index_table( PARAM_ch3o2no2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2no2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2no2 ) = 'ch3o2no2' chem_desc_table( idomain, P_ch3o2no2 ) = 'CH3O2NO2 concentration' chem_units_table( idomain, P_ch3o2no2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2no2 )%stream(2) = 2097216 ! 00200040 F_ch3o2no2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_rtn23no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn23no3 , idomain ) = P_rtn23no3 ELSE P_rtn23no3 = chem_index_table( PARAM_rtn23no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn23no3 ) = .TRUE. chem_dname_table( idomain, P_rtn23no3 ) = 'rtn23no3' chem_desc_table( idomain, P_rtn23no3 ) = 'rtn23no3 concentration' chem_units_table( idomain, P_rtn23no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn23no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn23no3 )%stream(2) = 2097216 ! 00200040 F_rtn23no3 = .TRUE. IF ( chem_index_table( PARAM_tncarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb12 = chem_num_table(idomain) chem_index_table( PARAM_tncarb12 , idomain ) = P_tncarb12 ELSE P_tncarb12 = chem_index_table( PARAM_tncarb12 , idomain ) END IF chem_boundary_table( idomain, P_tncarb12 ) = .TRUE. chem_dname_table( idomain, P_tncarb12 ) = 'tncarb12' chem_desc_table( idomain, P_tncarb12 ) = 'tncarb12 concentration' chem_units_table( idomain, P_tncarb12 ) = 'ppmv' chem_streams_table( idomain, P_tncarb12 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tncarb12 )%stream(2) = 2097216 ! 00200040 F_tncarb12 = .TRUE. IF ( chem_index_table( PARAM_tncarb11 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb11 = chem_num_table(idomain) chem_index_table( PARAM_tncarb11 , idomain ) = P_tncarb11 ELSE P_tncarb11 = chem_index_table( PARAM_tncarb11 , idomain ) END IF chem_boundary_table( idomain, P_tncarb11 ) = .TRUE. chem_dname_table( idomain, P_tncarb11 ) = 'tncarb11' chem_desc_table( idomain, P_tncarb11 ) = 'tncarb11 concentration' chem_units_table( idomain, P_tncarb11 ) = 'ppmv' chem_streams_table( idomain, P_tncarb11 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tncarb11 )%stream(2) = 2097216 ! 00200040 F_tncarb11 = .TRUE. IF ( chem_index_table( PARAM_tm123b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm123b = chem_num_table(idomain) chem_index_table( PARAM_tm123b , idomain ) = P_tm123b ELSE P_tm123b = chem_index_table( PARAM_tm123b , idomain ) END IF chem_boundary_table( idomain, P_tm123b ) = .TRUE. chem_dname_table( idomain, P_tm123b ) = 'tm123b' chem_desc_table( idomain, P_tm123b ) = 'tm123b concentration' chem_units_table( idomain, P_tm123b ) = 'ppmv' chem_streams_table( idomain, P_tm123b )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tm123b )%stream(2) = 2097216 ! 00200040 F_tm123b = .TRUE. IF ( chem_index_table( PARAM_tm124b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm124b = chem_num_table(idomain) chem_index_table( PARAM_tm124b , idomain ) = P_tm124b ELSE P_tm124b = chem_index_table( PARAM_tm124b , idomain ) END IF chem_boundary_table( idomain, P_tm124b ) = .TRUE. chem_dname_table( idomain, P_tm124b ) = 'tm124b' chem_desc_table( idomain, P_tm124b ) = 'tm124b concentration' chem_units_table( idomain, P_tm124b ) = 'ppmv' chem_streams_table( idomain, P_tm124b )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tm124b )%stream(2) = 2097216 ! 00200040 F_tm124b = .TRUE. IF ( chem_index_table( PARAM_tm135b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm135b = chem_num_table(idomain) chem_index_table( PARAM_tm135b , idomain ) = P_tm135b ELSE P_tm135b = chem_index_table( PARAM_tm135b , idomain ) END IF chem_boundary_table( idomain, P_tm135b ) = .TRUE. chem_dname_table( idomain, P_tm135b ) = 'tm135b' chem_desc_table( idomain, P_tm135b ) = 'tm135b concentration' chem_units_table( idomain, P_tm135b ) = 'ppmv' chem_streams_table( idomain, P_tm135b )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tm135b )%stream(2) = 2097216 ! 00200040 F_tm135b = .TRUE. IF ( chem_index_table( PARAM_oethtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oethtol = chem_num_table(idomain) chem_index_table( PARAM_oethtol , idomain ) = P_oethtol ELSE P_oethtol = chem_index_table( PARAM_oethtol , idomain ) END IF chem_boundary_table( idomain, P_oethtol ) = .TRUE. chem_dname_table( idomain, P_oethtol ) = 'oethtol' chem_desc_table( idomain, P_oethtol ) = 'oethtol concentration' chem_units_table( idomain, P_oethtol ) = 'ppmv' chem_streams_table( idomain, P_oethtol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oethtol )%stream(2) = 2097216 ! 00200040 F_oethtol = .TRUE. IF ( chem_index_table( PARAM_methtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_methtol = chem_num_table(idomain) chem_index_table( PARAM_methtol , idomain ) = P_methtol ELSE P_methtol = chem_index_table( PARAM_methtol , idomain ) END IF chem_boundary_table( idomain, P_methtol ) = .TRUE. chem_dname_table( idomain, P_methtol ) = 'methtol' chem_desc_table( idomain, P_methtol ) = 'methtol concentration' chem_units_table( idomain, P_methtol ) = 'ppmv' chem_streams_table( idomain, P_methtol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_methtol )%stream(2) = 2097216 ! 00200040 F_methtol = .TRUE. IF ( chem_index_table( PARAM_pethtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pethtol = chem_num_table(idomain) chem_index_table( PARAM_pethtol , idomain ) = P_pethtol ELSE P_pethtol = chem_index_table( PARAM_pethtol , idomain ) END IF chem_boundary_table( idomain, P_pethtol ) = .TRUE. chem_dname_table( idomain, P_pethtol ) = 'pethtol' chem_desc_table( idomain, P_pethtol ) = 'pethtol concentration' chem_units_table( idomain, P_pethtol ) = 'ppmv' chem_streams_table( idomain, P_pethtol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pethtol )%stream(2) = 2097216 ! 00200040 F_pethtol = .TRUE. IF ( chem_index_table( PARAM_ra22no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22no3 = chem_num_table(idomain) chem_index_table( PARAM_ra22no3 , idomain ) = P_ra22no3 ELSE P_ra22no3 = chem_index_table( PARAM_ra22no3 , idomain ) END IF chem_boundary_table( idomain, P_ra22no3 ) = .TRUE. chem_dname_table( idomain, P_ra22no3 ) = 'ra22no3' chem_desc_table( idomain, P_ra22no3 ) = 'ra22no3 concentration' chem_units_table( idomain, P_ra22no3 ) = 'ppmv' chem_streams_table( idomain, P_ra22no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra22no3 )%stream(2) = 2097216 ! 00200040 F_ra22no3 = .TRUE. IF ( chem_index_table( PARAM_ra22ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22ooh = chem_num_table(idomain) chem_index_table( PARAM_ra22ooh , idomain ) = P_ra22ooh ELSE P_ra22ooh = chem_index_table( PARAM_ra22ooh , idomain ) END IF chem_boundary_table( idomain, P_ra22ooh ) = .TRUE. chem_dname_table( idomain, P_ra22ooh ) = 'ra22ooh' chem_desc_table( idomain, P_ra22ooh ) = 'ra22ooh concentration' chem_units_table( idomain, P_ra22ooh ) = 'ppmv' chem_streams_table( idomain, P_ra22ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra22ooh )%stream(2) = 2097216 ! 00200040 F_ra22ooh = .TRUE. IF ( chem_index_table( PARAM_dime35eb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dime35eb = chem_num_table(idomain) chem_index_table( PARAM_dime35eb , idomain ) = P_dime35eb ELSE P_dime35eb = chem_index_table( PARAM_dime35eb , idomain ) END IF chem_boundary_table( idomain, P_dime35eb ) = .TRUE. chem_dname_table( idomain, P_dime35eb ) = 'dime35eb' chem_desc_table( idomain, P_dime35eb ) = 'dime35eb concentration' chem_units_table( idomain, P_dime35eb ) = 'ppmv' chem_streams_table( idomain, P_dime35eb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dime35eb )%stream(2) = 2097216 ! 00200040 F_dime35eb = .TRUE. IF ( chem_index_table( PARAM_ra25no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25no3 = chem_num_table(idomain) chem_index_table( PARAM_ra25no3 , idomain ) = P_ra25no3 ELSE P_ra25no3 = chem_index_table( PARAM_ra25no3 , idomain ) END IF chem_boundary_table( idomain, P_ra25no3 ) = .TRUE. chem_dname_table( idomain, P_ra25no3 ) = 'ra25no3' chem_desc_table( idomain, P_ra25no3 ) = 'ra25no3 concentration' chem_units_table( idomain, P_ra25no3 ) = 'ppmv' chem_streams_table( idomain, P_ra25no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra25no3 )%stream(2) = 2097216 ! 00200040 F_ra25no3 = .TRUE. IF ( chem_index_table( PARAM_udcarb17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb17 = chem_num_table(idomain) chem_index_table( PARAM_udcarb17 , idomain ) = P_udcarb17 ELSE P_udcarb17 = chem_index_table( PARAM_udcarb17 , idomain ) END IF chem_boundary_table( idomain, P_udcarb17 ) = .TRUE. chem_dname_table( idomain, P_udcarb17 ) = 'udcarb17' chem_desc_table( idomain, P_udcarb17 ) = 'udcarb17 concentration' chem_units_table( idomain, P_udcarb17 ) = 'ppmv' chem_streams_table( idomain, P_udcarb17 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udcarb17 )%stream(2) = 2097216 ! 00200040 F_udcarb17 = .TRUE. IF ( chem_index_table( PARAM_ra25ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25ooh = chem_num_table(idomain) chem_index_table( PARAM_ra25ooh , idomain ) = P_ra25ooh ELSE P_ra25ooh = chem_index_table( PARAM_ra25ooh , idomain ) END IF chem_boundary_table( idomain, P_ra25ooh ) = .TRUE. chem_dname_table( idomain, P_ra25ooh ) = 'ra25ooh' chem_desc_table( idomain, P_ra25ooh ) = 'ra25ooh concentration' chem_units_table( idomain, P_ra25ooh ) = 'ppmv' chem_streams_table( idomain, P_ra25ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra25ooh )%stream(2) = 2097216 ! 00200040 F_ra25ooh = .TRUE. IF ( chem_index_table( PARAM_clno2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clno2 = chem_num_table(idomain) chem_index_table( PARAM_clno2 , idomain ) = P_clno2 ELSE P_clno2 = chem_index_table( PARAM_clno2 , idomain ) END IF chem_boundary_table( idomain, P_clno2 ) = .TRUE. chem_dname_table( idomain, P_clno2 ) = 'clno2' chem_desc_table( idomain, P_clno2 ) = 'ClNO2 concentration' chem_units_table( idomain, P_clno2 ) = 'ppmv' chem_streams_table( idomain, P_clno2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clno2 )%stream(2) = 2097216 ! 00200040 F_clno2 = .TRUE. IF ( chem_index_table( PARAM_ch3oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oo = chem_num_table(idomain) chem_index_table( PARAM_ch3oo , idomain ) = P_ch3oo ELSE P_ch3oo = chem_index_table( PARAM_ch3oo , idomain ) END IF chem_boundary_table( idomain, P_ch3oo ) = .TRUE. chem_dname_table( idomain, P_ch3oo ) = 'ch3oo' chem_desc_table( idomain, P_ch3oo ) = 'CH3OO concentration' chem_units_table( idomain, P_ch3oo ) = 'ppmv' chem_streams_table( idomain, P_ch3oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oo )%stream(2) = 2097216 ! 00200040 F_ch3oo = .TRUE. IF ( chem_index_table( PARAM_c2h5o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5o2 = chem_num_table(idomain) chem_index_table( PARAM_c2h5o2 , idomain ) = P_c2h5o2 ELSE P_c2h5o2 = chem_index_table( PARAM_c2h5o2 , idomain ) END IF chem_boundary_table( idomain, P_c2h5o2 ) = .TRUE. chem_dname_table( idomain, P_c2h5o2 ) = 'c2h5o2' chem_desc_table( idomain, P_c2h5o2 ) = 'C2H5O2 concentration' chem_units_table( idomain, P_c2h5o2 ) = 'ppmv' chem_streams_table( idomain, P_c2h5o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5o2 )%stream(2) = 2097216 ! 00200040 F_c2h5o2 = .TRUE. IF ( chem_index_table( PARAM_hoch2ch2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2ch2o2 = chem_num_table(idomain) chem_index_table( PARAM_hoch2ch2o2 , idomain ) = P_hoch2ch2o2 ELSE P_hoch2ch2o2 = chem_index_table( PARAM_hoch2ch2o2 , idomain ) END IF chem_boundary_table( idomain, P_hoch2ch2o2 ) = .TRUE. chem_dname_table( idomain, P_hoch2ch2o2 ) = 'hoch2ch2o2' chem_desc_table( idomain, P_hoch2ch2o2 ) = 'HOCH2CH2O2 concentration' chem_units_table( idomain, P_hoch2ch2o2 ) = 'ppmv' chem_streams_table( idomain, P_hoch2ch2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoch2ch2o2 )%stream(2) = 2097216 ! 00200040 F_hoch2ch2o2 = .TRUE. IF ( chem_index_table( PARAM_ic3h7o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ic3h7o2 = chem_num_table(idomain) chem_index_table( PARAM_ic3h7o2 , idomain ) = P_ic3h7o2 ELSE P_ic3h7o2 = chem_index_table( PARAM_ic3h7o2 , idomain ) END IF chem_boundary_table( idomain, P_ic3h7o2 ) = .TRUE. chem_dname_table( idomain, P_ic3h7o2 ) = 'ic3h7o2' chem_desc_table( idomain, P_ic3h7o2 ) = 'IC3H7O2 concentration' chem_units_table( idomain, P_ic3h7o2 ) = 'ppmv' chem_streams_table( idomain, P_ic3h7o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ic3h7o2 )%stream(2) = 2097216 ! 00200040 F_ic3h7o2 = .TRUE. IF ( chem_index_table( PARAM_rn10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10o2 = chem_num_table(idomain) chem_index_table( PARAM_rn10o2 , idomain ) = P_rn10o2 ELSE P_rn10o2 = chem_index_table( PARAM_rn10o2 , idomain ) END IF chem_boundary_table( idomain, P_rn10o2 ) = .TRUE. chem_dname_table( idomain, P_rn10o2 ) = 'rn10o2' chem_desc_table( idomain, P_rn10o2 ) = 'RN10O2 concentration' chem_units_table( idomain, P_rn10o2 ) = 'ppmv' chem_streams_table( idomain, P_rn10o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn10o2 )%stream(2) = 2097216 ! 00200040 F_rn10o2 = .TRUE. IF ( chem_index_table( PARAM_rn13o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13o2 = chem_num_table(idomain) chem_index_table( PARAM_rn13o2 , idomain ) = P_rn13o2 ELSE P_rn13o2 = chem_index_table( PARAM_rn13o2 , idomain ) END IF chem_boundary_table( idomain, P_rn13o2 ) = .TRUE. chem_dname_table( idomain, P_rn13o2 ) = 'rn13o2' chem_desc_table( idomain, P_rn13o2 ) = 'RN13O2 concentration' chem_units_table( idomain, P_rn13o2 ) = 'ppmv' chem_streams_table( idomain, P_rn13o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn13o2 )%stream(2) = 2097216 ! 00200040 F_rn13o2 = .TRUE. IF ( chem_index_table( PARAM_rn16o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16o2 = chem_num_table(idomain) chem_index_table( PARAM_rn16o2 , idomain ) = P_rn16o2 ELSE P_rn16o2 = chem_index_table( PARAM_rn16o2 , idomain ) END IF chem_boundary_table( idomain, P_rn16o2 ) = .TRUE. chem_dname_table( idomain, P_rn16o2 ) = 'rn16o2' chem_desc_table( idomain, P_rn16o2 ) = 'RN16O2 concentration' chem_units_table( idomain, P_rn16o2 ) = 'ppmv' chem_streams_table( idomain, P_rn16o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn16o2 )%stream(2) = 2097216 ! 00200040 F_rn16o2 = .TRUE. IF ( chem_index_table( PARAM_rn19o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19o2 = chem_num_table(idomain) chem_index_table( PARAM_rn19o2 , idomain ) = P_rn19o2 ELSE P_rn19o2 = chem_index_table( PARAM_rn19o2 , idomain ) END IF chem_boundary_table( idomain, P_rn19o2 ) = .TRUE. chem_dname_table( idomain, P_rn19o2 ) = 'rn19o2' chem_desc_table( idomain, P_rn19o2 ) = 'RN19O2 concentration' chem_units_table( idomain, P_rn19o2 ) = 'ppmv' chem_streams_table( idomain, P_rn19o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn19o2 )%stream(2) = 2097216 ! 00200040 F_rn19o2 = .TRUE. IF ( chem_index_table( PARAM_rn9o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9o2 = chem_num_table(idomain) chem_index_table( PARAM_rn9o2 , idomain ) = P_rn9o2 ELSE P_rn9o2 = chem_index_table( PARAM_rn9o2 , idomain ) END IF chem_boundary_table( idomain, P_rn9o2 ) = .TRUE. chem_dname_table( idomain, P_rn9o2 ) = 'rn9o2' chem_desc_table( idomain, P_rn9o2 ) = 'RN9O2 concentration' chem_units_table( idomain, P_rn9o2 ) = 'ppmv' chem_streams_table( idomain, P_rn9o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn9o2 )%stream(2) = 2097216 ! 00200040 F_rn9o2 = .TRUE. IF ( chem_index_table( PARAM_rn12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12o2 = chem_num_table(idomain) chem_index_table( PARAM_rn12o2 , idomain ) = P_rn12o2 ELSE P_rn12o2 = chem_index_table( PARAM_rn12o2 , idomain ) END IF chem_boundary_table( idomain, P_rn12o2 ) = .TRUE. chem_dname_table( idomain, P_rn12o2 ) = 'rn12o2' chem_desc_table( idomain, P_rn12o2 ) = 'RN12O2 concentration' chem_units_table( idomain, P_rn12o2 ) = 'ppmv' chem_streams_table( idomain, P_rn12o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn12o2 )%stream(2) = 2097216 ! 00200040 F_rn12o2 = .TRUE. IF ( chem_index_table( PARAM_rn15o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15o2 = chem_num_table(idomain) chem_index_table( PARAM_rn15o2 , idomain ) = P_rn15o2 ELSE P_rn15o2 = chem_index_table( PARAM_rn15o2 , idomain ) END IF chem_boundary_table( idomain, P_rn15o2 ) = .TRUE. chem_dname_table( idomain, P_rn15o2 ) = 'rn15o2' chem_desc_table( idomain, P_rn15o2 ) = 'RN15O2 concentration' chem_units_table( idomain, P_rn15o2 ) = 'ppmv' chem_streams_table( idomain, P_rn15o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn15o2 )%stream(2) = 2097216 ! 00200040 F_rn15o2 = .TRUE. IF ( chem_index_table( PARAM_rn18o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18o2 = chem_num_table(idomain) chem_index_table( PARAM_rn18o2 , idomain ) = P_rn18o2 ELSE P_rn18o2 = chem_index_table( PARAM_rn18o2 , idomain ) END IF chem_boundary_table( idomain, P_rn18o2 ) = .TRUE. chem_dname_table( idomain, P_rn18o2 ) = 'rn18o2' chem_desc_table( idomain, P_rn18o2 ) = 'RN18O2 concentration' chem_units_table( idomain, P_rn18o2 ) = 'ppmv' chem_streams_table( idomain, P_rn18o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn18o2 )%stream(2) = 2097216 ! 00200040 F_rn18o2 = .TRUE. IF ( chem_index_table( PARAM_nrn6o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn6o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn6o2 , idomain ) = P_nrn6o2 ELSE P_nrn6o2 = chem_index_table( PARAM_nrn6o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn6o2 ) = .TRUE. chem_dname_table( idomain, P_nrn6o2 ) = 'nrn6o2' chem_desc_table( idomain, P_nrn6o2 ) = 'NRN6O2 concentration' chem_units_table( idomain, P_nrn6o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn6o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn6o2 )%stream(2) = 2097216 ! 00200040 F_nrn6o2 = .TRUE. IF ( chem_index_table( PARAM_nrn9o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn9o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn9o2 , idomain ) = P_nrn9o2 ELSE P_nrn9o2 = chem_index_table( PARAM_nrn9o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn9o2 ) = .TRUE. chem_dname_table( idomain, P_nrn9o2 ) = 'nrn9o2' chem_desc_table( idomain, P_nrn9o2 ) = 'NRN9O2 concentration' chem_units_table( idomain, P_nrn9o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn9o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn9o2 )%stream(2) = 2097216 ! 00200040 F_nrn9o2 = .TRUE. IF ( chem_index_table( PARAM_nrn12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn12o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn12o2 , idomain ) = P_nrn12o2 ELSE P_nrn12o2 = chem_index_table( PARAM_nrn12o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn12o2 ) = .TRUE. chem_dname_table( idomain, P_nrn12o2 ) = 'nrn12o2' chem_desc_table( idomain, P_nrn12o2 ) = 'NRN12O2 concentration' chem_units_table( idomain, P_nrn12o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn12o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn12o2 )%stream(2) = 2097216 ! 00200040 F_nrn12o2 = .TRUE. IF ( chem_index_table( PARAM_rn11o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn11o2 = chem_num_table(idomain) chem_index_table( PARAM_rn11o2 , idomain ) = P_rn11o2 ELSE P_rn11o2 = chem_index_table( PARAM_rn11o2 , idomain ) END IF chem_boundary_table( idomain, P_rn11o2 ) = .TRUE. chem_dname_table( idomain, P_rn11o2 ) = 'rn11o2' chem_desc_table( idomain, P_rn11o2 ) = 'RN11O2 concentration' chem_units_table( idomain, P_rn11o2 ) = 'ppmv' chem_streams_table( idomain, P_rn11o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn11o2 )%stream(2) = 2097216 ! 00200040 F_rn11o2 = .TRUE. IF ( chem_index_table( PARAM_rn14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn14o2 = chem_num_table(idomain) chem_index_table( PARAM_rn14o2 , idomain ) = P_rn14o2 ELSE P_rn14o2 = chem_index_table( PARAM_rn14o2 , idomain ) END IF chem_boundary_table( idomain, P_rn14o2 ) = .TRUE. chem_dname_table( idomain, P_rn14o2 ) = 'rn14o2' chem_desc_table( idomain, P_rn14o2 ) = 'RN14O2 concentration' chem_units_table( idomain, P_rn14o2 ) = 'ppmv' chem_streams_table( idomain, P_rn14o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn14o2 )%stream(2) = 2097216 ! 00200040 F_rn14o2 = .TRUE. IF ( chem_index_table( PARAM_rn8o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn8o2 = chem_num_table(idomain) chem_index_table( PARAM_rn8o2 , idomain ) = P_rn8o2 ELSE P_rn8o2 = chem_index_table( PARAM_rn8o2 , idomain ) END IF chem_boundary_table( idomain, P_rn8o2 ) = .TRUE. chem_dname_table( idomain, P_rn8o2 ) = 'rn8o2' chem_desc_table( idomain, P_rn8o2 ) = 'RN8O2 concentration' chem_units_table( idomain, P_rn8o2 ) = 'ppmv' chem_streams_table( idomain, P_rn8o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn8o2 )%stream(2) = 2097216 ! 00200040 F_rn8o2 = .TRUE. IF ( chem_index_table( PARAM_rn17o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn17o2 = chem_num_table(idomain) chem_index_table( PARAM_rn17o2 , idomain ) = P_rn17o2 ELSE P_rn17o2 = chem_index_table( PARAM_rn17o2 , idomain ) END IF chem_boundary_table( idomain, P_rn17o2 ) = .TRUE. chem_dname_table( idomain, P_rn17o2 ) = 'rn17o2' chem_desc_table( idomain, P_rn17o2 ) = 'RN17O2 concentration' chem_units_table( idomain, P_rn17o2 ) = 'ppmv' chem_streams_table( idomain, P_rn17o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn17o2 )%stream(2) = 2097216 ! 00200040 F_rn17o2 = .TRUE. IF ( chem_index_table( PARAM_rn13ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn13ao2 , idomain ) = P_rn13ao2 ELSE P_rn13ao2 = chem_index_table( PARAM_rn13ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn13ao2 ) = .TRUE. chem_dname_table( idomain, P_rn13ao2 ) = 'rn13ao2' chem_desc_table( idomain, P_rn13ao2 ) = 'RN13AO2 concentration' chem_units_table( idomain, P_rn13ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn13ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn13ao2 )%stream(2) = 2097216 ! 00200040 F_rn13ao2 = .TRUE. IF ( chem_index_table( PARAM_rn16ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn16ao2 , idomain ) = P_rn16ao2 ELSE P_rn16ao2 = chem_index_table( PARAM_rn16ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn16ao2 ) = .TRUE. chem_dname_table( idomain, P_rn16ao2 ) = 'rn16ao2' chem_desc_table( idomain, P_rn16ao2 ) = 'RN16AO2 concentration' chem_units_table( idomain, P_rn16ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn16ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn16ao2 )%stream(2) = 2097216 ! 00200040 F_rn16ao2 = .TRUE. IF ( chem_index_table( PARAM_rn15ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn15ao2 , idomain ) = P_rn15ao2 ELSE P_rn15ao2 = chem_index_table( PARAM_rn15ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn15ao2 ) = .TRUE. chem_dname_table( idomain, P_rn15ao2 ) = 'rn15ao2' chem_desc_table( idomain, P_rn15ao2 ) = 'RN15AO2 concentration' chem_units_table( idomain, P_rn15ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn15ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn15ao2 )%stream(2) = 2097216 ! 00200040 F_rn15ao2 = .TRUE. IF ( chem_index_table( PARAM_rn18ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn18ao2 , idomain ) = P_rn18ao2 ELSE P_rn18ao2 = chem_index_table( PARAM_rn18ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn18ao2 ) = .TRUE. chem_dname_table( idomain, P_rn18ao2 ) = 'rn18ao2' chem_desc_table( idomain, P_rn18ao2 ) = 'RN18AO2 concentration' chem_units_table( idomain, P_rn18ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn18ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn18ao2 )%stream(2) = 2097216 ! 00200040 F_rn18ao2 = .TRUE. IF ( chem_index_table( PARAM_ru10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru10o2 = chem_num_table(idomain) chem_index_table( PARAM_ru10o2 , idomain ) = P_ru10o2 ELSE P_ru10o2 = chem_index_table( PARAM_ru10o2 , idomain ) END IF chem_boundary_table( idomain, P_ru10o2 ) = .TRUE. chem_dname_table( idomain, P_ru10o2 ) = 'ru10o2' chem_desc_table( idomain, P_ru10o2 ) = 'RU10O2 concentration' chem_units_table( idomain, P_ru10o2 ) = 'ppmv' chem_streams_table( idomain, P_ru10o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru10o2 )%stream(2) = 2097216 ! 00200040 F_ru10o2 = .TRUE. IF ( chem_index_table( PARAM_nru14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru14o2 = chem_num_table(idomain) chem_index_table( PARAM_nru14o2 , idomain ) = P_nru14o2 ELSE P_nru14o2 = chem_index_table( PARAM_nru14o2 , idomain ) END IF chem_boundary_table( idomain, P_nru14o2 ) = .TRUE. chem_dname_table( idomain, P_nru14o2 ) = 'nru14o2' chem_desc_table( idomain, P_nru14o2 ) = 'NRU14O2 concentration' chem_units_table( idomain, P_nru14o2 ) = 'ppmv' chem_streams_table( idomain, P_nru14o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nru14o2 )%stream(2) = 2097216 ! 00200040 F_nru14o2 = .TRUE. IF ( chem_index_table( PARAM_nru12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru12o2 = chem_num_table(idomain) chem_index_table( PARAM_nru12o2 , idomain ) = P_nru12o2 ELSE P_nru12o2 = chem_index_table( PARAM_nru12o2 , idomain ) END IF chem_boundary_table( idomain, P_nru12o2 ) = .TRUE. chem_dname_table( idomain, P_nru12o2 ) = 'nru12o2' chem_desc_table( idomain, P_nru12o2 ) = 'NRU12O2 concentration' chem_units_table( idomain, P_nru12o2 ) = 'ppmv' chem_streams_table( idomain, P_nru12o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nru12o2 )%stream(2) = 2097216 ! 00200040 F_nru12o2 = .TRUE. IF ( chem_index_table( PARAM_ra13o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13o2 = chem_num_table(idomain) chem_index_table( PARAM_ra13o2 , idomain ) = P_ra13o2 ELSE P_ra13o2 = chem_index_table( PARAM_ra13o2 , idomain ) END IF chem_boundary_table( idomain, P_ra13o2 ) = .TRUE. chem_dname_table( idomain, P_ra13o2 ) = 'ra13o2' chem_desc_table( idomain, P_ra13o2 ) = 'RA13O2 concentration' chem_units_table( idomain, P_ra13o2 ) = 'ppmv' chem_streams_table( idomain, P_ra13o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra13o2 )%stream(2) = 2097216 ! 00200040 F_ra13o2 = .TRUE. IF ( chem_index_table( PARAM_nrtx28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtx28o2 = chem_num_table(idomain) chem_index_table( PARAM_nrtx28o2 , idomain ) = P_nrtx28o2 ELSE P_nrtx28o2 = chem_index_table( PARAM_nrtx28o2 , idomain ) END IF chem_boundary_table( idomain, P_nrtx28o2 ) = .TRUE. chem_dname_table( idomain, P_nrtx28o2 ) = 'nrtx28o2' chem_desc_table( idomain, P_nrtx28o2 ) = 'NRTX28O2 concentration' chem_units_table( idomain, P_nrtx28o2 ) = 'ppmv' chem_streams_table( idomain, P_nrtx28o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrtx28o2 )%stream(2) = 2097216 ! 00200040 F_nrtx28o2 = .TRUE. IF ( chem_index_table( PARAM_rtx24o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx24o2 , idomain ) = P_rtx24o2 ELSE P_rtx24o2 = chem_index_table( PARAM_rtx24o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx24o2 ) = .TRUE. chem_dname_table( idomain, P_rtx24o2 ) = 'rtx24o2' chem_desc_table( idomain, P_rtx24o2 ) = 'RTX24O2 concentration' chem_units_table( idomain, P_rtx24o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx24o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx24o2 )%stream(2) = 2097216 ! 00200040 F_rtx24o2 = .TRUE. IF ( chem_index_table( PARAM_rtx28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx28o2 , idomain ) = P_rtx28o2 ELSE P_rtx28o2 = chem_index_table( PARAM_rtx28o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx28o2 ) = .TRUE. chem_dname_table( idomain, P_rtx28o2 ) = 'rtx28o2' chem_desc_table( idomain, P_rtx28o2 ) = 'RTX28O2 concentration' chem_units_table( idomain, P_rtx28o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx28o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx28o2 )%stream(2) = 2097216 ! 00200040 F_rtx28o2 = .TRUE. IF ( chem_index_table( PARAM_rtn25o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn25o2 , idomain ) = P_rtn25o2 ELSE P_rtn25o2 = chem_index_table( PARAM_rtn25o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn25o2 ) = .TRUE. chem_dname_table( idomain, P_rtn25o2 ) = 'rtn25o2' chem_desc_table( idomain, P_rtn25o2 ) = 'RTN25O2 concentration' chem_units_table( idomain, P_rtn25o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn25o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn25o2 )%stream(2) = 2097216 ! 00200040 F_rtn25o2 = .TRUE. IF ( chem_index_table( PARAM_rtn24o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn24o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn24o2 , idomain ) = P_rtn24o2 ELSE P_rtn24o2 = chem_index_table( PARAM_rtn24o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn24o2 ) = .TRUE. chem_dname_table( idomain, P_rtn24o2 ) = 'rtn24o2' chem_desc_table( idomain, P_rtn24o2 ) = 'RTN24O2 concentration' chem_units_table( idomain, P_rtn24o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn24o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn24o2 )%stream(2) = 2097216 ! 00200040 F_rtn24o2 = .TRUE. IF ( chem_index_table( PARAM_rtn23o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn23o2 , idomain ) = P_rtn23o2 ELSE P_rtn23o2 = chem_index_table( PARAM_rtn23o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn23o2 ) = .TRUE. chem_dname_table( idomain, P_rtn23o2 ) = 'rtn23o2' chem_desc_table( idomain, P_rtn23o2 ) = 'RTN23O2 concentration' chem_units_table( idomain, P_rtn23o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn23o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn23o2 )%stream(2) = 2097216 ! 00200040 F_rtn23o2 = .TRUE. IF ( chem_index_table( PARAM_rtn14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn14o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn14o2 , idomain ) = P_rtn14o2 ELSE P_rtn14o2 = chem_index_table( PARAM_rtn14o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn14o2 ) = .TRUE. chem_dname_table( idomain, P_rtn14o2 ) = 'rtn14o2' chem_desc_table( idomain, P_rtn14o2 ) = 'RTN14O2 concentration' chem_units_table( idomain, P_rtn14o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn14o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn14o2 )%stream(2) = 2097216 ! 00200040 F_rtn14o2 = .TRUE. IF ( chem_index_table( PARAM_rtn10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn10o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn10o2 , idomain ) = P_rtn10o2 ELSE P_rtn10o2 = chem_index_table( PARAM_rtn10o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn10o2 ) = .TRUE. chem_dname_table( idomain, P_rtn10o2 ) = 'rtn10o2' chem_desc_table( idomain, P_rtn10o2 ) = 'RTN10O2 concentration' chem_units_table( idomain, P_rtn10o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn10o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn10o2 )%stream(2) = 2097216 ! 00200040 F_rtn10o2 = .TRUE. IF ( chem_index_table( PARAM_nrtn28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtn28o2 = chem_num_table(idomain) chem_index_table( PARAM_nrtn28o2 , idomain ) = P_nrtn28o2 ELSE P_nrtn28o2 = chem_index_table( PARAM_nrtn28o2 , idomain ) END IF chem_boundary_table( idomain, P_nrtn28o2 ) = .TRUE. chem_dname_table( idomain, P_nrtn28o2 ) = 'nrtn28o2' chem_desc_table( idomain, P_nrtn28o2 ) = 'NRTN28O2 concentration' chem_units_table( idomain, P_nrtn28o2 ) = 'ppmv' chem_streams_table( idomain, P_nrtn28o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrtn28o2 )%stream(2) = 2097216 ! 00200040 F_nrtn28o2 = .TRUE. IF ( chem_index_table( PARAM_rtn26o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn26o2 , idomain ) = P_rtn26o2 ELSE P_rtn26o2 = chem_index_table( PARAM_rtn26o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn26o2 ) = .TRUE. chem_dname_table( idomain, P_rtn26o2 ) = 'rtn26o2' chem_desc_table( idomain, P_rtn26o2 ) = 'RTN26O2 concentration' chem_units_table( idomain, P_rtn26o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn26o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn26o2 )%stream(2) = 2097216 ! 00200040 F_rtn26o2 = .TRUE. IF ( chem_index_table( PARAM_rtn28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn28o2 , idomain ) = P_rtn28o2 ELSE P_rtn28o2 = chem_index_table( PARAM_rtn28o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn28o2 ) = .TRUE. chem_dname_table( idomain, P_rtn28o2 ) = 'rtn28o2' chem_desc_table( idomain, P_rtn28o2 ) = 'RTN28O2 concentration' chem_units_table( idomain, P_rtn28o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn28o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn28o2 )%stream(2) = 2097216 ! 00200040 F_rtn28o2 = .TRUE. IF ( chem_index_table( PARAM_ra19ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19ao2 = chem_num_table(idomain) chem_index_table( PARAM_ra19ao2 , idomain ) = P_ra19ao2 ELSE P_ra19ao2 = chem_index_table( PARAM_ra19ao2 , idomain ) END IF chem_boundary_table( idomain, P_ra19ao2 ) = .TRUE. chem_dname_table( idomain, P_ra19ao2 ) = 'ra19ao2' chem_desc_table( idomain, P_ra19ao2 ) = 'RA19AO2 concentration' chem_units_table( idomain, P_ra19ao2 ) = 'ppmv' chem_streams_table( idomain, P_ra19ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra19ao2 )%stream(2) = 2097216 ! 00200040 F_ra19ao2 = .TRUE. IF ( chem_index_table( PARAM_ru14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14o2 = chem_num_table(idomain) chem_index_table( PARAM_ru14o2 , idomain ) = P_ru14o2 ELSE P_ru14o2 = chem_index_table( PARAM_ru14o2 , idomain ) END IF chem_boundary_table( idomain, P_ru14o2 ) = .TRUE. chem_dname_table( idomain, P_ru14o2 ) = 'ru14o2' chem_desc_table( idomain, P_ru14o2 ) = 'RU14O2 concentration' chem_units_table( idomain, P_ru14o2 ) = 'ppmv' chem_streams_table( idomain, P_ru14o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru14o2 )%stream(2) = 2097216 ! 00200040 F_ru14o2 = .TRUE. IF ( chem_index_table( PARAM_ru12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12o2 = chem_num_table(idomain) chem_index_table( PARAM_ru12o2 , idomain ) = P_ru12o2 ELSE P_ru12o2 = chem_index_table( PARAM_ru12o2 , idomain ) END IF chem_boundary_table( idomain, P_ru12o2 ) = .TRUE. chem_dname_table( idomain, P_ru12o2 ) = 'ru12o2' chem_desc_table( idomain, P_ru12o2 ) = 'RU12O2 concentration' chem_units_table( idomain, P_ru12o2 ) = 'ppmv' chem_streams_table( idomain, P_ru12o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru12o2 )%stream(2) = 2097216 ! 00200040 F_ru12o2 = .TRUE. IF ( chem_index_table( PARAM_ra16o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16o2 = chem_num_table(idomain) chem_index_table( PARAM_ra16o2 , idomain ) = P_ra16o2 ELSE P_ra16o2 = chem_index_table( PARAM_ra16o2 , idomain ) END IF chem_boundary_table( idomain, P_ra16o2 ) = .TRUE. chem_dname_table( idomain, P_ra16o2 ) = 'ra16o2' chem_desc_table( idomain, P_ra16o2 ) = 'RA16O2 concentration' chem_units_table( idomain, P_ra16o2 ) = 'ppmv' chem_streams_table( idomain, P_ra16o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra16o2 )%stream(2) = 2097216 ! 00200040 F_ra16o2 = .TRUE. IF ( chem_index_table( PARAM_rtx22o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx22o2 , idomain ) = P_rtx22o2 ELSE P_rtx22o2 = chem_index_table( PARAM_rtx22o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx22o2 ) = .TRUE. chem_dname_table( idomain, P_rtx22o2 ) = 'rtx22o2' chem_desc_table( idomain, P_rtx22o2 ) = 'RTX22O2 concentration' chem_units_table( idomain, P_rtx22o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx22o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx22o2 )%stream(2) = 2097216 ! 00200040 F_rtx22o2 = .TRUE. IF ( chem_index_table( PARAM_ra22ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22ao2 = chem_num_table(idomain) chem_index_table( PARAM_ra22ao2 , idomain ) = P_ra22ao2 ELSE P_ra22ao2 = chem_index_table( PARAM_ra22ao2 , idomain ) END IF chem_boundary_table( idomain, P_ra22ao2 ) = .TRUE. chem_dname_table( idomain, P_ra22ao2 ) = 'ra22ao2' chem_desc_table( idomain, P_ra22ao2 ) = 'RA22AO2 concentration' chem_units_table( idomain, P_ra22ao2 ) = 'ppmv' chem_streams_table( idomain, P_ra22ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra22ao2 )%stream(2) = 2097216 ! 00200040 F_ra22ao2 = .TRUE. IF ( chem_index_table( PARAM_ra22bo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22bo2 = chem_num_table(idomain) chem_index_table( PARAM_ra22bo2 , idomain ) = P_ra22bo2 ELSE P_ra22bo2 = chem_index_table( PARAM_ra22bo2 , idomain ) END IF chem_boundary_table( idomain, P_ra22bo2 ) = .TRUE. chem_dname_table( idomain, P_ra22bo2 ) = 'ra22bo2' chem_desc_table( idomain, P_ra22bo2 ) = 'RA22BO2 concentration' chem_units_table( idomain, P_ra22bo2 ) = 'ppmv' chem_streams_table( idomain, P_ra22bo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra22bo2 )%stream(2) = 2097216 ! 00200040 F_ra22bo2 = .TRUE. IF ( chem_index_table( PARAM_ra25o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25o2 = chem_num_table(idomain) chem_index_table( PARAM_ra25o2 , idomain ) = P_ra25o2 ELSE P_ra25o2 = chem_index_table( PARAM_ra25o2 , idomain ) END IF chem_boundary_table( idomain, P_ra25o2 ) = .TRUE. chem_dname_table( idomain, P_ra25o2 ) = 'ra25o2' chem_desc_table( idomain, P_ra25o2 ) = 'RA25O2 concentration' chem_units_table( idomain, P_ra25o2 ) = 'ppmv' chem_streams_table( idomain, P_ra25o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra25o2 )%stream(2) = 2097216 ! 00200040 F_ra25o2 = .TRUE. IF ( chem_index_table( PARAM_ic3h7no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ic3h7no3 = chem_num_table(idomain) chem_index_table( PARAM_ic3h7no3 , idomain ) = P_ic3h7no3 ELSE P_ic3h7no3 = chem_index_table( PARAM_ic3h7no3 , idomain ) END IF chem_boundary_table( idomain, P_ic3h7no3 ) = .TRUE. chem_dname_table( idomain, P_ic3h7no3 ) = 'ic3h7no3' chem_desc_table( idomain, P_ic3h7no3 ) = 'IC3H7NO3 concentration' chem_units_table( idomain, P_ic3h7no3 ) = 'ppmv' chem_streams_table( idomain, P_ic3h7no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ic3h7no3 )%stream(2) = 2097216 ! 00200040 F_ic3h7no3 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 ! 00200040 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 ! 00200040 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 ! 00200040 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 ! 00200040 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 ! 00200040 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 ! 00200040 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 ! 00200040 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 ! 00200040 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 ! 00200040 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 ! 00200040 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 ! 00200040 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 ! 00200040 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 ! 00200040 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 ! 00200040 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 ! 00200040 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 ! 00200040 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 ! 00200040 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 ! 00200040 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 ! 00200040 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 ! 00200040 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 ! 00200040 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 ! 00200040 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 ! 00200040 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 ! 00200040 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 ! 00200040 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 ! 00200040 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 ! 00200040 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 ! 00200040 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 ! 00200040 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 ! 00200040 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 ! 00200040 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 ! 00200040 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 ! 00200040 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 ! 00200040 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 ! 00200040 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 ! 00200040 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 ! 00200040 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 ! 00200040 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 ! 00200040 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 ! 00200040 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a05 = chem_num_table(idomain) chem_index_table( PARAM_so4_a05 , idomain ) = P_so4_a05 ELSE P_so4_a05 = chem_index_table( PARAM_so4_a05 , idomain ) END IF chem_boundary_table( idomain, P_so4_a05 ) = .TRUE. chem_dname_table( idomain, P_so4_a05 ) = 'so4_a05' chem_desc_table( idomain, P_so4_a05 ) = 'Sulfate, aerosol bin 05' chem_units_table( idomain, P_so4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a05 )%stream(2) = 2097216 ! 00200040 F_so4_a05 = .TRUE. IF ( chem_index_table( PARAM_no3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a05 = chem_num_table(idomain) chem_index_table( PARAM_no3_a05 , idomain ) = P_no3_a05 ELSE P_no3_a05 = chem_index_table( PARAM_no3_a05 , idomain ) END IF chem_boundary_table( idomain, P_no3_a05 ) = .TRUE. chem_dname_table( idomain, P_no3_a05 ) = 'no3_a05' chem_desc_table( idomain, P_no3_a05 ) = 'Nitrate, aerosol bin 05' chem_units_table( idomain, P_no3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a05 )%stream(2) = 2097216 ! 00200040 F_no3_a05 = .TRUE. IF ( chem_index_table( PARAM_cl_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a05 = chem_num_table(idomain) chem_index_table( PARAM_cl_a05 , idomain ) = P_cl_a05 ELSE P_cl_a05 = chem_index_table( PARAM_cl_a05 , idomain ) END IF chem_boundary_table( idomain, P_cl_a05 ) = .TRUE. chem_dname_table( idomain, P_cl_a05 ) = 'cl_a05' chem_desc_table( idomain, P_cl_a05 ) = 'Chloride, aerosol bin 05' chem_units_table( idomain, P_cl_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a05 )%stream(2) = 2097216 ! 00200040 F_cl_a05 = .TRUE. IF ( chem_index_table( PARAM_nh4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a05 , idomain ) = P_nh4_a05 ELSE P_nh4_a05 = chem_index_table( PARAM_nh4_a05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a05 ) = .TRUE. chem_dname_table( idomain, P_nh4_a05 ) = 'nh4_a05' chem_desc_table( idomain, P_nh4_a05 ) = 'Ammonium, aerosol bin 05' chem_units_table( idomain, P_nh4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a05 )%stream(2) = 2097216 ! 00200040 F_nh4_a05 = .TRUE. IF ( chem_index_table( PARAM_na_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a05 = chem_num_table(idomain) chem_index_table( PARAM_na_a05 , idomain ) = P_na_a05 ELSE P_na_a05 = chem_index_table( PARAM_na_a05 , idomain ) END IF chem_boundary_table( idomain, P_na_a05 ) = .TRUE. chem_dname_table( idomain, P_na_a05 ) = 'na_a05' chem_desc_table( idomain, P_na_a05 ) = 'Sodium, aerosol bin 05' chem_units_table( idomain, P_na_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a05 )%stream(2) = 2097216 ! 00200040 F_na_a05 = .TRUE. IF ( chem_index_table( PARAM_oin_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a05 = chem_num_table(idomain) chem_index_table( PARAM_oin_a05 , idomain ) = P_oin_a05 ELSE P_oin_a05 = chem_index_table( PARAM_oin_a05 , idomain ) END IF chem_boundary_table( idomain, P_oin_a05 ) = .TRUE. chem_dname_table( idomain, P_oin_a05 ) = 'oin_a05' chem_desc_table( idomain, P_oin_a05 ) = 'Other inorganics, aerosol bin 05' chem_units_table( idomain, P_oin_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a05 )%stream(2) = 2097216 ! 00200040 F_oin_a05 = .TRUE. IF ( chem_index_table( PARAM_oc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a05 = chem_num_table(idomain) chem_index_table( PARAM_oc_a05 , idomain ) = P_oc_a05 ELSE P_oc_a05 = chem_index_table( PARAM_oc_a05 , idomain ) END IF chem_boundary_table( idomain, P_oc_a05 ) = .TRUE. chem_dname_table( idomain, P_oc_a05 ) = 'oc_a05' chem_desc_table( idomain, P_oc_a05 ) = 'Organic carbon, aerosol bin 05' chem_units_table( idomain, P_oc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a05 )%stream(2) = 2097216 ! 00200040 F_oc_a05 = .TRUE. IF ( chem_index_table( PARAM_bc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a05 = chem_num_table(idomain) chem_index_table( PARAM_bc_a05 , idomain ) = P_bc_a05 ELSE P_bc_a05 = chem_index_table( PARAM_bc_a05 , idomain ) END IF chem_boundary_table( idomain, P_bc_a05 ) = .TRUE. chem_dname_table( idomain, P_bc_a05 ) = 'bc_a05' chem_desc_table( idomain, P_bc_a05 ) = 'Black carbon, aerosol bin 05' chem_units_table( idomain, P_bc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a05 )%stream(2) = 2097216 ! 00200040 F_bc_a05 = .TRUE. IF ( chem_index_table( PARAM_hysw_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a05 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a05 , idomain ) = P_hysw_a05 ELSE P_hysw_a05 = chem_index_table( PARAM_hysw_a05 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a05 ) = .TRUE. chem_dname_table( idomain, P_hysw_a05 ) = 'hysw_a05' chem_desc_table( idomain, P_hysw_a05 ) = 'Hysteresis water, aerosol bin 05' chem_units_table( idomain, P_hysw_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a05 )%stream(2) = 2097216 ! 00200040 F_hysw_a05 = .TRUE. IF ( chem_index_table( PARAM_water_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a05 = chem_num_table(idomain) chem_index_table( PARAM_water_a05 , idomain ) = P_water_a05 ELSE P_water_a05 = chem_index_table( PARAM_water_a05 , idomain ) END IF chem_boundary_table( idomain, P_water_a05 ) = .TRUE. chem_dname_table( idomain, P_water_a05 ) = 'water_a05' chem_desc_table( idomain, P_water_a05 ) = 'Water, aerosol bin 05' chem_units_table( idomain, P_water_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a05 )%stream(2) = 2097216 ! 00200040 F_water_a05 = .TRUE. IF ( chem_index_table( PARAM_num_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a05 = chem_num_table(idomain) chem_index_table( PARAM_num_a05 , idomain ) = P_num_a05 ELSE P_num_a05 = chem_index_table( PARAM_num_a05 , idomain ) END IF chem_boundary_table( idomain, P_num_a05 ) = .TRUE. chem_dname_table( idomain, P_num_a05 ) = 'num_a05' chem_desc_table( idomain, P_num_a05 ) = 'Number, aerosol bin 05' chem_units_table( idomain, P_num_a05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a05 )%stream(2) = 2097216 ! 00200040 F_num_a05 = .TRUE. IF ( chem_index_table( PARAM_so4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a06 = chem_num_table(idomain) chem_index_table( PARAM_so4_a06 , idomain ) = P_so4_a06 ELSE P_so4_a06 = chem_index_table( PARAM_so4_a06 , idomain ) END IF chem_boundary_table( idomain, P_so4_a06 ) = .TRUE. chem_dname_table( idomain, P_so4_a06 ) = 'so4_a06' chem_desc_table( idomain, P_so4_a06 ) = 'Sulfate, aerosol bin 06' chem_units_table( idomain, P_so4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a06 )%stream(2) = 2097216 ! 00200040 F_so4_a06 = .TRUE. IF ( chem_index_table( PARAM_no3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a06 = chem_num_table(idomain) chem_index_table( PARAM_no3_a06 , idomain ) = P_no3_a06 ELSE P_no3_a06 = chem_index_table( PARAM_no3_a06 , idomain ) END IF chem_boundary_table( idomain, P_no3_a06 ) = .TRUE. chem_dname_table( idomain, P_no3_a06 ) = 'no3_a06' chem_desc_table( idomain, P_no3_a06 ) = 'Nitrate, aerosol bin 06' chem_units_table( idomain, P_no3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a06 )%stream(2) = 2097216 ! 00200040 F_no3_a06 = .TRUE. IF ( chem_index_table( PARAM_cl_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a06 = chem_num_table(idomain) chem_index_table( PARAM_cl_a06 , idomain ) = P_cl_a06 ELSE P_cl_a06 = chem_index_table( PARAM_cl_a06 , idomain ) END IF chem_boundary_table( idomain, P_cl_a06 ) = .TRUE. chem_dname_table( idomain, P_cl_a06 ) = 'cl_a06' chem_desc_table( idomain, P_cl_a06 ) = 'Chloride, aerosol bin 06' chem_units_table( idomain, P_cl_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a06 )%stream(2) = 2097216 ! 00200040 F_cl_a06 = .TRUE. IF ( chem_index_table( PARAM_nh4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a06 , idomain ) = P_nh4_a06 ELSE P_nh4_a06 = chem_index_table( PARAM_nh4_a06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a06 ) = .TRUE. chem_dname_table( idomain, P_nh4_a06 ) = 'nh4_a06' chem_desc_table( idomain, P_nh4_a06 ) = 'Ammonium, aerosol bin 06' chem_units_table( idomain, P_nh4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a06 )%stream(2) = 2097216 ! 00200040 F_nh4_a06 = .TRUE. IF ( chem_index_table( PARAM_na_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a06 = chem_num_table(idomain) chem_index_table( PARAM_na_a06 , idomain ) = P_na_a06 ELSE P_na_a06 = chem_index_table( PARAM_na_a06 , idomain ) END IF chem_boundary_table( idomain, P_na_a06 ) = .TRUE. chem_dname_table( idomain, P_na_a06 ) = 'na_a06' chem_desc_table( idomain, P_na_a06 ) = 'Sodium, aerosol bin 06' chem_units_table( idomain, P_na_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a06 )%stream(2) = 2097216 ! 00200040 F_na_a06 = .TRUE. IF ( chem_index_table( PARAM_oin_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a06 = chem_num_table(idomain) chem_index_table( PARAM_oin_a06 , idomain ) = P_oin_a06 ELSE P_oin_a06 = chem_index_table( PARAM_oin_a06 , idomain ) END IF chem_boundary_table( idomain, P_oin_a06 ) = .TRUE. chem_dname_table( idomain, P_oin_a06 ) = 'oin_a06' chem_desc_table( idomain, P_oin_a06 ) = 'Other inorganics, aerosol bin 06' chem_units_table( idomain, P_oin_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a06 )%stream(2) = 2097216 ! 00200040 F_oin_a06 = .TRUE. IF ( chem_index_table( PARAM_oc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a06 = chem_num_table(idomain) chem_index_table( PARAM_oc_a06 , idomain ) = P_oc_a06 ELSE P_oc_a06 = chem_index_table( PARAM_oc_a06 , idomain ) END IF chem_boundary_table( idomain, P_oc_a06 ) = .TRUE. chem_dname_table( idomain, P_oc_a06 ) = 'oc_a06' chem_desc_table( idomain, P_oc_a06 ) = 'Organic carbon, aerosol bin 06' chem_units_table( idomain, P_oc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a06 )%stream(2) = 2097216 ! 00200040 F_oc_a06 = .TRUE. IF ( chem_index_table( PARAM_bc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a06 = chem_num_table(idomain) chem_index_table( PARAM_bc_a06 , idomain ) = P_bc_a06 ELSE P_bc_a06 = chem_index_table( PARAM_bc_a06 , idomain ) END IF chem_boundary_table( idomain, P_bc_a06 ) = .TRUE. chem_dname_table( idomain, P_bc_a06 ) = 'bc_a06' chem_desc_table( idomain, P_bc_a06 ) = 'Black carbon, aerosol bin 06' chem_units_table( idomain, P_bc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a06 )%stream(2) = 2097216 ! 00200040 F_bc_a06 = .TRUE. IF ( chem_index_table( PARAM_hysw_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a06 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a06 , idomain ) = P_hysw_a06 ELSE P_hysw_a06 = chem_index_table( PARAM_hysw_a06 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a06 ) = .TRUE. chem_dname_table( idomain, P_hysw_a06 ) = 'hysw_a06' chem_desc_table( idomain, P_hysw_a06 ) = 'Hysteresis water, aerosol bin 06' chem_units_table( idomain, P_hysw_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a06 )%stream(2) = 2097216 ! 00200040 F_hysw_a06 = .TRUE. IF ( chem_index_table( PARAM_water_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a06 = chem_num_table(idomain) chem_index_table( PARAM_water_a06 , idomain ) = P_water_a06 ELSE P_water_a06 = chem_index_table( PARAM_water_a06 , idomain ) END IF chem_boundary_table( idomain, P_water_a06 ) = .TRUE. chem_dname_table( idomain, P_water_a06 ) = 'water_a06' chem_desc_table( idomain, P_water_a06 ) = 'Water, aerosol bin 06' chem_units_table( idomain, P_water_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a06 )%stream(2) = 2097216 ! 00200040 F_water_a06 = .TRUE. IF ( chem_index_table( PARAM_num_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a06 = chem_num_table(idomain) chem_index_table( PARAM_num_a06 , idomain ) = P_num_a06 ELSE P_num_a06 = chem_index_table( PARAM_num_a06 , idomain ) END IF chem_boundary_table( idomain, P_num_a06 ) = .TRUE. chem_dname_table( idomain, P_num_a06 ) = 'num_a06' chem_desc_table( idomain, P_num_a06 ) = 'Number, aerosol bin 06' chem_units_table( idomain, P_num_a06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a06 )%stream(2) = 2097216 ! 00200040 F_num_a06 = .TRUE. IF ( chem_index_table( PARAM_so4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a07 = chem_num_table(idomain) chem_index_table( PARAM_so4_a07 , idomain ) = P_so4_a07 ELSE P_so4_a07 = chem_index_table( PARAM_so4_a07 , idomain ) END IF chem_boundary_table( idomain, P_so4_a07 ) = .TRUE. chem_dname_table( idomain, P_so4_a07 ) = 'so4_a07' chem_desc_table( idomain, P_so4_a07 ) = 'Sulfate, aerosol bin 07' chem_units_table( idomain, P_so4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a07 )%stream(2) = 2097216 ! 00200040 F_so4_a07 = .TRUE. IF ( chem_index_table( PARAM_no3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a07 = chem_num_table(idomain) chem_index_table( PARAM_no3_a07 , idomain ) = P_no3_a07 ELSE P_no3_a07 = chem_index_table( PARAM_no3_a07 , idomain ) END IF chem_boundary_table( idomain, P_no3_a07 ) = .TRUE. chem_dname_table( idomain, P_no3_a07 ) = 'no3_a07' chem_desc_table( idomain, P_no3_a07 ) = 'Nitrate, aerosol bin 07' chem_units_table( idomain, P_no3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a07 )%stream(2) = 2097216 ! 00200040 F_no3_a07 = .TRUE. IF ( chem_index_table( PARAM_cl_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a07 = chem_num_table(idomain) chem_index_table( PARAM_cl_a07 , idomain ) = P_cl_a07 ELSE P_cl_a07 = chem_index_table( PARAM_cl_a07 , idomain ) END IF chem_boundary_table( idomain, P_cl_a07 ) = .TRUE. chem_dname_table( idomain, P_cl_a07 ) = 'cl_a07' chem_desc_table( idomain, P_cl_a07 ) = 'Chloride, aerosol bin 07' chem_units_table( idomain, P_cl_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a07 )%stream(2) = 2097216 ! 00200040 F_cl_a07 = .TRUE. IF ( chem_index_table( PARAM_nh4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a07 , idomain ) = P_nh4_a07 ELSE P_nh4_a07 = chem_index_table( PARAM_nh4_a07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a07 ) = .TRUE. chem_dname_table( idomain, P_nh4_a07 ) = 'nh4_a07' chem_desc_table( idomain, P_nh4_a07 ) = 'Ammonium, aerosol bin 07' chem_units_table( idomain, P_nh4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a07 )%stream(2) = 2097216 ! 00200040 F_nh4_a07 = .TRUE. IF ( chem_index_table( PARAM_na_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a07 = chem_num_table(idomain) chem_index_table( PARAM_na_a07 , idomain ) = P_na_a07 ELSE P_na_a07 = chem_index_table( PARAM_na_a07 , idomain ) END IF chem_boundary_table( idomain, P_na_a07 ) = .TRUE. chem_dname_table( idomain, P_na_a07 ) = 'na_a07' chem_desc_table( idomain, P_na_a07 ) = 'Sodium, aerosol bin 07' chem_units_table( idomain, P_na_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a07 )%stream(2) = 2097216 ! 00200040 F_na_a07 = .TRUE. IF ( chem_index_table( PARAM_oin_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a07 = chem_num_table(idomain) chem_index_table( PARAM_oin_a07 , idomain ) = P_oin_a07 ELSE P_oin_a07 = chem_index_table( PARAM_oin_a07 , idomain ) END IF chem_boundary_table( idomain, P_oin_a07 ) = .TRUE. chem_dname_table( idomain, P_oin_a07 ) = 'oin_a07' chem_desc_table( idomain, P_oin_a07 ) = 'Other inorganics, aerosol bin 07' chem_units_table( idomain, P_oin_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a07 )%stream(2) = 2097216 ! 00200040 F_oin_a07 = .TRUE. IF ( chem_index_table( PARAM_oc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a07 = chem_num_table(idomain) chem_index_table( PARAM_oc_a07 , idomain ) = P_oc_a07 ELSE P_oc_a07 = chem_index_table( PARAM_oc_a07 , idomain ) END IF chem_boundary_table( idomain, P_oc_a07 ) = .TRUE. chem_dname_table( idomain, P_oc_a07 ) = 'oc_a07' chem_desc_table( idomain, P_oc_a07 ) = 'Organic carbon, aerosol bin 07' chem_units_table( idomain, P_oc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a07 )%stream(2) = 2097216 ! 00200040 F_oc_a07 = .TRUE. IF ( chem_index_table( PARAM_bc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a07 = chem_num_table(idomain) chem_index_table( PARAM_bc_a07 , idomain ) = P_bc_a07 ELSE P_bc_a07 = chem_index_table( PARAM_bc_a07 , idomain ) END IF chem_boundary_table( idomain, P_bc_a07 ) = .TRUE. chem_dname_table( idomain, P_bc_a07 ) = 'bc_a07' chem_desc_table( idomain, P_bc_a07 ) = 'Black carbon, aerosol bin 07' chem_units_table( idomain, P_bc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a07 )%stream(2) = 2097216 ! 00200040 F_bc_a07 = .TRUE. IF ( chem_index_table( PARAM_hysw_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a07 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a07 , idomain ) = P_hysw_a07 ELSE P_hysw_a07 = chem_index_table( PARAM_hysw_a07 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a07 ) = .TRUE. chem_dname_table( idomain, P_hysw_a07 ) = 'hysw_a07' chem_desc_table( idomain, P_hysw_a07 ) = 'Hysteresis water, aerosol bin 07' chem_units_table( idomain, P_hysw_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a07 )%stream(2) = 2097216 ! 00200040 F_hysw_a07 = .TRUE. IF ( chem_index_table( PARAM_water_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a07 = chem_num_table(idomain) chem_index_table( PARAM_water_a07 , idomain ) = P_water_a07 ELSE P_water_a07 = chem_index_table( PARAM_water_a07 , idomain ) END IF chem_boundary_table( idomain, P_water_a07 ) = .TRUE. chem_dname_table( idomain, P_water_a07 ) = 'water_a07' chem_desc_table( idomain, P_water_a07 ) = 'Water, aerosol bin 07' chem_units_table( idomain, P_water_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a07 )%stream(2) = 2097216 ! 00200040 F_water_a07 = .TRUE. IF ( chem_index_table( PARAM_num_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a07 = chem_num_table(idomain) chem_index_table( PARAM_num_a07 , idomain ) = P_num_a07 ELSE P_num_a07 = chem_index_table( PARAM_num_a07 , idomain ) END IF chem_boundary_table( idomain, P_num_a07 ) = .TRUE. chem_dname_table( idomain, P_num_a07 ) = 'num_a07' chem_desc_table( idomain, P_num_a07 ) = 'Number, aerosol bin 07' chem_units_table( idomain, P_num_a07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a07 )%stream(2) = 2097216 ! 00200040 F_num_a07 = .TRUE. IF ( chem_index_table( PARAM_so4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a08 = chem_num_table(idomain) chem_index_table( PARAM_so4_a08 , idomain ) = P_so4_a08 ELSE P_so4_a08 = chem_index_table( PARAM_so4_a08 , idomain ) END IF chem_boundary_table( idomain, P_so4_a08 ) = .TRUE. chem_dname_table( idomain, P_so4_a08 ) = 'so4_a08' chem_desc_table( idomain, P_so4_a08 ) = 'Sulfate, aerosol bin 08' chem_units_table( idomain, P_so4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a08 )%stream(2) = 2097216 ! 00200040 F_so4_a08 = .TRUE. IF ( chem_index_table( PARAM_no3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a08 = chem_num_table(idomain) chem_index_table( PARAM_no3_a08 , idomain ) = P_no3_a08 ELSE P_no3_a08 = chem_index_table( PARAM_no3_a08 , idomain ) END IF chem_boundary_table( idomain, P_no3_a08 ) = .TRUE. chem_dname_table( idomain, P_no3_a08 ) = 'no3_a08' chem_desc_table( idomain, P_no3_a08 ) = 'Nitrate, aerosol bin 08' chem_units_table( idomain, P_no3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a08 )%stream(2) = 2097216 ! 00200040 F_no3_a08 = .TRUE. IF ( chem_index_table( PARAM_cl_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a08 = chem_num_table(idomain) chem_index_table( PARAM_cl_a08 , idomain ) = P_cl_a08 ELSE P_cl_a08 = chem_index_table( PARAM_cl_a08 , idomain ) END IF chem_boundary_table( idomain, P_cl_a08 ) = .TRUE. chem_dname_table( idomain, P_cl_a08 ) = 'cl_a08' chem_desc_table( idomain, P_cl_a08 ) = 'Chloride, aerosol bin 08' chem_units_table( idomain, P_cl_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a08 )%stream(2) = 2097216 ! 00200040 F_cl_a08 = .TRUE. IF ( chem_index_table( PARAM_nh4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a08 , idomain ) = P_nh4_a08 ELSE P_nh4_a08 = chem_index_table( PARAM_nh4_a08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a08 ) = .TRUE. chem_dname_table( idomain, P_nh4_a08 ) = 'nh4_a08' chem_desc_table( idomain, P_nh4_a08 ) = 'Ammonium, aerosol bin 08' chem_units_table( idomain, P_nh4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a08 )%stream(2) = 2097216 ! 00200040 F_nh4_a08 = .TRUE. IF ( chem_index_table( PARAM_na_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a08 = chem_num_table(idomain) chem_index_table( PARAM_na_a08 , idomain ) = P_na_a08 ELSE P_na_a08 = chem_index_table( PARAM_na_a08 , idomain ) END IF chem_boundary_table( idomain, P_na_a08 ) = .TRUE. chem_dname_table( idomain, P_na_a08 ) = 'na_a08' chem_desc_table( idomain, P_na_a08 ) = 'Sodium, aerosol bin 08' chem_units_table( idomain, P_na_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a08 )%stream(2) = 2097216 ! 00200040 F_na_a08 = .TRUE. IF ( chem_index_table( PARAM_oin_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a08 = chem_num_table(idomain) chem_index_table( PARAM_oin_a08 , idomain ) = P_oin_a08 ELSE P_oin_a08 = chem_index_table( PARAM_oin_a08 , idomain ) END IF chem_boundary_table( idomain, P_oin_a08 ) = .TRUE. chem_dname_table( idomain, P_oin_a08 ) = 'oin_a08' chem_desc_table( idomain, P_oin_a08 ) = 'Other inorganics, aerosol bin 08' chem_units_table( idomain, P_oin_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a08 )%stream(2) = 2097216 ! 00200040 F_oin_a08 = .TRUE. IF ( chem_index_table( PARAM_oc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a08 = chem_num_table(idomain) chem_index_table( PARAM_oc_a08 , idomain ) = P_oc_a08 ELSE P_oc_a08 = chem_index_table( PARAM_oc_a08 , idomain ) END IF chem_boundary_table( idomain, P_oc_a08 ) = .TRUE. chem_dname_table( idomain, P_oc_a08 ) = 'oc_a08' chem_desc_table( idomain, P_oc_a08 ) = 'Organic carbon, aerosol bin 08' chem_units_table( idomain, P_oc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a08 )%stream(2) = 2097216 ! 00200040 F_oc_a08 = .TRUE. IF ( chem_index_table( PARAM_bc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a08 = chem_num_table(idomain) chem_index_table( PARAM_bc_a08 , idomain ) = P_bc_a08 ELSE P_bc_a08 = chem_index_table( PARAM_bc_a08 , idomain ) END IF chem_boundary_table( idomain, P_bc_a08 ) = .TRUE. chem_dname_table( idomain, P_bc_a08 ) = 'bc_a08' chem_desc_table( idomain, P_bc_a08 ) = 'Black carbon, aerosol bin 08' chem_units_table( idomain, P_bc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a08 )%stream(2) = 2097216 ! 00200040 F_bc_a08 = .TRUE. IF ( chem_index_table( PARAM_hysw_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a08 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a08 , idomain ) = P_hysw_a08 ELSE P_hysw_a08 = chem_index_table( PARAM_hysw_a08 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a08 ) = .TRUE. chem_dname_table( idomain, P_hysw_a08 ) = 'hysw_a08' chem_desc_table( idomain, P_hysw_a08 ) = 'Hysteresis water, aerosol bin 08' chem_units_table( idomain, P_hysw_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a08 )%stream(2) = 2097216 ! 00200040 F_hysw_a08 = .TRUE. IF ( chem_index_table( PARAM_water_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a08 = chem_num_table(idomain) chem_index_table( PARAM_water_a08 , idomain ) = P_water_a08 ELSE P_water_a08 = chem_index_table( PARAM_water_a08 , idomain ) END IF chem_boundary_table( idomain, P_water_a08 ) = .TRUE. chem_dname_table( idomain, P_water_a08 ) = 'water_a08' chem_desc_table( idomain, P_water_a08 ) = 'Water, aerosol bin 08' chem_units_table( idomain, P_water_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a08 )%stream(2) = 2097216 ! 00200040 F_water_a08 = .TRUE. IF ( chem_index_table( PARAM_num_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a08 = chem_num_table(idomain) chem_index_table( PARAM_num_a08 , idomain ) = P_num_a08 ELSE P_num_a08 = chem_index_table( PARAM_num_a08 , idomain ) END IF chem_boundary_table( idomain, P_num_a08 ) = .TRUE. chem_dname_table( idomain, P_num_a08 ) = 'num_a08' chem_desc_table( idomain, P_num_a08 ) = 'Number, aerosol bin 08' chem_units_table( idomain, P_num_a08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a08 )%stream(2) = 2097216 ! 00200040 F_num_a08 = .TRUE. IF ( chem_index_table( PARAM_so4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw01 , idomain ) = P_so4_cw01 ELSE P_so4_cw01 = chem_index_table( PARAM_so4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw01 ) = .TRUE. chem_dname_table( idomain, P_so4_cw01 ) = 'so4_cw01' chem_desc_table( idomain, P_so4_cw01 ) = 'Sulfate, aerosol in cloud bin 01' chem_units_table( idomain, P_so4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw01 )%stream(2) = 2097216 ! 00200040 F_so4_cw01 = .TRUE. IF ( chem_index_table( PARAM_no3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw01 , idomain ) = P_no3_cw01 ELSE P_no3_cw01 = chem_index_table( PARAM_no3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw01 ) = .TRUE. chem_dname_table( idomain, P_no3_cw01 ) = 'no3_cw01' chem_desc_table( idomain, P_no3_cw01 ) = 'Nitrate, aerosol in cloud bin 01' chem_units_table( idomain, P_no3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw01 )%stream(2) = 2097216 ! 00200040 F_no3_cw01 = .TRUE. IF ( chem_index_table( PARAM_cl_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw01 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw01 , idomain ) = P_cl_cw01 ELSE P_cl_cw01 = chem_index_table( PARAM_cl_cw01 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw01 ) = .TRUE. chem_dname_table( idomain, P_cl_cw01 ) = 'cl_cw01' chem_desc_table( idomain, P_cl_cw01 ) = 'Chloride, aerosol in cloud bin 01' chem_units_table( idomain, P_cl_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw01 )%stream(2) = 2097216 ! 00200040 F_cl_cw01 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw01 , idomain ) = P_nh4_cw01 ELSE P_nh4_cw01 = chem_index_table( PARAM_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw01 ) = 'nh4_cw01' chem_desc_table( idomain, P_nh4_cw01 ) = 'Ammonium, aerosol in cloud bin 01' chem_units_table( idomain, P_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw01 )%stream(2) = 2097216 ! 00200040 F_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_na_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw01 = chem_num_table(idomain) chem_index_table( PARAM_na_cw01 , idomain ) = P_na_cw01 ELSE P_na_cw01 = chem_index_table( PARAM_na_cw01 , idomain ) END IF chem_boundary_table( idomain, P_na_cw01 ) = .TRUE. chem_dname_table( idomain, P_na_cw01 ) = 'na_cw01' chem_desc_table( idomain, P_na_cw01 ) = 'Sodium, aerosol in cloud bin 01' chem_units_table( idomain, P_na_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw01 )%stream(2) = 2097216 ! 00200040 F_na_cw01 = .TRUE. IF ( chem_index_table( PARAM_oin_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw01 , idomain ) = P_oin_cw01 ELSE P_oin_cw01 = chem_index_table( PARAM_oin_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw01 ) = .TRUE. chem_dname_table( idomain, P_oin_cw01 ) = 'oin_cw01' chem_desc_table( idomain, P_oin_cw01 ) = 'Other inorganics, aerosol in cloud bin 01' chem_units_table( idomain, P_oin_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw01 )%stream(2) = 2097216 ! 00200040 F_oin_cw01 = .TRUE. IF ( chem_index_table( PARAM_oc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw01 , idomain ) = P_oc_cw01 ELSE P_oc_cw01 = chem_index_table( PARAM_oc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw01 ) = .TRUE. chem_dname_table( idomain, P_oc_cw01 ) = 'oc_cw01' chem_desc_table( idomain, P_oc_cw01 ) = 'Organic carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_oc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw01 )%stream(2) = 2097216 ! 00200040 F_oc_cw01 = .TRUE. IF ( chem_index_table( PARAM_bc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw01 , idomain ) = P_bc_cw01 ELSE P_bc_cw01 = chem_index_table( PARAM_bc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw01 ) = .TRUE. chem_dname_table( idomain, P_bc_cw01 ) = 'bc_cw01' chem_desc_table( idomain, P_bc_cw01 ) = 'Black carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_bc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw01 )%stream(2) = 2097216 ! 00200040 F_bc_cw01 = .TRUE. IF ( chem_index_table( PARAM_num_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw01 = chem_num_table(idomain) chem_index_table( PARAM_num_cw01 , idomain ) = P_num_cw01 ELSE P_num_cw01 = chem_index_table( PARAM_num_cw01 , idomain ) END IF chem_boundary_table( idomain, P_num_cw01 ) = .TRUE. chem_dname_table( idomain, P_num_cw01 ) = 'num_cw01' chem_desc_table( idomain, P_num_cw01 ) = 'Number, aerosol in cloud bin 01' chem_units_table( idomain, P_num_cw01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw01 )%stream(2) = 2097216 ! 00200040 F_num_cw01 = .TRUE. IF ( chem_index_table( PARAM_so4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw02 , idomain ) = P_so4_cw02 ELSE P_so4_cw02 = chem_index_table( PARAM_so4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw02 ) = .TRUE. chem_dname_table( idomain, P_so4_cw02 ) = 'so4_cw02' chem_desc_table( idomain, P_so4_cw02 ) = 'Sulfate, aerosol in cloud bin 02' chem_units_table( idomain, P_so4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw02 )%stream(2) = 2097216 ! 00200040 F_so4_cw02 = .TRUE. IF ( chem_index_table( PARAM_no3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw02 , idomain ) = P_no3_cw02 ELSE P_no3_cw02 = chem_index_table( PARAM_no3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw02 ) = .TRUE. chem_dname_table( idomain, P_no3_cw02 ) = 'no3_cw02' chem_desc_table( idomain, P_no3_cw02 ) = 'Nitrate, aerosol in cloud bin 02' chem_units_table( idomain, P_no3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw02 )%stream(2) = 2097216 ! 00200040 F_no3_cw02 = .TRUE. IF ( chem_index_table( PARAM_cl_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw02 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw02 , idomain ) = P_cl_cw02 ELSE P_cl_cw02 = chem_index_table( PARAM_cl_cw02 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw02 ) = .TRUE. chem_dname_table( idomain, P_cl_cw02 ) = 'cl_cw02' chem_desc_table( idomain, P_cl_cw02 ) = 'Chloride, aerosol in cloud bin 02' chem_units_table( idomain, P_cl_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw02 )%stream(2) = 2097216 ! 00200040 F_cl_cw02 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw02 , idomain ) = P_nh4_cw02 ELSE P_nh4_cw02 = chem_index_table( PARAM_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw02 ) = 'nh4_cw02' chem_desc_table( idomain, P_nh4_cw02 ) = 'Ammonium, aerosol in cloud bin 02' chem_units_table( idomain, P_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw02 )%stream(2) = 2097216 ! 00200040 F_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_na_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw02 = chem_num_table(idomain) chem_index_table( PARAM_na_cw02 , idomain ) = P_na_cw02 ELSE P_na_cw02 = chem_index_table( PARAM_na_cw02 , idomain ) END IF chem_boundary_table( idomain, P_na_cw02 ) = .TRUE. chem_dname_table( idomain, P_na_cw02 ) = 'na_cw02' chem_desc_table( idomain, P_na_cw02 ) = 'Sodium, aerosol in cloud bin 02' chem_units_table( idomain, P_na_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw02 )%stream(2) = 2097216 ! 00200040 F_na_cw02 = .TRUE. IF ( chem_index_table( PARAM_oin_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw02 , idomain ) = P_oin_cw02 ELSE P_oin_cw02 = chem_index_table( PARAM_oin_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw02 ) = .TRUE. chem_dname_table( idomain, P_oin_cw02 ) = 'oin_cw02' chem_desc_table( idomain, P_oin_cw02 ) = 'Other inorganics, aerosol in cloud bin 02' chem_units_table( idomain, P_oin_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw02 )%stream(2) = 2097216 ! 00200040 F_oin_cw02 = .TRUE. IF ( chem_index_table( PARAM_oc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw02 , idomain ) = P_oc_cw02 ELSE P_oc_cw02 = chem_index_table( PARAM_oc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw02 ) = .TRUE. chem_dname_table( idomain, P_oc_cw02 ) = 'oc_cw02' chem_desc_table( idomain, P_oc_cw02 ) = 'Organic carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_oc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw02 )%stream(2) = 2097216 ! 00200040 F_oc_cw02 = .TRUE. IF ( chem_index_table( PARAM_bc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw02 , idomain ) = P_bc_cw02 ELSE P_bc_cw02 = chem_index_table( PARAM_bc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw02 ) = .TRUE. chem_dname_table( idomain, P_bc_cw02 ) = 'bc_cw02' chem_desc_table( idomain, P_bc_cw02 ) = 'Black carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_bc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw02 )%stream(2) = 2097216 ! 00200040 F_bc_cw02 = .TRUE. IF ( chem_index_table( PARAM_num_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw02 = chem_num_table(idomain) chem_index_table( PARAM_num_cw02 , idomain ) = P_num_cw02 ELSE P_num_cw02 = chem_index_table( PARAM_num_cw02 , idomain ) END IF chem_boundary_table( idomain, P_num_cw02 ) = .TRUE. chem_dname_table( idomain, P_num_cw02 ) = 'num_cw02' chem_desc_table( idomain, P_num_cw02 ) = 'Number, aerosol in cloud bin 02' chem_units_table( idomain, P_num_cw02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw02 )%stream(2) = 2097216 ! 00200040 F_num_cw02 = .TRUE. IF ( chem_index_table( PARAM_so4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw03 , idomain ) = P_so4_cw03 ELSE P_so4_cw03 = chem_index_table( PARAM_so4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw03 ) = .TRUE. chem_dname_table( idomain, P_so4_cw03 ) = 'so4_cw03' chem_desc_table( idomain, P_so4_cw03 ) = 'Sulfate, aerosol in cloud bin 03' chem_units_table( idomain, P_so4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw03 )%stream(2) = 2097216 ! 00200040 F_so4_cw03 = .TRUE. IF ( chem_index_table( PARAM_no3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw03 , idomain ) = P_no3_cw03 ELSE P_no3_cw03 = chem_index_table( PARAM_no3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw03 ) = .TRUE. chem_dname_table( idomain, P_no3_cw03 ) = 'no3_cw03' chem_desc_table( idomain, P_no3_cw03 ) = 'Nitrate, aerosol in cloud bin 03' chem_units_table( idomain, P_no3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw03 )%stream(2) = 2097216 ! 00200040 F_no3_cw03 = .TRUE. IF ( chem_index_table( PARAM_cl_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw03 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw03 , idomain ) = P_cl_cw03 ELSE P_cl_cw03 = chem_index_table( PARAM_cl_cw03 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw03 ) = .TRUE. chem_dname_table( idomain, P_cl_cw03 ) = 'cl_cw03' chem_desc_table( idomain, P_cl_cw03 ) = 'Chloride, aerosol in cloud bin 03' chem_units_table( idomain, P_cl_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw03 )%stream(2) = 2097216 ! 00200040 F_cl_cw03 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw03 , idomain ) = P_nh4_cw03 ELSE P_nh4_cw03 = chem_index_table( PARAM_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw03 ) = 'nh4_cw03' chem_desc_table( idomain, P_nh4_cw03 ) = 'Ammonium, aerosol in cloud bin 03' chem_units_table( idomain, P_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw03 )%stream(2) = 2097216 ! 00200040 F_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_na_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw03 = chem_num_table(idomain) chem_index_table( PARAM_na_cw03 , idomain ) = P_na_cw03 ELSE P_na_cw03 = chem_index_table( PARAM_na_cw03 , idomain ) END IF chem_boundary_table( idomain, P_na_cw03 ) = .TRUE. chem_dname_table( idomain, P_na_cw03 ) = 'na_cw03' chem_desc_table( idomain, P_na_cw03 ) = 'Sodium, aerosol in cloud bin 03' chem_units_table( idomain, P_na_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw03 )%stream(2) = 2097216 ! 00200040 F_na_cw03 = .TRUE. IF ( chem_index_table( PARAM_oin_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw03 , idomain ) = P_oin_cw03 ELSE P_oin_cw03 = chem_index_table( PARAM_oin_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw03 ) = .TRUE. chem_dname_table( idomain, P_oin_cw03 ) = 'oin_cw03' chem_desc_table( idomain, P_oin_cw03 ) = 'Other inorganics, aerosol in cloud bin 03' chem_units_table( idomain, P_oin_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw03 )%stream(2) = 2097216 ! 00200040 F_oin_cw03 = .TRUE. IF ( chem_index_table( PARAM_oc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw03 , idomain ) = P_oc_cw03 ELSE P_oc_cw03 = chem_index_table( PARAM_oc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw03 ) = .TRUE. chem_dname_table( idomain, P_oc_cw03 ) = 'oc_cw03' chem_desc_table( idomain, P_oc_cw03 ) = 'Organic carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_oc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw03 )%stream(2) = 2097216 ! 00200040 F_oc_cw03 = .TRUE. IF ( chem_index_table( PARAM_bc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw03 , idomain ) = P_bc_cw03 ELSE P_bc_cw03 = chem_index_table( PARAM_bc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw03 ) = .TRUE. chem_dname_table( idomain, P_bc_cw03 ) = 'bc_cw03' chem_desc_table( idomain, P_bc_cw03 ) = 'Black carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_bc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw03 )%stream(2) = 2097216 ! 00200040 F_bc_cw03 = .TRUE. IF ( chem_index_table( PARAM_num_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw03 = chem_num_table(idomain) chem_index_table( PARAM_num_cw03 , idomain ) = P_num_cw03 ELSE P_num_cw03 = chem_index_table( PARAM_num_cw03 , idomain ) END IF chem_boundary_table( idomain, P_num_cw03 ) = .TRUE. chem_dname_table( idomain, P_num_cw03 ) = 'num_cw03' chem_desc_table( idomain, P_num_cw03 ) = 'Number, aerosol in cloud bin 03' chem_units_table( idomain, P_num_cw03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw03 )%stream(2) = 2097216 ! 00200040 F_num_cw03 = .TRUE. IF ( chem_index_table( PARAM_so4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw04 , idomain ) = P_so4_cw04 ELSE P_so4_cw04 = chem_index_table( PARAM_so4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw04 ) = .TRUE. chem_dname_table( idomain, P_so4_cw04 ) = 'so4_cw04' chem_desc_table( idomain, P_so4_cw04 ) = 'Sulfate, aerosol in cloud bin 04' chem_units_table( idomain, P_so4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw04 )%stream(2) = 2097216 ! 00200040 F_so4_cw04 = .TRUE. IF ( chem_index_table( PARAM_no3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw04 , idomain ) = P_no3_cw04 ELSE P_no3_cw04 = chem_index_table( PARAM_no3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw04 ) = .TRUE. chem_dname_table( idomain, P_no3_cw04 ) = 'no3_cw04' chem_desc_table( idomain, P_no3_cw04 ) = 'Nitrate, aerosol in cloud bin 04' chem_units_table( idomain, P_no3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw04 )%stream(2) = 2097216 ! 00200040 F_no3_cw04 = .TRUE. IF ( chem_index_table( PARAM_cl_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw04 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw04 , idomain ) = P_cl_cw04 ELSE P_cl_cw04 = chem_index_table( PARAM_cl_cw04 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw04 ) = .TRUE. chem_dname_table( idomain, P_cl_cw04 ) = 'cl_cw04' chem_desc_table( idomain, P_cl_cw04 ) = 'Chloride, aerosol in cloud bin 04' chem_units_table( idomain, P_cl_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw04 )%stream(2) = 2097216 ! 00200040 F_cl_cw04 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw04 , idomain ) = P_nh4_cw04 ELSE P_nh4_cw04 = chem_index_table( PARAM_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw04 ) = 'nh4_cw04' chem_desc_table( idomain, P_nh4_cw04 ) = 'Ammonium, aerosol in cloud bin 04' chem_units_table( idomain, P_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw04 )%stream(2) = 2097216 ! 00200040 F_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_na_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw04 = chem_num_table(idomain) chem_index_table( PARAM_na_cw04 , idomain ) = P_na_cw04 ELSE P_na_cw04 = chem_index_table( PARAM_na_cw04 , idomain ) END IF chem_boundary_table( idomain, P_na_cw04 ) = .TRUE. chem_dname_table( idomain, P_na_cw04 ) = 'na_cw04' chem_desc_table( idomain, P_na_cw04 ) = 'Sodium, aerosol in cloud bin 04' chem_units_table( idomain, P_na_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw04 )%stream(2) = 2097216 ! 00200040 F_na_cw04 = .TRUE. IF ( chem_index_table( PARAM_oin_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw04 , idomain ) = P_oin_cw04 ELSE P_oin_cw04 = chem_index_table( PARAM_oin_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw04 ) = .TRUE. chem_dname_table( idomain, P_oin_cw04 ) = 'oin_cw04' chem_desc_table( idomain, P_oin_cw04 ) = 'Other inorganics, aerosol in cloud bin 04' chem_units_table( idomain, P_oin_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw04 )%stream(2) = 2097216 ! 00200040 F_oin_cw04 = .TRUE. IF ( chem_index_table( PARAM_oc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw04 , idomain ) = P_oc_cw04 ELSE P_oc_cw04 = chem_index_table( PARAM_oc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw04 ) = .TRUE. chem_dname_table( idomain, P_oc_cw04 ) = 'oc_cw04' chem_desc_table( idomain, P_oc_cw04 ) = 'Organic carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_oc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw04 )%stream(2) = 2097216 ! 00200040 F_oc_cw04 = .TRUE. IF ( chem_index_table( PARAM_bc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw04 , idomain ) = P_bc_cw04 ELSE P_bc_cw04 = chem_index_table( PARAM_bc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw04 ) = .TRUE. chem_dname_table( idomain, P_bc_cw04 ) = 'bc_cw04' chem_desc_table( idomain, P_bc_cw04 ) = 'Black carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_bc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw04 )%stream(2) = 2097216 ! 00200040 F_bc_cw04 = .TRUE. IF ( chem_index_table( PARAM_num_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw04 = chem_num_table(idomain) chem_index_table( PARAM_num_cw04 , idomain ) = P_num_cw04 ELSE P_num_cw04 = chem_index_table( PARAM_num_cw04 , idomain ) END IF chem_boundary_table( idomain, P_num_cw04 ) = .TRUE. chem_dname_table( idomain, P_num_cw04 ) = 'num_cw04' chem_desc_table( idomain, P_num_cw04 ) = 'Number, aerosol in cloud bin 04' chem_units_table( idomain, P_num_cw04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw04 )%stream(2) = 2097216 ! 00200040 F_num_cw04 = .TRUE. IF ( chem_index_table( PARAM_so4_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw05 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw05 , idomain ) = P_so4_cw05 ELSE P_so4_cw05 = chem_index_table( PARAM_so4_cw05 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw05 ) = .TRUE. chem_dname_table( idomain, P_so4_cw05 ) = 'so4_cw05' chem_desc_table( idomain, P_so4_cw05 ) = 'Sulfate, aerosol in cloud bin 05' chem_units_table( idomain, P_so4_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw05 )%stream(2) = 2097216 ! 00200040 F_so4_cw05 = .TRUE. IF ( chem_index_table( PARAM_no3_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw05 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw05 , idomain ) = P_no3_cw05 ELSE P_no3_cw05 = chem_index_table( PARAM_no3_cw05 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw05 ) = .TRUE. chem_dname_table( idomain, P_no3_cw05 ) = 'no3_cw05' chem_desc_table( idomain, P_no3_cw05 ) = 'Nitrate, aerosol in cloud bin 05' chem_units_table( idomain, P_no3_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw05 )%stream(2) = 2097216 ! 00200040 F_no3_cw05 = .TRUE. IF ( chem_index_table( PARAM_cl_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw05 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw05 , idomain ) = P_cl_cw05 ELSE P_cl_cw05 = chem_index_table( PARAM_cl_cw05 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw05 ) = .TRUE. chem_dname_table( idomain, P_cl_cw05 ) = 'cl_cw05' chem_desc_table( idomain, P_cl_cw05 ) = 'Chloride, aerosol in cloud bin 05' chem_units_table( idomain, P_cl_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw05 )%stream(2) = 2097216 ! 00200040 F_cl_cw05 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw05 , idomain ) = P_nh4_cw05 ELSE P_nh4_cw05 = chem_index_table( PARAM_nh4_cw05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw05 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw05 ) = 'nh4_cw05' chem_desc_table( idomain, P_nh4_cw05 ) = 'Ammonium, aerosol in cloud bin 05' chem_units_table( idomain, P_nh4_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw05 )%stream(2) = 2097216 ! 00200040 F_nh4_cw05 = .TRUE. IF ( chem_index_table( PARAM_na_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw05 = chem_num_table(idomain) chem_index_table( PARAM_na_cw05 , idomain ) = P_na_cw05 ELSE P_na_cw05 = chem_index_table( PARAM_na_cw05 , idomain ) END IF chem_boundary_table( idomain, P_na_cw05 ) = .TRUE. chem_dname_table( idomain, P_na_cw05 ) = 'na_cw05' chem_desc_table( idomain, P_na_cw05 ) = 'Sodium, aerosol in cloud bin 05' chem_units_table( idomain, P_na_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw05 )%stream(2) = 2097216 ! 00200040 F_na_cw05 = .TRUE. IF ( chem_index_table( PARAM_oin_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw05 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw05 , idomain ) = P_oin_cw05 ELSE P_oin_cw05 = chem_index_table( PARAM_oin_cw05 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw05 ) = .TRUE. chem_dname_table( idomain, P_oin_cw05 ) = 'oin_cw05' chem_desc_table( idomain, P_oin_cw05 ) = 'Other inorganics, aerosol in cloud bin 05' chem_units_table( idomain, P_oin_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw05 )%stream(2) = 2097216 ! 00200040 F_oin_cw05 = .TRUE. IF ( chem_index_table( PARAM_oc_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw05 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw05 , idomain ) = P_oc_cw05 ELSE P_oc_cw05 = chem_index_table( PARAM_oc_cw05 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw05 ) = .TRUE. chem_dname_table( idomain, P_oc_cw05 ) = 'oc_cw05' chem_desc_table( idomain, P_oc_cw05 ) = 'Organic carbon, aerosol in cloud bin 05' chem_units_table( idomain, P_oc_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw05 )%stream(2) = 2097216 ! 00200040 F_oc_cw05 = .TRUE. IF ( chem_index_table( PARAM_bc_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw05 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw05 , idomain ) = P_bc_cw05 ELSE P_bc_cw05 = chem_index_table( PARAM_bc_cw05 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw05 ) = .TRUE. chem_dname_table( idomain, P_bc_cw05 ) = 'bc_cw05' chem_desc_table( idomain, P_bc_cw05 ) = 'Black carbon, aerosol in cloud bin 05' chem_units_table( idomain, P_bc_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw05 )%stream(2) = 2097216 ! 00200040 F_bc_cw05 = .TRUE. IF ( chem_index_table( PARAM_num_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw05 = chem_num_table(idomain) chem_index_table( PARAM_num_cw05 , idomain ) = P_num_cw05 ELSE P_num_cw05 = chem_index_table( PARAM_num_cw05 , idomain ) END IF chem_boundary_table( idomain, P_num_cw05 ) = .TRUE. chem_dname_table( idomain, P_num_cw05 ) = 'num_cw05' chem_desc_table( idomain, P_num_cw05 ) = 'Number, aerosol in cloud bin 05' chem_units_table( idomain, P_num_cw05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw05 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw05 )%stream(2) = 2097216 ! 00200040 F_num_cw05 = .TRUE. IF ( chem_index_table( PARAM_so4_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw06 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw06 , idomain ) = P_so4_cw06 ELSE P_so4_cw06 = chem_index_table( PARAM_so4_cw06 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw06 ) = .TRUE. chem_dname_table( idomain, P_so4_cw06 ) = 'so4_cw06' chem_desc_table( idomain, P_so4_cw06 ) = 'Sulfate, aerosol in cloud bin 06' chem_units_table( idomain, P_so4_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw06 )%stream(2) = 2097216 ! 00200040 F_so4_cw06 = .TRUE. IF ( chem_index_table( PARAM_no3_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw06 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw06 , idomain ) = P_no3_cw06 ELSE P_no3_cw06 = chem_index_table( PARAM_no3_cw06 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw06 ) = .TRUE. chem_dname_table( idomain, P_no3_cw06 ) = 'no3_cw06' chem_desc_table( idomain, P_no3_cw06 ) = 'Nitrate, aerosol in cloud bin 06' chem_units_table( idomain, P_no3_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw06 )%stream(2) = 2097216 ! 00200040 F_no3_cw06 = .TRUE. IF ( chem_index_table( PARAM_cl_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw06 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw06 , idomain ) = P_cl_cw06 ELSE P_cl_cw06 = chem_index_table( PARAM_cl_cw06 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw06 ) = .TRUE. chem_dname_table( idomain, P_cl_cw06 ) = 'cl_cw06' chem_desc_table( idomain, P_cl_cw06 ) = 'Chloride, aerosol in cloud bin 06' chem_units_table( idomain, P_cl_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw06 )%stream(2) = 2097216 ! 00200040 F_cl_cw06 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw06 , idomain ) = P_nh4_cw06 ELSE P_nh4_cw06 = chem_index_table( PARAM_nh4_cw06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw06 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw06 ) = 'nh4_cw06' chem_desc_table( idomain, P_nh4_cw06 ) = 'Ammonium, aerosol in cloud bin 06' chem_units_table( idomain, P_nh4_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw06 )%stream(2) = 2097216 ! 00200040 F_nh4_cw06 = .TRUE. IF ( chem_index_table( PARAM_na_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw06 = chem_num_table(idomain) chem_index_table( PARAM_na_cw06 , idomain ) = P_na_cw06 ELSE P_na_cw06 = chem_index_table( PARAM_na_cw06 , idomain ) END IF chem_boundary_table( idomain, P_na_cw06 ) = .TRUE. chem_dname_table( idomain, P_na_cw06 ) = 'na_cw06' chem_desc_table( idomain, P_na_cw06 ) = 'Sodium, aerosol in cloud bin 06' chem_units_table( idomain, P_na_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw06 )%stream(2) = 2097216 ! 00200040 F_na_cw06 = .TRUE. IF ( chem_index_table( PARAM_oin_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw06 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw06 , idomain ) = P_oin_cw06 ELSE P_oin_cw06 = chem_index_table( PARAM_oin_cw06 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw06 ) = .TRUE. chem_dname_table( idomain, P_oin_cw06 ) = 'oin_cw06' chem_desc_table( idomain, P_oin_cw06 ) = 'Other inorganics, aerosol in cloud bin 06' chem_units_table( idomain, P_oin_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw06 )%stream(2) = 2097216 ! 00200040 F_oin_cw06 = .TRUE. IF ( chem_index_table( PARAM_oc_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw06 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw06 , idomain ) = P_oc_cw06 ELSE P_oc_cw06 = chem_index_table( PARAM_oc_cw06 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw06 ) = .TRUE. chem_dname_table( idomain, P_oc_cw06 ) = 'oc_cw06' chem_desc_table( idomain, P_oc_cw06 ) = 'Organic carbon, aerosol in cloud bin 06' chem_units_table( idomain, P_oc_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw06 )%stream(2) = 2097216 ! 00200040 F_oc_cw06 = .TRUE. IF ( chem_index_table( PARAM_bc_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw06 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw06 , idomain ) = P_bc_cw06 ELSE P_bc_cw06 = chem_index_table( PARAM_bc_cw06 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw06 ) = .TRUE. chem_dname_table( idomain, P_bc_cw06 ) = 'bc_cw06' chem_desc_table( idomain, P_bc_cw06 ) = 'Black carbon, aerosol in cloud bin 06' chem_units_table( idomain, P_bc_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw06 )%stream(2) = 2097216 ! 00200040 F_bc_cw06 = .TRUE. IF ( chem_index_table( PARAM_num_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw06 = chem_num_table(idomain) chem_index_table( PARAM_num_cw06 , idomain ) = P_num_cw06 ELSE P_num_cw06 = chem_index_table( PARAM_num_cw06 , idomain ) END IF chem_boundary_table( idomain, P_num_cw06 ) = .TRUE. chem_dname_table( idomain, P_num_cw06 ) = 'num_cw06' chem_desc_table( idomain, P_num_cw06 ) = 'Number, aerosol in cloud bin 06' chem_units_table( idomain, P_num_cw06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw06 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw06 )%stream(2) = 2097216 ! 00200040 F_num_cw06 = .TRUE. IF ( chem_index_table( PARAM_so4_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw07 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw07 , idomain ) = P_so4_cw07 ELSE P_so4_cw07 = chem_index_table( PARAM_so4_cw07 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw07 ) = .TRUE. chem_dname_table( idomain, P_so4_cw07 ) = 'so4_cw07' chem_desc_table( idomain, P_so4_cw07 ) = 'Sulfate, aerosol in cloud bin 07' chem_units_table( idomain, P_so4_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw07 )%stream(2) = 2097216 ! 00200040 F_so4_cw07 = .TRUE. IF ( chem_index_table( PARAM_no3_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw07 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw07 , idomain ) = P_no3_cw07 ELSE P_no3_cw07 = chem_index_table( PARAM_no3_cw07 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw07 ) = .TRUE. chem_dname_table( idomain, P_no3_cw07 ) = 'no3_cw07' chem_desc_table( idomain, P_no3_cw07 ) = 'Nitrate, aerosol in cloud bin 07' chem_units_table( idomain, P_no3_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw07 )%stream(2) = 2097216 ! 00200040 F_no3_cw07 = .TRUE. IF ( chem_index_table( PARAM_cl_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw07 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw07 , idomain ) = P_cl_cw07 ELSE P_cl_cw07 = chem_index_table( PARAM_cl_cw07 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw07 ) = .TRUE. chem_dname_table( idomain, P_cl_cw07 ) = 'cl_cw07' chem_desc_table( idomain, P_cl_cw07 ) = 'Chloride, aerosol in cloud bin 07' chem_units_table( idomain, P_cl_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw07 )%stream(2) = 2097216 ! 00200040 F_cl_cw07 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw07 , idomain ) = P_nh4_cw07 ELSE P_nh4_cw07 = chem_index_table( PARAM_nh4_cw07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw07 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw07 ) = 'nh4_cw07' chem_desc_table( idomain, P_nh4_cw07 ) = 'Ammonium, aerosol in cloud bin 07' chem_units_table( idomain, P_nh4_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw07 )%stream(2) = 2097216 ! 00200040 F_nh4_cw07 = .TRUE. IF ( chem_index_table( PARAM_na_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw07 = chem_num_table(idomain) chem_index_table( PARAM_na_cw07 , idomain ) = P_na_cw07 ELSE P_na_cw07 = chem_index_table( PARAM_na_cw07 , idomain ) END IF chem_boundary_table( idomain, P_na_cw07 ) = .TRUE. chem_dname_table( idomain, P_na_cw07 ) = 'na_cw07' chem_desc_table( idomain, P_na_cw07 ) = 'Sodium, aerosol in cloud bin 07' chem_units_table( idomain, P_na_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw07 )%stream(2) = 2097216 ! 00200040 F_na_cw07 = .TRUE. IF ( chem_index_table( PARAM_oin_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw07 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw07 , idomain ) = P_oin_cw07 ELSE P_oin_cw07 = chem_index_table( PARAM_oin_cw07 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw07 ) = .TRUE. chem_dname_table( idomain, P_oin_cw07 ) = 'oin_cw07' chem_desc_table( idomain, P_oin_cw07 ) = 'Other inorganics, aerosol in cloud bin 07' chem_units_table( idomain, P_oin_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw07 )%stream(2) = 2097216 ! 00200040 F_oin_cw07 = .TRUE. IF ( chem_index_table( PARAM_oc_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw07 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw07 , idomain ) = P_oc_cw07 ELSE P_oc_cw07 = chem_index_table( PARAM_oc_cw07 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw07 ) = .TRUE. chem_dname_table( idomain, P_oc_cw07 ) = 'oc_cw07' chem_desc_table( idomain, P_oc_cw07 ) = 'Organic carbon, aerosol in cloud bin 07' chem_units_table( idomain, P_oc_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw07 )%stream(2) = 2097216 ! 00200040 F_oc_cw07 = .TRUE. IF ( chem_index_table( PARAM_bc_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw07 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw07 , idomain ) = P_bc_cw07 ELSE P_bc_cw07 = chem_index_table( PARAM_bc_cw07 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw07 ) = .TRUE. chem_dname_table( idomain, P_bc_cw07 ) = 'bc_cw07' chem_desc_table( idomain, P_bc_cw07 ) = 'Black carbon, aerosol in cloud bin 07' chem_units_table( idomain, P_bc_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw07 )%stream(2) = 2097216 ! 00200040 F_bc_cw07 = .TRUE. IF ( chem_index_table( PARAM_num_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw07 = chem_num_table(idomain) chem_index_table( PARAM_num_cw07 , idomain ) = P_num_cw07 ELSE P_num_cw07 = chem_index_table( PARAM_num_cw07 , idomain ) END IF chem_boundary_table( idomain, P_num_cw07 ) = .TRUE. chem_dname_table( idomain, P_num_cw07 ) = 'num_cw07' chem_desc_table( idomain, P_num_cw07 ) = 'Number, aerosol in cloud bin 07' chem_units_table( idomain, P_num_cw07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw07 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw07 )%stream(2) = 2097216 ! 00200040 F_num_cw07 = .TRUE. IF ( chem_index_table( PARAM_so4_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw08 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw08 , idomain ) = P_so4_cw08 ELSE P_so4_cw08 = chem_index_table( PARAM_so4_cw08 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw08 ) = .TRUE. chem_dname_table( idomain, P_so4_cw08 ) = 'so4_cw08' chem_desc_table( idomain, P_so4_cw08 ) = 'Sulfate, aerosol in cloud bin 08' chem_units_table( idomain, P_so4_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw08 )%stream(2) = 2097216 ! 00200040 F_so4_cw08 = .TRUE. IF ( chem_index_table( PARAM_no3_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw08 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw08 , idomain ) = P_no3_cw08 ELSE P_no3_cw08 = chem_index_table( PARAM_no3_cw08 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw08 ) = .TRUE. chem_dname_table( idomain, P_no3_cw08 ) = 'no3_cw08' chem_desc_table( idomain, P_no3_cw08 ) = 'Nitrate, aerosol in cloud bin 08' chem_units_table( idomain, P_no3_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw08 )%stream(2) = 2097216 ! 00200040 F_no3_cw08 = .TRUE. IF ( chem_index_table( PARAM_cl_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw08 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw08 , idomain ) = P_cl_cw08 ELSE P_cl_cw08 = chem_index_table( PARAM_cl_cw08 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw08 ) = .TRUE. chem_dname_table( idomain, P_cl_cw08 ) = 'cl_cw08' chem_desc_table( idomain, P_cl_cw08 ) = 'Chloride, aerosol in cloud bin 08' chem_units_table( idomain, P_cl_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw08 )%stream(2) = 2097216 ! 00200040 F_cl_cw08 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw08 , idomain ) = P_nh4_cw08 ELSE P_nh4_cw08 = chem_index_table( PARAM_nh4_cw08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw08 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw08 ) = 'nh4_cw08' chem_desc_table( idomain, P_nh4_cw08 ) = 'Ammonium, aerosol in cloud bin 08' chem_units_table( idomain, P_nh4_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw08 )%stream(2) = 2097216 ! 00200040 F_nh4_cw08 = .TRUE. IF ( chem_index_table( PARAM_na_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw08 = chem_num_table(idomain) chem_index_table( PARAM_na_cw08 , idomain ) = P_na_cw08 ELSE P_na_cw08 = chem_index_table( PARAM_na_cw08 , idomain ) END IF chem_boundary_table( idomain, P_na_cw08 ) = .TRUE. chem_dname_table( idomain, P_na_cw08 ) = 'na_cw08' chem_desc_table( idomain, P_na_cw08 ) = 'Sodium, aerosol in cloud bin 08' chem_units_table( idomain, P_na_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw08 )%stream(2) = 2097216 ! 00200040 F_na_cw08 = .TRUE. IF ( chem_index_table( PARAM_oin_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw08 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw08 , idomain ) = P_oin_cw08 ELSE P_oin_cw08 = chem_index_table( PARAM_oin_cw08 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw08 ) = .TRUE. chem_dname_table( idomain, P_oin_cw08 ) = 'oin_cw08' chem_desc_table( idomain, P_oin_cw08 ) = 'Other inorganics, aerosol in cloud bin 08' chem_units_table( idomain, P_oin_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw08 )%stream(2) = 2097216 ! 00200040 F_oin_cw08 = .TRUE. IF ( chem_index_table( PARAM_oc_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw08 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw08 , idomain ) = P_oc_cw08 ELSE P_oc_cw08 = chem_index_table( PARAM_oc_cw08 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw08 ) = .TRUE. chem_dname_table( idomain, P_oc_cw08 ) = 'oc_cw08' chem_desc_table( idomain, P_oc_cw08 ) = 'Organic carbon, aerosol in cloud bin 08' chem_units_table( idomain, P_oc_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw08 )%stream(2) = 2097216 ! 00200040 F_oc_cw08 = .TRUE. IF ( chem_index_table( PARAM_bc_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw08 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw08 , idomain ) = P_bc_cw08 ELSE P_bc_cw08 = chem_index_table( PARAM_bc_cw08 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw08 ) = .TRUE. chem_dname_table( idomain, P_bc_cw08 ) = 'bc_cw08' chem_desc_table( idomain, P_bc_cw08 ) = 'Black carbon, aerosol in cloud bin 08' chem_units_table( idomain, P_bc_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw08 )%stream(2) = 2097216 ! 00200040 F_bc_cw08 = .TRUE. IF ( chem_index_table( PARAM_num_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw08 = chem_num_table(idomain) chem_index_table( PARAM_num_cw08 , idomain ) = P_num_cw08 ELSE P_num_cw08 = chem_index_table( PARAM_num_cw08 , idomain ) END IF chem_boundary_table( idomain, P_num_cw08 ) = .TRUE. chem_dname_table( idomain, P_num_cw08 ) = 'num_cw08' chem_desc_table( idomain, P_num_cw08 ) = 'Number, aerosol in cloud bin 08' chem_units_table( idomain, P_num_cw08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw08 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw08 )%stream(2) = 2097216 ! 00200040 F_num_cw08 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==611)THEN IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 ! 00200040 F_dms = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 ! 00200040 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 ! 00200040 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 ! 00200040 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3s , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3s = chem_num_table(idomain) chem_index_table( PARAM_ch3s , idomain ) = P_ch3s ELSE P_ch3s = chem_index_table( PARAM_ch3s , idomain ) END IF chem_boundary_table( idomain, P_ch3s ) = .TRUE. chem_dname_table( idomain, P_ch3s ) = 'ch3s' chem_desc_table( idomain, P_ch3s ) = 'CH3S concentration' chem_units_table( idomain, P_ch3s ) = 'ppmv' chem_streams_table( idomain, P_ch3s )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3s )%stream(2) = 2097216 ! 00200040 F_ch3s = .TRUE. IF ( chem_index_table( PARAM_ch3so , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so = chem_num_table(idomain) chem_index_table( PARAM_ch3so , idomain ) = P_ch3so ELSE P_ch3so = chem_index_table( PARAM_ch3so , idomain ) END IF chem_boundary_table( idomain, P_ch3so ) = .TRUE. chem_dname_table( idomain, P_ch3so ) = 'ch3so' chem_desc_table( idomain, P_ch3so ) = 'CH3SO concentration' chem_units_table( idomain, P_ch3so ) = 'ppmv' chem_streams_table( idomain, P_ch3so )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so )%stream(2) = 2097216 ! 00200040 F_ch3so = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 ! 00200040 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 ! 00200040 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 ! 00200040 F_msa = .TRUE. IF ( chem_index_table( PARAM_msia , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msia = chem_num_table(idomain) chem_index_table( PARAM_msia , idomain ) = P_msia ELSE P_msia = chem_index_table( PARAM_msia , idomain ) END IF chem_boundary_table( idomain, P_msia ) = .TRUE. chem_dname_table( idomain, P_msia ) = 'msia' chem_desc_table( idomain, P_msia ) = 'MSIA concentration' chem_units_table( idomain, P_msia ) = 'ppmv' chem_streams_table( idomain, P_msia )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_msia )%stream(2) = 2097216 ! 00200040 F_msia = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 ! 00200040 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 ! 00200040 F_hcl = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 ! 00200040 F_so2 = .TRUE. IF ( chem_index_table( PARAM_hso3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hso3 = chem_num_table(idomain) chem_index_table( PARAM_hso3 , idomain ) = P_hso3 ELSE P_hso3 = chem_index_table( PARAM_hso3 , idomain ) END IF chem_boundary_table( idomain, P_hso3 ) = .TRUE. chem_dname_table( idomain, P_hso3 ) = 'hso3' chem_desc_table( idomain, P_hso3 ) = 'HSO3 concentration' chem_units_table( idomain, P_hso3 ) = 'ppmv' chem_streams_table( idomain, P_hso3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hso3 )%stream(2) = 2097216 ! 00200040 F_hso3 = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 ! 00200040 F_no2 = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 ! 00200040 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 ! 00200040 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 ! 00200040 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ch3cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cho = chem_num_table(idomain) chem_index_table( PARAM_ch3cho , idomain ) = P_ch3cho ELSE P_ch3cho = chem_index_table( PARAM_ch3cho , idomain ) END IF chem_boundary_table( idomain, P_ch3cho ) = .TRUE. chem_dname_table( idomain, P_ch3cho ) = 'ch3cho' chem_desc_table( idomain, P_ch3cho ) = 'CH3CHO concentration' chem_units_table( idomain, P_ch3cho ) = 'ppmv' chem_streams_table( idomain, P_ch3cho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3cho )%stream(2) = 2097216 ! 00200040 F_ch3cho = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 ! 00200040 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ch3ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ooh = chem_num_table(idomain) chem_index_table( PARAM_ch3ooh , idomain ) = P_ch3ooh ELSE P_ch3ooh = chem_index_table( PARAM_ch3ooh , idomain ) END IF chem_boundary_table( idomain, P_ch3ooh ) = .TRUE. chem_dname_table( idomain, P_ch3ooh ) = 'ch3ooh' chem_desc_table( idomain, P_ch3ooh ) = 'CH3OOH mixing ratio' chem_units_table( idomain, P_ch3ooh ) = 'ppmv' chem_streams_table( idomain, P_ch3ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3ooh )%stream(2) = 2097216 ! 00200040 F_ch3ooh = .TRUE. IF ( chem_index_table( PARAM_c2h5ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5ooh = chem_num_table(idomain) chem_index_table( PARAM_c2h5ooh , idomain ) = P_c2h5ooh ELSE P_c2h5ooh = chem_index_table( PARAM_c2h5ooh , idomain ) END IF chem_boundary_table( idomain, P_c2h5ooh ) = .TRUE. chem_dname_table( idomain, P_c2h5ooh ) = 'c2h5ooh' chem_desc_table( idomain, P_c2h5ooh ) = 'C2H5OOH concentration' chem_units_table( idomain, P_c2h5ooh ) = 'ppmv' chem_streams_table( idomain, P_c2h5ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5ooh )%stream(2) = 2097216 ! 00200040 F_c2h5ooh = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 ! 00200040 F_paa = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 ! 00200040 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 ! 00200040 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 ! 00200040 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 ! 00200040 F_pan = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 ! 00200040 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_nc4h10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nc4h10 = chem_num_table(idomain) chem_index_table( PARAM_nc4h10 , idomain ) = P_nc4h10 ELSE P_nc4h10 = chem_index_table( PARAM_nc4h10 , idomain ) END IF chem_boundary_table( idomain, P_nc4h10 ) = .TRUE. chem_dname_table( idomain, P_nc4h10 ) = 'nc4h10' chem_desc_table( idomain, P_nc4h10 ) = 'NC4H10 concentration' chem_units_table( idomain, P_nc4h10 ) = 'ppmv' chem_streams_table( idomain, P_nc4h10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nc4h10 )%stream(2) = 2097216 ! 00200040 F_nc4h10 = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 ! 00200040 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_co )%stream(2) = 2097216 ! 00200040 F_co = .TRUE. IF ( chem_index_table( PARAM_c2h4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h4 = chem_num_table(idomain) chem_index_table( PARAM_c2h4 , idomain ) = P_c2h4 ELSE P_c2h4 = chem_index_table( PARAM_c2h4 , idomain ) END IF chem_boundary_table( idomain, P_c2h4 ) = .TRUE. chem_dname_table( idomain, P_c2h4 ) = 'c2h4' chem_desc_table( idomain, P_c2h4 ) = '' chem_units_table( idomain, P_c2h4 ) = '' chem_streams_table( idomain, P_c2h4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h4 )%stream(2) = 2097216 ! 00200040 F_c2h4 = .TRUE. IF ( chem_index_table( PARAM_toluene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_toluene = chem_num_table(idomain) chem_index_table( PARAM_toluene , idomain ) = P_toluene ELSE P_toluene = chem_index_table( PARAM_toluene , idomain ) END IF chem_boundary_table( idomain, P_toluene ) = .TRUE. chem_dname_table( idomain, P_toluene ) = 'toluene' chem_desc_table( idomain, P_toluene ) = 'TOLUENE concentration' chem_units_table( idomain, P_toluene ) = 'ppmv' chem_streams_table( idomain, P_toluene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_toluene )%stream(2) = 2097216 ! 00200040 F_toluene = .TRUE. IF ( chem_index_table( PARAM_oxyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oxyl = chem_num_table(idomain) chem_index_table( PARAM_oxyl , idomain ) = P_oxyl ELSE P_oxyl = chem_index_table( PARAM_oxyl , idomain ) END IF chem_boundary_table( idomain, P_oxyl ) = .TRUE. chem_dname_table( idomain, P_oxyl ) = 'oxyl' chem_desc_table( idomain, P_oxyl ) = 'OXYL concentration' chem_units_table( idomain, P_oxyl ) = 'ppmv' chem_streams_table( idomain, P_oxyl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oxyl )%stream(2) = 2097216 ! 00200040 F_oxyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 ! 00200040 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 ! 00200040 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 ! 00200040 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 ! 00200040 F_ket = .TRUE. IF ( chem_index_table( PARAM_c5h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c5h8 = chem_num_table(idomain) chem_index_table( PARAM_c5h8 , idomain ) = P_c5h8 ELSE P_c5h8 = chem_index_table( PARAM_c5h8 , idomain ) END IF chem_boundary_table( idomain, P_c5h8 ) = .TRUE. chem_dname_table( idomain, P_c5h8 ) = 'c5h8' chem_desc_table( idomain, P_c5h8 ) = 'C5H8 concentration' chem_units_table( idomain, P_c5h8 ) = 'ppmv' chem_streams_table( idomain, P_c5h8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c5h8 )%stream(2) = 2097216 ! 00200040 F_c5h8 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 ! 00200040 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 ! 00200040 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so3 = chem_num_table(idomain) chem_index_table( PARAM_so3 , idomain ) = P_so3 ELSE P_so3 = chem_index_table( PARAM_so3 , idomain ) END IF chem_boundary_table( idomain, P_so3 ) = .TRUE. chem_dname_table( idomain, P_so3 ) = 'so3' chem_desc_table( idomain, P_so3 ) = 'SO3 concentration' chem_units_table( idomain, P_so3 ) = 'ppmv' chem_streams_table( idomain, P_so3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so3 )%stream(2) = 2097216 ! 00200040 F_so3 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no )%stream(2) = 2097216 ! 00200040 F_no = .TRUE. IF ( chem_index_table( PARAM_benzene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzene = chem_num_table(idomain) chem_index_table( PARAM_benzene , idomain ) = P_benzene ELSE P_benzene = chem_index_table( PARAM_benzene , idomain ) END IF chem_boundary_table( idomain, P_benzene ) = .TRUE. chem_dname_table( idomain, P_benzene ) = 'benzene' chem_desc_table( idomain, P_benzene ) = 'BENZENE concentration' chem_units_table( idomain, P_benzene ) = 'ppmv' chem_streams_table( idomain, P_benzene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_benzene )%stream(2) = 2097216 ! 00200040 F_benzene = .TRUE. IF ( chem_index_table( PARAM_npropol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_npropol = chem_num_table(idomain) chem_index_table( PARAM_npropol , idomain ) = P_npropol ELSE P_npropol = chem_index_table( PARAM_npropol , idomain ) END IF chem_boundary_table( idomain, P_npropol ) = .TRUE. chem_dname_table( idomain, P_npropol ) = 'npropol' chem_desc_table( idomain, P_npropol ) = 'NPROPOL concentration' chem_units_table( idomain, P_npropol ) = 'ppmv' chem_streams_table( idomain, P_npropol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_npropol )%stream(2) = 2097216 ! 00200040 F_npropol = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 ! 00200040 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 ! 00200040 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_tbut2ene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tbut2ene = chem_num_table(idomain) chem_index_table( PARAM_tbut2ene , idomain ) = P_tbut2ene ELSE P_tbut2ene = chem_index_table( PARAM_tbut2ene , idomain ) END IF chem_boundary_table( idomain, P_tbut2ene ) = .TRUE. chem_dname_table( idomain, P_tbut2ene ) = 'tbut2ene' chem_desc_table( idomain, P_tbut2ene ) = 'TBUT2ENE concentration' chem_units_table( idomain, P_tbut2ene ) = 'ppmv' chem_streams_table( idomain, P_tbut2ene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tbut2ene )%stream(2) = 2097216 ! 00200040 F_tbut2ene = .TRUE. IF ( chem_index_table( PARAM_c2h5cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5cho = chem_num_table(idomain) chem_index_table( PARAM_c2h5cho , idomain ) = P_c2h5cho ELSE P_c2h5cho = chem_index_table( PARAM_c2h5cho , idomain ) END IF chem_boundary_table( idomain, P_c2h5cho ) = .TRUE. chem_dname_table( idomain, P_c2h5cho ) = 'c2h5cho' chem_desc_table( idomain, P_c2h5cho ) = 'C2H5CHO concentration' chem_units_table( idomain, P_c2h5cho ) = 'ppmv' chem_streams_table( idomain, P_c2h5cho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5cho )%stream(2) = 2097216 ! 00200040 F_c2h5cho = .TRUE. IF ( chem_index_table( PARAM_ch3co2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3co2h = chem_num_table(idomain) chem_index_table( PARAM_ch3co2h , idomain ) = P_ch3co2h ELSE P_ch3co2h = chem_index_table( PARAM_ch3co2h , idomain ) END IF chem_boundary_table( idomain, P_ch3co2h ) = .TRUE. chem_dname_table( idomain, P_ch3co2h ) = 'ch3co2h' chem_desc_table( idomain, P_ch3co2h ) = 'CH3CO2H concentration' chem_units_table( idomain, P_ch3co2h ) = 'ppmv' chem_streams_table( idomain, P_ch3co2h )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3co2h )%stream(2) = 2097216 ! 00200040 F_ch3co2h = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 ! 00200040 F_mek = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 ! 00200040 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 ! 00200040 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_ipropol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ipropol = chem_num_table(idomain) chem_index_table( PARAM_ipropol , idomain ) = P_ipropol ELSE P_ipropol = chem_index_table( PARAM_ipropol , idomain ) END IF chem_boundary_table( idomain, P_ipropol ) = .TRUE. chem_dname_table( idomain, P_ipropol ) = 'ipropol' chem_desc_table( idomain, P_ipropol ) = 'IPROPOL concentration' chem_units_table( idomain, P_ipropol ) = 'ppmv' chem_streams_table( idomain, P_ipropol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ipropol )%stream(2) = 2097216 ! 00200040 F_ipropol = .TRUE. IF ( chem_index_table( PARAM_ch3no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3no3 = chem_num_table(idomain) chem_index_table( PARAM_ch3no3 , idomain ) = P_ch3no3 ELSE P_ch3no3 = chem_index_table( PARAM_ch3no3 , idomain ) END IF chem_boundary_table( idomain, P_ch3no3 ) = .TRUE. chem_dname_table( idomain, P_ch3no3 ) = 'ch3no3' chem_desc_table( idomain, P_ch3no3 ) = 'CH3NO3 concentration' chem_units_table( idomain, P_ch3no3 ) = 'ppmv' chem_streams_table( idomain, P_ch3no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3no3 )%stream(2) = 2097216 ! 00200040 F_ch3no3 = .TRUE. IF ( chem_index_table( PARAM_c2h5no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5no3 = chem_num_table(idomain) chem_index_table( PARAM_c2h5no3 , idomain ) = P_c2h5no3 ELSE P_c2h5no3 = chem_index_table( PARAM_c2h5no3 , idomain ) END IF chem_boundary_table( idomain, P_c2h5no3 ) = .TRUE. chem_dname_table( idomain, P_c2h5no3 ) = 'c2h5no3' chem_desc_table( idomain, P_c2h5no3 ) = 'C2H5NO3 concentration' chem_units_table( idomain, P_c2h5no3 ) = 'ppmv' chem_streams_table( idomain, P_c2h5no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5no3 )%stream(2) = 2097216 ! 00200040 F_c2h5no3 = .TRUE. IF ( chem_index_table( PARAM_hoc2h4no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoc2h4no3 = chem_num_table(idomain) chem_index_table( PARAM_hoc2h4no3 , idomain ) = P_hoc2h4no3 ELSE P_hoc2h4no3 = chem_index_table( PARAM_hoc2h4no3 , idomain ) END IF chem_boundary_table( idomain, P_hoc2h4no3 ) = .TRUE. chem_dname_table( idomain, P_hoc2h4no3 ) = 'hoc2h4no3' chem_desc_table( idomain, P_hoc2h4no3 ) = 'HOC2H4NO3 concentration' chem_units_table( idomain, P_hoc2h4no3 ) = 'ppmv' chem_streams_table( idomain, P_hoc2h4no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoc2h4no3 )%stream(2) = 2097216 ! 00200040 F_hoc2h4no3 = .TRUE. IF ( chem_index_table( PARAM_prooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prooh = chem_num_table(idomain) chem_index_table( PARAM_prooh , idomain ) = P_prooh ELSE P_prooh = chem_index_table( PARAM_prooh , idomain ) END IF chem_boundary_table( idomain, P_prooh ) = .TRUE. chem_dname_table( idomain, P_prooh ) = 'prooh' chem_desc_table( idomain, P_prooh ) = '' chem_units_table( idomain, P_prooh ) = '' chem_streams_table( idomain, P_prooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_prooh )%stream(2) = 2097216 ! 00200040 F_prooh = .TRUE. IF ( chem_index_table( PARAM_hoc2h4ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoc2h4ooh = chem_num_table(idomain) chem_index_table( PARAM_hoc2h4ooh , idomain ) = P_hoc2h4ooh ELSE P_hoc2h4ooh = chem_index_table( PARAM_hoc2h4ooh , idomain ) END IF chem_boundary_table( idomain, P_hoc2h4ooh ) = .TRUE. chem_dname_table( idomain, P_hoc2h4ooh ) = 'hoc2h4ooh' chem_desc_table( idomain, P_hoc2h4ooh ) = 'HOC2H4OOH concentration' chem_units_table( idomain, P_hoc2h4ooh ) = 'ppmv' chem_streams_table( idomain, P_hoc2h4ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoc2h4ooh )%stream(2) = 2097216 ! 00200040 F_hoc2h4ooh = .TRUE. IF ( chem_index_table( PARAM_carb14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb14 = chem_num_table(idomain) chem_index_table( PARAM_carb14 , idomain ) = P_carb14 ELSE P_carb14 = chem_index_table( PARAM_carb14 , idomain ) END IF chem_boundary_table( idomain, P_carb14 ) = .TRUE. chem_dname_table( idomain, P_carb14 ) = 'carb14' chem_desc_table( idomain, P_carb14 ) = 'CARB14 concentration' chem_units_table( idomain, P_carb14 ) = 'ppmv' chem_streams_table( idomain, P_carb14 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb14 )%stream(2) = 2097216 ! 00200040 F_carb14 = .TRUE. IF ( chem_index_table( PARAM_carb17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb17 = chem_num_table(idomain) chem_index_table( PARAM_carb17 , idomain ) = P_carb17 ELSE P_carb17 = chem_index_table( PARAM_carb17 , idomain ) END IF chem_boundary_table( idomain, P_carb17 ) = .TRUE. chem_dname_table( idomain, P_carb17 ) = 'carb17' chem_desc_table( idomain, P_carb17 ) = 'CARB17 concentration' chem_units_table( idomain, P_carb17 ) = 'ppmv' chem_streams_table( idomain, P_carb17 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb17 )%stream(2) = 2097216 ! 00200040 F_carb17 = .TRUE. IF ( chem_index_table( PARAM_rn10no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10no3 = chem_num_table(idomain) chem_index_table( PARAM_rn10no3 , idomain ) = P_rn10no3 ELSE P_rn10no3 = chem_index_table( PARAM_rn10no3 , idomain ) END IF chem_boundary_table( idomain, P_rn10no3 ) = .TRUE. chem_dname_table( idomain, P_rn10no3 ) = 'rn10no3' chem_desc_table( idomain, P_rn10no3 ) = 'RN10NO3 concentration' chem_units_table( idomain, P_rn10no3 ) = 'ppmv' chem_streams_table( idomain, P_rn10no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn10no3 )%stream(2) = 2097216 ! 00200040 F_rn10no3 = .TRUE. IF ( chem_index_table( PARAM_rn13no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13no3 = chem_num_table(idomain) chem_index_table( PARAM_rn13no3 , idomain ) = P_rn13no3 ELSE P_rn13no3 = chem_index_table( PARAM_rn13no3 , idomain ) END IF chem_boundary_table( idomain, P_rn13no3 ) = .TRUE. chem_dname_table( idomain, P_rn13no3 ) = 'rn13no3' chem_desc_table( idomain, P_rn13no3 ) = 'RN13NO3 concentration' chem_units_table( idomain, P_rn13no3 ) = 'ppmv' chem_streams_table( idomain, P_rn13no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn13no3 )%stream(2) = 2097216 ! 00200040 F_rn13no3 = .TRUE. IF ( chem_index_table( PARAM_rn19no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19no3 = chem_num_table(idomain) chem_index_table( PARAM_rn19no3 , idomain ) = P_rn19no3 ELSE P_rn19no3 = chem_index_table( PARAM_rn19no3 , idomain ) END IF chem_boundary_table( idomain, P_rn19no3 ) = .TRUE. chem_dname_table( idomain, P_rn19no3 ) = 'rn19no3' chem_desc_table( idomain, P_rn19no3 ) = 'RN19NO3 concentration' chem_units_table( idomain, P_rn19no3 ) = 'ppmv' chem_streams_table( idomain, P_rn19no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn19no3 )%stream(2) = 2097216 ! 00200040 F_rn19no3 = .TRUE. IF ( chem_index_table( PARAM_rn9no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9no3 = chem_num_table(idomain) chem_index_table( PARAM_rn9no3 , idomain ) = P_rn9no3 ELSE P_rn9no3 = chem_index_table( PARAM_rn9no3 , idomain ) END IF chem_boundary_table( idomain, P_rn9no3 ) = .TRUE. chem_dname_table( idomain, P_rn9no3 ) = 'rn9no3' chem_desc_table( idomain, P_rn9no3 ) = 'RN9NO3 concentration' chem_units_table( idomain, P_rn9no3 ) = 'ppmv' chem_streams_table( idomain, P_rn9no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn9no3 )%stream(2) = 2097216 ! 00200040 F_rn9no3 = .TRUE. IF ( chem_index_table( PARAM_rn12no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12no3 = chem_num_table(idomain) chem_index_table( PARAM_rn12no3 , idomain ) = P_rn12no3 ELSE P_rn12no3 = chem_index_table( PARAM_rn12no3 , idomain ) END IF chem_boundary_table( idomain, P_rn12no3 ) = .TRUE. chem_dname_table( idomain, P_rn12no3 ) = 'rn12no3' chem_desc_table( idomain, P_rn12no3 ) = 'RN12NO3 concentration' chem_units_table( idomain, P_rn12no3 ) = 'ppmv' chem_streams_table( idomain, P_rn12no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn12no3 )%stream(2) = 2097216 ! 00200040 F_rn12no3 = .TRUE. IF ( chem_index_table( PARAM_rn15no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15no3 = chem_num_table(idomain) chem_index_table( PARAM_rn15no3 , idomain ) = P_rn15no3 ELSE P_rn15no3 = chem_index_table( PARAM_rn15no3 , idomain ) END IF chem_boundary_table( idomain, P_rn15no3 ) = .TRUE. chem_dname_table( idomain, P_rn15no3 ) = 'rn15no3' chem_desc_table( idomain, P_rn15no3 ) = 'RN15NO3 concentration' chem_units_table( idomain, P_rn15no3 ) = 'ppmv' chem_streams_table( idomain, P_rn15no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn15no3 )%stream(2) = 2097216 ! 00200040 F_rn15no3 = .TRUE. IF ( chem_index_table( PARAM_rn18no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18no3 = chem_num_table(idomain) chem_index_table( PARAM_rn18no3 , idomain ) = P_rn18no3 ELSE P_rn18no3 = chem_index_table( PARAM_rn18no3 , idomain ) END IF chem_boundary_table( idomain, P_rn18no3 ) = .TRUE. chem_dname_table( idomain, P_rn18no3 ) = 'rn18no3' chem_desc_table( idomain, P_rn18no3 ) = 'RN18NO3 concentration' chem_units_table( idomain, P_rn18no3 ) = 'ppmv' chem_streams_table( idomain, P_rn18no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn18no3 )%stream(2) = 2097216 ! 00200040 F_rn18no3 = .TRUE. IF ( chem_index_table( PARAM_rn16no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16no3 = chem_num_table(idomain) chem_index_table( PARAM_rn16no3 , idomain ) = P_rn16no3 ELSE P_rn16no3 = chem_index_table( PARAM_rn16no3 , idomain ) END IF chem_boundary_table( idomain, P_rn16no3 ) = .TRUE. chem_dname_table( idomain, P_rn16no3 ) = 'rn16no3' chem_desc_table( idomain, P_rn16no3 ) = 'RN16NO3 concentration' chem_units_table( idomain, P_rn16no3 ) = 'ppmv' chem_streams_table( idomain, P_rn16no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn16no3 )%stream(2) = 2097216 ! 00200040 F_rn16no3 = .TRUE. IF ( chem_index_table( PARAM_rn10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10ooh = chem_num_table(idomain) chem_index_table( PARAM_rn10ooh , idomain ) = P_rn10ooh ELSE P_rn10ooh = chem_index_table( PARAM_rn10ooh , idomain ) END IF chem_boundary_table( idomain, P_rn10ooh ) = .TRUE. chem_dname_table( idomain, P_rn10ooh ) = 'rn10ooh' chem_desc_table( idomain, P_rn10ooh ) = 'RN10OOH concentration' chem_units_table( idomain, P_rn10ooh ) = 'ppmv' chem_streams_table( idomain, P_rn10ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn10ooh )%stream(2) = 2097216 ! 00200040 F_rn10ooh = .TRUE. IF ( chem_index_table( PARAM_rn13ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13ooh = chem_num_table(idomain) chem_index_table( PARAM_rn13ooh , idomain ) = P_rn13ooh ELSE P_rn13ooh = chem_index_table( PARAM_rn13ooh , idomain ) END IF chem_boundary_table( idomain, P_rn13ooh ) = .TRUE. chem_dname_table( idomain, P_rn13ooh ) = 'rn13ooh' chem_desc_table( idomain, P_rn13ooh ) = 'RN13OOH concentration' chem_units_table( idomain, P_rn13ooh ) = 'ppmv' chem_streams_table( idomain, P_rn13ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn13ooh )%stream(2) = 2097216 ! 00200040 F_rn13ooh = .TRUE. IF ( chem_index_table( PARAM_rn16ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16ooh = chem_num_table(idomain) chem_index_table( PARAM_rn16ooh , idomain ) = P_rn16ooh ELSE P_rn16ooh = chem_index_table( PARAM_rn16ooh , idomain ) END IF chem_boundary_table( idomain, P_rn16ooh ) = .TRUE. chem_dname_table( idomain, P_rn16ooh ) = 'rn16ooh' chem_desc_table( idomain, P_rn16ooh ) = 'RN16OOH concentration' chem_units_table( idomain, P_rn16ooh ) = 'ppmv' chem_streams_table( idomain, P_rn16ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn16ooh )%stream(2) = 2097216 ! 00200040 F_rn16ooh = .TRUE. IF ( chem_index_table( PARAM_rn19ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19ooh = chem_num_table(idomain) chem_index_table( PARAM_rn19ooh , idomain ) = P_rn19ooh ELSE P_rn19ooh = chem_index_table( PARAM_rn19ooh , idomain ) END IF chem_boundary_table( idomain, P_rn19ooh ) = .TRUE. chem_dname_table( idomain, P_rn19ooh ) = 'rn19ooh' chem_desc_table( idomain, P_rn19ooh ) = 'RN19OOH concentration' chem_units_table( idomain, P_rn19ooh ) = 'ppmv' chem_streams_table( idomain, P_rn19ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn19ooh )%stream(2) = 2097216 ! 00200040 F_rn19ooh = .TRUE. IF ( chem_index_table( PARAM_rn8ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn8ooh = chem_num_table(idomain) chem_index_table( PARAM_rn8ooh , idomain ) = P_rn8ooh ELSE P_rn8ooh = chem_index_table( PARAM_rn8ooh , idomain ) END IF chem_boundary_table( idomain, P_rn8ooh ) = .TRUE. chem_dname_table( idomain, P_rn8ooh ) = 'rn8ooh' chem_desc_table( idomain, P_rn8ooh ) = 'RN8OOH concentration' chem_units_table( idomain, P_rn8ooh ) = 'ppmv' chem_streams_table( idomain, P_rn8ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn8ooh )%stream(2) = 2097216 ! 00200040 F_rn8ooh = .TRUE. IF ( chem_index_table( PARAM_rn11ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn11ooh = chem_num_table(idomain) chem_index_table( PARAM_rn11ooh , idomain ) = P_rn11ooh ELSE P_rn11ooh = chem_index_table( PARAM_rn11ooh , idomain ) END IF chem_boundary_table( idomain, P_rn11ooh ) = .TRUE. chem_dname_table( idomain, P_rn11ooh ) = 'rn11ooh' chem_desc_table( idomain, P_rn11ooh ) = 'RN11OOH concentration' chem_units_table( idomain, P_rn11ooh ) = 'ppmv' chem_streams_table( idomain, P_rn11ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn11ooh )%stream(2) = 2097216 ! 00200040 F_rn11ooh = .TRUE. IF ( chem_index_table( PARAM_rn14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn14ooh = chem_num_table(idomain) chem_index_table( PARAM_rn14ooh , idomain ) = P_rn14ooh ELSE P_rn14ooh = chem_index_table( PARAM_rn14ooh , idomain ) END IF chem_boundary_table( idomain, P_rn14ooh ) = .TRUE. chem_dname_table( idomain, P_rn14ooh ) = 'rn14ooh' chem_desc_table( idomain, P_rn14ooh ) = 'RN14OOH concentration' chem_units_table( idomain, P_rn14ooh ) = 'ppmv' chem_streams_table( idomain, P_rn14ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn14ooh )%stream(2) = 2097216 ! 00200040 F_rn14ooh = .TRUE. IF ( chem_index_table( PARAM_rn17ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn17ooh = chem_num_table(idomain) chem_index_table( PARAM_rn17ooh , idomain ) = P_rn17ooh ELSE P_rn17ooh = chem_index_table( PARAM_rn17ooh , idomain ) END IF chem_boundary_table( idomain, P_rn17ooh ) = .TRUE. chem_dname_table( idomain, P_rn17ooh ) = 'rn17ooh' chem_desc_table( idomain, P_rn17ooh ) = 'RN17OOH concentration' chem_units_table( idomain, P_rn17ooh ) = 'ppmv' chem_streams_table( idomain, P_rn17ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn17ooh )%stream(2) = 2097216 ! 00200040 F_rn17ooh = .TRUE. IF ( chem_index_table( PARAM_rn9ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9ooh = chem_num_table(idomain) chem_index_table( PARAM_rn9ooh , idomain ) = P_rn9ooh ELSE P_rn9ooh = chem_index_table( PARAM_rn9ooh , idomain ) END IF chem_boundary_table( idomain, P_rn9ooh ) = .TRUE. chem_dname_table( idomain, P_rn9ooh ) = 'rn9ooh' chem_desc_table( idomain, P_rn9ooh ) = 'RN9OOH concentration' chem_units_table( idomain, P_rn9ooh ) = 'ppmv' chem_streams_table( idomain, P_rn9ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn9ooh )%stream(2) = 2097216 ! 00200040 F_rn9ooh = .TRUE. IF ( chem_index_table( PARAM_rn12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12ooh = chem_num_table(idomain) chem_index_table( PARAM_rn12ooh , idomain ) = P_rn12ooh ELSE P_rn12ooh = chem_index_table( PARAM_rn12ooh , idomain ) END IF chem_boundary_table( idomain, P_rn12ooh ) = .TRUE. chem_dname_table( idomain, P_rn12ooh ) = 'rn12ooh' chem_desc_table( idomain, P_rn12ooh ) = 'RN12OOH concentration' chem_units_table( idomain, P_rn12ooh ) = 'ppmv' chem_streams_table( idomain, P_rn12ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn12ooh )%stream(2) = 2097216 ! 00200040 F_rn12ooh = .TRUE. IF ( chem_index_table( PARAM_rn15ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15ooh = chem_num_table(idomain) chem_index_table( PARAM_rn15ooh , idomain ) = P_rn15ooh ELSE P_rn15ooh = chem_index_table( PARAM_rn15ooh , idomain ) END IF chem_boundary_table( idomain, P_rn15ooh ) = .TRUE. chem_dname_table( idomain, P_rn15ooh ) = 'rn15ooh' chem_desc_table( idomain, P_rn15ooh ) = 'RN15OOH concentration' chem_units_table( idomain, P_rn15ooh ) = 'ppmv' chem_streams_table( idomain, P_rn15ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn15ooh )%stream(2) = 2097216 ! 00200040 F_rn15ooh = .TRUE. IF ( chem_index_table( PARAM_rn18ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18ooh = chem_num_table(idomain) chem_index_table( PARAM_rn18ooh , idomain ) = P_rn18ooh ELSE P_rn18ooh = chem_index_table( PARAM_rn18ooh , idomain ) END IF chem_boundary_table( idomain, P_rn18ooh ) = .TRUE. chem_dname_table( idomain, P_rn18ooh ) = 'rn18ooh' chem_desc_table( idomain, P_rn18ooh ) = 'RN18OOH concentration' chem_units_table( idomain, P_rn18ooh ) = 'ppmv' chem_streams_table( idomain, P_rn18ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn18ooh )%stream(2) = 2097216 ! 00200040 F_rn18ooh = .TRUE. IF ( chem_index_table( PARAM_nrn6ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn6ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn6ooh , idomain ) = P_nrn6ooh ELSE P_nrn6ooh = chem_index_table( PARAM_nrn6ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn6ooh ) = .TRUE. chem_dname_table( idomain, P_nrn6ooh ) = 'nrn6ooh' chem_desc_table( idomain, P_nrn6ooh ) = 'NRN6OOH concentration' chem_units_table( idomain, P_nrn6ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn6ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn6ooh )%stream(2) = 2097216 ! 00200040 F_nrn6ooh = .TRUE. IF ( chem_index_table( PARAM_nrn9ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn9ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn9ooh , idomain ) = P_nrn9ooh ELSE P_nrn9ooh = chem_index_table( PARAM_nrn9ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn9ooh ) = .TRUE. chem_dname_table( idomain, P_nrn9ooh ) = 'nrn9ooh' chem_desc_table( idomain, P_nrn9ooh ) = 'NRN9OOH concentration' chem_units_table( idomain, P_nrn9ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn9ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn9ooh )%stream(2) = 2097216 ! 00200040 F_nrn9ooh = .TRUE. IF ( chem_index_table( PARAM_nrn12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn12ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn12ooh , idomain ) = P_nrn12ooh ELSE P_nrn12ooh = chem_index_table( PARAM_nrn12ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn12ooh ) = .TRUE. chem_dname_table( idomain, P_nrn12ooh ) = 'nrn12ooh' chem_desc_table( idomain, P_nrn12ooh ) = 'NRN12OOH concentration' chem_units_table( idomain, P_nrn12ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn12ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn12ooh )%stream(2) = 2097216 ! 00200040 F_nrn12ooh = .TRUE. IF ( chem_index_table( PARAM_apinene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinene = chem_num_table(idomain) chem_index_table( PARAM_apinene , idomain ) = P_apinene ELSE P_apinene = chem_index_table( PARAM_apinene , idomain ) END IF chem_boundary_table( idomain, P_apinene ) = .TRUE. chem_dname_table( idomain, P_apinene ) = 'apinene' chem_desc_table( idomain, P_apinene ) = 'APINENE concentration' chem_units_table( idomain, P_apinene ) = 'ppmv' chem_streams_table( idomain, P_apinene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_apinene )%stream(2) = 2097216 ! 00200040 F_apinene = .TRUE. IF ( chem_index_table( PARAM_bpinene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinene = chem_num_table(idomain) chem_index_table( PARAM_bpinene , idomain ) = P_bpinene ELSE P_bpinene = chem_index_table( PARAM_bpinene , idomain ) END IF chem_boundary_table( idomain, P_bpinene ) = .TRUE. chem_dname_table( idomain, P_bpinene ) = 'bpinene' chem_desc_table( idomain, P_bpinene ) = 'BPINENE concentration' chem_units_table( idomain, P_bpinene ) = 'ppmv' chem_streams_table( idomain, P_bpinene )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bpinene )%stream(2) = 2097216 ! 00200040 F_bpinene = .TRUE. IF ( chem_index_table( PARAM_carb7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb7 = chem_num_table(idomain) chem_index_table( PARAM_carb7 , idomain ) = P_carb7 ELSE P_carb7 = chem_index_table( PARAM_carb7 , idomain ) END IF chem_boundary_table( idomain, P_carb7 ) = .TRUE. chem_dname_table( idomain, P_carb7 ) = 'carb7' chem_desc_table( idomain, P_carb7 ) = 'CARB7 concentration' chem_units_table( idomain, P_carb7 ) = 'ppmv' chem_streams_table( idomain, P_carb7 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb7 )%stream(2) = 2097216 ! 00200040 F_carb7 = .TRUE. IF ( chem_index_table( PARAM_carb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb10 = chem_num_table(idomain) chem_index_table( PARAM_carb10 , idomain ) = P_carb10 ELSE P_carb10 = chem_index_table( PARAM_carb10 , idomain ) END IF chem_boundary_table( idomain, P_carb10 ) = .TRUE. chem_dname_table( idomain, P_carb10 ) = 'carb10' chem_desc_table( idomain, P_carb10 ) = 'CARB10 concentration' chem_units_table( idomain, P_carb10 ) = 'ppmv' chem_streams_table( idomain, P_carb10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb10 )%stream(2) = 2097216 ! 00200040 F_carb10 = .TRUE. IF ( chem_index_table( PARAM_carb13 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb13 = chem_num_table(idomain) chem_index_table( PARAM_carb13 , idomain ) = P_carb13 ELSE P_carb13 = chem_index_table( PARAM_carb13 , idomain ) END IF chem_boundary_table( idomain, P_carb13 ) = .TRUE. chem_dname_table( idomain, P_carb13 ) = 'carb13' chem_desc_table( idomain, P_carb13 ) = 'CARB13 concentration' chem_units_table( idomain, P_carb13 ) = 'ppmv' chem_streams_table( idomain, P_carb13 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb13 )%stream(2) = 2097216 ! 00200040 F_carb13 = .TRUE. IF ( chem_index_table( PARAM_carb16 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb16 = chem_num_table(idomain) chem_index_table( PARAM_carb16 , idomain ) = P_carb16 ELSE P_carb16 = chem_index_table( PARAM_carb16 , idomain ) END IF chem_boundary_table( idomain, P_carb16 ) = .TRUE. chem_dname_table( idomain, P_carb16 ) = 'carb16' chem_desc_table( idomain, P_carb16 ) = 'CARB16 concentration' chem_units_table( idomain, P_carb16 ) = 'ppmv' chem_streams_table( idomain, P_carb16 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb16 )%stream(2) = 2097216 ! 00200040 F_carb16 = .TRUE. IF ( chem_index_table( PARAM_carb3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb3 = chem_num_table(idomain) chem_index_table( PARAM_carb3 , idomain ) = P_carb3 ELSE P_carb3 = chem_index_table( PARAM_carb3 , idomain ) END IF chem_boundary_table( idomain, P_carb3 ) = .TRUE. chem_dname_table( idomain, P_carb3 ) = 'carb3' chem_desc_table( idomain, P_carb3 ) = 'CARB3 concentration' chem_units_table( idomain, P_carb3 ) = 'ppmv' chem_streams_table( idomain, P_carb3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb3 )%stream(2) = 2097216 ! 00200040 F_carb3 = .TRUE. IF ( chem_index_table( PARAM_carb6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb6 = chem_num_table(idomain) chem_index_table( PARAM_carb6 , idomain ) = P_carb6 ELSE P_carb6 = chem_index_table( PARAM_carb6 , idomain ) END IF chem_boundary_table( idomain, P_carb6 ) = .TRUE. chem_dname_table( idomain, P_carb6 ) = 'carb6' chem_desc_table( idomain, P_carb6 ) = 'CARB6 concentration' chem_units_table( idomain, P_carb6 ) = 'ppmv' chem_streams_table( idomain, P_carb6 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb6 )%stream(2) = 2097216 ! 00200040 F_carb6 = .TRUE. IF ( chem_index_table( PARAM_carb9 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb9 = chem_num_table(idomain) chem_index_table( PARAM_carb9 , idomain ) = P_carb9 ELSE P_carb9 = chem_index_table( PARAM_carb9 , idomain ) END IF chem_boundary_table( idomain, P_carb9 ) = .TRUE. chem_dname_table( idomain, P_carb9 ) = 'carb9' chem_desc_table( idomain, P_carb9 ) = 'CARB9 concentration' chem_units_table( idomain, P_carb9 ) = 'ppmv' chem_streams_table( idomain, P_carb9 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb9 )%stream(2) = 2097216 ! 00200040 F_carb9 = .TRUE. IF ( chem_index_table( PARAM_carb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb12 = chem_num_table(idomain) chem_index_table( PARAM_carb12 , idomain ) = P_carb12 ELSE P_carb12 = chem_index_table( PARAM_carb12 , idomain ) END IF chem_boundary_table( idomain, P_carb12 ) = .TRUE. chem_dname_table( idomain, P_carb12 ) = 'carb12' chem_desc_table( idomain, P_carb12 ) = 'CARB12 concentration' chem_units_table( idomain, P_carb12 ) = 'ppmv' chem_streams_table( idomain, P_carb12 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb12 )%stream(2) = 2097216 ! 00200040 F_carb12 = .TRUE. IF ( chem_index_table( PARAM_carb15 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb15 = chem_num_table(idomain) chem_index_table( PARAM_carb15 , idomain ) = P_carb15 ELSE P_carb15 = chem_index_table( PARAM_carb15 , idomain ) END IF chem_boundary_table( idomain, P_carb15 ) = .TRUE. chem_dname_table( idomain, P_carb15 ) = 'carb15' chem_desc_table( idomain, P_carb15 ) = 'CARB15 concentration' chem_units_table( idomain, P_carb15 ) = 'ppmv' chem_streams_table( idomain, P_carb15 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb15 )%stream(2) = 2097216 ! 00200040 F_carb15 = .TRUE. IF ( chem_index_table( PARAM_c2h5co3h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5co3h = chem_num_table(idomain) chem_index_table( PARAM_c2h5co3h , idomain ) = P_c2h5co3h ELSE P_c2h5co3h = chem_index_table( PARAM_c2h5co3h , idomain ) END IF chem_boundary_table( idomain, P_c2h5co3h ) = .TRUE. chem_dname_table( idomain, P_c2h5co3h ) = 'c2h5co3h' chem_desc_table( idomain, P_c2h5co3h ) = 'C2H5CO3H concentration' chem_units_table( idomain, P_c2h5co3h ) = 'ppmv' chem_streams_table( idomain, P_c2h5co3h )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5co3h )%stream(2) = 2097216 ! 00200040 F_c2h5co3h = .TRUE. IF ( chem_index_table( PARAM_c2h5co3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5co3 = chem_num_table(idomain) chem_index_table( PARAM_c2h5co3 , idomain ) = P_c2h5co3 ELSE P_c2h5co3 = chem_index_table( PARAM_c2h5co3 , idomain ) END IF chem_boundary_table( idomain, P_c2h5co3 ) = .TRUE. chem_dname_table( idomain, P_c2h5co3 ) = 'c2h5co3' chem_desc_table( idomain, P_c2h5co3 ) = 'C2H5CO3 concentration' chem_units_table( idomain, P_c2h5co3 ) = 'ppmv' chem_streams_table( idomain, P_c2h5co3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5co3 )%stream(2) = 2097216 ! 00200040 F_c2h5co3 = .TRUE. IF ( chem_index_table( PARAM_ppn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ppn = chem_num_table(idomain) chem_index_table( PARAM_ppn , idomain ) = P_ppn ELSE P_ppn = chem_index_table( PARAM_ppn , idomain ) END IF chem_boundary_table( idomain, P_ppn ) = .TRUE. chem_dname_table( idomain, P_ppn ) = 'ppn' chem_desc_table( idomain, P_ppn ) = 'PPN concentration' chem_units_table( idomain, P_ppn ) = 'ppmv' chem_streams_table( idomain, P_ppn )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ppn )%stream(2) = 2097216 ! 00200040 F_ppn = .TRUE. IF ( chem_index_table( PARAM_hoch2cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2cho = chem_num_table(idomain) chem_index_table( PARAM_hoch2cho , idomain ) = P_hoch2cho ELSE P_hoch2cho = chem_index_table( PARAM_hoch2cho , idomain ) END IF chem_boundary_table( idomain, P_hoch2cho ) = .TRUE. chem_dname_table( idomain, P_hoch2cho ) = 'hoch2cho' chem_desc_table( idomain, P_hoch2cho ) = 'HOCH2CHO concentration' chem_units_table( idomain, P_hoch2cho ) = 'ppmv' chem_streams_table( idomain, P_hoch2cho )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoch2cho )%stream(2) = 2097216 ! 00200040 F_hoch2cho = .TRUE. IF ( chem_index_table( PARAM_hoch2co3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2co3 = chem_num_table(idomain) chem_index_table( PARAM_hoch2co3 , idomain ) = P_hoch2co3 ELSE P_hoch2co3 = chem_index_table( PARAM_hoch2co3 , idomain ) END IF chem_boundary_table( idomain, P_hoch2co3 ) = .TRUE. chem_dname_table( idomain, P_hoch2co3 ) = 'hoch2co3' chem_desc_table( idomain, P_hoch2co3 ) = 'HOCH2CO3 concentration' chem_units_table( idomain, P_hoch2co3 ) = 'ppmv' chem_streams_table( idomain, P_hoch2co3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoch2co3 )%stream(2) = 2097216 ! 00200040 F_hoch2co3 = .TRUE. IF ( chem_index_table( PARAM_hoch2co3h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2co3h = chem_num_table(idomain) chem_index_table( PARAM_hoch2co3h , idomain ) = P_hoch2co3h ELSE P_hoch2co3h = chem_index_table( PARAM_hoch2co3h , idomain ) END IF chem_boundary_table( idomain, P_hoch2co3h ) = .TRUE. chem_dname_table( idomain, P_hoch2co3h ) = 'hoch2co3h' chem_desc_table( idomain, P_hoch2co3h ) = 'HOCH2CO3H concentration' chem_units_table( idomain, P_hoch2co3h ) = 'ppmv' chem_streams_table( idomain, P_hoch2co3h )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoch2co3h )%stream(2) = 2097216 ! 00200040 F_hoch2co3h = .TRUE. IF ( chem_index_table( PARAM_phan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phan = chem_num_table(idomain) chem_index_table( PARAM_phan , idomain ) = P_phan ELSE P_phan = chem_index_table( PARAM_phan , idomain ) END IF chem_boundary_table( idomain, P_phan ) = .TRUE. chem_dname_table( idomain, P_phan ) = 'phan' chem_desc_table( idomain, P_phan ) = 'PHAN concentration' chem_units_table( idomain, P_phan ) = 'ppmv' chem_streams_table( idomain, P_phan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_phan )%stream(2) = 2097216 ! 00200040 F_phan = .TRUE. IF ( chem_index_table( PARAM_ccarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ccarb12 = chem_num_table(idomain) chem_index_table( PARAM_ccarb12 , idomain ) = P_ccarb12 ELSE P_ccarb12 = chem_index_table( PARAM_ccarb12 , idomain ) END IF chem_boundary_table( idomain, P_ccarb12 ) = .TRUE. chem_dname_table( idomain, P_ccarb12 ) = 'ccarb12' chem_desc_table( idomain, P_ccarb12 ) = 'CCARB12 concentration' chem_units_table( idomain, P_ccarb12 ) = 'ppmv' chem_streams_table( idomain, P_ccarb12 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ccarb12 )%stream(2) = 2097216 ! 00200040 F_ccarb12 = .TRUE. IF ( chem_index_table( PARAM_ch3cl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cl = chem_num_table(idomain) chem_index_table( PARAM_ch3cl , idomain ) = P_ch3cl ELSE P_ch3cl = chem_index_table( PARAM_ch3cl , idomain ) END IF chem_boundary_table( idomain, P_ch3cl ) = .TRUE. chem_dname_table( idomain, P_ch3cl ) = 'ch3cl' chem_desc_table( idomain, P_ch3cl ) = 'CH3CL concentration' chem_units_table( idomain, P_ch3cl ) = 'ppmv' chem_streams_table( idomain, P_ch3cl )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3cl )%stream(2) = 2097216 ! 00200040 F_ch3cl = .TRUE. IF ( chem_index_table( PARAM_ch2cl2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch2cl2 = chem_num_table(idomain) chem_index_table( PARAM_ch2cl2 , idomain ) = P_ch2cl2 ELSE P_ch2cl2 = chem_index_table( PARAM_ch2cl2 , idomain ) END IF chem_boundary_table( idomain, P_ch2cl2 ) = .TRUE. chem_dname_table( idomain, P_ch2cl2 ) = 'ch2cl2' chem_desc_table( idomain, P_ch2cl2 ) = 'CH2CL2 concentration' chem_units_table( idomain, P_ch2cl2 ) = 'ppmv' chem_streams_table( idomain, P_ch2cl2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch2cl2 )%stream(2) = 2097216 ! 00200040 F_ch2cl2 = .TRUE. IF ( chem_index_table( PARAM_chcl3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_chcl3 = chem_num_table(idomain) chem_index_table( PARAM_chcl3 , idomain ) = P_chcl3 ELSE P_chcl3 = chem_index_table( PARAM_chcl3 , idomain ) END IF chem_boundary_table( idomain, P_chcl3 ) = .TRUE. chem_dname_table( idomain, P_chcl3 ) = 'chcl3' chem_desc_table( idomain, P_chcl3 ) = 'CHCL3 concentration' chem_units_table( idomain, P_chcl3 ) = 'ppmv' chem_streams_table( idomain, P_chcl3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_chcl3 )%stream(2) = 2097216 ! 00200040 F_chcl3 = .TRUE. IF ( chem_index_table( PARAM_ch3ccl3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ccl3 = chem_num_table(idomain) chem_index_table( PARAM_ch3ccl3 , idomain ) = P_ch3ccl3 ELSE P_ch3ccl3 = chem_index_table( PARAM_ch3ccl3 , idomain ) END IF chem_boundary_table( idomain, P_ch3ccl3 ) = .TRUE. chem_dname_table( idomain, P_ch3ccl3 ) = 'ch3ccl3' chem_desc_table( idomain, P_ch3ccl3 ) = 'CH3CCL3 concentration' chem_units_table( idomain, P_ch3ccl3 ) = 'ppmv' chem_streams_table( idomain, P_ch3ccl3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3ccl3 )%stream(2) = 2097216 ! 00200040 F_ch3ccl3 = .TRUE. IF ( chem_index_table( PARAM_cdicleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cdicleth = chem_num_table(idomain) chem_index_table( PARAM_cdicleth , idomain ) = P_cdicleth ELSE P_cdicleth = chem_index_table( PARAM_cdicleth , idomain ) END IF chem_boundary_table( idomain, P_cdicleth ) = .TRUE. chem_dname_table( idomain, P_cdicleth ) = 'cdicleth' chem_desc_table( idomain, P_cdicleth ) = 'CDICLETH concentration' chem_units_table( idomain, P_cdicleth ) = 'ppmv' chem_streams_table( idomain, P_cdicleth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cdicleth )%stream(2) = 2097216 ! 00200040 F_cdicleth = .TRUE. IF ( chem_index_table( PARAM_tdicleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tdicleth = chem_num_table(idomain) chem_index_table( PARAM_tdicleth , idomain ) = P_tdicleth ELSE P_tdicleth = chem_index_table( PARAM_tdicleth , idomain ) END IF chem_boundary_table( idomain, P_tdicleth ) = .TRUE. chem_dname_table( idomain, P_tdicleth ) = 'tdicleth' chem_desc_table( idomain, P_tdicleth ) = 'TDICLETH concentration' chem_units_table( idomain, P_tdicleth ) = 'ppmv' chem_streams_table( idomain, P_tdicleth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tdicleth )%stream(2) = 2097216 ! 00200040 F_tdicleth = .TRUE. IF ( chem_index_table( PARAM_tricleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tricleth = chem_num_table(idomain) chem_index_table( PARAM_tricleth , idomain ) = P_tricleth ELSE P_tricleth = chem_index_table( PARAM_tricleth , idomain ) END IF chem_boundary_table( idomain, P_tricleth ) = .TRUE. chem_dname_table( idomain, P_tricleth ) = 'tricleth' chem_desc_table( idomain, P_tricleth ) = 'TRICLETH concentration' chem_units_table( idomain, P_tricleth ) = 'ppmv' chem_streams_table( idomain, P_tricleth )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tricleth )%stream(2) = 2097216 ! 00200040 F_tricleth = .TRUE. IF ( chem_index_table( PARAM_tce , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tce = chem_num_table(idomain) chem_index_table( PARAM_tce , idomain ) = P_tce ELSE P_tce = chem_index_table( PARAM_tce , idomain ) END IF chem_boundary_table( idomain, P_tce ) = .TRUE. chem_dname_table( idomain, P_tce ) = 'tce' chem_desc_table( idomain, P_tce ) = 'TCE concentration' chem_units_table( idomain, P_tce ) = 'ppmv' chem_streams_table( idomain, P_tce )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tce )%stream(2) = 2097216 ! 00200040 F_tce = .TRUE. IF ( chem_index_table( PARAM_ucarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ucarb12 = chem_num_table(idomain) chem_index_table( PARAM_ucarb12 , idomain ) = P_ucarb12 ELSE P_ucarb12 = chem_index_table( PARAM_ucarb12 , idomain ) END IF chem_boundary_table( idomain, P_ucarb12 ) = .TRUE. chem_dname_table( idomain, P_ucarb12 ) = 'ucarb12' chem_desc_table( idomain, P_ucarb12 ) = 'UCARB12 concentration' chem_units_table( idomain, P_ucarb12 ) = 'ppmv' chem_streams_table( idomain, P_ucarb12 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ucarb12 )%stream(2) = 2097216 ! 00200040 F_ucarb12 = .TRUE. IF ( chem_index_table( PARAM_ucarb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ucarb10 = chem_num_table(idomain) chem_index_table( PARAM_ucarb10 , idomain ) = P_ucarb10 ELSE P_ucarb10 = chem_index_table( PARAM_ucarb10 , idomain ) END IF chem_boundary_table( idomain, P_ucarb10 ) = .TRUE. chem_dname_table( idomain, P_ucarb10 ) = 'ucarb10' chem_desc_table( idomain, P_ucarb10 ) = 'UCARB10 concentration' chem_units_table( idomain, P_ucarb10 ) = 'ppmv' chem_streams_table( idomain, P_ucarb10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ucarb10 )%stream(2) = 2097216 ! 00200040 F_ucarb10 = .TRUE. IF ( chem_index_table( PARAM_ru14no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14no3 = chem_num_table(idomain) chem_index_table( PARAM_ru14no3 , idomain ) = P_ru14no3 ELSE P_ru14no3 = chem_index_table( PARAM_ru14no3 , idomain ) END IF chem_boundary_table( idomain, P_ru14no3 ) = .TRUE. chem_dname_table( idomain, P_ru14no3 ) = 'ru14no3' chem_desc_table( idomain, P_ru14no3 ) = 'RU14NO3 concentration' chem_units_table( idomain, P_ru14no3 ) = 'ppmv' chem_streams_table( idomain, P_ru14no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru14no3 )%stream(2) = 2097216 ! 00200040 F_ru14no3 = .TRUE. IF ( chem_index_table( PARAM_ru14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14ooh = chem_num_table(idomain) chem_index_table( PARAM_ru14ooh , idomain ) = P_ru14ooh ELSE P_ru14ooh = chem_index_table( PARAM_ru14ooh , idomain ) END IF chem_boundary_table( idomain, P_ru14ooh ) = .TRUE. chem_dname_table( idomain, P_ru14ooh ) = 'ru14ooh' chem_desc_table( idomain, P_ru14ooh ) = 'RU14OOH concentration' chem_units_table( idomain, P_ru14ooh ) = 'ppmv' chem_streams_table( idomain, P_ru14ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru14ooh )%stream(2) = 2097216 ! 00200040 F_ru14ooh = .TRUE. IF ( chem_index_table( PARAM_ru12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12ooh = chem_num_table(idomain) chem_index_table( PARAM_ru12ooh , idomain ) = P_ru12ooh ELSE P_ru12ooh = chem_index_table( PARAM_ru12ooh , idomain ) END IF chem_boundary_table( idomain, P_ru12ooh ) = .TRUE. chem_dname_table( idomain, P_ru12ooh ) = 'ru12ooh' chem_desc_table( idomain, P_ru12ooh ) = 'RU12OOH concentration' chem_units_table( idomain, P_ru12ooh ) = 'ppmv' chem_streams_table( idomain, P_ru12ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru12ooh )%stream(2) = 2097216 ! 00200040 F_ru12ooh = .TRUE. IF ( chem_index_table( PARAM_ru10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru10ooh = chem_num_table(idomain) chem_index_table( PARAM_ru10ooh , idomain ) = P_ru10ooh ELSE P_ru10ooh = chem_index_table( PARAM_ru10ooh , idomain ) END IF chem_boundary_table( idomain, P_ru10ooh ) = .TRUE. chem_dname_table( idomain, P_ru10ooh ) = 'ru10ooh' chem_desc_table( idomain, P_ru10ooh ) = 'RU10OOH concentration' chem_units_table( idomain, P_ru10ooh ) = 'ppmv' chem_streams_table( idomain, P_ru10ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru10ooh )%stream(2) = 2097216 ! 00200040 F_ru10ooh = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 ! 00200040 F_mpan = .TRUE. IF ( chem_index_table( PARAM_ru12pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12pan = chem_num_table(idomain) chem_index_table( PARAM_ru12pan , idomain ) = P_ru12pan ELSE P_ru12pan = chem_index_table( PARAM_ru12pan , idomain ) END IF chem_boundary_table( idomain, P_ru12pan ) = .TRUE. chem_dname_table( idomain, P_ru12pan ) = 'ru12pan' chem_desc_table( idomain, P_ru12pan ) = 'RU12PAN concentration' chem_units_table( idomain, P_ru12pan ) = 'ppmv' chem_streams_table( idomain, P_ru12pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru12pan )%stream(2) = 2097216 ! 00200040 F_ru12pan = .TRUE. IF ( chem_index_table( PARAM_nucarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nucarb12 = chem_num_table(idomain) chem_index_table( PARAM_nucarb12 , idomain ) = P_nucarb12 ELSE P_nucarb12 = chem_index_table( PARAM_nucarb12 , idomain ) END IF chem_boundary_table( idomain, P_nucarb12 ) = .TRUE. chem_dname_table( idomain, P_nucarb12 ) = 'nucarb12' chem_desc_table( idomain, P_nucarb12 ) = 'NUCARB12 concentration' chem_units_table( idomain, P_nucarb12 ) = 'ppmv' chem_streams_table( idomain, P_nucarb12 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nucarb12 )%stream(2) = 2097216 ! 00200040 F_nucarb12 = .TRUE. IF ( chem_index_table( PARAM_nru14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru14ooh = chem_num_table(idomain) chem_index_table( PARAM_nru14ooh , idomain ) = P_nru14ooh ELSE P_nru14ooh = chem_index_table( PARAM_nru14ooh , idomain ) END IF chem_boundary_table( idomain, P_nru14ooh ) = .TRUE. chem_dname_table( idomain, P_nru14ooh ) = 'nru14ooh' chem_desc_table( idomain, P_nru14ooh ) = 'NRU14OOH concentration' chem_units_table( idomain, P_nru14ooh ) = 'ppmv' chem_streams_table( idomain, P_nru14ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nru14ooh )%stream(2) = 2097216 ! 00200040 F_nru14ooh = .TRUE. IF ( chem_index_table( PARAM_nru12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru12ooh = chem_num_table(idomain) chem_index_table( PARAM_nru12ooh , idomain ) = P_nru12ooh ELSE P_nru12ooh = chem_index_table( PARAM_nru12ooh , idomain ) END IF chem_boundary_table( idomain, P_nru12ooh ) = .TRUE. chem_dname_table( idomain, P_nru12ooh ) = 'nru12ooh' chem_desc_table( idomain, P_nru12ooh ) = 'NRU12OOH concentration' chem_units_table( idomain, P_nru12ooh ) = 'ppmv' chem_streams_table( idomain, P_nru12ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nru12ooh )%stream(2) = 2097216 ! 00200040 F_nru12ooh = .TRUE. IF ( chem_index_table( PARAM_noa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_noa = chem_num_table(idomain) chem_index_table( PARAM_noa , idomain ) = P_noa ELSE P_noa = chem_index_table( PARAM_noa , idomain ) END IF chem_boundary_table( idomain, P_noa ) = .TRUE. chem_dname_table( idomain, P_noa ) = 'noa' chem_desc_table( idomain, P_noa ) = 'NOA concentration' chem_units_table( idomain, P_noa ) = 'ppmv' chem_streams_table( idomain, P_noa )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_noa )%stream(2) = 2097216 ! 00200040 F_noa = .TRUE. IF ( chem_index_table( PARAM_ra13no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13no3 = chem_num_table(idomain) chem_index_table( PARAM_ra13no3 , idomain ) = P_ra13no3 ELSE P_ra13no3 = chem_index_table( PARAM_ra13no3 , idomain ) END IF chem_boundary_table( idomain, P_ra13no3 ) = .TRUE. chem_dname_table( idomain, P_ra13no3 ) = 'ra13no3' chem_desc_table( idomain, P_ra13no3 ) = 'RA13NO3 concentration' chem_units_table( idomain, P_ra13no3 ) = 'ppmv' chem_streams_table( idomain, P_ra13no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra13no3 )%stream(2) = 2097216 ! 00200040 F_ra13no3 = .TRUE. IF ( chem_index_table( PARAM_ra13ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13ooh = chem_num_table(idomain) chem_index_table( PARAM_ra13ooh , idomain ) = P_ra13ooh ELSE P_ra13ooh = chem_index_table( PARAM_ra13ooh , idomain ) END IF chem_boundary_table( idomain, P_ra13ooh ) = .TRUE. chem_dname_table( idomain, P_ra13ooh ) = 'ra13ooh' chem_desc_table( idomain, P_ra13ooh ) = 'RA13OOH concentration' chem_units_table( idomain, P_ra13ooh ) = 'ppmv' chem_streams_table( idomain, P_ra13ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra13ooh )%stream(2) = 2097216 ! 00200040 F_ra13ooh = .TRUE. IF ( chem_index_table( PARAM_udcarb8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb8 = chem_num_table(idomain) chem_index_table( PARAM_udcarb8 , idomain ) = P_udcarb8 ELSE P_udcarb8 = chem_index_table( PARAM_udcarb8 , idomain ) END IF chem_boundary_table( idomain, P_udcarb8 ) = .TRUE. chem_dname_table( idomain, P_udcarb8 ) = 'udcarb8' chem_desc_table( idomain, P_udcarb8 ) = 'UDCARB8 concentration' chem_units_table( idomain, P_udcarb8 ) = 'ppmv' chem_streams_table( idomain, P_udcarb8 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udcarb8 )%stream(2) = 2097216 ! 00200040 F_udcarb8 = .TRUE. IF ( chem_index_table( PARAM_aroh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aroh14 = chem_num_table(idomain) chem_index_table( PARAM_aroh14 , idomain ) = P_aroh14 ELSE P_aroh14 = chem_index_table( PARAM_aroh14 , idomain ) END IF chem_boundary_table( idomain, P_aroh14 ) = .TRUE. chem_dname_table( idomain, P_aroh14 ) = 'aroh14' chem_desc_table( idomain, P_aroh14 ) = 'AROH14 concentration' chem_units_table( idomain, P_aroh14 ) = 'ppmv' chem_streams_table( idomain, P_aroh14 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aroh14 )%stream(2) = 2097216 ! 00200040 F_aroh14 = .TRUE. IF ( chem_index_table( PARAM_raroh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_raroh14 = chem_num_table(idomain) chem_index_table( PARAM_raroh14 , idomain ) = P_raroh14 ELSE P_raroh14 = chem_index_table( PARAM_raroh14 , idomain ) END IF chem_boundary_table( idomain, P_raroh14 ) = .TRUE. chem_dname_table( idomain, P_raroh14 ) = 'raroh14' chem_desc_table( idomain, P_raroh14 ) = 'RAROH14 concentration' chem_units_table( idomain, P_raroh14 ) = 'ppmv' chem_streams_table( idomain, P_raroh14 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_raroh14 )%stream(2) = 2097216 ! 00200040 F_raroh14 = .TRUE. IF ( chem_index_table( PARAM_arnoh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_arnoh14 = chem_num_table(idomain) chem_index_table( PARAM_arnoh14 , idomain ) = P_arnoh14 ELSE P_arnoh14 = chem_index_table( PARAM_arnoh14 , idomain ) END IF chem_boundary_table( idomain, P_arnoh14 ) = .TRUE. chem_dname_table( idomain, P_arnoh14 ) = 'arnoh14' chem_desc_table( idomain, P_arnoh14 ) = 'ARNOH14 concentration' chem_units_table( idomain, P_arnoh14 ) = 'ppmv' chem_streams_table( idomain, P_arnoh14 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_arnoh14 )%stream(2) = 2097216 ! 00200040 F_arnoh14 = .TRUE. IF ( chem_index_table( PARAM_ra16no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16no3 = chem_num_table(idomain) chem_index_table( PARAM_ra16no3 , idomain ) = P_ra16no3 ELSE P_ra16no3 = chem_index_table( PARAM_ra16no3 , idomain ) END IF chem_boundary_table( idomain, P_ra16no3 ) = .TRUE. chem_dname_table( idomain, P_ra16no3 ) = 'ra16no3' chem_desc_table( idomain, P_ra16no3 ) = 'RA16NO3 concentration' chem_units_table( idomain, P_ra16no3 ) = 'ppmv' chem_streams_table( idomain, P_ra16no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra16no3 )%stream(2) = 2097216 ! 00200040 F_ra16no3 = .TRUE. IF ( chem_index_table( PARAM_ra16ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16ooh = chem_num_table(idomain) chem_index_table( PARAM_ra16ooh , idomain ) = P_ra16ooh ELSE P_ra16ooh = chem_index_table( PARAM_ra16ooh , idomain ) END IF chem_boundary_table( idomain, P_ra16ooh ) = .TRUE. chem_dname_table( idomain, P_ra16ooh ) = 'ra16ooh' chem_desc_table( idomain, P_ra16ooh ) = 'RA16OOH concentration' chem_units_table( idomain, P_ra16ooh ) = 'ppmv' chem_streams_table( idomain, P_ra16ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra16ooh )%stream(2) = 2097216 ! 00200040 F_ra16ooh = .TRUE. IF ( chem_index_table( PARAM_udcarb11 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb11 = chem_num_table(idomain) chem_index_table( PARAM_udcarb11 , idomain ) = P_udcarb11 ELSE P_udcarb11 = chem_index_table( PARAM_udcarb11 , idomain ) END IF chem_boundary_table( idomain, P_udcarb11 ) = .TRUE. chem_dname_table( idomain, P_udcarb11 ) = 'udcarb11' chem_desc_table( idomain, P_udcarb11 ) = 'UDCARB11 concentration' chem_units_table( idomain, P_udcarb11 ) = 'ppmv' chem_streams_table( idomain, P_udcarb11 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udcarb11 )%stream(2) = 2097216 ! 00200040 F_udcarb11 = .TRUE. IF ( chem_index_table( PARAM_aroh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aroh17 = chem_num_table(idomain) chem_index_table( PARAM_aroh17 , idomain ) = P_aroh17 ELSE P_aroh17 = chem_index_table( PARAM_aroh17 , idomain ) END IF chem_boundary_table( idomain, P_aroh17 ) = .TRUE. chem_dname_table( idomain, P_aroh17 ) = 'aroh17' chem_desc_table( idomain, P_aroh17 ) = 'AROH17 concentration' chem_units_table( idomain, P_aroh17 ) = 'ppmv' chem_streams_table( idomain, P_aroh17 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_aroh17 )%stream(2) = 2097216 ! 00200040 F_aroh17 = .TRUE. IF ( chem_index_table( PARAM_raroh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_raroh17 = chem_num_table(idomain) chem_index_table( PARAM_raroh17 , idomain ) = P_raroh17 ELSE P_raroh17 = chem_index_table( PARAM_raroh17 , idomain ) END IF chem_boundary_table( idomain, P_raroh17 ) = .TRUE. chem_dname_table( idomain, P_raroh17 ) = 'raroh17' chem_desc_table( idomain, P_raroh17 ) = 'RAROH17 concentration' chem_units_table( idomain, P_raroh17 ) = 'ppmv' chem_streams_table( idomain, P_raroh17 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_raroh17 )%stream(2) = 2097216 ! 00200040 F_raroh17 = .TRUE. IF ( chem_index_table( PARAM_arnoh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_arnoh17 = chem_num_table(idomain) chem_index_table( PARAM_arnoh17 , idomain ) = P_arnoh17 ELSE P_arnoh17 = chem_index_table( PARAM_arnoh17 , idomain ) END IF chem_boundary_table( idomain, P_arnoh17 ) = .TRUE. chem_dname_table( idomain, P_arnoh17 ) = 'arnoh17' chem_desc_table( idomain, P_arnoh17 ) = 'ARNOH17 concentration' chem_units_table( idomain, P_arnoh17 ) = 'ppmv' chem_streams_table( idomain, P_arnoh17 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_arnoh17 )%stream(2) = 2097216 ! 00200040 F_arnoh17 = .TRUE. IF ( chem_index_table( PARAM_udcarb14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb14 = chem_num_table(idomain) chem_index_table( PARAM_udcarb14 , idomain ) = P_udcarb14 ELSE P_udcarb14 = chem_index_table( PARAM_udcarb14 , idomain ) END IF chem_boundary_table( idomain, P_udcarb14 ) = .TRUE. chem_dname_table( idomain, P_udcarb14 ) = 'udcarb14' chem_desc_table( idomain, P_udcarb14 ) = 'UDCARB14 concentration' chem_units_table( idomain, P_udcarb14 ) = 'ppmv' chem_streams_table( idomain, P_udcarb14 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udcarb14 )%stream(2) = 2097216 ! 00200040 F_udcarb14 = .TRUE. IF ( chem_index_table( PARAM_ra19co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19co2 = chem_num_table(idomain) chem_index_table( PARAM_ra19co2 , idomain ) = P_ra19co2 ELSE P_ra19co2 = chem_index_table( PARAM_ra19co2 , idomain ) END IF chem_boundary_table( idomain, P_ra19co2 ) = .TRUE. chem_dname_table( idomain, P_ra19co2 ) = 'ra19co2' chem_desc_table( idomain, P_ra19co2 ) = 'RA19CO2 concentration' chem_units_table( idomain, P_ra19co2 ) = 'ppmv' chem_streams_table( idomain, P_ra19co2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra19co2 )%stream(2) = 2097216 ! 00200040 F_ra19co2 = .TRUE. IF ( chem_index_table( PARAM_ra19no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19no3 = chem_num_table(idomain) chem_index_table( PARAM_ra19no3 , idomain ) = P_ra19no3 ELSE P_ra19no3 = chem_index_table( PARAM_ra19no3 , idomain ) END IF chem_boundary_table( idomain, P_ra19no3 ) = .TRUE. chem_dname_table( idomain, P_ra19no3 ) = 'ra19no3' chem_desc_table( idomain, P_ra19no3 ) = 'RA19NO3 concentration' chem_units_table( idomain, P_ra19no3 ) = 'ppmv' chem_streams_table( idomain, P_ra19no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra19no3 )%stream(2) = 2097216 ! 00200040 F_ra19no3 = .TRUE. IF ( chem_index_table( PARAM_ra19ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19ooh = chem_num_table(idomain) chem_index_table( PARAM_ra19ooh , idomain ) = P_ra19ooh ELSE P_ra19ooh = chem_index_table( PARAM_ra19ooh , idomain ) END IF chem_boundary_table( idomain, P_ra19ooh ) = .TRUE. chem_dname_table( idomain, P_ra19ooh ) = 'ra19ooh' chem_desc_table( idomain, P_ra19ooh ) = 'RA19OOH concentration' chem_units_table( idomain, P_ra19ooh ) = 'ppmv' chem_streams_table( idomain, P_ra19ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra19ooh )%stream(2) = 2097216 ! 00200040 F_ra19ooh = .TRUE. IF ( chem_index_table( PARAM_rtn28no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn28no3 , idomain ) = P_rtn28no3 ELSE P_rtn28no3 = chem_index_table( PARAM_rtn28no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn28no3 ) = .TRUE. chem_dname_table( idomain, P_rtn28no3 ) = 'rtn28no3' chem_desc_table( idomain, P_rtn28no3 ) = 'RTN28NO3 concentration' chem_units_table( idomain, P_rtn28no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn28no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn28no3 )%stream(2) = 2097216 ! 00200040 F_rtn28no3 = .TRUE. IF ( chem_index_table( PARAM_rtn28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn28ooh , idomain ) = P_rtn28ooh ELSE P_rtn28ooh = chem_index_table( PARAM_rtn28ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn28ooh ) = .TRUE. chem_dname_table( idomain, P_rtn28ooh ) = 'rtn28ooh' chem_desc_table( idomain, P_rtn28ooh ) = 'RTN28OOH concentration' chem_units_table( idomain, P_rtn28ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn28ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn28ooh )%stream(2) = 2097216 ! 00200040 F_rtn28ooh = .TRUE. IF ( chem_index_table( PARAM_tncarb26 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb26 = chem_num_table(idomain) chem_index_table( PARAM_tncarb26 , idomain ) = P_tncarb26 ELSE P_tncarb26 = chem_index_table( PARAM_tncarb26 , idomain ) END IF chem_boundary_table( idomain, P_tncarb26 ) = .TRUE. chem_dname_table( idomain, P_tncarb26 ) = 'tncarb26' chem_desc_table( idomain, P_tncarb26 ) = 'TNCARB26 concentration' chem_units_table( idomain, P_tncarb26 ) = 'ppmv' chem_streams_table( idomain, P_tncarb26 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tncarb26 )%stream(2) = 2097216 ! 00200040 F_tncarb26 = .TRUE. IF ( chem_index_table( PARAM_rtn26ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn26ooh , idomain ) = P_rtn26ooh ELSE P_rtn26ooh = chem_index_table( PARAM_rtn26ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn26ooh ) = .TRUE. chem_dname_table( idomain, P_rtn26ooh ) = 'rtn26ooh' chem_desc_table( idomain, P_rtn26ooh ) = 'RTN26OOH concentration' chem_units_table( idomain, P_rtn26ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn26ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn26ooh )%stream(2) = 2097216 ! 00200040 F_rtn26ooh = .TRUE. IF ( chem_index_table( PARAM_nrtn28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtn28ooh = chem_num_table(idomain) chem_index_table( PARAM_nrtn28ooh , idomain ) = P_nrtn28ooh ELSE P_nrtn28ooh = chem_index_table( PARAM_nrtn28ooh , idomain ) END IF chem_boundary_table( idomain, P_nrtn28ooh ) = .TRUE. chem_dname_table( idomain, P_nrtn28ooh ) = 'nrtn28ooh' chem_desc_table( idomain, P_nrtn28ooh ) = 'NRTN28OOH concentration' chem_units_table( idomain, P_nrtn28ooh ) = 'ppmv' chem_streams_table( idomain, P_nrtn28ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrtn28ooh )%stream(2) = 2097216 ! 00200040 F_nrtn28ooh = .TRUE. IF ( chem_index_table( PARAM_rtn26pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26pan = chem_num_table(idomain) chem_index_table( PARAM_rtn26pan , idomain ) = P_rtn26pan ELSE P_rtn26pan = chem_index_table( PARAM_rtn26pan , idomain ) END IF chem_boundary_table( idomain, P_rtn26pan ) = .TRUE. chem_dname_table( idomain, P_rtn26pan ) = 'rtn26pan' chem_desc_table( idomain, P_rtn26pan ) = 'RTN26PAN concentration' chem_units_table( idomain, P_rtn26pan ) = 'ppmv' chem_streams_table( idomain, P_rtn26pan )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn26pan )%stream(2) = 2097216 ! 00200040 F_rtn26pan = .TRUE. IF ( chem_index_table( PARAM_rtn25ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn25ooh , idomain ) = P_rtn25ooh ELSE P_rtn25ooh = chem_index_table( PARAM_rtn25ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn25ooh ) = .TRUE. chem_dname_table( idomain, P_rtn25ooh ) = 'rtn25ooh' chem_desc_table( idomain, P_rtn25ooh ) = 'RTN25OOH concentration' chem_units_table( idomain, P_rtn25ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn25ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn25ooh )%stream(2) = 2097216 ! 00200040 F_rtn25ooh = .TRUE. IF ( chem_index_table( PARAM_rtn24ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn24ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn24ooh , idomain ) = P_rtn24ooh ELSE P_rtn24ooh = chem_index_table( PARAM_rtn24ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn24ooh ) = .TRUE. chem_dname_table( idomain, P_rtn24ooh ) = 'rtn24ooh' chem_desc_table( idomain, P_rtn24ooh ) = 'RTN24OOH concentration' chem_units_table( idomain, P_rtn24ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn24ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn24ooh )%stream(2) = 2097216 ! 00200040 F_rtn24ooh = .TRUE. IF ( chem_index_table( PARAM_rtn23ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn23ooh , idomain ) = P_rtn23ooh ELSE P_rtn23ooh = chem_index_table( PARAM_rtn23ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn23ooh ) = .TRUE. chem_dname_table( idomain, P_rtn23ooh ) = 'rtn23ooh' chem_desc_table( idomain, P_rtn23ooh ) = 'RTN23OOH concentration' chem_units_table( idomain, P_rtn23ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn23ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn23ooh )%stream(2) = 2097216 ! 00200040 F_rtn23ooh = .TRUE. IF ( chem_index_table( PARAM_rtn14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn14ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn14ooh , idomain ) = P_rtn14ooh ELSE P_rtn14ooh = chem_index_table( PARAM_rtn14ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn14ooh ) = .TRUE. chem_dname_table( idomain, P_rtn14ooh ) = 'rtn14ooh' chem_desc_table( idomain, P_rtn14ooh ) = 'RTN14OOH concentration' chem_units_table( idomain, P_rtn14ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn14ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn14ooh )%stream(2) = 2097216 ! 00200040 F_rtn14ooh = .TRUE. IF ( chem_index_table( PARAM_rtn10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn10ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn10ooh , idomain ) = P_rtn10ooh ELSE P_rtn10ooh = chem_index_table( PARAM_rtn10ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn10ooh ) = .TRUE. chem_dname_table( idomain, P_rtn10ooh ) = 'rtn10ooh' chem_desc_table( idomain, P_rtn10ooh ) = 'RTN10OOH concentration' chem_units_table( idomain, P_rtn10ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn10ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn10ooh )%stream(2) = 2097216 ! 00200040 F_rtn10ooh = .TRUE. IF ( chem_index_table( PARAM_tncarb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb10 = chem_num_table(idomain) chem_index_table( PARAM_tncarb10 , idomain ) = P_tncarb10 ELSE P_tncarb10 = chem_index_table( PARAM_tncarb10 , idomain ) END IF chem_boundary_table( idomain, P_tncarb10 ) = .TRUE. chem_dname_table( idomain, P_tncarb10 ) = 'tncarb10' chem_desc_table( idomain, P_tncarb10 ) = 'TNCARB10 concentration' chem_units_table( idomain, P_tncarb10 ) = 'ppmv' chem_streams_table( idomain, P_tncarb10 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tncarb10 )%stream(2) = 2097216 ! 00200040 F_tncarb10 = .TRUE. IF ( chem_index_table( PARAM_rtn25no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn25no3 , idomain ) = P_rtn25no3 ELSE P_rtn25no3 = chem_index_table( PARAM_rtn25no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn25no3 ) = .TRUE. chem_dname_table( idomain, P_rtn25no3 ) = 'rtn25no3' chem_desc_table( idomain, P_rtn25no3 ) = 'RTN25NO3 concentration' chem_units_table( idomain, P_rtn25no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn25no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn25no3 )%stream(2) = 2097216 ! 00200040 F_rtn25no3 = .TRUE. IF ( chem_index_table( PARAM_tncarb15 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb15 = chem_num_table(idomain) chem_index_table( PARAM_tncarb15 , idomain ) = P_tncarb15 ELSE P_tncarb15 = chem_index_table( PARAM_tncarb15 , idomain ) END IF chem_boundary_table( idomain, P_tncarb15 ) = .TRUE. chem_dname_table( idomain, P_tncarb15 ) = 'tncarb15' chem_desc_table( idomain, P_tncarb15 ) = 'TNCARB15 concentration' chem_units_table( idomain, P_tncarb15 ) = 'ppmv' chem_streams_table( idomain, P_tncarb15 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tncarb15 )%stream(2) = 2097216 ! 00200040 F_tncarb15 = .TRUE. IF ( chem_index_table( PARAM_rcooh25 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rcooh25 = chem_num_table(idomain) chem_index_table( PARAM_rcooh25 , idomain ) = P_rcooh25 ELSE P_rcooh25 = chem_index_table( PARAM_rcooh25 , idomain ) END IF chem_boundary_table( idomain, P_rcooh25 ) = .TRUE. chem_dname_table( idomain, P_rcooh25 ) = 'rcooh25' chem_desc_table( idomain, P_rcooh25 ) = 'RCOOH25 concentration' chem_units_table( idomain, P_rcooh25 ) = 'ppmv' chem_streams_table( idomain, P_rcooh25 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rcooh25 )%stream(2) = 2097216 ! 00200040 F_rcooh25 = .TRUE. IF ( chem_index_table( PARAM_rtx28no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx28no3 , idomain ) = P_rtx28no3 ELSE P_rtx28no3 = chem_index_table( PARAM_rtx28no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx28no3 ) = .TRUE. chem_dname_table( idomain, P_rtx28no3 ) = 'rtx28no3' chem_desc_table( idomain, P_rtx28no3 ) = 'RTX28NO3 concentration' chem_units_table( idomain, P_rtx28no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx28no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx28no3 )%stream(2) = 2097216 ! 00200040 F_rtx28no3 = .TRUE. IF ( chem_index_table( PARAM_rtx28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx28ooh , idomain ) = P_rtx28ooh ELSE P_rtx28ooh = chem_index_table( PARAM_rtx28ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx28ooh ) = .TRUE. chem_dname_table( idomain, P_rtx28ooh ) = 'rtx28ooh' chem_desc_table( idomain, P_rtx28ooh ) = 'RTX28OOH concentration' chem_units_table( idomain, P_rtx28ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx28ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx28ooh )%stream(2) = 2097216 ! 00200040 F_rtx28ooh = .TRUE. IF ( chem_index_table( PARAM_txcarb24 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_txcarb24 = chem_num_table(idomain) chem_index_table( PARAM_txcarb24 , idomain ) = P_txcarb24 ELSE P_txcarb24 = chem_index_table( PARAM_txcarb24 , idomain ) END IF chem_boundary_table( idomain, P_txcarb24 ) = .TRUE. chem_dname_table( idomain, P_txcarb24 ) = 'txcarb24' chem_desc_table( idomain, P_txcarb24 ) = 'TXCARB24 concentration' chem_units_table( idomain, P_txcarb24 ) = 'ppmv' chem_streams_table( idomain, P_txcarb24 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_txcarb24 )%stream(2) = 2097216 ! 00200040 F_txcarb24 = .TRUE. IF ( chem_index_table( PARAM_rtx24no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx24no3 , idomain ) = P_rtx24no3 ELSE P_rtx24no3 = chem_index_table( PARAM_rtx24no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx24no3 ) = .TRUE. chem_dname_table( idomain, P_rtx24no3 ) = 'rtx24no3' chem_desc_table( idomain, P_rtx24no3 ) = 'RTX24NO3 concentration' chem_units_table( idomain, P_rtx24no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx24no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx24no3 )%stream(2) = 2097216 ! 00200040 F_rtx24no3 = .TRUE. IF ( chem_index_table( PARAM_rtx24ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx24ooh , idomain ) = P_rtx24ooh ELSE P_rtx24ooh = chem_index_table( PARAM_rtx24ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx24ooh ) = .TRUE. chem_dname_table( idomain, P_rtx24ooh ) = 'rtx24ooh' chem_desc_table( idomain, P_rtx24ooh ) = 'RTX24OOH concentration' chem_units_table( idomain, P_rtx24ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx24ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx24ooh )%stream(2) = 2097216 ! 00200040 F_rtx24ooh = .TRUE. IF ( chem_index_table( PARAM_txcarb22 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_txcarb22 = chem_num_table(idomain) chem_index_table( PARAM_txcarb22 , idomain ) = P_txcarb22 ELSE P_txcarb22 = chem_index_table( PARAM_txcarb22 , idomain ) END IF chem_boundary_table( idomain, P_txcarb22 ) = .TRUE. chem_dname_table( idomain, P_txcarb22 ) = 'txcarb22' chem_desc_table( idomain, P_txcarb22 ) = 'TXCARB22 concentration' chem_units_table( idomain, P_txcarb22 ) = 'ppmv' chem_streams_table( idomain, P_txcarb22 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_txcarb22 )%stream(2) = 2097216 ! 00200040 F_txcarb22 = .TRUE. IF ( chem_index_table( PARAM_rtx22no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx22no3 , idomain ) = P_rtx22no3 ELSE P_rtx22no3 = chem_index_table( PARAM_rtx22no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx22no3 ) = .TRUE. chem_dname_table( idomain, P_rtx22no3 ) = 'rtx22no3' chem_desc_table( idomain, P_rtx22no3 ) = 'RTX22NO3 concentration' chem_units_table( idomain, P_rtx22no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx22no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx22no3 )%stream(2) = 2097216 ! 00200040 F_rtx22no3 = .TRUE. IF ( chem_index_table( PARAM_rtx22ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx22ooh , idomain ) = P_rtx22ooh ELSE P_rtx22ooh = chem_index_table( PARAM_rtx22ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx22ooh ) = .TRUE. chem_dname_table( idomain, P_rtx22ooh ) = 'rtx22ooh' chem_desc_table( idomain, P_rtx22ooh ) = 'RTX22OOH concentration' chem_units_table( idomain, P_rtx22ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx22ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx22ooh )%stream(2) = 2097216 ! 00200040 F_rtx22ooh = .TRUE. IF ( chem_index_table( PARAM_nrtx28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtx28ooh = chem_num_table(idomain) chem_index_table( PARAM_nrtx28ooh , idomain ) = P_nrtx28ooh ELSE P_nrtx28ooh = chem_index_table( PARAM_nrtx28ooh , idomain ) END IF chem_boundary_table( idomain, P_nrtx28ooh ) = .TRUE. chem_dname_table( idomain, P_nrtx28ooh ) = 'nrtx28ooh' chem_desc_table( idomain, P_nrtx28ooh ) = 'NRTX28OOH concentration' chem_units_table( idomain, P_nrtx28ooh ) = 'ppmv' chem_streams_table( idomain, P_nrtx28ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrtx28ooh )%stream(2) = 2097216 ! 00200040 F_nrtx28ooh = .TRUE. IF ( chem_index_table( PARAM_carb11a , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb11a = chem_num_table(idomain) chem_index_table( PARAM_carb11a , idomain ) = P_carb11a ELSE P_carb11a = chem_index_table( PARAM_carb11a , idomain ) END IF chem_boundary_table( idomain, P_carb11a ) = .TRUE. chem_dname_table( idomain, P_carb11a ) = 'carb11a' chem_desc_table( idomain, P_carb11a ) = 'CARB11A concentration' chem_units_table( idomain, P_carb11a ) = 'ppmv' chem_streams_table( idomain, P_carb11a )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_carb11a )%stream(2) = 2097216 ! 00200040 F_carb11a = .TRUE. IF ( chem_index_table( PARAM_anhy , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anhy = chem_num_table(idomain) chem_index_table( PARAM_anhy , idomain ) = P_anhy ELSE P_anhy = chem_index_table( PARAM_anhy , idomain ) END IF chem_boundary_table( idomain, P_anhy ) = .TRUE. chem_dname_table( idomain, P_anhy ) = 'anhy' chem_desc_table( idomain, P_anhy ) = 'ANHY concentration' chem_units_table( idomain, P_anhy ) = 'ppmv' chem_streams_table( idomain, P_anhy )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_anhy )%stream(2) = 2097216 ! 00200040 F_anhy = .TRUE. IF ( chem_index_table( PARAM_ch3o2no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2no2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2no2 , idomain ) = P_ch3o2no2 ELSE P_ch3o2no2 = chem_index_table( PARAM_ch3o2no2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2no2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2no2 ) = 'ch3o2no2' chem_desc_table( idomain, P_ch3o2no2 ) = 'CH3O2NO2 concentration' chem_units_table( idomain, P_ch3o2no2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2no2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3o2no2 )%stream(2) = 2097216 ! 00200040 F_ch3o2no2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 ! 00200040 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 ! 00200040 F_sulf = .TRUE. IF ( chem_index_table( PARAM_rtn23no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn23no3 , idomain ) = P_rtn23no3 ELSE P_rtn23no3 = chem_index_table( PARAM_rtn23no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn23no3 ) = .TRUE. chem_dname_table( idomain, P_rtn23no3 ) = 'rtn23no3' chem_desc_table( idomain, P_rtn23no3 ) = 'rtn23no3 concentration' chem_units_table( idomain, P_rtn23no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn23no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn23no3 )%stream(2) = 2097216 ! 00200040 F_rtn23no3 = .TRUE. IF ( chem_index_table( PARAM_tncarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb12 = chem_num_table(idomain) chem_index_table( PARAM_tncarb12 , idomain ) = P_tncarb12 ELSE P_tncarb12 = chem_index_table( PARAM_tncarb12 , idomain ) END IF chem_boundary_table( idomain, P_tncarb12 ) = .TRUE. chem_dname_table( idomain, P_tncarb12 ) = 'tncarb12' chem_desc_table( idomain, P_tncarb12 ) = 'tncarb12 concentration' chem_units_table( idomain, P_tncarb12 ) = 'ppmv' chem_streams_table( idomain, P_tncarb12 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tncarb12 )%stream(2) = 2097216 ! 00200040 F_tncarb12 = .TRUE. IF ( chem_index_table( PARAM_tncarb11 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb11 = chem_num_table(idomain) chem_index_table( PARAM_tncarb11 , idomain ) = P_tncarb11 ELSE P_tncarb11 = chem_index_table( PARAM_tncarb11 , idomain ) END IF chem_boundary_table( idomain, P_tncarb11 ) = .TRUE. chem_dname_table( idomain, P_tncarb11 ) = 'tncarb11' chem_desc_table( idomain, P_tncarb11 ) = 'tncarb11 concentration' chem_units_table( idomain, P_tncarb11 ) = 'ppmv' chem_streams_table( idomain, P_tncarb11 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tncarb11 )%stream(2) = 2097216 ! 00200040 F_tncarb11 = .TRUE. IF ( chem_index_table( PARAM_tm123b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm123b = chem_num_table(idomain) chem_index_table( PARAM_tm123b , idomain ) = P_tm123b ELSE P_tm123b = chem_index_table( PARAM_tm123b , idomain ) END IF chem_boundary_table( idomain, P_tm123b ) = .TRUE. chem_dname_table( idomain, P_tm123b ) = 'tm123b' chem_desc_table( idomain, P_tm123b ) = 'tm123b concentration' chem_units_table( idomain, P_tm123b ) = 'ppmv' chem_streams_table( idomain, P_tm123b )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tm123b )%stream(2) = 2097216 ! 00200040 F_tm123b = .TRUE. IF ( chem_index_table( PARAM_tm124b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm124b = chem_num_table(idomain) chem_index_table( PARAM_tm124b , idomain ) = P_tm124b ELSE P_tm124b = chem_index_table( PARAM_tm124b , idomain ) END IF chem_boundary_table( idomain, P_tm124b ) = .TRUE. chem_dname_table( idomain, P_tm124b ) = 'tm124b' chem_desc_table( idomain, P_tm124b ) = 'tm124b concentration' chem_units_table( idomain, P_tm124b ) = 'ppmv' chem_streams_table( idomain, P_tm124b )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tm124b )%stream(2) = 2097216 ! 00200040 F_tm124b = .TRUE. IF ( chem_index_table( PARAM_tm135b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm135b = chem_num_table(idomain) chem_index_table( PARAM_tm135b , idomain ) = P_tm135b ELSE P_tm135b = chem_index_table( PARAM_tm135b , idomain ) END IF chem_boundary_table( idomain, P_tm135b ) = .TRUE. chem_dname_table( idomain, P_tm135b ) = 'tm135b' chem_desc_table( idomain, P_tm135b ) = 'tm135b concentration' chem_units_table( idomain, P_tm135b ) = 'ppmv' chem_streams_table( idomain, P_tm135b )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_tm135b )%stream(2) = 2097216 ! 00200040 F_tm135b = .TRUE. IF ( chem_index_table( PARAM_oethtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oethtol = chem_num_table(idomain) chem_index_table( PARAM_oethtol , idomain ) = P_oethtol ELSE P_oethtol = chem_index_table( PARAM_oethtol , idomain ) END IF chem_boundary_table( idomain, P_oethtol ) = .TRUE. chem_dname_table( idomain, P_oethtol ) = 'oethtol' chem_desc_table( idomain, P_oethtol ) = 'oethtol concentration' chem_units_table( idomain, P_oethtol ) = 'ppmv' chem_streams_table( idomain, P_oethtol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oethtol )%stream(2) = 2097216 ! 00200040 F_oethtol = .TRUE. IF ( chem_index_table( PARAM_methtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_methtol = chem_num_table(idomain) chem_index_table( PARAM_methtol , idomain ) = P_methtol ELSE P_methtol = chem_index_table( PARAM_methtol , idomain ) END IF chem_boundary_table( idomain, P_methtol ) = .TRUE. chem_dname_table( idomain, P_methtol ) = 'methtol' chem_desc_table( idomain, P_methtol ) = 'methtol concentration' chem_units_table( idomain, P_methtol ) = 'ppmv' chem_streams_table( idomain, P_methtol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_methtol )%stream(2) = 2097216 ! 00200040 F_methtol = .TRUE. IF ( chem_index_table( PARAM_pethtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pethtol = chem_num_table(idomain) chem_index_table( PARAM_pethtol , idomain ) = P_pethtol ELSE P_pethtol = chem_index_table( PARAM_pethtol , idomain ) END IF chem_boundary_table( idomain, P_pethtol ) = .TRUE. chem_dname_table( idomain, P_pethtol ) = 'pethtol' chem_desc_table( idomain, P_pethtol ) = 'pethtol concentration' chem_units_table( idomain, P_pethtol ) = 'ppmv' chem_streams_table( idomain, P_pethtol )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_pethtol )%stream(2) = 2097216 ! 00200040 F_pethtol = .TRUE. IF ( chem_index_table( PARAM_ra22no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22no3 = chem_num_table(idomain) chem_index_table( PARAM_ra22no3 , idomain ) = P_ra22no3 ELSE P_ra22no3 = chem_index_table( PARAM_ra22no3 , idomain ) END IF chem_boundary_table( idomain, P_ra22no3 ) = .TRUE. chem_dname_table( idomain, P_ra22no3 ) = 'ra22no3' chem_desc_table( idomain, P_ra22no3 ) = 'ra22no3 concentration' chem_units_table( idomain, P_ra22no3 ) = 'ppmv' chem_streams_table( idomain, P_ra22no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra22no3 )%stream(2) = 2097216 ! 00200040 F_ra22no3 = .TRUE. IF ( chem_index_table( PARAM_ra22ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22ooh = chem_num_table(idomain) chem_index_table( PARAM_ra22ooh , idomain ) = P_ra22ooh ELSE P_ra22ooh = chem_index_table( PARAM_ra22ooh , idomain ) END IF chem_boundary_table( idomain, P_ra22ooh ) = .TRUE. chem_dname_table( idomain, P_ra22ooh ) = 'ra22ooh' chem_desc_table( idomain, P_ra22ooh ) = 'ra22ooh concentration' chem_units_table( idomain, P_ra22ooh ) = 'ppmv' chem_streams_table( idomain, P_ra22ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra22ooh )%stream(2) = 2097216 ! 00200040 F_ra22ooh = .TRUE. IF ( chem_index_table( PARAM_dime35eb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dime35eb = chem_num_table(idomain) chem_index_table( PARAM_dime35eb , idomain ) = P_dime35eb ELSE P_dime35eb = chem_index_table( PARAM_dime35eb , idomain ) END IF chem_boundary_table( idomain, P_dime35eb ) = .TRUE. chem_dname_table( idomain, P_dime35eb ) = 'dime35eb' chem_desc_table( idomain, P_dime35eb ) = 'dime35eb concentration' chem_units_table( idomain, P_dime35eb ) = 'ppmv' chem_streams_table( idomain, P_dime35eb )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_dime35eb )%stream(2) = 2097216 ! 00200040 F_dime35eb = .TRUE. IF ( chem_index_table( PARAM_ra25no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25no3 = chem_num_table(idomain) chem_index_table( PARAM_ra25no3 , idomain ) = P_ra25no3 ELSE P_ra25no3 = chem_index_table( PARAM_ra25no3 , idomain ) END IF chem_boundary_table( idomain, P_ra25no3 ) = .TRUE. chem_dname_table( idomain, P_ra25no3 ) = 'ra25no3' chem_desc_table( idomain, P_ra25no3 ) = 'ra25no3 concentration' chem_units_table( idomain, P_ra25no3 ) = 'ppmv' chem_streams_table( idomain, P_ra25no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra25no3 )%stream(2) = 2097216 ! 00200040 F_ra25no3 = .TRUE. IF ( chem_index_table( PARAM_udcarb17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb17 = chem_num_table(idomain) chem_index_table( PARAM_udcarb17 , idomain ) = P_udcarb17 ELSE P_udcarb17 = chem_index_table( PARAM_udcarb17 , idomain ) END IF chem_boundary_table( idomain, P_udcarb17 ) = .TRUE. chem_dname_table( idomain, P_udcarb17 ) = 'udcarb17' chem_desc_table( idomain, P_udcarb17 ) = 'udcarb17 concentration' chem_units_table( idomain, P_udcarb17 ) = 'ppmv' chem_streams_table( idomain, P_udcarb17 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_udcarb17 )%stream(2) = 2097216 ! 00200040 F_udcarb17 = .TRUE. IF ( chem_index_table( PARAM_ra25ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25ooh = chem_num_table(idomain) chem_index_table( PARAM_ra25ooh , idomain ) = P_ra25ooh ELSE P_ra25ooh = chem_index_table( PARAM_ra25ooh , idomain ) END IF chem_boundary_table( idomain, P_ra25ooh ) = .TRUE. chem_dname_table( idomain, P_ra25ooh ) = 'ra25ooh' chem_desc_table( idomain, P_ra25ooh ) = 'ra25ooh concentration' chem_units_table( idomain, P_ra25ooh ) = 'ppmv' chem_streams_table( idomain, P_ra25ooh )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra25ooh )%stream(2) = 2097216 ! 00200040 F_ra25ooh = .TRUE. IF ( chem_index_table( PARAM_clno2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clno2 = chem_num_table(idomain) chem_index_table( PARAM_clno2 , idomain ) = P_clno2 ELSE P_clno2 = chem_index_table( PARAM_clno2 , idomain ) END IF chem_boundary_table( idomain, P_clno2 ) = .TRUE. chem_dname_table( idomain, P_clno2 ) = 'clno2' chem_desc_table( idomain, P_clno2 ) = 'ClNO2 concentration' chem_units_table( idomain, P_clno2 ) = 'ppmv' chem_streams_table( idomain, P_clno2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_clno2 )%stream(2) = 2097216 ! 00200040 F_clno2 = .TRUE. IF ( chem_index_table( PARAM_ch3oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oo = chem_num_table(idomain) chem_index_table( PARAM_ch3oo , idomain ) = P_ch3oo ELSE P_ch3oo = chem_index_table( PARAM_ch3oo , idomain ) END IF chem_boundary_table( idomain, P_ch3oo ) = .TRUE. chem_dname_table( idomain, P_ch3oo ) = 'ch3oo' chem_desc_table( idomain, P_ch3oo ) = 'CH3OO concentration' chem_units_table( idomain, P_ch3oo ) = 'ppmv' chem_streams_table( idomain, P_ch3oo )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ch3oo )%stream(2) = 2097216 ! 00200040 F_ch3oo = .TRUE. IF ( chem_index_table( PARAM_c2h5o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5o2 = chem_num_table(idomain) chem_index_table( PARAM_c2h5o2 , idomain ) = P_c2h5o2 ELSE P_c2h5o2 = chem_index_table( PARAM_c2h5o2 , idomain ) END IF chem_boundary_table( idomain, P_c2h5o2 ) = .TRUE. chem_dname_table( idomain, P_c2h5o2 ) = 'c2h5o2' chem_desc_table( idomain, P_c2h5o2 ) = 'C2H5O2 concentration' chem_units_table( idomain, P_c2h5o2 ) = 'ppmv' chem_streams_table( idomain, P_c2h5o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_c2h5o2 )%stream(2) = 2097216 ! 00200040 F_c2h5o2 = .TRUE. IF ( chem_index_table( PARAM_hoch2ch2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2ch2o2 = chem_num_table(idomain) chem_index_table( PARAM_hoch2ch2o2 , idomain ) = P_hoch2ch2o2 ELSE P_hoch2ch2o2 = chem_index_table( PARAM_hoch2ch2o2 , idomain ) END IF chem_boundary_table( idomain, P_hoch2ch2o2 ) = .TRUE. chem_dname_table( idomain, P_hoch2ch2o2 ) = 'hoch2ch2o2' chem_desc_table( idomain, P_hoch2ch2o2 ) = 'HOCH2CH2O2 concentration' chem_units_table( idomain, P_hoch2ch2o2 ) = 'ppmv' chem_streams_table( idomain, P_hoch2ch2o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hoch2ch2o2 )%stream(2) = 2097216 ! 00200040 F_hoch2ch2o2 = .TRUE. IF ( chem_index_table( PARAM_ic3h7o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ic3h7o2 = chem_num_table(idomain) chem_index_table( PARAM_ic3h7o2 , idomain ) = P_ic3h7o2 ELSE P_ic3h7o2 = chem_index_table( PARAM_ic3h7o2 , idomain ) END IF chem_boundary_table( idomain, P_ic3h7o2 ) = .TRUE. chem_dname_table( idomain, P_ic3h7o2 ) = 'ic3h7o2' chem_desc_table( idomain, P_ic3h7o2 ) = 'IC3H7O2 concentration' chem_units_table( idomain, P_ic3h7o2 ) = 'ppmv' chem_streams_table( idomain, P_ic3h7o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ic3h7o2 )%stream(2) = 2097216 ! 00200040 F_ic3h7o2 = .TRUE. IF ( chem_index_table( PARAM_rn10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10o2 = chem_num_table(idomain) chem_index_table( PARAM_rn10o2 , idomain ) = P_rn10o2 ELSE P_rn10o2 = chem_index_table( PARAM_rn10o2 , idomain ) END IF chem_boundary_table( idomain, P_rn10o2 ) = .TRUE. chem_dname_table( idomain, P_rn10o2 ) = 'rn10o2' chem_desc_table( idomain, P_rn10o2 ) = 'RN10O2 concentration' chem_units_table( idomain, P_rn10o2 ) = 'ppmv' chem_streams_table( idomain, P_rn10o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn10o2 )%stream(2) = 2097216 ! 00200040 F_rn10o2 = .TRUE. IF ( chem_index_table( PARAM_rn13o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13o2 = chem_num_table(idomain) chem_index_table( PARAM_rn13o2 , idomain ) = P_rn13o2 ELSE P_rn13o2 = chem_index_table( PARAM_rn13o2 , idomain ) END IF chem_boundary_table( idomain, P_rn13o2 ) = .TRUE. chem_dname_table( idomain, P_rn13o2 ) = 'rn13o2' chem_desc_table( idomain, P_rn13o2 ) = 'RN13O2 concentration' chem_units_table( idomain, P_rn13o2 ) = 'ppmv' chem_streams_table( idomain, P_rn13o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn13o2 )%stream(2) = 2097216 ! 00200040 F_rn13o2 = .TRUE. IF ( chem_index_table( PARAM_rn16o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16o2 = chem_num_table(idomain) chem_index_table( PARAM_rn16o2 , idomain ) = P_rn16o2 ELSE P_rn16o2 = chem_index_table( PARAM_rn16o2 , idomain ) END IF chem_boundary_table( idomain, P_rn16o2 ) = .TRUE. chem_dname_table( idomain, P_rn16o2 ) = 'rn16o2' chem_desc_table( idomain, P_rn16o2 ) = 'RN16O2 concentration' chem_units_table( idomain, P_rn16o2 ) = 'ppmv' chem_streams_table( idomain, P_rn16o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn16o2 )%stream(2) = 2097216 ! 00200040 F_rn16o2 = .TRUE. IF ( chem_index_table( PARAM_rn19o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19o2 = chem_num_table(idomain) chem_index_table( PARAM_rn19o2 , idomain ) = P_rn19o2 ELSE P_rn19o2 = chem_index_table( PARAM_rn19o2 , idomain ) END IF chem_boundary_table( idomain, P_rn19o2 ) = .TRUE. chem_dname_table( idomain, P_rn19o2 ) = 'rn19o2' chem_desc_table( idomain, P_rn19o2 ) = 'RN19O2 concentration' chem_units_table( idomain, P_rn19o2 ) = 'ppmv' chem_streams_table( idomain, P_rn19o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn19o2 )%stream(2) = 2097216 ! 00200040 F_rn19o2 = .TRUE. IF ( chem_index_table( PARAM_rn9o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9o2 = chem_num_table(idomain) chem_index_table( PARAM_rn9o2 , idomain ) = P_rn9o2 ELSE P_rn9o2 = chem_index_table( PARAM_rn9o2 , idomain ) END IF chem_boundary_table( idomain, P_rn9o2 ) = .TRUE. chem_dname_table( idomain, P_rn9o2 ) = 'rn9o2' chem_desc_table( idomain, P_rn9o2 ) = 'RN9O2 concentration' chem_units_table( idomain, P_rn9o2 ) = 'ppmv' chem_streams_table( idomain, P_rn9o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn9o2 )%stream(2) = 2097216 ! 00200040 F_rn9o2 = .TRUE. IF ( chem_index_table( PARAM_rn12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12o2 = chem_num_table(idomain) chem_index_table( PARAM_rn12o2 , idomain ) = P_rn12o2 ELSE P_rn12o2 = chem_index_table( PARAM_rn12o2 , idomain ) END IF chem_boundary_table( idomain, P_rn12o2 ) = .TRUE. chem_dname_table( idomain, P_rn12o2 ) = 'rn12o2' chem_desc_table( idomain, P_rn12o2 ) = 'RN12O2 concentration' chem_units_table( idomain, P_rn12o2 ) = 'ppmv' chem_streams_table( idomain, P_rn12o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn12o2 )%stream(2) = 2097216 ! 00200040 F_rn12o2 = .TRUE. IF ( chem_index_table( PARAM_rn15o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15o2 = chem_num_table(idomain) chem_index_table( PARAM_rn15o2 , idomain ) = P_rn15o2 ELSE P_rn15o2 = chem_index_table( PARAM_rn15o2 , idomain ) END IF chem_boundary_table( idomain, P_rn15o2 ) = .TRUE. chem_dname_table( idomain, P_rn15o2 ) = 'rn15o2' chem_desc_table( idomain, P_rn15o2 ) = 'RN15O2 concentration' chem_units_table( idomain, P_rn15o2 ) = 'ppmv' chem_streams_table( idomain, P_rn15o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn15o2 )%stream(2) = 2097216 ! 00200040 F_rn15o2 = .TRUE. IF ( chem_index_table( PARAM_rn18o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18o2 = chem_num_table(idomain) chem_index_table( PARAM_rn18o2 , idomain ) = P_rn18o2 ELSE P_rn18o2 = chem_index_table( PARAM_rn18o2 , idomain ) END IF chem_boundary_table( idomain, P_rn18o2 ) = .TRUE. chem_dname_table( idomain, P_rn18o2 ) = 'rn18o2' chem_desc_table( idomain, P_rn18o2 ) = 'RN18O2 concentration' chem_units_table( idomain, P_rn18o2 ) = 'ppmv' chem_streams_table( idomain, P_rn18o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn18o2 )%stream(2) = 2097216 ! 00200040 F_rn18o2 = .TRUE. IF ( chem_index_table( PARAM_nrn6o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn6o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn6o2 , idomain ) = P_nrn6o2 ELSE P_nrn6o2 = chem_index_table( PARAM_nrn6o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn6o2 ) = .TRUE. chem_dname_table( idomain, P_nrn6o2 ) = 'nrn6o2' chem_desc_table( idomain, P_nrn6o2 ) = 'NRN6O2 concentration' chem_units_table( idomain, P_nrn6o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn6o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn6o2 )%stream(2) = 2097216 ! 00200040 F_nrn6o2 = .TRUE. IF ( chem_index_table( PARAM_nrn9o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn9o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn9o2 , idomain ) = P_nrn9o2 ELSE P_nrn9o2 = chem_index_table( PARAM_nrn9o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn9o2 ) = .TRUE. chem_dname_table( idomain, P_nrn9o2 ) = 'nrn9o2' chem_desc_table( idomain, P_nrn9o2 ) = 'NRN9O2 concentration' chem_units_table( idomain, P_nrn9o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn9o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn9o2 )%stream(2) = 2097216 ! 00200040 F_nrn9o2 = .TRUE. IF ( chem_index_table( PARAM_nrn12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn12o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn12o2 , idomain ) = P_nrn12o2 ELSE P_nrn12o2 = chem_index_table( PARAM_nrn12o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn12o2 ) = .TRUE. chem_dname_table( idomain, P_nrn12o2 ) = 'nrn12o2' chem_desc_table( idomain, P_nrn12o2 ) = 'NRN12O2 concentration' chem_units_table( idomain, P_nrn12o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn12o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrn12o2 )%stream(2) = 2097216 ! 00200040 F_nrn12o2 = .TRUE. IF ( chem_index_table( PARAM_rn11o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn11o2 = chem_num_table(idomain) chem_index_table( PARAM_rn11o2 , idomain ) = P_rn11o2 ELSE P_rn11o2 = chem_index_table( PARAM_rn11o2 , idomain ) END IF chem_boundary_table( idomain, P_rn11o2 ) = .TRUE. chem_dname_table( idomain, P_rn11o2 ) = 'rn11o2' chem_desc_table( idomain, P_rn11o2 ) = 'RN11O2 concentration' chem_units_table( idomain, P_rn11o2 ) = 'ppmv' chem_streams_table( idomain, P_rn11o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn11o2 )%stream(2) = 2097216 ! 00200040 F_rn11o2 = .TRUE. IF ( chem_index_table( PARAM_rn14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn14o2 = chem_num_table(idomain) chem_index_table( PARAM_rn14o2 , idomain ) = P_rn14o2 ELSE P_rn14o2 = chem_index_table( PARAM_rn14o2 , idomain ) END IF chem_boundary_table( idomain, P_rn14o2 ) = .TRUE. chem_dname_table( idomain, P_rn14o2 ) = 'rn14o2' chem_desc_table( idomain, P_rn14o2 ) = 'RN14O2 concentration' chem_units_table( idomain, P_rn14o2 ) = 'ppmv' chem_streams_table( idomain, P_rn14o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn14o2 )%stream(2) = 2097216 ! 00200040 F_rn14o2 = .TRUE. IF ( chem_index_table( PARAM_rn8o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn8o2 = chem_num_table(idomain) chem_index_table( PARAM_rn8o2 , idomain ) = P_rn8o2 ELSE P_rn8o2 = chem_index_table( PARAM_rn8o2 , idomain ) END IF chem_boundary_table( idomain, P_rn8o2 ) = .TRUE. chem_dname_table( idomain, P_rn8o2 ) = 'rn8o2' chem_desc_table( idomain, P_rn8o2 ) = 'RN8O2 concentration' chem_units_table( idomain, P_rn8o2 ) = 'ppmv' chem_streams_table( idomain, P_rn8o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn8o2 )%stream(2) = 2097216 ! 00200040 F_rn8o2 = .TRUE. IF ( chem_index_table( PARAM_rn17o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn17o2 = chem_num_table(idomain) chem_index_table( PARAM_rn17o2 , idomain ) = P_rn17o2 ELSE P_rn17o2 = chem_index_table( PARAM_rn17o2 , idomain ) END IF chem_boundary_table( idomain, P_rn17o2 ) = .TRUE. chem_dname_table( idomain, P_rn17o2 ) = 'rn17o2' chem_desc_table( idomain, P_rn17o2 ) = 'RN17O2 concentration' chem_units_table( idomain, P_rn17o2 ) = 'ppmv' chem_streams_table( idomain, P_rn17o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn17o2 )%stream(2) = 2097216 ! 00200040 F_rn17o2 = .TRUE. IF ( chem_index_table( PARAM_rn13ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn13ao2 , idomain ) = P_rn13ao2 ELSE P_rn13ao2 = chem_index_table( PARAM_rn13ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn13ao2 ) = .TRUE. chem_dname_table( idomain, P_rn13ao2 ) = 'rn13ao2' chem_desc_table( idomain, P_rn13ao2 ) = 'RN13AO2 concentration' chem_units_table( idomain, P_rn13ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn13ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn13ao2 )%stream(2) = 2097216 ! 00200040 F_rn13ao2 = .TRUE. IF ( chem_index_table( PARAM_rn16ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn16ao2 , idomain ) = P_rn16ao2 ELSE P_rn16ao2 = chem_index_table( PARAM_rn16ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn16ao2 ) = .TRUE. chem_dname_table( idomain, P_rn16ao2 ) = 'rn16ao2' chem_desc_table( idomain, P_rn16ao2 ) = 'RN16AO2 concentration' chem_units_table( idomain, P_rn16ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn16ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn16ao2 )%stream(2) = 2097216 ! 00200040 F_rn16ao2 = .TRUE. IF ( chem_index_table( PARAM_rn15ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn15ao2 , idomain ) = P_rn15ao2 ELSE P_rn15ao2 = chem_index_table( PARAM_rn15ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn15ao2 ) = .TRUE. chem_dname_table( idomain, P_rn15ao2 ) = 'rn15ao2' chem_desc_table( idomain, P_rn15ao2 ) = 'RN15AO2 concentration' chem_units_table( idomain, P_rn15ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn15ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn15ao2 )%stream(2) = 2097216 ! 00200040 F_rn15ao2 = .TRUE. IF ( chem_index_table( PARAM_rn18ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn18ao2 , idomain ) = P_rn18ao2 ELSE P_rn18ao2 = chem_index_table( PARAM_rn18ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn18ao2 ) = .TRUE. chem_dname_table( idomain, P_rn18ao2 ) = 'rn18ao2' chem_desc_table( idomain, P_rn18ao2 ) = 'RN18AO2 concentration' chem_units_table( idomain, P_rn18ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn18ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rn18ao2 )%stream(2) = 2097216 ! 00200040 F_rn18ao2 = .TRUE. IF ( chem_index_table( PARAM_ru10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru10o2 = chem_num_table(idomain) chem_index_table( PARAM_ru10o2 , idomain ) = P_ru10o2 ELSE P_ru10o2 = chem_index_table( PARAM_ru10o2 , idomain ) END IF chem_boundary_table( idomain, P_ru10o2 ) = .TRUE. chem_dname_table( idomain, P_ru10o2 ) = 'ru10o2' chem_desc_table( idomain, P_ru10o2 ) = 'RU10O2 concentration' chem_units_table( idomain, P_ru10o2 ) = 'ppmv' chem_streams_table( idomain, P_ru10o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru10o2 )%stream(2) = 2097216 ! 00200040 F_ru10o2 = .TRUE. IF ( chem_index_table( PARAM_nru14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru14o2 = chem_num_table(idomain) chem_index_table( PARAM_nru14o2 , idomain ) = P_nru14o2 ELSE P_nru14o2 = chem_index_table( PARAM_nru14o2 , idomain ) END IF chem_boundary_table( idomain, P_nru14o2 ) = .TRUE. chem_dname_table( idomain, P_nru14o2 ) = 'nru14o2' chem_desc_table( idomain, P_nru14o2 ) = 'NRU14O2 concentration' chem_units_table( idomain, P_nru14o2 ) = 'ppmv' chem_streams_table( idomain, P_nru14o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nru14o2 )%stream(2) = 2097216 ! 00200040 F_nru14o2 = .TRUE. IF ( chem_index_table( PARAM_nru12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru12o2 = chem_num_table(idomain) chem_index_table( PARAM_nru12o2 , idomain ) = P_nru12o2 ELSE P_nru12o2 = chem_index_table( PARAM_nru12o2 , idomain ) END IF chem_boundary_table( idomain, P_nru12o2 ) = .TRUE. chem_dname_table( idomain, P_nru12o2 ) = 'nru12o2' chem_desc_table( idomain, P_nru12o2 ) = 'NRU12O2 concentration' chem_units_table( idomain, P_nru12o2 ) = 'ppmv' chem_streams_table( idomain, P_nru12o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nru12o2 )%stream(2) = 2097216 ! 00200040 F_nru12o2 = .TRUE. IF ( chem_index_table( PARAM_ra13o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13o2 = chem_num_table(idomain) chem_index_table( PARAM_ra13o2 , idomain ) = P_ra13o2 ELSE P_ra13o2 = chem_index_table( PARAM_ra13o2 , idomain ) END IF chem_boundary_table( idomain, P_ra13o2 ) = .TRUE. chem_dname_table( idomain, P_ra13o2 ) = 'ra13o2' chem_desc_table( idomain, P_ra13o2 ) = 'RA13O2 concentration' chem_units_table( idomain, P_ra13o2 ) = 'ppmv' chem_streams_table( idomain, P_ra13o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra13o2 )%stream(2) = 2097216 ! 00200040 F_ra13o2 = .TRUE. IF ( chem_index_table( PARAM_nrtx28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtx28o2 = chem_num_table(idomain) chem_index_table( PARAM_nrtx28o2 , idomain ) = P_nrtx28o2 ELSE P_nrtx28o2 = chem_index_table( PARAM_nrtx28o2 , idomain ) END IF chem_boundary_table( idomain, P_nrtx28o2 ) = .TRUE. chem_dname_table( idomain, P_nrtx28o2 ) = 'nrtx28o2' chem_desc_table( idomain, P_nrtx28o2 ) = 'NRTX28O2 concentration' chem_units_table( idomain, P_nrtx28o2 ) = 'ppmv' chem_streams_table( idomain, P_nrtx28o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrtx28o2 )%stream(2) = 2097216 ! 00200040 F_nrtx28o2 = .TRUE. IF ( chem_index_table( PARAM_rtx24o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx24o2 , idomain ) = P_rtx24o2 ELSE P_rtx24o2 = chem_index_table( PARAM_rtx24o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx24o2 ) = .TRUE. chem_dname_table( idomain, P_rtx24o2 ) = 'rtx24o2' chem_desc_table( idomain, P_rtx24o2 ) = 'RTX24O2 concentration' chem_units_table( idomain, P_rtx24o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx24o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx24o2 )%stream(2) = 2097216 ! 00200040 F_rtx24o2 = .TRUE. IF ( chem_index_table( PARAM_rtx28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx28o2 , idomain ) = P_rtx28o2 ELSE P_rtx28o2 = chem_index_table( PARAM_rtx28o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx28o2 ) = .TRUE. chem_dname_table( idomain, P_rtx28o2 ) = 'rtx28o2' chem_desc_table( idomain, P_rtx28o2 ) = 'RTX28O2 concentration' chem_units_table( idomain, P_rtx28o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx28o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx28o2 )%stream(2) = 2097216 ! 00200040 F_rtx28o2 = .TRUE. IF ( chem_index_table( PARAM_rtn25o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn25o2 , idomain ) = P_rtn25o2 ELSE P_rtn25o2 = chem_index_table( PARAM_rtn25o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn25o2 ) = .TRUE. chem_dname_table( idomain, P_rtn25o2 ) = 'rtn25o2' chem_desc_table( idomain, P_rtn25o2 ) = 'RTN25O2 concentration' chem_units_table( idomain, P_rtn25o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn25o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn25o2 )%stream(2) = 2097216 ! 00200040 F_rtn25o2 = .TRUE. IF ( chem_index_table( PARAM_rtn24o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn24o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn24o2 , idomain ) = P_rtn24o2 ELSE P_rtn24o2 = chem_index_table( PARAM_rtn24o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn24o2 ) = .TRUE. chem_dname_table( idomain, P_rtn24o2 ) = 'rtn24o2' chem_desc_table( idomain, P_rtn24o2 ) = 'RTN24O2 concentration' chem_units_table( idomain, P_rtn24o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn24o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn24o2 )%stream(2) = 2097216 ! 00200040 F_rtn24o2 = .TRUE. IF ( chem_index_table( PARAM_rtn23o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn23o2 , idomain ) = P_rtn23o2 ELSE P_rtn23o2 = chem_index_table( PARAM_rtn23o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn23o2 ) = .TRUE. chem_dname_table( idomain, P_rtn23o2 ) = 'rtn23o2' chem_desc_table( idomain, P_rtn23o2 ) = 'RTN23O2 concentration' chem_units_table( idomain, P_rtn23o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn23o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn23o2 )%stream(2) = 2097216 ! 00200040 F_rtn23o2 = .TRUE. IF ( chem_index_table( PARAM_rtn14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn14o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn14o2 , idomain ) = P_rtn14o2 ELSE P_rtn14o2 = chem_index_table( PARAM_rtn14o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn14o2 ) = .TRUE. chem_dname_table( idomain, P_rtn14o2 ) = 'rtn14o2' chem_desc_table( idomain, P_rtn14o2 ) = 'RTN14O2 concentration' chem_units_table( idomain, P_rtn14o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn14o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn14o2 )%stream(2) = 2097216 ! 00200040 F_rtn14o2 = .TRUE. IF ( chem_index_table( PARAM_rtn10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn10o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn10o2 , idomain ) = P_rtn10o2 ELSE P_rtn10o2 = chem_index_table( PARAM_rtn10o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn10o2 ) = .TRUE. chem_dname_table( idomain, P_rtn10o2 ) = 'rtn10o2' chem_desc_table( idomain, P_rtn10o2 ) = 'RTN10O2 concentration' chem_units_table( idomain, P_rtn10o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn10o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn10o2 )%stream(2) = 2097216 ! 00200040 F_rtn10o2 = .TRUE. IF ( chem_index_table( PARAM_nrtn28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtn28o2 = chem_num_table(idomain) chem_index_table( PARAM_nrtn28o2 , idomain ) = P_nrtn28o2 ELSE P_nrtn28o2 = chem_index_table( PARAM_nrtn28o2 , idomain ) END IF chem_boundary_table( idomain, P_nrtn28o2 ) = .TRUE. chem_dname_table( idomain, P_nrtn28o2 ) = 'nrtn28o2' chem_desc_table( idomain, P_nrtn28o2 ) = 'NRTN28O2 concentration' chem_units_table( idomain, P_nrtn28o2 ) = 'ppmv' chem_streams_table( idomain, P_nrtn28o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nrtn28o2 )%stream(2) = 2097216 ! 00200040 F_nrtn28o2 = .TRUE. IF ( chem_index_table( PARAM_rtn26o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn26o2 , idomain ) = P_rtn26o2 ELSE P_rtn26o2 = chem_index_table( PARAM_rtn26o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn26o2 ) = .TRUE. chem_dname_table( idomain, P_rtn26o2 ) = 'rtn26o2' chem_desc_table( idomain, P_rtn26o2 ) = 'RTN26O2 concentration' chem_units_table( idomain, P_rtn26o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn26o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn26o2 )%stream(2) = 2097216 ! 00200040 F_rtn26o2 = .TRUE. IF ( chem_index_table( PARAM_rtn28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn28o2 , idomain ) = P_rtn28o2 ELSE P_rtn28o2 = chem_index_table( PARAM_rtn28o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn28o2 ) = .TRUE. chem_dname_table( idomain, P_rtn28o2 ) = 'rtn28o2' chem_desc_table( idomain, P_rtn28o2 ) = 'RTN28O2 concentration' chem_units_table( idomain, P_rtn28o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn28o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtn28o2 )%stream(2) = 2097216 ! 00200040 F_rtn28o2 = .TRUE. IF ( chem_index_table( PARAM_ra19ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19ao2 = chem_num_table(idomain) chem_index_table( PARAM_ra19ao2 , idomain ) = P_ra19ao2 ELSE P_ra19ao2 = chem_index_table( PARAM_ra19ao2 , idomain ) END IF chem_boundary_table( idomain, P_ra19ao2 ) = .TRUE. chem_dname_table( idomain, P_ra19ao2 ) = 'ra19ao2' chem_desc_table( idomain, P_ra19ao2 ) = 'RA19AO2 concentration' chem_units_table( idomain, P_ra19ao2 ) = 'ppmv' chem_streams_table( idomain, P_ra19ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra19ao2 )%stream(2) = 2097216 ! 00200040 F_ra19ao2 = .TRUE. IF ( chem_index_table( PARAM_ru14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14o2 = chem_num_table(idomain) chem_index_table( PARAM_ru14o2 , idomain ) = P_ru14o2 ELSE P_ru14o2 = chem_index_table( PARAM_ru14o2 , idomain ) END IF chem_boundary_table( idomain, P_ru14o2 ) = .TRUE. chem_dname_table( idomain, P_ru14o2 ) = 'ru14o2' chem_desc_table( idomain, P_ru14o2 ) = 'RU14O2 concentration' chem_units_table( idomain, P_ru14o2 ) = 'ppmv' chem_streams_table( idomain, P_ru14o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru14o2 )%stream(2) = 2097216 ! 00200040 F_ru14o2 = .TRUE. IF ( chem_index_table( PARAM_ru12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12o2 = chem_num_table(idomain) chem_index_table( PARAM_ru12o2 , idomain ) = P_ru12o2 ELSE P_ru12o2 = chem_index_table( PARAM_ru12o2 , idomain ) END IF chem_boundary_table( idomain, P_ru12o2 ) = .TRUE. chem_dname_table( idomain, P_ru12o2 ) = 'ru12o2' chem_desc_table( idomain, P_ru12o2 ) = 'RU12O2 concentration' chem_units_table( idomain, P_ru12o2 ) = 'ppmv' chem_streams_table( idomain, P_ru12o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ru12o2 )%stream(2) = 2097216 ! 00200040 F_ru12o2 = .TRUE. IF ( chem_index_table( PARAM_ra16o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16o2 = chem_num_table(idomain) chem_index_table( PARAM_ra16o2 , idomain ) = P_ra16o2 ELSE P_ra16o2 = chem_index_table( PARAM_ra16o2 , idomain ) END IF chem_boundary_table( idomain, P_ra16o2 ) = .TRUE. chem_dname_table( idomain, P_ra16o2 ) = 'ra16o2' chem_desc_table( idomain, P_ra16o2 ) = 'RA16O2 concentration' chem_units_table( idomain, P_ra16o2 ) = 'ppmv' chem_streams_table( idomain, P_ra16o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra16o2 )%stream(2) = 2097216 ! 00200040 F_ra16o2 = .TRUE. IF ( chem_index_table( PARAM_rtx22o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx22o2 , idomain ) = P_rtx22o2 ELSE P_rtx22o2 = chem_index_table( PARAM_rtx22o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx22o2 ) = .TRUE. chem_dname_table( idomain, P_rtx22o2 ) = 'rtx22o2' chem_desc_table( idomain, P_rtx22o2 ) = 'RTX22O2 concentration' chem_units_table( idomain, P_rtx22o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx22o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_rtx22o2 )%stream(2) = 2097216 ! 00200040 F_rtx22o2 = .TRUE. IF ( chem_index_table( PARAM_ra22ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22ao2 = chem_num_table(idomain) chem_index_table( PARAM_ra22ao2 , idomain ) = P_ra22ao2 ELSE P_ra22ao2 = chem_index_table( PARAM_ra22ao2 , idomain ) END IF chem_boundary_table( idomain, P_ra22ao2 ) = .TRUE. chem_dname_table( idomain, P_ra22ao2 ) = 'ra22ao2' chem_desc_table( idomain, P_ra22ao2 ) = 'RA22AO2 concentration' chem_units_table( idomain, P_ra22ao2 ) = 'ppmv' chem_streams_table( idomain, P_ra22ao2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra22ao2 )%stream(2) = 2097216 ! 00200040 F_ra22ao2 = .TRUE. IF ( chem_index_table( PARAM_ra22bo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22bo2 = chem_num_table(idomain) chem_index_table( PARAM_ra22bo2 , idomain ) = P_ra22bo2 ELSE P_ra22bo2 = chem_index_table( PARAM_ra22bo2 , idomain ) END IF chem_boundary_table( idomain, P_ra22bo2 ) = .TRUE. chem_dname_table( idomain, P_ra22bo2 ) = 'ra22bo2' chem_desc_table( idomain, P_ra22bo2 ) = 'RA22BO2 concentration' chem_units_table( idomain, P_ra22bo2 ) = 'ppmv' chem_streams_table( idomain, P_ra22bo2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra22bo2 )%stream(2) = 2097216 ! 00200040 F_ra22bo2 = .TRUE. IF ( chem_index_table( PARAM_ra25o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25o2 = chem_num_table(idomain) chem_index_table( PARAM_ra25o2 , idomain ) = P_ra25o2 ELSE P_ra25o2 = chem_index_table( PARAM_ra25o2 , idomain ) END IF chem_boundary_table( idomain, P_ra25o2 ) = .TRUE. chem_dname_table( idomain, P_ra25o2 ) = 'ra25o2' chem_desc_table( idomain, P_ra25o2 ) = 'RA25O2 concentration' chem_units_table( idomain, P_ra25o2 ) = 'ppmv' chem_streams_table( idomain, P_ra25o2 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ra25o2 )%stream(2) = 2097216 ! 00200040 F_ra25o2 = .TRUE. IF ( chem_index_table( PARAM_ic3h7no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ic3h7no3 = chem_num_table(idomain) chem_index_table( PARAM_ic3h7no3 , idomain ) = P_ic3h7no3 ELSE P_ic3h7no3 = chem_index_table( PARAM_ic3h7no3 , idomain ) END IF chem_boundary_table( idomain, P_ic3h7no3 ) = .TRUE. chem_dname_table( idomain, P_ic3h7no3 ) = 'ic3h7no3' chem_desc_table( idomain, P_ic3h7no3 ) = 'IC3H7NO3 concentration' chem_units_table( idomain, P_ic3h7no3 ) = 'ppmv' chem_streams_table( idomain, P_ic3h7no3 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_ic3h7no3 )%stream(2) = 2097216 ! 00200040 F_ic3h7no3 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 ! 00200040 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 ! 00200040 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 ! 00200040 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 ! 00200040 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 ! 00200040 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 ! 00200040 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 ! 00200040 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 ! 00200040 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 ! 00200040 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 ! 00200040 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 ! 00200040 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 ! 00200040 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 ! 00200040 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 ! 00200040 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 ! 00200040 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 ! 00200040 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 ! 00200040 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 ! 00200040 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 ! 00200040 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 ! 00200040 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 ! 00200040 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 ! 00200040 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 ! 00200040 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 ! 00200040 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 ! 00200040 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 ! 00200040 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 ! 00200040 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 ! 00200040 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 ! 00200040 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 ! 00200040 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 ! 00200040 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 ! 00200040 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 ! 00200040 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 ! 00200040 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 ! 00200040 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 ! 00200040 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 ! 00200040 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 ! 00200040 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 ! 00200040 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 ! 00200040 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 ! 00200040 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 ! 00200040 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 ! 00200040 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 ! 00200040 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw01 , idomain ) = P_so4_cw01 ELSE P_so4_cw01 = chem_index_table( PARAM_so4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw01 ) = .TRUE. chem_dname_table( idomain, P_so4_cw01 ) = 'so4_cw01' chem_desc_table( idomain, P_so4_cw01 ) = 'Sulfate, aerosol in cloud bin 01' chem_units_table( idomain, P_so4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw01 )%stream(2) = 2097216 ! 00200040 F_so4_cw01 = .TRUE. IF ( chem_index_table( PARAM_no3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw01 , idomain ) = P_no3_cw01 ELSE P_no3_cw01 = chem_index_table( PARAM_no3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw01 ) = .TRUE. chem_dname_table( idomain, P_no3_cw01 ) = 'no3_cw01' chem_desc_table( idomain, P_no3_cw01 ) = 'Nitrate, aerosol in cloud bin 01' chem_units_table( idomain, P_no3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw01 )%stream(2) = 2097216 ! 00200040 F_no3_cw01 = .TRUE. IF ( chem_index_table( PARAM_cl_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw01 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw01 , idomain ) = P_cl_cw01 ELSE P_cl_cw01 = chem_index_table( PARAM_cl_cw01 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw01 ) = .TRUE. chem_dname_table( idomain, P_cl_cw01 ) = 'cl_cw01' chem_desc_table( idomain, P_cl_cw01 ) = 'Chloride, aerosol in cloud bin 01' chem_units_table( idomain, P_cl_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw01 )%stream(2) = 2097216 ! 00200040 F_cl_cw01 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw01 , idomain ) = P_nh4_cw01 ELSE P_nh4_cw01 = chem_index_table( PARAM_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw01 ) = 'nh4_cw01' chem_desc_table( idomain, P_nh4_cw01 ) = 'Ammonium, aerosol in cloud bin 01' chem_units_table( idomain, P_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw01 )%stream(2) = 2097216 ! 00200040 F_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_na_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw01 = chem_num_table(idomain) chem_index_table( PARAM_na_cw01 , idomain ) = P_na_cw01 ELSE P_na_cw01 = chem_index_table( PARAM_na_cw01 , idomain ) END IF chem_boundary_table( idomain, P_na_cw01 ) = .TRUE. chem_dname_table( idomain, P_na_cw01 ) = 'na_cw01' chem_desc_table( idomain, P_na_cw01 ) = 'Sodium, aerosol in cloud bin 01' chem_units_table( idomain, P_na_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw01 )%stream(2) = 2097216 ! 00200040 F_na_cw01 = .TRUE. IF ( chem_index_table( PARAM_oin_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw01 , idomain ) = P_oin_cw01 ELSE P_oin_cw01 = chem_index_table( PARAM_oin_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw01 ) = .TRUE. chem_dname_table( idomain, P_oin_cw01 ) = 'oin_cw01' chem_desc_table( idomain, P_oin_cw01 ) = 'Other inorganics, aerosol in cloud bin 01' chem_units_table( idomain, P_oin_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw01 )%stream(2) = 2097216 ! 00200040 F_oin_cw01 = .TRUE. IF ( chem_index_table( PARAM_oc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw01 , idomain ) = P_oc_cw01 ELSE P_oc_cw01 = chem_index_table( PARAM_oc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw01 ) = .TRUE. chem_dname_table( idomain, P_oc_cw01 ) = 'oc_cw01' chem_desc_table( idomain, P_oc_cw01 ) = 'Organic carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_oc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw01 )%stream(2) = 2097216 ! 00200040 F_oc_cw01 = .TRUE. IF ( chem_index_table( PARAM_bc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw01 , idomain ) = P_bc_cw01 ELSE P_bc_cw01 = chem_index_table( PARAM_bc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw01 ) = .TRUE. chem_dname_table( idomain, P_bc_cw01 ) = 'bc_cw01' chem_desc_table( idomain, P_bc_cw01 ) = 'Black carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_bc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw01 )%stream(2) = 2097216 ! 00200040 F_bc_cw01 = .TRUE. IF ( chem_index_table( PARAM_num_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw01 = chem_num_table(idomain) chem_index_table( PARAM_num_cw01 , idomain ) = P_num_cw01 ELSE P_num_cw01 = chem_index_table( PARAM_num_cw01 , idomain ) END IF chem_boundary_table( idomain, P_num_cw01 ) = .TRUE. chem_dname_table( idomain, P_num_cw01 ) = 'num_cw01' chem_desc_table( idomain, P_num_cw01 ) = 'Number, aerosol in cloud bin 01' chem_units_table( idomain, P_num_cw01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw01 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw01 )%stream(2) = 2097216 ! 00200040 F_num_cw01 = .TRUE. IF ( chem_index_table( PARAM_so4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw02 , idomain ) = P_so4_cw02 ELSE P_so4_cw02 = chem_index_table( PARAM_so4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw02 ) = .TRUE. chem_dname_table( idomain, P_so4_cw02 ) = 'so4_cw02' chem_desc_table( idomain, P_so4_cw02 ) = 'Sulfate, aerosol in cloud bin 02' chem_units_table( idomain, P_so4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw02 )%stream(2) = 2097216 ! 00200040 F_so4_cw02 = .TRUE. IF ( chem_index_table( PARAM_no3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw02 , idomain ) = P_no3_cw02 ELSE P_no3_cw02 = chem_index_table( PARAM_no3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw02 ) = .TRUE. chem_dname_table( idomain, P_no3_cw02 ) = 'no3_cw02' chem_desc_table( idomain, P_no3_cw02 ) = 'Nitrate, aerosol in cloud bin 02' chem_units_table( idomain, P_no3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw02 )%stream(2) = 2097216 ! 00200040 F_no3_cw02 = .TRUE. IF ( chem_index_table( PARAM_cl_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw02 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw02 , idomain ) = P_cl_cw02 ELSE P_cl_cw02 = chem_index_table( PARAM_cl_cw02 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw02 ) = .TRUE. chem_dname_table( idomain, P_cl_cw02 ) = 'cl_cw02' chem_desc_table( idomain, P_cl_cw02 ) = 'Chloride, aerosol in cloud bin 02' chem_units_table( idomain, P_cl_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw02 )%stream(2) = 2097216 ! 00200040 F_cl_cw02 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw02 , idomain ) = P_nh4_cw02 ELSE P_nh4_cw02 = chem_index_table( PARAM_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw02 ) = 'nh4_cw02' chem_desc_table( idomain, P_nh4_cw02 ) = 'Ammonium, aerosol in cloud bin 02' chem_units_table( idomain, P_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw02 )%stream(2) = 2097216 ! 00200040 F_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_na_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw02 = chem_num_table(idomain) chem_index_table( PARAM_na_cw02 , idomain ) = P_na_cw02 ELSE P_na_cw02 = chem_index_table( PARAM_na_cw02 , idomain ) END IF chem_boundary_table( idomain, P_na_cw02 ) = .TRUE. chem_dname_table( idomain, P_na_cw02 ) = 'na_cw02' chem_desc_table( idomain, P_na_cw02 ) = 'Sodium, aerosol in cloud bin 02' chem_units_table( idomain, P_na_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw02 )%stream(2) = 2097216 ! 00200040 F_na_cw02 = .TRUE. IF ( chem_index_table( PARAM_oin_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw02 , idomain ) = P_oin_cw02 ELSE P_oin_cw02 = chem_index_table( PARAM_oin_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw02 ) = .TRUE. chem_dname_table( idomain, P_oin_cw02 ) = 'oin_cw02' chem_desc_table( idomain, P_oin_cw02 ) = 'Other inorganics, aerosol in cloud bin 02' chem_units_table( idomain, P_oin_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw02 )%stream(2) = 2097216 ! 00200040 F_oin_cw02 = .TRUE. IF ( chem_index_table( PARAM_oc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw02 , idomain ) = P_oc_cw02 ELSE P_oc_cw02 = chem_index_table( PARAM_oc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw02 ) = .TRUE. chem_dname_table( idomain, P_oc_cw02 ) = 'oc_cw02' chem_desc_table( idomain, P_oc_cw02 ) = 'Organic carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_oc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw02 )%stream(2) = 2097216 ! 00200040 F_oc_cw02 = .TRUE. IF ( chem_index_table( PARAM_bc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw02 , idomain ) = P_bc_cw02 ELSE P_bc_cw02 = chem_index_table( PARAM_bc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw02 ) = .TRUE. chem_dname_table( idomain, P_bc_cw02 ) = 'bc_cw02' chem_desc_table( idomain, P_bc_cw02 ) = 'Black carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_bc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw02 )%stream(2) = 2097216 ! 00200040 F_bc_cw02 = .TRUE. IF ( chem_index_table( PARAM_num_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw02 = chem_num_table(idomain) chem_index_table( PARAM_num_cw02 , idomain ) = P_num_cw02 ELSE P_num_cw02 = chem_index_table( PARAM_num_cw02 , idomain ) END IF chem_boundary_table( idomain, P_num_cw02 ) = .TRUE. chem_dname_table( idomain, P_num_cw02 ) = 'num_cw02' chem_desc_table( idomain, P_num_cw02 ) = 'Number, aerosol in cloud bin 02' chem_units_table( idomain, P_num_cw02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw02 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw02 )%stream(2) = 2097216 ! 00200040 F_num_cw02 = .TRUE. IF ( chem_index_table( PARAM_so4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw03 , idomain ) = P_so4_cw03 ELSE P_so4_cw03 = chem_index_table( PARAM_so4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw03 ) = .TRUE. chem_dname_table( idomain, P_so4_cw03 ) = 'so4_cw03' chem_desc_table( idomain, P_so4_cw03 ) = 'Sulfate, aerosol in cloud bin 03' chem_units_table( idomain, P_so4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw03 )%stream(2) = 2097216 ! 00200040 F_so4_cw03 = .TRUE. IF ( chem_index_table( PARAM_no3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw03 , idomain ) = P_no3_cw03 ELSE P_no3_cw03 = chem_index_table( PARAM_no3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw03 ) = .TRUE. chem_dname_table( idomain, P_no3_cw03 ) = 'no3_cw03' chem_desc_table( idomain, P_no3_cw03 ) = 'Nitrate, aerosol in cloud bin 03' chem_units_table( idomain, P_no3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw03 )%stream(2) = 2097216 ! 00200040 F_no3_cw03 = .TRUE. IF ( chem_index_table( PARAM_cl_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw03 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw03 , idomain ) = P_cl_cw03 ELSE P_cl_cw03 = chem_index_table( PARAM_cl_cw03 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw03 ) = .TRUE. chem_dname_table( idomain, P_cl_cw03 ) = 'cl_cw03' chem_desc_table( idomain, P_cl_cw03 ) = 'Chloride, aerosol in cloud bin 03' chem_units_table( idomain, P_cl_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw03 )%stream(2) = 2097216 ! 00200040 F_cl_cw03 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw03 , idomain ) = P_nh4_cw03 ELSE P_nh4_cw03 = chem_index_table( PARAM_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw03 ) = 'nh4_cw03' chem_desc_table( idomain, P_nh4_cw03 ) = 'Ammonium, aerosol in cloud bin 03' chem_units_table( idomain, P_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw03 )%stream(2) = 2097216 ! 00200040 F_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_na_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw03 = chem_num_table(idomain) chem_index_table( PARAM_na_cw03 , idomain ) = P_na_cw03 ELSE P_na_cw03 = chem_index_table( PARAM_na_cw03 , idomain ) END IF chem_boundary_table( idomain, P_na_cw03 ) = .TRUE. chem_dname_table( idomain, P_na_cw03 ) = 'na_cw03' chem_desc_table( idomain, P_na_cw03 ) = 'Sodium, aerosol in cloud bin 03' chem_units_table( idomain, P_na_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw03 )%stream(2) = 2097216 ! 00200040 F_na_cw03 = .TRUE. IF ( chem_index_table( PARAM_oin_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw03 , idomain ) = P_oin_cw03 ELSE P_oin_cw03 = chem_index_table( PARAM_oin_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw03 ) = .TRUE. chem_dname_table( idomain, P_oin_cw03 ) = 'oin_cw03' chem_desc_table( idomain, P_oin_cw03 ) = 'Other inorganics, aerosol in cloud bin 03' chem_units_table( idomain, P_oin_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw03 )%stream(2) = 2097216 ! 00200040 F_oin_cw03 = .TRUE. IF ( chem_index_table( PARAM_oc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw03 , idomain ) = P_oc_cw03 ELSE P_oc_cw03 = chem_index_table( PARAM_oc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw03 ) = .TRUE. chem_dname_table( idomain, P_oc_cw03 ) = 'oc_cw03' chem_desc_table( idomain, P_oc_cw03 ) = 'Organic carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_oc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw03 )%stream(2) = 2097216 ! 00200040 F_oc_cw03 = .TRUE. IF ( chem_index_table( PARAM_bc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw03 , idomain ) = P_bc_cw03 ELSE P_bc_cw03 = chem_index_table( PARAM_bc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw03 ) = .TRUE. chem_dname_table( idomain, P_bc_cw03 ) = 'bc_cw03' chem_desc_table( idomain, P_bc_cw03 ) = 'Black carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_bc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw03 )%stream(2) = 2097216 ! 00200040 F_bc_cw03 = .TRUE. IF ( chem_index_table( PARAM_num_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw03 = chem_num_table(idomain) chem_index_table( PARAM_num_cw03 , idomain ) = P_num_cw03 ELSE P_num_cw03 = chem_index_table( PARAM_num_cw03 , idomain ) END IF chem_boundary_table( idomain, P_num_cw03 ) = .TRUE. chem_dname_table( idomain, P_num_cw03 ) = 'num_cw03' chem_desc_table( idomain, P_num_cw03 ) = 'Number, aerosol in cloud bin 03' chem_units_table( idomain, P_num_cw03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw03 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw03 )%stream(2) = 2097216 ! 00200040 F_num_cw03 = .TRUE. IF ( chem_index_table( PARAM_so4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw04 , idomain ) = P_so4_cw04 ELSE P_so4_cw04 = chem_index_table( PARAM_so4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw04 ) = .TRUE. chem_dname_table( idomain, P_so4_cw04 ) = 'so4_cw04' chem_desc_table( idomain, P_so4_cw04 ) = 'Sulfate, aerosol in cloud bin 04' chem_units_table( idomain, P_so4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_so4_cw04 )%stream(2) = 2097216 ! 00200040 F_so4_cw04 = .TRUE. IF ( chem_index_table( PARAM_no3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw04 , idomain ) = P_no3_cw04 ELSE P_no3_cw04 = chem_index_table( PARAM_no3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw04 ) = .TRUE. chem_dname_table( idomain, P_no3_cw04 ) = 'no3_cw04' chem_desc_table( idomain, P_no3_cw04 ) = 'Nitrate, aerosol in cloud bin 04' chem_units_table( idomain, P_no3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_no3_cw04 )%stream(2) = 2097216 ! 00200040 F_no3_cw04 = .TRUE. IF ( chem_index_table( PARAM_cl_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw04 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw04 , idomain ) = P_cl_cw04 ELSE P_cl_cw04 = chem_index_table( PARAM_cl_cw04 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw04 ) = .TRUE. chem_dname_table( idomain, P_cl_cw04 ) = 'cl_cw04' chem_desc_table( idomain, P_cl_cw04 ) = 'Chloride, aerosol in cloud bin 04' chem_units_table( idomain, P_cl_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_cl_cw04 )%stream(2) = 2097216 ! 00200040 F_cl_cw04 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw04 , idomain ) = P_nh4_cw04 ELSE P_nh4_cw04 = chem_index_table( PARAM_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw04 ) = 'nh4_cw04' chem_desc_table( idomain, P_nh4_cw04 ) = 'Ammonium, aerosol in cloud bin 04' chem_units_table( idomain, P_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_nh4_cw04 )%stream(2) = 2097216 ! 00200040 F_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_na_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw04 = chem_num_table(idomain) chem_index_table( PARAM_na_cw04 , idomain ) = P_na_cw04 ELSE P_na_cw04 = chem_index_table( PARAM_na_cw04 , idomain ) END IF chem_boundary_table( idomain, P_na_cw04 ) = .TRUE. chem_dname_table( idomain, P_na_cw04 ) = 'na_cw04' chem_desc_table( idomain, P_na_cw04 ) = 'Sodium, aerosol in cloud bin 04' chem_units_table( idomain, P_na_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_na_cw04 )%stream(2) = 2097216 ! 00200040 F_na_cw04 = .TRUE. IF ( chem_index_table( PARAM_oin_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw04 , idomain ) = P_oin_cw04 ELSE P_oin_cw04 = chem_index_table( PARAM_oin_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw04 ) = .TRUE. chem_dname_table( idomain, P_oin_cw04 ) = 'oin_cw04' chem_desc_table( idomain, P_oin_cw04 ) = 'Other inorganics, aerosol in cloud bin 04' chem_units_table( idomain, P_oin_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oin_cw04 )%stream(2) = 2097216 ! 00200040 F_oin_cw04 = .TRUE. IF ( chem_index_table( PARAM_oc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw04 , idomain ) = P_oc_cw04 ELSE P_oc_cw04 = chem_index_table( PARAM_oc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw04 ) = .TRUE. chem_dname_table( idomain, P_oc_cw04 ) = 'oc_cw04' chem_desc_table( idomain, P_oc_cw04 ) = 'Organic carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_oc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_oc_cw04 )%stream(2) = 2097216 ! 00200040 F_oc_cw04 = .TRUE. IF ( chem_index_table( PARAM_bc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw04 , idomain ) = P_bc_cw04 ELSE P_bc_cw04 = chem_index_table( PARAM_bc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw04 ) = .TRUE. chem_dname_table( idomain, P_bc_cw04 ) = 'bc_cw04' chem_desc_table( idomain, P_bc_cw04 ) = 'Black carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_bc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_bc_cw04 )%stream(2) = 2097216 ! 00200040 F_bc_cw04 = .TRUE. IF ( chem_index_table( PARAM_num_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw04 = chem_num_table(idomain) chem_index_table( PARAM_num_cw04 , idomain ) = P_num_cw04 ELSE P_num_cw04 = chem_index_table( PARAM_num_cw04 , idomain ) END IF chem_boundary_table( idomain, P_num_cw04 ) = .TRUE. chem_dname_table( idomain, P_num_cw04 ) = 'num_cw04' chem_desc_table( idomain, P_num_cw04 ) = 'Number, aerosol in cloud bin 04' chem_units_table( idomain, P_num_cw04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw04 )%stream(1) = 33554433 ! 02000001 chem_streams_table( idomain, P_num_cw04 )%stream(2) = 2097216 ! 00200040 F_num_cw04 = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==2)THEN IF ( emis_ant_index_table( PARAM_e_iso , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_iso = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_iso , idomain ) = P_e_iso ELSE P_e_iso = emis_ant_index_table( PARAM_e_iso , idomain ) END IF emis_ant_boundary_table( idomain, P_e_iso ) = .FALSE. emis_ant_dname_table( idomain, P_e_iso ) = 'E_ISO' emis_ant_desc_table( idomain, P_e_iso ) = 'Isoprene EMISSIONS (Anth. for RADM/RACM, Anth+Bio for CBMZ)' emis_ant_units_table( idomain, P_e_iso ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_iso )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_iso )%stream(2) = 2097152 ! 00200000 F_e_iso = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 ! 00200000 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 ! 00200000 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 ! 00200000 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_eth , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eth = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eth , idomain ) = P_e_eth ELSE P_e_eth = emis_ant_index_table( PARAM_e_eth , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eth ) = .FALSE. emis_ant_dname_table( idomain, P_e_eth ) = 'E_ETH' emis_ant_desc_table( idomain, P_e_eth ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_eth ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_eth )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_eth )%stream(2) = 2097152 ! 00200000 F_e_eth = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc3 , idomain ) = P_e_hc3 ELSE P_e_hc3 = emis_ant_index_table( PARAM_e_hc3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc3 ) = 'E_HC3' emis_ant_desc_table( idomain, P_e_hc3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc3 )%stream(2) = 2097152 ! 00200000 F_e_hc3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc5 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc5 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc5 , idomain ) = P_e_hc5 ELSE P_e_hc5 = emis_ant_index_table( PARAM_e_hc5 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc5 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc5 ) = 'E_HC5' emis_ant_desc_table( idomain, P_e_hc5 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc5 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc5 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc5 )%stream(2) = 2097152 ! 00200000 F_e_hc5 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc8 , idomain ) = P_e_hc8 ELSE P_e_hc8 = emis_ant_index_table( PARAM_e_hc8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc8 ) = 'E_HC8' emis_ant_desc_table( idomain, P_e_hc8 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc8 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc8 )%stream(2) = 2097152 ! 00200000 F_e_hc8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_xyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_xyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_xyl , idomain ) = P_e_xyl ELSE P_e_xyl = emis_ant_index_table( PARAM_e_xyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_xyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_xyl ) = 'E_XYL' emis_ant_desc_table( idomain, P_e_xyl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_xyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_xyl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_xyl )%stream(2) = 2097152 ! 00200000 F_e_xyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_ol2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ol2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ol2 , idomain ) = P_e_ol2 ELSE P_e_ol2 = emis_ant_index_table( PARAM_e_ol2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ol2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ol2 ) = 'E_OL2' emis_ant_desc_table( idomain, P_e_ol2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ol2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ol2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ol2 )%stream(2) = 2097152 ! 00200000 F_e_ol2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_olt , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_olt = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_olt , idomain ) = P_e_olt ELSE P_e_olt = emis_ant_index_table( PARAM_e_olt , idomain ) END IF emis_ant_boundary_table( idomain, P_e_olt ) = .FALSE. emis_ant_dname_table( idomain, P_e_olt ) = 'E_OLT' emis_ant_desc_table( idomain, P_e_olt ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_olt ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_olt )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_olt )%stream(2) = 2097152 ! 00200000 F_e_olt = .TRUE. IF ( emis_ant_index_table( PARAM_e_oli , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oli = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oli , idomain ) = P_e_oli ELSE P_e_oli = emis_ant_index_table( PARAM_e_oli , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oli ) = .FALSE. emis_ant_dname_table( idomain, P_e_oli ) = 'E_OLI' emis_ant_desc_table( idomain, P_e_oli ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_oli ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oli )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oli )%stream(2) = 2097152 ! 00200000 F_e_oli = .TRUE. IF ( emis_ant_index_table( PARAM_e_tol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tol , idomain ) = P_e_tol ELSE P_e_tol = emis_ant_index_table( PARAM_e_tol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tol ) = .FALSE. emis_ant_dname_table( idomain, P_e_tol ) = 'E_TOL' emis_ant_desc_table( idomain, P_e_tol ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_tol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tol )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_tol )%stream(2) = 2097152 ! 00200000 F_e_tol = .TRUE. IF ( emis_ant_index_table( PARAM_e_csl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_csl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_csl , idomain ) = P_e_csl ELSE P_e_csl = emis_ant_index_table( PARAM_e_csl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_csl ) = .FALSE. emis_ant_dname_table( idomain, P_e_csl ) = 'E_CSL' emis_ant_desc_table( idomain, P_e_csl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_csl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_csl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_csl )%stream(2) = 2097152 ! 00200000 F_e_csl = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 ! 00200000 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ald , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ald = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ald , idomain ) = P_e_ald ELSE P_e_ald = emis_ant_index_table( PARAM_e_ald , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ald ) = .FALSE. emis_ant_dname_table( idomain, P_e_ald ) = 'E_ALD' emis_ant_desc_table( idomain, P_e_ald ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ald ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ald )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ald )%stream(2) = 2097152 ! 00200000 F_e_ald = .TRUE. IF ( emis_ant_index_table( PARAM_e_ket , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ket = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ket , idomain ) = P_e_ket ELSE P_e_ket = emis_ant_index_table( PARAM_e_ket , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ket ) = .FALSE. emis_ant_dname_table( idomain, P_e_ket ) = 'E_KET' emis_ant_desc_table( idomain, P_e_ket ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ket ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ket )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ket )%stream(2) = 2097152 ! 00200000 F_e_ket = .TRUE. IF ( emis_ant_index_table( PARAM_e_ora2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ora2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ora2 , idomain ) = P_e_ora2 ELSE P_e_ora2 = emis_ant_index_table( PARAM_e_ora2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ora2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ora2 ) = 'E_ORA2' emis_ant_desc_table( idomain, P_e_ora2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ora2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ora2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ora2 )%stream(2) = 2097152 ! 00200000 F_e_ora2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 ! 00200000 F_e_nh3 = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==3)THEN IF ( emis_ant_index_table( PARAM_e_iso , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_iso = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_iso , idomain ) = P_e_iso ELSE P_e_iso = emis_ant_index_table( PARAM_e_iso , idomain ) END IF emis_ant_boundary_table( idomain, P_e_iso ) = .FALSE. emis_ant_dname_table( idomain, P_e_iso ) = 'E_ISO' emis_ant_desc_table( idomain, P_e_iso ) = 'Isoprene EMISSIONS (Anth. for RADM/RACM, Anth+Bio for CBMZ)' emis_ant_units_table( idomain, P_e_iso ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_iso )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_iso )%stream(2) = 2097152 ! 00200000 F_e_iso = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 ! 00200000 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 ! 00200000 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 ! 00200000 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 ! 00200000 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_eth , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eth = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eth , idomain ) = P_e_eth ELSE P_e_eth = emis_ant_index_table( PARAM_e_eth , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eth ) = .FALSE. emis_ant_dname_table( idomain, P_e_eth ) = 'E_ETH' emis_ant_desc_table( idomain, P_e_eth ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_eth ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_eth )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_eth )%stream(2) = 2097152 ! 00200000 F_e_eth = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc3 , idomain ) = P_e_hc3 ELSE P_e_hc3 = emis_ant_index_table( PARAM_e_hc3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc3 ) = 'E_HC3' emis_ant_desc_table( idomain, P_e_hc3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc3 )%stream(2) = 2097152 ! 00200000 F_e_hc3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc5 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc5 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc5 , idomain ) = P_e_hc5 ELSE P_e_hc5 = emis_ant_index_table( PARAM_e_hc5 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc5 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc5 ) = 'E_HC5' emis_ant_desc_table( idomain, P_e_hc5 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc5 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc5 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc5 )%stream(2) = 2097152 ! 00200000 F_e_hc5 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc8 , idomain ) = P_e_hc8 ELSE P_e_hc8 = emis_ant_index_table( PARAM_e_hc8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc8 ) = 'E_HC8' emis_ant_desc_table( idomain, P_e_hc8 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc8 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc8 )%stream(2) = 2097152 ! 00200000 F_e_hc8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_xyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_xyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_xyl , idomain ) = P_e_xyl ELSE P_e_xyl = emis_ant_index_table( PARAM_e_xyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_xyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_xyl ) = 'E_XYL' emis_ant_desc_table( idomain, P_e_xyl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_xyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_xyl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_xyl )%stream(2) = 2097152 ! 00200000 F_e_xyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_ol2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ol2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ol2 , idomain ) = P_e_ol2 ELSE P_e_ol2 = emis_ant_index_table( PARAM_e_ol2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ol2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ol2 ) = 'E_OL2' emis_ant_desc_table( idomain, P_e_ol2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ol2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ol2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ol2 )%stream(2) = 2097152 ! 00200000 F_e_ol2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_olt , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_olt = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_olt , idomain ) = P_e_olt ELSE P_e_olt = emis_ant_index_table( PARAM_e_olt , idomain ) END IF emis_ant_boundary_table( idomain, P_e_olt ) = .FALSE. emis_ant_dname_table( idomain, P_e_olt ) = 'E_OLT' emis_ant_desc_table( idomain, P_e_olt ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_olt ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_olt )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_olt )%stream(2) = 2097152 ! 00200000 F_e_olt = .TRUE. IF ( emis_ant_index_table( PARAM_e_oli , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oli = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oli , idomain ) = P_e_oli ELSE P_e_oli = emis_ant_index_table( PARAM_e_oli , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oli ) = .FALSE. emis_ant_dname_table( idomain, P_e_oli ) = 'E_OLI' emis_ant_desc_table( idomain, P_e_oli ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_oli ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oli )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oli )%stream(2) = 2097152 ! 00200000 F_e_oli = .TRUE. IF ( emis_ant_index_table( PARAM_e_tol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tol , idomain ) = P_e_tol ELSE P_e_tol = emis_ant_index_table( PARAM_e_tol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tol ) = .FALSE. emis_ant_dname_table( idomain, P_e_tol ) = 'E_TOL' emis_ant_desc_table( idomain, P_e_tol ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_tol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tol )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_tol )%stream(2) = 2097152 ! 00200000 F_e_tol = .TRUE. IF ( emis_ant_index_table( PARAM_e_csl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_csl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_csl , idomain ) = P_e_csl ELSE P_e_csl = emis_ant_index_table( PARAM_e_csl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_csl ) = .FALSE. emis_ant_dname_table( idomain, P_e_csl ) = 'E_CSL' emis_ant_desc_table( idomain, P_e_csl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_csl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_csl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_csl )%stream(2) = 2097152 ! 00200000 F_e_csl = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 ! 00200000 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ald , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ald = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ald , idomain ) = P_e_ald ELSE P_e_ald = emis_ant_index_table( PARAM_e_ald , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ald ) = .FALSE. emis_ant_dname_table( idomain, P_e_ald ) = 'E_ALD' emis_ant_desc_table( idomain, P_e_ald ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ald ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ald )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ald )%stream(2) = 2097152 ! 00200000 F_e_ald = .TRUE. IF ( emis_ant_index_table( PARAM_e_ket , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ket = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ket , idomain ) = P_e_ket ELSE P_e_ket = emis_ant_index_table( PARAM_e_ket , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ket ) = .FALSE. emis_ant_dname_table( idomain, P_e_ket ) = 'E_KET' emis_ant_desc_table( idomain, P_e_ket ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ket ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ket )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ket )%stream(2) = 2097152 ! 00200000 F_e_ket = .TRUE. IF ( emis_ant_index_table( PARAM_e_ora2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ora2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ora2 , idomain ) = P_e_ora2 ELSE P_e_ora2 = emis_ant_index_table( PARAM_e_ora2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ora2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ora2 ) = 'E_ORA2' emis_ant_desc_table( idomain, P_e_ora2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ora2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ora2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ora2 )%stream(2) = 2097152 ! 00200000 F_e_ora2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 ! 00200000 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25i , idomain ) = P_e_pm25i ELSE P_e_pm25i = emis_ant_index_table( PARAM_e_pm25i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25i ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25i ) = 'E_PM25I' emis_ant_desc_table( idomain, P_e_pm25i ) = 'EMISSION RATE OF UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm25i )%stream(2) = 2097152 ! 00200000 F_e_pm25i = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25j , idomain ) = P_e_pm25j ELSE P_e_pm25j = emis_ant_index_table( PARAM_e_pm25j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25j ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25j ) = 'E_PM25J' emis_ant_desc_table( idomain, P_e_pm25j ) = 'EMISSION RATE OF J-MODE UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm25j )%stream(2) = 2097152 ! 00200000 F_e_pm25j = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm_10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm_10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm_10 , idomain ) = P_e_pm_10 ELSE P_e_pm_10 = emis_ant_index_table( PARAM_e_pm_10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm_10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm_10 ) = 'E_PM_10' emis_ant_desc_table( idomain, P_e_pm_10 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_pm_10 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pm_10 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm_10 )%stream(2) = 2097152 ! 00200000 F_e_pm_10 = .TRUE. IF ( emis_ant_index_table( PARAM_e_eci , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eci = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eci , idomain ) = P_e_eci ELSE P_e_eci = emis_ant_index_table( PARAM_e_eci , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eci ) = .FALSE. emis_ant_dname_table( idomain, P_e_eci ) = 'E_ECI' emis_ant_desc_table( idomain, P_e_eci ) = 'EMISSION RATE OF I-MODE EC' emis_ant_units_table( idomain, P_e_eci ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_eci )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_eci )%stream(2) = 2097152 ! 00200000 F_e_eci = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecj , idomain ) = P_e_ecj ELSE P_e_ecj = emis_ant_index_table( PARAM_e_ecj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecj ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecj ) = 'E_ECJ' emis_ant_desc_table( idomain, P_e_ecj ) = 'EMISSION RATE OF J-MODE EC' emis_ant_units_table( idomain, P_e_ecj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ecj )%stream(2) = 2097152 ! 00200000 F_e_ecj = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi , idomain ) = P_e_orgi ELSE P_e_orgi = emis_ant_index_table( PARAM_e_orgi , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi ) = 'E_ORGI' emis_ant_desc_table( idomain, P_e_orgi ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgi ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgi )%stream(2) = 2097152 ! 00200000 F_e_orgi = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj , idomain ) = P_e_orgj ELSE P_e_orgj = emis_ant_index_table( PARAM_e_orgj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj ) = 'E_ORGJ' emis_ant_desc_table( idomain, P_e_orgj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgj )%stream(2) = 2097152 ! 00200000 F_e_orgj = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4i , idomain ) = P_e_so4i ELSE P_e_so4i = emis_ant_index_table( PARAM_e_so4i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4i ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4i ) = 'E_SO4I' emis_ant_desc_table( idomain, P_e_so4i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4i )%stream(2) = 2097152 ! 00200000 F_e_so4i = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4j , idomain ) = P_e_so4j ELSE P_e_so4j = emis_ant_index_table( PARAM_e_so4j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4j ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4j ) = 'E_SO4J' emis_ant_desc_table( idomain, P_e_so4j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4j )%stream(2) = 2097152 ! 00200000 F_e_so4j = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3i , idomain ) = P_e_no3i ELSE P_e_no3i = emis_ant_index_table( PARAM_e_no3i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3i ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3i ) = 'E_NO3I' emis_ant_desc_table( idomain, P_e_no3i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no3i )%stream(2) = 2097152 ! 00200000 F_e_no3i = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3j , idomain ) = P_e_no3j ELSE P_e_no3j = emis_ant_index_table( PARAM_e_no3j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3j ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3j ) = 'E_NO3J' emis_ant_desc_table( idomain, P_e_no3j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no3j )%stream(2) = 2097152 ! 00200000 F_e_no3j = .TRUE. IF ( emis_ant_index_table( PARAM_e_naaj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_naaj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_naaj , idomain ) = P_e_naaj ELSE P_e_naaj = emis_ant_index_table( PARAM_e_naaj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_naaj ) = .FALSE. emis_ant_dname_table( idomain, P_e_naaj ) = 'E_NAAJ' emis_ant_desc_table( idomain, P_e_naaj ) = 'EMISSION RATE OF J-MODE EC' emis_ant_units_table( idomain, P_e_naaj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_naaj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_naaj )%stream(2) = 2097152 ! 00200000 F_e_naaj = .TRUE. IF ( emis_ant_index_table( PARAM_e_naai , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_naai = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_naai , idomain ) = P_e_naai ELSE P_e_naai = emis_ant_index_table( PARAM_e_naai , idomain ) END IF emis_ant_boundary_table( idomain, P_e_naai ) = .FALSE. emis_ant_dname_table( idomain, P_e_naai ) = 'E_NAAI' emis_ant_desc_table( idomain, P_e_naai ) = 'EMISSION RATE OF I-MODE EC' emis_ant_units_table( idomain, P_e_naai ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_naai )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_naai )%stream(2) = 2097152 ! 00200000 F_e_naai = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi_a , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi_a = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi_a , idomain ) = P_e_orgi_a ELSE P_e_orgi_a = emis_ant_index_table( PARAM_e_orgi_a , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi_a ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi_a ) = 'E_ORGI_A' emis_ant_desc_table( idomain, P_e_orgi_a ) = 'EMISSIONS ORGI_A AER' emis_ant_units_table( idomain, P_e_orgi_a ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi_a )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgi_a )%stream(2) = 2097152 ! 00200000 F_e_orgi_a = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj_a , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj_a = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj_a , idomain ) = P_e_orgj_a ELSE P_e_orgj_a = emis_ant_index_table( PARAM_e_orgj_a , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj_a ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj_a ) = 'E_ORGJ_A' emis_ant_desc_table( idomain, P_e_orgj_a ) = 'EMISSIONS ORGJ_A AER' emis_ant_units_table( idomain, P_e_orgj_a ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj_a )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgj_a )%stream(2) = 2097152 ! 00200000 F_e_orgj_a = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi_bb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi_bb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi_bb , idomain ) = P_e_orgi_bb ELSE P_e_orgi_bb = emis_ant_index_table( PARAM_e_orgi_bb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi_bb ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi_bb ) = 'E_ORGI_BB' emis_ant_desc_table( idomain, P_e_orgi_bb ) = 'EMISSIONS ORGI_BB AER' emis_ant_units_table( idomain, P_e_orgi_bb ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi_bb )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgi_bb )%stream(2) = 2097152 ! 00200000 F_e_orgi_bb = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj_bb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj_bb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj_bb , idomain ) = P_e_orgj_bb ELSE P_e_orgj_bb = emis_ant_index_table( PARAM_e_orgj_bb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj_bb ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj_bb ) = 'E_ORGJ_BB' emis_ant_desc_table( idomain, P_e_orgj_bb ) = 'EMISSIONS ORGJ_BB AER' emis_ant_units_table( idomain, P_e_orgj_bb ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj_bb )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgj_bb )%stream(2) = 2097152 ! 00200000 F_e_orgj_bb = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==4)THEN IF ( emis_ant_index_table( PARAM_e_iso , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_iso = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_iso , idomain ) = P_e_iso ELSE P_e_iso = emis_ant_index_table( PARAM_e_iso , idomain ) END IF emis_ant_boundary_table( idomain, P_e_iso ) = .FALSE. emis_ant_dname_table( idomain, P_e_iso ) = 'E_ISO' emis_ant_desc_table( idomain, P_e_iso ) = 'Isoprene EMISSIONS (Anth. for RADM/RACM, Anth+Bio for CBMZ)' emis_ant_units_table( idomain, P_e_iso ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_iso )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_iso )%stream(2) = 2097152 ! 00200000 F_e_iso = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 ! 00200000 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 ! 00200000 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 ! 00200000 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_eth , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eth = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eth , idomain ) = P_e_eth ELSE P_e_eth = emis_ant_index_table( PARAM_e_eth , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eth ) = .FALSE. emis_ant_dname_table( idomain, P_e_eth ) = 'E_ETH' emis_ant_desc_table( idomain, P_e_eth ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_eth ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_eth )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_eth )%stream(2) = 2097152 ! 00200000 F_e_eth = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc3 , idomain ) = P_e_hc3 ELSE P_e_hc3 = emis_ant_index_table( PARAM_e_hc3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc3 ) = 'E_HC3' emis_ant_desc_table( idomain, P_e_hc3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc3 )%stream(2) = 2097152 ! 00200000 F_e_hc3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc5 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc5 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc5 , idomain ) = P_e_hc5 ELSE P_e_hc5 = emis_ant_index_table( PARAM_e_hc5 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc5 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc5 ) = 'E_HC5' emis_ant_desc_table( idomain, P_e_hc5 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc5 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc5 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc5 )%stream(2) = 2097152 ! 00200000 F_e_hc5 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc8 , idomain ) = P_e_hc8 ELSE P_e_hc8 = emis_ant_index_table( PARAM_e_hc8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc8 ) = 'E_HC8' emis_ant_desc_table( idomain, P_e_hc8 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc8 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc8 )%stream(2) = 2097152 ! 00200000 F_e_hc8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_xyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_xyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_xyl , idomain ) = P_e_xyl ELSE P_e_xyl = emis_ant_index_table( PARAM_e_xyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_xyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_xyl ) = 'E_XYL' emis_ant_desc_table( idomain, P_e_xyl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_xyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_xyl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_xyl )%stream(2) = 2097152 ! 00200000 F_e_xyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_ol2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ol2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ol2 , idomain ) = P_e_ol2 ELSE P_e_ol2 = emis_ant_index_table( PARAM_e_ol2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ol2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ol2 ) = 'E_OL2' emis_ant_desc_table( idomain, P_e_ol2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ol2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ol2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ol2 )%stream(2) = 2097152 ! 00200000 F_e_ol2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_olt , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_olt = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_olt , idomain ) = P_e_olt ELSE P_e_olt = emis_ant_index_table( PARAM_e_olt , idomain ) END IF emis_ant_boundary_table( idomain, P_e_olt ) = .FALSE. emis_ant_dname_table( idomain, P_e_olt ) = 'E_OLT' emis_ant_desc_table( idomain, P_e_olt ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_olt ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_olt )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_olt )%stream(2) = 2097152 ! 00200000 F_e_olt = .TRUE. IF ( emis_ant_index_table( PARAM_e_oli , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oli = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oli , idomain ) = P_e_oli ELSE P_e_oli = emis_ant_index_table( PARAM_e_oli , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oli ) = .FALSE. emis_ant_dname_table( idomain, P_e_oli ) = 'E_OLI' emis_ant_desc_table( idomain, P_e_oli ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_oli ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oli )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oli )%stream(2) = 2097152 ! 00200000 F_e_oli = .TRUE. IF ( emis_ant_index_table( PARAM_e_tol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tol , idomain ) = P_e_tol ELSE P_e_tol = emis_ant_index_table( PARAM_e_tol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tol ) = .FALSE. emis_ant_dname_table( idomain, P_e_tol ) = 'E_TOL' emis_ant_desc_table( idomain, P_e_tol ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_tol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tol )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_tol )%stream(2) = 2097152 ! 00200000 F_e_tol = .TRUE. IF ( emis_ant_index_table( PARAM_e_csl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_csl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_csl , idomain ) = P_e_csl ELSE P_e_csl = emis_ant_index_table( PARAM_e_csl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_csl ) = .FALSE. emis_ant_dname_table( idomain, P_e_csl ) = 'E_CSL' emis_ant_desc_table( idomain, P_e_csl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_csl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_csl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_csl )%stream(2) = 2097152 ! 00200000 F_e_csl = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 ! 00200000 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ald , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ald = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ald , idomain ) = P_e_ald ELSE P_e_ald = emis_ant_index_table( PARAM_e_ald , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ald ) = .FALSE. emis_ant_dname_table( idomain, P_e_ald ) = 'E_ALD' emis_ant_desc_table( idomain, P_e_ald ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ald ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ald )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ald )%stream(2) = 2097152 ! 00200000 F_e_ald = .TRUE. IF ( emis_ant_index_table( PARAM_e_ket , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ket = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ket , idomain ) = P_e_ket ELSE P_e_ket = emis_ant_index_table( PARAM_e_ket , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ket ) = .FALSE. emis_ant_dname_table( idomain, P_e_ket ) = 'E_KET' emis_ant_desc_table( idomain, P_e_ket ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ket ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ket )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ket )%stream(2) = 2097152 ! 00200000 F_e_ket = .TRUE. IF ( emis_ant_index_table( PARAM_e_ora2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ora2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ora2 , idomain ) = P_e_ora2 ELSE P_e_ora2 = emis_ant_index_table( PARAM_e_ora2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ora2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ora2 ) = 'E_ORA2' emis_ant_desc_table( idomain, P_e_ora2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ora2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ora2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ora2 )%stream(2) = 2097152 ! 00200000 F_e_ora2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 ! 00200000 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 ! 00200000 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3oh , idomain ) = P_e_ch3oh ELSE P_e_ch3oh = emis_ant_index_table( PARAM_e_ch3oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3oh ) = 'E_CH3OH' emis_ant_desc_table( idomain, P_e_ch3oh ) = 'EMISSIONS CH3OH' emis_ant_units_table( idomain, P_e_ch3oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3oh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3oh )%stream(2) = 0 ! 00000000 F_e_ch3oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5oh , idomain ) = P_e_c2h5oh ELSE P_e_c2h5oh = emis_ant_index_table( PARAM_e_c2h5oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5oh ) = 'E_C2H5OH' emis_ant_desc_table( idomain, P_e_c2h5oh ) = 'EMISSIONS C2H5OH' emis_ant_units_table( idomain, P_e_c2h5oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(2) = 0 ! 00000000 F_e_c2h5oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25i , idomain ) = P_e_pm25i ELSE P_e_pm25i = emis_ant_index_table( PARAM_e_pm25i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25i ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25i ) = 'E_PM25I' emis_ant_desc_table( idomain, P_e_pm25i ) = 'EMISSION RATE OF UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm25i )%stream(2) = 2097152 ! 00200000 F_e_pm25i = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25j , idomain ) = P_e_pm25j ELSE P_e_pm25j = emis_ant_index_table( PARAM_e_pm25j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25j ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25j ) = 'E_PM25J' emis_ant_desc_table( idomain, P_e_pm25j ) = 'EMISSION RATE OF J-MODE UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm25j )%stream(2) = 2097152 ! 00200000 F_e_pm25j = .TRUE. IF ( emis_ant_index_table( PARAM_e_eci , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eci = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eci , idomain ) = P_e_eci ELSE P_e_eci = emis_ant_index_table( PARAM_e_eci , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eci ) = .FALSE. emis_ant_dname_table( idomain, P_e_eci ) = 'E_ECI' emis_ant_desc_table( idomain, P_e_eci ) = 'EMISSION RATE OF I-MODE EC' emis_ant_units_table( idomain, P_e_eci ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_eci )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_eci )%stream(2) = 2097152 ! 00200000 F_e_eci = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecj , idomain ) = P_e_ecj ELSE P_e_ecj = emis_ant_index_table( PARAM_e_ecj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecj ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecj ) = 'E_ECJ' emis_ant_desc_table( idomain, P_e_ecj ) = 'EMISSION RATE OF J-MODE EC' emis_ant_units_table( idomain, P_e_ecj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ecj )%stream(2) = 2097152 ! 00200000 F_e_ecj = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi , idomain ) = P_e_orgi ELSE P_e_orgi = emis_ant_index_table( PARAM_e_orgi , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi ) = 'E_ORGI' emis_ant_desc_table( idomain, P_e_orgi ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgi ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgi )%stream(2) = 2097152 ! 00200000 F_e_orgi = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj , idomain ) = P_e_orgj ELSE P_e_orgj = emis_ant_index_table( PARAM_e_orgj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj ) = 'E_ORGJ' emis_ant_desc_table( idomain, P_e_orgj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgj )%stream(2) = 2097152 ! 00200000 F_e_orgj = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4i , idomain ) = P_e_so4i ELSE P_e_so4i = emis_ant_index_table( PARAM_e_so4i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4i ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4i ) = 'E_SO4I' emis_ant_desc_table( idomain, P_e_so4i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4i )%stream(2) = 2097152 ! 00200000 F_e_so4i = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4j , idomain ) = P_e_so4j ELSE P_e_so4j = emis_ant_index_table( PARAM_e_so4j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4j ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4j ) = 'E_SO4J' emis_ant_desc_table( idomain, P_e_so4j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4j )%stream(2) = 2097152 ! 00200000 F_e_so4j = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3i , idomain ) = P_e_no3i ELSE P_e_no3i = emis_ant_index_table( PARAM_e_no3i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3i ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3i ) = 'E_NO3I' emis_ant_desc_table( idomain, P_e_no3i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no3i )%stream(2) = 2097152 ! 00200000 F_e_no3i = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3j , idomain ) = P_e_no3j ELSE P_e_no3j = emis_ant_index_table( PARAM_e_no3j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3j ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3j ) = 'E_NO3J' emis_ant_desc_table( idomain, P_e_no3j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no3j )%stream(2) = 2097152 ! 00200000 F_e_no3j = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4c , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4c = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4c , idomain ) = P_e_so4c ELSE P_e_so4c = emis_ant_index_table( PARAM_e_so4c , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4c ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4c ) = 'E_SO4C' emis_ant_desc_table( idomain, P_e_so4c ) = 'EMISSIONS COARSE SO4 AER' emis_ant_units_table( idomain, P_e_so4c ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4c )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4c )%stream(2) = 0 ! 00000000 F_e_so4c = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3c , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3c = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3c , idomain ) = P_e_no3c ELSE P_e_no3c = emis_ant_index_table( PARAM_e_no3c , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3c ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3c ) = 'E_NO3C' emis_ant_desc_table( idomain, P_e_no3c ) = 'EMISSIONS COARSE NO3 AER' emis_ant_units_table( idomain, P_e_no3c ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3c )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no3c )%stream(2) = 0 ! 00000000 F_e_no3c = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgc , idomain ) = P_e_orgc ELSE P_e_orgc = emis_ant_index_table( PARAM_e_orgc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgc ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgc ) = 'E_ORGC' emis_ant_desc_table( idomain, P_e_orgc ) = 'EMISSIONS COARSE ORG AER' emis_ant_units_table( idomain, P_e_orgc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgc )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgc )%stream(2) = 0 ! 00000000 F_e_orgc = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecc , idomain ) = P_e_ecc ELSE P_e_ecc = emis_ant_index_table( PARAM_e_ecc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecc ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecc ) = 'E_ECC' emis_ant_desc_table( idomain, P_e_ecc ) = 'EMISSIONS COARSE EC AER' emis_ant_units_table( idomain, P_e_ecc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecc )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ecc )%stream(2) = 0 ! 00000000 F_e_ecc = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==5)THEN IF ( emis_ant_index_table( PARAM_e_iso , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_iso = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_iso , idomain ) = P_e_iso ELSE P_e_iso = emis_ant_index_table( PARAM_e_iso , idomain ) END IF emis_ant_boundary_table( idomain, P_e_iso ) = .FALSE. emis_ant_dname_table( idomain, P_e_iso ) = 'E_ISO' emis_ant_desc_table( idomain, P_e_iso ) = 'Isoprene EMISSIONS (Anth. for RADM/RACM, Anth+Bio for CBMZ)' emis_ant_units_table( idomain, P_e_iso ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_iso )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_iso )%stream(2) = 2097152 ! 00200000 F_e_iso = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 ! 00200000 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 ! 00200000 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 ! 00200000 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 ! 00200000 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_eth , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eth = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eth , idomain ) = P_e_eth ELSE P_e_eth = emis_ant_index_table( PARAM_e_eth , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eth ) = .FALSE. emis_ant_dname_table( idomain, P_e_eth ) = 'E_ETH' emis_ant_desc_table( idomain, P_e_eth ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_eth ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_eth )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_eth )%stream(2) = 2097152 ! 00200000 F_e_eth = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc3 , idomain ) = P_e_hc3 ELSE P_e_hc3 = emis_ant_index_table( PARAM_e_hc3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc3 ) = 'E_HC3' emis_ant_desc_table( idomain, P_e_hc3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc3 )%stream(2) = 2097152 ! 00200000 F_e_hc3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc5 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc5 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc5 , idomain ) = P_e_hc5 ELSE P_e_hc5 = emis_ant_index_table( PARAM_e_hc5 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc5 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc5 ) = 'E_HC5' emis_ant_desc_table( idomain, P_e_hc5 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc5 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc5 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc5 )%stream(2) = 2097152 ! 00200000 F_e_hc5 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc8 , idomain ) = P_e_hc8 ELSE P_e_hc8 = emis_ant_index_table( PARAM_e_hc8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc8 ) = 'E_HC8' emis_ant_desc_table( idomain, P_e_hc8 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc8 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc8 )%stream(2) = 2097152 ! 00200000 F_e_hc8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_xyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_xyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_xyl , idomain ) = P_e_xyl ELSE P_e_xyl = emis_ant_index_table( PARAM_e_xyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_xyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_xyl ) = 'E_XYL' emis_ant_desc_table( idomain, P_e_xyl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_xyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_xyl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_xyl )%stream(2) = 2097152 ! 00200000 F_e_xyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_ol2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ol2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ol2 , idomain ) = P_e_ol2 ELSE P_e_ol2 = emis_ant_index_table( PARAM_e_ol2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ol2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ol2 ) = 'E_OL2' emis_ant_desc_table( idomain, P_e_ol2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ol2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ol2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ol2 )%stream(2) = 2097152 ! 00200000 F_e_ol2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_olt , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_olt = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_olt , idomain ) = P_e_olt ELSE P_e_olt = emis_ant_index_table( PARAM_e_olt , idomain ) END IF emis_ant_boundary_table( idomain, P_e_olt ) = .FALSE. emis_ant_dname_table( idomain, P_e_olt ) = 'E_OLT' emis_ant_desc_table( idomain, P_e_olt ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_olt ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_olt )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_olt )%stream(2) = 2097152 ! 00200000 F_e_olt = .TRUE. IF ( emis_ant_index_table( PARAM_e_oli , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oli = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oli , idomain ) = P_e_oli ELSE P_e_oli = emis_ant_index_table( PARAM_e_oli , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oli ) = .FALSE. emis_ant_dname_table( idomain, P_e_oli ) = 'E_OLI' emis_ant_desc_table( idomain, P_e_oli ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_oli ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oli )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oli )%stream(2) = 2097152 ! 00200000 F_e_oli = .TRUE. IF ( emis_ant_index_table( PARAM_e_tol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tol , idomain ) = P_e_tol ELSE P_e_tol = emis_ant_index_table( PARAM_e_tol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tol ) = .FALSE. emis_ant_dname_table( idomain, P_e_tol ) = 'E_TOL' emis_ant_desc_table( idomain, P_e_tol ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_tol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tol )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_tol )%stream(2) = 2097152 ! 00200000 F_e_tol = .TRUE. IF ( emis_ant_index_table( PARAM_e_csl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_csl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_csl , idomain ) = P_e_csl ELSE P_e_csl = emis_ant_index_table( PARAM_e_csl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_csl ) = .FALSE. emis_ant_dname_table( idomain, P_e_csl ) = 'E_CSL' emis_ant_desc_table( idomain, P_e_csl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_csl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_csl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_csl )%stream(2) = 2097152 ! 00200000 F_e_csl = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 ! 00200000 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ald , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ald = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ald , idomain ) = P_e_ald ELSE P_e_ald = emis_ant_index_table( PARAM_e_ald , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ald ) = .FALSE. emis_ant_dname_table( idomain, P_e_ald ) = 'E_ALD' emis_ant_desc_table( idomain, P_e_ald ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ald ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ald )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ald )%stream(2) = 2097152 ! 00200000 F_e_ald = .TRUE. IF ( emis_ant_index_table( PARAM_e_ket , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ket = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ket , idomain ) = P_e_ket ELSE P_e_ket = emis_ant_index_table( PARAM_e_ket , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ket ) = .FALSE. emis_ant_dname_table( idomain, P_e_ket ) = 'E_KET' emis_ant_desc_table( idomain, P_e_ket ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ket ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ket )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ket )%stream(2) = 2097152 ! 00200000 F_e_ket = .TRUE. IF ( emis_ant_index_table( PARAM_e_ora2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ora2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ora2 , idomain ) = P_e_ora2 ELSE P_e_ora2 = emis_ant_index_table( PARAM_e_ora2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ora2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ora2 ) = 'E_ORA2' emis_ant_desc_table( idomain, P_e_ora2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ora2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ora2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ora2 )%stream(2) = 2097152 ! 00200000 F_e_ora2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 ! 00200000 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm_25 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm_25 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm_25 , idomain ) = P_e_pm_25 ELSE P_e_pm_25 = emis_ant_index_table( PARAM_e_pm_25 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm_25 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm_25 ) = 'E_PM_25' emis_ant_desc_table( idomain, P_e_pm_25 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_pm_25 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pm_25 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm_25 )%stream(2) = 2097152 ! 00200000 F_e_pm_25 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm_10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm_10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm_10 , idomain ) = P_e_pm_10 ELSE P_e_pm_10 = emis_ant_index_table( PARAM_e_pm_10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm_10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm_10 ) = 'E_PM_10' emis_ant_desc_table( idomain, P_e_pm_10 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_pm_10 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pm_10 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm_10 )%stream(2) = 2097152 ! 00200000 F_e_pm_10 = .TRUE. IF ( emis_ant_index_table( PARAM_e_oc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oc , idomain ) = P_e_oc ELSE P_e_oc = emis_ant_index_table( PARAM_e_oc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oc ) = .FALSE. emis_ant_dname_table( idomain, P_e_oc ) = 'E_OC' emis_ant_desc_table( idomain, P_e_oc ) = 'EMISSIONS BC AER' emis_ant_units_table( idomain, P_e_oc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_oc )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oc )%stream(2) = 0 ! 00000000 F_e_oc = .TRUE. IF ( emis_ant_index_table( PARAM_e_sulf , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_sulf = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_sulf , idomain ) = P_e_sulf ELSE P_e_sulf = emis_ant_index_table( PARAM_e_sulf , idomain ) END IF emis_ant_boundary_table( idomain, P_e_sulf ) = .FALSE. emis_ant_dname_table( idomain, P_e_sulf ) = 'E_sulf' emis_ant_desc_table( idomain, P_e_sulf ) = 'EMISSIONS SO4' emis_ant_units_table( idomain, P_e_sulf ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_sulf )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_sulf )%stream(2) = 0 ! 00000000 F_e_sulf = .TRUE. IF ( emis_ant_index_table( PARAM_e_bc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bc , idomain ) = P_e_bc ELSE P_e_bc = emis_ant_index_table( PARAM_e_bc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bc ) = .FALSE. emis_ant_dname_table( idomain, P_e_bc ) = 'E_BC' emis_ant_desc_table( idomain, P_e_bc ) = 'EMISSIONS BC AER' emis_ant_units_table( idomain, P_e_bc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_bc )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_bc )%stream(2) = 0 ! 00000000 F_e_bc = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==6)THEN IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 ! 00200000 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_sulf , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_sulf = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_sulf , idomain ) = P_e_sulf ELSE P_e_sulf = emis_ant_index_table( PARAM_e_sulf , idomain ) END IF emis_ant_boundary_table( idomain, P_e_sulf ) = .FALSE. emis_ant_dname_table( idomain, P_e_sulf ) = 'E_sulf' emis_ant_desc_table( idomain, P_e_sulf ) = 'EMISSIONS SO4' emis_ant_units_table( idomain, P_e_sulf ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_sulf )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_sulf )%stream(2) = 0 ! 00000000 F_e_sulf = .TRUE. IF ( emis_ant_index_table( PARAM_e_bc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bc , idomain ) = P_e_bc ELSE P_e_bc = emis_ant_index_table( PARAM_e_bc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bc ) = .FALSE. emis_ant_dname_table( idomain, P_e_bc ) = 'E_BC' emis_ant_desc_table( idomain, P_e_bc ) = 'EMISSIONS BC AER' emis_ant_units_table( idomain, P_e_bc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_bc )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_bc )%stream(2) = 0 ! 00000000 F_e_bc = .TRUE. IF ( emis_ant_index_table( PARAM_e_oc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oc , idomain ) = P_e_oc ELSE P_e_oc = emis_ant_index_table( PARAM_e_oc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oc ) = .FALSE. emis_ant_dname_table( idomain, P_e_oc ) = 'E_OC' emis_ant_desc_table( idomain, P_e_oc ) = 'EMISSIONS BC AER' emis_ant_units_table( idomain, P_e_oc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_oc )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oc )%stream(2) = 0 ! 00000000 F_e_oc = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm_25 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm_25 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm_25 , idomain ) = P_e_pm_25 ELSE P_e_pm_25 = emis_ant_index_table( PARAM_e_pm_25 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm_25 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm_25 ) = 'E_PM_25' emis_ant_desc_table( idomain, P_e_pm_25 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_pm_25 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pm_25 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm_25 )%stream(2) = 2097152 ! 00200000 F_e_pm_25 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm_10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm_10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm_10 , idomain ) = P_e_pm_10 ELSE P_e_pm_10 = emis_ant_index_table( PARAM_e_pm_10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm_10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm_10 ) = 'E_PM_10' emis_ant_desc_table( idomain, P_e_pm_10 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_pm_10 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pm_10 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm_10 )%stream(2) = 2097152 ! 00200000 F_e_pm_10 = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==7)THEN IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 ! 00200000 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 ! 00200000 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 ! 00200000 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_bigalk , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bigalk = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bigalk , idomain ) = P_e_bigalk ELSE P_e_bigalk = emis_ant_index_table( PARAM_e_bigalk , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bigalk ) = .FALSE. emis_ant_dname_table( idomain, P_e_bigalk ) = 'E_BIGALK' emis_ant_desc_table( idomain, P_e_bigalk ) = 'EMISSIONS BIGALK' emis_ant_units_table( idomain, P_e_bigalk ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bigalk )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_bigalk )%stream(2) = 0 ! 00000000 F_e_bigalk = .TRUE. IF ( emis_ant_index_table( PARAM_e_bigene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bigene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bigene , idomain ) = P_e_bigene ELSE P_e_bigene = emis_ant_index_table( PARAM_e_bigene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bigene ) = .FALSE. emis_ant_dname_table( idomain, P_e_bigene ) = 'E_BIGENE' emis_ant_desc_table( idomain, P_e_bigene ) = 'EMISSIONS BIGENE' emis_ant_units_table( idomain, P_e_bigene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bigene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_bigene )%stream(2) = 0 ! 00000000 F_e_bigene = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h4 , idomain ) = P_e_c2h4 ELSE P_e_c2h4 = emis_ant_index_table( PARAM_e_c2h4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h4 ) = 'E_C2H4' emis_ant_desc_table( idomain, P_e_c2h4 ) = 'EMISSIONS C2H4' emis_ant_units_table( idomain, P_e_c2h4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h4 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h4 )%stream(2) = 0 ! 00000000 F_e_c2h4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5oh , idomain ) = P_e_c2h5oh ELSE P_e_c2h5oh = emis_ant_index_table( PARAM_e_c2h5oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5oh ) = 'E_C2H5OH' emis_ant_desc_table( idomain, P_e_c2h5oh ) = 'EMISSIONS C2H5OH' emis_ant_units_table( idomain, P_e_c2h5oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(2) = 0 ! 00000000 F_e_c2h5oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h6 , idomain ) = P_e_c2h6 ELSE P_e_c2h6 = emis_ant_index_table( PARAM_e_c2h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h6 ) = 'E_C2H6' emis_ant_desc_table( idomain, P_e_c2h6 ) = 'EMISSIONS C2H6' emis_ant_units_table( idomain, P_e_c2h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h6 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h6 )%stream(2) = 0 ! 00000000 F_e_c2h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h6 , idomain ) = P_e_c3h6 ELSE P_e_c3h6 = emis_ant_index_table( PARAM_e_c3h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h6 ) = 'E_C3H6' emis_ant_desc_table( idomain, P_e_c3h6 ) = 'EMISSIONS C3H6' emis_ant_units_table( idomain, P_e_c3h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h6 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c3h6 )%stream(2) = 0 ! 00000000 F_e_c3h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h8 , idomain ) = P_e_c3h8 ELSE P_e_c3h8 = emis_ant_index_table( PARAM_e_c3h8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h8 ) = 'E_C3H8' emis_ant_desc_table( idomain, P_e_c3h8 ) = 'EMISSIONS C3H8' emis_ant_units_table( idomain, P_e_c3h8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h8 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c3h8 )%stream(2) = 0 ! 00000000 F_e_c3h8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch2o , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch2o = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch2o , idomain ) = P_e_ch2o ELSE P_e_ch2o = emis_ant_index_table( PARAM_e_ch2o , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch2o ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch2o ) = 'E_CH2O' emis_ant_desc_table( idomain, P_e_ch2o ) = 'EMISSIONS CH2O' emis_ant_units_table( idomain, P_e_ch2o ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch2o )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch2o )%stream(2) = 0 ! 00000000 F_e_ch2o = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3cho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3cho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3cho , idomain ) = P_e_ch3cho ELSE P_e_ch3cho = emis_ant_index_table( PARAM_e_ch3cho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3cho ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3cho ) = 'E_CH3CHO' emis_ant_desc_table( idomain, P_e_ch3cho ) = 'EMISSIONS CH3CHO' emis_ant_units_table( idomain, P_e_ch3cho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3cho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3cho )%stream(2) = 0 ! 00000000 F_e_ch3cho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3coch3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) = P_e_ch3coch3 ELSE P_e_ch3coch3 = emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3coch3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3coch3 ) = 'E_CH3COCH3' emis_ant_desc_table( idomain, P_e_ch3coch3 ) = 'EMISSIONS CH3COCH3' emis_ant_units_table( idomain, P_e_ch3coch3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3coch3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3coch3 )%stream(2) = 0 ! 00000000 F_e_ch3coch3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3oh , idomain ) = P_e_ch3oh ELSE P_e_ch3oh = emis_ant_index_table( PARAM_e_ch3oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3oh ) = 'E_CH3OH' emis_ant_desc_table( idomain, P_e_ch3oh ) = 'EMISSIONS CH3OH' emis_ant_units_table( idomain, P_e_ch3oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3oh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3oh )%stream(2) = 0 ! 00000000 F_e_ch3oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_mek , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mek = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mek , idomain ) = P_e_mek ELSE P_e_mek = emis_ant_index_table( PARAM_e_mek , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mek ) = .FALSE. emis_ant_dname_table( idomain, P_e_mek ) = 'E_MEK' emis_ant_desc_table( idomain, P_e_mek ) = 'EMISSIONS MEK' emis_ant_units_table( idomain, P_e_mek ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mek )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_mek )%stream(2) = 0 ! 00000000 F_e_mek = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 ! 00200000 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_toluene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_toluene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_toluene , idomain ) = P_e_toluene ELSE P_e_toluene = emis_ant_index_table( PARAM_e_toluene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_toluene ) = .FALSE. emis_ant_dname_table( idomain, P_e_toluene ) = 'E_TOLUENE' emis_ant_desc_table( idomain, P_e_toluene ) = 'EMISSIONS TOLUENE' emis_ant_units_table( idomain, P_e_toluene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_toluene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_toluene )%stream(2) = 0 ! 00000000 F_e_toluene = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 ! 00200000 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_isop , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_isop = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_isop , idomain ) = P_e_isop ELSE P_e_isop = emis_ant_index_table( PARAM_e_isop , idomain ) END IF emis_ant_boundary_table( idomain, P_e_isop ) = .FALSE. emis_ant_dname_table( idomain, P_e_isop ) = 'E_ISOP' emis_ant_desc_table( idomain, P_e_isop ) = 'EMISSIONS ISOP' emis_ant_units_table( idomain, P_e_isop ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_isop )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_isop )%stream(2) = 0 ! 00000000 F_e_isop = .TRUE. IF ( emis_ant_index_table( PARAM_e_c10h16 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c10h16 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c10h16 , idomain ) = P_e_c10h16 ELSE P_e_c10h16 = emis_ant_index_table( PARAM_e_c10h16 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c10h16 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c10h16 ) = 'E_C10H16' emis_ant_desc_table( idomain, P_e_c10h16 ) = 'EMISSIONS C10H16' emis_ant_units_table( idomain, P_e_c10h16 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c10h16 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c10h16 )%stream(2) = 0 ! 00000000 F_e_c10h16 = .TRUE. IF ( emis_ant_index_table( PARAM_e_sulf , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_sulf = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_sulf , idomain ) = P_e_sulf ELSE P_e_sulf = emis_ant_index_table( PARAM_e_sulf , idomain ) END IF emis_ant_boundary_table( idomain, P_e_sulf ) = .FALSE. emis_ant_dname_table( idomain, P_e_sulf ) = 'E_sulf' emis_ant_desc_table( idomain, P_e_sulf ) = 'EMISSIONS SO4' emis_ant_units_table( idomain, P_e_sulf ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_sulf )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_sulf )%stream(2) = 0 ! 00000000 F_e_sulf = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==8)THEN IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 ! 00200000 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 ! 00200000 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 ! 00200000 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_bigalk , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bigalk = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bigalk , idomain ) = P_e_bigalk ELSE P_e_bigalk = emis_ant_index_table( PARAM_e_bigalk , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bigalk ) = .FALSE. emis_ant_dname_table( idomain, P_e_bigalk ) = 'E_BIGALK' emis_ant_desc_table( idomain, P_e_bigalk ) = 'EMISSIONS BIGALK' emis_ant_units_table( idomain, P_e_bigalk ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bigalk )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_bigalk )%stream(2) = 0 ! 00000000 F_e_bigalk = .TRUE. IF ( emis_ant_index_table( PARAM_e_bigene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bigene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bigene , idomain ) = P_e_bigene ELSE P_e_bigene = emis_ant_index_table( PARAM_e_bigene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bigene ) = .FALSE. emis_ant_dname_table( idomain, P_e_bigene ) = 'E_BIGENE' emis_ant_desc_table( idomain, P_e_bigene ) = 'EMISSIONS BIGENE' emis_ant_units_table( idomain, P_e_bigene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bigene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_bigene )%stream(2) = 0 ! 00000000 F_e_bigene = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h4 , idomain ) = P_e_c2h4 ELSE P_e_c2h4 = emis_ant_index_table( PARAM_e_c2h4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h4 ) = 'E_C2H4' emis_ant_desc_table( idomain, P_e_c2h4 ) = 'EMISSIONS C2H4' emis_ant_units_table( idomain, P_e_c2h4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h4 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h4 )%stream(2) = 0 ! 00000000 F_e_c2h4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5oh , idomain ) = P_e_c2h5oh ELSE P_e_c2h5oh = emis_ant_index_table( PARAM_e_c2h5oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5oh ) = 'E_C2H5OH' emis_ant_desc_table( idomain, P_e_c2h5oh ) = 'EMISSIONS C2H5OH' emis_ant_units_table( idomain, P_e_c2h5oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(2) = 0 ! 00000000 F_e_c2h5oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h6 , idomain ) = P_e_c2h6 ELSE P_e_c2h6 = emis_ant_index_table( PARAM_e_c2h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h6 ) = 'E_C2H6' emis_ant_desc_table( idomain, P_e_c2h6 ) = 'EMISSIONS C2H6' emis_ant_units_table( idomain, P_e_c2h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h6 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h6 )%stream(2) = 0 ! 00000000 F_e_c2h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h6 , idomain ) = P_e_c3h6 ELSE P_e_c3h6 = emis_ant_index_table( PARAM_e_c3h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h6 ) = 'E_C3H6' emis_ant_desc_table( idomain, P_e_c3h6 ) = 'EMISSIONS C3H6' emis_ant_units_table( idomain, P_e_c3h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h6 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c3h6 )%stream(2) = 0 ! 00000000 F_e_c3h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h8 , idomain ) = P_e_c3h8 ELSE P_e_c3h8 = emis_ant_index_table( PARAM_e_c3h8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h8 ) = 'E_C3H8' emis_ant_desc_table( idomain, P_e_c3h8 ) = 'EMISSIONS C3H8' emis_ant_units_table( idomain, P_e_c3h8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h8 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c3h8 )%stream(2) = 0 ! 00000000 F_e_c3h8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch2o , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch2o = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch2o , idomain ) = P_e_ch2o ELSE P_e_ch2o = emis_ant_index_table( PARAM_e_ch2o , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch2o ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch2o ) = 'E_CH2O' emis_ant_desc_table( idomain, P_e_ch2o ) = 'EMISSIONS CH2O' emis_ant_units_table( idomain, P_e_ch2o ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch2o )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch2o )%stream(2) = 0 ! 00000000 F_e_ch2o = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3cho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3cho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3cho , idomain ) = P_e_ch3cho ELSE P_e_ch3cho = emis_ant_index_table( PARAM_e_ch3cho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3cho ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3cho ) = 'E_CH3CHO' emis_ant_desc_table( idomain, P_e_ch3cho ) = 'EMISSIONS CH3CHO' emis_ant_units_table( idomain, P_e_ch3cho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3cho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3cho )%stream(2) = 0 ! 00000000 F_e_ch3cho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3coch3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) = P_e_ch3coch3 ELSE P_e_ch3coch3 = emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3coch3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3coch3 ) = 'E_CH3COCH3' emis_ant_desc_table( idomain, P_e_ch3coch3 ) = 'EMISSIONS CH3COCH3' emis_ant_units_table( idomain, P_e_ch3coch3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3coch3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3coch3 )%stream(2) = 0 ! 00000000 F_e_ch3coch3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3oh , idomain ) = P_e_ch3oh ELSE P_e_ch3oh = emis_ant_index_table( PARAM_e_ch3oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3oh ) = 'E_CH3OH' emis_ant_desc_table( idomain, P_e_ch3oh ) = 'EMISSIONS CH3OH' emis_ant_units_table( idomain, P_e_ch3oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3oh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3oh )%stream(2) = 0 ! 00000000 F_e_ch3oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_mek , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mek = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mek , idomain ) = P_e_mek ELSE P_e_mek = emis_ant_index_table( PARAM_e_mek , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mek ) = .FALSE. emis_ant_dname_table( idomain, P_e_mek ) = 'E_MEK' emis_ant_desc_table( idomain, P_e_mek ) = 'EMISSIONS MEK' emis_ant_units_table( idomain, P_e_mek ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mek )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_mek )%stream(2) = 0 ! 00000000 F_e_mek = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 ! 00200000 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_toluene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_toluene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_toluene , idomain ) = P_e_toluene ELSE P_e_toluene = emis_ant_index_table( PARAM_e_toluene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_toluene ) = .FALSE. emis_ant_dname_table( idomain, P_e_toluene ) = 'E_TOLUENE' emis_ant_desc_table( idomain, P_e_toluene ) = 'EMISSIONS TOLUENE' emis_ant_units_table( idomain, P_e_toluene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_toluene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_toluene )%stream(2) = 0 ! 00000000 F_e_toluene = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 ! 00200000 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_isop , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_isop = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_isop , idomain ) = P_e_isop ELSE P_e_isop = emis_ant_index_table( PARAM_e_isop , idomain ) END IF emis_ant_boundary_table( idomain, P_e_isop ) = .FALSE. emis_ant_dname_table( idomain, P_e_isop ) = 'E_ISOP' emis_ant_desc_table( idomain, P_e_isop ) = 'EMISSIONS ISOP' emis_ant_units_table( idomain, P_e_isop ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_isop )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_isop )%stream(2) = 0 ! 00000000 F_e_isop = .TRUE. IF ( emis_ant_index_table( PARAM_e_c10h16 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c10h16 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c10h16 , idomain ) = P_e_c10h16 ELSE P_e_c10h16 = emis_ant_index_table( PARAM_e_c10h16 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c10h16 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c10h16 ) = 'E_C10H16' emis_ant_desc_table( idomain, P_e_c10h16 ) = 'EMISSIONS C10H16' emis_ant_units_table( idomain, P_e_c10h16 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c10h16 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c10h16 )%stream(2) = 0 ! 00000000 F_e_c10h16 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm_10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm_10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm_10 , idomain ) = P_e_pm_10 ELSE P_e_pm_10 = emis_ant_index_table( PARAM_e_pm_10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm_10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm_10 ) = 'E_PM_10' emis_ant_desc_table( idomain, P_e_pm_10 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_pm_10 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pm_10 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm_10 )%stream(2) = 2097152 ! 00200000 F_e_pm_10 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm_25 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm_25 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm_25 , idomain ) = P_e_pm_25 ELSE P_e_pm_25 = emis_ant_index_table( PARAM_e_pm_25 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm_25 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm_25 ) = 'E_PM_25' emis_ant_desc_table( idomain, P_e_pm_25 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_pm_25 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pm_25 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm_25 )%stream(2) = 2097152 ! 00200000 F_e_pm_25 = .TRUE. IF ( emis_ant_index_table( PARAM_e_bc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bc , idomain ) = P_e_bc ELSE P_e_bc = emis_ant_index_table( PARAM_e_bc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bc ) = .FALSE. emis_ant_dname_table( idomain, P_e_bc ) = 'E_BC' emis_ant_desc_table( idomain, P_e_bc ) = 'EMISSIONS BC AER' emis_ant_units_table( idomain, P_e_bc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_bc )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_bc )%stream(2) = 0 ! 00000000 F_e_bc = .TRUE. IF ( emis_ant_index_table( PARAM_e_oc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oc , idomain ) = P_e_oc ELSE P_e_oc = emis_ant_index_table( PARAM_e_oc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oc ) = .FALSE. emis_ant_dname_table( idomain, P_e_oc ) = 'E_OC' emis_ant_desc_table( idomain, P_e_oc ) = 'EMISSIONS BC AER' emis_ant_units_table( idomain, P_e_oc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_oc )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oc )%stream(2) = 0 ! 00000000 F_e_oc = .TRUE. IF ( emis_ant_index_table( PARAM_e_sulf , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_sulf = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_sulf , idomain ) = P_e_sulf ELSE P_e_sulf = emis_ant_index_table( PARAM_e_sulf , idomain ) END IF emis_ant_boundary_table( idomain, P_e_sulf ) = .FALSE. emis_ant_dname_table( idomain, P_e_sulf ) = 'E_sulf' emis_ant_desc_table( idomain, P_e_sulf ) = 'EMISSIONS SO4' emis_ant_units_table( idomain, P_e_sulf ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_sulf )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_sulf )%stream(2) = 0 ! 00000000 F_e_sulf = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==9)THEN IF ( emis_ant_index_table( PARAM_e_iso , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_iso = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_iso , idomain ) = P_e_iso ELSE P_e_iso = emis_ant_index_table( PARAM_e_iso , idomain ) END IF emis_ant_boundary_table( idomain, P_e_iso ) = .FALSE. emis_ant_dname_table( idomain, P_e_iso ) = 'E_ISO' emis_ant_desc_table( idomain, P_e_iso ) = 'Isoprene EMISSIONS (Anth. for RADM/RACM, Anth+Bio for CBMZ)' emis_ant_units_table( idomain, P_e_iso ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_iso )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_iso )%stream(2) = 2097152 ! 00200000 F_e_iso = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 ! 00200000 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 ! 00200000 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 ! 00200000 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_eth , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eth = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eth , idomain ) = P_e_eth ELSE P_e_eth = emis_ant_index_table( PARAM_e_eth , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eth ) = .FALSE. emis_ant_dname_table( idomain, P_e_eth ) = 'E_ETH' emis_ant_desc_table( idomain, P_e_eth ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_eth ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_eth )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_eth )%stream(2) = 2097152 ! 00200000 F_e_eth = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc3 , idomain ) = P_e_hc3 ELSE P_e_hc3 = emis_ant_index_table( PARAM_e_hc3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc3 ) = 'E_HC3' emis_ant_desc_table( idomain, P_e_hc3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc3 )%stream(2) = 2097152 ! 00200000 F_e_hc3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc5 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc5 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc5 , idomain ) = P_e_hc5 ELSE P_e_hc5 = emis_ant_index_table( PARAM_e_hc5 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc5 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc5 ) = 'E_HC5' emis_ant_desc_table( idomain, P_e_hc5 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc5 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc5 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc5 )%stream(2) = 2097152 ! 00200000 F_e_hc5 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc8 , idomain ) = P_e_hc8 ELSE P_e_hc8 = emis_ant_index_table( PARAM_e_hc8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc8 ) = 'E_HC8' emis_ant_desc_table( idomain, P_e_hc8 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc8 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc8 )%stream(2) = 2097152 ! 00200000 F_e_hc8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_xyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_xyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_xyl , idomain ) = P_e_xyl ELSE P_e_xyl = emis_ant_index_table( PARAM_e_xyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_xyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_xyl ) = 'E_XYL' emis_ant_desc_table( idomain, P_e_xyl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_xyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_xyl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_xyl )%stream(2) = 2097152 ! 00200000 F_e_xyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_ol2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ol2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ol2 , idomain ) = P_e_ol2 ELSE P_e_ol2 = emis_ant_index_table( PARAM_e_ol2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ol2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ol2 ) = 'E_OL2' emis_ant_desc_table( idomain, P_e_ol2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ol2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ol2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ol2 )%stream(2) = 2097152 ! 00200000 F_e_ol2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_olt , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_olt = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_olt , idomain ) = P_e_olt ELSE P_e_olt = emis_ant_index_table( PARAM_e_olt , idomain ) END IF emis_ant_boundary_table( idomain, P_e_olt ) = .FALSE. emis_ant_dname_table( idomain, P_e_olt ) = 'E_OLT' emis_ant_desc_table( idomain, P_e_olt ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_olt ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_olt )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_olt )%stream(2) = 2097152 ! 00200000 F_e_olt = .TRUE. IF ( emis_ant_index_table( PARAM_e_oli , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oli = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oli , idomain ) = P_e_oli ELSE P_e_oli = emis_ant_index_table( PARAM_e_oli , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oli ) = .FALSE. emis_ant_dname_table( idomain, P_e_oli ) = 'E_OLI' emis_ant_desc_table( idomain, P_e_oli ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_oli ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oli )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oli )%stream(2) = 2097152 ! 00200000 F_e_oli = .TRUE. IF ( emis_ant_index_table( PARAM_e_tol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tol , idomain ) = P_e_tol ELSE P_e_tol = emis_ant_index_table( PARAM_e_tol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tol ) = .FALSE. emis_ant_dname_table( idomain, P_e_tol ) = 'E_TOL' emis_ant_desc_table( idomain, P_e_tol ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_tol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tol )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_tol )%stream(2) = 2097152 ! 00200000 F_e_tol = .TRUE. IF ( emis_ant_index_table( PARAM_e_csl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_csl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_csl , idomain ) = P_e_csl ELSE P_e_csl = emis_ant_index_table( PARAM_e_csl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_csl ) = .FALSE. emis_ant_dname_table( idomain, P_e_csl ) = 'E_CSL' emis_ant_desc_table( idomain, P_e_csl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_csl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_csl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_csl )%stream(2) = 2097152 ! 00200000 F_e_csl = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 ! 00200000 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ald , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ald = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ald , idomain ) = P_e_ald ELSE P_e_ald = emis_ant_index_table( PARAM_e_ald , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ald ) = .FALSE. emis_ant_dname_table( idomain, P_e_ald ) = 'E_ALD' emis_ant_desc_table( idomain, P_e_ald ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ald ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ald )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ald )%stream(2) = 2097152 ! 00200000 F_e_ald = .TRUE. IF ( emis_ant_index_table( PARAM_e_ket , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ket = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ket , idomain ) = P_e_ket ELSE P_e_ket = emis_ant_index_table( PARAM_e_ket , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ket ) = .FALSE. emis_ant_dname_table( idomain, P_e_ket ) = 'E_KET' emis_ant_desc_table( idomain, P_e_ket ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ket ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ket )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ket )%stream(2) = 2097152 ! 00200000 F_e_ket = .TRUE. IF ( emis_ant_index_table( PARAM_e_ora2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ora2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ora2 , idomain ) = P_e_ora2 ELSE P_e_ora2 = emis_ant_index_table( PARAM_e_ora2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ora2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ora2 ) = 'E_ORA2' emis_ant_desc_table( idomain, P_e_ora2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ora2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ora2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ora2 )%stream(2) = 2097152 ! 00200000 F_e_ora2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 ! 00200000 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_dms , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_dms = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_dms , idomain ) = P_e_dms ELSE P_e_dms = emis_ant_index_table( PARAM_e_dms , idomain ) END IF emis_ant_boundary_table( idomain, P_e_dms ) = .FALSE. emis_ant_dname_table( idomain, P_e_dms ) = 'E_DMS' emis_ant_desc_table( idomain, P_e_dms ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_dms ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_dms )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_dms )%stream(2) = 2097152 ! 00200000 F_e_dms = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecj , idomain ) = P_e_ecj ELSE P_e_ecj = emis_ant_index_table( PARAM_e_ecj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecj ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecj ) = 'E_ECJ' emis_ant_desc_table( idomain, P_e_ecj ) = 'EMISSION RATE OF J-MODE EC' emis_ant_units_table( idomain, P_e_ecj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ecj )%stream(2) = 2097152 ! 00200000 F_e_ecj = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj , idomain ) = P_e_orgj ELSE P_e_orgj = emis_ant_index_table( PARAM_e_orgj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj ) = 'E_ORGJ' emis_ant_desc_table( idomain, P_e_orgj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgj )%stream(2) = 2097152 ! 00200000 F_e_orgj = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4i , idomain ) = P_e_so4i ELSE P_e_so4i = emis_ant_index_table( PARAM_e_so4i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4i ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4i ) = 'E_SO4I' emis_ant_desc_table( idomain, P_e_so4i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4i )%stream(2) = 2097152 ! 00200000 F_e_so4i = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4j , idomain ) = P_e_so4j ELSE P_e_so4j = emis_ant_index_table( PARAM_e_so4j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4j ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4j ) = 'E_SO4J' emis_ant_desc_table( idomain, P_e_so4j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4j )%stream(2) = 2097152 ! 00200000 F_e_so4j = .TRUE. IF ( emis_ant_index_table( PARAM_e_soag_bigene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_soag_bigene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_soag_bigene , idomain ) = P_e_soag_bigene ELSE P_e_soag_bigene = emis_ant_index_table( PARAM_e_soag_bigene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_soag_bigene ) = .FALSE. emis_ant_dname_table( idomain, P_e_soag_bigene ) = 'E_SOAG_BIGENE' emis_ant_desc_table( idomain, P_e_soag_bigene ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_soag_bigene ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_soag_bigene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_soag_bigene )%stream(2) = 0 ! 00000000 F_e_soag_bigene = .TRUE. IF ( emis_ant_index_table( PARAM_e_soag_isoprene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_soag_isoprene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_soag_isoprene , idomain ) = P_e_soag_isoprene ELSE P_e_soag_isoprene = emis_ant_index_table( PARAM_e_soag_isoprene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_soag_isoprene ) = .FALSE. emis_ant_dname_table( idomain, P_e_soag_isoprene ) = 'E_SOAG_ISOPRENE' emis_ant_desc_table( idomain, P_e_soag_isoprene ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_soag_isoprene ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_soag_isoprene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_soag_isoprene )%stream(2) = 0 ! 00000000 F_e_soag_isoprene = .TRUE. IF ( emis_ant_index_table( PARAM_e_soag_terpene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_soag_terpene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_soag_terpene , idomain ) = P_e_soag_terpene ELSE P_e_soag_terpene = emis_ant_index_table( PARAM_e_soag_terpene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_soag_terpene ) = .FALSE. emis_ant_dname_table( idomain, P_e_soag_terpene ) = 'E_SOAG_TERPENE' emis_ant_desc_table( idomain, P_e_soag_terpene ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_soag_terpene ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_soag_terpene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_soag_terpene )%stream(2) = 0 ! 00000000 F_e_soag_terpene = .TRUE. IF ( emis_ant_index_table( PARAM_e_soag_toluene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_soag_toluene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_soag_toluene , idomain ) = P_e_soag_toluene ELSE P_e_soag_toluene = emis_ant_index_table( PARAM_e_soag_toluene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_soag_toluene ) = .FALSE. emis_ant_dname_table( idomain, P_e_soag_toluene ) = 'E_SOAG_TOLUENE' emis_ant_desc_table( idomain, P_e_soag_toluene ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_soag_toluene ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_soag_toluene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_soag_toluene )%stream(2) = 0 ! 00000000 F_e_soag_toluene = .TRUE. IF ( emis_ant_index_table( PARAM_e_dust_a1 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_dust_a1 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_dust_a1 , idomain ) = P_e_dust_a1 ELSE P_e_dust_a1 = emis_ant_index_table( PARAM_e_dust_a1 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_dust_a1 ) = .FALSE. emis_ant_dname_table( idomain, P_e_dust_a1 ) = 'E_DUST_A1' emis_ant_desc_table( idomain, P_e_dust_a1 ) = 'J-MODE DUST' emis_ant_units_table( idomain, P_e_dust_a1 ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_dust_a1 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_dust_a1 )%stream(2) = 0 ! 00000000 F_e_dust_a1 = .TRUE. IF ( emis_ant_index_table( PARAM_e_dust_a3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_dust_a3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_dust_a3 , idomain ) = P_e_dust_a3 ELSE P_e_dust_a3 = emis_ant_index_table( PARAM_e_dust_a3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_dust_a3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_dust_a3 ) = 'E_DUST_A3' emis_ant_desc_table( idomain, P_e_dust_a3 ) = 'J-MODE DUST' emis_ant_units_table( idomain, P_e_dust_a3 ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_dust_a3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_dust_a3 )%stream(2) = 0 ! 00000000 F_e_dust_a3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ncl_a1 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ncl_a1 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ncl_a1 , idomain ) = P_e_ncl_a1 ELSE P_e_ncl_a1 = emis_ant_index_table( PARAM_e_ncl_a1 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ncl_a1 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ncl_a1 ) = 'E_NCL_A1' emis_ant_desc_table( idomain, P_e_ncl_a1 ) = 'J-MODE SEA-SALT' emis_ant_units_table( idomain, P_e_ncl_a1 ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_ncl_a1 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ncl_a1 )%stream(2) = 0 ! 00000000 F_e_ncl_a1 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ncl_a2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ncl_a2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ncl_a2 , idomain ) = P_e_ncl_a2 ELSE P_e_ncl_a2 = emis_ant_index_table( PARAM_e_ncl_a2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ncl_a2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ncl_a2 ) = 'E_NCL_A2' emis_ant_desc_table( idomain, P_e_ncl_a2 ) = 'I-MODE SEA-SALT' emis_ant_units_table( idomain, P_e_ncl_a2 ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_ncl_a2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ncl_a2 )%stream(2) = 0 ! 00000000 F_e_ncl_a2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ncl_a3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ncl_a3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ncl_a3 , idomain ) = P_e_ncl_a3 ELSE P_e_ncl_a3 = emis_ant_index_table( PARAM_e_ncl_a3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ncl_a3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ncl_a3 ) = 'E_NCL_A3' emis_ant_desc_table( idomain, P_e_ncl_a3 ) = 'COARSE-MODE SEA-SALT' emis_ant_units_table( idomain, P_e_ncl_a3 ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_ncl_a3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ncl_a3 )%stream(2) = 0 ! 00000000 F_e_ncl_a3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj_num , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj_num = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj_num , idomain ) = P_e_orgj_num ELSE P_e_orgj_num = emis_ant_index_table( PARAM_e_orgj_num , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj_num ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj_num ) = 'E_ORGJ_NUM' emis_ant_desc_table( idomain, P_e_orgj_num ) = 'J-MODE ORGANIC NUMBER' emis_ant_units_table( idomain, P_e_orgj_num ) = 'particle/m2/s' emis_ant_streams_table( idomain, P_e_orgj_num )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgj_num )%stream(2) = 0 ! 00000000 F_e_orgj_num = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecj_num , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecj_num = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecj_num , idomain ) = P_e_ecj_num ELSE P_e_ecj_num = emis_ant_index_table( PARAM_e_ecj_num , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecj_num ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecj_num ) = 'E_ECJ_NUM' emis_ant_desc_table( idomain, P_e_ecj_num ) = 'J-MODE BC NUMBER' emis_ant_units_table( idomain, P_e_ecj_num ) = 'particle/m2/s' emis_ant_streams_table( idomain, P_e_ecj_num )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ecj_num )%stream(2) = 0 ! 00000000 F_e_ecj_num = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4j_num , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4j_num = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4j_num , idomain ) = P_e_so4j_num ELSE P_e_so4j_num = emis_ant_index_table( PARAM_e_so4j_num , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4j_num ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4j_num ) = 'E_SO4J_NUM' emis_ant_desc_table( idomain, P_e_so4j_num ) = 'J-MODE SO4 NUMBER' emis_ant_units_table( idomain, P_e_so4j_num ) = 'particle/m2/s' emis_ant_streams_table( idomain, P_e_so4j_num )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4j_num )%stream(2) = 0 ! 00000000 F_e_so4j_num = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4i_num , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4i_num = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4i_num , idomain ) = P_e_so4i_num ELSE P_e_so4i_num = emis_ant_index_table( PARAM_e_so4i_num , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4i_num ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4i_num ) = 'E_SO4I_NUM' emis_ant_desc_table( idomain, P_e_so4i_num ) = 'I-MODE SO4 NUMBER' emis_ant_units_table( idomain, P_e_so4i_num ) = 'particle/m2/s' emis_ant_streams_table( idomain, P_e_so4i_num )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4i_num )%stream(2) = 0 ! 00000000 F_e_so4i_num = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==10)THEN IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 ! 00200000 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 ! 00200000 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 ! 00200000 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_bigalk , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bigalk = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bigalk , idomain ) = P_e_bigalk ELSE P_e_bigalk = emis_ant_index_table( PARAM_e_bigalk , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bigalk ) = .FALSE. emis_ant_dname_table( idomain, P_e_bigalk ) = 'E_BIGALK' emis_ant_desc_table( idomain, P_e_bigalk ) = 'EMISSIONS BIGALK' emis_ant_units_table( idomain, P_e_bigalk ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bigalk )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_bigalk )%stream(2) = 0 ! 00000000 F_e_bigalk = .TRUE. IF ( emis_ant_index_table( PARAM_e_bigene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bigene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bigene , idomain ) = P_e_bigene ELSE P_e_bigene = emis_ant_index_table( PARAM_e_bigene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bigene ) = .FALSE. emis_ant_dname_table( idomain, P_e_bigene ) = 'E_BIGENE' emis_ant_desc_table( idomain, P_e_bigene ) = 'EMISSIONS BIGENE' emis_ant_units_table( idomain, P_e_bigene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bigene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_bigene )%stream(2) = 0 ! 00000000 F_e_bigene = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h4 , idomain ) = P_e_c2h4 ELSE P_e_c2h4 = emis_ant_index_table( PARAM_e_c2h4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h4 ) = 'E_C2H4' emis_ant_desc_table( idomain, P_e_c2h4 ) = 'EMISSIONS C2H4' emis_ant_units_table( idomain, P_e_c2h4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h4 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h4 )%stream(2) = 0 ! 00000000 F_e_c2h4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5oh , idomain ) = P_e_c2h5oh ELSE P_e_c2h5oh = emis_ant_index_table( PARAM_e_c2h5oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5oh ) = 'E_C2H5OH' emis_ant_desc_table( idomain, P_e_c2h5oh ) = 'EMISSIONS C2H5OH' emis_ant_units_table( idomain, P_e_c2h5oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(2) = 0 ! 00000000 F_e_c2h5oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h6 , idomain ) = P_e_c2h6 ELSE P_e_c2h6 = emis_ant_index_table( PARAM_e_c2h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h6 ) = 'E_C2H6' emis_ant_desc_table( idomain, P_e_c2h6 ) = 'EMISSIONS C2H6' emis_ant_units_table( idomain, P_e_c2h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h6 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h6 )%stream(2) = 0 ! 00000000 F_e_c2h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h6 , idomain ) = P_e_c3h6 ELSE P_e_c3h6 = emis_ant_index_table( PARAM_e_c3h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h6 ) = 'E_C3H6' emis_ant_desc_table( idomain, P_e_c3h6 ) = 'EMISSIONS C3H6' emis_ant_units_table( idomain, P_e_c3h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h6 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c3h6 )%stream(2) = 0 ! 00000000 F_e_c3h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h8 , idomain ) = P_e_c3h8 ELSE P_e_c3h8 = emis_ant_index_table( PARAM_e_c3h8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h8 ) = 'E_C3H8' emis_ant_desc_table( idomain, P_e_c3h8 ) = 'EMISSIONS C3H8' emis_ant_units_table( idomain, P_e_c3h8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h8 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c3h8 )%stream(2) = 0 ! 00000000 F_e_c3h8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch2o , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch2o = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch2o , idomain ) = P_e_ch2o ELSE P_e_ch2o = emis_ant_index_table( PARAM_e_ch2o , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch2o ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch2o ) = 'E_CH2O' emis_ant_desc_table( idomain, P_e_ch2o ) = 'EMISSIONS CH2O' emis_ant_units_table( idomain, P_e_ch2o ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch2o )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch2o )%stream(2) = 0 ! 00000000 F_e_ch2o = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3cho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3cho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3cho , idomain ) = P_e_ch3cho ELSE P_e_ch3cho = emis_ant_index_table( PARAM_e_ch3cho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3cho ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3cho ) = 'E_CH3CHO' emis_ant_desc_table( idomain, P_e_ch3cho ) = 'EMISSIONS CH3CHO' emis_ant_units_table( idomain, P_e_ch3cho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3cho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3cho )%stream(2) = 0 ! 00000000 F_e_ch3cho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3coch3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) = P_e_ch3coch3 ELSE P_e_ch3coch3 = emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3coch3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3coch3 ) = 'E_CH3COCH3' emis_ant_desc_table( idomain, P_e_ch3coch3 ) = 'EMISSIONS CH3COCH3' emis_ant_units_table( idomain, P_e_ch3coch3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3coch3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3coch3 )%stream(2) = 0 ! 00000000 F_e_ch3coch3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3oh , idomain ) = P_e_ch3oh ELSE P_e_ch3oh = emis_ant_index_table( PARAM_e_ch3oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3oh ) = 'E_CH3OH' emis_ant_desc_table( idomain, P_e_ch3oh ) = 'EMISSIONS CH3OH' emis_ant_units_table( idomain, P_e_ch3oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3oh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3oh )%stream(2) = 0 ! 00000000 F_e_ch3oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_mek , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mek = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mek , idomain ) = P_e_mek ELSE P_e_mek = emis_ant_index_table( PARAM_e_mek , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mek ) = .FALSE. emis_ant_dname_table( idomain, P_e_mek ) = 'E_MEK' emis_ant_desc_table( idomain, P_e_mek ) = 'EMISSIONS MEK' emis_ant_units_table( idomain, P_e_mek ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mek )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_mek )%stream(2) = 0 ! 00000000 F_e_mek = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 ! 00200000 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_toluene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_toluene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_toluene , idomain ) = P_e_toluene ELSE P_e_toluene = emis_ant_index_table( PARAM_e_toluene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_toluene ) = .FALSE. emis_ant_dname_table( idomain, P_e_toluene ) = 'E_TOLUENE' emis_ant_desc_table( idomain, P_e_toluene ) = 'EMISSIONS TOLUENE' emis_ant_units_table( idomain, P_e_toluene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_toluene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_toluene )%stream(2) = 0 ! 00000000 F_e_toluene = .TRUE. IF ( emis_ant_index_table( PARAM_e_benzene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_benzene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_benzene , idomain ) = P_e_benzene ELSE P_e_benzene = emis_ant_index_table( PARAM_e_benzene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_benzene ) = .FALSE. emis_ant_dname_table( idomain, P_e_benzene ) = 'E_BENZENE' emis_ant_desc_table( idomain, P_e_benzene ) = 'EMISSIONS BENZENE' emis_ant_units_table( idomain, P_e_benzene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_benzene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_benzene )%stream(2) = 0 ! 00000000 F_e_benzene = .TRUE. IF ( emis_ant_index_table( PARAM_e_xylene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_xylene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_xylene , idomain ) = P_e_xylene ELSE P_e_xylene = emis_ant_index_table( PARAM_e_xylene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_xylene ) = .FALSE. emis_ant_dname_table( idomain, P_e_xylene ) = 'E_XYLENE' emis_ant_desc_table( idomain, P_e_xylene ) = 'EMISSIONS XYLENE' emis_ant_units_table( idomain, P_e_xylene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_xylene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_xylene )%stream(2) = 0 ! 00000000 F_e_xylene = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 ! 00200000 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_isop , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_isop = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_isop , idomain ) = P_e_isop ELSE P_e_isop = emis_ant_index_table( PARAM_e_isop , idomain ) END IF emis_ant_boundary_table( idomain, P_e_isop ) = .FALSE. emis_ant_dname_table( idomain, P_e_isop ) = 'E_ISOP' emis_ant_desc_table( idomain, P_e_isop ) = 'EMISSIONS ISOP' emis_ant_units_table( idomain, P_e_isop ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_isop )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_isop )%stream(2) = 0 ! 00000000 F_e_isop = .TRUE. IF ( emis_ant_index_table( PARAM_e_c10h16 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c10h16 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c10h16 , idomain ) = P_e_c10h16 ELSE P_e_c10h16 = emis_ant_index_table( PARAM_e_c10h16 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c10h16 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c10h16 ) = 'E_C10H16' emis_ant_desc_table( idomain, P_e_c10h16 ) = 'EMISSIONS C10H16' emis_ant_units_table( idomain, P_e_c10h16 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c10h16 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c10h16 )%stream(2) = 0 ! 00000000 F_e_c10h16 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25i , idomain ) = P_e_pm25i ELSE P_e_pm25i = emis_ant_index_table( PARAM_e_pm25i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25i ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25i ) = 'E_PM25I' emis_ant_desc_table( idomain, P_e_pm25i ) = 'EMISSION RATE OF UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm25i )%stream(2) = 2097152 ! 00200000 F_e_pm25i = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25j , idomain ) = P_e_pm25j ELSE P_e_pm25j = emis_ant_index_table( PARAM_e_pm25j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25j ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25j ) = 'E_PM25J' emis_ant_desc_table( idomain, P_e_pm25j ) = 'EMISSION RATE OF J-MODE UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm25j )%stream(2) = 2097152 ! 00200000 F_e_pm25j = .TRUE. IF ( emis_ant_index_table( PARAM_e_eci , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eci = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eci , idomain ) = P_e_eci ELSE P_e_eci = emis_ant_index_table( PARAM_e_eci , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eci ) = .FALSE. emis_ant_dname_table( idomain, P_e_eci ) = 'E_ECI' emis_ant_desc_table( idomain, P_e_eci ) = 'EMISSION RATE OF I-MODE EC' emis_ant_units_table( idomain, P_e_eci ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_eci )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_eci )%stream(2) = 2097152 ! 00200000 F_e_eci = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecj , idomain ) = P_e_ecj ELSE P_e_ecj = emis_ant_index_table( PARAM_e_ecj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecj ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecj ) = 'E_ECJ' emis_ant_desc_table( idomain, P_e_ecj ) = 'EMISSION RATE OF J-MODE EC' emis_ant_units_table( idomain, P_e_ecj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ecj )%stream(2) = 2097152 ! 00200000 F_e_ecj = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi , idomain ) = P_e_orgi ELSE P_e_orgi = emis_ant_index_table( PARAM_e_orgi , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi ) = 'E_ORGI' emis_ant_desc_table( idomain, P_e_orgi ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgi ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgi )%stream(2) = 2097152 ! 00200000 F_e_orgi = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj , idomain ) = P_e_orgj ELSE P_e_orgj = emis_ant_index_table( PARAM_e_orgj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj ) = 'E_ORGJ' emis_ant_desc_table( idomain, P_e_orgj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgj )%stream(2) = 2097152 ! 00200000 F_e_orgj = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4i , idomain ) = P_e_so4i ELSE P_e_so4i = emis_ant_index_table( PARAM_e_so4i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4i ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4i ) = 'E_SO4I' emis_ant_desc_table( idomain, P_e_so4i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4i )%stream(2) = 2097152 ! 00200000 F_e_so4i = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4j , idomain ) = P_e_so4j ELSE P_e_so4j = emis_ant_index_table( PARAM_e_so4j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4j ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4j ) = 'E_SO4J' emis_ant_desc_table( idomain, P_e_so4j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4j )%stream(2) = 2097152 ! 00200000 F_e_so4j = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3i , idomain ) = P_e_no3i ELSE P_e_no3i = emis_ant_index_table( PARAM_e_no3i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3i ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3i ) = 'E_NO3I' emis_ant_desc_table( idomain, P_e_no3i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no3i )%stream(2) = 2097152 ! 00200000 F_e_no3i = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3j , idomain ) = P_e_no3j ELSE P_e_no3j = emis_ant_index_table( PARAM_e_no3j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3j ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3j ) = 'E_NO3J' emis_ant_desc_table( idomain, P_e_no3j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no3j )%stream(2) = 2097152 ! 00200000 F_e_no3j = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh4i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh4i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh4i , idomain ) = P_e_nh4i ELSE P_e_nh4i = emis_ant_index_table( PARAM_e_nh4i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh4i ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh4i ) = 'E_NH4I' emis_ant_desc_table( idomain, P_e_nh4i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_nh4i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_nh4i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nh4i )%stream(2) = 2097152 ! 00200000 F_e_nh4i = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh4j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh4j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh4j , idomain ) = P_e_nh4j ELSE P_e_nh4j = emis_ant_index_table( PARAM_e_nh4j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh4j ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh4j ) = 'E_NH4J' emis_ant_desc_table( idomain, P_e_nh4j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_nh4j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_nh4j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nh4j )%stream(2) = 2097152 ! 00200000 F_e_nh4j = .TRUE. IF ( emis_ant_index_table( PARAM_e_nai , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nai = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nai , idomain ) = P_e_nai ELSE P_e_nai = emis_ant_index_table( PARAM_e_nai , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nai ) = .FALSE. emis_ant_dname_table( idomain, P_e_nai ) = 'E_NAI' emis_ant_desc_table( idomain, P_e_nai ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_nai ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_nai )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nai )%stream(2) = 2097152 ! 00200000 F_e_nai = .TRUE. IF ( emis_ant_index_table( PARAM_e_naj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_naj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_naj , idomain ) = P_e_naj ELSE P_e_naj = emis_ant_index_table( PARAM_e_naj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_naj ) = .FALSE. emis_ant_dname_table( idomain, P_e_naj ) = 'E_NAJ' emis_ant_desc_table( idomain, P_e_naj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_naj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_naj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_naj )%stream(2) = 2097152 ! 00200000 F_e_naj = .TRUE. IF ( emis_ant_index_table( PARAM_e_cli , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_cli = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_cli , idomain ) = P_e_cli ELSE P_e_cli = emis_ant_index_table( PARAM_e_cli , idomain ) END IF emis_ant_boundary_table( idomain, P_e_cli ) = .FALSE. emis_ant_dname_table( idomain, P_e_cli ) = 'E_CLI' emis_ant_desc_table( idomain, P_e_cli ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_cli ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_cli )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_cli )%stream(2) = 2097152 ! 00200000 F_e_cli = .TRUE. IF ( emis_ant_index_table( PARAM_e_clj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_clj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_clj , idomain ) = P_e_clj ELSE P_e_clj = emis_ant_index_table( PARAM_e_clj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_clj ) = .FALSE. emis_ant_dname_table( idomain, P_e_clj ) = 'E_CLJ' emis_ant_desc_table( idomain, P_e_clj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_clj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_clj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_clj )%stream(2) = 2097152 ! 00200000 F_e_clj = .TRUE. IF ( emis_ant_index_table( PARAM_e_co_a , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co_a = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co_a , idomain ) = P_e_co_a ELSE P_e_co_a = emis_ant_index_table( PARAM_e_co_a , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co_a ) = .FALSE. emis_ant_dname_table( idomain, P_e_co_a ) = 'E_CO_A' emis_ant_desc_table( idomain, P_e_co_a ) = 'EMISSIONS CO_A AER' emis_ant_units_table( idomain, P_e_co_a ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_co_a )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co_a )%stream(2) = 0 ! 00000000 F_e_co_a = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi_a , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi_a = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi_a , idomain ) = P_e_orgi_a ELSE P_e_orgi_a = emis_ant_index_table( PARAM_e_orgi_a , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi_a ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi_a ) = 'E_ORGI_A' emis_ant_desc_table( idomain, P_e_orgi_a ) = 'EMISSIONS ORGI_A AER' emis_ant_units_table( idomain, P_e_orgi_a ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi_a )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgi_a )%stream(2) = 2097152 ! 00200000 F_e_orgi_a = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj_a , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj_a = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj_a , idomain ) = P_e_orgj_a ELSE P_e_orgj_a = emis_ant_index_table( PARAM_e_orgj_a , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj_a ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj_a ) = 'E_ORGJ_A' emis_ant_desc_table( idomain, P_e_orgj_a ) = 'EMISSIONS ORGJ_A AER' emis_ant_units_table( idomain, P_e_orgj_a ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj_a )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgj_a )%stream(2) = 2097152 ! 00200000 F_e_orgj_a = .TRUE. IF ( emis_ant_index_table( PARAM_e_co_bb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co_bb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co_bb , idomain ) = P_e_co_bb ELSE P_e_co_bb = emis_ant_index_table( PARAM_e_co_bb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co_bb ) = .FALSE. emis_ant_dname_table( idomain, P_e_co_bb ) = 'E_CO_BB' emis_ant_desc_table( idomain, P_e_co_bb ) = 'EMISSIONS CO_BB AER' emis_ant_units_table( idomain, P_e_co_bb ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_co_bb )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co_bb )%stream(2) = 0 ! 00000000 F_e_co_bb = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi_bb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi_bb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi_bb , idomain ) = P_e_orgi_bb ELSE P_e_orgi_bb = emis_ant_index_table( PARAM_e_orgi_bb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi_bb ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi_bb ) = 'E_ORGI_BB' emis_ant_desc_table( idomain, P_e_orgi_bb ) = 'EMISSIONS ORGI_BB AER' emis_ant_units_table( idomain, P_e_orgi_bb ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi_bb )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgi_bb )%stream(2) = 2097152 ! 00200000 F_e_orgi_bb = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj_bb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj_bb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj_bb , idomain ) = P_e_orgj_bb ELSE P_e_orgj_bb = emis_ant_index_table( PARAM_e_orgj_bb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj_bb ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj_bb ) = 'E_ORGJ_BB' emis_ant_desc_table( idomain, P_e_orgj_bb ) = 'EMISSIONS ORGJ_BB AER' emis_ant_units_table( idomain, P_e_orgj_bb ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj_bb )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgj_bb )%stream(2) = 2097152 ! 00200000 F_e_orgj_bb = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm_10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm_10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm_10 , idomain ) = P_e_pm_10 ELSE P_e_pm_10 = emis_ant_index_table( PARAM_e_pm_10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm_10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm_10 ) = 'E_PM_10' emis_ant_desc_table( idomain, P_e_pm_10 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_pm_10 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pm_10 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm_10 )%stream(2) = 2097152 ! 00200000 F_e_pm_10 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h2 , idomain ) = P_e_c2h2 ELSE P_e_c2h2 = emis_ant_index_table( PARAM_e_c2h2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h2 ) = 'E_C2H2' emis_ant_desc_table( idomain, P_e_c2h2 ) = 'C2H2 emissions' emis_ant_units_table( idomain, P_e_c2h2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h2 )%stream(2) = 2097152 ! 00200000 F_e_c2h2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_gly , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_gly = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_gly , idomain ) = P_e_gly ELSE P_e_gly = emis_ant_index_table( PARAM_e_gly , idomain ) END IF emis_ant_boundary_table( idomain, P_e_gly ) = .FALSE. emis_ant_dname_table( idomain, P_e_gly ) = 'E_GLY' emis_ant_desc_table( idomain, P_e_gly ) = 'GLY emissions' emis_ant_units_table( idomain, P_e_gly ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_gly )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_gly )%stream(2) = 2097152 ! 00200000 F_e_gly = .TRUE. IF ( emis_ant_index_table( PARAM_e_sulf , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_sulf = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_sulf , idomain ) = P_e_sulf ELSE P_e_sulf = emis_ant_index_table( PARAM_e_sulf , idomain ) END IF emis_ant_boundary_table( idomain, P_e_sulf ) = .FALSE. emis_ant_dname_table( idomain, P_e_sulf ) = 'E_sulf' emis_ant_desc_table( idomain, P_e_sulf ) = 'EMISSIONS SO4' emis_ant_units_table( idomain, P_e_sulf ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_sulf )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_sulf )%stream(2) = 0 ! 00000000 F_e_sulf = .TRUE. IF ( emis_ant_index_table( PARAM_e_macr , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_macr = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_macr , idomain ) = P_e_macr ELSE P_e_macr = emis_ant_index_table( PARAM_e_macr , idomain ) END IF emis_ant_boundary_table( idomain, P_e_macr ) = .FALSE. emis_ant_dname_table( idomain, P_e_macr ) = 'E_MACR' emis_ant_desc_table( idomain, P_e_macr ) = 'MACR emissions' emis_ant_units_table( idomain, P_e_macr ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_macr )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_macr )%stream(2) = 0 ! 00000000 F_e_macr = .TRUE. IF ( emis_ant_index_table( PARAM_e_mgly , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mgly = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mgly , idomain ) = P_e_mgly ELSE P_e_mgly = emis_ant_index_table( PARAM_e_mgly , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mgly ) = .FALSE. emis_ant_dname_table( idomain, P_e_mgly ) = 'E_MGLY' emis_ant_desc_table( idomain, P_e_mgly ) = 'MGLY emissions' emis_ant_units_table( idomain, P_e_mgly ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mgly )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_mgly )%stream(2) = 2097152 ! 00200000 F_e_mgly = .TRUE. IF ( emis_ant_index_table( PARAM_e_mvk , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mvk = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mvk , idomain ) = P_e_mvk ELSE P_e_mvk = emis_ant_index_table( PARAM_e_mvk , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mvk ) = .FALSE. emis_ant_dname_table( idomain, P_e_mvk ) = 'E_MVK' emis_ant_desc_table( idomain, P_e_mvk ) = 'MVK emissions' emis_ant_units_table( idomain, P_e_mvk ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mvk )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_mvk )%stream(2) = 2097152 ! 00200000 F_e_mvk = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcooh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcooh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcooh , idomain ) = P_e_hcooh ELSE P_e_hcooh = emis_ant_index_table( PARAM_e_hcooh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcooh ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcooh ) = 'E_HCOOH' emis_ant_desc_table( idomain, P_e_hcooh ) = 'HCOOH emissions' emis_ant_units_table( idomain, P_e_hcooh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcooh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hcooh )%stream(2) = 2097152 ! 00200000 F_e_hcooh = .TRUE. IF ( emis_ant_index_table( PARAM_e_hono , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hono = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hono , idomain ) = P_e_hono ELSE P_e_hono = emis_ant_index_table( PARAM_e_hono , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hono ) = .FALSE. emis_ant_dname_table( idomain, P_e_hono ) = 'E_HONO' emis_ant_desc_table( idomain, P_e_hono ) = 'HONO emissions' emis_ant_units_table( idomain, P_e_hono ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hono )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hono )%stream(2) = 0 ! 00000000 F_e_hono = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==13)THEN IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 ! 00200000 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h6 , idomain ) = P_e_c2h6 ELSE P_e_c2h6 = emis_ant_index_table( PARAM_e_c2h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h6 ) = 'E_C2H6' emis_ant_desc_table( idomain, P_e_c2h6 ) = 'EMISSIONS C2H6' emis_ant_units_table( idomain, P_e_c2h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h6 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h6 )%stream(2) = 0 ! 00000000 F_e_c2h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h8 , idomain ) = P_e_c3h8 ELSE P_e_c3h8 = emis_ant_index_table( PARAM_e_c3h8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h8 ) = 'E_C3H8' emis_ant_desc_table( idomain, P_e_c3h8 ) = 'EMISSIONS C3H8' emis_ant_units_table( idomain, P_e_c3h8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h8 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c3h8 )%stream(2) = 0 ! 00000000 F_e_c3h8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h2 , idomain ) = P_e_c2h2 ELSE P_e_c2h2 = emis_ant_index_table( PARAM_e_c2h2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h2 ) = 'E_C2H2' emis_ant_desc_table( idomain, P_e_c2h2 ) = 'C2H2 emissions' emis_ant_units_table( idomain, P_e_c2h2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h2 )%stream(2) = 2097152 ! 00200000 F_e_c2h2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_alk3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_alk3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_alk3 , idomain ) = P_e_alk3 ELSE P_e_alk3 = emis_ant_index_table( PARAM_e_alk3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_alk3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_alk3 ) = 'E_ALK3' emis_ant_desc_table( idomain, P_e_alk3 ) = 'ALK3 emissions' emis_ant_units_table( idomain, P_e_alk3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_alk3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_alk3 )%stream(2) = 2097152 ! 00200000 F_e_alk3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_alk4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_alk4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_alk4 , idomain ) = P_e_alk4 ELSE P_e_alk4 = emis_ant_index_table( PARAM_e_alk4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_alk4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_alk4 ) = 'E_ALK4' emis_ant_desc_table( idomain, P_e_alk4 ) = 'ALK4 emissions' emis_ant_units_table( idomain, P_e_alk4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_alk4 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_alk4 )%stream(2) = 2097152 ! 00200000 F_e_alk4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_alk5 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_alk5 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_alk5 , idomain ) = P_e_alk5 ELSE P_e_alk5 = emis_ant_index_table( PARAM_e_alk5 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_alk5 ) = .FALSE. emis_ant_dname_table( idomain, P_e_alk5 ) = 'E_ALK5' emis_ant_desc_table( idomain, P_e_alk5 ) = 'ALK5 emissions' emis_ant_units_table( idomain, P_e_alk5 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_alk5 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_alk5 )%stream(2) = 2097152 ! 00200000 F_e_alk5 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ethene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ethene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ethene , idomain ) = P_e_ethene ELSE P_e_ethene = emis_ant_index_table( PARAM_e_ethene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ethene ) = .FALSE. emis_ant_dname_table( idomain, P_e_ethene ) = 'E_ETHENE' emis_ant_desc_table( idomain, P_e_ethene ) = 'ETHENE emissions' emis_ant_units_table( idomain, P_e_ethene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ethene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ethene )%stream(2) = 2097152 ! 00200000 F_e_ethene = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h6 , idomain ) = P_e_c3h6 ELSE P_e_c3h6 = emis_ant_index_table( PARAM_e_c3h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h6 ) = 'E_C3H6' emis_ant_desc_table( idomain, P_e_c3h6 ) = 'EMISSIONS C3H6' emis_ant_units_table( idomain, P_e_c3h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h6 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c3h6 )%stream(2) = 0 ! 00000000 F_e_c3h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ole1 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ole1 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ole1 , idomain ) = P_e_ole1 ELSE P_e_ole1 = emis_ant_index_table( PARAM_e_ole1 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ole1 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ole1 ) = 'E_OLE1' emis_ant_desc_table( idomain, P_e_ole1 ) = 'OLE1 emissions' emis_ant_units_table( idomain, P_e_ole1 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ole1 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ole1 )%stream(2) = 2097152 ! 00200000 F_e_ole1 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ole2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ole2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ole2 , idomain ) = P_e_ole2 ELSE P_e_ole2 = emis_ant_index_table( PARAM_e_ole2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ole2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ole2 ) = 'E_OLE2' emis_ant_desc_table( idomain, P_e_ole2 ) = 'OLE2 emissions' emis_ant_units_table( idomain, P_e_ole2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ole2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ole2 )%stream(2) = 2097152 ! 00200000 F_e_ole2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_aro1 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_aro1 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_aro1 , idomain ) = P_e_aro1 ELSE P_e_aro1 = emis_ant_index_table( PARAM_e_aro1 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_aro1 ) = .FALSE. emis_ant_dname_table( idomain, P_e_aro1 ) = 'E_ARO1' emis_ant_desc_table( idomain, P_e_aro1 ) = 'ARO1 emissions' emis_ant_units_table( idomain, P_e_aro1 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_aro1 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_aro1 )%stream(2) = 2097152 ! 00200000 F_e_aro1 = .TRUE. IF ( emis_ant_index_table( PARAM_e_aro2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_aro2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_aro2 , idomain ) = P_e_aro2 ELSE P_e_aro2 = emis_ant_index_table( PARAM_e_aro2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_aro2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_aro2 ) = 'E_ARO2' emis_ant_desc_table( idomain, P_e_aro2 ) = 'ARO2 emissions' emis_ant_units_table( idomain, P_e_aro2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_aro2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_aro2 )%stream(2) = 2097152 ! 00200000 F_e_aro2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 ! 00200000 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ccho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ccho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ccho , idomain ) = P_e_ccho ELSE P_e_ccho = emis_ant_index_table( PARAM_e_ccho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ccho ) = .FALSE. emis_ant_dname_table( idomain, P_e_ccho ) = 'E_CCHO' emis_ant_desc_table( idomain, P_e_ccho ) = 'CCHO emissions' emis_ant_units_table( idomain, P_e_ccho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ccho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ccho )%stream(2) = 2097152 ! 00200000 F_e_ccho = .TRUE. IF ( emis_ant_index_table( PARAM_e_rcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_rcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_rcho , idomain ) = P_e_rcho ELSE P_e_rcho = emis_ant_index_table( PARAM_e_rcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_rcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_rcho ) = 'E_RCHO' emis_ant_desc_table( idomain, P_e_rcho ) = 'RCHO emissions' emis_ant_units_table( idomain, P_e_rcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_rcho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_rcho )%stream(2) = 2097152 ! 00200000 F_e_rcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_acet , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_acet = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_acet , idomain ) = P_e_acet ELSE P_e_acet = emis_ant_index_table( PARAM_e_acet , idomain ) END IF emis_ant_boundary_table( idomain, P_e_acet ) = .FALSE. emis_ant_dname_table( idomain, P_e_acet ) = 'E_ACET' emis_ant_desc_table( idomain, P_e_acet ) = 'ACET emissions' emis_ant_units_table( idomain, P_e_acet ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_acet )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_acet )%stream(2) = 2097152 ! 00200000 F_e_acet = .TRUE. IF ( emis_ant_index_table( PARAM_e_mek , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mek = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mek , idomain ) = P_e_mek ELSE P_e_mek = emis_ant_index_table( PARAM_e_mek , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mek ) = .FALSE. emis_ant_dname_table( idomain, P_e_mek ) = 'E_MEK' emis_ant_desc_table( idomain, P_e_mek ) = 'EMISSIONS MEK' emis_ant_units_table( idomain, P_e_mek ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mek )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_mek )%stream(2) = 0 ! 00000000 F_e_mek = .TRUE. IF ( emis_ant_index_table( PARAM_e_isoprene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_isoprene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_isoprene , idomain ) = P_e_isoprene ELSE P_e_isoprene = emis_ant_index_table( PARAM_e_isoprene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_isoprene ) = .FALSE. emis_ant_dname_table( idomain, P_e_isoprene ) = 'E_ISOPRENE' emis_ant_desc_table( idomain, P_e_isoprene ) = 'ISOPRENE emissions' emis_ant_units_table( idomain, P_e_isoprene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_isoprene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_isoprene )%stream(2) = 2097152 ! 00200000 F_e_isoprene = .TRUE. IF ( emis_ant_index_table( PARAM_e_terp , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_terp = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_terp , idomain ) = P_e_terp ELSE P_e_terp = emis_ant_index_table( PARAM_e_terp , idomain ) END IF emis_ant_boundary_table( idomain, P_e_terp ) = .FALSE. emis_ant_dname_table( idomain, P_e_terp ) = 'E_TERP' emis_ant_desc_table( idomain, P_e_terp ) = 'TERP emissions' emis_ant_units_table( idomain, P_e_terp ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_terp )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_terp )%stream(2) = 2097152 ! 00200000 F_e_terp = .TRUE. IF ( emis_ant_index_table( PARAM_e_sesq , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_sesq = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_sesq , idomain ) = P_e_sesq ELSE P_e_sesq = emis_ant_index_table( PARAM_e_sesq , idomain ) END IF emis_ant_boundary_table( idomain, P_e_sesq ) = .FALSE. emis_ant_dname_table( idomain, P_e_sesq ) = 'E_SESQ' emis_ant_desc_table( idomain, P_e_sesq ) = 'SESQUITERPENE emissions' emis_ant_units_table( idomain, P_e_sesq ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_sesq )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_sesq )%stream(2) = 2097152 ! 00200000 F_e_sesq = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 ! 00200000 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 ! 00200000 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 ! 00200000 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_phen , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_phen = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_phen , idomain ) = P_e_phen ELSE P_e_phen = emis_ant_index_table( PARAM_e_phen , idomain ) END IF emis_ant_boundary_table( idomain, P_e_phen ) = .FALSE. emis_ant_dname_table( idomain, P_e_phen ) = 'E_PHEN' emis_ant_desc_table( idomain, P_e_phen ) = 'PHEN emissions' emis_ant_units_table( idomain, P_e_phen ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_phen )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_phen )%stream(2) = 2097152 ! 00200000 F_e_phen = .TRUE. IF ( emis_ant_index_table( PARAM_e_cres , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_cres = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_cres , idomain ) = P_e_cres ELSE P_e_cres = emis_ant_index_table( PARAM_e_cres , idomain ) END IF emis_ant_boundary_table( idomain, P_e_cres ) = .FALSE. emis_ant_dname_table( idomain, P_e_cres ) = 'E_CRES' emis_ant_desc_table( idomain, P_e_cres ) = 'CRES emissions' emis_ant_units_table( idomain, P_e_cres ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_cres )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_cres )%stream(2) = 2097152 ! 00200000 F_e_cres = .TRUE. IF ( emis_ant_index_table( PARAM_e_meoh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_meoh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_meoh , idomain ) = P_e_meoh ELSE P_e_meoh = emis_ant_index_table( PARAM_e_meoh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_meoh ) = .FALSE. emis_ant_dname_table( idomain, P_e_meoh ) = 'E_MEOH' emis_ant_desc_table( idomain, P_e_meoh ) = 'MEOH emissions' emis_ant_units_table( idomain, P_e_meoh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_meoh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_meoh )%stream(2) = 2097152 ! 00200000 F_e_meoh = .TRUE. IF ( emis_ant_index_table( PARAM_e_gly , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_gly = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_gly , idomain ) = P_e_gly ELSE P_e_gly = emis_ant_index_table( PARAM_e_gly , idomain ) END IF emis_ant_boundary_table( idomain, P_e_gly ) = .FALSE. emis_ant_dname_table( idomain, P_e_gly ) = 'E_GLY' emis_ant_desc_table( idomain, P_e_gly ) = 'GLY emissions' emis_ant_units_table( idomain, P_e_gly ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_gly )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_gly )%stream(2) = 2097152 ! 00200000 F_e_gly = .TRUE. IF ( emis_ant_index_table( PARAM_e_mgly , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mgly = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mgly , idomain ) = P_e_mgly ELSE P_e_mgly = emis_ant_index_table( PARAM_e_mgly , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mgly ) = .FALSE. emis_ant_dname_table( idomain, P_e_mgly ) = 'E_MGLY' emis_ant_desc_table( idomain, P_e_mgly ) = 'MGLY emissions' emis_ant_units_table( idomain, P_e_mgly ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mgly )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_mgly )%stream(2) = 2097152 ! 00200000 F_e_mgly = .TRUE. IF ( emis_ant_index_table( PARAM_e_bacl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bacl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bacl , idomain ) = P_e_bacl ELSE P_e_bacl = emis_ant_index_table( PARAM_e_bacl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bacl ) = .FALSE. emis_ant_dname_table( idomain, P_e_bacl ) = 'E_BACL' emis_ant_desc_table( idomain, P_e_bacl ) = 'BACL emissions' emis_ant_units_table( idomain, P_e_bacl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bacl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_bacl )%stream(2) = 2097152 ! 00200000 F_e_bacl = .TRUE. IF ( emis_ant_index_table( PARAM_e_isoprod , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_isoprod = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_isoprod , idomain ) = P_e_isoprod ELSE P_e_isoprod = emis_ant_index_table( PARAM_e_isoprod , idomain ) END IF emis_ant_boundary_table( idomain, P_e_isoprod ) = .FALSE. emis_ant_dname_table( idomain, P_e_isoprod ) = 'E_ISOPROD' emis_ant_desc_table( idomain, P_e_isoprod ) = 'ISOPROD emissions' emis_ant_units_table( idomain, P_e_isoprod ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_isoprod )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_isoprod )%stream(2) = 2097152 ! 00200000 F_e_isoprod = .TRUE. IF ( emis_ant_index_table( PARAM_e_methacro , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_methacro = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_methacro , idomain ) = P_e_methacro ELSE P_e_methacro = emis_ant_index_table( PARAM_e_methacro , idomain ) END IF emis_ant_boundary_table( idomain, P_e_methacro ) = .FALSE. emis_ant_dname_table( idomain, P_e_methacro ) = 'E_METHACRO' emis_ant_desc_table( idomain, P_e_methacro ) = 'METHACRO emissions' emis_ant_units_table( idomain, P_e_methacro ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_methacro )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_methacro )%stream(2) = 2097152 ! 00200000 F_e_methacro = .TRUE. IF ( emis_ant_index_table( PARAM_e_mvk , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mvk = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mvk , idomain ) = P_e_mvk ELSE P_e_mvk = emis_ant_index_table( PARAM_e_mvk , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mvk ) = .FALSE. emis_ant_dname_table( idomain, P_e_mvk ) = 'E_MVK' emis_ant_desc_table( idomain, P_e_mvk ) = 'MVK emissions' emis_ant_units_table( idomain, P_e_mvk ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mvk )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_mvk )%stream(2) = 2097152 ! 00200000 F_e_mvk = .TRUE. IF ( emis_ant_index_table( PARAM_e_prod2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_prod2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_prod2 , idomain ) = P_e_prod2 ELSE P_e_prod2 = emis_ant_index_table( PARAM_e_prod2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_prod2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_prod2 ) = 'E_PROD2' emis_ant_desc_table( idomain, P_e_prod2 ) = 'PROD2 emissions' emis_ant_units_table( idomain, P_e_prod2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_prod2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_prod2 )%stream(2) = 2097152 ! 00200000 F_e_prod2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch4 , idomain ) = P_e_ch4 ELSE P_e_ch4 = emis_ant_index_table( PARAM_e_ch4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch4 ) = 'E_CH4' emis_ant_desc_table( idomain, P_e_ch4 ) = 'CH4 emissions' emis_ant_units_table( idomain, P_e_ch4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch4 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch4 )%stream(2) = 2097152 ! 00200000 F_e_ch4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_bald , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bald = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bald , idomain ) = P_e_bald ELSE P_e_bald = emis_ant_index_table( PARAM_e_bald , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bald ) = .FALSE. emis_ant_dname_table( idomain, P_e_bald ) = 'E_BALD' emis_ant_desc_table( idomain, P_e_bald ) = 'BALD emissions' emis_ant_units_table( idomain, P_e_bald ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bald )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_bald )%stream(2) = 2097152 ! 00200000 F_e_bald = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcooh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcooh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcooh , idomain ) = P_e_hcooh ELSE P_e_hcooh = emis_ant_index_table( PARAM_e_hcooh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcooh ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcooh ) = 'E_HCOOH' emis_ant_desc_table( idomain, P_e_hcooh ) = 'HCOOH emissions' emis_ant_units_table( idomain, P_e_hcooh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcooh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hcooh )%stream(2) = 2097152 ! 00200000 F_e_hcooh = .TRUE. IF ( emis_ant_index_table( PARAM_e_cco_oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_cco_oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_cco_oh , idomain ) = P_e_cco_oh ELSE P_e_cco_oh = emis_ant_index_table( PARAM_e_cco_oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_cco_oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_cco_oh ) = 'E_CCO_OH' emis_ant_desc_table( idomain, P_e_cco_oh ) = 'CCO_OH emissions' emis_ant_units_table( idomain, P_e_cco_oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_cco_oh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_cco_oh )%stream(2) = 2097152 ! 00200000 F_e_cco_oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_rco_oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_rco_oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_rco_oh , idomain ) = P_e_rco_oh ELSE P_e_rco_oh = emis_ant_index_table( PARAM_e_rco_oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_rco_oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_rco_oh ) = 'E_RCO_OH' emis_ant_desc_table( idomain, P_e_rco_oh ) = 'RCO_OH emissions' emis_ant_units_table( idomain, P_e_rco_oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_rco_oh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_rco_oh )%stream(2) = 2097152 ! 00200000 F_e_rco_oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 ! 00200000 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25i , idomain ) = P_e_pm25i ELSE P_e_pm25i = emis_ant_index_table( PARAM_e_pm25i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25i ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25i ) = 'E_PM25I' emis_ant_desc_table( idomain, P_e_pm25i ) = 'EMISSION RATE OF UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm25i )%stream(2) = 2097152 ! 00200000 F_e_pm25i = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25j , idomain ) = P_e_pm25j ELSE P_e_pm25j = emis_ant_index_table( PARAM_e_pm25j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25j ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25j ) = 'E_PM25J' emis_ant_desc_table( idomain, P_e_pm25j ) = 'EMISSION RATE OF J-MODE UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm25j )%stream(2) = 2097152 ! 00200000 F_e_pm25j = .TRUE. IF ( emis_ant_index_table( PARAM_e_eci , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eci = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eci , idomain ) = P_e_eci ELSE P_e_eci = emis_ant_index_table( PARAM_e_eci , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eci ) = .FALSE. emis_ant_dname_table( idomain, P_e_eci ) = 'E_ECI' emis_ant_desc_table( idomain, P_e_eci ) = 'EMISSION RATE OF I-MODE EC' emis_ant_units_table( idomain, P_e_eci ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_eci )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_eci )%stream(2) = 2097152 ! 00200000 F_e_eci = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecj , idomain ) = P_e_ecj ELSE P_e_ecj = emis_ant_index_table( PARAM_e_ecj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecj ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecj ) = 'E_ECJ' emis_ant_desc_table( idomain, P_e_ecj ) = 'EMISSION RATE OF J-MODE EC' emis_ant_units_table( idomain, P_e_ecj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ecj )%stream(2) = 2097152 ! 00200000 F_e_ecj = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi , idomain ) = P_e_orgi ELSE P_e_orgi = emis_ant_index_table( PARAM_e_orgi , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi ) = 'E_ORGI' emis_ant_desc_table( idomain, P_e_orgi ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgi ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgi )%stream(2) = 2097152 ! 00200000 F_e_orgi = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj , idomain ) = P_e_orgj ELSE P_e_orgj = emis_ant_index_table( PARAM_e_orgj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj ) = 'E_ORGJ' emis_ant_desc_table( idomain, P_e_orgj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgj )%stream(2) = 2097152 ! 00200000 F_e_orgj = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4i , idomain ) = P_e_so4i ELSE P_e_so4i = emis_ant_index_table( PARAM_e_so4i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4i ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4i ) = 'E_SO4I' emis_ant_desc_table( idomain, P_e_so4i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4i )%stream(2) = 2097152 ! 00200000 F_e_so4i = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4j , idomain ) = P_e_so4j ELSE P_e_so4j = emis_ant_index_table( PARAM_e_so4j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4j ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4j ) = 'E_SO4J' emis_ant_desc_table( idomain, P_e_so4j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4j )%stream(2) = 2097152 ! 00200000 F_e_so4j = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3i , idomain ) = P_e_no3i ELSE P_e_no3i = emis_ant_index_table( PARAM_e_no3i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3i ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3i ) = 'E_NO3I' emis_ant_desc_table( idomain, P_e_no3i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no3i )%stream(2) = 2097152 ! 00200000 F_e_no3i = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3j , idomain ) = P_e_no3j ELSE P_e_no3j = emis_ant_index_table( PARAM_e_no3j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3j ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3j ) = 'E_NO3J' emis_ant_desc_table( idomain, P_e_no3j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no3j )%stream(2) = 2097152 ! 00200000 F_e_no3j = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi_a , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi_a = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi_a , idomain ) = P_e_orgi_a ELSE P_e_orgi_a = emis_ant_index_table( PARAM_e_orgi_a , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi_a ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi_a ) = 'E_ORGI_A' emis_ant_desc_table( idomain, P_e_orgi_a ) = 'EMISSIONS ORGI_A AER' emis_ant_units_table( idomain, P_e_orgi_a ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi_a )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgi_a )%stream(2) = 2097152 ! 00200000 F_e_orgi_a = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj_a , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj_a = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj_a , idomain ) = P_e_orgj_a ELSE P_e_orgj_a = emis_ant_index_table( PARAM_e_orgj_a , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj_a ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj_a ) = 'E_ORGJ_A' emis_ant_desc_table( idomain, P_e_orgj_a ) = 'EMISSIONS ORGJ_A AER' emis_ant_units_table( idomain, P_e_orgj_a ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj_a )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgj_a )%stream(2) = 2097152 ! 00200000 F_e_orgj_a = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi_bb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi_bb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi_bb , idomain ) = P_e_orgi_bb ELSE P_e_orgi_bb = emis_ant_index_table( PARAM_e_orgi_bb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi_bb ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi_bb ) = 'E_ORGI_BB' emis_ant_desc_table( idomain, P_e_orgi_bb ) = 'EMISSIONS ORGI_BB AER' emis_ant_units_table( idomain, P_e_orgi_bb ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi_bb )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgi_bb )%stream(2) = 2097152 ! 00200000 F_e_orgi_bb = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj_bb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj_bb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj_bb , idomain ) = P_e_orgj_bb ELSE P_e_orgj_bb = emis_ant_index_table( PARAM_e_orgj_bb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj_bb ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj_bb ) = 'E_ORGJ_BB' emis_ant_desc_table( idomain, P_e_orgj_bb ) = 'EMISSIONS ORGJ_BB AER' emis_ant_units_table( idomain, P_e_orgj_bb ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj_bb )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgj_bb )%stream(2) = 2097152 ! 00200000 F_e_orgj_bb = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==14)THEN IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 ! 00200000 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_xyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_xyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_xyl , idomain ) = P_e_xyl ELSE P_e_xyl = emis_ant_index_table( PARAM_e_xyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_xyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_xyl ) = 'E_XYL' emis_ant_desc_table( idomain, P_e_xyl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_xyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_xyl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_xyl )%stream(2) = 2097152 ! 00200000 F_e_xyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_tol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tol , idomain ) = P_e_tol ELSE P_e_tol = emis_ant_index_table( PARAM_e_tol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tol ) = .FALSE. emis_ant_dname_table( idomain, P_e_tol ) = 'E_TOL' emis_ant_desc_table( idomain, P_e_tol ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_tol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tol )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_tol )%stream(2) = 2097152 ! 00200000 F_e_tol = .TRUE. IF ( emis_ant_index_table( PARAM_e_terp , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_terp = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_terp , idomain ) = P_e_terp ELSE P_e_terp = emis_ant_index_table( PARAM_e_terp , idomain ) END IF emis_ant_boundary_table( idomain, P_e_terp ) = .FALSE. emis_ant_dname_table( idomain, P_e_terp ) = 'E_TERP' emis_ant_desc_table( idomain, P_e_terp ) = 'TERP emissions' emis_ant_units_table( idomain, P_e_terp ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_terp )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_terp )%stream(2) = 2097152 ! 00200000 F_e_terp = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 ! 00200000 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ora2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ora2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ora2 , idomain ) = P_e_ora2 ELSE P_e_ora2 = emis_ant_index_table( PARAM_e_ora2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ora2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ora2 ) = 'E_ORA2' emis_ant_desc_table( idomain, P_e_ora2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ora2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ora2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ora2 )%stream(2) = 2097152 ! 00200000 F_e_ora2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_olt , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_olt = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_olt , idomain ) = P_e_olt ELSE P_e_olt = emis_ant_index_table( PARAM_e_olt , idomain ) END IF emis_ant_boundary_table( idomain, P_e_olt ) = .FALSE. emis_ant_dname_table( idomain, P_e_olt ) = 'E_OLT' emis_ant_desc_table( idomain, P_e_olt ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_olt ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_olt )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_olt )%stream(2) = 2097152 ! 00200000 F_e_olt = .TRUE. IF ( emis_ant_index_table( PARAM_e_oli , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oli = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oli , idomain ) = P_e_oli ELSE P_e_oli = emis_ant_index_table( PARAM_e_oli , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oli ) = .FALSE. emis_ant_dname_table( idomain, P_e_oli ) = 'E_OLI' emis_ant_desc_table( idomain, P_e_oli ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_oli ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oli )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oli )%stream(2) = 2097152 ! 00200000 F_e_oli = .TRUE. IF ( emis_ant_index_table( PARAM_e_ol2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ol2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ol2 , idomain ) = P_e_ol2 ELSE P_e_ol2 = emis_ant_index_table( PARAM_e_ol2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ol2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ol2 ) = 'E_OL2' emis_ant_desc_table( idomain, P_e_ol2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ol2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ol2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ol2 )%stream(2) = 2097152 ! 00200000 F_e_ol2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 ! 00200000 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 ! 00200000 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_iso , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_iso = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_iso , idomain ) = P_e_iso ELSE P_e_iso = emis_ant_index_table( PARAM_e_iso , idomain ) END IF emis_ant_boundary_table( idomain, P_e_iso ) = .FALSE. emis_ant_dname_table( idomain, P_e_iso ) = 'E_ISO' emis_ant_desc_table( idomain, P_e_iso ) = 'Isoprene EMISSIONS (Anth. for RADM/RACM, Anth+Bio for CBMZ)' emis_ant_units_table( idomain, P_e_iso ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_iso )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_iso )%stream(2) = 2097152 ! 00200000 F_e_iso = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcl , idomain ) = P_e_hcl ELSE P_e_hcl = emis_ant_index_table( PARAM_e_hcl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcl ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcl ) = 'E_HCL' emis_ant_desc_table( idomain, P_e_hcl ) = 'EMISSIONS HCL' emis_ant_units_table( idomain, P_e_hcl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hcl )%stream(2) = 0 ! 00000000 F_e_hcl = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 ! 00200000 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_eth , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eth = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eth , idomain ) = P_e_eth ELSE P_e_eth = emis_ant_index_table( PARAM_e_eth , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eth ) = .FALSE. emis_ant_dname_table( idomain, P_e_eth ) = 'E_ETH' emis_ant_desc_table( idomain, P_e_eth ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_eth ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_eth )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_eth )%stream(2) = 2097152 ! 00200000 F_e_eth = .TRUE. IF ( emis_ant_index_table( PARAM_e_csl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_csl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_csl , idomain ) = P_e_csl ELSE P_e_csl = emis_ant_index_table( PARAM_e_csl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_csl ) = .FALSE. emis_ant_dname_table( idomain, P_e_csl ) = 'E_CSL' emis_ant_desc_table( idomain, P_e_csl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_csl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_csl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_csl )%stream(2) = 2097152 ! 00200000 F_e_csl = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 ! 00200000 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3oh , idomain ) = P_e_ch3oh ELSE P_e_ch3oh = emis_ant_index_table( PARAM_e_ch3oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3oh ) = 'E_CH3OH' emis_ant_desc_table( idomain, P_e_ch3oh ) = 'EMISSIONS CH3OH' emis_ant_units_table( idomain, P_e_ch3oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3oh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3oh )%stream(2) = 0 ! 00000000 F_e_ch3oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5oh , idomain ) = P_e_c2h5oh ELSE P_e_c2h5oh = emis_ant_index_table( PARAM_e_c2h5oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5oh ) = 'E_C2H5OH' emis_ant_desc_table( idomain, P_e_c2h5oh ) = 'EMISSIONS C2H5OH' emis_ant_units_table( idomain, P_e_c2h5oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(2) = 0 ! 00000000 F_e_c2h5oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_ald , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ald = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ald , idomain ) = P_e_ald ELSE P_e_ald = emis_ant_index_table( PARAM_e_ald , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ald ) = .FALSE. emis_ant_dname_table( idomain, P_e_ald ) = 'E_ALD' emis_ant_desc_table( idomain, P_e_ald ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ald ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ald )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ald )%stream(2) = 2097152 ! 00200000 F_e_ald = .TRUE. IF ( emis_ant_index_table( PARAM_e_aldx , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_aldx = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_aldx , idomain ) = P_e_aldx ELSE P_e_aldx = emis_ant_index_table( PARAM_e_aldx , idomain ) END IF emis_ant_boundary_table( idomain, P_e_aldx ) = .FALSE. emis_ant_dname_table( idomain, P_e_aldx ) = 'E_ALDX' emis_ant_desc_table( idomain, P_e_aldx ) = 'EMISSIONS ALDX' emis_ant_units_table( idomain, P_e_aldx ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_aldx )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_aldx )%stream(2) = 0 ! 00000000 F_e_aldx = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc3 , idomain ) = P_e_hc3 ELSE P_e_hc3 = emis_ant_index_table( PARAM_e_hc3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc3 ) = 'E_HC3' emis_ant_desc_table( idomain, P_e_hc3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc3 )%stream(2) = 2097152 ! 00200000 F_e_hc3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc5 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc5 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc5 , idomain ) = P_e_hc5 ELSE P_e_hc5 = emis_ant_index_table( PARAM_e_hc5 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc5 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc5 ) = 'E_HC5' emis_ant_desc_table( idomain, P_e_hc5 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc5 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc5 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc5 )%stream(2) = 2097152 ! 00200000 F_e_hc5 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc8 , idomain ) = P_e_hc8 ELSE P_e_hc8 = emis_ant_index_table( PARAM_e_hc8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc8 ) = 'E_HC8' emis_ant_desc_table( idomain, P_e_hc8 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc8 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hc8 )%stream(2) = 2097152 ! 00200000 F_e_hc8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ket , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ket = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ket , idomain ) = P_e_ket ELSE P_e_ket = emis_ant_index_table( PARAM_e_ket , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ket ) = .FALSE. emis_ant_dname_table( idomain, P_e_ket ) = 'E_KET' emis_ant_desc_table( idomain, P_e_ket ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ket ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ket )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ket )%stream(2) = 2097152 ! 00200000 F_e_ket = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25i , idomain ) = P_e_pm25i ELSE P_e_pm25i = emis_ant_index_table( PARAM_e_pm25i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25i ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25i ) = 'E_PM25I' emis_ant_desc_table( idomain, P_e_pm25i ) = 'EMISSION RATE OF UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm25i )%stream(2) = 2097152 ! 00200000 F_e_pm25i = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25j , idomain ) = P_e_pm25j ELSE P_e_pm25j = emis_ant_index_table( PARAM_e_pm25j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25j ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25j ) = 'E_PM25J' emis_ant_desc_table( idomain, P_e_pm25j ) = 'EMISSION RATE OF J-MODE UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm25j )%stream(2) = 2097152 ! 00200000 F_e_pm25j = .TRUE. IF ( emis_ant_index_table( PARAM_e_eci , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eci = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eci , idomain ) = P_e_eci ELSE P_e_eci = emis_ant_index_table( PARAM_e_eci , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eci ) = .FALSE. emis_ant_dname_table( idomain, P_e_eci ) = 'E_ECI' emis_ant_desc_table( idomain, P_e_eci ) = 'EMISSION RATE OF I-MODE EC' emis_ant_units_table( idomain, P_e_eci ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_eci )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_eci )%stream(2) = 2097152 ! 00200000 F_e_eci = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecj , idomain ) = P_e_ecj ELSE P_e_ecj = emis_ant_index_table( PARAM_e_ecj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecj ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecj ) = 'E_ECJ' emis_ant_desc_table( idomain, P_e_ecj ) = 'EMISSION RATE OF J-MODE EC' emis_ant_units_table( idomain, P_e_ecj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ecj )%stream(2) = 2097152 ! 00200000 F_e_ecj = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi , idomain ) = P_e_orgi ELSE P_e_orgi = emis_ant_index_table( PARAM_e_orgi , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi ) = 'E_ORGI' emis_ant_desc_table( idomain, P_e_orgi ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgi ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgi )%stream(2) = 2097152 ! 00200000 F_e_orgi = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj , idomain ) = P_e_orgj ELSE P_e_orgj = emis_ant_index_table( PARAM_e_orgj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj ) = 'E_ORGJ' emis_ant_desc_table( idomain, P_e_orgj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgj )%stream(2) = 2097152 ! 00200000 F_e_orgj = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4i , idomain ) = P_e_so4i ELSE P_e_so4i = emis_ant_index_table( PARAM_e_so4i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4i ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4i ) = 'E_SO4I' emis_ant_desc_table( idomain, P_e_so4i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4i )%stream(2) = 2097152 ! 00200000 F_e_so4i = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4j , idomain ) = P_e_so4j ELSE P_e_so4j = emis_ant_index_table( PARAM_e_so4j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4j ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4j ) = 'E_SO4J' emis_ant_desc_table( idomain, P_e_so4j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4j )%stream(2) = 2097152 ! 00200000 F_e_so4j = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3i , idomain ) = P_e_no3i ELSE P_e_no3i = emis_ant_index_table( PARAM_e_no3i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3i ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3i ) = 'E_NO3I' emis_ant_desc_table( idomain, P_e_no3i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no3i )%stream(2) = 2097152 ! 00200000 F_e_no3i = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3j , idomain ) = P_e_no3j ELSE P_e_no3j = emis_ant_index_table( PARAM_e_no3j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3j ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3j ) = 'E_NO3J' emis_ant_desc_table( idomain, P_e_no3j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no3j )%stream(2) = 2097152 ! 00200000 F_e_no3j = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4c , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4c = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4c , idomain ) = P_e_so4c ELSE P_e_so4c = emis_ant_index_table( PARAM_e_so4c , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4c ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4c ) = 'E_SO4C' emis_ant_desc_table( idomain, P_e_so4c ) = 'EMISSIONS COARSE SO4 AER' emis_ant_units_table( idomain, P_e_so4c ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4c )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4c )%stream(2) = 0 ! 00000000 F_e_so4c = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3c , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3c = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3c , idomain ) = P_e_no3c ELSE P_e_no3c = emis_ant_index_table( PARAM_e_no3c , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3c ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3c ) = 'E_NO3C' emis_ant_desc_table( idomain, P_e_no3c ) = 'EMISSIONS COARSE NO3 AER' emis_ant_units_table( idomain, P_e_no3c ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3c )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no3c )%stream(2) = 0 ! 00000000 F_e_no3c = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgc , idomain ) = P_e_orgc ELSE P_e_orgc = emis_ant_index_table( PARAM_e_orgc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgc ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgc ) = 'E_ORGC' emis_ant_desc_table( idomain, P_e_orgc ) = 'EMISSIONS COARSE ORG AER' emis_ant_units_table( idomain, P_e_orgc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgc )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgc )%stream(2) = 0 ! 00000000 F_e_orgc = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecc , idomain ) = P_e_ecc ELSE P_e_ecc = emis_ant_index_table( PARAM_e_ecc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecc ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecc ) = 'E_ECC' emis_ant_desc_table( idomain, P_e_ecc ) = 'EMISSIONS COARSE EC AER' emis_ant_units_table( idomain, P_e_ecc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecc )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ecc )%stream(2) = 0 ! 00000000 F_e_ecc = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm10 , idomain ) = P_e_pm10 ELSE P_e_pm10 = emis_ant_index_table( PARAM_e_pm10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm10 ) = 'E_PM10' emis_ant_desc_table( idomain, P_e_pm10 ) = 'EMISSION RATE OF PARTICULATE MATTER 10UM MODE' emis_ant_units_table( idomain, P_e_pm10 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm10 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm10 )%stream(2) = 0 ! 00000000 F_e_pm10 = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==15)THEN IF ( emis_ant_index_table( PARAM_e_acet , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_acet = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_acet , idomain ) = P_e_acet ELSE P_e_acet = emis_ant_index_table( PARAM_e_acet , idomain ) END IF emis_ant_boundary_table( idomain, P_e_acet ) = .FALSE. emis_ant_dname_table( idomain, P_e_acet ) = 'E_ACET' emis_ant_desc_table( idomain, P_e_acet ) = 'ACET emissions' emis_ant_units_table( idomain, P_e_acet ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_acet )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_acet )%stream(2) = 2097152 ! 00200000 F_e_acet = .TRUE. IF ( emis_ant_index_table( PARAM_e_par , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_par = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_par , idomain ) = P_e_par ELSE P_e_par = emis_ant_index_table( PARAM_e_par , idomain ) END IF emis_ant_boundary_table( idomain, P_e_par ) = .FALSE. emis_ant_dname_table( idomain, P_e_par ) = 'E_PAR' emis_ant_desc_table( idomain, P_e_par ) = 'EMISSIONS PAR' emis_ant_units_table( idomain, P_e_par ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_par )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_par )%stream(2) = 0 ! 00000000 F_e_par = .TRUE. IF ( emis_ant_index_table( PARAM_e_alk3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_alk3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_alk3 , idomain ) = P_e_alk3 ELSE P_e_alk3 = emis_ant_index_table( PARAM_e_alk3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_alk3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_alk3 ) = 'E_ALK3' emis_ant_desc_table( idomain, P_e_alk3 ) = 'ALK3 emissions' emis_ant_units_table( idomain, P_e_alk3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_alk3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_alk3 )%stream(2) = 2097152 ! 00200000 F_e_alk3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_alk4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_alk4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_alk4 , idomain ) = P_e_alk4 ELSE P_e_alk4 = emis_ant_index_table( PARAM_e_alk4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_alk4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_alk4 ) = 'E_ALK4' emis_ant_desc_table( idomain, P_e_alk4 ) = 'ALK4 emissions' emis_ant_units_table( idomain, P_e_alk4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_alk4 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_alk4 )%stream(2) = 2097152 ! 00200000 F_e_alk4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_alk5 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_alk5 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_alk5 , idomain ) = P_e_alk5 ELSE P_e_alk5 = emis_ant_index_table( PARAM_e_alk5 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_alk5 ) = .FALSE. emis_ant_dname_table( idomain, P_e_alk5 ) = 'E_ALK5' emis_ant_desc_table( idomain, P_e_alk5 ) = 'ALK5 emissions' emis_ant_units_table( idomain, P_e_alk5 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_alk5 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_alk5 )%stream(2) = 2097152 ! 00200000 F_e_alk5 = .TRUE. IF ( emis_ant_index_table( PARAM_e_tol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tol , idomain ) = P_e_tol ELSE P_e_tol = emis_ant_index_table( PARAM_e_tol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tol ) = .FALSE. emis_ant_dname_table( idomain, P_e_tol ) = 'E_TOL' emis_ant_desc_table( idomain, P_e_tol ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_tol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tol )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_tol )%stream(2) = 2097152 ! 00200000 F_e_tol = .TRUE. IF ( emis_ant_index_table( PARAM_e_xyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_xyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_xyl , idomain ) = P_e_xyl ELSE P_e_xyl = emis_ant_index_table( PARAM_e_xyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_xyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_xyl ) = 'E_XYL' emis_ant_desc_table( idomain, P_e_xyl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_xyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_xyl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_xyl )%stream(2) = 2097152 ! 00200000 F_e_xyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_bald , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bald = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bald , idomain ) = P_e_bald ELSE P_e_bald = emis_ant_index_table( PARAM_e_bald , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bald ) = .FALSE. emis_ant_dname_table( idomain, P_e_bald ) = 'E_BALD' emis_ant_desc_table( idomain, P_e_bald ) = 'BALD emissions' emis_ant_units_table( idomain, P_e_bald ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bald )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_bald )%stream(2) = 2097152 ! 00200000 F_e_bald = .TRUE. IF ( emis_ant_index_table( PARAM_e_ald2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ald2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ald2 , idomain ) = P_e_ald2 ELSE P_e_ald2 = emis_ant_index_table( PARAM_e_ald2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ald2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ald2 ) = 'E_ALD2' emis_ant_desc_table( idomain, P_e_ald2 ) = 'EMISSIONS ALD2' emis_ant_units_table( idomain, P_e_ald2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ald2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ald2 )%stream(2) = 0 ! 00000000 F_e_ald2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ccooh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ccooh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ccooh , idomain ) = P_e_ccooh ELSE P_e_ccooh = emis_ant_index_table( PARAM_e_ccooh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ccooh ) = .FALSE. emis_ant_dname_table( idomain, P_e_ccooh ) = 'E_CCOOH' emis_ant_desc_table( idomain, P_e_ccooh ) = 'EMISSIONS CCOOH' emis_ant_units_table( idomain, P_e_ccooh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ccooh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ccooh )%stream(2) = 0 ! 00000000 F_e_ccooh = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 ! 00200000 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_cres , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_cres = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_cres , idomain ) = P_e_cres ELSE P_e_cres = emis_ant_index_table( PARAM_e_cres , idomain ) END IF emis_ant_boundary_table( idomain, P_e_cres ) = .FALSE. emis_ant_dname_table( idomain, P_e_cres ) = 'E_CRES' emis_ant_desc_table( idomain, P_e_cres ) = 'CRES emissions' emis_ant_units_table( idomain, P_e_cres ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_cres )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_cres )%stream(2) = 2097152 ! 00200000 F_e_cres = .TRUE. IF ( emis_ant_index_table( PARAM_e_eth , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eth = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eth , idomain ) = P_e_eth ELSE P_e_eth = emis_ant_index_table( PARAM_e_eth , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eth ) = .FALSE. emis_ant_dname_table( idomain, P_e_eth ) = 'E_ETH' emis_ant_desc_table( idomain, P_e_eth ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_eth ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_eth )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_eth )%stream(2) = 2097152 ! 00200000 F_e_eth = .TRUE. IF ( emis_ant_index_table( PARAM_e_etha , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_etha = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_etha , idomain ) = P_e_etha ELSE P_e_etha = emis_ant_index_table( PARAM_e_etha , idomain ) END IF emis_ant_boundary_table( idomain, P_e_etha ) = .FALSE. emis_ant_dname_table( idomain, P_e_etha ) = 'E_ETHA' emis_ant_desc_table( idomain, P_e_etha ) = 'EMISSIONS ETHA' emis_ant_units_table( idomain, P_e_etha ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_etha )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_etha )%stream(2) = 0 ! 00000000 F_e_etha = .TRUE. IF ( emis_ant_index_table( PARAM_e_gly , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_gly = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_gly , idomain ) = P_e_gly ELSE P_e_gly = emis_ant_index_table( PARAM_e_gly , idomain ) END IF emis_ant_boundary_table( idomain, P_e_gly ) = .FALSE. emis_ant_dname_table( idomain, P_e_gly ) = 'E_GLY' emis_ant_desc_table( idomain, P_e_gly ) = 'GLY emissions' emis_ant_units_table( idomain, P_e_gly ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_gly )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_gly )%stream(2) = 2097152 ! 00200000 F_e_gly = .TRUE. IF ( emis_ant_index_table( PARAM_e_form , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_form = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_form , idomain ) = P_e_form ELSE P_e_form = emis_ant_index_table( PARAM_e_form , idomain ) END IF emis_ant_boundary_table( idomain, P_e_form ) = .FALSE. emis_ant_dname_table( idomain, P_e_form ) = 'E_FORM' emis_ant_desc_table( idomain, P_e_form ) = 'EMISSIONS FORM' emis_ant_units_table( idomain, P_e_form ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_form )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_form )%stream(2) = 0 ! 00000000 F_e_form = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcooh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcooh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcooh , idomain ) = P_e_hcooh ELSE P_e_hcooh = emis_ant_index_table( PARAM_e_hcooh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcooh ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcooh ) = 'E_HCOOH' emis_ant_desc_table( idomain, P_e_hcooh ) = 'HCOOH emissions' emis_ant_units_table( idomain, P_e_hcooh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcooh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hcooh )%stream(2) = 2097152 ! 00200000 F_e_hcooh = .TRUE. IF ( emis_ant_index_table( PARAM_e_iprod , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_iprod = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_iprod , idomain ) = P_e_iprod ELSE P_e_iprod = emis_ant_index_table( PARAM_e_iprod , idomain ) END IF emis_ant_boundary_table( idomain, P_e_iprod ) = .FALSE. emis_ant_dname_table( idomain, P_e_iprod ) = 'E_IPROD' emis_ant_desc_table( idomain, P_e_iprod ) = 'EMISSIONS IPROD' emis_ant_units_table( idomain, P_e_iprod ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_iprod )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_iprod )%stream(2) = 0 ! 00000000 F_e_iprod = .TRUE. IF ( emis_ant_index_table( PARAM_e_isop , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_isop = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_isop , idomain ) = P_e_isop ELSE P_e_isop = emis_ant_index_table( PARAM_e_isop , idomain ) END IF emis_ant_boundary_table( idomain, P_e_isop ) = .FALSE. emis_ant_dname_table( idomain, P_e_isop ) = 'E_ISOP' emis_ant_desc_table( idomain, P_e_isop ) = 'EMISSIONS ISOP' emis_ant_units_table( idomain, P_e_isop ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_isop )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_isop )%stream(2) = 0 ! 00000000 F_e_isop = .TRUE. IF ( emis_ant_index_table( PARAM_e_macr , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_macr = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_macr , idomain ) = P_e_macr ELSE P_e_macr = emis_ant_index_table( PARAM_e_macr , idomain ) END IF emis_ant_boundary_table( idomain, P_e_macr ) = .FALSE. emis_ant_dname_table( idomain, P_e_macr ) = 'E_MACR' emis_ant_desc_table( idomain, P_e_macr ) = 'MACR emissions' emis_ant_units_table( idomain, P_e_macr ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_macr )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_macr )%stream(2) = 0 ! 00000000 F_e_macr = .TRUE. IF ( emis_ant_index_table( PARAM_e_mek , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mek = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mek , idomain ) = P_e_mek ELSE P_e_mek = emis_ant_index_table( PARAM_e_mek , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mek ) = .FALSE. emis_ant_dname_table( idomain, P_e_mek ) = 'E_MEK' emis_ant_desc_table( idomain, P_e_mek ) = 'EMISSIONS MEK' emis_ant_units_table( idomain, P_e_mek ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mek )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_mek )%stream(2) = 0 ! 00000000 F_e_mek = .TRUE. IF ( emis_ant_index_table( PARAM_e_meoh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_meoh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_meoh , idomain ) = P_e_meoh ELSE P_e_meoh = emis_ant_index_table( PARAM_e_meoh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_meoh ) = .FALSE. emis_ant_dname_table( idomain, P_e_meoh ) = 'E_MEOH' emis_ant_desc_table( idomain, P_e_meoh ) = 'MEOH emissions' emis_ant_units_table( idomain, P_e_meoh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_meoh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_meoh )%stream(2) = 2097152 ! 00200000 F_e_meoh = .TRUE. IF ( emis_ant_index_table( PARAM_e_meo2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_meo2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_meo2 , idomain ) = P_e_meo2 ELSE P_e_meo2 = emis_ant_index_table( PARAM_e_meo2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_meo2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_meo2 ) = 'E_MEO2' emis_ant_desc_table( idomain, P_e_meo2 ) = 'EMISSIONS MEO2' emis_ant_units_table( idomain, P_e_meo2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_meo2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_meo2 )%stream(2) = 0 ! 00000000 F_e_meo2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_etoh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_etoh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_etoh , idomain ) = P_e_etoh ELSE P_e_etoh = emis_ant_index_table( PARAM_e_etoh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_etoh ) = .FALSE. emis_ant_dname_table( idomain, P_e_etoh ) = 'E_ETOH' emis_ant_desc_table( idomain, P_e_etoh ) = 'EMISSIONS ETOH' emis_ant_units_table( idomain, P_e_etoh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_etoh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_etoh )%stream(2) = 0 ! 00000000 F_e_etoh = .TRUE. IF ( emis_ant_index_table( PARAM_e_mgly , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mgly = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mgly , idomain ) = P_e_mgly ELSE P_e_mgly = emis_ant_index_table( PARAM_e_mgly , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mgly ) = .FALSE. emis_ant_dname_table( idomain, P_e_mgly ) = 'E_MGLY' emis_ant_desc_table( idomain, P_e_mgly ) = 'MGLY emissions' emis_ant_units_table( idomain, P_e_mgly ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mgly )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_mgly )%stream(2) = 2097152 ! 00200000 F_e_mgly = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 ! 00200000 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcl , idomain ) = P_e_hcl ELSE P_e_hcl = emis_ant_index_table( PARAM_e_hcl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcl ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcl ) = 'E_HCL' emis_ant_desc_table( idomain, P_e_hcl ) = 'EMISSIONS HCL' emis_ant_units_table( idomain, P_e_hcl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hcl )%stream(2) = 0 ! 00000000 F_e_hcl = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 ! 00200000 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 ! 00200000 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_iole , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_iole = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_iole , idomain ) = P_e_iole ELSE P_e_iole = emis_ant_index_table( PARAM_e_iole , idomain ) END IF emis_ant_boundary_table( idomain, P_e_iole ) = .FALSE. emis_ant_dname_table( idomain, P_e_iole ) = 'E_IOLE' emis_ant_desc_table( idomain, P_e_iole ) = 'EMISSIONS IOLE' emis_ant_units_table( idomain, P_e_iole ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_iole )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_iole )%stream(2) = 0 ! 00000000 F_e_iole = .TRUE. IF ( emis_ant_index_table( PARAM_e_ole , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ole = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ole , idomain ) = P_e_ole ELSE P_e_ole = emis_ant_index_table( PARAM_e_ole , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ole ) = .FALSE. emis_ant_dname_table( idomain, P_e_ole ) = 'E_OLE' emis_ant_desc_table( idomain, P_e_ole ) = 'EMISSIONS OLE' emis_ant_units_table( idomain, P_e_ole ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ole )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ole )%stream(2) = 0 ! 00000000 F_e_ole = .TRUE. IF ( emis_ant_index_table( PARAM_e_phen , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_phen = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_phen , idomain ) = P_e_phen ELSE P_e_phen = emis_ant_index_table( PARAM_e_phen , idomain ) END IF emis_ant_boundary_table( idomain, P_e_phen ) = .FALSE. emis_ant_dname_table( idomain, P_e_phen ) = 'E_PHEN' emis_ant_desc_table( idomain, P_e_phen ) = 'PHEN emissions' emis_ant_units_table( idomain, P_e_phen ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_phen )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_phen )%stream(2) = 2097152 ! 00200000 F_e_phen = .TRUE. IF ( emis_ant_index_table( PARAM_e_prod2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_prod2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_prod2 , idomain ) = P_e_prod2 ELSE P_e_prod2 = emis_ant_index_table( PARAM_e_prod2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_prod2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_prod2 ) = 'E_PROD2' emis_ant_desc_table( idomain, P_e_prod2 ) = 'PROD2 emissions' emis_ant_units_table( idomain, P_e_prod2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_prod2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_prod2 )%stream(2) = 2097152 ! 00200000 F_e_prod2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_aldx , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_aldx = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_aldx , idomain ) = P_e_aldx ELSE P_e_aldx = emis_ant_index_table( PARAM_e_aldx , idomain ) END IF emis_ant_boundary_table( idomain, P_e_aldx ) = .FALSE. emis_ant_dname_table( idomain, P_e_aldx ) = 'E_ALDX' emis_ant_desc_table( idomain, P_e_aldx ) = 'EMISSIONS ALDX' emis_ant_units_table( idomain, P_e_aldx ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_aldx )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_aldx )%stream(2) = 0 ! 00000000 F_e_aldx = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 ! 00200000 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_psulf , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_psulf = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_psulf , idomain ) = P_e_psulf ELSE P_e_psulf = emis_ant_index_table( PARAM_e_psulf , idomain ) END IF emis_ant_boundary_table( idomain, P_e_psulf ) = .FALSE. emis_ant_dname_table( idomain, P_e_psulf ) = 'E_PSULF' emis_ant_desc_table( idomain, P_e_psulf ) = 'EMISSIONS PSULF' emis_ant_units_table( idomain, P_e_psulf ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_psulf )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_psulf )%stream(2) = 0 ! 00000000 F_e_psulf = .TRUE. IF ( emis_ant_index_table( PARAM_e_terp , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_terp = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_terp , idomain ) = P_e_terp ELSE P_e_terp = emis_ant_index_table( PARAM_e_terp , idomain ) END IF emis_ant_boundary_table( idomain, P_e_terp ) = .FALSE. emis_ant_dname_table( idomain, P_e_terp ) = 'E_TERP' emis_ant_desc_table( idomain, P_e_terp ) = 'TERP emissions' emis_ant_units_table( idomain, P_e_terp ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_terp )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_terp )%stream(2) = 2097152 ! 00200000 F_e_terp = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25i , idomain ) = P_e_pm25i ELSE P_e_pm25i = emis_ant_index_table( PARAM_e_pm25i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25i ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25i ) = 'E_PM25I' emis_ant_desc_table( idomain, P_e_pm25i ) = 'EMISSION RATE OF UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm25i )%stream(2) = 2097152 ! 00200000 F_e_pm25i = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25j , idomain ) = P_e_pm25j ELSE P_e_pm25j = emis_ant_index_table( PARAM_e_pm25j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25j ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25j ) = 'E_PM25J' emis_ant_desc_table( idomain, P_e_pm25j ) = 'EMISSION RATE OF J-MODE UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm25j )%stream(2) = 2097152 ! 00200000 F_e_pm25j = .TRUE. IF ( emis_ant_index_table( PARAM_e_eci , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eci = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eci , idomain ) = P_e_eci ELSE P_e_eci = emis_ant_index_table( PARAM_e_eci , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eci ) = .FALSE. emis_ant_dname_table( idomain, P_e_eci ) = 'E_ECI' emis_ant_desc_table( idomain, P_e_eci ) = 'EMISSION RATE OF I-MODE EC' emis_ant_units_table( idomain, P_e_eci ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_eci )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_eci )%stream(2) = 2097152 ! 00200000 F_e_eci = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecj , idomain ) = P_e_ecj ELSE P_e_ecj = emis_ant_index_table( PARAM_e_ecj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecj ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecj ) = 'E_ECJ' emis_ant_desc_table( idomain, P_e_ecj ) = 'EMISSION RATE OF J-MODE EC' emis_ant_units_table( idomain, P_e_ecj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ecj )%stream(2) = 2097152 ! 00200000 F_e_ecj = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi , idomain ) = P_e_orgi ELSE P_e_orgi = emis_ant_index_table( PARAM_e_orgi , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi ) = 'E_ORGI' emis_ant_desc_table( idomain, P_e_orgi ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgi ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgi )%stream(2) = 2097152 ! 00200000 F_e_orgi = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj , idomain ) = P_e_orgj ELSE P_e_orgj = emis_ant_index_table( PARAM_e_orgj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj ) = 'E_ORGJ' emis_ant_desc_table( idomain, P_e_orgj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgj )%stream(2) = 2097152 ! 00200000 F_e_orgj = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4i , idomain ) = P_e_so4i ELSE P_e_so4i = emis_ant_index_table( PARAM_e_so4i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4i ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4i ) = 'E_SO4I' emis_ant_desc_table( idomain, P_e_so4i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4i )%stream(2) = 2097152 ! 00200000 F_e_so4i = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4j , idomain ) = P_e_so4j ELSE P_e_so4j = emis_ant_index_table( PARAM_e_so4j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4j ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4j ) = 'E_SO4J' emis_ant_desc_table( idomain, P_e_so4j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4j )%stream(2) = 2097152 ! 00200000 F_e_so4j = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3i , idomain ) = P_e_no3i ELSE P_e_no3i = emis_ant_index_table( PARAM_e_no3i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3i ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3i ) = 'E_NO3I' emis_ant_desc_table( idomain, P_e_no3i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3i )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no3i )%stream(2) = 2097152 ! 00200000 F_e_no3i = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3j , idomain ) = P_e_no3j ELSE P_e_no3j = emis_ant_index_table( PARAM_e_no3j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3j ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3j ) = 'E_NO3J' emis_ant_desc_table( idomain, P_e_no3j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3j )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no3j )%stream(2) = 2097152 ! 00200000 F_e_no3j = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4c , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4c = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4c , idomain ) = P_e_so4c ELSE P_e_so4c = emis_ant_index_table( PARAM_e_so4c , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4c ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4c ) = 'E_SO4C' emis_ant_desc_table( idomain, P_e_so4c ) = 'EMISSIONS COARSE SO4 AER' emis_ant_units_table( idomain, P_e_so4c ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4c )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so4c )%stream(2) = 0 ! 00000000 F_e_so4c = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3c , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3c = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3c , idomain ) = P_e_no3c ELSE P_e_no3c = emis_ant_index_table( PARAM_e_no3c , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3c ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3c ) = 'E_NO3C' emis_ant_desc_table( idomain, P_e_no3c ) = 'EMISSIONS COARSE NO3 AER' emis_ant_units_table( idomain, P_e_no3c ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3c )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no3c )%stream(2) = 0 ! 00000000 F_e_no3c = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgc , idomain ) = P_e_orgc ELSE P_e_orgc = emis_ant_index_table( PARAM_e_orgc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgc ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgc ) = 'E_ORGC' emis_ant_desc_table( idomain, P_e_orgc ) = 'EMISSIONS COARSE ORG AER' emis_ant_units_table( idomain, P_e_orgc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgc )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_orgc )%stream(2) = 0 ! 00000000 F_e_orgc = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecc , idomain ) = P_e_ecc ELSE P_e_ecc = emis_ant_index_table( PARAM_e_ecc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecc ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecc ) = 'E_ECC' emis_ant_desc_table( idomain, P_e_ecc ) = 'EMISSIONS COARSE EC AER' emis_ant_units_table( idomain, P_e_ecc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecc )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ecc )%stream(2) = 0 ! 00000000 F_e_ecc = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm10 , idomain ) = P_e_pm10 ELSE P_e_pm10 = emis_ant_index_table( PARAM_e_pm10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm10 ) = 'E_PM10' emis_ant_desc_table( idomain, P_e_pm10 ) = 'EMISSION RATE OF PARTICULATE MATTER 10UM MODE' emis_ant_units_table( idomain, P_e_pm10 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm10 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm10 )%stream(2) = 0 ! 00000000 F_e_pm10 = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==16)THEN IF ( emis_ant_index_table( PARAM_e_co2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co2 , idomain ) = P_e_co2 ELSE P_e_co2 = emis_ant_index_table( PARAM_e_co2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_co2 ) = 'E_CO2' emis_ant_desc_table( idomain, P_e_co2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co2 )%stream(2) = 2097152 ! 00200000 F_e_co2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_co2tst , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co2tst = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co2tst , idomain ) = P_e_co2tst ELSE P_e_co2tst = emis_ant_index_table( PARAM_e_co2tst , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co2tst ) = .FALSE. emis_ant_dname_table( idomain, P_e_co2tst ) = 'E_CO2TST' emis_ant_desc_table( idomain, P_e_co2tst ) = 'Anthropogenic CO2 test fluxes' emis_ant_units_table( idomain, P_e_co2tst ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co2tst )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co2tst )%stream(2) = 0 ! 00000000 F_e_co2tst = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 ! 00200000 F_e_co = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==17)THEN IF ( emis_ant_index_table( PARAM_e_co2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co2 , idomain ) = P_e_co2 ELSE P_e_co2 = emis_ant_index_table( PARAM_e_co2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_co2 ) = 'E_CO2' emis_ant_desc_table( idomain, P_e_co2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co2 )%stream(2) = 2097152 ! 00200000 F_e_co2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_co2tst , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co2tst = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co2tst , idomain ) = P_e_co2tst ELSE P_e_co2tst = emis_ant_index_table( PARAM_e_co2tst , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co2tst ) = .FALSE. emis_ant_dname_table( idomain, P_e_co2tst ) = 'E_CO2TST' emis_ant_desc_table( idomain, P_e_co2tst ) = 'Anthropogenic CO2 test fluxes' emis_ant_units_table( idomain, P_e_co2tst ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co2tst )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co2tst )%stream(2) = 0 ! 00000000 F_e_co2tst = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 ! 00200000 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_cotst , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_cotst = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_cotst , idomain ) = P_e_cotst ELSE P_e_cotst = emis_ant_index_table( PARAM_e_cotst , idomain ) END IF emis_ant_boundary_table( idomain, P_e_cotst ) = .FALSE. emis_ant_dname_table( idomain, P_e_cotst ) = 'E_COTST' emis_ant_desc_table( idomain, P_e_cotst ) = 'Anthropogenic CO test fluxes' emis_ant_units_table( idomain, P_e_cotst ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_cotst )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_cotst )%stream(2) = 0 ! 00000000 F_e_cotst = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch4 , idomain ) = P_e_ch4 ELSE P_e_ch4 = emis_ant_index_table( PARAM_e_ch4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch4 ) = 'E_CH4' emis_ant_desc_table( idomain, P_e_ch4 ) = 'CH4 emissions' emis_ant_units_table( idomain, P_e_ch4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch4 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch4 )%stream(2) = 2097152 ! 00200000 F_e_ch4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch4tst , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch4tst = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch4tst , idomain ) = P_e_ch4tst ELSE P_e_ch4tst = emis_ant_index_table( PARAM_e_ch4tst , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch4tst ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch4tst ) = 'E_CH4TST' emis_ant_desc_table( idomain, P_e_ch4tst ) = 'Anthropogenic CH4 test fluxes' emis_ant_units_table( idomain, P_e_ch4tst ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch4tst )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch4tst )%stream(2) = 0 ! 00000000 F_e_ch4tst = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==19)THEN IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 ! 00200000 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 ! 00200000 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 ! 00200000 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 ! 00200000 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 ! 00200000 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h6 , idomain ) = P_e_c2h6 ELSE P_e_c2h6 = emis_ant_index_table( PARAM_e_c2h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h6 ) = 'E_C2H6' emis_ant_desc_table( idomain, P_e_c2h6 ) = 'EMISSIONS C2H6' emis_ant_units_table( idomain, P_e_c2h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h6 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h6 )%stream(2) = 0 ! 00000000 F_e_c2h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h8 , idomain ) = P_e_c3h8 ELSE P_e_c3h8 = emis_ant_index_table( PARAM_e_c3h8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h8 ) = 'E_C3H8' emis_ant_desc_table( idomain, P_e_c3h8 ) = 'EMISSIONS C3H8' emis_ant_units_table( idomain, P_e_c3h8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h8 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c3h8 )%stream(2) = 0 ! 00000000 F_e_c3h8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h4 , idomain ) = P_e_c2h4 ELSE P_e_c2h4 = emis_ant_index_table( PARAM_e_c2h4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h4 ) = 'E_C2H4' emis_ant_desc_table( idomain, P_e_c2h4 ) = 'EMISSIONS C2H4' emis_ant_units_table( idomain, P_e_c2h4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h4 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h4 )%stream(2) = 0 ! 00000000 F_e_c2h4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h6 , idomain ) = P_e_c3h6 ELSE P_e_c3h6 = emis_ant_index_table( PARAM_e_c3h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h6 ) = 'E_C3H6' emis_ant_desc_table( idomain, P_e_c3h6 ) = 'EMISSIONS C3H6' emis_ant_units_table( idomain, P_e_c3h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h6 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c3h6 )%stream(2) = 0 ! 00000000 F_e_c3h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c5h8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c5h8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c5h8 , idomain ) = P_e_c5h8 ELSE P_e_c5h8 = emis_ant_index_table( PARAM_e_c5h8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c5h8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c5h8 ) = 'E_C5H8' emis_ant_desc_table( idomain, P_e_c5h8 ) = 'EMISSIONS C5H8' emis_ant_units_table( idomain, P_e_c5h8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c5h8 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c5h8 )%stream(2) = 0 ! 00000000 F_e_c5h8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_tm123b , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tm123b = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tm123b , idomain ) = P_e_tm123b ELSE P_e_tm123b = emis_ant_index_table( PARAM_e_tm123b , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tm123b ) = .FALSE. emis_ant_dname_table( idomain, P_e_tm123b ) = 'E_TM123B' emis_ant_desc_table( idomain, P_e_tm123b ) = 'EMISSIONS TM123B' emis_ant_units_table( idomain, P_e_tm123b ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tm123b )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_tm123b )%stream(2) = 0 ! 00000000 F_e_tm123b = .TRUE. IF ( emis_ant_index_table( PARAM_e_tm124b , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tm124b = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tm124b , idomain ) = P_e_tm124b ELSE P_e_tm124b = emis_ant_index_table( PARAM_e_tm124b , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tm124b ) = .FALSE. emis_ant_dname_table( idomain, P_e_tm124b ) = 'E_TM124B' emis_ant_desc_table( idomain, P_e_tm124b ) = 'EMISSIONS TM124B' emis_ant_units_table( idomain, P_e_tm124b ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tm124b )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_tm124b )%stream(2) = 0 ! 00000000 F_e_tm124b = .TRUE. IF ( emis_ant_index_table( PARAM_e_tm135b , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tm135b = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tm135b , idomain ) = P_e_tm135b ELSE P_e_tm135b = emis_ant_index_table( PARAM_e_tm135b , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tm135b ) = .FALSE. emis_ant_dname_table( idomain, P_e_tm135b ) = 'E_TM135B' emis_ant_desc_table( idomain, P_e_tm135b ) = 'EMISSIONS TM124B' emis_ant_units_table( idomain, P_e_tm135b ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tm135b )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_tm135b )%stream(2) = 0 ! 00000000 F_e_tm135b = .TRUE. IF ( emis_ant_index_table( PARAM_e_oethtol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oethtol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oethtol , idomain ) = P_e_oethtol ELSE P_e_oethtol = emis_ant_index_table( PARAM_e_oethtol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oethtol ) = .FALSE. emis_ant_dname_table( idomain, P_e_oethtol ) = 'E_OETHTOL' emis_ant_desc_table( idomain, P_e_oethtol ) = 'EMISSIONS OETHTOL' emis_ant_units_table( idomain, P_e_oethtol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oethtol )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oethtol )%stream(2) = 0 ! 00000000 F_e_oethtol = .TRUE. IF ( emis_ant_index_table( PARAM_e_methtol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_methtol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_methtol , idomain ) = P_e_methtol ELSE P_e_methtol = emis_ant_index_table( PARAM_e_methtol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_methtol ) = .FALSE. emis_ant_dname_table( idomain, P_e_methtol ) = 'E_METHTOL' emis_ant_desc_table( idomain, P_e_methtol ) = 'EMISSIONS METHTOL' emis_ant_units_table( idomain, P_e_methtol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_methtol )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_methtol )%stream(2) = 0 ! 00000000 F_e_methtol = .TRUE. IF ( emis_ant_index_table( PARAM_e_pethtol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pethtol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pethtol , idomain ) = P_e_pethtol ELSE P_e_pethtol = emis_ant_index_table( PARAM_e_pethtol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pethtol ) = .FALSE. emis_ant_dname_table( idomain, P_e_pethtol ) = 'E_PETHTOL' emis_ant_desc_table( idomain, P_e_pethtol ) = 'EMISSIONS PETHTOL' emis_ant_units_table( idomain, P_e_pethtol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pethtol )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pethtol )%stream(2) = 0 ! 00000000 F_e_pethtol = .TRUE. IF ( emis_ant_index_table( PARAM_e_dime35eb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_dime35eb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_dime35eb , idomain ) = P_e_dime35eb ELSE P_e_dime35eb = emis_ant_index_table( PARAM_e_dime35eb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_dime35eb ) = .FALSE. emis_ant_dname_table( idomain, P_e_dime35eb ) = 'E_DIME35EB' emis_ant_desc_table( idomain, P_e_dime35eb ) = 'EMISSIONS DIME35EB' emis_ant_units_table( idomain, P_e_dime35eb ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_dime35eb )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_dime35eb )%stream(2) = 0 ! 00000000 F_e_dime35eb = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 ! 00200000 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3cho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3cho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3cho , idomain ) = P_e_ch3cho ELSE P_e_ch3cho = emis_ant_index_table( PARAM_e_ch3cho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3cho ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3cho ) = 'E_CH3CHO' emis_ant_desc_table( idomain, P_e_ch3cho ) = 'EMISSIONS CH3CHO' emis_ant_units_table( idomain, P_e_ch3cho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3cho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3cho )%stream(2) = 0 ! 00000000 F_e_ch3cho = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5cho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5cho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5cho , idomain ) = P_e_c2h5cho ELSE P_e_c2h5cho = emis_ant_index_table( PARAM_e_c2h5cho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5cho ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5cho ) = 'E_C2H5CHO' emis_ant_desc_table( idomain, P_e_c2h5cho ) = 'EMISSIONS C2H5CHO' emis_ant_units_table( idomain, P_e_c2h5cho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5cho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h5cho )%stream(2) = 0 ! 00000000 F_e_c2h5cho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ket , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ket = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ket , idomain ) = P_e_ket ELSE P_e_ket = emis_ant_index_table( PARAM_e_ket , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ket ) = .FALSE. emis_ant_dname_table( idomain, P_e_ket ) = 'E_KET' emis_ant_desc_table( idomain, P_e_ket ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ket ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ket )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ket )%stream(2) = 2097152 ! 00200000 F_e_ket = .TRUE. IF ( emis_ant_index_table( PARAM_e_mek , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mek = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mek , idomain ) = P_e_mek ELSE P_e_mek = emis_ant_index_table( PARAM_e_mek , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mek ) = .FALSE. emis_ant_dname_table( idomain, P_e_mek ) = 'E_MEK' emis_ant_desc_table( idomain, P_e_mek ) = 'EMISSIONS MEK' emis_ant_units_table( idomain, P_e_mek ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mek )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_mek )%stream(2) = 0 ! 00000000 F_e_mek = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3oh , idomain ) = P_e_ch3oh ELSE P_e_ch3oh = emis_ant_index_table( PARAM_e_ch3oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3oh ) = 'E_CH3OH' emis_ant_desc_table( idomain, P_e_ch3oh ) = 'EMISSIONS CH3OH' emis_ant_units_table( idomain, P_e_ch3oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3oh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3oh )%stream(2) = 0 ! 00000000 F_e_ch3oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5oh , idomain ) = P_e_c2h5oh ELSE P_e_c2h5oh = emis_ant_index_table( PARAM_e_c2h5oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5oh ) = 'E_C2H5OH' emis_ant_desc_table( idomain, P_e_c2h5oh ) = 'EMISSIONS C2H5OH' emis_ant_units_table( idomain, P_e_c2h5oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(2) = 0 ! 00000000 F_e_c2h5oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h2 , idomain ) = P_e_c2h2 ELSE P_e_c2h2 = emis_ant_index_table( PARAM_e_c2h2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h2 ) = 'E_C2H2' emis_ant_desc_table( idomain, P_e_c2h2 ) = 'C2H2 emissions' emis_ant_units_table( idomain, P_e_c2h2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h2 )%stream(2) = 2097152 ! 00200000 F_e_c2h2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_benzene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_benzene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_benzene , idomain ) = P_e_benzene ELSE P_e_benzene = emis_ant_index_table( PARAM_e_benzene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_benzene ) = .FALSE. emis_ant_dname_table( idomain, P_e_benzene ) = 'E_BENZENE' emis_ant_desc_table( idomain, P_e_benzene ) = 'EMISSIONS BENZENE' emis_ant_units_table( idomain, P_e_benzene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_benzene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_benzene )%stream(2) = 0 ! 00000000 F_e_benzene = .TRUE. IF ( emis_ant_index_table( PARAM_e_nc4h10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nc4h10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nc4h10 , idomain ) = P_e_nc4h10 ELSE P_e_nc4h10 = emis_ant_index_table( PARAM_e_nc4h10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nc4h10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nc4h10 ) = 'E_NC4H10' emis_ant_desc_table( idomain, P_e_nc4h10 ) = 'EMISSIONS NC4H10' emis_ant_units_table( idomain, P_e_nc4h10 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nc4h10 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nc4h10 )%stream(2) = 0 ! 00000000 F_e_nc4h10 = .TRUE. IF ( emis_ant_index_table( PARAM_e_toluene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_toluene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_toluene , idomain ) = P_e_toluene ELSE P_e_toluene = emis_ant_index_table( PARAM_e_toluene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_toluene ) = .FALSE. emis_ant_dname_table( idomain, P_e_toluene ) = 'E_TOLUENE' emis_ant_desc_table( idomain, P_e_toluene ) = 'EMISSIONS TOLUENE' emis_ant_units_table( idomain, P_e_toluene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_toluene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_toluene )%stream(2) = 0 ! 00000000 F_e_toluene = .TRUE. IF ( emis_ant_index_table( PARAM_e_oxyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oxyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oxyl , idomain ) = P_e_oxyl ELSE P_e_oxyl = emis_ant_index_table( PARAM_e_oxyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oxyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_oxyl ) = 'E_OXYL' emis_ant_desc_table( idomain, P_e_oxyl ) = 'EMISSIONS OXYL' emis_ant_units_table( idomain, P_e_oxyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oxyl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oxyl )%stream(2) = 0 ! 00000000 F_e_oxyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_tbut2ene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tbut2ene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tbut2ene , idomain ) = P_e_tbut2ene ELSE P_e_tbut2ene = emis_ant_index_table( PARAM_e_tbut2ene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tbut2ene ) = .FALSE. emis_ant_dname_table( idomain, P_e_tbut2ene ) = 'E_TBUT2ENE' emis_ant_desc_table( idomain, P_e_tbut2ene ) = 'EMISSIONS TBUT2ENE' emis_ant_units_table( idomain, P_e_tbut2ene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tbut2ene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_tbut2ene )%stream(2) = 0 ! 00000000 F_e_tbut2ene = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3co2h , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3co2h = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3co2h , idomain ) = P_e_ch3co2h ELSE P_e_ch3co2h = emis_ant_index_table( PARAM_e_ch3co2h , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3co2h ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3co2h ) = 'E_CH3CO2H' emis_ant_desc_table( idomain, P_e_ch3co2h ) = 'EMISSIONS CH3CO2H' emis_ant_units_table( idomain, P_e_ch3co2h ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3co2h )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3co2h )%stream(2) = 0 ! 00000000 F_e_ch3co2h = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==20)THEN IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 ! 00200000 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 ! 00200000 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 ! 00200000 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 ! 00200000 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 ! 00200000 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h6 , idomain ) = P_e_c2h6 ELSE P_e_c2h6 = emis_ant_index_table( PARAM_e_c2h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h6 ) = 'E_C2H6' emis_ant_desc_table( idomain, P_e_c2h6 ) = 'EMISSIONS C2H6' emis_ant_units_table( idomain, P_e_c2h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h6 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h6 )%stream(2) = 0 ! 00000000 F_e_c2h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h8 , idomain ) = P_e_c3h8 ELSE P_e_c3h8 = emis_ant_index_table( PARAM_e_c3h8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h8 ) = 'E_C3H8' emis_ant_desc_table( idomain, P_e_c3h8 ) = 'EMISSIONS C3H8' emis_ant_units_table( idomain, P_e_c3h8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h8 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c3h8 )%stream(2) = 0 ! 00000000 F_e_c3h8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h4 , idomain ) = P_e_c2h4 ELSE P_e_c2h4 = emis_ant_index_table( PARAM_e_c2h4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h4 ) = 'E_C2H4' emis_ant_desc_table( idomain, P_e_c2h4 ) = 'EMISSIONS C2H4' emis_ant_units_table( idomain, P_e_c2h4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h4 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h4 )%stream(2) = 0 ! 00000000 F_e_c2h4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h6 , idomain ) = P_e_c3h6 ELSE P_e_c3h6 = emis_ant_index_table( PARAM_e_c3h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h6 ) = 'E_C3H6' emis_ant_desc_table( idomain, P_e_c3h6 ) = 'EMISSIONS C3H6' emis_ant_units_table( idomain, P_e_c3h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h6 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c3h6 )%stream(2) = 0 ! 00000000 F_e_c3h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c5h8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c5h8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c5h8 , idomain ) = P_e_c5h8 ELSE P_e_c5h8 = emis_ant_index_table( PARAM_e_c5h8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c5h8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c5h8 ) = 'E_C5H8' emis_ant_desc_table( idomain, P_e_c5h8 ) = 'EMISSIONS C5H8' emis_ant_units_table( idomain, P_e_c5h8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c5h8 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c5h8 )%stream(2) = 0 ! 00000000 F_e_c5h8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_tm123b , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tm123b = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tm123b , idomain ) = P_e_tm123b ELSE P_e_tm123b = emis_ant_index_table( PARAM_e_tm123b , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tm123b ) = .FALSE. emis_ant_dname_table( idomain, P_e_tm123b ) = 'E_TM123B' emis_ant_desc_table( idomain, P_e_tm123b ) = 'EMISSIONS TM123B' emis_ant_units_table( idomain, P_e_tm123b ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tm123b )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_tm123b )%stream(2) = 0 ! 00000000 F_e_tm123b = .TRUE. IF ( emis_ant_index_table( PARAM_e_tm124b , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tm124b = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tm124b , idomain ) = P_e_tm124b ELSE P_e_tm124b = emis_ant_index_table( PARAM_e_tm124b , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tm124b ) = .FALSE. emis_ant_dname_table( idomain, P_e_tm124b ) = 'E_TM124B' emis_ant_desc_table( idomain, P_e_tm124b ) = 'EMISSIONS TM124B' emis_ant_units_table( idomain, P_e_tm124b ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tm124b )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_tm124b )%stream(2) = 0 ! 00000000 F_e_tm124b = .TRUE. IF ( emis_ant_index_table( PARAM_e_tm135b , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tm135b = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tm135b , idomain ) = P_e_tm135b ELSE P_e_tm135b = emis_ant_index_table( PARAM_e_tm135b , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tm135b ) = .FALSE. emis_ant_dname_table( idomain, P_e_tm135b ) = 'E_TM135B' emis_ant_desc_table( idomain, P_e_tm135b ) = 'EMISSIONS TM124B' emis_ant_units_table( idomain, P_e_tm135b ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tm135b )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_tm135b )%stream(2) = 0 ! 00000000 F_e_tm135b = .TRUE. IF ( emis_ant_index_table( PARAM_e_oethtol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oethtol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oethtol , idomain ) = P_e_oethtol ELSE P_e_oethtol = emis_ant_index_table( PARAM_e_oethtol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oethtol ) = .FALSE. emis_ant_dname_table( idomain, P_e_oethtol ) = 'E_OETHTOL' emis_ant_desc_table( idomain, P_e_oethtol ) = 'EMISSIONS OETHTOL' emis_ant_units_table( idomain, P_e_oethtol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oethtol )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oethtol )%stream(2) = 0 ! 00000000 F_e_oethtol = .TRUE. IF ( emis_ant_index_table( PARAM_e_methtol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_methtol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_methtol , idomain ) = P_e_methtol ELSE P_e_methtol = emis_ant_index_table( PARAM_e_methtol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_methtol ) = .FALSE. emis_ant_dname_table( idomain, P_e_methtol ) = 'E_METHTOL' emis_ant_desc_table( idomain, P_e_methtol ) = 'EMISSIONS METHTOL' emis_ant_units_table( idomain, P_e_methtol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_methtol )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_methtol )%stream(2) = 0 ! 00000000 F_e_methtol = .TRUE. IF ( emis_ant_index_table( PARAM_e_pethtol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pethtol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pethtol , idomain ) = P_e_pethtol ELSE P_e_pethtol = emis_ant_index_table( PARAM_e_pethtol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pethtol ) = .FALSE. emis_ant_dname_table( idomain, P_e_pethtol ) = 'E_PETHTOL' emis_ant_desc_table( idomain, P_e_pethtol ) = 'EMISSIONS PETHTOL' emis_ant_units_table( idomain, P_e_pethtol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pethtol )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pethtol )%stream(2) = 0 ! 00000000 F_e_pethtol = .TRUE. IF ( emis_ant_index_table( PARAM_e_dime35eb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_dime35eb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_dime35eb , idomain ) = P_e_dime35eb ELSE P_e_dime35eb = emis_ant_index_table( PARAM_e_dime35eb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_dime35eb ) = .FALSE. emis_ant_dname_table( idomain, P_e_dime35eb ) = 'E_DIME35EB' emis_ant_desc_table( idomain, P_e_dime35eb ) = 'EMISSIONS DIME35EB' emis_ant_units_table( idomain, P_e_dime35eb ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_dime35eb )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_dime35eb )%stream(2) = 0 ! 00000000 F_e_dime35eb = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 ! 00200000 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3cho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3cho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3cho , idomain ) = P_e_ch3cho ELSE P_e_ch3cho = emis_ant_index_table( PARAM_e_ch3cho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3cho ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3cho ) = 'E_CH3CHO' emis_ant_desc_table( idomain, P_e_ch3cho ) = 'EMISSIONS CH3CHO' emis_ant_units_table( idomain, P_e_ch3cho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3cho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3cho )%stream(2) = 0 ! 00000000 F_e_ch3cho = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5cho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5cho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5cho , idomain ) = P_e_c2h5cho ELSE P_e_c2h5cho = emis_ant_index_table( PARAM_e_c2h5cho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5cho ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5cho ) = 'E_C2H5CHO' emis_ant_desc_table( idomain, P_e_c2h5cho ) = 'EMISSIONS C2H5CHO' emis_ant_units_table( idomain, P_e_c2h5cho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5cho )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h5cho )%stream(2) = 0 ! 00000000 F_e_c2h5cho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ket , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ket = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ket , idomain ) = P_e_ket ELSE P_e_ket = emis_ant_index_table( PARAM_e_ket , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ket ) = .FALSE. emis_ant_dname_table( idomain, P_e_ket ) = 'E_KET' emis_ant_desc_table( idomain, P_e_ket ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ket ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ket )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ket )%stream(2) = 2097152 ! 00200000 F_e_ket = .TRUE. IF ( emis_ant_index_table( PARAM_e_mek , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mek = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mek , idomain ) = P_e_mek ELSE P_e_mek = emis_ant_index_table( PARAM_e_mek , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mek ) = .FALSE. emis_ant_dname_table( idomain, P_e_mek ) = 'E_MEK' emis_ant_desc_table( idomain, P_e_mek ) = 'EMISSIONS MEK' emis_ant_units_table( idomain, P_e_mek ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mek )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_mek )%stream(2) = 0 ! 00000000 F_e_mek = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3oh , idomain ) = P_e_ch3oh ELSE P_e_ch3oh = emis_ant_index_table( PARAM_e_ch3oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3oh ) = 'E_CH3OH' emis_ant_desc_table( idomain, P_e_ch3oh ) = 'EMISSIONS CH3OH' emis_ant_units_table( idomain, P_e_ch3oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3oh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3oh )%stream(2) = 0 ! 00000000 F_e_ch3oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5oh , idomain ) = P_e_c2h5oh ELSE P_e_c2h5oh = emis_ant_index_table( PARAM_e_c2h5oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5oh ) = 'E_C2H5OH' emis_ant_desc_table( idomain, P_e_c2h5oh ) = 'EMISSIONS C2H5OH' emis_ant_units_table( idomain, P_e_c2h5oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(2) = 0 ! 00000000 F_e_c2h5oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h2 , idomain ) = P_e_c2h2 ELSE P_e_c2h2 = emis_ant_index_table( PARAM_e_c2h2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h2 ) = 'E_C2H2' emis_ant_desc_table( idomain, P_e_c2h2 ) = 'C2H2 emissions' emis_ant_units_table( idomain, P_e_c2h2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h2 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_c2h2 )%stream(2) = 2097152 ! 00200000 F_e_c2h2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_benzene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_benzene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_benzene , idomain ) = P_e_benzene ELSE P_e_benzene = emis_ant_index_table( PARAM_e_benzene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_benzene ) = .FALSE. emis_ant_dname_table( idomain, P_e_benzene ) = 'E_BENZENE' emis_ant_desc_table( idomain, P_e_benzene ) = 'EMISSIONS BENZENE' emis_ant_units_table( idomain, P_e_benzene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_benzene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_benzene )%stream(2) = 0 ! 00000000 F_e_benzene = .TRUE. IF ( emis_ant_index_table( PARAM_e_nc4h10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nc4h10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nc4h10 , idomain ) = P_e_nc4h10 ELSE P_e_nc4h10 = emis_ant_index_table( PARAM_e_nc4h10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nc4h10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nc4h10 ) = 'E_NC4H10' emis_ant_desc_table( idomain, P_e_nc4h10 ) = 'EMISSIONS NC4H10' emis_ant_units_table( idomain, P_e_nc4h10 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nc4h10 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_nc4h10 )%stream(2) = 0 ! 00000000 F_e_nc4h10 = .TRUE. IF ( emis_ant_index_table( PARAM_e_toluene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_toluene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_toluene , idomain ) = P_e_toluene ELSE P_e_toluene = emis_ant_index_table( PARAM_e_toluene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_toluene ) = .FALSE. emis_ant_dname_table( idomain, P_e_toluene ) = 'E_TOLUENE' emis_ant_desc_table( idomain, P_e_toluene ) = 'EMISSIONS TOLUENE' emis_ant_units_table( idomain, P_e_toluene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_toluene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_toluene )%stream(2) = 0 ! 00000000 F_e_toluene = .TRUE. IF ( emis_ant_index_table( PARAM_e_oxyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oxyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oxyl , idomain ) = P_e_oxyl ELSE P_e_oxyl = emis_ant_index_table( PARAM_e_oxyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oxyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_oxyl ) = 'E_OXYL' emis_ant_desc_table( idomain, P_e_oxyl ) = 'EMISSIONS OXYL' emis_ant_units_table( idomain, P_e_oxyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oxyl )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oxyl )%stream(2) = 0 ! 00000000 F_e_oxyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_tbut2ene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tbut2ene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tbut2ene , idomain ) = P_e_tbut2ene ELSE P_e_tbut2ene = emis_ant_index_table( PARAM_e_tbut2ene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tbut2ene ) = .FALSE. emis_ant_dname_table( idomain, P_e_tbut2ene ) = 'E_TBUT2ENE' emis_ant_desc_table( idomain, P_e_tbut2ene ) = 'EMISSIONS TBUT2ENE' emis_ant_units_table( idomain, P_e_tbut2ene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tbut2ene )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_tbut2ene )%stream(2) = 0 ! 00000000 F_e_tbut2ene = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3co2h , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3co2h = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3co2h , idomain ) = P_e_ch3co2h ELSE P_e_ch3co2h = emis_ant_index_table( PARAM_e_ch3co2h , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3co2h ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3co2h ) = 'E_CH3CO2H' emis_ant_desc_table( idomain, P_e_ch3co2h ) = 'EMISSIONS CH3CO2H' emis_ant_units_table( idomain, P_e_ch3co2h ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3co2h )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ch3co2h )%stream(2) = 0 ! 00000000 F_e_ch3co2h = .TRUE. IF ( emis_ant_index_table( PARAM_e_bc_1 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bc_1 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bc_1 , idomain ) = P_e_bc_1 ELSE P_e_bc_1 = emis_ant_index_table( PARAM_e_bc_1 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bc_1 ) = .FALSE. emis_ant_dname_table( idomain, P_e_bc_1 ) = 'E_BC_1' emis_ant_desc_table( idomain, P_e_bc_1 ) = 'EMISSION RATE OF BLACK CARBON 1UM MODE' emis_ant_units_table( idomain, P_e_bc_1 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_bc_1 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_bc_1 )%stream(2) = 0 ! 00000000 F_e_bc_1 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ec_1_25 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ec_1_25 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ec_1_25 , idomain ) = P_e_ec_1_25 ELSE P_e_ec_1_25 = emis_ant_index_table( PARAM_e_ec_1_25 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ec_1_25 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ec_1_25 ) = 'E_EC_1_25' emis_ant_desc_table( idomain, P_e_ec_1_25 ) = 'EMISSION RATE OF ELEMENTAL CARBON 1UM-2.5UM MODE' emis_ant_units_table( idomain, P_e_ec_1_25 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ec_1_25 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ec_1_25 )%stream(2) = 0 ! 00000000 F_e_ec_1_25 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ec_25_10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ec_25_10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ec_25_10 , idomain ) = P_e_ec_25_10 ELSE P_e_ec_25_10 = emis_ant_index_table( PARAM_e_ec_25_10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ec_25_10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ec_25_10 ) = 'E_EC_25_10' emis_ant_desc_table( idomain, P_e_ec_25_10 ) = 'EMISSION RATE OF ELEMENTAL CARBON 2.5UM-10UM MODE' emis_ant_units_table( idomain, P_e_ec_25_10 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ec_25_10 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_ec_25_10 )%stream(2) = 0 ! 00000000 F_e_ec_25_10 = .TRUE. IF ( emis_ant_index_table( PARAM_e_oc_dom , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oc_dom = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oc_dom , idomain ) = P_e_oc_dom ELSE P_e_oc_dom = emis_ant_index_table( PARAM_e_oc_dom , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oc_dom ) = .FALSE. emis_ant_dname_table( idomain, P_e_oc_dom ) = 'E_OC_DOM' emis_ant_desc_table( idomain, P_e_oc_dom ) = 'EMISSION RATE OF ORGANIC CARBON 2.5UM MODE (Domestic combustion)' emis_ant_units_table( idomain, P_e_oc_dom ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_oc_dom )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oc_dom )%stream(2) = 0 ! 00000000 F_e_oc_dom = .TRUE. IF ( emis_ant_index_table( PARAM_e_oc_tra , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oc_tra = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oc_tra , idomain ) = P_e_oc_tra ELSE P_e_oc_tra = emis_ant_index_table( PARAM_e_oc_tra , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oc_tra ) = .FALSE. emis_ant_dname_table( idomain, P_e_oc_tra ) = 'E_OC_TRA' emis_ant_desc_table( idomain, P_e_oc_tra ) = 'EMISSION RATE OF ORGANIC CARBON 2.5UM MODE (Traffic and other sources)' emis_ant_units_table( idomain, P_e_oc_tra ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_oc_tra )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oc_tra )%stream(2) = 0 ! 00000000 F_e_oc_tra = .TRUE. IF ( emis_ant_index_table( PARAM_e_oc_25_10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oc_25_10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oc_25_10 , idomain ) = P_e_oc_25_10 ELSE P_e_oc_25_10 = emis_ant_index_table( PARAM_e_oc_25_10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oc_25_10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_oc_25_10 ) = 'E_OC_25_10' emis_ant_desc_table( idomain, P_e_oc_25_10 ) = 'EMISSION RATE OF ORGANIC CARBON 2.5UM-10UM MODE' emis_ant_units_table( idomain, P_e_oc_25_10 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_oc_25_10 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oc_25_10 )%stream(2) = 0 ! 00000000 F_e_oc_25_10 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25 , idomain ) = P_e_pm25 ELSE P_e_pm25 = emis_ant_index_table( PARAM_e_pm25 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25 ) = 'E_PM25' emis_ant_desc_table( idomain, P_e_pm25 ) = 'EMISSION RATE OF PARTICULATE MATTER 2.5UM MODE' emis_ant_units_table( idomain, P_e_pm25 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_pm25 )%stream(2) = 0 ! 00000000 F_e_pm25 = .TRUE. IF ( emis_ant_index_table( PARAM_e_oin_25 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oin_25 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oin_25 , idomain ) = P_e_oin_25 ELSE P_e_oin_25 = emis_ant_index_table( PARAM_e_oin_25 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oin_25 ) = .FALSE. emis_ant_dname_table( idomain, P_e_oin_25 ) = 'E_OIN_25' emis_ant_desc_table( idomain, P_e_oin_25 ) = 'EMISSION RATE OF PARTICULATE MATTER OTHER INORGANICS 2.5UM MODE' emis_ant_units_table( idomain, P_e_oin_25 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_oin_25 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oin_25 )%stream(2) = 0 ! 00000000 F_e_oin_25 = .TRUE. IF ( emis_ant_index_table( PARAM_e_oin_10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oin_10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oin_10 , idomain ) = P_e_oin_10 ELSE P_e_oin_10 = emis_ant_index_table( PARAM_e_oin_10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oin_10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_oin_10 ) = 'E_OIN_10' emis_ant_desc_table( idomain, P_e_oin_10 ) = 'EMISSION RATE OF PARTICULATE MATTER OTHER INORGANICS 10UM MODE' emis_ant_units_table( idomain, P_e_oin_10 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_oin_10 )%stream(1) = 1073741824 ! 40000000 emis_ant_streams_table( idomain, P_e_oin_10 )%stream(2) = 0 ! 00000000 F_e_oin_10 = .TRUE. END IF IF (model_config_rec%emiss_opt_vol(idomain)==1)THEN IF ( emis_vol_index_table( PARAM_e_vash1 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash1 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash1 , idomain ) = P_e_vash1 ELSE P_e_vash1 = emis_vol_index_table( PARAM_e_vash1 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash1 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash1 ) = 'E_VASH1' emis_vol_desc_table( idomain, P_e_vash1 ) = 'Volcanic Emissions, bin1' emis_vol_units_table( idomain, P_e_vash1 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash1 )%stream(1) = 1 ! 00000001 emis_vol_streams_table( idomain, P_e_vash1 )%stream(2) = 2097280 ! 00200080 F_e_vash1 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash2 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash2 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash2 , idomain ) = P_e_vash2 ELSE P_e_vash2 = emis_vol_index_table( PARAM_e_vash2 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash2 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash2 ) = 'E_VASH2' emis_vol_desc_table( idomain, P_e_vash2 ) = 'Volcanic Emissions, bin2' emis_vol_units_table( idomain, P_e_vash2 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash2 )%stream(1) = 1 ! 00000001 emis_vol_streams_table( idomain, P_e_vash2 )%stream(2) = 2097280 ! 00200080 F_e_vash2 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash3 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash3 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash3 , idomain ) = P_e_vash3 ELSE P_e_vash3 = emis_vol_index_table( PARAM_e_vash3 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash3 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash3 ) = 'E_VASH3' emis_vol_desc_table( idomain, P_e_vash3 ) = 'Volcanic Emissions, bin3' emis_vol_units_table( idomain, P_e_vash3 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash3 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vash3 )%stream(2) = 2097280 ! 00200080 F_e_vash3 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash4 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash4 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash4 , idomain ) = P_e_vash4 ELSE P_e_vash4 = emis_vol_index_table( PARAM_e_vash4 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash4 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash4 ) = 'E_VASH4' emis_vol_desc_table( idomain, P_e_vash4 ) = 'Volcanic Emissions, bin4' emis_vol_units_table( idomain, P_e_vash4 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash4 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vash4 )%stream(2) = 2097280 ! 00200080 F_e_vash4 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash5 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash5 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash5 , idomain ) = P_e_vash5 ELSE P_e_vash5 = emis_vol_index_table( PARAM_e_vash5 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash5 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash5 ) = 'E_VASH5' emis_vol_desc_table( idomain, P_e_vash5 ) = 'Volcanic Emissions, bin5' emis_vol_units_table( idomain, P_e_vash5 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash5 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vash5 )%stream(2) = 2097280 ! 00200080 F_e_vash5 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash6 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash6 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash6 , idomain ) = P_e_vash6 ELSE P_e_vash6 = emis_vol_index_table( PARAM_e_vash6 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash6 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash6 ) = 'E_VASH6' emis_vol_desc_table( idomain, P_e_vash6 ) = 'Volcanic Emissions, bin6' emis_vol_units_table( idomain, P_e_vash6 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash6 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vash6 )%stream(2) = 2097280 ! 00200080 F_e_vash6 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash7 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash7 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash7 , idomain ) = P_e_vash7 ELSE P_e_vash7 = emis_vol_index_table( PARAM_e_vash7 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash7 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash7 ) = 'E_VASH7' emis_vol_desc_table( idomain, P_e_vash7 ) = 'Volcanic Emissions, bin7' emis_vol_units_table( idomain, P_e_vash7 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash7 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vash7 )%stream(2) = 2097280 ! 00200080 F_e_vash7 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash8 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash8 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash8 , idomain ) = P_e_vash8 ELSE P_e_vash8 = emis_vol_index_table( PARAM_e_vash8 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash8 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash8 ) = 'E_VASH8' emis_vol_desc_table( idomain, P_e_vash8 ) = 'Volcanic Emissions, bin8' emis_vol_units_table( idomain, P_e_vash8 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash8 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vash8 )%stream(2) = 2097280 ! 00200080 F_e_vash8 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash9 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash9 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash9 , idomain ) = P_e_vash9 ELSE P_e_vash9 = emis_vol_index_table( PARAM_e_vash9 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash9 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash9 ) = 'E_VASH9' emis_vol_desc_table( idomain, P_e_vash9 ) = 'Volcanic Emissions, bin9' emis_vol_units_table( idomain, P_e_vash9 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash9 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vash9 )%stream(2) = 2097280 ! 00200080 F_e_vash9 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash10 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash10 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash10 , idomain ) = P_e_vash10 ELSE P_e_vash10 = emis_vol_index_table( PARAM_e_vash10 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash10 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash10 ) = 'E_VASH10' emis_vol_desc_table( idomain, P_e_vash10 ) = 'Volcanic Emissions, bin10' emis_vol_units_table( idomain, P_e_vash10 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash10 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vash10 )%stream(2) = 2097280 ! 00200080 F_e_vash10 = .TRUE. END IF IF (model_config_rec%emiss_opt_vol(idomain)==2)THEN IF ( emis_vol_index_table( PARAM_e_vash1 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash1 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash1 , idomain ) = P_e_vash1 ELSE P_e_vash1 = emis_vol_index_table( PARAM_e_vash1 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash1 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash1 ) = 'E_VASH1' emis_vol_desc_table( idomain, P_e_vash1 ) = 'Volcanic Emissions, bin1' emis_vol_units_table( idomain, P_e_vash1 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash1 )%stream(1) = 1 ! 00000001 emis_vol_streams_table( idomain, P_e_vash1 )%stream(2) = 2097280 ! 00200080 F_e_vash1 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash2 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash2 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash2 , idomain ) = P_e_vash2 ELSE P_e_vash2 = emis_vol_index_table( PARAM_e_vash2 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash2 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash2 ) = 'E_VASH2' emis_vol_desc_table( idomain, P_e_vash2 ) = 'Volcanic Emissions, bin2' emis_vol_units_table( idomain, P_e_vash2 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash2 )%stream(1) = 1 ! 00000001 emis_vol_streams_table( idomain, P_e_vash2 )%stream(2) = 2097280 ! 00200080 F_e_vash2 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash3 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash3 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash3 , idomain ) = P_e_vash3 ELSE P_e_vash3 = emis_vol_index_table( PARAM_e_vash3 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash3 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash3 ) = 'E_VASH3' emis_vol_desc_table( idomain, P_e_vash3 ) = 'Volcanic Emissions, bin3' emis_vol_units_table( idomain, P_e_vash3 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash3 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vash3 )%stream(2) = 2097280 ! 00200080 F_e_vash3 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash4 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash4 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash4 , idomain ) = P_e_vash4 ELSE P_e_vash4 = emis_vol_index_table( PARAM_e_vash4 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash4 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash4 ) = 'E_VASH4' emis_vol_desc_table( idomain, P_e_vash4 ) = 'Volcanic Emissions, bin4' emis_vol_units_table( idomain, P_e_vash4 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash4 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vash4 )%stream(2) = 2097280 ! 00200080 F_e_vash4 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash5 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash5 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash5 , idomain ) = P_e_vash5 ELSE P_e_vash5 = emis_vol_index_table( PARAM_e_vash5 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash5 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash5 ) = 'E_VASH5' emis_vol_desc_table( idomain, P_e_vash5 ) = 'Volcanic Emissions, bin5' emis_vol_units_table( idomain, P_e_vash5 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash5 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vash5 )%stream(2) = 2097280 ! 00200080 F_e_vash5 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash6 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash6 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash6 , idomain ) = P_e_vash6 ELSE P_e_vash6 = emis_vol_index_table( PARAM_e_vash6 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash6 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash6 ) = 'E_VASH6' emis_vol_desc_table( idomain, P_e_vash6 ) = 'Volcanic Emissions, bin6' emis_vol_units_table( idomain, P_e_vash6 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash6 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vash6 )%stream(2) = 2097280 ! 00200080 F_e_vash6 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash7 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash7 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash7 , idomain ) = P_e_vash7 ELSE P_e_vash7 = emis_vol_index_table( PARAM_e_vash7 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash7 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash7 ) = 'E_VASH7' emis_vol_desc_table( idomain, P_e_vash7 ) = 'Volcanic Emissions, bin7' emis_vol_units_table( idomain, P_e_vash7 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash7 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vash7 )%stream(2) = 2097280 ! 00200080 F_e_vash7 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash8 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash8 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash8 , idomain ) = P_e_vash8 ELSE P_e_vash8 = emis_vol_index_table( PARAM_e_vash8 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash8 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash8 ) = 'E_VASH8' emis_vol_desc_table( idomain, P_e_vash8 ) = 'Volcanic Emissions, bin8' emis_vol_units_table( idomain, P_e_vash8 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash8 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vash8 )%stream(2) = 2097280 ! 00200080 F_e_vash8 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash9 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash9 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash9 , idomain ) = P_e_vash9 ELSE P_e_vash9 = emis_vol_index_table( PARAM_e_vash9 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash9 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash9 ) = 'E_VASH9' emis_vol_desc_table( idomain, P_e_vash9 ) = 'Volcanic Emissions, bin9' emis_vol_units_table( idomain, P_e_vash9 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash9 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vash9 )%stream(2) = 2097280 ! 00200080 F_e_vash9 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash10 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash10 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash10 , idomain ) = P_e_vash10 ELSE P_e_vash10 = emis_vol_index_table( PARAM_e_vash10 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash10 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash10 ) = 'E_VASH10' emis_vol_desc_table( idomain, P_e_vash10 ) = 'Volcanic Emissions, bin10' emis_vol_units_table( idomain, P_e_vash10 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash10 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vash10 )%stream(2) = 2097280 ! 00200080 F_e_vash10 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vso2 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vso2 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vso2 , idomain ) = P_e_vso2 ELSE P_e_vso2 = emis_vol_index_table( PARAM_e_vso2 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vso2 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vso2 ) = 'E_VSO2' emis_vol_desc_table( idomain, P_e_vso2 ) = 'Volcanic Emissions, SO2' emis_vol_units_table( idomain, P_e_vso2 ) = 'mol/m2/h' emis_vol_streams_table( idomain, P_e_vso2 )%stream(1) = 0 ! 00000000 emis_vol_streams_table( idomain, P_e_vso2 )%stream(2) = 2097280 ! 00200080 F_e_vso2 = .TRUE. END IF IF (model_config_rec%phot_opt(idomain)==1)THEN END IF IF (model_config_rec%phot_opt(idomain)==2)THEN END IF IF (model_config_rec%phot_opt(idomain)==3)THEN END IF IF (model_config_rec%phot_opt(idomain)==4)THEN END IF IF (model_config_rec%gas_drydep_opt(idomain)==1)THEN END IF IF (model_config_rec%diagnostic_chem(idomain)==1)THEN IF ( dvel_index_table( PARAM_dvel_o3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_o3 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_o3 , idomain ) = P_dvel_o3 ELSE P_dvel_o3 = dvel_index_table( PARAM_dvel_o3 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_o3 ) = .FALSE. dvel_dname_table( idomain, P_dvel_o3 ) = 'dvel_o3' dvel_desc_table( idomain, P_dvel_o3 ) = 'O3 deposition velocity ' dvel_units_table( idomain, P_dvel_o3 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_o3 )%stream(1) = 1 ! 00000001 dvel_streams_table( idomain, P_dvel_o3 )%stream(2) = 2097152 ! 00200000 F_dvel_o3 = .TRUE. IF ( dvel_index_table( PARAM_dvel_no , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_no = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_no , idomain ) = P_dvel_no ELSE P_dvel_no = dvel_index_table( PARAM_dvel_no , idomain ) END IF dvel_boundary_table( idomain, P_dvel_no ) = .FALSE. dvel_dname_table( idomain, P_dvel_no ) = 'dvel_no' dvel_desc_table( idomain, P_dvel_no ) = 'NO deposition velocity ' dvel_units_table( idomain, P_dvel_no ) = 'cm/s' dvel_streams_table( idomain, P_dvel_no )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_no )%stream(2) = 0 ! 00000000 F_dvel_no = .TRUE. IF ( dvel_index_table( PARAM_dvel_no2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_no2 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_no2 , idomain ) = P_dvel_no2 ELSE P_dvel_no2 = dvel_index_table( PARAM_dvel_no2 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_no2 ) = .FALSE. dvel_dname_table( idomain, P_dvel_no2 ) = 'dvel_no2' dvel_desc_table( idomain, P_dvel_no2 ) = 'NO2 deposition velocity ' dvel_units_table( idomain, P_dvel_no2 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_no2 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_no2 )%stream(2) = 0 ! 00000000 F_dvel_no2 = .TRUE. IF ( dvel_index_table( PARAM_dvel_nh3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_nh3 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_nh3 , idomain ) = P_dvel_nh3 ELSE P_dvel_nh3 = dvel_index_table( PARAM_dvel_nh3 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_nh3 ) = .FALSE. dvel_dname_table( idomain, P_dvel_nh3 ) = 'dvel_nh3' dvel_desc_table( idomain, P_dvel_nh3 ) = 'NH3 deposition velocity ' dvel_units_table( idomain, P_dvel_nh3 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_nh3 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_nh3 )%stream(2) = 0 ! 00000000 F_dvel_nh3 = .TRUE. IF ( dvel_index_table( PARAM_dvel_hno3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_hno3 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_hno3 , idomain ) = P_dvel_hno3 ELSE P_dvel_hno3 = dvel_index_table( PARAM_dvel_hno3 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_hno3 ) = .FALSE. dvel_dname_table( idomain, P_dvel_hno3 ) = 'dvel_hno3' dvel_desc_table( idomain, P_dvel_hno3 ) = 'HNO3 deposition velocity ' dvel_units_table( idomain, P_dvel_hno3 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_hno3 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_hno3 )%stream(2) = 0 ! 00000000 F_dvel_hno3 = .TRUE. IF ( dvel_index_table( PARAM_dvel_hno4 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_hno4 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_hno4 , idomain ) = P_dvel_hno4 ELSE P_dvel_hno4 = dvel_index_table( PARAM_dvel_hno4 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_hno4 ) = .FALSE. dvel_dname_table( idomain, P_dvel_hno4 ) = 'dvel_hno4' dvel_desc_table( idomain, P_dvel_hno4 ) = 'HNO4 deposition velocity ' dvel_units_table( idomain, P_dvel_hno4 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_hno4 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_hno4 )%stream(2) = 0 ! 00000000 F_dvel_hno4 = .TRUE. IF ( dvel_index_table( PARAM_dvel_h2o2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_h2o2 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_h2o2 , idomain ) = P_dvel_h2o2 ELSE P_dvel_h2o2 = dvel_index_table( PARAM_dvel_h2o2 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_h2o2 ) = .FALSE. dvel_dname_table( idomain, P_dvel_h2o2 ) = 'dvel_h2o2' dvel_desc_table( idomain, P_dvel_h2o2 ) = 'H2O2 deposition velocity ' dvel_units_table( idomain, P_dvel_h2o2 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_h2o2 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_h2o2 )%stream(2) = 0 ! 00000000 F_dvel_h2o2 = .TRUE. IF ( dvel_index_table( PARAM_dvel_co , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_co = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_co , idomain ) = P_dvel_co ELSE P_dvel_co = dvel_index_table( PARAM_dvel_co , idomain ) END IF dvel_boundary_table( idomain, P_dvel_co ) = .FALSE. dvel_dname_table( idomain, P_dvel_co ) = 'dvel_co' dvel_desc_table( idomain, P_dvel_co ) = 'CO deposition velocity ' dvel_units_table( idomain, P_dvel_co ) = 'cm/s' dvel_streams_table( idomain, P_dvel_co )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_co )%stream(2) = 0 ! 00000000 F_dvel_co = .TRUE. IF ( dvel_index_table( PARAM_dvel_ch3ooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_ch3ooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_ch3ooh , idomain ) = P_dvel_ch3ooh ELSE P_dvel_ch3ooh = dvel_index_table( PARAM_dvel_ch3ooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_ch3ooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_ch3ooh ) = 'dvel_ch3ooh' dvel_desc_table( idomain, P_dvel_ch3ooh ) = 'CH3OOH deposition velocity ' dvel_units_table( idomain, P_dvel_ch3ooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_ch3ooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_ch3ooh )%stream(2) = 0 ! 00000000 F_dvel_ch3ooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_hcho , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_hcho = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_hcho , idomain ) = P_dvel_hcho ELSE P_dvel_hcho = dvel_index_table( PARAM_dvel_hcho , idomain ) END IF dvel_boundary_table( idomain, P_dvel_hcho ) = .FALSE. dvel_dname_table( idomain, P_dvel_hcho ) = 'dvel_hcho' dvel_desc_table( idomain, P_dvel_hcho ) = 'HCHO deposition velocity ' dvel_units_table( idomain, P_dvel_hcho ) = 'cm/s' dvel_streams_table( idomain, P_dvel_hcho )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_hcho )%stream(2) = 0 ! 00000000 F_dvel_hcho = .TRUE. IF ( dvel_index_table( PARAM_dvel_ch3oh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_ch3oh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_ch3oh , idomain ) = P_dvel_ch3oh ELSE P_dvel_ch3oh = dvel_index_table( PARAM_dvel_ch3oh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_ch3oh ) = .FALSE. dvel_dname_table( idomain, P_dvel_ch3oh ) = 'dvel_ch3oh' dvel_desc_table( idomain, P_dvel_ch3oh ) = 'CH3OH deposition velocity ' dvel_units_table( idomain, P_dvel_ch3oh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_ch3oh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_ch3oh )%stream(2) = 0 ! 00000000 F_dvel_ch3oh = .TRUE. IF ( dvel_index_table( PARAM_dvel_eo2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_eo2 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_eo2 , idomain ) = P_dvel_eo2 ELSE P_dvel_eo2 = dvel_index_table( PARAM_dvel_eo2 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_eo2 ) = .FALSE. dvel_dname_table( idomain, P_dvel_eo2 ) = 'dvel_eo2' dvel_desc_table( idomain, P_dvel_eo2 ) = 'EO2 deposition velocity ' dvel_units_table( idomain, P_dvel_eo2 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_eo2 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_eo2 )%stream(2) = 0 ! 00000000 F_dvel_eo2 = .TRUE. IF ( dvel_index_table( PARAM_dvel_ald , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_ald = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_ald , idomain ) = P_dvel_ald ELSE P_dvel_ald = dvel_index_table( PARAM_dvel_ald , idomain ) END IF dvel_boundary_table( idomain, P_dvel_ald ) = .FALSE. dvel_dname_table( idomain, P_dvel_ald ) = 'dvel_ald' dvel_desc_table( idomain, P_dvel_ald ) = 'ALD deposition velocity ' dvel_units_table( idomain, P_dvel_ald ) = 'cm/s' dvel_streams_table( idomain, P_dvel_ald )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_ald )%stream(2) = 0 ! 00000000 F_dvel_ald = .TRUE. IF ( dvel_index_table( PARAM_dvel_ch3cooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_ch3cooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_ch3cooh , idomain ) = P_dvel_ch3cooh ELSE P_dvel_ch3cooh = dvel_index_table( PARAM_dvel_ch3cooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_ch3cooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_ch3cooh ) = 'dvel_ch3cooh' dvel_desc_table( idomain, P_dvel_ch3cooh ) = 'CH3COOH deposition velocity ' dvel_units_table( idomain, P_dvel_ch3cooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_ch3cooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_ch3cooh )%stream(2) = 0 ! 00000000 F_dvel_ch3cooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_acet , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_acet = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_acet , idomain ) = P_dvel_acet ELSE P_dvel_acet = dvel_index_table( PARAM_dvel_acet , idomain ) END IF dvel_boundary_table( idomain, P_dvel_acet ) = .FALSE. dvel_dname_table( idomain, P_dvel_acet ) = 'dvel_acet' dvel_desc_table( idomain, P_dvel_acet ) = 'ACET deposition velocity ' dvel_units_table( idomain, P_dvel_acet ) = 'cm/s' dvel_streams_table( idomain, P_dvel_acet )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_acet )%stream(2) = 0 ! 00000000 F_dvel_acet = .TRUE. IF ( dvel_index_table( PARAM_dvel_mgly , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_mgly = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_mgly , idomain ) = P_dvel_mgly ELSE P_dvel_mgly = dvel_index_table( PARAM_dvel_mgly , idomain ) END IF dvel_boundary_table( idomain, P_dvel_mgly ) = .FALSE. dvel_dname_table( idomain, P_dvel_mgly ) = 'dvel_mgly' dvel_desc_table( idomain, P_dvel_mgly ) = 'MGLY deposition velocity ' dvel_units_table( idomain, P_dvel_mgly ) = 'cm/s' dvel_streams_table( idomain, P_dvel_mgly )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_mgly )%stream(2) = 0 ! 00000000 F_dvel_mgly = .TRUE. IF ( dvel_index_table( PARAM_dvel_gly , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_gly = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_gly , idomain ) = P_dvel_gly ELSE P_dvel_gly = dvel_index_table( PARAM_dvel_gly , idomain ) END IF dvel_boundary_table( idomain, P_dvel_gly ) = .FALSE. dvel_dname_table( idomain, P_dvel_gly ) = 'dvel_gly' dvel_desc_table( idomain, P_dvel_gly ) = 'GLY deposition velocity ' dvel_units_table( idomain, P_dvel_gly ) = 'cm/s' dvel_streams_table( idomain, P_dvel_gly )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_gly )%stream(2) = 0 ! 00000000 F_dvel_gly = .TRUE. IF ( dvel_index_table( PARAM_dvel_paa , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_paa = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_paa , idomain ) = P_dvel_paa ELSE P_dvel_paa = dvel_index_table( PARAM_dvel_paa , idomain ) END IF dvel_boundary_table( idomain, P_dvel_paa ) = .FALSE. dvel_dname_table( idomain, P_dvel_paa ) = 'dvel_paa' dvel_desc_table( idomain, P_dvel_paa ) = 'PAA deposition velocity ' dvel_units_table( idomain, P_dvel_paa ) = 'cm/s' dvel_streams_table( idomain, P_dvel_paa )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_paa )%stream(2) = 0 ! 00000000 F_dvel_paa = .TRUE. IF ( dvel_index_table( PARAM_dvel_pooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_pooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_pooh , idomain ) = P_dvel_pooh ELSE P_dvel_pooh = dvel_index_table( PARAM_dvel_pooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_pooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_pooh ) = 'dvel_pooh' dvel_desc_table( idomain, P_dvel_pooh ) = 'POOH deposition velocity ' dvel_units_table( idomain, P_dvel_pooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_pooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_pooh )%stream(2) = 0 ! 00000000 F_dvel_pooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_pan , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_pan = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_pan , idomain ) = P_dvel_pan ELSE P_dvel_pan = dvel_index_table( PARAM_dvel_pan , idomain ) END IF dvel_boundary_table( idomain, P_dvel_pan ) = .FALSE. dvel_dname_table( idomain, P_dvel_pan ) = 'dvel_pan' dvel_desc_table( idomain, P_dvel_pan ) = 'PAN deposition velocity ' dvel_units_table( idomain, P_dvel_pan ) = 'cm/s' dvel_streams_table( idomain, P_dvel_pan )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_pan )%stream(2) = 0 ! 00000000 F_dvel_pan = .TRUE. IF ( dvel_index_table( PARAM_dvel_mpan , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_mpan = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_mpan , idomain ) = P_dvel_mpan ELSE P_dvel_mpan = dvel_index_table( PARAM_dvel_mpan , idomain ) END IF dvel_boundary_table( idomain, P_dvel_mpan ) = .FALSE. dvel_dname_table( idomain, P_dvel_mpan ) = 'dvel_mpan' dvel_desc_table( idomain, P_dvel_mpan ) = 'MPAN deposition velocity ' dvel_units_table( idomain, P_dvel_mpan ) = 'cm/s' dvel_streams_table( idomain, P_dvel_mpan )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_mpan )%stream(2) = 0 ! 00000000 F_dvel_mpan = .TRUE. IF ( dvel_index_table( PARAM_dvel_mco3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_mco3 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_mco3 , idomain ) = P_dvel_mco3 ELSE P_dvel_mco3 = dvel_index_table( PARAM_dvel_mco3 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_mco3 ) = .FALSE. dvel_dname_table( idomain, P_dvel_mco3 ) = 'dvel_mco3' dvel_desc_table( idomain, P_dvel_mco3 ) = 'MCO3 deposition velocity ' dvel_units_table( idomain, P_dvel_mco3 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_mco3 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_mco3 )%stream(2) = 0 ! 00000000 F_dvel_mco3 = .TRUE. IF ( dvel_index_table( PARAM_dvel_mvkooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_mvkooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_mvkooh , idomain ) = P_dvel_mvkooh ELSE P_dvel_mvkooh = dvel_index_table( PARAM_dvel_mvkooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_mvkooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_mvkooh ) = 'dvel_mvkooh' dvel_desc_table( idomain, P_dvel_mvkooh ) = 'MVKOOH deposition velocity ' dvel_units_table( idomain, P_dvel_mvkooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_mvkooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_mvkooh )%stream(2) = 0 ! 00000000 F_dvel_mvkooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_c2h5oh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_c2h5oh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_c2h5oh , idomain ) = P_dvel_c2h5oh ELSE P_dvel_c2h5oh = dvel_index_table( PARAM_dvel_c2h5oh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_c2h5oh ) = .FALSE. dvel_dname_table( idomain, P_dvel_c2h5oh ) = 'dvel_c2h5oh' dvel_desc_table( idomain, P_dvel_c2h5oh ) = 'C2H5OH deposition velocity ' dvel_units_table( idomain, P_dvel_c2h5oh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_c2h5oh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_c2h5oh )%stream(2) = 0 ! 00000000 F_dvel_c2h5oh = .TRUE. IF ( dvel_index_table( PARAM_dvel_etooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_etooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_etooh , idomain ) = P_dvel_etooh ELSE P_dvel_etooh = dvel_index_table( PARAM_dvel_etooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_etooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_etooh ) = 'dvel_etooh' dvel_desc_table( idomain, P_dvel_etooh ) = 'ETOOH deposition velocity ' dvel_units_table( idomain, P_dvel_etooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_etooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_etooh )%stream(2) = 0 ! 00000000 F_dvel_etooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_prooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_prooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_prooh , idomain ) = P_dvel_prooh ELSE P_dvel_prooh = dvel_index_table( PARAM_dvel_prooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_prooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_prooh ) = 'dvel_prooh' dvel_desc_table( idomain, P_dvel_prooh ) = 'PROOH deposition velocity ' dvel_units_table( idomain, P_dvel_prooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_prooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_prooh )%stream(2) = 0 ! 00000000 F_dvel_prooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_acetp , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_acetp = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_acetp , idomain ) = P_dvel_acetp ELSE P_dvel_acetp = dvel_index_table( PARAM_dvel_acetp , idomain ) END IF dvel_boundary_table( idomain, P_dvel_acetp ) = .FALSE. dvel_dname_table( idomain, P_dvel_acetp ) = 'dvel_acetp' dvel_desc_table( idomain, P_dvel_acetp ) = 'ACETP deposition velocity ' dvel_units_table( idomain, P_dvel_acetp ) = 'cm/s' dvel_streams_table( idomain, P_dvel_acetp )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_acetp )%stream(2) = 0 ! 00000000 F_dvel_acetp = .TRUE. IF ( dvel_index_table( PARAM_dvel_onit , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_onit = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_onit , idomain ) = P_dvel_onit ELSE P_dvel_onit = dvel_index_table( PARAM_dvel_onit , idomain ) END IF dvel_boundary_table( idomain, P_dvel_onit ) = .FALSE. dvel_dname_table( idomain, P_dvel_onit ) = 'dvel_onit' dvel_desc_table( idomain, P_dvel_onit ) = 'ONIT deposition velocity ' dvel_units_table( idomain, P_dvel_onit ) = 'cm/s' dvel_streams_table( idomain, P_dvel_onit )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_onit )%stream(2) = 0 ! 00000000 F_dvel_onit = .TRUE. IF ( dvel_index_table( PARAM_dvel_onitr , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_onitr = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_onitr , idomain ) = P_dvel_onitr ELSE P_dvel_onitr = dvel_index_table( PARAM_dvel_onitr , idomain ) END IF dvel_boundary_table( idomain, P_dvel_onitr ) = .FALSE. dvel_dname_table( idomain, P_dvel_onitr ) = 'dvel_onitr' dvel_desc_table( idomain, P_dvel_onitr ) = 'ONITR deposition velocity ' dvel_units_table( idomain, P_dvel_onitr ) = 'cm/s' dvel_streams_table( idomain, P_dvel_onitr )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_onitr )%stream(2) = 0 ! 00000000 F_dvel_onitr = .TRUE. IF ( dvel_index_table( PARAM_dvel_isooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_isooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_isooh , idomain ) = P_dvel_isooh ELSE P_dvel_isooh = dvel_index_table( PARAM_dvel_isooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_isooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_isooh ) = 'dvel_isooh' dvel_desc_table( idomain, P_dvel_isooh ) = 'ISOOH deposition velocity ' dvel_units_table( idomain, P_dvel_isooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_isooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_isooh )%stream(2) = 0 ! 00000000 F_dvel_isooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_acetol , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_acetol = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_acetol , idomain ) = P_dvel_acetol ELSE P_dvel_acetol = dvel_index_table( PARAM_dvel_acetol , idomain ) END IF dvel_boundary_table( idomain, P_dvel_acetol ) = .FALSE. dvel_dname_table( idomain, P_dvel_acetol ) = 'dvel_acetol' dvel_desc_table( idomain, P_dvel_acetol ) = 'ACETOL deposition velocity ' dvel_units_table( idomain, P_dvel_acetol ) = 'cm/s' dvel_streams_table( idomain, P_dvel_acetol )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_acetol )%stream(2) = 0 ! 00000000 F_dvel_acetol = .TRUE. IF ( dvel_index_table( PARAM_dvel_glyald , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_glyald = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_glyald , idomain ) = P_dvel_glyald ELSE P_dvel_glyald = dvel_index_table( PARAM_dvel_glyald , idomain ) END IF dvel_boundary_table( idomain, P_dvel_glyald ) = .FALSE. dvel_dname_table( idomain, P_dvel_glyald ) = 'dvel_glyald' dvel_desc_table( idomain, P_dvel_glyald ) = 'GLYALD deposition velocity ' dvel_units_table( idomain, P_dvel_glyald ) = 'cm/s' dvel_streams_table( idomain, P_dvel_glyald )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_glyald )%stream(2) = 0 ! 00000000 F_dvel_glyald = .TRUE. IF ( dvel_index_table( PARAM_dvel_hydrald , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_hydrald = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_hydrald , idomain ) = P_dvel_hydrald ELSE P_dvel_hydrald = dvel_index_table( PARAM_dvel_hydrald , idomain ) END IF dvel_boundary_table( idomain, P_dvel_hydrald ) = .FALSE. dvel_dname_table( idomain, P_dvel_hydrald ) = 'dvel_hydrald' dvel_desc_table( idomain, P_dvel_hydrald ) = 'HYDRALD deposition velocity ' dvel_units_table( idomain, P_dvel_hydrald ) = 'cm/s' dvel_streams_table( idomain, P_dvel_hydrald )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_hydrald )%stream(2) = 0 ! 00000000 F_dvel_hydrald = .TRUE. IF ( dvel_index_table( PARAM_dvel_alkooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_alkooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_alkooh , idomain ) = P_dvel_alkooh ELSE P_dvel_alkooh = dvel_index_table( PARAM_dvel_alkooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_alkooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_alkooh ) = 'dvel_alkooh' dvel_desc_table( idomain, P_dvel_alkooh ) = 'ALKOOH deposition velocity ' dvel_units_table( idomain, P_dvel_alkooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_alkooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_alkooh )%stream(2) = 0 ! 00000000 F_dvel_alkooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_mekooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_mekooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_mekooh , idomain ) = P_dvel_mekooh ELSE P_dvel_mekooh = dvel_index_table( PARAM_dvel_mekooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_mekooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_mekooh ) = 'dvel_mekooh' dvel_desc_table( idomain, P_dvel_mekooh ) = 'MEKOOH deposition velocity ' dvel_units_table( idomain, P_dvel_mekooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_mekooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_mekooh )%stream(2) = 0 ! 00000000 F_dvel_mekooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_tolooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_tolooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_tolooh , idomain ) = P_dvel_tolooh ELSE P_dvel_tolooh = dvel_index_table( PARAM_dvel_tolooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_tolooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_tolooh ) = 'dvel_tolooh' dvel_desc_table( idomain, P_dvel_tolooh ) = 'TOLOOH deposition velocity ' dvel_units_table( idomain, P_dvel_tolooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_tolooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_tolooh )%stream(2) = 0 ! 00000000 F_dvel_tolooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_xooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_xooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_xooh , idomain ) = P_dvel_xooh ELSE P_dvel_xooh = dvel_index_table( PARAM_dvel_xooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_xooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_xooh ) = 'dvel_xooh' dvel_desc_table( idomain, P_dvel_xooh ) = 'XOOH deposition velocity ' dvel_units_table( idomain, P_dvel_xooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_xooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_xooh )%stream(2) = 0 ! 00000000 F_dvel_xooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_so2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_so2 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_so2 , idomain ) = P_dvel_so2 ELSE P_dvel_so2 = dvel_index_table( PARAM_dvel_so2 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_so2 ) = .FALSE. dvel_dname_table( idomain, P_dvel_so2 ) = 'dvel_so2' dvel_desc_table( idomain, P_dvel_so2 ) = 'SO2 deposition velocity ' dvel_units_table( idomain, P_dvel_so2 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_so2 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_so2 )%stream(2) = 0 ! 00000000 F_dvel_so2 = .TRUE. IF ( dvel_index_table( PARAM_dvel_so4 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_so4 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_so4 , idomain ) = P_dvel_so4 ELSE P_dvel_so4 = dvel_index_table( PARAM_dvel_so4 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_so4 ) = .FALSE. dvel_dname_table( idomain, P_dvel_so4 ) = 'dvel_so4' dvel_desc_table( idomain, P_dvel_so4 ) = 'SO4 deposition velocity ' dvel_units_table( idomain, P_dvel_so4 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_so4 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_so4 )%stream(2) = 0 ! 00000000 F_dvel_so4 = .TRUE. IF ( dvel_index_table( PARAM_dvel_terpooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_terpooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_terpooh , idomain ) = P_dvel_terpooh ELSE P_dvel_terpooh = dvel_index_table( PARAM_dvel_terpooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_terpooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_terpooh ) = 'dvel_terpooh' dvel_desc_table( idomain, P_dvel_terpooh ) = 'TERPOOH deposition velocity ' dvel_units_table( idomain, P_dvel_terpooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_terpooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_terpooh )%stream(2) = 0 ! 00000000 F_dvel_terpooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvasoax , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvasoax = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvasoax , idomain ) = P_dvel_cvasoax ELSE P_dvel_cvasoax = dvel_index_table( PARAM_dvel_cvasoax , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvasoax ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvasoax ) = 'dvel_cvasoaX' dvel_desc_table( idomain, P_dvel_cvasoax ) = 'CVASOAX deposition velocity ' dvel_units_table( idomain, P_dvel_cvasoax ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvasoax )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_cvasoax )%stream(2) = 0 ! 00000000 F_dvel_cvasoax = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvasoa1 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvasoa1 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvasoa1 , idomain ) = P_dvel_cvasoa1 ELSE P_dvel_cvasoa1 = dvel_index_table( PARAM_dvel_cvasoa1 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvasoa1 ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvasoa1 ) = 'dvel_cvasoa1' dvel_desc_table( idomain, P_dvel_cvasoa1 ) = 'CVASOA1 deposition velocity ' dvel_units_table( idomain, P_dvel_cvasoa1 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvasoa1 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_cvasoa1 )%stream(2) = 0 ! 00000000 F_dvel_cvasoa1 = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvasoa2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvasoa2 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvasoa2 , idomain ) = P_dvel_cvasoa2 ELSE P_dvel_cvasoa2 = dvel_index_table( PARAM_dvel_cvasoa2 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvasoa2 ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvasoa2 ) = 'dvel_cvasoa2' dvel_desc_table( idomain, P_dvel_cvasoa2 ) = 'CVASOA2 deposition velocity ' dvel_units_table( idomain, P_dvel_cvasoa2 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvasoa2 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_cvasoa2 )%stream(2) = 0 ! 00000000 F_dvel_cvasoa2 = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvasoa3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvasoa3 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvasoa3 , idomain ) = P_dvel_cvasoa3 ELSE P_dvel_cvasoa3 = dvel_index_table( PARAM_dvel_cvasoa3 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvasoa3 ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvasoa3 ) = 'dvel_cvasoa3' dvel_desc_table( idomain, P_dvel_cvasoa3 ) = 'CVASOA3 deposition velocity ' dvel_units_table( idomain, P_dvel_cvasoa3 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvasoa3 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_cvasoa3 )%stream(2) = 0 ! 00000000 F_dvel_cvasoa3 = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvasoa4 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvasoa4 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvasoa4 , idomain ) = P_dvel_cvasoa4 ELSE P_dvel_cvasoa4 = dvel_index_table( PARAM_dvel_cvasoa4 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvasoa4 ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvasoa4 ) = 'dvel_cvasoa4' dvel_desc_table( idomain, P_dvel_cvasoa4 ) = 'CVASOA4 deposition velocity ' dvel_units_table( idomain, P_dvel_cvasoa4 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvasoa4 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_cvasoa4 )%stream(2) = 0 ! 00000000 F_dvel_cvasoa4 = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvbsoax , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvbsoax = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvbsoax , idomain ) = P_dvel_cvbsoax ELSE P_dvel_cvbsoax = dvel_index_table( PARAM_dvel_cvbsoax , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvbsoax ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvbsoax ) = 'dvel_cvbsoaX' dvel_desc_table( idomain, P_dvel_cvbsoax ) = 'CVBSOAX deposition velocity ' dvel_units_table( idomain, P_dvel_cvbsoax ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvbsoax )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_cvbsoax )%stream(2) = 0 ! 00000000 F_dvel_cvbsoax = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvbsoa1 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvbsoa1 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvbsoa1 , idomain ) = P_dvel_cvbsoa1 ELSE P_dvel_cvbsoa1 = dvel_index_table( PARAM_dvel_cvbsoa1 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvbsoa1 ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvbsoa1 ) = 'dvel_cvbsoa1' dvel_desc_table( idomain, P_dvel_cvbsoa1 ) = 'CVBSOA1 deposition velocity ' dvel_units_table( idomain, P_dvel_cvbsoa1 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvbsoa1 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_cvbsoa1 )%stream(2) = 0 ! 00000000 F_dvel_cvbsoa1 = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvbsoa2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvbsoa2 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvbsoa2 , idomain ) = P_dvel_cvbsoa2 ELSE P_dvel_cvbsoa2 = dvel_index_table( PARAM_dvel_cvbsoa2 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvbsoa2 ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvbsoa2 ) = 'dvel_cvbsoa2' dvel_desc_table( idomain, P_dvel_cvbsoa2 ) = 'CVBSOA2 deposition velocity ' dvel_units_table( idomain, P_dvel_cvbsoa2 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvbsoa2 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_cvbsoa2 )%stream(2) = 0 ! 00000000 F_dvel_cvbsoa2 = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvbsoa3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvbsoa3 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvbsoa3 , idomain ) = P_dvel_cvbsoa3 ELSE P_dvel_cvbsoa3 = dvel_index_table( PARAM_dvel_cvbsoa3 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvbsoa3 ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvbsoa3 ) = 'dvel_cvbsoa3' dvel_desc_table( idomain, P_dvel_cvbsoa3 ) = 'CVBSOA3 deposition velocity ' dvel_units_table( idomain, P_dvel_cvbsoa3 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvbsoa3 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_cvbsoa3 )%stream(2) = 0 ! 00000000 F_dvel_cvbsoa3 = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvbsoa4 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvbsoa4 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvbsoa4 , idomain ) = P_dvel_cvbsoa4 ELSE P_dvel_cvbsoa4 = dvel_index_table( PARAM_dvel_cvbsoa4 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvbsoa4 ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvbsoa4 ) = 'dvel_cvbsoa4' dvel_desc_table( idomain, P_dvel_cvbsoa4 ) = 'CVBSOA4 deposition velocity ' dvel_units_table( idomain, P_dvel_cvbsoa4 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvbsoa4 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_dvel_cvbsoa4 )%stream(2) = 0 ! 00000000 F_dvel_cvbsoa4 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_o3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_o3 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_o3 , idomain ) = P_ddmass_o3 ELSE P_ddmass_o3 = dvel_index_table( PARAM_ddmass_o3 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_o3 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_o3 ) = 'ddmass_o3' dvel_desc_table( idomain, P_ddmass_o3 ) = 'O3 dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_o3 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_o3 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_o3 )%stream(2) = 2097152 ! 00200000 F_ddmass_o3 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no , idomain ) = P_ddmass_no ELSE P_ddmass_no = dvel_index_table( PARAM_ddmass_no , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no ) = 'ddmass_no' dvel_desc_table( idomain, P_ddmass_no ) = 'NO dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_no ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_no )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_no )%stream(2) = 2097152 ! 00200000 F_ddmass_no = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no2 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no2 , idomain ) = P_ddmass_no2 ELSE P_ddmass_no2 = dvel_index_table( PARAM_ddmass_no2 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no2 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no2 ) = 'ddmass_no2' dvel_desc_table( idomain, P_ddmass_no2 ) = 'NO2 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no2 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_no2 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_no2 )%stream(2) = 2097152 ! 00200000 F_ddmass_no2 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh3 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh3 , idomain ) = P_ddmass_nh3 ELSE P_ddmass_nh3 = dvel_index_table( PARAM_ddmass_nh3 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh3 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh3 ) = 'ddmass_nh3' dvel_desc_table( idomain, P_ddmass_nh3 ) = 'NH3 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh3 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_nh3 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_nh3 )%stream(2) = 2097152 ! 00200000 F_ddmass_nh3 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_hno3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_hno3 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_hno3 , idomain ) = P_ddmass_hno3 ELSE P_ddmass_hno3 = dvel_index_table( PARAM_ddmass_hno3 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_hno3 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_hno3 ) = 'ddmass_hno3' dvel_desc_table( idomain, P_ddmass_hno3 ) = 'HNO3 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_hno3 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_hno3 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_hno3 )%stream(2) = 2097152 ! 00200000 F_ddmass_hno3 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_hno4 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_hno4 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_hno4 , idomain ) = P_ddmass_hno4 ELSE P_ddmass_hno4 = dvel_index_table( PARAM_ddmass_hno4 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_hno4 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_hno4 ) = 'ddmass_hno4' dvel_desc_table( idomain, P_ddmass_hno4 ) = 'HNO4 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_hno4 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_hno4 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_hno4 )%stream(2) = 2097152 ! 00200000 F_ddmass_hno4 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_h2o2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_h2o2 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_h2o2 , idomain ) = P_ddmass_h2o2 ELSE P_ddmass_h2o2 = dvel_index_table( PARAM_ddmass_h2o2 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_h2o2 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_h2o2 ) = 'ddmass_h2o2' dvel_desc_table( idomain, P_ddmass_h2o2 ) = 'H2O2 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_h2o2 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_h2o2 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_h2o2 )%stream(2) = 2097152 ! 00200000 F_ddmass_h2o2 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co , idomain ) = P_ddmass_co ELSE P_ddmass_co = dvel_index_table( PARAM_ddmass_co , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co ) = 'ddmass_co' dvel_desc_table( idomain, P_ddmass_co ) = 'CO dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_co ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_co )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_co )%stream(2) = 2097152 ! 00200000 F_ddmass_co = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ch3ooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ch3ooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ch3ooh , idomain ) = P_ddmass_ch3ooh ELSE P_ddmass_ch3ooh = dvel_index_table( PARAM_ddmass_ch3ooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ch3ooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ch3ooh ) = 'ddmass_ch3ooh' dvel_desc_table( idomain, P_ddmass_ch3ooh ) = 'CH3OOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_ch3ooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_ch3ooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_ch3ooh )%stream(2) = 2097152 ! 00200000 F_ddmass_ch3ooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_hcho , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_hcho = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_hcho , idomain ) = P_ddmass_hcho ELSE P_ddmass_hcho = dvel_index_table( PARAM_ddmass_hcho , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_hcho ) = .FALSE. dvel_dname_table( idomain, P_ddmass_hcho ) = 'ddmass_hcho' dvel_desc_table( idomain, P_ddmass_hcho ) = 'HCHO dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_hcho ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_hcho )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_hcho )%stream(2) = 2097152 ! 00200000 F_ddmass_hcho = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ch3oh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ch3oh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ch3oh , idomain ) = P_ddmass_ch3oh ELSE P_ddmass_ch3oh = dvel_index_table( PARAM_ddmass_ch3oh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ch3oh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ch3oh ) = 'ddmass_ch3oh' dvel_desc_table( idomain, P_ddmass_ch3oh ) = 'CH3OH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_ch3oh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_ch3oh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_ch3oh )%stream(2) = 2097152 ! 00200000 F_ddmass_ch3oh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_eo2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_eo2 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_eo2 , idomain ) = P_ddmass_eo2 ELSE P_ddmass_eo2 = dvel_index_table( PARAM_ddmass_eo2 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_eo2 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_eo2 ) = 'ddmass_eo2' dvel_desc_table( idomain, P_ddmass_eo2 ) = 'EO2 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_eo2 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_eo2 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_eo2 )%stream(2) = 2097152 ! 00200000 F_ddmass_eo2 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ald , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ald = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ald , idomain ) = P_ddmass_ald ELSE P_ddmass_ald = dvel_index_table( PARAM_ddmass_ald , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ald ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ald ) = 'ddmass_ald' dvel_desc_table( idomain, P_ddmass_ald ) = 'ALD dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ald ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_ald )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_ald )%stream(2) = 2097152 ! 00200000 F_ddmass_ald = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ch3cooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ch3cooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ch3cooh , idomain ) = P_ddmass_ch3cooh ELSE P_ddmass_ch3cooh = dvel_index_table( PARAM_ddmass_ch3cooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ch3cooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ch3cooh ) = 'ddmass_ch3cooh' dvel_desc_table( idomain, P_ddmass_ch3cooh ) = 'CH3COOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_ch3cooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_ch3cooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_ch3cooh )%stream(2) = 2097152 ! 00200000 F_ddmass_ch3cooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_acet , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_acet = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_acet , idomain ) = P_ddmass_acet ELSE P_ddmass_acet = dvel_index_table( PARAM_ddmass_acet , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_acet ) = .FALSE. dvel_dname_table( idomain, P_ddmass_acet ) = 'ddmass_acet' dvel_desc_table( idomain, P_ddmass_acet ) = 'ACET dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_acet ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_acet )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_acet )%stream(2) = 2097152 ! 00200000 F_ddmass_acet = .TRUE. IF ( dvel_index_table( PARAM_ddmass_mgly , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_mgly = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_mgly , idomain ) = P_ddmass_mgly ELSE P_ddmass_mgly = dvel_index_table( PARAM_ddmass_mgly , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_mgly ) = .FALSE. dvel_dname_table( idomain, P_ddmass_mgly ) = 'ddmass_mgly' dvel_desc_table( idomain, P_ddmass_mgly ) = 'MGLY dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_mgly ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_mgly )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_mgly )%stream(2) = 2097152 ! 00200000 F_ddmass_mgly = .TRUE. IF ( dvel_index_table( PARAM_ddmass_gly , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_gly = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_gly , idomain ) = P_ddmass_gly ELSE P_ddmass_gly = dvel_index_table( PARAM_ddmass_gly , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_gly ) = .FALSE. dvel_dname_table( idomain, P_ddmass_gly ) = 'ddmass_gly' dvel_desc_table( idomain, P_ddmass_gly ) = 'GLY dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_gly ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_gly )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_gly )%stream(2) = 2097152 ! 00200000 F_ddmass_gly = .TRUE. IF ( dvel_index_table( PARAM_ddmass_paa , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_paa = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_paa , idomain ) = P_ddmass_paa ELSE P_ddmass_paa = dvel_index_table( PARAM_ddmass_paa , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_paa ) = .FALSE. dvel_dname_table( idomain, P_ddmass_paa ) = 'ddmass_paa' dvel_desc_table( idomain, P_ddmass_paa ) = 'PAA dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_paa ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_paa )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_paa )%stream(2) = 2097152 ! 00200000 F_ddmass_paa = .TRUE. IF ( dvel_index_table( PARAM_ddmass_pooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_pooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_pooh , idomain ) = P_ddmass_pooh ELSE P_ddmass_pooh = dvel_index_table( PARAM_ddmass_pooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_pooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_pooh ) = 'ddmass_pooh' dvel_desc_table( idomain, P_ddmass_pooh ) = 'POOH dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_pooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_pooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_pooh )%stream(2) = 2097152 ! 00200000 F_ddmass_pooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_pan , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_pan = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_pan , idomain ) = P_ddmass_pan ELSE P_ddmass_pan = dvel_index_table( PARAM_ddmass_pan , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_pan ) = .FALSE. dvel_dname_table( idomain, P_ddmass_pan ) = 'ddmass_pan' dvel_desc_table( idomain, P_ddmass_pan ) = 'PAN dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_pan ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_pan )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_pan )%stream(2) = 2097152 ! 00200000 F_ddmass_pan = .TRUE. IF ( dvel_index_table( PARAM_ddmass_mpan , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_mpan = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_mpan , idomain ) = P_ddmass_mpan ELSE P_ddmass_mpan = dvel_index_table( PARAM_ddmass_mpan , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_mpan ) = .FALSE. dvel_dname_table( idomain, P_ddmass_mpan ) = 'ddmass_mpan' dvel_desc_table( idomain, P_ddmass_mpan ) = 'MPAN dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_mpan ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_mpan )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_mpan )%stream(2) = 2097152 ! 00200000 F_ddmass_mpan = .TRUE. IF ( dvel_index_table( PARAM_ddmass_mco3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_mco3 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_mco3 , idomain ) = P_ddmass_mco3 ELSE P_ddmass_mco3 = dvel_index_table( PARAM_ddmass_mco3 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_mco3 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_mco3 ) = 'ddmass_mco3' dvel_desc_table( idomain, P_ddmass_mco3 ) = 'MCO3 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_mco3 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_mco3 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_mco3 )%stream(2) = 2097152 ! 00200000 F_ddmass_mco3 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_mvkooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_mvkooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_mvkooh , idomain ) = P_ddmass_mvkooh ELSE P_ddmass_mvkooh = dvel_index_table( PARAM_ddmass_mvkooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_mvkooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_mvkooh ) = 'ddmass_mvkooh' dvel_desc_table( idomain, P_ddmass_mvkooh ) = 'MVKOOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_mvkooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_mvkooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_mvkooh )%stream(2) = 2097152 ! 00200000 F_ddmass_mvkooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_c2h5oh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_c2h5oh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_c2h5oh , idomain ) = P_ddmass_c2h5oh ELSE P_ddmass_c2h5oh = dvel_index_table( PARAM_ddmass_c2h5oh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_c2h5oh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_c2h5oh ) = 'ddmass_c2h5oh' dvel_desc_table( idomain, P_ddmass_c2h5oh ) = 'C2H5OH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_c2h5oh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_c2h5oh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_c2h5oh )%stream(2) = 2097152 ! 00200000 F_ddmass_c2h5oh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_etooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_etooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_etooh , idomain ) = P_ddmass_etooh ELSE P_ddmass_etooh = dvel_index_table( PARAM_ddmass_etooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_etooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_etooh ) = 'ddmass_etooh' dvel_desc_table( idomain, P_ddmass_etooh ) = 'ETOOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_etooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_etooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_etooh )%stream(2) = 2097152 ! 00200000 F_ddmass_etooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_prooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_prooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_prooh , idomain ) = P_ddmass_prooh ELSE P_ddmass_prooh = dvel_index_table( PARAM_ddmass_prooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_prooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_prooh ) = 'ddmass_prooh' dvel_desc_table( idomain, P_ddmass_prooh ) = 'PROOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_prooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_prooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_prooh )%stream(2) = 2097152 ! 00200000 F_ddmass_prooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_acetp , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_acetp = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_acetp , idomain ) = P_ddmass_acetp ELSE P_ddmass_acetp = dvel_index_table( PARAM_ddmass_acetp , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_acetp ) = .FALSE. dvel_dname_table( idomain, P_ddmass_acetp ) = 'ddmass_acetp' dvel_desc_table( idomain, P_ddmass_acetp ) = 'ACETP dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_acetp ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_acetp )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_acetp )%stream(2) = 2097152 ! 00200000 F_ddmass_acetp = .TRUE. IF ( dvel_index_table( PARAM_ddmass_onit , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_onit = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_onit , idomain ) = P_ddmass_onit ELSE P_ddmass_onit = dvel_index_table( PARAM_ddmass_onit , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_onit ) = .FALSE. dvel_dname_table( idomain, P_ddmass_onit ) = 'ddmass_onit' dvel_desc_table( idomain, P_ddmass_onit ) = 'ONIT dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_onit ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_onit )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_onit )%stream(2) = 2097152 ! 00200000 F_ddmass_onit = .TRUE. IF ( dvel_index_table( PARAM_ddmass_onitr , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_onitr = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_onitr , idomain ) = P_ddmass_onitr ELSE P_ddmass_onitr = dvel_index_table( PARAM_ddmass_onitr , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_onitr ) = .FALSE. dvel_dname_table( idomain, P_ddmass_onitr ) = 'ddmass_onitr' dvel_desc_table( idomain, P_ddmass_onitr ) = 'ONITR dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_onitr ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_onitr )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_onitr )%stream(2) = 2097152 ! 00200000 F_ddmass_onitr = .TRUE. IF ( dvel_index_table( PARAM_ddmass_isooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_isooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_isooh , idomain ) = P_ddmass_isooh ELSE P_ddmass_isooh = dvel_index_table( PARAM_ddmass_isooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_isooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_isooh ) = 'ddmass_isooh' dvel_desc_table( idomain, P_ddmass_isooh ) = 'ISOOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_isooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_isooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_isooh )%stream(2) = 2097152 ! 00200000 F_ddmass_isooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_acetol , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_acetol = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_acetol , idomain ) = P_ddmass_acetol ELSE P_ddmass_acetol = dvel_index_table( PARAM_ddmass_acetol , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_acetol ) = .FALSE. dvel_dname_table( idomain, P_ddmass_acetol ) = 'ddmass_acetol' dvel_desc_table( idomain, P_ddmass_acetol ) = 'ACETOL dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_acetol ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_acetol )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_acetol )%stream(2) = 2097152 ! 00200000 F_ddmass_acetol = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glyald , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glyald = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glyald , idomain ) = P_ddmass_glyald ELSE P_ddmass_glyald = dvel_index_table( PARAM_ddmass_glyald , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glyald ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glyald ) = 'ddmass_glyald' dvel_desc_table( idomain, P_ddmass_glyald ) = 'GLYALD dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_glyald ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_glyald )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_glyald )%stream(2) = 2097152 ! 00200000 F_ddmass_glyald = .TRUE. IF ( dvel_index_table( PARAM_ddmass_hydrald , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_hydrald = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_hydrald , idomain ) = P_ddmass_hydrald ELSE P_ddmass_hydrald = dvel_index_table( PARAM_ddmass_hydrald , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_hydrald ) = .FALSE. dvel_dname_table( idomain, P_ddmass_hydrald ) = 'ddmass_hydrald' dvel_desc_table( idomain, P_ddmass_hydrald ) = 'HYDRALD dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_hydrald ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_hydrald )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_hydrald )%stream(2) = 2097152 ! 00200000 F_ddmass_hydrald = .TRUE. IF ( dvel_index_table( PARAM_ddmass_alkooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_alkooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_alkooh , idomain ) = P_ddmass_alkooh ELSE P_ddmass_alkooh = dvel_index_table( PARAM_ddmass_alkooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_alkooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_alkooh ) = 'ddmass_alkooh' dvel_desc_table( idomain, P_ddmass_alkooh ) = 'ALKOOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_alkooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_alkooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_alkooh )%stream(2) = 2097152 ! 00200000 F_ddmass_alkooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_mekooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_mekooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_mekooh , idomain ) = P_ddmass_mekooh ELSE P_ddmass_mekooh = dvel_index_table( PARAM_ddmass_mekooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_mekooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_mekooh ) = 'ddmass_mekooh' dvel_desc_table( idomain, P_ddmass_mekooh ) = 'MEKOOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_mekooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_mekooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_mekooh )%stream(2) = 2097152 ! 00200000 F_ddmass_mekooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_tolooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_tolooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_tolooh , idomain ) = P_ddmass_tolooh ELSE P_ddmass_tolooh = dvel_index_table( PARAM_ddmass_tolooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_tolooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_tolooh ) = 'ddmass_tolooh' dvel_desc_table( idomain, P_ddmass_tolooh ) = 'TOLOOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_tolooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_tolooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_tolooh )%stream(2) = 2097152 ! 00200000 F_ddmass_tolooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_xooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_xooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_xooh , idomain ) = P_ddmass_xooh ELSE P_ddmass_xooh = dvel_index_table( PARAM_ddmass_xooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_xooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_xooh ) = 'ddmass_xooh' dvel_desc_table( idomain, P_ddmass_xooh ) = 'XOOH dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_xooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_xooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_xooh )%stream(2) = 2097152 ! 00200000 F_ddmass_xooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so2 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so2 , idomain ) = P_ddmass_so2 ELSE P_ddmass_so2 = dvel_index_table( PARAM_ddmass_so2 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so2 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so2 ) = 'ddmass_so2' dvel_desc_table( idomain, P_ddmass_so2 ) = 'SO2 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so2 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_so2 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_so2 )%stream(2) = 2097152 ! 00200000 F_ddmass_so2 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4 , idomain ) = P_ddmass_so4 ELSE P_ddmass_so4 = dvel_index_table( PARAM_ddmass_so4 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4 ) = 'ddmass_so4' dvel_desc_table( idomain, P_ddmass_so4 ) = 'SO4 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_so4 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_so4 )%stream(2) = 2097152 ! 00200000 F_ddmass_so4 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_terpooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_terpooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_terpooh , idomain ) = P_ddmass_terpooh ELSE P_ddmass_terpooh = dvel_index_table( PARAM_ddmass_terpooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_terpooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_terpooh ) = 'ddmass_terpooh' dvel_desc_table( idomain, P_ddmass_terpooh ) = 'TERPOOH dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_terpooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_terpooh )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_terpooh )%stream(2) = 2097152 ! 00200000 F_ddmass_terpooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvasoax , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvasoax = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvasoax , idomain ) = P_ddmass_cvasoax ELSE P_ddmass_cvasoax = dvel_index_table( PARAM_ddmass_cvasoax , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvasoax ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvasoax ) = 'ddmass_cvasoaX' dvel_desc_table( idomain, P_ddmass_cvasoax ) = 'CVASOAX dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvasoax ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvasoax )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cvasoax )%stream(2) = 2097152 ! 00200000 F_ddmass_cvasoax = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvasoa1 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvasoa1 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvasoa1 , idomain ) = P_ddmass_cvasoa1 ELSE P_ddmass_cvasoa1 = dvel_index_table( PARAM_ddmass_cvasoa1 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvasoa1 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvasoa1 ) = 'ddmass_cvasoa1' dvel_desc_table( idomain, P_ddmass_cvasoa1 ) = 'CVASOA1 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvasoa1 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvasoa1 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cvasoa1 )%stream(2) = 2097152 ! 00200000 F_ddmass_cvasoa1 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvasoa2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvasoa2 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvasoa2 , idomain ) = P_ddmass_cvasoa2 ELSE P_ddmass_cvasoa2 = dvel_index_table( PARAM_ddmass_cvasoa2 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvasoa2 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvasoa2 ) = 'ddmass_cvasoa2' dvel_desc_table( idomain, P_ddmass_cvasoa2 ) = 'CVASOA2 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvasoa2 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvasoa2 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cvasoa2 )%stream(2) = 2097152 ! 00200000 F_ddmass_cvasoa2 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvasoa3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvasoa3 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvasoa3 , idomain ) = P_ddmass_cvasoa3 ELSE P_ddmass_cvasoa3 = dvel_index_table( PARAM_ddmass_cvasoa3 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvasoa3 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvasoa3 ) = 'ddmass_cvasoa3' dvel_desc_table( idomain, P_ddmass_cvasoa3 ) = 'CVASOA3 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvasoa3 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvasoa3 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cvasoa3 )%stream(2) = 2097152 ! 00200000 F_ddmass_cvasoa3 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvasoa4 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvasoa4 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvasoa4 , idomain ) = P_ddmass_cvasoa4 ELSE P_ddmass_cvasoa4 = dvel_index_table( PARAM_ddmass_cvasoa4 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvasoa4 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvasoa4 ) = 'ddmass_cvasoa4' dvel_desc_table( idomain, P_ddmass_cvasoa4 ) = 'CVASOA4 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvasoa4 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvasoa4 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cvasoa4 )%stream(2) = 2097152 ! 00200000 F_ddmass_cvasoa4 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvbsoax , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvbsoax = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvbsoax , idomain ) = P_ddmass_cvbsoax ELSE P_ddmass_cvbsoax = dvel_index_table( PARAM_ddmass_cvbsoax , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvbsoax ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvbsoax ) = 'ddmass_cvbsoaX' dvel_desc_table( idomain, P_ddmass_cvbsoax ) = 'CVBSOAX dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvbsoax ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvbsoax )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cvbsoax )%stream(2) = 2097152 ! 00200000 F_ddmass_cvbsoax = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvbsoa1 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvbsoa1 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvbsoa1 , idomain ) = P_ddmass_cvbsoa1 ELSE P_ddmass_cvbsoa1 = dvel_index_table( PARAM_ddmass_cvbsoa1 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvbsoa1 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvbsoa1 ) = 'ddmass_cvbsoa1' dvel_desc_table( idomain, P_ddmass_cvbsoa1 ) = 'CVBSOA1 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvbsoa1 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvbsoa1 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cvbsoa1 )%stream(2) = 2097152 ! 00200000 F_ddmass_cvbsoa1 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvbsoa2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvbsoa2 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvbsoa2 , idomain ) = P_ddmass_cvbsoa2 ELSE P_ddmass_cvbsoa2 = dvel_index_table( PARAM_ddmass_cvbsoa2 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvbsoa2 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvbsoa2 ) = 'ddmass_cvbsoa2' dvel_desc_table( idomain, P_ddmass_cvbsoa2 ) = 'CVBSOA2 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvbsoa2 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvbsoa2 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cvbsoa2 )%stream(2) = 2097152 ! 00200000 F_ddmass_cvbsoa2 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvbsoa3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvbsoa3 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvbsoa3 , idomain ) = P_ddmass_cvbsoa3 ELSE P_ddmass_cvbsoa3 = dvel_index_table( PARAM_ddmass_cvbsoa3 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvbsoa3 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvbsoa3 ) = 'ddmass_cvbsoa3' dvel_desc_table( idomain, P_ddmass_cvbsoa3 ) = 'CVBSOA3 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvbsoa3 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvbsoa3 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cvbsoa3 )%stream(2) = 2097152 ! 00200000 F_ddmass_cvbsoa3 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvbsoa4 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvbsoa4 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvbsoa4 , idomain ) = P_ddmass_cvbsoa4 ELSE P_ddmass_cvbsoa4 = dvel_index_table( PARAM_ddmass_cvbsoa4 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvbsoa4 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvbsoa4 ) = 'ddmass_cvbsoa4' dvel_desc_table( idomain, P_ddmass_cvbsoa4 ) = 'CVBSOA4 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvbsoa4 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvbsoa4 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cvbsoa4 )%stream(2) = 2097152 ! 00200000 F_ddmass_cvbsoa4 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4_a01 , idomain ) = P_ddmass_so4_a01 ELSE P_ddmass_so4_a01 = dvel_index_table( PARAM_ddmass_so4_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4_a01 ) = 'ddmass_so4_a01' dvel_desc_table( idomain, P_ddmass_so4_a01 ) = 'so4_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_so4_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_so4_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_so4_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no3_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no3_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no3_a01 , idomain ) = P_ddmass_no3_a01 ELSE P_ddmass_no3_a01 = dvel_index_table( PARAM_ddmass_no3_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no3_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no3_a01 ) = 'ddmass_no3_a01' dvel_desc_table( idomain, P_ddmass_no3_a01 ) = 'no3_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no3_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_no3_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_no3_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_no3_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cl_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cl_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cl_a01 , idomain ) = P_ddmass_cl_a01 ELSE P_ddmass_cl_a01 = dvel_index_table( PARAM_ddmass_cl_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cl_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cl_a01 ) = 'ddmass_cl_a01' dvel_desc_table( idomain, P_ddmass_cl_a01 ) = 'cl_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cl_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_cl_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cl_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_cl_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh4_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh4_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh4_a01 , idomain ) = P_ddmass_nh4_a01 ELSE P_ddmass_nh4_a01 = dvel_index_table( PARAM_ddmass_nh4_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh4_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh4_a01 ) = 'ddmass_nh4_a01' dvel_desc_table( idomain, P_ddmass_nh4_a01 ) = 'nh4_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh4_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_nh4_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_nh4_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_nh4_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_na_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_na_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_na_a01 , idomain ) = P_ddmass_na_a01 ELSE P_ddmass_na_a01 = dvel_index_table( PARAM_ddmass_na_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_na_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_na_a01 ) = 'ddmass_na_a01' dvel_desc_table( idomain, P_ddmass_na_a01 ) = 'na_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_na_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_na_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_na_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_na_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oin_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oin_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oin_a01 , idomain ) = P_ddmass_oin_a01 ELSE P_ddmass_oin_a01 = dvel_index_table( PARAM_ddmass_oin_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oin_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oin_a01 ) = 'ddmass_oin_a01' dvel_desc_table( idomain, P_ddmass_oin_a01 ) = 'oin_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oin_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oin_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_oin_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_oin_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oc_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oc_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oc_a01 , idomain ) = P_ddmass_oc_a01 ELSE P_ddmass_oc_a01 = dvel_index_table( PARAM_ddmass_oc_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oc_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oc_a01 ) = 'ddmass_oc_a01' dvel_desc_table( idomain, P_ddmass_oc_a01 ) = 'oc_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oc_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oc_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_oc_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_oc_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bc_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bc_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bc_a01 , idomain ) = P_ddmass_bc_a01 ELSE P_ddmass_bc_a01 = dvel_index_table( PARAM_ddmass_bc_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bc_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bc_a01 ) = 'ddmass_bc_a01' dvel_desc_table( idomain, P_ddmass_bc_a01 ) = 'bc_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bc_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bc_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bc_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_bc_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpa_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpa_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpa_a01 , idomain ) = P_ddmass_smpa_a01 ELSE P_ddmass_smpa_a01 = dvel_index_table( PARAM_ddmass_smpa_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpa_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpa_a01 ) = 'ddmass_smpa_a01' dvel_desc_table( idomain, P_ddmass_smpa_a01 ) = 'smpa_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpa_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpa_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_smpa_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_smpa_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpbb_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpbb_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpbb_a01 , idomain ) = P_ddmass_smpbb_a01 ELSE P_ddmass_smpbb_a01 = dvel_index_table( PARAM_ddmass_smpbb_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpbb_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpbb_a01 ) = 'ddmass_smpbb_a01' dvel_desc_table( idomain, P_ddmass_smpbb_a01 ) = 'smpbb_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpbb_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpbb_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_smpbb_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_smpbb_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glysoa_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glysoa_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glysoa_a01 , idomain ) = P_ddmass_glysoa_a01 ELSE P_ddmass_glysoa_a01 = dvel_index_table( PARAM_ddmass_glysoa_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glysoa_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glysoa_a01 ) = 'ddmass_glysoa_a01' dvel_desc_table( idomain, P_ddmass_glysoa_a01 ) = 'glysoa_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_glysoa_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_glysoa_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_glysoa_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_glysoa_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_c_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_c_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_c_a01 , idomain ) = P_ddmass_biog1_c_a01 ELSE P_ddmass_biog1_c_a01 = dvel_index_table( PARAM_ddmass_biog1_c_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_c_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_c_a01 ) = 'ddmass_biog1_c_a01' dvel_desc_table( idomain, P_ddmass_biog1_c_a01 ) = 'biog1_c_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_c_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_c_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_biog1_c_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_biog1_c_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_o_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_o_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_o_a01 , idomain ) = P_ddmass_biog1_o_a01 ELSE P_ddmass_biog1_o_a01 = dvel_index_table( PARAM_ddmass_biog1_o_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_o_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_o_a01 ) = 'ddmass_biog1_o_a01' dvel_desc_table( idomain, P_ddmass_biog1_o_a01 ) = 'biog1_o_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_o_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_o_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_biog1_o_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_biog1_o_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoax_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoax_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoax_a01 , idomain ) = P_ddmass_asoax_a01 ELSE P_ddmass_asoax_a01 = dvel_index_table( PARAM_ddmass_asoax_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoax_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoax_a01 ) = 'ddmass_asoaX_a01' dvel_desc_table( idomain, P_ddmass_asoax_a01 ) = 'asoaX_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoax_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoax_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoax_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoax_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa1_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa1_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa1_a01 , idomain ) = P_ddmass_asoa1_a01 ELSE P_ddmass_asoa1_a01 = dvel_index_table( PARAM_ddmass_asoa1_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa1_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa1_a01 ) = 'ddmass_asoa1_a01' dvel_desc_table( idomain, P_ddmass_asoa1_a01 ) = 'asoa1_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa1_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa1_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa1_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa1_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa2_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa2_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa2_a01 , idomain ) = P_ddmass_asoa2_a01 ELSE P_ddmass_asoa2_a01 = dvel_index_table( PARAM_ddmass_asoa2_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa2_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa2_a01 ) = 'ddmass_asoa2_a01' dvel_desc_table( idomain, P_ddmass_asoa2_a01 ) = 'asoa2_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa2_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa2_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa2_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa2_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa3_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa3_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa3_a01 , idomain ) = P_ddmass_asoa3_a01 ELSE P_ddmass_asoa3_a01 = dvel_index_table( PARAM_ddmass_asoa3_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa3_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa3_a01 ) = 'ddmass_asoa3_a01' dvel_desc_table( idomain, P_ddmass_asoa3_a01 ) = 'asoa3_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa3_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa3_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa3_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa3_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa4_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa4_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa4_a01 , idomain ) = P_ddmass_asoa4_a01 ELSE P_ddmass_asoa4_a01 = dvel_index_table( PARAM_ddmass_asoa4_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa4_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa4_a01 ) = 'ddmass_asoa4_a01' dvel_desc_table( idomain, P_ddmass_asoa4_a01 ) = 'asoa4_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa4_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa4_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa4_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa4_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoax_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoax_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoax_a01 , idomain ) = P_ddmass_bsoax_a01 ELSE P_ddmass_bsoax_a01 = dvel_index_table( PARAM_ddmass_bsoax_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoax_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoax_a01 ) = 'ddmass_bsoaX_a01' dvel_desc_table( idomain, P_ddmass_bsoax_a01 ) = 'bsoaX_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoax_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoax_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoax_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoax_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa1_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa1_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa1_a01 , idomain ) = P_ddmass_bsoa1_a01 ELSE P_ddmass_bsoa1_a01 = dvel_index_table( PARAM_ddmass_bsoa1_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa1_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa1_a01 ) = 'ddmass_bsoa1_a01' dvel_desc_table( idomain, P_ddmass_bsoa1_a01 ) = 'bsoa1_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa1_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa1_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa1_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa1_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa2_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa2_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa2_a01 , idomain ) = P_ddmass_bsoa2_a01 ELSE P_ddmass_bsoa2_a01 = dvel_index_table( PARAM_ddmass_bsoa2_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa2_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa2_a01 ) = 'ddmass_bsoa2_a01' dvel_desc_table( idomain, P_ddmass_bsoa2_a01 ) = 'bsoa2_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa2_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa2_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa2_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa2_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa3_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa3_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa3_a01 , idomain ) = P_ddmass_bsoa3_a01 ELSE P_ddmass_bsoa3_a01 = dvel_index_table( PARAM_ddmass_bsoa3_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa3_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa3_a01 ) = 'ddmass_bsoa3_a01' dvel_desc_table( idomain, P_ddmass_bsoa3_a01 ) = 'bsoa3_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa3_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa3_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa3_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa3_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa4_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa4_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa4_a01 , idomain ) = P_ddmass_bsoa4_a01 ELSE P_ddmass_bsoa4_a01 = dvel_index_table( PARAM_ddmass_bsoa4_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa4_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa4_a01 ) = 'ddmass_bsoa4_a01' dvel_desc_table( idomain, P_ddmass_bsoa4_a01 ) = 'bsoa4_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa4_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa4_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa4_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa4_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4_a02 , idomain ) = P_ddmass_so4_a02 ELSE P_ddmass_so4_a02 = dvel_index_table( PARAM_ddmass_so4_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4_a02 ) = 'ddmass_so4_a02' dvel_desc_table( idomain, P_ddmass_so4_a02 ) = 'so4_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_so4_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_so4_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_so4_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no3_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no3_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no3_a02 , idomain ) = P_ddmass_no3_a02 ELSE P_ddmass_no3_a02 = dvel_index_table( PARAM_ddmass_no3_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no3_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no3_a02 ) = 'ddmass_no3_a02' dvel_desc_table( idomain, P_ddmass_no3_a02 ) = 'no3_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no3_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_no3_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_no3_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_no3_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cl_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cl_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cl_a02 , idomain ) = P_ddmass_cl_a02 ELSE P_ddmass_cl_a02 = dvel_index_table( PARAM_ddmass_cl_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cl_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cl_a02 ) = 'ddmass_cl_a02' dvel_desc_table( idomain, P_ddmass_cl_a02 ) = 'cl_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cl_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_cl_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cl_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_cl_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh4_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh4_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh4_a02 , idomain ) = P_ddmass_nh4_a02 ELSE P_ddmass_nh4_a02 = dvel_index_table( PARAM_ddmass_nh4_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh4_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh4_a02 ) = 'ddmass_nh4_a02' dvel_desc_table( idomain, P_ddmass_nh4_a02 ) = 'nh4_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh4_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_nh4_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_nh4_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_nh4_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_na_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_na_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_na_a02 , idomain ) = P_ddmass_na_a02 ELSE P_ddmass_na_a02 = dvel_index_table( PARAM_ddmass_na_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_na_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_na_a02 ) = 'ddmass_na_a02' dvel_desc_table( idomain, P_ddmass_na_a02 ) = 'na_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_na_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_na_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_na_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_na_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oin_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oin_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oin_a02 , idomain ) = P_ddmass_oin_a02 ELSE P_ddmass_oin_a02 = dvel_index_table( PARAM_ddmass_oin_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oin_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oin_a02 ) = 'ddmass_oin_a02' dvel_desc_table( idomain, P_ddmass_oin_a02 ) = 'oin_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oin_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oin_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_oin_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_oin_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oc_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oc_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oc_a02 , idomain ) = P_ddmass_oc_a02 ELSE P_ddmass_oc_a02 = dvel_index_table( PARAM_ddmass_oc_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oc_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oc_a02 ) = 'ddmass_oc_a02' dvel_desc_table( idomain, P_ddmass_oc_a02 ) = 'oc_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oc_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oc_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_oc_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_oc_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bc_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bc_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bc_a02 , idomain ) = P_ddmass_bc_a02 ELSE P_ddmass_bc_a02 = dvel_index_table( PARAM_ddmass_bc_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bc_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bc_a02 ) = 'ddmass_bc_a02' dvel_desc_table( idomain, P_ddmass_bc_a02 ) = 'bc_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bc_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bc_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bc_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_bc_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpa_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpa_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpa_a02 , idomain ) = P_ddmass_smpa_a02 ELSE P_ddmass_smpa_a02 = dvel_index_table( PARAM_ddmass_smpa_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpa_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpa_a02 ) = 'ddmass_smpa_a02' dvel_desc_table( idomain, P_ddmass_smpa_a02 ) = 'smpa_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpa_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpa_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_smpa_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_smpa_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpbb_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpbb_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpbb_a02 , idomain ) = P_ddmass_smpbb_a02 ELSE P_ddmass_smpbb_a02 = dvel_index_table( PARAM_ddmass_smpbb_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpbb_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpbb_a02 ) = 'ddmass_smpbb_a02' dvel_desc_table( idomain, P_ddmass_smpbb_a02 ) = 'smpbb_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpbb_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpbb_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_smpbb_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_smpbb_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glysoa_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glysoa_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glysoa_a02 , idomain ) = P_ddmass_glysoa_a02 ELSE P_ddmass_glysoa_a02 = dvel_index_table( PARAM_ddmass_glysoa_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glysoa_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glysoa_a02 ) = 'ddmass_glysoa_a02' dvel_desc_table( idomain, P_ddmass_glysoa_a02 ) = 'glysoa_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_glysoa_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_glysoa_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_glysoa_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_glysoa_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_c_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_c_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_c_a02 , idomain ) = P_ddmass_biog1_c_a02 ELSE P_ddmass_biog1_c_a02 = dvel_index_table( PARAM_ddmass_biog1_c_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_c_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_c_a02 ) = 'ddmass_biog1_c_a02' dvel_desc_table( idomain, P_ddmass_biog1_c_a02 ) = 'biog1_c_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_c_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_c_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_biog1_c_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_biog1_c_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_o_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_o_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_o_a02 , idomain ) = P_ddmass_biog1_o_a02 ELSE P_ddmass_biog1_o_a02 = dvel_index_table( PARAM_ddmass_biog1_o_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_o_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_o_a02 ) = 'ddmass_biog1_o_a02' dvel_desc_table( idomain, P_ddmass_biog1_o_a02 ) = 'biog1_o_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_o_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_o_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_biog1_o_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_biog1_o_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoax_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoax_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoax_a02 , idomain ) = P_ddmass_asoax_a02 ELSE P_ddmass_asoax_a02 = dvel_index_table( PARAM_ddmass_asoax_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoax_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoax_a02 ) = 'ddmass_asoaX_a02' dvel_desc_table( idomain, P_ddmass_asoax_a02 ) = 'asoaX_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoax_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoax_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoax_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoax_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa1_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa1_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa1_a02 , idomain ) = P_ddmass_asoa1_a02 ELSE P_ddmass_asoa1_a02 = dvel_index_table( PARAM_ddmass_asoa1_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa1_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa1_a02 ) = 'ddmass_asoa1_a02' dvel_desc_table( idomain, P_ddmass_asoa1_a02 ) = 'asoa1_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa1_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa1_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa1_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa1_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa2_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa2_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa2_a02 , idomain ) = P_ddmass_asoa2_a02 ELSE P_ddmass_asoa2_a02 = dvel_index_table( PARAM_ddmass_asoa2_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa2_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa2_a02 ) = 'ddmass_asoa2_a02' dvel_desc_table( idomain, P_ddmass_asoa2_a02 ) = 'asoa2_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa2_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa2_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa2_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa2_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa3_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa3_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa3_a02 , idomain ) = P_ddmass_asoa3_a02 ELSE P_ddmass_asoa3_a02 = dvel_index_table( PARAM_ddmass_asoa3_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa3_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa3_a02 ) = 'ddmass_asoa3_a02' dvel_desc_table( idomain, P_ddmass_asoa3_a02 ) = 'asoa3_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa3_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa3_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa3_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa3_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa4_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa4_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa4_a02 , idomain ) = P_ddmass_asoa4_a02 ELSE P_ddmass_asoa4_a02 = dvel_index_table( PARAM_ddmass_asoa4_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa4_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa4_a02 ) = 'ddmass_asoa4_a02' dvel_desc_table( idomain, P_ddmass_asoa4_a02 ) = 'asoa4_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa4_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa4_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa4_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa4_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoax_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoax_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoax_a02 , idomain ) = P_ddmass_bsoax_a02 ELSE P_ddmass_bsoax_a02 = dvel_index_table( PARAM_ddmass_bsoax_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoax_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoax_a02 ) = 'ddmass_bsoaX_a02' dvel_desc_table( idomain, P_ddmass_bsoax_a02 ) = 'bsoaX_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoax_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoax_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoax_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoax_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa1_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa1_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa1_a02 , idomain ) = P_ddmass_bsoa1_a02 ELSE P_ddmass_bsoa1_a02 = dvel_index_table( PARAM_ddmass_bsoa1_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa1_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa1_a02 ) = 'ddmass_bsoa1_a02' dvel_desc_table( idomain, P_ddmass_bsoa1_a02 ) = 'bsoa1_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa1_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa1_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa1_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa1_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa2_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa2_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa2_a02 , idomain ) = P_ddmass_bsoa2_a02 ELSE P_ddmass_bsoa2_a02 = dvel_index_table( PARAM_ddmass_bsoa2_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa2_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa2_a02 ) = 'ddmass_bsoa2_a02' dvel_desc_table( idomain, P_ddmass_bsoa2_a02 ) = 'bsoa2_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa2_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa2_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa2_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa2_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa3_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa3_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa3_a02 , idomain ) = P_ddmass_bsoa3_a02 ELSE P_ddmass_bsoa3_a02 = dvel_index_table( PARAM_ddmass_bsoa3_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa3_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa3_a02 ) = 'ddmass_bsoa3_a02' dvel_desc_table( idomain, P_ddmass_bsoa3_a02 ) = 'bsoa3_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa3_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa3_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa3_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa3_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa4_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa4_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa4_a02 , idomain ) = P_ddmass_bsoa4_a02 ELSE P_ddmass_bsoa4_a02 = dvel_index_table( PARAM_ddmass_bsoa4_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa4_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa4_a02 ) = 'ddmass_bsoa4_a02' dvel_desc_table( idomain, P_ddmass_bsoa4_a02 ) = 'bsoa4_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa4_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa4_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa4_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa4_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4_a03 , idomain ) = P_ddmass_so4_a03 ELSE P_ddmass_so4_a03 = dvel_index_table( PARAM_ddmass_so4_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4_a03 ) = 'ddmass_so4_a03' dvel_desc_table( idomain, P_ddmass_so4_a03 ) = 'so4_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_so4_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_so4_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_so4_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no3_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no3_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no3_a03 , idomain ) = P_ddmass_no3_a03 ELSE P_ddmass_no3_a03 = dvel_index_table( PARAM_ddmass_no3_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no3_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no3_a03 ) = 'ddmass_no3_a03' dvel_desc_table( idomain, P_ddmass_no3_a03 ) = 'no3_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no3_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_no3_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_no3_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_no3_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cl_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cl_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cl_a03 , idomain ) = P_ddmass_cl_a03 ELSE P_ddmass_cl_a03 = dvel_index_table( PARAM_ddmass_cl_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cl_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cl_a03 ) = 'ddmass_cl_a03' dvel_desc_table( idomain, P_ddmass_cl_a03 ) = 'cl_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cl_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_cl_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cl_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_cl_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh4_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh4_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh4_a03 , idomain ) = P_ddmass_nh4_a03 ELSE P_ddmass_nh4_a03 = dvel_index_table( PARAM_ddmass_nh4_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh4_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh4_a03 ) = 'ddmass_nh4_a03' dvel_desc_table( idomain, P_ddmass_nh4_a03 ) = 'nh4_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh4_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_nh4_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_nh4_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_nh4_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_na_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_na_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_na_a03 , idomain ) = P_ddmass_na_a03 ELSE P_ddmass_na_a03 = dvel_index_table( PARAM_ddmass_na_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_na_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_na_a03 ) = 'ddmass_na_a03' dvel_desc_table( idomain, P_ddmass_na_a03 ) = 'na_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_na_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_na_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_na_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_na_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oin_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oin_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oin_a03 , idomain ) = P_ddmass_oin_a03 ELSE P_ddmass_oin_a03 = dvel_index_table( PARAM_ddmass_oin_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oin_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oin_a03 ) = 'ddmass_oin_a03' dvel_desc_table( idomain, P_ddmass_oin_a03 ) = 'oin_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oin_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oin_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_oin_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_oin_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oc_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oc_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oc_a03 , idomain ) = P_ddmass_oc_a03 ELSE P_ddmass_oc_a03 = dvel_index_table( PARAM_ddmass_oc_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oc_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oc_a03 ) = 'ddmass_oc_a03' dvel_desc_table( idomain, P_ddmass_oc_a03 ) = 'oc_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oc_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oc_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_oc_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_oc_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bc_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bc_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bc_a03 , idomain ) = P_ddmass_bc_a03 ELSE P_ddmass_bc_a03 = dvel_index_table( PARAM_ddmass_bc_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bc_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bc_a03 ) = 'ddmass_bc_a03' dvel_desc_table( idomain, P_ddmass_bc_a03 ) = 'bc_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bc_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bc_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bc_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_bc_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpa_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpa_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpa_a03 , idomain ) = P_ddmass_smpa_a03 ELSE P_ddmass_smpa_a03 = dvel_index_table( PARAM_ddmass_smpa_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpa_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpa_a03 ) = 'ddmass_smpa_a03' dvel_desc_table( idomain, P_ddmass_smpa_a03 ) = 'smpa_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpa_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpa_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_smpa_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_smpa_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpbb_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpbb_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpbb_a03 , idomain ) = P_ddmass_smpbb_a03 ELSE P_ddmass_smpbb_a03 = dvel_index_table( PARAM_ddmass_smpbb_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpbb_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpbb_a03 ) = 'ddmass_smpbb_a03' dvel_desc_table( idomain, P_ddmass_smpbb_a03 ) = 'smpbb_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpbb_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpbb_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_smpbb_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_smpbb_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glysoa_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glysoa_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glysoa_a03 , idomain ) = P_ddmass_glysoa_a03 ELSE P_ddmass_glysoa_a03 = dvel_index_table( PARAM_ddmass_glysoa_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glysoa_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glysoa_a03 ) = 'ddmass_glysoa_a03' dvel_desc_table( idomain, P_ddmass_glysoa_a03 ) = 'glysoa_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_glysoa_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_glysoa_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_glysoa_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_glysoa_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_c_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_c_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_c_a03 , idomain ) = P_ddmass_biog1_c_a03 ELSE P_ddmass_biog1_c_a03 = dvel_index_table( PARAM_ddmass_biog1_c_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_c_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_c_a03 ) = 'ddmass_biog1_c_a03' dvel_desc_table( idomain, P_ddmass_biog1_c_a03 ) = 'biog1_c_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_c_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_c_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_biog1_c_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_biog1_c_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_o_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_o_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_o_a03 , idomain ) = P_ddmass_biog1_o_a03 ELSE P_ddmass_biog1_o_a03 = dvel_index_table( PARAM_ddmass_biog1_o_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_o_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_o_a03 ) = 'ddmass_biog1_o_a03' dvel_desc_table( idomain, P_ddmass_biog1_o_a03 ) = 'biog1_o_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_o_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_o_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_biog1_o_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_biog1_o_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoax_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoax_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoax_a03 , idomain ) = P_ddmass_asoax_a03 ELSE P_ddmass_asoax_a03 = dvel_index_table( PARAM_ddmass_asoax_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoax_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoax_a03 ) = 'ddmass_asoaX_a03' dvel_desc_table( idomain, P_ddmass_asoax_a03 ) = 'asoaX_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoax_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoax_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoax_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoax_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa1_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa1_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa1_a03 , idomain ) = P_ddmass_asoa1_a03 ELSE P_ddmass_asoa1_a03 = dvel_index_table( PARAM_ddmass_asoa1_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa1_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa1_a03 ) = 'ddmass_asoa1_a03' dvel_desc_table( idomain, P_ddmass_asoa1_a03 ) = 'asoa1_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa1_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa1_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa1_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa1_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa2_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa2_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa2_a03 , idomain ) = P_ddmass_asoa2_a03 ELSE P_ddmass_asoa2_a03 = dvel_index_table( PARAM_ddmass_asoa2_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa2_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa2_a03 ) = 'ddmass_asoa2_a03' dvel_desc_table( idomain, P_ddmass_asoa2_a03 ) = 'asoa2_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa2_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa2_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa2_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa2_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa3_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa3_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa3_a03 , idomain ) = P_ddmass_asoa3_a03 ELSE P_ddmass_asoa3_a03 = dvel_index_table( PARAM_ddmass_asoa3_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa3_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa3_a03 ) = 'ddmass_asoa3_a03' dvel_desc_table( idomain, P_ddmass_asoa3_a03 ) = 'asoa3_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa3_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa3_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa3_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa3_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa4_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa4_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa4_a03 , idomain ) = P_ddmass_asoa4_a03 ELSE P_ddmass_asoa4_a03 = dvel_index_table( PARAM_ddmass_asoa4_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa4_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa4_a03 ) = 'ddmass_asoa4_a03' dvel_desc_table( idomain, P_ddmass_asoa4_a03 ) = 'asoa4_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa4_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa4_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa4_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa4_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoax_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoax_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoax_a03 , idomain ) = P_ddmass_bsoax_a03 ELSE P_ddmass_bsoax_a03 = dvel_index_table( PARAM_ddmass_bsoax_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoax_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoax_a03 ) = 'ddmass_bsoaX_a03' dvel_desc_table( idomain, P_ddmass_bsoax_a03 ) = 'bsoaX_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoax_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoax_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoax_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoax_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa1_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa1_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa1_a03 , idomain ) = P_ddmass_bsoa1_a03 ELSE P_ddmass_bsoa1_a03 = dvel_index_table( PARAM_ddmass_bsoa1_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa1_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa1_a03 ) = 'ddmass_bsoa1_a03' dvel_desc_table( idomain, P_ddmass_bsoa1_a03 ) = 'bsoa1_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa1_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa1_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa1_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa1_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa2_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa2_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa2_a03 , idomain ) = P_ddmass_bsoa2_a03 ELSE P_ddmass_bsoa2_a03 = dvel_index_table( PARAM_ddmass_bsoa2_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa2_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa2_a03 ) = 'ddmass_bsoa2_a03' dvel_desc_table( idomain, P_ddmass_bsoa2_a03 ) = 'bsoa2_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa2_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa2_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa2_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa2_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa3_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa3_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa3_a03 , idomain ) = P_ddmass_bsoa3_a03 ELSE P_ddmass_bsoa3_a03 = dvel_index_table( PARAM_ddmass_bsoa3_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa3_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa3_a03 ) = 'ddmass_bsoa3_a03' dvel_desc_table( idomain, P_ddmass_bsoa3_a03 ) = 'bsoa3_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa3_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa3_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa3_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa3_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa4_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa4_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa4_a03 , idomain ) = P_ddmass_bsoa4_a03 ELSE P_ddmass_bsoa4_a03 = dvel_index_table( PARAM_ddmass_bsoa4_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa4_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa4_a03 ) = 'ddmass_bsoa4_a03' dvel_desc_table( idomain, P_ddmass_bsoa4_a03 ) = 'bsoa4_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa4_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa4_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa4_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa4_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4_a04 , idomain ) = P_ddmass_so4_a04 ELSE P_ddmass_so4_a04 = dvel_index_table( PARAM_ddmass_so4_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4_a04 ) = 'ddmass_so4_a04' dvel_desc_table( idomain, P_ddmass_so4_a04 ) = 'so4_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_so4_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_so4_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_so4_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no3_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no3_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no3_a04 , idomain ) = P_ddmass_no3_a04 ELSE P_ddmass_no3_a04 = dvel_index_table( PARAM_ddmass_no3_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no3_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no3_a04 ) = 'ddmass_no3_a04' dvel_desc_table( idomain, P_ddmass_no3_a04 ) = 'no3_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no3_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_no3_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_no3_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_no3_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cl_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cl_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cl_a04 , idomain ) = P_ddmass_cl_a04 ELSE P_ddmass_cl_a04 = dvel_index_table( PARAM_ddmass_cl_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cl_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cl_a04 ) = 'ddmass_cl_a04' dvel_desc_table( idomain, P_ddmass_cl_a04 ) = 'cl_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cl_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_cl_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cl_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_cl_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh4_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh4_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh4_a04 , idomain ) = P_ddmass_nh4_a04 ELSE P_ddmass_nh4_a04 = dvel_index_table( PARAM_ddmass_nh4_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh4_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh4_a04 ) = 'ddmass_nh4_a04' dvel_desc_table( idomain, P_ddmass_nh4_a04 ) = 'nh4_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh4_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_nh4_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_nh4_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_nh4_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_na_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_na_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_na_a04 , idomain ) = P_ddmass_na_a04 ELSE P_ddmass_na_a04 = dvel_index_table( PARAM_ddmass_na_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_na_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_na_a04 ) = 'ddmass_na_a04' dvel_desc_table( idomain, P_ddmass_na_a04 ) = 'na_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_na_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_na_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_na_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_na_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oin_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oin_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oin_a04 , idomain ) = P_ddmass_oin_a04 ELSE P_ddmass_oin_a04 = dvel_index_table( PARAM_ddmass_oin_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oin_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oin_a04 ) = 'ddmass_oin_a04' dvel_desc_table( idomain, P_ddmass_oin_a04 ) = 'oin_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oin_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oin_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_oin_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_oin_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oc_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oc_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oc_a04 , idomain ) = P_ddmass_oc_a04 ELSE P_ddmass_oc_a04 = dvel_index_table( PARAM_ddmass_oc_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oc_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oc_a04 ) = 'ddmass_oc_a04' dvel_desc_table( idomain, P_ddmass_oc_a04 ) = 'oc_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oc_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oc_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_oc_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_oc_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bc_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bc_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bc_a04 , idomain ) = P_ddmass_bc_a04 ELSE P_ddmass_bc_a04 = dvel_index_table( PARAM_ddmass_bc_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bc_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bc_a04 ) = 'ddmass_bc_a04' dvel_desc_table( idomain, P_ddmass_bc_a04 ) = 'bc_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bc_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bc_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bc_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_bc_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpa_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpa_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpa_a04 , idomain ) = P_ddmass_smpa_a04 ELSE P_ddmass_smpa_a04 = dvel_index_table( PARAM_ddmass_smpa_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpa_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpa_a04 ) = 'ddmass_smpa_a04' dvel_desc_table( idomain, P_ddmass_smpa_a04 ) = 'smpa_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpa_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpa_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_smpa_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_smpa_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpbb_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpbb_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpbb_a04 , idomain ) = P_ddmass_smpbb_a04 ELSE P_ddmass_smpbb_a04 = dvel_index_table( PARAM_ddmass_smpbb_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpbb_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpbb_a04 ) = 'ddmass_smpbb_a04' dvel_desc_table( idomain, P_ddmass_smpbb_a04 ) = 'smpbb_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpbb_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpbb_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_smpbb_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_smpbb_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glysoa_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glysoa_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glysoa_a04 , idomain ) = P_ddmass_glysoa_a04 ELSE P_ddmass_glysoa_a04 = dvel_index_table( PARAM_ddmass_glysoa_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glysoa_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glysoa_a04 ) = 'ddmass_glysoa_a04' dvel_desc_table( idomain, P_ddmass_glysoa_a04 ) = 'glysoa_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_glysoa_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_glysoa_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_glysoa_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_glysoa_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_c_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_c_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_c_a04 , idomain ) = P_ddmass_biog1_c_a04 ELSE P_ddmass_biog1_c_a04 = dvel_index_table( PARAM_ddmass_biog1_c_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_c_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_c_a04 ) = 'ddmass_biog1_c_a04' dvel_desc_table( idomain, P_ddmass_biog1_c_a04 ) = 'biog1_c_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_c_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_c_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_biog1_c_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_biog1_c_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_o_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_o_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_o_a04 , idomain ) = P_ddmass_biog1_o_a04 ELSE P_ddmass_biog1_o_a04 = dvel_index_table( PARAM_ddmass_biog1_o_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_o_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_o_a04 ) = 'ddmass_biog1_o_a04' dvel_desc_table( idomain, P_ddmass_biog1_o_a04 ) = 'biog1_o_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_o_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_o_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_biog1_o_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_biog1_o_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoax_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoax_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoax_a04 , idomain ) = P_ddmass_asoax_a04 ELSE P_ddmass_asoax_a04 = dvel_index_table( PARAM_ddmass_asoax_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoax_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoax_a04 ) = 'ddmass_asoaX_a04' dvel_desc_table( idomain, P_ddmass_asoax_a04 ) = 'asoaX_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoax_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoax_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoax_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoax_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa1_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa1_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa1_a04 , idomain ) = P_ddmass_asoa1_a04 ELSE P_ddmass_asoa1_a04 = dvel_index_table( PARAM_ddmass_asoa1_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa1_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa1_a04 ) = 'ddmass_asoa1_a04' dvel_desc_table( idomain, P_ddmass_asoa1_a04 ) = 'asoa1_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa1_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa1_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa1_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa1_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa2_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa2_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa2_a04 , idomain ) = P_ddmass_asoa2_a04 ELSE P_ddmass_asoa2_a04 = dvel_index_table( PARAM_ddmass_asoa2_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa2_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa2_a04 ) = 'ddmass_asoa2_a04' dvel_desc_table( idomain, P_ddmass_asoa2_a04 ) = 'asoa2_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa2_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa2_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa2_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa2_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa3_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa3_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa3_a04 , idomain ) = P_ddmass_asoa3_a04 ELSE P_ddmass_asoa3_a04 = dvel_index_table( PARAM_ddmass_asoa3_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa3_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa3_a04 ) = 'ddmass_asoa3_a04' dvel_desc_table( idomain, P_ddmass_asoa3_a04 ) = 'asoa3_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa3_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa3_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa3_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa3_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa4_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa4_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa4_a04 , idomain ) = P_ddmass_asoa4_a04 ELSE P_ddmass_asoa4_a04 = dvel_index_table( PARAM_ddmass_asoa4_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa4_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa4_a04 ) = 'ddmass_asoa4_a04' dvel_desc_table( idomain, P_ddmass_asoa4_a04 ) = 'asoa4_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa4_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa4_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa4_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa4_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoax_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoax_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoax_a04 , idomain ) = P_ddmass_bsoax_a04 ELSE P_ddmass_bsoax_a04 = dvel_index_table( PARAM_ddmass_bsoax_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoax_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoax_a04 ) = 'ddmass_bsoaX_a04' dvel_desc_table( idomain, P_ddmass_bsoax_a04 ) = 'bsoaX_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoax_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoax_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoax_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoax_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa1_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa1_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa1_a04 , idomain ) = P_ddmass_bsoa1_a04 ELSE P_ddmass_bsoa1_a04 = dvel_index_table( PARAM_ddmass_bsoa1_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa1_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa1_a04 ) = 'ddmass_bsoa1_a04' dvel_desc_table( idomain, P_ddmass_bsoa1_a04 ) = 'bsoa1_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa1_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa1_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa1_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa1_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa2_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa2_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa2_a04 , idomain ) = P_ddmass_bsoa2_a04 ELSE P_ddmass_bsoa2_a04 = dvel_index_table( PARAM_ddmass_bsoa2_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa2_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa2_a04 ) = 'ddmass_bsoa2_a04' dvel_desc_table( idomain, P_ddmass_bsoa2_a04 ) = 'bsoa2_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa2_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa2_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa2_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa2_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa3_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa3_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa3_a04 , idomain ) = P_ddmass_bsoa3_a04 ELSE P_ddmass_bsoa3_a04 = dvel_index_table( PARAM_ddmass_bsoa3_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa3_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa3_a04 ) = 'ddmass_bsoa3_a04' dvel_desc_table( idomain, P_ddmass_bsoa3_a04 ) = 'bsoa3_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa3_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa3_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa3_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa3_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa4_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa4_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa4_a04 , idomain ) = P_ddmass_bsoa4_a04 ELSE P_ddmass_bsoa4_a04 = dvel_index_table( PARAM_ddmass_bsoa4_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa4_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa4_a04 ) = 'ddmass_bsoa4_a04' dvel_desc_table( idomain, P_ddmass_bsoa4_a04 ) = 'bsoa4_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa4_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa4_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa4_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa4_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ca_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ca_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ca_a01 , idomain ) = P_ddmass_ca_a01 ELSE P_ddmass_ca_a01 = dvel_index_table( PARAM_ddmass_ca_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ca_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ca_a01 ) = 'ddmass_ca_a01' dvel_desc_table( idomain, P_ddmass_ca_a01 ) = 'ca_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ca_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_ca_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_ca_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_ca_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ca_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ca_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ca_a02 , idomain ) = P_ddmass_ca_a02 ELSE P_ddmass_ca_a02 = dvel_index_table( PARAM_ddmass_ca_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ca_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ca_a02 ) = 'ddmass_ca_a02' dvel_desc_table( idomain, P_ddmass_ca_a02 ) = 'ca_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ca_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_ca_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_ca_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_ca_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ca_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ca_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ca_a03 , idomain ) = P_ddmass_ca_a03 ELSE P_ddmass_ca_a03 = dvel_index_table( PARAM_ddmass_ca_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ca_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ca_a03 ) = 'ddmass_ca_a03' dvel_desc_table( idomain, P_ddmass_ca_a03 ) = 'ca_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ca_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_ca_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_ca_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_ca_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ca_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ca_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ca_a04 , idomain ) = P_ddmass_ca_a04 ELSE P_ddmass_ca_a04 = dvel_index_table( PARAM_ddmass_ca_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ca_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ca_a04 ) = 'ddmass_ca_a04' dvel_desc_table( idomain, P_ddmass_ca_a04 ) = 'ca_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ca_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_ca_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_ca_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_ca_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co3_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co3_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co3_a01 , idomain ) = P_ddmass_co3_a01 ELSE P_ddmass_co3_a01 = dvel_index_table( PARAM_ddmass_co3_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co3_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co3_a01 ) = 'ddmass_co3_a01' dvel_desc_table( idomain, P_ddmass_co3_a01 ) = 'co3_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_co3_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_co3_a01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_co3_a01 )%stream(2) = 2097152 ! 00200000 F_ddmass_co3_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co3_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co3_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co3_a02 , idomain ) = P_ddmass_co3_a02 ELSE P_ddmass_co3_a02 = dvel_index_table( PARAM_ddmass_co3_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co3_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co3_a02 ) = 'ddmass_co3_a02' dvel_desc_table( idomain, P_ddmass_co3_a02 ) = 'co3_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_co3_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_co3_a02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_co3_a02 )%stream(2) = 2097152 ! 00200000 F_ddmass_co3_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co3_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co3_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co3_a03 , idomain ) = P_ddmass_co3_a03 ELSE P_ddmass_co3_a03 = dvel_index_table( PARAM_ddmass_co3_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co3_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co3_a03 ) = 'ddmass_co3_a03' dvel_desc_table( idomain, P_ddmass_co3_a03 ) = 'co3_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_co3_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_co3_a03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_co3_a03 )%stream(2) = 2097152 ! 00200000 F_ddmass_co3_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co3_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co3_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co3_a04 , idomain ) = P_ddmass_co3_a04 ELSE P_ddmass_co3_a04 = dvel_index_table( PARAM_ddmass_co3_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co3_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co3_a04 ) = 'ddmass_co3_a04' dvel_desc_table( idomain, P_ddmass_co3_a04 ) = 'co3_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_co3_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_co3_a04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_co3_a04 )%stream(2) = 2097152 ! 00200000 F_ddmass_co3_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4_cw01 , idomain ) = P_ddmass_so4_cw01 ELSE P_ddmass_so4_cw01 = dvel_index_table( PARAM_ddmass_so4_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4_cw01 ) = 'ddmass_so4_cw01' dvel_desc_table( idomain, P_ddmass_so4_cw01 ) = 'so4_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_so4_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_so4_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_so4_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no3_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no3_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no3_cw01 , idomain ) = P_ddmass_no3_cw01 ELSE P_ddmass_no3_cw01 = dvel_index_table( PARAM_ddmass_no3_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no3_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no3_cw01 ) = 'ddmass_no3_cw01' dvel_desc_table( idomain, P_ddmass_no3_cw01 ) = 'no3_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no3_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_no3_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_no3_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_no3_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cl_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cl_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cl_cw01 , idomain ) = P_ddmass_cl_cw01 ELSE P_ddmass_cl_cw01 = dvel_index_table( PARAM_ddmass_cl_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cl_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cl_cw01 ) = 'ddmass_cl_cw01' dvel_desc_table( idomain, P_ddmass_cl_cw01 ) = 'cl_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cl_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_cl_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cl_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_cl_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh4_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh4_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh4_cw01 , idomain ) = P_ddmass_nh4_cw01 ELSE P_ddmass_nh4_cw01 = dvel_index_table( PARAM_ddmass_nh4_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh4_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh4_cw01 ) = 'ddmass_nh4_cw01' dvel_desc_table( idomain, P_ddmass_nh4_cw01 ) = 'nh4_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh4_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_nh4_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_nh4_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_nh4_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_na_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_na_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_na_cw01 , idomain ) = P_ddmass_na_cw01 ELSE P_ddmass_na_cw01 = dvel_index_table( PARAM_ddmass_na_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_na_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_na_cw01 ) = 'ddmass_na_cw01' dvel_desc_table( idomain, P_ddmass_na_cw01 ) = 'na_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_na_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_na_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_na_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_na_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oin_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oin_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oin_cw01 , idomain ) = P_ddmass_oin_cw01 ELSE P_ddmass_oin_cw01 = dvel_index_table( PARAM_ddmass_oin_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oin_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oin_cw01 ) = 'ddmass_oin_cw01' dvel_desc_table( idomain, P_ddmass_oin_cw01 ) = 'oin_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oin_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oin_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_oin_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_oin_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oc_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oc_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oc_cw01 , idomain ) = P_ddmass_oc_cw01 ELSE P_ddmass_oc_cw01 = dvel_index_table( PARAM_ddmass_oc_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oc_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oc_cw01 ) = 'ddmass_oc_cw01' dvel_desc_table( idomain, P_ddmass_oc_cw01 ) = 'oc_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oc_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oc_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_oc_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_oc_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bc_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bc_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bc_cw01 , idomain ) = P_ddmass_bc_cw01 ELSE P_ddmass_bc_cw01 = dvel_index_table( PARAM_ddmass_bc_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bc_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bc_cw01 ) = 'ddmass_bc_cw01' dvel_desc_table( idomain, P_ddmass_bc_cw01 ) = 'bc_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bc_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bc_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bc_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_bc_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpa_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpa_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpa_cw01 , idomain ) = P_ddmass_smpa_cw01 ELSE P_ddmass_smpa_cw01 = dvel_index_table( PARAM_ddmass_smpa_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpa_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpa_cw01 ) = 'ddmass_smpa_cw01' dvel_desc_table( idomain, P_ddmass_smpa_cw01 ) = 'smpa_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpa_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpa_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_smpa_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_smpa_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpbb_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpbb_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpbb_cw01 , idomain ) = P_ddmass_smpbb_cw01 ELSE P_ddmass_smpbb_cw01 = dvel_index_table( PARAM_ddmass_smpbb_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpbb_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpbb_cw01 ) = 'ddmass_smpbb_cw01' dvel_desc_table( idomain, P_ddmass_smpbb_cw01 ) = 'smpbb_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpbb_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpbb_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_smpbb_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_smpbb_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glysoa_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glysoa_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glysoa_cw01 , idomain ) = P_ddmass_glysoa_cw01 ELSE P_ddmass_glysoa_cw01 = dvel_index_table( PARAM_ddmass_glysoa_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glysoa_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glysoa_cw01 ) = 'ddmass_glysoa_cw01' dvel_desc_table( idomain, P_ddmass_glysoa_cw01 ) = 'glysoa_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_glysoa_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_glysoa_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_glysoa_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_glysoa_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_c_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_c_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_c_cw01 , idomain ) = P_ddmass_biog1_c_cw01 ELSE P_ddmass_biog1_c_cw01 = dvel_index_table( PARAM_ddmass_biog1_c_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_c_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_c_cw01 ) = 'ddmass_biog1_c_cw01' dvel_desc_table( idomain, P_ddmass_biog1_c_cw01 ) = 'biog1_c_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_c_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_c_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_biog1_c_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_biog1_c_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_o_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_o_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_o_cw01 , idomain ) = P_ddmass_biog1_o_cw01 ELSE P_ddmass_biog1_o_cw01 = dvel_index_table( PARAM_ddmass_biog1_o_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_o_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_o_cw01 ) = 'ddmass_biog1_o_cw01' dvel_desc_table( idomain, P_ddmass_biog1_o_cw01 ) = 'biog1_o_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_o_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_o_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_biog1_o_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_biog1_o_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoax_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoax_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoax_cw01 , idomain ) = P_ddmass_asoax_cw01 ELSE P_ddmass_asoax_cw01 = dvel_index_table( PARAM_ddmass_asoax_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoax_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoax_cw01 ) = 'ddmass_asoaX_cw01' dvel_desc_table( idomain, P_ddmass_asoax_cw01 ) = 'asoaX_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoax_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoax_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoax_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoax_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa1_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa1_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa1_cw01 , idomain ) = P_ddmass_asoa1_cw01 ELSE P_ddmass_asoa1_cw01 = dvel_index_table( PARAM_ddmass_asoa1_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa1_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa1_cw01 ) = 'ddmass_asoa1_cw01' dvel_desc_table( idomain, P_ddmass_asoa1_cw01 ) = 'asoa1_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa1_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa1_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa1_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa1_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa2_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa2_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa2_cw01 , idomain ) = P_ddmass_asoa2_cw01 ELSE P_ddmass_asoa2_cw01 = dvel_index_table( PARAM_ddmass_asoa2_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa2_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa2_cw01 ) = 'ddmass_asoa2_cw01' dvel_desc_table( idomain, P_ddmass_asoa2_cw01 ) = 'asoa2_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa2_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa2_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa2_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa2_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa3_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa3_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa3_cw01 , idomain ) = P_ddmass_asoa3_cw01 ELSE P_ddmass_asoa3_cw01 = dvel_index_table( PARAM_ddmass_asoa3_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa3_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa3_cw01 ) = 'ddmass_asoa3_cw01' dvel_desc_table( idomain, P_ddmass_asoa3_cw01 ) = 'asoa3_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa3_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa3_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa3_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa3_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa4_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa4_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa4_cw01 , idomain ) = P_ddmass_asoa4_cw01 ELSE P_ddmass_asoa4_cw01 = dvel_index_table( PARAM_ddmass_asoa4_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa4_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa4_cw01 ) = 'ddmass_asoa4_cw01' dvel_desc_table( idomain, P_ddmass_asoa4_cw01 ) = 'asoa4_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa4_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa4_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa4_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa4_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoax_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoax_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoax_cw01 , idomain ) = P_ddmass_bsoax_cw01 ELSE P_ddmass_bsoax_cw01 = dvel_index_table( PARAM_ddmass_bsoax_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoax_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoax_cw01 ) = 'ddmass_bsoaX_cw01' dvel_desc_table( idomain, P_ddmass_bsoax_cw01 ) = 'bsoaX_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoax_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoax_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoax_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoax_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa1_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa1_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa1_cw01 , idomain ) = P_ddmass_bsoa1_cw01 ELSE P_ddmass_bsoa1_cw01 = dvel_index_table( PARAM_ddmass_bsoa1_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa1_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa1_cw01 ) = 'ddmass_bsoa1_cw01' dvel_desc_table( idomain, P_ddmass_bsoa1_cw01 ) = 'bsoa1_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa1_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa1_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa1_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa1_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa2_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa2_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa2_cw01 , idomain ) = P_ddmass_bsoa2_cw01 ELSE P_ddmass_bsoa2_cw01 = dvel_index_table( PARAM_ddmass_bsoa2_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa2_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa2_cw01 ) = 'ddmass_bsoa2_cw01' dvel_desc_table( idomain, P_ddmass_bsoa2_cw01 ) = 'bsoa2_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa2_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa2_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa2_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa2_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa3_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa3_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa3_cw01 , idomain ) = P_ddmass_bsoa3_cw01 ELSE P_ddmass_bsoa3_cw01 = dvel_index_table( PARAM_ddmass_bsoa3_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa3_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa3_cw01 ) = 'ddmass_bsoa3_cw01' dvel_desc_table( idomain, P_ddmass_bsoa3_cw01 ) = 'bsoa3_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa3_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa3_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa3_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa3_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa4_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa4_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa4_cw01 , idomain ) = P_ddmass_bsoa4_cw01 ELSE P_ddmass_bsoa4_cw01 = dvel_index_table( PARAM_ddmass_bsoa4_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa4_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa4_cw01 ) = 'ddmass_bsoa4_cw01' dvel_desc_table( idomain, P_ddmass_bsoa4_cw01 ) = 'bsoa4_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa4_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa4_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa4_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa4_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4_cw02 , idomain ) = P_ddmass_so4_cw02 ELSE P_ddmass_so4_cw02 = dvel_index_table( PARAM_ddmass_so4_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4_cw02 ) = 'ddmass_so4_cw02' dvel_desc_table( idomain, P_ddmass_so4_cw02 ) = 'so4_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_so4_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_so4_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_so4_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no3_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no3_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no3_cw02 , idomain ) = P_ddmass_no3_cw02 ELSE P_ddmass_no3_cw02 = dvel_index_table( PARAM_ddmass_no3_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no3_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no3_cw02 ) = 'ddmass_no3_cw02' dvel_desc_table( idomain, P_ddmass_no3_cw02 ) = 'no3_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no3_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_no3_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_no3_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_no3_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cl_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cl_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cl_cw02 , idomain ) = P_ddmass_cl_cw02 ELSE P_ddmass_cl_cw02 = dvel_index_table( PARAM_ddmass_cl_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cl_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cl_cw02 ) = 'ddmass_cl_cw02' dvel_desc_table( idomain, P_ddmass_cl_cw02 ) = 'cl_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cl_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_cl_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cl_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_cl_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh4_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh4_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh4_cw02 , idomain ) = P_ddmass_nh4_cw02 ELSE P_ddmass_nh4_cw02 = dvel_index_table( PARAM_ddmass_nh4_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh4_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh4_cw02 ) = 'ddmass_nh4_cw02' dvel_desc_table( idomain, P_ddmass_nh4_cw02 ) = 'nh4_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh4_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_nh4_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_nh4_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_nh4_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_na_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_na_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_na_cw02 , idomain ) = P_ddmass_na_cw02 ELSE P_ddmass_na_cw02 = dvel_index_table( PARAM_ddmass_na_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_na_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_na_cw02 ) = 'ddmass_na_cw02' dvel_desc_table( idomain, P_ddmass_na_cw02 ) = 'na_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_na_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_na_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_na_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_na_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oin_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oin_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oin_cw02 , idomain ) = P_ddmass_oin_cw02 ELSE P_ddmass_oin_cw02 = dvel_index_table( PARAM_ddmass_oin_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oin_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oin_cw02 ) = 'ddmass_oin_cw02' dvel_desc_table( idomain, P_ddmass_oin_cw02 ) = 'oin_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oin_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oin_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_oin_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_oin_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oc_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oc_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oc_cw02 , idomain ) = P_ddmass_oc_cw02 ELSE P_ddmass_oc_cw02 = dvel_index_table( PARAM_ddmass_oc_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oc_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oc_cw02 ) = 'ddmass_oc_cw02' dvel_desc_table( idomain, P_ddmass_oc_cw02 ) = 'oc_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oc_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oc_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_oc_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_oc_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bc_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bc_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bc_cw02 , idomain ) = P_ddmass_bc_cw02 ELSE P_ddmass_bc_cw02 = dvel_index_table( PARAM_ddmass_bc_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bc_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bc_cw02 ) = 'ddmass_bc_cw02' dvel_desc_table( idomain, P_ddmass_bc_cw02 ) = 'bc_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bc_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bc_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bc_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_bc_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpa_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpa_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpa_cw02 , idomain ) = P_ddmass_smpa_cw02 ELSE P_ddmass_smpa_cw02 = dvel_index_table( PARAM_ddmass_smpa_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpa_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpa_cw02 ) = 'ddmass_smpa_cw02' dvel_desc_table( idomain, P_ddmass_smpa_cw02 ) = 'smpa_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpa_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpa_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_smpa_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_smpa_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpbb_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpbb_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpbb_cw02 , idomain ) = P_ddmass_smpbb_cw02 ELSE P_ddmass_smpbb_cw02 = dvel_index_table( PARAM_ddmass_smpbb_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpbb_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpbb_cw02 ) = 'ddmass_smpbb_cw02' dvel_desc_table( idomain, P_ddmass_smpbb_cw02 ) = 'smpbb_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpbb_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpbb_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_smpbb_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_smpbb_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glysoa_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glysoa_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glysoa_cw02 , idomain ) = P_ddmass_glysoa_cw02 ELSE P_ddmass_glysoa_cw02 = dvel_index_table( PARAM_ddmass_glysoa_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glysoa_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glysoa_cw02 ) = 'ddmass_glysoa_cw02' dvel_desc_table( idomain, P_ddmass_glysoa_cw02 ) = 'glysoa_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_glysoa_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_glysoa_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_glysoa_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_glysoa_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_c_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_c_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_c_cw02 , idomain ) = P_ddmass_biog1_c_cw02 ELSE P_ddmass_biog1_c_cw02 = dvel_index_table( PARAM_ddmass_biog1_c_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_c_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_c_cw02 ) = 'ddmass_biog1_c_cw02' dvel_desc_table( idomain, P_ddmass_biog1_c_cw02 ) = 'biog1_c_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_c_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_c_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_biog1_c_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_biog1_c_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_o_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_o_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_o_cw02 , idomain ) = P_ddmass_biog1_o_cw02 ELSE P_ddmass_biog1_o_cw02 = dvel_index_table( PARAM_ddmass_biog1_o_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_o_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_o_cw02 ) = 'ddmass_biog1_o_cw02' dvel_desc_table( idomain, P_ddmass_biog1_o_cw02 ) = 'biog1_o_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_o_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_o_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_biog1_o_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_biog1_o_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoax_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoax_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoax_cw02 , idomain ) = P_ddmass_asoax_cw02 ELSE P_ddmass_asoax_cw02 = dvel_index_table( PARAM_ddmass_asoax_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoax_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoax_cw02 ) = 'ddmass_asoaX_cw02' dvel_desc_table( idomain, P_ddmass_asoax_cw02 ) = 'asoaX_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoax_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoax_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoax_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoax_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa1_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa1_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa1_cw02 , idomain ) = P_ddmass_asoa1_cw02 ELSE P_ddmass_asoa1_cw02 = dvel_index_table( PARAM_ddmass_asoa1_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa1_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa1_cw02 ) = 'ddmass_asoa1_cw02' dvel_desc_table( idomain, P_ddmass_asoa1_cw02 ) = 'asoa1_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa1_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa1_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa1_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa1_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa2_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa2_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa2_cw02 , idomain ) = P_ddmass_asoa2_cw02 ELSE P_ddmass_asoa2_cw02 = dvel_index_table( PARAM_ddmass_asoa2_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa2_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa2_cw02 ) = 'ddmass_asoa2_cw02' dvel_desc_table( idomain, P_ddmass_asoa2_cw02 ) = 'asoa2_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa2_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa2_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa2_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa2_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa3_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa3_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa3_cw02 , idomain ) = P_ddmass_asoa3_cw02 ELSE P_ddmass_asoa3_cw02 = dvel_index_table( PARAM_ddmass_asoa3_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa3_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa3_cw02 ) = 'ddmass_asoa3_cw02' dvel_desc_table( idomain, P_ddmass_asoa3_cw02 ) = 'asoa3_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa3_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa3_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa3_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa3_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa4_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa4_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa4_cw02 , idomain ) = P_ddmass_asoa4_cw02 ELSE P_ddmass_asoa4_cw02 = dvel_index_table( PARAM_ddmass_asoa4_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa4_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa4_cw02 ) = 'ddmass_asoa4_cw02' dvel_desc_table( idomain, P_ddmass_asoa4_cw02 ) = 'asoa4_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa4_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa4_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa4_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa4_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoax_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoax_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoax_cw02 , idomain ) = P_ddmass_bsoax_cw02 ELSE P_ddmass_bsoax_cw02 = dvel_index_table( PARAM_ddmass_bsoax_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoax_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoax_cw02 ) = 'ddmass_bsoaX_cw02' dvel_desc_table( idomain, P_ddmass_bsoax_cw02 ) = 'bsoaX_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoax_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoax_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoax_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoax_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa1_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa1_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa1_cw02 , idomain ) = P_ddmass_bsoa1_cw02 ELSE P_ddmass_bsoa1_cw02 = dvel_index_table( PARAM_ddmass_bsoa1_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa1_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa1_cw02 ) = 'ddmass_bsoa1_cw02' dvel_desc_table( idomain, P_ddmass_bsoa1_cw02 ) = 'bsoa1_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa1_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa1_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa1_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa1_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa2_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa2_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa2_cw02 , idomain ) = P_ddmass_bsoa2_cw02 ELSE P_ddmass_bsoa2_cw02 = dvel_index_table( PARAM_ddmass_bsoa2_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa2_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa2_cw02 ) = 'ddmass_bsoa2_cw02' dvel_desc_table( idomain, P_ddmass_bsoa2_cw02 ) = 'bsoa2_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa2_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa2_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa2_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa2_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa3_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa3_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa3_cw02 , idomain ) = P_ddmass_bsoa3_cw02 ELSE P_ddmass_bsoa3_cw02 = dvel_index_table( PARAM_ddmass_bsoa3_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa3_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa3_cw02 ) = 'ddmass_bsoa3_cw02' dvel_desc_table( idomain, P_ddmass_bsoa3_cw02 ) = 'bsoa3_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa3_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa3_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa3_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa3_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa4_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa4_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa4_cw02 , idomain ) = P_ddmass_bsoa4_cw02 ELSE P_ddmass_bsoa4_cw02 = dvel_index_table( PARAM_ddmass_bsoa4_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa4_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa4_cw02 ) = 'ddmass_bsoa4_cw02' dvel_desc_table( idomain, P_ddmass_bsoa4_cw02 ) = 'bsoa4_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa4_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa4_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa4_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa4_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4_cw03 , idomain ) = P_ddmass_so4_cw03 ELSE P_ddmass_so4_cw03 = dvel_index_table( PARAM_ddmass_so4_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4_cw03 ) = 'ddmass_so4_cw03' dvel_desc_table( idomain, P_ddmass_so4_cw03 ) = 'so4_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_so4_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_so4_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_so4_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no3_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no3_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no3_cw03 , idomain ) = P_ddmass_no3_cw03 ELSE P_ddmass_no3_cw03 = dvel_index_table( PARAM_ddmass_no3_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no3_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no3_cw03 ) = 'ddmass_no3_cw03' dvel_desc_table( idomain, P_ddmass_no3_cw03 ) = 'no3_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no3_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_no3_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_no3_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_no3_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cl_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cl_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cl_cw03 , idomain ) = P_ddmass_cl_cw03 ELSE P_ddmass_cl_cw03 = dvel_index_table( PARAM_ddmass_cl_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cl_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cl_cw03 ) = 'ddmass_cl_cw03' dvel_desc_table( idomain, P_ddmass_cl_cw03 ) = 'cl_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cl_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_cl_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cl_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_cl_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh4_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh4_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh4_cw03 , idomain ) = P_ddmass_nh4_cw03 ELSE P_ddmass_nh4_cw03 = dvel_index_table( PARAM_ddmass_nh4_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh4_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh4_cw03 ) = 'ddmass_nh4_cw03' dvel_desc_table( idomain, P_ddmass_nh4_cw03 ) = 'nh4_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh4_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_nh4_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_nh4_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_nh4_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_na_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_na_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_na_cw03 , idomain ) = P_ddmass_na_cw03 ELSE P_ddmass_na_cw03 = dvel_index_table( PARAM_ddmass_na_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_na_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_na_cw03 ) = 'ddmass_na_cw03' dvel_desc_table( idomain, P_ddmass_na_cw03 ) = 'na_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_na_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_na_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_na_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_na_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oin_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oin_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oin_cw03 , idomain ) = P_ddmass_oin_cw03 ELSE P_ddmass_oin_cw03 = dvel_index_table( PARAM_ddmass_oin_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oin_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oin_cw03 ) = 'ddmass_oin_cw03' dvel_desc_table( idomain, P_ddmass_oin_cw03 ) = 'oin_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oin_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oin_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_oin_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_oin_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oc_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oc_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oc_cw03 , idomain ) = P_ddmass_oc_cw03 ELSE P_ddmass_oc_cw03 = dvel_index_table( PARAM_ddmass_oc_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oc_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oc_cw03 ) = 'ddmass_oc_cw03' dvel_desc_table( idomain, P_ddmass_oc_cw03 ) = 'oc_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oc_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oc_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_oc_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_oc_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bc_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bc_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bc_cw03 , idomain ) = P_ddmass_bc_cw03 ELSE P_ddmass_bc_cw03 = dvel_index_table( PARAM_ddmass_bc_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bc_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bc_cw03 ) = 'ddmass_bc_cw03' dvel_desc_table( idomain, P_ddmass_bc_cw03 ) = 'bc_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bc_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bc_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bc_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_bc_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpa_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpa_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpa_cw03 , idomain ) = P_ddmass_smpa_cw03 ELSE P_ddmass_smpa_cw03 = dvel_index_table( PARAM_ddmass_smpa_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpa_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpa_cw03 ) = 'ddmass_smpa_cw03' dvel_desc_table( idomain, P_ddmass_smpa_cw03 ) = 'smpa_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpa_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpa_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_smpa_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_smpa_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpbb_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpbb_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpbb_cw03 , idomain ) = P_ddmass_smpbb_cw03 ELSE P_ddmass_smpbb_cw03 = dvel_index_table( PARAM_ddmass_smpbb_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpbb_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpbb_cw03 ) = 'ddmass_smpbb_cw03' dvel_desc_table( idomain, P_ddmass_smpbb_cw03 ) = 'smpbb_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpbb_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpbb_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_smpbb_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_smpbb_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glysoa_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glysoa_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glysoa_cw03 , idomain ) = P_ddmass_glysoa_cw03 ELSE P_ddmass_glysoa_cw03 = dvel_index_table( PARAM_ddmass_glysoa_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glysoa_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glysoa_cw03 ) = 'ddmass_glysoa_cw03' dvel_desc_table( idomain, P_ddmass_glysoa_cw03 ) = 'glysoa_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_glysoa_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_glysoa_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_glysoa_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_glysoa_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_c_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_c_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_c_cw03 , idomain ) = P_ddmass_biog1_c_cw03 ELSE P_ddmass_biog1_c_cw03 = dvel_index_table( PARAM_ddmass_biog1_c_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_c_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_c_cw03 ) = 'ddmass_biog1_c_cw03' dvel_desc_table( idomain, P_ddmass_biog1_c_cw03 ) = 'biog1_c_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_c_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_c_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_biog1_c_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_biog1_c_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_o_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_o_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_o_cw03 , idomain ) = P_ddmass_biog1_o_cw03 ELSE P_ddmass_biog1_o_cw03 = dvel_index_table( PARAM_ddmass_biog1_o_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_o_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_o_cw03 ) = 'ddmass_biog1_o_cw03' dvel_desc_table( idomain, P_ddmass_biog1_o_cw03 ) = 'biog1_o_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_o_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_o_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_biog1_o_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_biog1_o_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoax_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoax_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoax_cw03 , idomain ) = P_ddmass_asoax_cw03 ELSE P_ddmass_asoax_cw03 = dvel_index_table( PARAM_ddmass_asoax_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoax_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoax_cw03 ) = 'ddmass_asoaX_cw03' dvel_desc_table( idomain, P_ddmass_asoax_cw03 ) = 'asoaX_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoax_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoax_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoax_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoax_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa1_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa1_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa1_cw03 , idomain ) = P_ddmass_asoa1_cw03 ELSE P_ddmass_asoa1_cw03 = dvel_index_table( PARAM_ddmass_asoa1_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa1_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa1_cw03 ) = 'ddmass_asoa1_cw03' dvel_desc_table( idomain, P_ddmass_asoa1_cw03 ) = 'asoa1_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa1_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa1_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa1_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa1_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa2_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa2_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa2_cw03 , idomain ) = P_ddmass_asoa2_cw03 ELSE P_ddmass_asoa2_cw03 = dvel_index_table( PARAM_ddmass_asoa2_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa2_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa2_cw03 ) = 'ddmass_asoa2_cw03' dvel_desc_table( idomain, P_ddmass_asoa2_cw03 ) = 'asoa2_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa2_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa2_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa2_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa2_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa3_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa3_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa3_cw03 , idomain ) = P_ddmass_asoa3_cw03 ELSE P_ddmass_asoa3_cw03 = dvel_index_table( PARAM_ddmass_asoa3_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa3_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa3_cw03 ) = 'ddmass_asoa3_cw03' dvel_desc_table( idomain, P_ddmass_asoa3_cw03 ) = 'asoa3_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa3_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa3_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa3_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa3_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa4_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa4_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa4_cw03 , idomain ) = P_ddmass_asoa4_cw03 ELSE P_ddmass_asoa4_cw03 = dvel_index_table( PARAM_ddmass_asoa4_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa4_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa4_cw03 ) = 'ddmass_asoa4_cw03' dvel_desc_table( idomain, P_ddmass_asoa4_cw03 ) = 'asoa4_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa4_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa4_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa4_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa4_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoax_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoax_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoax_cw03 , idomain ) = P_ddmass_bsoax_cw03 ELSE P_ddmass_bsoax_cw03 = dvel_index_table( PARAM_ddmass_bsoax_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoax_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoax_cw03 ) = 'ddmass_bsoaX_cw03' dvel_desc_table( idomain, P_ddmass_bsoax_cw03 ) = 'bsoaX_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoax_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoax_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoax_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoax_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa1_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa1_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa1_cw03 , idomain ) = P_ddmass_bsoa1_cw03 ELSE P_ddmass_bsoa1_cw03 = dvel_index_table( PARAM_ddmass_bsoa1_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa1_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa1_cw03 ) = 'ddmass_bsoa1_cw03' dvel_desc_table( idomain, P_ddmass_bsoa1_cw03 ) = 'bsoa1_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa1_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa1_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa1_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa1_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa2_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa2_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa2_cw03 , idomain ) = P_ddmass_bsoa2_cw03 ELSE P_ddmass_bsoa2_cw03 = dvel_index_table( PARAM_ddmass_bsoa2_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa2_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa2_cw03 ) = 'ddmass_bsoa2_cw03' dvel_desc_table( idomain, P_ddmass_bsoa2_cw03 ) = 'bsoa2_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa2_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa2_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa2_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa2_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa3_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa3_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa3_cw03 , idomain ) = P_ddmass_bsoa3_cw03 ELSE P_ddmass_bsoa3_cw03 = dvel_index_table( PARAM_ddmass_bsoa3_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa3_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa3_cw03 ) = 'ddmass_bsoa3_cw03' dvel_desc_table( idomain, P_ddmass_bsoa3_cw03 ) = 'bsoa3_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa3_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa3_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa3_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa3_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa4_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa4_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa4_cw03 , idomain ) = P_ddmass_bsoa4_cw03 ELSE P_ddmass_bsoa4_cw03 = dvel_index_table( PARAM_ddmass_bsoa4_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa4_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa4_cw03 ) = 'ddmass_bsoa4_cw03' dvel_desc_table( idomain, P_ddmass_bsoa4_cw03 ) = 'bsoa4_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa4_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa4_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa4_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa4_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4_cw04 , idomain ) = P_ddmass_so4_cw04 ELSE P_ddmass_so4_cw04 = dvel_index_table( PARAM_ddmass_so4_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4_cw04 ) = 'ddmass_so4_cw04' dvel_desc_table( idomain, P_ddmass_so4_cw04 ) = 'so4_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_so4_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_so4_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_so4_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no3_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no3_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no3_cw04 , idomain ) = P_ddmass_no3_cw04 ELSE P_ddmass_no3_cw04 = dvel_index_table( PARAM_ddmass_no3_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no3_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no3_cw04 ) = 'ddmass_no3_cw04' dvel_desc_table( idomain, P_ddmass_no3_cw04 ) = 'no3_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no3_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_no3_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_no3_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_no3_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cl_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cl_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cl_cw04 , idomain ) = P_ddmass_cl_cw04 ELSE P_ddmass_cl_cw04 = dvel_index_table( PARAM_ddmass_cl_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cl_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cl_cw04 ) = 'ddmass_cl_cw04' dvel_desc_table( idomain, P_ddmass_cl_cw04 ) = 'cl_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cl_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_cl_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_cl_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_cl_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh4_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh4_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh4_cw04 , idomain ) = P_ddmass_nh4_cw04 ELSE P_ddmass_nh4_cw04 = dvel_index_table( PARAM_ddmass_nh4_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh4_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh4_cw04 ) = 'ddmass_nh4_cw04' dvel_desc_table( idomain, P_ddmass_nh4_cw04 ) = 'nh4_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh4_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_nh4_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_nh4_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_nh4_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_na_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_na_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_na_cw04 , idomain ) = P_ddmass_na_cw04 ELSE P_ddmass_na_cw04 = dvel_index_table( PARAM_ddmass_na_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_na_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_na_cw04 ) = 'ddmass_na_cw04' dvel_desc_table( idomain, P_ddmass_na_cw04 ) = 'na_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_na_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_na_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_na_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_na_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oin_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oin_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oin_cw04 , idomain ) = P_ddmass_oin_cw04 ELSE P_ddmass_oin_cw04 = dvel_index_table( PARAM_ddmass_oin_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oin_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oin_cw04 ) = 'ddmass_oin_cw04' dvel_desc_table( idomain, P_ddmass_oin_cw04 ) = 'oin_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oin_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oin_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_oin_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_oin_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oc_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oc_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oc_cw04 , idomain ) = P_ddmass_oc_cw04 ELSE P_ddmass_oc_cw04 = dvel_index_table( PARAM_ddmass_oc_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oc_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oc_cw04 ) = 'ddmass_oc_cw04' dvel_desc_table( idomain, P_ddmass_oc_cw04 ) = 'oc_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oc_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oc_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_oc_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_oc_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bc_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bc_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bc_cw04 , idomain ) = P_ddmass_bc_cw04 ELSE P_ddmass_bc_cw04 = dvel_index_table( PARAM_ddmass_bc_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bc_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bc_cw04 ) = 'ddmass_bc_cw04' dvel_desc_table( idomain, P_ddmass_bc_cw04 ) = 'bc_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bc_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bc_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bc_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_bc_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpa_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpa_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpa_cw04 , idomain ) = P_ddmass_smpa_cw04 ELSE P_ddmass_smpa_cw04 = dvel_index_table( PARAM_ddmass_smpa_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpa_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpa_cw04 ) = 'ddmass_smpa_cw04' dvel_desc_table( idomain, P_ddmass_smpa_cw04 ) = 'smpa_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpa_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpa_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_smpa_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_smpa_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpbb_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpbb_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpbb_cw04 , idomain ) = P_ddmass_smpbb_cw04 ELSE P_ddmass_smpbb_cw04 = dvel_index_table( PARAM_ddmass_smpbb_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpbb_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpbb_cw04 ) = 'ddmass_smpbb_cw04' dvel_desc_table( idomain, P_ddmass_smpbb_cw04 ) = 'smpbb_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpbb_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpbb_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_smpbb_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_smpbb_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glysoa_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glysoa_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glysoa_cw04 , idomain ) = P_ddmass_glysoa_cw04 ELSE P_ddmass_glysoa_cw04 = dvel_index_table( PARAM_ddmass_glysoa_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glysoa_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glysoa_cw04 ) = 'ddmass_glysoa_cw04' dvel_desc_table( idomain, P_ddmass_glysoa_cw04 ) = 'glysoa_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_glysoa_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_glysoa_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_glysoa_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_glysoa_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_c_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_c_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_c_cw04 , idomain ) = P_ddmass_biog1_c_cw04 ELSE P_ddmass_biog1_c_cw04 = dvel_index_table( PARAM_ddmass_biog1_c_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_c_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_c_cw04 ) = 'ddmass_biog1_c_cw04' dvel_desc_table( idomain, P_ddmass_biog1_c_cw04 ) = 'biog1_c_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_c_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_c_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_biog1_c_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_biog1_c_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_o_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_o_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_o_cw04 , idomain ) = P_ddmass_biog1_o_cw04 ELSE P_ddmass_biog1_o_cw04 = dvel_index_table( PARAM_ddmass_biog1_o_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_o_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_o_cw04 ) = 'ddmass_biog1_o_cw04' dvel_desc_table( idomain, P_ddmass_biog1_o_cw04 ) = 'biog1_o_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_o_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_o_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_biog1_o_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_biog1_o_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoax_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoax_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoax_cw04 , idomain ) = P_ddmass_asoax_cw04 ELSE P_ddmass_asoax_cw04 = dvel_index_table( PARAM_ddmass_asoax_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoax_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoax_cw04 ) = 'ddmass_asoaX_cw04' dvel_desc_table( idomain, P_ddmass_asoax_cw04 ) = 'asoaX_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoax_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoax_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoax_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoax_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa1_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa1_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa1_cw04 , idomain ) = P_ddmass_asoa1_cw04 ELSE P_ddmass_asoa1_cw04 = dvel_index_table( PARAM_ddmass_asoa1_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa1_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa1_cw04 ) = 'ddmass_asoa1_cw04' dvel_desc_table( idomain, P_ddmass_asoa1_cw04 ) = 'asoa1_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa1_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa1_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa1_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa1_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa2_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa2_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa2_cw04 , idomain ) = P_ddmass_asoa2_cw04 ELSE P_ddmass_asoa2_cw04 = dvel_index_table( PARAM_ddmass_asoa2_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa2_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa2_cw04 ) = 'ddmass_asoa2_cw04' dvel_desc_table( idomain, P_ddmass_asoa2_cw04 ) = 'asoa2_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa2_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa2_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa2_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa2_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa3_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa3_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa3_cw04 , idomain ) = P_ddmass_asoa3_cw04 ELSE P_ddmass_asoa3_cw04 = dvel_index_table( PARAM_ddmass_asoa3_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa3_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa3_cw04 ) = 'ddmass_asoa3_cw04' dvel_desc_table( idomain, P_ddmass_asoa3_cw04 ) = 'asoa3_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa3_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa3_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa3_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa3_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa4_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa4_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa4_cw04 , idomain ) = P_ddmass_asoa4_cw04 ELSE P_ddmass_asoa4_cw04 = dvel_index_table( PARAM_ddmass_asoa4_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa4_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa4_cw04 ) = 'ddmass_asoa4_cw04' dvel_desc_table( idomain, P_ddmass_asoa4_cw04 ) = 'asoa4_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa4_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa4_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_asoa4_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_asoa4_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoax_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoax_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoax_cw04 , idomain ) = P_ddmass_bsoax_cw04 ELSE P_ddmass_bsoax_cw04 = dvel_index_table( PARAM_ddmass_bsoax_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoax_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoax_cw04 ) = 'ddmass_bsoaX_cw04' dvel_desc_table( idomain, P_ddmass_bsoax_cw04 ) = 'bsoaX_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoax_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoax_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoax_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoax_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa1_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa1_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa1_cw04 , idomain ) = P_ddmass_bsoa1_cw04 ELSE P_ddmass_bsoa1_cw04 = dvel_index_table( PARAM_ddmass_bsoa1_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa1_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa1_cw04 ) = 'ddmass_bsoa1_cw04' dvel_desc_table( idomain, P_ddmass_bsoa1_cw04 ) = 'bsoa1_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa1_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa1_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa1_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa1_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa2_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa2_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa2_cw04 , idomain ) = P_ddmass_bsoa2_cw04 ELSE P_ddmass_bsoa2_cw04 = dvel_index_table( PARAM_ddmass_bsoa2_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa2_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa2_cw04 ) = 'ddmass_bsoa2_cw04' dvel_desc_table( idomain, P_ddmass_bsoa2_cw04 ) = 'bsoa2_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa2_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa2_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa2_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa2_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa3_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa3_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa3_cw04 , idomain ) = P_ddmass_bsoa3_cw04 ELSE P_ddmass_bsoa3_cw04 = dvel_index_table( PARAM_ddmass_bsoa3_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa3_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa3_cw04 ) = 'ddmass_bsoa3_cw04' dvel_desc_table( idomain, P_ddmass_bsoa3_cw04 ) = 'bsoa3_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa3_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa3_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa3_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa3_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa4_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa4_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa4_cw04 , idomain ) = P_ddmass_bsoa4_cw04 ELSE P_ddmass_bsoa4_cw04 = dvel_index_table( PARAM_ddmass_bsoa4_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa4_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa4_cw04 ) = 'ddmass_bsoa4_cw04' dvel_desc_table( idomain, P_ddmass_bsoa4_cw04 ) = 'bsoa4_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa4_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa4_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_bsoa4_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_bsoa4_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ca_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ca_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ca_cw01 , idomain ) = P_ddmass_ca_cw01 ELSE P_ddmass_ca_cw01 = dvel_index_table( PARAM_ddmass_ca_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ca_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ca_cw01 ) = 'ddmass_ca_cw01' dvel_desc_table( idomain, P_ddmass_ca_cw01 ) = 'ca_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ca_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_ca_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_ca_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_ca_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ca_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ca_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ca_cw02 , idomain ) = P_ddmass_ca_cw02 ELSE P_ddmass_ca_cw02 = dvel_index_table( PARAM_ddmass_ca_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ca_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ca_cw02 ) = 'ddmass_ca_cw02' dvel_desc_table( idomain, P_ddmass_ca_cw02 ) = 'ca_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ca_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_ca_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_ca_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_ca_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ca_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ca_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ca_cw03 , idomain ) = P_ddmass_ca_cw03 ELSE P_ddmass_ca_cw03 = dvel_index_table( PARAM_ddmass_ca_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ca_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ca_cw03 ) = 'ddmass_ca_cw03' dvel_desc_table( idomain, P_ddmass_ca_cw03 ) = 'ca_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ca_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_ca_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_ca_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_ca_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ca_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ca_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ca_cw04 , idomain ) = P_ddmass_ca_cw04 ELSE P_ddmass_ca_cw04 = dvel_index_table( PARAM_ddmass_ca_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ca_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ca_cw04 ) = 'ddmass_ca_cw04' dvel_desc_table( idomain, P_ddmass_ca_cw04 ) = 'ca_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ca_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_ca_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_ca_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_ca_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co3_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co3_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co3_cw01 , idomain ) = P_ddmass_co3_cw01 ELSE P_ddmass_co3_cw01 = dvel_index_table( PARAM_ddmass_co3_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co3_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co3_cw01 ) = 'ddmass_co3_cw01' dvel_desc_table( idomain, P_ddmass_co3_cw01 ) = 'co3_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_co3_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_co3_cw01 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_co3_cw01 )%stream(2) = 2097152 ! 00200000 F_ddmass_co3_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co3_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co3_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co3_cw02 , idomain ) = P_ddmass_co3_cw02 ELSE P_ddmass_co3_cw02 = dvel_index_table( PARAM_ddmass_co3_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co3_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co3_cw02 ) = 'ddmass_co3_cw02' dvel_desc_table( idomain, P_ddmass_co3_cw02 ) = 'co3_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_co3_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_co3_cw02 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_co3_cw02 )%stream(2) = 2097152 ! 00200000 F_ddmass_co3_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co3_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co3_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co3_cw03 , idomain ) = P_ddmass_co3_cw03 ELSE P_ddmass_co3_cw03 = dvel_index_table( PARAM_ddmass_co3_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co3_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co3_cw03 ) = 'ddmass_co3_cw03' dvel_desc_table( idomain, P_ddmass_co3_cw03 ) = 'co3_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_co3_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_co3_cw03 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_co3_cw03 )%stream(2) = 2097152 ! 00200000 F_ddmass_co3_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co3_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co3_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co3_cw04 , idomain ) = P_ddmass_co3_cw04 ELSE P_ddmass_co3_cw04 = dvel_index_table( PARAM_ddmass_co3_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co3_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co3_cw04 ) = 'ddmass_co3_cw04' dvel_desc_table( idomain, P_ddmass_co3_cw04 ) = 'co3_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_co3_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_co3_cw04 )%stream(1) = 0 ! 00000000 dvel_streams_table( idomain, P_ddmass_co3_cw04 )%stream(2) = 2097152 ! 00200000 F_ddmass_co3_cw04 = .TRUE. END IF IF (model_config_rec%aero_diag_opt(idomain)==1)THEN END IF IF (model_config_rec%aero_cw_diag_opt(idomain)==1)THEN END IF IF (model_config_rec%bio_emiss_opt(idomain)==1)THEN END IF IF (model_config_rec%bio_emiss_opt(idomain)==2)THEN END IF IF (model_config_rec%bio_emiss_opt(idomain)==3)THEN END IF IF (model_config_rec%bio_emiss_opt(idomain)==16)THEN IF ( vprm_in_index_table( PARAM_vegfra_vprm , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_vegfra_vprm = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_vegfra_vprm , idomain ) = P_vegfra_vprm ELSE P_vegfra_vprm = vprm_in_index_table( PARAM_vegfra_vprm , idomain ) END IF vprm_in_boundary_table( idomain, P_vegfra_vprm ) = .FALSE. vprm_in_dname_table( idomain, P_vegfra_vprm ) = 'VEGFRA_VPRM' vprm_in_desc_table( idomain, P_vegfra_vprm ) = ' ' vprm_in_units_table( idomain, P_vegfra_vprm ) = ' ' vprm_in_streams_table( idomain, P_vegfra_vprm )%stream(1) = 1 ! 00000001 vprm_in_streams_table( idomain, P_vegfra_vprm )%stream(2) = 2097664 ! 00200200 F_vegfra_vprm = .TRUE. IF ( vprm_in_index_table( PARAM_evi , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_evi = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_evi , idomain ) = P_evi ELSE P_evi = vprm_in_index_table( PARAM_evi , idomain ) END IF vprm_in_boundary_table( idomain, P_evi ) = .FALSE. vprm_in_dname_table( idomain, P_evi ) = 'EVI' vprm_in_desc_table( idomain, P_evi ) = ' ' vprm_in_units_table( idomain, P_evi ) = ' ' vprm_in_streams_table( idomain, P_evi )%stream(1) = 1 ! 00000001 vprm_in_streams_table( idomain, P_evi )%stream(2) = 2097664 ! 00200200 F_evi = .TRUE. IF ( vprm_in_index_table( PARAM_evi_min , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_evi_min = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_evi_min , idomain ) = P_evi_min ELSE P_evi_min = vprm_in_index_table( PARAM_evi_min , idomain ) END IF vprm_in_boundary_table( idomain, P_evi_min ) = .FALSE. vprm_in_dname_table( idomain, P_evi_min ) = 'EVI_MIN' vprm_in_desc_table( idomain, P_evi_min ) = ' ' vprm_in_units_table( idomain, P_evi_min ) = ' ' vprm_in_streams_table( idomain, P_evi_min )%stream(1) = 1 ! 00000001 vprm_in_streams_table( idomain, P_evi_min )%stream(2) = 2097664 ! 00200200 F_evi_min = .TRUE. IF ( vprm_in_index_table( PARAM_evi_max , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_evi_max = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_evi_max , idomain ) = P_evi_max ELSE P_evi_max = vprm_in_index_table( PARAM_evi_max , idomain ) END IF vprm_in_boundary_table( idomain, P_evi_max ) = .FALSE. vprm_in_dname_table( idomain, P_evi_max ) = 'EVI_MAX' vprm_in_desc_table( idomain, P_evi_max ) = ' ' vprm_in_units_table( idomain, P_evi_max ) = ' ' vprm_in_streams_table( idomain, P_evi_max )%stream(1) = 1 ! 00000001 vprm_in_streams_table( idomain, P_evi_max )%stream(2) = 2097664 ! 00200200 F_evi_max = .TRUE. IF ( vprm_in_index_table( PARAM_lswi , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_lswi = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_lswi , idomain ) = P_lswi ELSE P_lswi = vprm_in_index_table( PARAM_lswi , idomain ) END IF vprm_in_boundary_table( idomain, P_lswi ) = .FALSE. vprm_in_dname_table( idomain, P_lswi ) = 'LSWI' vprm_in_desc_table( idomain, P_lswi ) = ' ' vprm_in_units_table( idomain, P_lswi ) = ' ' vprm_in_streams_table( idomain, P_lswi )%stream(1) = 1 ! 00000001 vprm_in_streams_table( idomain, P_lswi )%stream(2) = 2097664 ! 00200200 F_lswi = .TRUE. IF ( vprm_in_index_table( PARAM_lswi_max , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_lswi_max = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_lswi_max , idomain ) = P_lswi_max ELSE P_lswi_max = vprm_in_index_table( PARAM_lswi_max , idomain ) END IF vprm_in_boundary_table( idomain, P_lswi_max ) = .FALSE. vprm_in_dname_table( idomain, P_lswi_max ) = 'LSWI_MAX' vprm_in_desc_table( idomain, P_lswi_max ) = ' ' vprm_in_units_table( idomain, P_lswi_max ) = ' ' vprm_in_streams_table( idomain, P_lswi_max )%stream(1) = 1 ! 00000001 vprm_in_streams_table( idomain, P_lswi_max )%stream(2) = 2097664 ! 00200200 F_lswi_max = .TRUE. IF ( vprm_in_index_table( PARAM_lswi_min , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_lswi_min = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_lswi_min , idomain ) = P_lswi_min ELSE P_lswi_min = vprm_in_index_table( PARAM_lswi_min , idomain ) END IF vprm_in_boundary_table( idomain, P_lswi_min ) = .FALSE. vprm_in_dname_table( idomain, P_lswi_min ) = 'LSWI_MIN' vprm_in_desc_table( idomain, P_lswi_min ) = ' ' vprm_in_units_table( idomain, P_lswi_min ) = ' ' vprm_in_streams_table( idomain, P_lswi_min )%stream(1) = 1 ! 00000001 vprm_in_streams_table( idomain, P_lswi_min )%stream(2) = 2097664 ! 00200200 F_lswi_min = .TRUE. IF ( eghg_bio_index_table( PARAM_ebio_gee , idomain ) .lt. 1 ) THEN eghg_bio_num_table(idomain) = eghg_bio_num_table(idomain) + 1 P_ebio_gee = eghg_bio_num_table(idomain) eghg_bio_index_table( PARAM_ebio_gee , idomain ) = P_ebio_gee ELSE P_ebio_gee = eghg_bio_index_table( PARAM_ebio_gee , idomain ) END IF eghg_bio_boundary_table( idomain, P_ebio_gee ) = .FALSE. eghg_bio_dname_table( idomain, P_ebio_gee ) = 'EBIO_GEE' eghg_bio_desc_table( idomain, P_ebio_gee ) = 'biospheric VPRM CO2 uptake' eghg_bio_units_table( idomain, P_ebio_gee ) = 'mol km^-2 hr^-1' eghg_bio_streams_table( idomain, P_ebio_gee )%stream(1) = 0 ! 00000000 eghg_bio_streams_table( idomain, P_ebio_gee )%stream(2) = 0 ! 00000000 F_ebio_gee = .TRUE. IF ( eghg_bio_index_table( PARAM_ebio_res , idomain ) .lt. 1 ) THEN eghg_bio_num_table(idomain) = eghg_bio_num_table(idomain) + 1 P_ebio_res = eghg_bio_num_table(idomain) eghg_bio_index_table( PARAM_ebio_res , idomain ) = P_ebio_res ELSE P_ebio_res = eghg_bio_index_table( PARAM_ebio_res , idomain ) END IF eghg_bio_boundary_table( idomain, P_ebio_res ) = .FALSE. eghg_bio_dname_table( idomain, P_ebio_res ) = 'EBIO_RES' eghg_bio_desc_table( idomain, P_ebio_res ) = 'biospheric VPRM CO2 release' eghg_bio_units_table( idomain, P_ebio_res ) = 'mol km^-2 hr^-1' eghg_bio_streams_table( idomain, P_ebio_res )%stream(1) = 0 ! 00000000 eghg_bio_streams_table( idomain, P_ebio_res )%stream(2) = 0 ! 00000000 F_ebio_res = .TRUE. END IF IF (model_config_rec%bio_emiss_opt(idomain)==17)THEN IF ( vprm_in_index_table( PARAM_vegfra_vprm , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_vegfra_vprm = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_vegfra_vprm , idomain ) = P_vegfra_vprm ELSE P_vegfra_vprm = vprm_in_index_table( PARAM_vegfra_vprm , idomain ) END IF vprm_in_boundary_table( idomain, P_vegfra_vprm ) = .FALSE. vprm_in_dname_table( idomain, P_vegfra_vprm ) = 'VEGFRA_VPRM' vprm_in_desc_table( idomain, P_vegfra_vprm ) = ' ' vprm_in_units_table( idomain, P_vegfra_vprm ) = ' ' vprm_in_streams_table( idomain, P_vegfra_vprm )%stream(1) = 1 ! 00000001 vprm_in_streams_table( idomain, P_vegfra_vprm )%stream(2) = 2097664 ! 00200200 F_vegfra_vprm = .TRUE. IF ( vprm_in_index_table( PARAM_evi , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_evi = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_evi , idomain ) = P_evi ELSE P_evi = vprm_in_index_table( PARAM_evi , idomain ) END IF vprm_in_boundary_table( idomain, P_evi ) = .FALSE. vprm_in_dname_table( idomain, P_evi ) = 'EVI' vprm_in_desc_table( idomain, P_evi ) = ' ' vprm_in_units_table( idomain, P_evi ) = ' ' vprm_in_streams_table( idomain, P_evi )%stream(1) = 1 ! 00000001 vprm_in_streams_table( idomain, P_evi )%stream(2) = 2097664 ! 00200200 F_evi = .TRUE. IF ( vprm_in_index_table( PARAM_evi_min , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_evi_min = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_evi_min , idomain ) = P_evi_min ELSE P_evi_min = vprm_in_index_table( PARAM_evi_min , idomain ) END IF vprm_in_boundary_table( idomain, P_evi_min ) = .FALSE. vprm_in_dname_table( idomain, P_evi_min ) = 'EVI_MIN' vprm_in_desc_table( idomain, P_evi_min ) = ' ' vprm_in_units_table( idomain, P_evi_min ) = ' ' vprm_in_streams_table( idomain, P_evi_min )%stream(1) = 1 ! 00000001 vprm_in_streams_table( idomain, P_evi_min )%stream(2) = 2097664 ! 00200200 F_evi_min = .TRUE. IF ( vprm_in_index_table( PARAM_evi_max , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_evi_max = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_evi_max , idomain ) = P_evi_max ELSE P_evi_max = vprm_in_index_table( PARAM_evi_max , idomain ) END IF vprm_in_boundary_table( idomain, P_evi_max ) = .FALSE. vprm_in_dname_table( idomain, P_evi_max ) = 'EVI_MAX' vprm_in_desc_table( idomain, P_evi_max ) = ' ' vprm_in_units_table( idomain, P_evi_max ) = ' ' vprm_in_streams_table( idomain, P_evi_max )%stream(1) = 1 ! 00000001 vprm_in_streams_table( idomain, P_evi_max )%stream(2) = 2097664 ! 00200200 F_evi_max = .TRUE. IF ( vprm_in_index_table( PARAM_lswi , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_lswi = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_lswi , idomain ) = P_lswi ELSE P_lswi = vprm_in_index_table( PARAM_lswi , idomain ) END IF vprm_in_boundary_table( idomain, P_lswi ) = .FALSE. vprm_in_dname_table( idomain, P_lswi ) = 'LSWI' vprm_in_desc_table( idomain, P_lswi ) = ' ' vprm_in_units_table( idomain, P_lswi ) = ' ' vprm_in_streams_table( idomain, P_lswi )%stream(1) = 1 ! 00000001 vprm_in_streams_table( idomain, P_lswi )%stream(2) = 2097664 ! 00200200 F_lswi = .TRUE. IF ( vprm_in_index_table( PARAM_lswi_max , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_lswi_max = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_lswi_max , idomain ) = P_lswi_max ELSE P_lswi_max = vprm_in_index_table( PARAM_lswi_max , idomain ) END IF vprm_in_boundary_table( idomain, P_lswi_max ) = .FALSE. vprm_in_dname_table( idomain, P_lswi_max ) = 'LSWI_MAX' vprm_in_desc_table( idomain, P_lswi_max ) = ' ' vprm_in_units_table( idomain, P_lswi_max ) = ' ' vprm_in_streams_table( idomain, P_lswi_max )%stream(1) = 1 ! 00000001 vprm_in_streams_table( idomain, P_lswi_max )%stream(2) = 2097664 ! 00200200 F_lswi_max = .TRUE. IF ( vprm_in_index_table( PARAM_lswi_min , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_lswi_min = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_lswi_min , idomain ) = P_lswi_min ELSE P_lswi_min = vprm_in_index_table( PARAM_lswi_min , idomain ) END IF vprm_in_boundary_table( idomain, P_lswi_min ) = .FALSE. vprm_in_dname_table( idomain, P_lswi_min ) = 'LSWI_MIN' vprm_in_desc_table( idomain, P_lswi_min ) = ' ' vprm_in_units_table( idomain, P_lswi_min ) = ' ' vprm_in_streams_table( idomain, P_lswi_min )%stream(1) = 1 ! 00000001 vprm_in_streams_table( idomain, P_lswi_min )%stream(2) = 2097664 ! 00200200 F_lswi_min = .TRUE. IF ( wet_in_index_table( PARAM_cpool , idomain ) .lt. 1 ) THEN wet_in_num_table(idomain) = wet_in_num_table(idomain) + 1 P_cpool = wet_in_num_table(idomain) wet_in_index_table( PARAM_cpool , idomain ) = P_cpool ELSE P_cpool = wet_in_index_table( PARAM_cpool , idomain ) END IF wet_in_boundary_table( idomain, P_cpool ) = .FALSE. wet_in_dname_table( idomain, P_cpool ) = 'CPOOL' wet_in_desc_table( idomain, P_cpool ) = 'LPJ Carbon pool' wet_in_units_table( idomain, P_cpool ) = 'gC/m^2' wet_in_streams_table( idomain, P_cpool )%stream(1) = 1 ! 00000001 wet_in_streams_table( idomain, P_cpool )%stream(2) = 2097664 ! 00200200 F_cpool = .TRUE. IF ( wet_in_index_table( PARAM_wetmap , idomain ) .lt. 1 ) THEN wet_in_num_table(idomain) = wet_in_num_table(idomain) + 1 P_wetmap = wet_in_num_table(idomain) wet_in_index_table( PARAM_wetmap , idomain ) = P_wetmap ELSE P_wetmap = wet_in_index_table( PARAM_wetmap , idomain ) END IF wet_in_boundary_table( idomain, P_wetmap ) = .FALSE. wet_in_dname_table( idomain, P_wetmap ) = 'WETMAP' wet_in_desc_table( idomain, P_wetmap ) = 'Kaplan potential wetland map' wet_in_units_table( idomain, P_wetmap ) = '' wet_in_streams_table( idomain, P_wetmap )%stream(1) = 1 ! 00000001 wet_in_streams_table( idomain, P_wetmap )%stream(2) = 2097664 ! 00200200 F_wetmap = .TRUE. IF ( wet_in_index_table( PARAM_t_ann , idomain ) .lt. 1 ) THEN wet_in_num_table(idomain) = wet_in_num_table(idomain) + 1 P_t_ann = wet_in_num_table(idomain) wet_in_index_table( PARAM_t_ann , idomain ) = P_t_ann ELSE P_t_ann = wet_in_index_table( PARAM_t_ann , idomain ) END IF wet_in_boundary_table( idomain, P_t_ann ) = .FALSE. wet_in_dname_table( idomain, P_t_ann ) = 'T_ANN' wet_in_desc_table( idomain, P_t_ann ) = 'mean annual temperature' wet_in_units_table( idomain, P_t_ann ) = 'K' wet_in_streams_table( idomain, P_t_ann )%stream(1) = 1 ! 00000001 wet_in_streams_table( idomain, P_t_ann )%stream(2) = 2097664 ! 00200200 F_t_ann = .TRUE. IF ( eghg_bio_index_table( PARAM_ebio_gee , idomain ) .lt. 1 ) THEN eghg_bio_num_table(idomain) = eghg_bio_num_table(idomain) + 1 P_ebio_gee = eghg_bio_num_table(idomain) eghg_bio_index_table( PARAM_ebio_gee , idomain ) = P_ebio_gee ELSE P_ebio_gee = eghg_bio_index_table( PARAM_ebio_gee , idomain ) END IF eghg_bio_boundary_table( idomain, P_ebio_gee ) = .FALSE. eghg_bio_dname_table( idomain, P_ebio_gee ) = 'EBIO_GEE' eghg_bio_desc_table( idomain, P_ebio_gee ) = 'biospheric VPRM CO2 uptake' eghg_bio_units_table( idomain, P_ebio_gee ) = 'mol km^-2 hr^-1' eghg_bio_streams_table( idomain, P_ebio_gee )%stream(1) = 0 ! 00000000 eghg_bio_streams_table( idomain, P_ebio_gee )%stream(2) = 0 ! 00000000 F_ebio_gee = .TRUE. IF ( eghg_bio_index_table( PARAM_ebio_res , idomain ) .lt. 1 ) THEN eghg_bio_num_table(idomain) = eghg_bio_num_table(idomain) + 1 P_ebio_res = eghg_bio_num_table(idomain) eghg_bio_index_table( PARAM_ebio_res , idomain ) = P_ebio_res ELSE P_ebio_res = eghg_bio_index_table( PARAM_ebio_res , idomain ) END IF eghg_bio_boundary_table( idomain, P_ebio_res ) = .FALSE. eghg_bio_dname_table( idomain, P_ebio_res ) = 'EBIO_RES' eghg_bio_desc_table( idomain, P_ebio_res ) = 'biospheric VPRM CO2 release' eghg_bio_units_table( idomain, P_ebio_res ) = 'mol km^-2 hr^-1' eghg_bio_streams_table( idomain, P_ebio_res )%stream(1) = 0 ! 00000000 eghg_bio_streams_table( idomain, P_ebio_res )%stream(2) = 0 ! 00000000 F_ebio_res = .TRUE. IF ( eghg_bio_index_table( PARAM_ebio_ch4wet , idomain ) .lt. 1 ) THEN eghg_bio_num_table(idomain) = eghg_bio_num_table(idomain) + 1 P_ebio_ch4wet = eghg_bio_num_table(idomain) eghg_bio_index_table( PARAM_ebio_ch4wet , idomain ) = P_ebio_ch4wet ELSE P_ebio_ch4wet = eghg_bio_index_table( PARAM_ebio_ch4wet , idomain ) END IF eghg_bio_boundary_table( idomain, P_ebio_ch4wet ) = .FALSE. eghg_bio_dname_table( idomain, P_ebio_ch4wet ) = 'EBIO_CH4WET' eghg_bio_desc_table( idomain, P_ebio_ch4wet ) = 'Biogenic CH4 wetland emissions' eghg_bio_units_table( idomain, P_ebio_ch4wet ) = 'mol km^-2 hr^-1' eghg_bio_streams_table( idomain, P_ebio_ch4wet )%stream(1) = 0 ! 00000000 eghg_bio_streams_table( idomain, P_ebio_ch4wet )%stream(2) = 0 ! 00000000 F_ebio_ch4wet = .TRUE. IF ( eghg_bio_index_table( PARAM_ebio_ch4soil , idomain ) .lt. 1 ) THEN eghg_bio_num_table(idomain) = eghg_bio_num_table(idomain) + 1 P_ebio_ch4soil = eghg_bio_num_table(idomain) eghg_bio_index_table( PARAM_ebio_ch4soil , idomain ) = P_ebio_ch4soil ELSE P_ebio_ch4soil = eghg_bio_index_table( PARAM_ebio_ch4soil , idomain ) END IF eghg_bio_boundary_table( idomain, P_ebio_ch4soil ) = .FALSE. eghg_bio_dname_table( idomain, P_ebio_ch4soil ) = 'EBIO_CH4SOIL' eghg_bio_desc_table( idomain, P_ebio_ch4soil ) = 'CH4 soil uptake fluxes' eghg_bio_units_table( idomain, P_ebio_ch4soil ) = 'mol km^-2 hr^-1' eghg_bio_streams_table( idomain, P_ebio_ch4soil )%stream(1) = 0 ! 00000000 eghg_bio_streams_table( idomain, P_ebio_ch4soil )%stream(2) = 0 ! 00000000 F_ebio_ch4soil = .TRUE. IF ( eghg_bio_index_table( PARAM_ebio_ch4term , idomain ) .lt. 1 ) THEN eghg_bio_num_table(idomain) = eghg_bio_num_table(idomain) + 1 P_ebio_ch4term = eghg_bio_num_table(idomain) eghg_bio_index_table( PARAM_ebio_ch4term , idomain ) = P_ebio_ch4term ELSE P_ebio_ch4term = eghg_bio_index_table( PARAM_ebio_ch4term , idomain ) END IF eghg_bio_boundary_table( idomain, P_ebio_ch4term ) = .FALSE. eghg_bio_dname_table( idomain, P_ebio_ch4term ) = 'EBIO_CH4TERM' eghg_bio_desc_table( idomain, P_ebio_ch4term ) = 'CH4 termite emissions' eghg_bio_units_table( idomain, P_ebio_ch4term ) = 'mol km^-2 hr^-1' eghg_bio_streams_table( idomain, P_ebio_ch4term )%stream(1) = 0 ! 00000000 eghg_bio_streams_table( idomain, P_ebio_ch4term )%stream(2) = 0 ! 00000000 F_ebio_ch4term = .TRUE. END IF IF (model_config_rec%biomass_burn_opt(idomain)==1)THEN IF ( ebu_index_table( PARAM_ebu_no , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_no = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_no , idomain ) = P_ebu_no ELSE P_ebu_no = ebu_index_table( PARAM_ebu_no , idomain ) END IF ebu_boundary_table( idomain, P_ebu_no ) = .FALSE. ebu_dname_table( idomain, P_ebu_no ) = 'ebu_no' ebu_desc_table( idomain, P_ebu_no ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_no ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_no )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_no )%stream(2) = 0 ! 00000000 F_ebu_no = .TRUE. IF ( ebu_index_table( PARAM_ebu_no2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_no2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_no2 , idomain ) = P_ebu_no2 ELSE P_ebu_no2 = ebu_index_table( PARAM_ebu_no2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_no2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_no2 ) = 'ebu_no2' ebu_desc_table( idomain, P_ebu_no2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_no2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_no2 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_no2 )%stream(2) = 0 ! 00000000 F_ebu_no2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_co , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_co = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_co , idomain ) = P_ebu_co ELSE P_ebu_co = ebu_index_table( PARAM_ebu_co , idomain ) END IF ebu_boundary_table( idomain, P_ebu_co ) = .FALSE. ebu_dname_table( idomain, P_ebu_co ) = 'ebu_co' ebu_desc_table( idomain, P_ebu_co ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_co ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_co )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_co )%stream(2) = 0 ! 00000000 F_ebu_co = .TRUE. IF ( ebu_index_table( PARAM_ebu_co2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_co2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_co2 , idomain ) = P_ebu_co2 ELSE P_ebu_co2 = ebu_index_table( PARAM_ebu_co2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_co2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_co2 ) = 'ebu_co2' ebu_desc_table( idomain, P_ebu_co2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_co2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_co2 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_co2 )%stream(2) = 0 ! 00000000 F_ebu_co2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_eth , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_eth = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_eth , idomain ) = P_ebu_eth ELSE P_ebu_eth = ebu_index_table( PARAM_ebu_eth , idomain ) END IF ebu_boundary_table( idomain, P_ebu_eth ) = .FALSE. ebu_dname_table( idomain, P_ebu_eth ) = 'ebu_eth' ebu_desc_table( idomain, P_ebu_eth ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_eth ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_eth )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_eth )%stream(2) = 0 ! 00000000 F_ebu_eth = .TRUE. IF ( ebu_index_table( PARAM_ebu_hc3 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_hc3 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_hc3 , idomain ) = P_ebu_hc3 ELSE P_ebu_hc3 = ebu_index_table( PARAM_ebu_hc3 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_hc3 ) = .FALSE. ebu_dname_table( idomain, P_ebu_hc3 ) = 'ebu_hc3' ebu_desc_table( idomain, P_ebu_hc3 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_hc3 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_hc3 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_hc3 )%stream(2) = 0 ! 00000000 F_ebu_hc3 = .TRUE. IF ( ebu_index_table( PARAM_ebu_hc5 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_hc5 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_hc5 , idomain ) = P_ebu_hc5 ELSE P_ebu_hc5 = ebu_index_table( PARAM_ebu_hc5 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_hc5 ) = .FALSE. ebu_dname_table( idomain, P_ebu_hc5 ) = 'ebu_hc5' ebu_desc_table( idomain, P_ebu_hc5 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_hc5 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_hc5 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_hc5 )%stream(2) = 0 ! 00000000 F_ebu_hc5 = .TRUE. IF ( ebu_index_table( PARAM_ebu_hc8 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_hc8 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_hc8 , idomain ) = P_ebu_hc8 ELSE P_ebu_hc8 = ebu_index_table( PARAM_ebu_hc8 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_hc8 ) = .FALSE. ebu_dname_table( idomain, P_ebu_hc8 ) = 'ebu_hc8' ebu_desc_table( idomain, P_ebu_hc8 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_hc8 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_hc8 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_hc8 )%stream(2) = 0 ! 00000000 F_ebu_hc8 = .TRUE. IF ( ebu_index_table( PARAM_ebu_ete , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ete = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ete , idomain ) = P_ebu_ete ELSE P_ebu_ete = ebu_index_table( PARAM_ebu_ete , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ete ) = .FALSE. ebu_dname_table( idomain, P_ebu_ete ) = 'ebu_ete' ebu_desc_table( idomain, P_ebu_ete ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ete ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ete )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_ete )%stream(2) = 0 ! 00000000 F_ebu_ete = .TRUE. IF ( ebu_index_table( PARAM_ebu_olt , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_olt = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_olt , idomain ) = P_ebu_olt ELSE P_ebu_olt = ebu_index_table( PARAM_ebu_olt , idomain ) END IF ebu_boundary_table( idomain, P_ebu_olt ) = .FALSE. ebu_dname_table( idomain, P_ebu_olt ) = 'ebu_olt' ebu_desc_table( idomain, P_ebu_olt ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_olt ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_olt )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_olt )%stream(2) = 0 ! 00000000 F_ebu_olt = .TRUE. IF ( ebu_index_table( PARAM_ebu_oli , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_oli = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_oli , idomain ) = P_ebu_oli ELSE P_ebu_oli = ebu_index_table( PARAM_ebu_oli , idomain ) END IF ebu_boundary_table( idomain, P_ebu_oli ) = .FALSE. ebu_dname_table( idomain, P_ebu_oli ) = 'ebu_oli' ebu_desc_table( idomain, P_ebu_oli ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_oli ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_oli )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_oli )%stream(2) = 0 ! 00000000 F_ebu_oli = .TRUE. IF ( ebu_index_table( PARAM_ebu_pm25 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_pm25 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_pm25 , idomain ) = P_ebu_pm25 ELSE P_ebu_pm25 = ebu_index_table( PARAM_ebu_pm25 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_pm25 ) = .FALSE. ebu_dname_table( idomain, P_ebu_pm25 ) = 'ebu_pm25' ebu_desc_table( idomain, P_ebu_pm25 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_pm25 ) = 'ug/m2/s' ebu_streams_table( idomain, P_ebu_pm25 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_pm25 )%stream(2) = 0 ! 00000000 F_ebu_pm25 = .TRUE. IF ( ebu_index_table( PARAM_ebu_pm10 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_pm10 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_pm10 , idomain ) = P_ebu_pm10 ELSE P_ebu_pm10 = ebu_index_table( PARAM_ebu_pm10 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_pm10 ) = .FALSE. ebu_dname_table( idomain, P_ebu_pm10 ) = 'ebu_pm10' ebu_desc_table( idomain, P_ebu_pm10 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_pm10 ) = 'ug/m2/s' ebu_streams_table( idomain, P_ebu_pm10 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_pm10 )%stream(2) = 0 ! 00000000 F_ebu_pm10 = .TRUE. IF ( ebu_index_table( PARAM_ebu_dien , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_dien = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_dien , idomain ) = P_ebu_dien ELSE P_ebu_dien = ebu_index_table( PARAM_ebu_dien , idomain ) END IF ebu_boundary_table( idomain, P_ebu_dien ) = .FALSE. ebu_dname_table( idomain, P_ebu_dien ) = 'ebu_dien' ebu_desc_table( idomain, P_ebu_dien ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_dien ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_dien )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_dien )%stream(2) = 0 ! 00000000 F_ebu_dien = .TRUE. IF ( ebu_index_table( PARAM_ebu_iso , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_iso = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_iso , idomain ) = P_ebu_iso ELSE P_ebu_iso = ebu_index_table( PARAM_ebu_iso , idomain ) END IF ebu_boundary_table( idomain, P_ebu_iso ) = .FALSE. ebu_dname_table( idomain, P_ebu_iso ) = 'ebu_iso' ebu_desc_table( idomain, P_ebu_iso ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_iso ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_iso )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_iso )%stream(2) = 0 ! 00000000 F_ebu_iso = .TRUE. IF ( ebu_index_table( PARAM_ebu_api , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_api = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_api , idomain ) = P_ebu_api ELSE P_ebu_api = ebu_index_table( PARAM_ebu_api , idomain ) END IF ebu_boundary_table( idomain, P_ebu_api ) = .FALSE. ebu_dname_table( idomain, P_ebu_api ) = 'ebu_api' ebu_desc_table( idomain, P_ebu_api ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_api ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_api )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_api )%stream(2) = 0 ! 00000000 F_ebu_api = .TRUE. IF ( ebu_index_table( PARAM_ebu_lim , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_lim = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_lim , idomain ) = P_ebu_lim ELSE P_ebu_lim = ebu_index_table( PARAM_ebu_lim , idomain ) END IF ebu_boundary_table( idomain, P_ebu_lim ) = .FALSE. ebu_dname_table( idomain, P_ebu_lim ) = 'ebu_lim' ebu_desc_table( idomain, P_ebu_lim ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_lim ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_lim )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_lim )%stream(2) = 0 ! 00000000 F_ebu_lim = .TRUE. IF ( ebu_index_table( PARAM_ebu_tol , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_tol = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_tol , idomain ) = P_ebu_tol ELSE P_ebu_tol = ebu_index_table( PARAM_ebu_tol , idomain ) END IF ebu_boundary_table( idomain, P_ebu_tol ) = .FALSE. ebu_dname_table( idomain, P_ebu_tol ) = 'ebu_tol' ebu_desc_table( idomain, P_ebu_tol ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_tol ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_tol )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_tol )%stream(2) = 0 ! 00000000 F_ebu_tol = .TRUE. IF ( ebu_index_table( PARAM_ebu_csl , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_csl = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_csl , idomain ) = P_ebu_csl ELSE P_ebu_csl = ebu_index_table( PARAM_ebu_csl , idomain ) END IF ebu_boundary_table( idomain, P_ebu_csl ) = .FALSE. ebu_dname_table( idomain, P_ebu_csl ) = 'ebu_csl' ebu_desc_table( idomain, P_ebu_csl ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_csl ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_csl )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_csl )%stream(2) = 0 ! 00000000 F_ebu_csl = .TRUE. IF ( ebu_index_table( PARAM_ebu_hcho , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_hcho = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_hcho , idomain ) = P_ebu_hcho ELSE P_ebu_hcho = ebu_index_table( PARAM_ebu_hcho , idomain ) END IF ebu_boundary_table( idomain, P_ebu_hcho ) = .FALSE. ebu_dname_table( idomain, P_ebu_hcho ) = 'ebu_hcho' ebu_desc_table( idomain, P_ebu_hcho ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_hcho ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_hcho )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_hcho )%stream(2) = 0 ! 00000000 F_ebu_hcho = .TRUE. IF ( ebu_index_table( PARAM_ebu_ald , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ald = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ald , idomain ) = P_ebu_ald ELSE P_ebu_ald = ebu_index_table( PARAM_ebu_ald , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ald ) = .FALSE. ebu_dname_table( idomain, P_ebu_ald ) = 'ebu_ald' ebu_desc_table( idomain, P_ebu_ald ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ald ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ald )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_ald )%stream(2) = 0 ! 00000000 F_ebu_ald = .TRUE. IF ( ebu_index_table( PARAM_ebu_ket , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ket = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ket , idomain ) = P_ebu_ket ELSE P_ebu_ket = ebu_index_table( PARAM_ebu_ket , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ket ) = .FALSE. ebu_dname_table( idomain, P_ebu_ket ) = 'ebu_ket' ebu_desc_table( idomain, P_ebu_ket ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ket ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ket )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_ket )%stream(2) = 0 ! 00000000 F_ebu_ket = .TRUE. IF ( ebu_index_table( PARAM_ebu_macr , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_macr = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_macr , idomain ) = P_ebu_macr ELSE P_ebu_macr = ebu_index_table( PARAM_ebu_macr , idomain ) END IF ebu_boundary_table( idomain, P_ebu_macr ) = .FALSE. ebu_dname_table( idomain, P_ebu_macr ) = 'ebu_macr' ebu_desc_table( idomain, P_ebu_macr ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_macr ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_macr )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_macr )%stream(2) = 0 ! 00000000 F_ebu_macr = .TRUE. IF ( ebu_index_table( PARAM_ebu_ora1 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ora1 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ora1 , idomain ) = P_ebu_ora1 ELSE P_ebu_ora1 = ebu_index_table( PARAM_ebu_ora1 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ora1 ) = .FALSE. ebu_dname_table( idomain, P_ebu_ora1 ) = 'ebu_ora1' ebu_desc_table( idomain, P_ebu_ora1 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ora1 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ora1 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_ora1 )%stream(2) = 0 ! 00000000 F_ebu_ora1 = .TRUE. IF ( ebu_index_table( PARAM_ebu_ora2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ora2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ora2 , idomain ) = P_ebu_ora2 ELSE P_ebu_ora2 = ebu_index_table( PARAM_ebu_ora2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ora2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_ora2 ) = 'ebu_ora2' ebu_desc_table( idomain, P_ebu_ora2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ora2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ora2 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_ora2 )%stream(2) = 0 ! 00000000 F_ebu_ora2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_so2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_so2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_so2 , idomain ) = P_ebu_so2 ELSE P_ebu_so2 = ebu_index_table( PARAM_ebu_so2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_so2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_so2 ) = 'ebu_so2' ebu_desc_table( idomain, P_ebu_so2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_so2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_so2 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_so2 )%stream(2) = 0 ! 00000000 F_ebu_so2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_nh3 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_nh3 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_nh3 , idomain ) = P_ebu_nh3 ELSE P_ebu_nh3 = ebu_index_table( PARAM_ebu_nh3 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_nh3 ) = .FALSE. ebu_dname_table( idomain, P_ebu_nh3 ) = 'ebu_nh3' ebu_desc_table( idomain, P_ebu_nh3 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_nh3 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_nh3 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_nh3 )%stream(2) = 0 ! 00000000 F_ebu_nh3 = .TRUE. IF ( ebu_index_table( PARAM_ebu_oc , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_oc = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_oc , idomain ) = P_ebu_oc ELSE P_ebu_oc = ebu_index_table( PARAM_ebu_oc , idomain ) END IF ebu_boundary_table( idomain, P_ebu_oc ) = .FALSE. ebu_dname_table( idomain, P_ebu_oc ) = 'ebu_oc' ebu_desc_table( idomain, P_ebu_oc ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_oc ) = 'ug/m2/s' ebu_streams_table( idomain, P_ebu_oc )%stream(1) = 1 ! 00000001 ebu_streams_table( idomain, P_ebu_oc )%stream(2) = 0 ! 00000000 F_ebu_oc = .TRUE. IF ( ebu_index_table( PARAM_ebu_bc , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_bc = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_bc , idomain ) = P_ebu_bc ELSE P_ebu_bc = ebu_index_table( PARAM_ebu_bc , idomain ) END IF ebu_boundary_table( idomain, P_ebu_bc ) = .FALSE. ebu_dname_table( idomain, P_ebu_bc ) = 'ebu_bc' ebu_desc_table( idomain, P_ebu_bc ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_bc ) = 'ug/m2/s' ebu_streams_table( idomain, P_ebu_bc )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_bc )%stream(2) = 0 ! 00000000 F_ebu_bc = .TRUE. IF ( ebu_index_table( PARAM_ebu_sulf , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_sulf = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_sulf , idomain ) = P_ebu_sulf ELSE P_ebu_sulf = ebu_index_table( PARAM_ebu_sulf , idomain ) END IF ebu_boundary_table( idomain, P_ebu_sulf ) = .FALSE. ebu_dname_table( idomain, P_ebu_sulf ) = 'ebu_sulf' ebu_desc_table( idomain, P_ebu_sulf ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_sulf ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_sulf )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_sulf )%stream(2) = 0 ! 00000000 F_ebu_sulf = .TRUE. IF ( ebu_index_table( PARAM_ebu_dms , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_dms = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_dms , idomain ) = P_ebu_dms ELSE P_ebu_dms = ebu_index_table( PARAM_ebu_dms , idomain ) END IF ebu_boundary_table( idomain, P_ebu_dms ) = .FALSE. ebu_dname_table( idomain, P_ebu_dms ) = 'ebu_dms' ebu_desc_table( idomain, P_ebu_dms ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_dms ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_dms )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_dms )%stream(2) = 0 ! 00000000 F_ebu_dms = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_no , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_no = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_no , idomain ) = P_ebu_in_no ELSE P_ebu_in_no = ebu_in_index_table( PARAM_ebu_in_no , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_no ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_no ) = 'ebu_in_no' ebu_in_desc_table( idomain, P_ebu_in_no ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_no ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_no )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_no )%stream(2) = 2 ! 00000002 F_ebu_in_no = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_no2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) = P_ebu_in_no2 ELSE P_ebu_in_no2 = ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_no2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_no2 ) = 'ebu_in_no2' ebu_in_desc_table( idomain, P_ebu_in_no2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_no2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_no2 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_no2 )%stream(2) = 2 ! 00000002 F_ebu_in_no2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_co , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_co = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_co , idomain ) = P_ebu_in_co ELSE P_ebu_in_co = ebu_in_index_table( PARAM_ebu_in_co , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_co ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_co ) = 'ebu_in_co' ebu_in_desc_table( idomain, P_ebu_in_co ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_co ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_co )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_co )%stream(2) = 2 ! 00000002 F_ebu_in_co = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_co2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_co2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_co2 , idomain ) = P_ebu_in_co2 ELSE P_ebu_in_co2 = ebu_in_index_table( PARAM_ebu_in_co2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_co2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_co2 ) = 'ebu_in_co2' ebu_in_desc_table( idomain, P_ebu_in_co2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_co2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_co2 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_co2 )%stream(2) = 2 ! 00000002 F_ebu_in_co2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_eth , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_eth = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_eth , idomain ) = P_ebu_in_eth ELSE P_ebu_in_eth = ebu_in_index_table( PARAM_ebu_in_eth , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_eth ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_eth ) = 'ebu_in_eth' ebu_in_desc_table( idomain, P_ebu_in_eth ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_eth ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_eth )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_eth )%stream(2) = 2 ! 00000002 F_ebu_in_eth = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_hc3 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_hc3 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_hc3 , idomain ) = P_ebu_in_hc3 ELSE P_ebu_in_hc3 = ebu_in_index_table( PARAM_ebu_in_hc3 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_hc3 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_hc3 ) = 'ebu_in_hc3' ebu_in_desc_table( idomain, P_ebu_in_hc3 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_hc3 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_hc3 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_hc3 )%stream(2) = 2 ! 00000002 F_ebu_in_hc3 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_hc5 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_hc5 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_hc5 , idomain ) = P_ebu_in_hc5 ELSE P_ebu_in_hc5 = ebu_in_index_table( PARAM_ebu_in_hc5 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_hc5 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_hc5 ) = 'ebu_in_hc5' ebu_in_desc_table( idomain, P_ebu_in_hc5 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_hc5 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_hc5 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_hc5 )%stream(2) = 2 ! 00000002 F_ebu_in_hc5 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_hc8 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_hc8 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_hc8 , idomain ) = P_ebu_in_hc8 ELSE P_ebu_in_hc8 = ebu_in_index_table( PARAM_ebu_in_hc8 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_hc8 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_hc8 ) = 'ebu_in_hc8' ebu_in_desc_table( idomain, P_ebu_in_hc8 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_hc8 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_hc8 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_hc8 )%stream(2) = 2 ! 00000002 F_ebu_in_hc8 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ete , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ete = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ete , idomain ) = P_ebu_in_ete ELSE P_ebu_in_ete = ebu_in_index_table( PARAM_ebu_in_ete , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ete ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ete ) = 'ebu_in_ete' ebu_in_desc_table( idomain, P_ebu_in_ete ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ete ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ete )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ete )%stream(2) = 2 ! 00000002 F_ebu_in_ete = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_olt , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_olt = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_olt , idomain ) = P_ebu_in_olt ELSE P_ebu_in_olt = ebu_in_index_table( PARAM_ebu_in_olt , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_olt ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_olt ) = 'ebu_in_olt' ebu_in_desc_table( idomain, P_ebu_in_olt ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_olt ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_olt )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_olt )%stream(2) = 2 ! 00000002 F_ebu_in_olt = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_oli , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_oli = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_oli , idomain ) = P_ebu_in_oli ELSE P_ebu_in_oli = ebu_in_index_table( PARAM_ebu_in_oli , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_oli ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_oli ) = 'ebu_in_oli' ebu_in_desc_table( idomain, P_ebu_in_oli ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_oli ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_oli )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_oli )%stream(2) = 2 ! 00000002 F_ebu_in_oli = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_pm25 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_pm25 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_pm25 , idomain ) = P_ebu_in_pm25 ELSE P_ebu_in_pm25 = ebu_in_index_table( PARAM_ebu_in_pm25 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_pm25 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_pm25 ) = 'ebu_in_pm25' ebu_in_desc_table( idomain, P_ebu_in_pm25 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_pm25 ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_pm25 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_pm25 )%stream(2) = 2 ! 00000002 F_ebu_in_pm25 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_pm10 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_pm10 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_pm10 , idomain ) = P_ebu_in_pm10 ELSE P_ebu_in_pm10 = ebu_in_index_table( PARAM_ebu_in_pm10 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_pm10 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_pm10 ) = 'ebu_in_pm10' ebu_in_desc_table( idomain, P_ebu_in_pm10 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_pm10 ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_pm10 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_pm10 )%stream(2) = 2 ! 00000002 F_ebu_in_pm10 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_dien , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_dien = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_dien , idomain ) = P_ebu_in_dien ELSE P_ebu_in_dien = ebu_in_index_table( PARAM_ebu_in_dien , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_dien ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_dien ) = 'ebu_in_dien' ebu_in_desc_table( idomain, P_ebu_in_dien ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_dien ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_dien )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_dien )%stream(2) = 2 ! 00000002 F_ebu_in_dien = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_iso , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_iso = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_iso , idomain ) = P_ebu_in_iso ELSE P_ebu_in_iso = ebu_in_index_table( PARAM_ebu_in_iso , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_iso ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_iso ) = 'ebu_in_iso' ebu_in_desc_table( idomain, P_ebu_in_iso ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_iso ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_iso )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_iso )%stream(2) = 2 ! 00000002 F_ebu_in_iso = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_api , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_api = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_api , idomain ) = P_ebu_in_api ELSE P_ebu_in_api = ebu_in_index_table( PARAM_ebu_in_api , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_api ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_api ) = 'ebu_in_api' ebu_in_desc_table( idomain, P_ebu_in_api ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_api ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_api )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_api )%stream(2) = 2 ! 00000002 F_ebu_in_api = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_lim , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_lim = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_lim , idomain ) = P_ebu_in_lim ELSE P_ebu_in_lim = ebu_in_index_table( PARAM_ebu_in_lim , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_lim ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_lim ) = 'ebu_in_lim' ebu_in_desc_table( idomain, P_ebu_in_lim ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_lim ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_lim )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_lim )%stream(2) = 2 ! 00000002 F_ebu_in_lim = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_tol , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_tol = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_tol , idomain ) = P_ebu_in_tol ELSE P_ebu_in_tol = ebu_in_index_table( PARAM_ebu_in_tol , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_tol ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_tol ) = 'ebu_in_tol' ebu_in_desc_table( idomain, P_ebu_in_tol ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_tol ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_tol )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_tol )%stream(2) = 2 ! 00000002 F_ebu_in_tol = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_csl , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_csl = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_csl , idomain ) = P_ebu_in_csl ELSE P_ebu_in_csl = ebu_in_index_table( PARAM_ebu_in_csl , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_csl ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_csl ) = 'ebu_in_csl' ebu_in_desc_table( idomain, P_ebu_in_csl ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_csl ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_csl )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_csl )%stream(2) = 2 ! 00000002 F_ebu_in_csl = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_hcho , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_hcho = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_hcho , idomain ) = P_ebu_in_hcho ELSE P_ebu_in_hcho = ebu_in_index_table( PARAM_ebu_in_hcho , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_hcho ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_hcho ) = 'ebu_in_hcho' ebu_in_desc_table( idomain, P_ebu_in_hcho ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_hcho ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_hcho )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_hcho )%stream(2) = 2 ! 00000002 F_ebu_in_hcho = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ald , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ald = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ald , idomain ) = P_ebu_in_ald ELSE P_ebu_in_ald = ebu_in_index_table( PARAM_ebu_in_ald , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ald ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ald ) = 'ebu_in_ald' ebu_in_desc_table( idomain, P_ebu_in_ald ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ald ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ald )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ald )%stream(2) = 2 ! 00000002 F_ebu_in_ald = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_xyl , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_xyl = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_xyl , idomain ) = P_ebu_in_xyl ELSE P_ebu_in_xyl = ebu_in_index_table( PARAM_ebu_in_xyl , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_xyl ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_xyl ) = 'ebu_in_xyl' ebu_in_desc_table( idomain, P_ebu_in_xyl ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_xyl ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_xyl )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_xyl )%stream(2) = 2 ! 00000002 F_ebu_in_xyl = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ket , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ket = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ket , idomain ) = P_ebu_in_ket ELSE P_ebu_in_ket = ebu_in_index_table( PARAM_ebu_in_ket , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ket ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ket ) = 'ebu_in_ket' ebu_in_desc_table( idomain, P_ebu_in_ket ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ket ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ket )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ket )%stream(2) = 2 ! 00000002 F_ebu_in_ket = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_macr , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_macr = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_macr , idomain ) = P_ebu_in_macr ELSE P_ebu_in_macr = ebu_in_index_table( PARAM_ebu_in_macr , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_macr ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_macr ) = 'ebu_in_macr' ebu_in_desc_table( idomain, P_ebu_in_macr ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_macr ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_macr )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_macr )%stream(2) = 2 ! 00000002 F_ebu_in_macr = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ora1 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ora1 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ora1 , idomain ) = P_ebu_in_ora1 ELSE P_ebu_in_ora1 = ebu_in_index_table( PARAM_ebu_in_ora1 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ora1 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ora1 ) = 'ebu_in_ora1' ebu_in_desc_table( idomain, P_ebu_in_ora1 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ora1 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ora1 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ora1 )%stream(2) = 2 ! 00000002 F_ebu_in_ora1 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ora2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ora2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ora2 , idomain ) = P_ebu_in_ora2 ELSE P_ebu_in_ora2 = ebu_in_index_table( PARAM_ebu_in_ora2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ora2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ora2 ) = 'ebu_in_ora2' ebu_in_desc_table( idomain, P_ebu_in_ora2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ora2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ora2 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ora2 )%stream(2) = 2 ! 00000002 F_ebu_in_ora2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_so2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) = P_ebu_in_so2 ELSE P_ebu_in_so2 = ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_so2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_so2 ) = 'ebu_in_so2' ebu_in_desc_table( idomain, P_ebu_in_so2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_so2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_so2 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_so2 )%stream(2) = 2 ! 00000002 F_ebu_in_so2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_nh3 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) = P_ebu_in_nh3 ELSE P_ebu_in_nh3 = ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_nh3 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_nh3 ) = 'ebu_in_nh3' ebu_in_desc_table( idomain, P_ebu_in_nh3 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_nh3 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_nh3 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_nh3 )%stream(2) = 2 ! 00000002 F_ebu_in_nh3 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_oc , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_oc = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_oc , idomain ) = P_ebu_in_oc ELSE P_ebu_in_oc = ebu_in_index_table( PARAM_ebu_in_oc , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_oc ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_oc ) = 'ebu_in_oc' ebu_in_desc_table( idomain, P_ebu_in_oc ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_oc ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_oc )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_oc )%stream(2) = 2 ! 00000002 F_ebu_in_oc = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_bc , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_bc = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_bc , idomain ) = P_ebu_in_bc ELSE P_ebu_in_bc = ebu_in_index_table( PARAM_ebu_in_bc , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_bc ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_bc ) = 'ebu_in_bc' ebu_in_desc_table( idomain, P_ebu_in_bc ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_bc ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_bc )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_bc )%stream(2) = 2 ! 00000002 F_ebu_in_bc = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_sulf , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_sulf = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_sulf , idomain ) = P_ebu_in_sulf ELSE P_ebu_in_sulf = ebu_in_index_table( PARAM_ebu_in_sulf , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_sulf ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_sulf ) = 'ebu_in_sulf' ebu_in_desc_table( idomain, P_ebu_in_sulf ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_sulf ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_sulf )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_sulf )%stream(2) = 2 ! 00000002 F_ebu_in_sulf = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_dms , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_dms = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_dms , idomain ) = P_ebu_in_dms ELSE P_ebu_in_dms = ebu_in_index_table( PARAM_ebu_in_dms , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_dms ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_dms ) = 'ebu_in_dms' ebu_in_desc_table( idomain, P_ebu_in_dms ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_dms ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_dms )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_dms )%stream(2) = 2 ! 00000002 F_ebu_in_dms = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ash , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ash = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ash , idomain ) = P_ebu_in_ash ELSE P_ebu_in_ash = ebu_in_index_table( PARAM_ebu_in_ash , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ash ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ash ) = 'ebu_in_ash' ebu_in_desc_table( idomain, P_ebu_in_ash ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ash ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_ash )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ash )%stream(2) = 2 ! 00000002 F_ebu_in_ash = .TRUE. END IF IF (model_config_rec%biomass_burn_opt(idomain)==2)THEN IF ( ebu_index_table( PARAM_ebu_co , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_co = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_co , idomain ) = P_ebu_co ELSE P_ebu_co = ebu_index_table( PARAM_ebu_co , idomain ) END IF ebu_boundary_table( idomain, P_ebu_co ) = .FALSE. ebu_dname_table( idomain, P_ebu_co ) = 'ebu_co' ebu_desc_table( idomain, P_ebu_co ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_co ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_co )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_co )%stream(2) = 0 ! 00000000 F_ebu_co = .TRUE. IF ( ebu_index_table( PARAM_ebu_no , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_no = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_no , idomain ) = P_ebu_no ELSE P_ebu_no = ebu_index_table( PARAM_ebu_no , idomain ) END IF ebu_boundary_table( idomain, P_ebu_no ) = .FALSE. ebu_dname_table( idomain, P_ebu_no ) = 'ebu_no' ebu_desc_table( idomain, P_ebu_no ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_no ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_no )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_no )%stream(2) = 0 ! 00000000 F_ebu_no = .TRUE. IF ( ebu_index_table( PARAM_ebu_no2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_no2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_no2 , idomain ) = P_ebu_no2 ELSE P_ebu_no2 = ebu_index_table( PARAM_ebu_no2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_no2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_no2 ) = 'ebu_no2' ebu_desc_table( idomain, P_ebu_no2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_no2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_no2 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_no2 )%stream(2) = 0 ! 00000000 F_ebu_no2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_bigalk , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_bigalk = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_bigalk , idomain ) = P_ebu_bigalk ELSE P_ebu_bigalk = ebu_index_table( PARAM_ebu_bigalk , idomain ) END IF ebu_boundary_table( idomain, P_ebu_bigalk ) = .FALSE. ebu_dname_table( idomain, P_ebu_bigalk ) = 'ebu_bigalk' ebu_desc_table( idomain, P_ebu_bigalk ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_bigalk ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_bigalk )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_bigalk )%stream(2) = 0 ! 00000000 F_ebu_bigalk = .TRUE. IF ( ebu_index_table( PARAM_ebu_bigene , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_bigene = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_bigene , idomain ) = P_ebu_bigene ELSE P_ebu_bigene = ebu_index_table( PARAM_ebu_bigene , idomain ) END IF ebu_boundary_table( idomain, P_ebu_bigene ) = .FALSE. ebu_dname_table( idomain, P_ebu_bigene ) = 'ebu_bigene' ebu_desc_table( idomain, P_ebu_bigene ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_bigene ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_bigene )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_bigene )%stream(2) = 0 ! 00000000 F_ebu_bigene = .TRUE. IF ( ebu_index_table( PARAM_ebu_c2h4 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c2h4 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c2h4 , idomain ) = P_ebu_c2h4 ELSE P_ebu_c2h4 = ebu_index_table( PARAM_ebu_c2h4 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c2h4 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c2h4 ) = 'ebu_c2h4' ebu_desc_table( idomain, P_ebu_c2h4 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c2h4 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c2h4 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_c2h4 )%stream(2) = 0 ! 00000000 F_ebu_c2h4 = .TRUE. IF ( ebu_index_table( PARAM_ebu_c2h5oh , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c2h5oh = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c2h5oh , idomain ) = P_ebu_c2h5oh ELSE P_ebu_c2h5oh = ebu_index_table( PARAM_ebu_c2h5oh , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c2h5oh ) = .FALSE. ebu_dname_table( idomain, P_ebu_c2h5oh ) = 'ebu_c2h5oh' ebu_desc_table( idomain, P_ebu_c2h5oh ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c2h5oh ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c2h5oh )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_c2h5oh )%stream(2) = 0 ! 00000000 F_ebu_c2h5oh = .TRUE. IF ( ebu_index_table( PARAM_ebu_c2h6 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c2h6 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c2h6 , idomain ) = P_ebu_c2h6 ELSE P_ebu_c2h6 = ebu_index_table( PARAM_ebu_c2h6 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c2h6 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c2h6 ) = 'ebu_c2h6' ebu_desc_table( idomain, P_ebu_c2h6 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c2h6 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c2h6 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_c2h6 )%stream(2) = 0 ! 00000000 F_ebu_c2h6 = .TRUE. IF ( ebu_index_table( PARAM_ebu_c3h6 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c3h6 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c3h6 , idomain ) = P_ebu_c3h6 ELSE P_ebu_c3h6 = ebu_index_table( PARAM_ebu_c3h6 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c3h6 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c3h6 ) = 'ebu_c3h6' ebu_desc_table( idomain, P_ebu_c3h6 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c3h6 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c3h6 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_c3h6 )%stream(2) = 0 ! 00000000 F_ebu_c3h6 = .TRUE. IF ( ebu_index_table( PARAM_ebu_c3h8 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c3h8 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c3h8 , idomain ) = P_ebu_c3h8 ELSE P_ebu_c3h8 = ebu_index_table( PARAM_ebu_c3h8 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c3h8 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c3h8 ) = 'ebu_c3h8' ebu_desc_table( idomain, P_ebu_c3h8 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c3h8 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c3h8 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_c3h8 )%stream(2) = 0 ! 00000000 F_ebu_c3h8 = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch2o , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch2o = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch2o , idomain ) = P_ebu_ch2o ELSE P_ebu_ch2o = ebu_index_table( PARAM_ebu_ch2o , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch2o ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch2o ) = 'ebu_ch2o' ebu_desc_table( idomain, P_ebu_ch2o ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch2o ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch2o )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_ch2o )%stream(2) = 0 ! 00000000 F_ebu_ch2o = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch3cho , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch3cho = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch3cho , idomain ) = P_ebu_ch3cho ELSE P_ebu_ch3cho = ebu_index_table( PARAM_ebu_ch3cho , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch3cho ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch3cho ) = 'ebu_ch3cho' ebu_desc_table( idomain, P_ebu_ch3cho ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch3cho ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch3cho )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_ch3cho )%stream(2) = 0 ! 00000000 F_ebu_ch3cho = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch3coch3 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch3coch3 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch3coch3 , idomain ) = P_ebu_ch3coch3 ELSE P_ebu_ch3coch3 = ebu_index_table( PARAM_ebu_ch3coch3 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch3coch3 ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch3coch3 ) = 'ebu_ch3coch3' ebu_desc_table( idomain, P_ebu_ch3coch3 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch3coch3 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch3coch3 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_ch3coch3 )%stream(2) = 0 ! 00000000 F_ebu_ch3coch3 = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch3oh , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch3oh = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch3oh , idomain ) = P_ebu_ch3oh ELSE P_ebu_ch3oh = ebu_index_table( PARAM_ebu_ch3oh , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch3oh ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch3oh ) = 'ebu_ch3oh' ebu_desc_table( idomain, P_ebu_ch3oh ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch3oh ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch3oh )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_ch3oh )%stream(2) = 0 ! 00000000 F_ebu_ch3oh = .TRUE. IF ( ebu_index_table( PARAM_ebu_mek , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_mek = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_mek , idomain ) = P_ebu_mek ELSE P_ebu_mek = ebu_index_table( PARAM_ebu_mek , idomain ) END IF ebu_boundary_table( idomain, P_ebu_mek ) = .FALSE. ebu_dname_table( idomain, P_ebu_mek ) = 'ebu_mek' ebu_desc_table( idomain, P_ebu_mek ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_mek ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_mek )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_mek )%stream(2) = 0 ! 00000000 F_ebu_mek = .TRUE. IF ( ebu_index_table( PARAM_ebu_so2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_so2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_so2 , idomain ) = P_ebu_so2 ELSE P_ebu_so2 = ebu_index_table( PARAM_ebu_so2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_so2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_so2 ) = 'ebu_so2' ebu_desc_table( idomain, P_ebu_so2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_so2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_so2 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_so2 )%stream(2) = 0 ! 00000000 F_ebu_so2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_toluene , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_toluene = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_toluene , idomain ) = P_ebu_toluene ELSE P_ebu_toluene = ebu_index_table( PARAM_ebu_toluene , idomain ) END IF ebu_boundary_table( idomain, P_ebu_toluene ) = .FALSE. ebu_dname_table( idomain, P_ebu_toluene ) = 'ebu_toluene' ebu_desc_table( idomain, P_ebu_toluene ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_toluene ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_toluene )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_toluene )%stream(2) = 0 ! 00000000 F_ebu_toluene = .TRUE. IF ( ebu_index_table( PARAM_ebu_nh3 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_nh3 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_nh3 , idomain ) = P_ebu_nh3 ELSE P_ebu_nh3 = ebu_index_table( PARAM_ebu_nh3 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_nh3 ) = .FALSE. ebu_dname_table( idomain, P_ebu_nh3 ) = 'ebu_nh3' ebu_desc_table( idomain, P_ebu_nh3 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_nh3 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_nh3 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_nh3 )%stream(2) = 0 ! 00000000 F_ebu_nh3 = .TRUE. IF ( ebu_index_table( PARAM_ebu_oc , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_oc = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_oc , idomain ) = P_ebu_oc ELSE P_ebu_oc = ebu_index_table( PARAM_ebu_oc , idomain ) END IF ebu_boundary_table( idomain, P_ebu_oc ) = .FALSE. ebu_dname_table( idomain, P_ebu_oc ) = 'ebu_oc' ebu_desc_table( idomain, P_ebu_oc ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_oc ) = 'ug/m2/s' ebu_streams_table( idomain, P_ebu_oc )%stream(1) = 1 ! 00000001 ebu_streams_table( idomain, P_ebu_oc )%stream(2) = 0 ! 00000000 F_ebu_oc = .TRUE. IF ( ebu_index_table( PARAM_ebu_bc , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_bc = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_bc , idomain ) = P_ebu_bc ELSE P_ebu_bc = ebu_index_table( PARAM_ebu_bc , idomain ) END IF ebu_boundary_table( idomain, P_ebu_bc ) = .FALSE. ebu_dname_table( idomain, P_ebu_bc ) = 'ebu_bc' ebu_desc_table( idomain, P_ebu_bc ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_bc ) = 'ug/m2/s' ebu_streams_table( idomain, P_ebu_bc )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_bc )%stream(2) = 0 ! 00000000 F_ebu_bc = .TRUE. IF ( ebu_index_table( PARAM_ebu_pm25 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_pm25 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_pm25 , idomain ) = P_ebu_pm25 ELSE P_ebu_pm25 = ebu_index_table( PARAM_ebu_pm25 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_pm25 ) = .FALSE. ebu_dname_table( idomain, P_ebu_pm25 ) = 'ebu_pm25' ebu_desc_table( idomain, P_ebu_pm25 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_pm25 ) = 'ug/m2/s' ebu_streams_table( idomain, P_ebu_pm25 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_pm25 )%stream(2) = 0 ! 00000000 F_ebu_pm25 = .TRUE. IF ( ebu_index_table( PARAM_ebu_pm10 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_pm10 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_pm10 , idomain ) = P_ebu_pm10 ELSE P_ebu_pm10 = ebu_index_table( PARAM_ebu_pm10 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_pm10 ) = .FALSE. ebu_dname_table( idomain, P_ebu_pm10 ) = 'ebu_pm10' ebu_desc_table( idomain, P_ebu_pm10 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_pm10 ) = 'ug/m2/s' ebu_streams_table( idomain, P_ebu_pm10 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_pm10 )%stream(2) = 0 ! 00000000 F_ebu_pm10 = .TRUE. IF ( ebu_index_table( PARAM_ebu_open , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_open = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_open , idomain ) = P_ebu_open ELSE P_ebu_open = ebu_index_table( PARAM_ebu_open , idomain ) END IF ebu_boundary_table( idomain, P_ebu_open ) = .FALSE. ebu_dname_table( idomain, P_ebu_open ) = 'ebu_open' ebu_desc_table( idomain, P_ebu_open ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_open ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_open )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_open )%stream(2) = 0 ! 00000000 F_ebu_open = .TRUE. IF ( ebu_index_table( PARAM_ebu_c10h16 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c10h16 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c10h16 , idomain ) = P_ebu_c10h16 ELSE P_ebu_c10h16 = ebu_index_table( PARAM_ebu_c10h16 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c10h16 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c10h16 ) = 'ebu_c10h16' ebu_desc_table( idomain, P_ebu_c10h16 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c10h16 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c10h16 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_c10h16 )%stream(2) = 0 ! 00000000 F_ebu_c10h16 = .TRUE. IF ( ebu_index_table( PARAM_ebu_mgly , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_mgly = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_mgly , idomain ) = P_ebu_mgly ELSE P_ebu_mgly = ebu_index_table( PARAM_ebu_mgly , idomain ) END IF ebu_boundary_table( idomain, P_ebu_mgly ) = .FALSE. ebu_dname_table( idomain, P_ebu_mgly ) = 'ebu_mgly' ebu_desc_table( idomain, P_ebu_mgly ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_mgly ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_mgly )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_mgly )%stream(2) = 0 ! 00000000 F_ebu_mgly = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch3cooh , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch3cooh = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch3cooh , idomain ) = P_ebu_ch3cooh ELSE P_ebu_ch3cooh = ebu_index_table( PARAM_ebu_ch3cooh , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch3cooh ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch3cooh ) = 'ebu_ch3cooh' ebu_desc_table( idomain, P_ebu_ch3cooh ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch3cooh ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch3cooh )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_ch3cooh )%stream(2) = 0 ! 00000000 F_ebu_ch3cooh = .TRUE. IF ( ebu_index_table( PARAM_ebu_cres , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_cres = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_cres , idomain ) = P_ebu_cres ELSE P_ebu_cres = ebu_index_table( PARAM_ebu_cres , idomain ) END IF ebu_boundary_table( idomain, P_ebu_cres ) = .FALSE. ebu_dname_table( idomain, P_ebu_cres ) = 'ebu_cres' ebu_desc_table( idomain, P_ebu_cres ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_cres ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_cres )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_cres )%stream(2) = 0 ! 00000000 F_ebu_cres = .TRUE. IF ( ebu_index_table( PARAM_ebu_glyald , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_glyald = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_glyald , idomain ) = P_ebu_glyald ELSE P_ebu_glyald = ebu_index_table( PARAM_ebu_glyald , idomain ) END IF ebu_boundary_table( idomain, P_ebu_glyald ) = .FALSE. ebu_dname_table( idomain, P_ebu_glyald ) = 'ebu_glyald' ebu_desc_table( idomain, P_ebu_glyald ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_glyald ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_glyald )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_glyald )%stream(2) = 0 ! 00000000 F_ebu_glyald = .TRUE. IF ( ebu_index_table( PARAM_ebu_gly , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_gly = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_gly , idomain ) = P_ebu_gly ELSE P_ebu_gly = ebu_index_table( PARAM_ebu_gly , idomain ) END IF ebu_boundary_table( idomain, P_ebu_gly ) = .FALSE. ebu_dname_table( idomain, P_ebu_gly ) = 'ebu_gly' ebu_desc_table( idomain, P_ebu_gly ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_gly ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_gly )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_gly )%stream(2) = 0 ! 00000000 F_ebu_gly = .TRUE. IF ( ebu_index_table( PARAM_ebu_acetol , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_acetol = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_acetol , idomain ) = P_ebu_acetol ELSE P_ebu_acetol = ebu_index_table( PARAM_ebu_acetol , idomain ) END IF ebu_boundary_table( idomain, P_ebu_acetol ) = .FALSE. ebu_dname_table( idomain, P_ebu_acetol ) = 'ebu_acetol' ebu_desc_table( idomain, P_ebu_acetol ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_acetol ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_acetol )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_acetol )%stream(2) = 0 ! 00000000 F_ebu_acetol = .TRUE. IF ( ebu_index_table( PARAM_ebu_isop , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_isop = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_isop , idomain ) = P_ebu_isop ELSE P_ebu_isop = ebu_index_table( PARAM_ebu_isop , idomain ) END IF ebu_boundary_table( idomain, P_ebu_isop ) = .FALSE. ebu_dname_table( idomain, P_ebu_isop ) = 'ebu_isop' ebu_desc_table( idomain, P_ebu_isop ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_isop ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_isop )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_isop )%stream(2) = 0 ! 00000000 F_ebu_isop = .TRUE. IF ( ebu_index_table( PARAM_ebu_macr , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_macr = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_macr , idomain ) = P_ebu_macr ELSE P_ebu_macr = ebu_index_table( PARAM_ebu_macr , idomain ) END IF ebu_boundary_table( idomain, P_ebu_macr ) = .FALSE. ebu_dname_table( idomain, P_ebu_macr ) = 'ebu_macr' ebu_desc_table( idomain, P_ebu_macr ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_macr ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_macr )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_macr )%stream(2) = 0 ! 00000000 F_ebu_macr = .TRUE. IF ( ebu_index_table( PARAM_ebu_mvk , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_mvk = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_mvk , idomain ) = P_ebu_mvk ELSE P_ebu_mvk = ebu_index_table( PARAM_ebu_mvk , idomain ) END IF ebu_boundary_table( idomain, P_ebu_mvk ) = .FALSE. ebu_dname_table( idomain, P_ebu_mvk ) = 'ebu_mvk' ebu_desc_table( idomain, P_ebu_mvk ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_mvk ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_mvk )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_mvk )%stream(2) = 0 ! 00000000 F_ebu_mvk = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_co , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_co = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_co , idomain ) = P_ebu_in_co ELSE P_ebu_in_co = ebu_in_index_table( PARAM_ebu_in_co , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_co ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_co ) = 'ebu_in_co' ebu_in_desc_table( idomain, P_ebu_in_co ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_co ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_co )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_co )%stream(2) = 2 ! 00000002 F_ebu_in_co = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_no , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_no = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_no , idomain ) = P_ebu_in_no ELSE P_ebu_in_no = ebu_in_index_table( PARAM_ebu_in_no , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_no ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_no ) = 'ebu_in_no' ebu_in_desc_table( idomain, P_ebu_in_no ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_no ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_no )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_no )%stream(2) = 2 ! 00000002 F_ebu_in_no = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_bigalk , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_bigalk = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_bigalk , idomain ) = P_ebu_in_bigalk ELSE P_ebu_in_bigalk = ebu_in_index_table( PARAM_ebu_in_bigalk , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_bigalk ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_bigalk ) = 'ebu_in_bigalk' ebu_in_desc_table( idomain, P_ebu_in_bigalk ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_bigalk ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_bigalk )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_bigalk )%stream(2) = 2 ! 00000002 F_ebu_in_bigalk = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_bigene , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_bigene = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_bigene , idomain ) = P_ebu_in_bigene ELSE P_ebu_in_bigene = ebu_in_index_table( PARAM_ebu_in_bigene , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_bigene ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_bigene ) = 'ebu_in_bigene' ebu_in_desc_table( idomain, P_ebu_in_bigene ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_bigene ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_bigene )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_bigene )%stream(2) = 2 ! 00000002 F_ebu_in_bigene = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c2h4 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c2h4 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c2h4 , idomain ) = P_ebu_in_c2h4 ELSE P_ebu_in_c2h4 = ebu_in_index_table( PARAM_ebu_in_c2h4 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c2h4 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c2h4 ) = 'ebu_in_c2h4' ebu_in_desc_table( idomain, P_ebu_in_c2h4 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c2h4 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c2h4 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_c2h4 )%stream(2) = 2 ! 00000002 F_ebu_in_c2h4 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c2h5oh , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c2h5oh = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c2h5oh , idomain ) = P_ebu_in_c2h5oh ELSE P_ebu_in_c2h5oh = ebu_in_index_table( PARAM_ebu_in_c2h5oh , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c2h5oh ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c2h5oh ) = 'ebu_in_c2h5oh' ebu_in_desc_table( idomain, P_ebu_in_c2h5oh ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c2h5oh ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c2h5oh )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_c2h5oh )%stream(2) = 2 ! 00000002 F_ebu_in_c2h5oh = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c2h6 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c2h6 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c2h6 , idomain ) = P_ebu_in_c2h6 ELSE P_ebu_in_c2h6 = ebu_in_index_table( PARAM_ebu_in_c2h6 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c2h6 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c2h6 ) = 'ebu_in_c2h6' ebu_in_desc_table( idomain, P_ebu_in_c2h6 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c2h6 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c2h6 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_c2h6 )%stream(2) = 2 ! 00000002 F_ebu_in_c2h6 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c3h6 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c3h6 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c3h6 , idomain ) = P_ebu_in_c3h6 ELSE P_ebu_in_c3h6 = ebu_in_index_table( PARAM_ebu_in_c3h6 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c3h6 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c3h6 ) = 'ebu_in_c3h6' ebu_in_desc_table( idomain, P_ebu_in_c3h6 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c3h6 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c3h6 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_c3h6 )%stream(2) = 2 ! 00000002 F_ebu_in_c3h6 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c3h8 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c3h8 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c3h8 , idomain ) = P_ebu_in_c3h8 ELSE P_ebu_in_c3h8 = ebu_in_index_table( PARAM_ebu_in_c3h8 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c3h8 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c3h8 ) = 'ebu_in_c3h8' ebu_in_desc_table( idomain, P_ebu_in_c3h8 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c3h8 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c3h8 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_c3h8 )%stream(2) = 2 ! 00000002 F_ebu_in_c3h8 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch2o , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch2o = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch2o , idomain ) = P_ebu_in_ch2o ELSE P_ebu_in_ch2o = ebu_in_index_table( PARAM_ebu_in_ch2o , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch2o ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch2o ) = 'ebu_in_ch2o' ebu_in_desc_table( idomain, P_ebu_in_ch2o ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch2o ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch2o )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ch2o )%stream(2) = 2 ! 00000002 F_ebu_in_ch2o = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch3cho , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch3cho = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch3cho , idomain ) = P_ebu_in_ch3cho ELSE P_ebu_in_ch3cho = ebu_in_index_table( PARAM_ebu_in_ch3cho , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch3cho ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch3cho ) = 'ebu_in_ch3cho' ebu_in_desc_table( idomain, P_ebu_in_ch3cho ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch3cho ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch3cho )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ch3cho )%stream(2) = 2 ! 00000002 F_ebu_in_ch3cho = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch3coch3 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch3coch3 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch3coch3 , idomain ) = P_ebu_in_ch3coch3 ELSE P_ebu_in_ch3coch3 = ebu_in_index_table( PARAM_ebu_in_ch3coch3 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch3coch3 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch3coch3 ) = 'ebu_in_ch3coch3' ebu_in_desc_table( idomain, P_ebu_in_ch3coch3 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch3coch3 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch3coch3 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ch3coch3 )%stream(2) = 2 ! 00000002 F_ebu_in_ch3coch3 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch3oh , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch3oh = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch3oh , idomain ) = P_ebu_in_ch3oh ELSE P_ebu_in_ch3oh = ebu_in_index_table( PARAM_ebu_in_ch3oh , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch3oh ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch3oh ) = 'ebu_in_ch3oh' ebu_in_desc_table( idomain, P_ebu_in_ch3oh ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch3oh ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch3oh )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ch3oh )%stream(2) = 2 ! 00000002 F_ebu_in_ch3oh = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_mek , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_mek = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_mek , idomain ) = P_ebu_in_mek ELSE P_ebu_in_mek = ebu_in_index_table( PARAM_ebu_in_mek , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_mek ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_mek ) = 'ebu_in_mek' ebu_in_desc_table( idomain, P_ebu_in_mek ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_mek ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_mek )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_mek )%stream(2) = 2 ! 00000002 F_ebu_in_mek = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_so2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) = P_ebu_in_so2 ELSE P_ebu_in_so2 = ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_so2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_so2 ) = 'ebu_in_so2' ebu_in_desc_table( idomain, P_ebu_in_so2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_so2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_so2 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_so2 )%stream(2) = 2 ! 00000002 F_ebu_in_so2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_toluene , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_toluene = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_toluene , idomain ) = P_ebu_in_toluene ELSE P_ebu_in_toluene = ebu_in_index_table( PARAM_ebu_in_toluene , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_toluene ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_toluene ) = 'ebu_in_toluene' ebu_in_desc_table( idomain, P_ebu_in_toluene ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_toluene ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_toluene )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_toluene )%stream(2) = 2 ! 00000002 F_ebu_in_toluene = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_nh3 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) = P_ebu_in_nh3 ELSE P_ebu_in_nh3 = ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_nh3 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_nh3 ) = 'ebu_in_nh3' ebu_in_desc_table( idomain, P_ebu_in_nh3 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_nh3 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_nh3 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_nh3 )%stream(2) = 2 ! 00000002 F_ebu_in_nh3 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_no2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) = P_ebu_in_no2 ELSE P_ebu_in_no2 = ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_no2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_no2 ) = 'ebu_in_no2' ebu_in_desc_table( idomain, P_ebu_in_no2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_no2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_no2 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_no2 )%stream(2) = 2 ! 00000002 F_ebu_in_no2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_open , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_open = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_open , idomain ) = P_ebu_in_open ELSE P_ebu_in_open = ebu_in_index_table( PARAM_ebu_in_open , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_open ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_open ) = 'ebu_in_open' ebu_in_desc_table( idomain, P_ebu_in_open ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_open ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_open )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_open )%stream(2) = 2 ! 00000002 F_ebu_in_open = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c10h16 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c10h16 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c10h16 , idomain ) = P_ebu_in_c10h16 ELSE P_ebu_in_c10h16 = ebu_in_index_table( PARAM_ebu_in_c10h16 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c10h16 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c10h16 ) = 'ebu_in_c10h16' ebu_in_desc_table( idomain, P_ebu_in_c10h16 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c10h16 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c10h16 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_c10h16 )%stream(2) = 2 ! 00000002 F_ebu_in_c10h16 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_mgly , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_mgly = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_mgly , idomain ) = P_ebu_in_mgly ELSE P_ebu_in_mgly = ebu_in_index_table( PARAM_ebu_in_mgly , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_mgly ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_mgly ) = 'ebu_in_mgly' ebu_in_desc_table( idomain, P_ebu_in_mgly ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_mgly ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_mgly )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_mgly )%stream(2) = 2 ! 00000002 F_ebu_in_mgly = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch3cooh , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch3cooh = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch3cooh , idomain ) = P_ebu_in_ch3cooh ELSE P_ebu_in_ch3cooh = ebu_in_index_table( PARAM_ebu_in_ch3cooh , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch3cooh ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch3cooh ) = 'ebu_in_ch3cooh' ebu_in_desc_table( idomain, P_ebu_in_ch3cooh ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch3cooh ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch3cooh )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ch3cooh )%stream(2) = 2 ! 00000002 F_ebu_in_ch3cooh = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_cres , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_cres = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_cres , idomain ) = P_ebu_in_cres ELSE P_ebu_in_cres = ebu_in_index_table( PARAM_ebu_in_cres , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_cres ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_cres ) = 'ebu_in_cres' ebu_in_desc_table( idomain, P_ebu_in_cres ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_cres ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_cres )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_cres )%stream(2) = 2 ! 00000002 F_ebu_in_cres = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_glyald , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_glyald = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_glyald , idomain ) = P_ebu_in_glyald ELSE P_ebu_in_glyald = ebu_in_index_table( PARAM_ebu_in_glyald , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_glyald ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_glyald ) = 'ebu_in_glyald' ebu_in_desc_table( idomain, P_ebu_in_glyald ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_glyald ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_glyald )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_glyald )%stream(2) = 2 ! 00000002 F_ebu_in_glyald = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_gly , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_gly = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_gly , idomain ) = P_ebu_in_gly ELSE P_ebu_in_gly = ebu_in_index_table( PARAM_ebu_in_gly , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_gly ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_gly ) = 'ebu_in_gly' ebu_in_desc_table( idomain, P_ebu_in_gly ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_gly ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_gly )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_gly )%stream(2) = 2 ! 00000002 F_ebu_in_gly = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_acetol , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_acetol = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_acetol , idomain ) = P_ebu_in_acetol ELSE P_ebu_in_acetol = ebu_in_index_table( PARAM_ebu_in_acetol , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_acetol ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_acetol ) = 'ebu_in_acetol' ebu_in_desc_table( idomain, P_ebu_in_acetol ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_acetol ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_acetol )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_acetol )%stream(2) = 2 ! 00000002 F_ebu_in_acetol = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_isop , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_isop = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_isop , idomain ) = P_ebu_in_isop ELSE P_ebu_in_isop = ebu_in_index_table( PARAM_ebu_in_isop , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_isop ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_isop ) = 'ebu_in_isop' ebu_in_desc_table( idomain, P_ebu_in_isop ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_isop ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_isop )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_isop )%stream(2) = 2 ! 00000002 F_ebu_in_isop = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_macr , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_macr = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_macr , idomain ) = P_ebu_in_macr ELSE P_ebu_in_macr = ebu_in_index_table( PARAM_ebu_in_macr , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_macr ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_macr ) = 'ebu_in_macr' ebu_in_desc_table( idomain, P_ebu_in_macr ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_macr ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_macr )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_macr )%stream(2) = 2 ! 00000002 F_ebu_in_macr = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_mvk , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_mvk = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_mvk , idomain ) = P_ebu_in_mvk ELSE P_ebu_in_mvk = ebu_in_index_table( PARAM_ebu_in_mvk , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_mvk ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_mvk ) = 'ebu_in_mvk' ebu_in_desc_table( idomain, P_ebu_in_mvk ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_mvk ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_mvk )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_mvk )%stream(2) = 2 ! 00000002 F_ebu_in_mvk = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_pm25 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_pm25 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_pm25 , idomain ) = P_ebu_in_pm25 ELSE P_ebu_in_pm25 = ebu_in_index_table( PARAM_ebu_in_pm25 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_pm25 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_pm25 ) = 'ebu_in_pm25' ebu_in_desc_table( idomain, P_ebu_in_pm25 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_pm25 ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_pm25 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_pm25 )%stream(2) = 2 ! 00000002 F_ebu_in_pm25 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_pm10 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_pm10 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_pm10 , idomain ) = P_ebu_in_pm10 ELSE P_ebu_in_pm10 = ebu_in_index_table( PARAM_ebu_in_pm10 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_pm10 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_pm10 ) = 'ebu_in_pm10' ebu_in_desc_table( idomain, P_ebu_in_pm10 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_pm10 ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_pm10 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_pm10 )%stream(2) = 2 ! 00000002 F_ebu_in_pm10 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_oc , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_oc = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_oc , idomain ) = P_ebu_in_oc ELSE P_ebu_in_oc = ebu_in_index_table( PARAM_ebu_in_oc , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_oc ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_oc ) = 'ebu_in_oc' ebu_in_desc_table( idomain, P_ebu_in_oc ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_oc ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_oc )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_oc )%stream(2) = 2 ! 00000002 F_ebu_in_oc = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_bc , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_bc = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_bc , idomain ) = P_ebu_in_bc ELSE P_ebu_in_bc = ebu_in_index_table( PARAM_ebu_in_bc , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_bc ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_bc ) = 'ebu_in_bc' ebu_in_desc_table( idomain, P_ebu_in_bc ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_bc ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_bc )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_bc )%stream(2) = 2 ! 00000002 F_ebu_in_bc = .TRUE. END IF IF (model_config_rec%biomass_burn_opt(idomain)==3)THEN IF ( ebu_index_table( PARAM_ebu_co , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_co = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_co , idomain ) = P_ebu_co ELSE P_ebu_co = ebu_index_table( PARAM_ebu_co , idomain ) END IF ebu_boundary_table( idomain, P_ebu_co ) = .FALSE. ebu_dname_table( idomain, P_ebu_co ) = 'ebu_co' ebu_desc_table( idomain, P_ebu_co ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_co ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_co )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_co )%stream(2) = 0 ! 00000000 F_ebu_co = .TRUE. IF ( ebu_index_table( PARAM_ebu_no , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_no = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_no , idomain ) = P_ebu_no ELSE P_ebu_no = ebu_index_table( PARAM_ebu_no , idomain ) END IF ebu_boundary_table( idomain, P_ebu_no ) = .FALSE. ebu_dname_table( idomain, P_ebu_no ) = 'ebu_no' ebu_desc_table( idomain, P_ebu_no ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_no ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_no )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_no )%stream(2) = 0 ! 00000000 F_ebu_no = .TRUE. IF ( ebu_index_table( PARAM_ebu_no2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_no2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_no2 , idomain ) = P_ebu_no2 ELSE P_ebu_no2 = ebu_index_table( PARAM_ebu_no2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_no2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_no2 ) = 'ebu_no2' ebu_desc_table( idomain, P_ebu_no2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_no2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_no2 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_no2 )%stream(2) = 0 ! 00000000 F_ebu_no2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_bigalk , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_bigalk = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_bigalk , idomain ) = P_ebu_bigalk ELSE P_ebu_bigalk = ebu_index_table( PARAM_ebu_bigalk , idomain ) END IF ebu_boundary_table( idomain, P_ebu_bigalk ) = .FALSE. ebu_dname_table( idomain, P_ebu_bigalk ) = 'ebu_bigalk' ebu_desc_table( idomain, P_ebu_bigalk ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_bigalk ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_bigalk )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_bigalk )%stream(2) = 0 ! 00000000 F_ebu_bigalk = .TRUE. IF ( ebu_index_table( PARAM_ebu_bigene , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_bigene = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_bigene , idomain ) = P_ebu_bigene ELSE P_ebu_bigene = ebu_index_table( PARAM_ebu_bigene , idomain ) END IF ebu_boundary_table( idomain, P_ebu_bigene ) = .FALSE. ebu_dname_table( idomain, P_ebu_bigene ) = 'ebu_bigene' ebu_desc_table( idomain, P_ebu_bigene ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_bigene ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_bigene )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_bigene )%stream(2) = 0 ! 00000000 F_ebu_bigene = .TRUE. IF ( ebu_index_table( PARAM_ebu_c2h4 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c2h4 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c2h4 , idomain ) = P_ebu_c2h4 ELSE P_ebu_c2h4 = ebu_index_table( PARAM_ebu_c2h4 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c2h4 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c2h4 ) = 'ebu_c2h4' ebu_desc_table( idomain, P_ebu_c2h4 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c2h4 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c2h4 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_c2h4 )%stream(2) = 0 ! 00000000 F_ebu_c2h4 = .TRUE. IF ( ebu_index_table( PARAM_ebu_c2h5oh , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c2h5oh = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c2h5oh , idomain ) = P_ebu_c2h5oh ELSE P_ebu_c2h5oh = ebu_index_table( PARAM_ebu_c2h5oh , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c2h5oh ) = .FALSE. ebu_dname_table( idomain, P_ebu_c2h5oh ) = 'ebu_c2h5oh' ebu_desc_table( idomain, P_ebu_c2h5oh ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c2h5oh ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c2h5oh )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_c2h5oh )%stream(2) = 0 ! 00000000 F_ebu_c2h5oh = .TRUE. IF ( ebu_index_table( PARAM_ebu_c2h6 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c2h6 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c2h6 , idomain ) = P_ebu_c2h6 ELSE P_ebu_c2h6 = ebu_index_table( PARAM_ebu_c2h6 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c2h6 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c2h6 ) = 'ebu_c2h6' ebu_desc_table( idomain, P_ebu_c2h6 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c2h6 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c2h6 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_c2h6 )%stream(2) = 0 ! 00000000 F_ebu_c2h6 = .TRUE. IF ( ebu_index_table( PARAM_ebu_c3h6 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c3h6 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c3h6 , idomain ) = P_ebu_c3h6 ELSE P_ebu_c3h6 = ebu_index_table( PARAM_ebu_c3h6 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c3h6 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c3h6 ) = 'ebu_c3h6' ebu_desc_table( idomain, P_ebu_c3h6 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c3h6 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c3h6 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_c3h6 )%stream(2) = 0 ! 00000000 F_ebu_c3h6 = .TRUE. IF ( ebu_index_table( PARAM_ebu_c3h8 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c3h8 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c3h8 , idomain ) = P_ebu_c3h8 ELSE P_ebu_c3h8 = ebu_index_table( PARAM_ebu_c3h8 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c3h8 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c3h8 ) = 'ebu_c3h8' ebu_desc_table( idomain, P_ebu_c3h8 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c3h8 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c3h8 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_c3h8 )%stream(2) = 0 ! 00000000 F_ebu_c3h8 = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch2o , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch2o = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch2o , idomain ) = P_ebu_ch2o ELSE P_ebu_ch2o = ebu_index_table( PARAM_ebu_ch2o , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch2o ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch2o ) = 'ebu_ch2o' ebu_desc_table( idomain, P_ebu_ch2o ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch2o ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch2o )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_ch2o )%stream(2) = 0 ! 00000000 F_ebu_ch2o = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch3cho , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch3cho = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch3cho , idomain ) = P_ebu_ch3cho ELSE P_ebu_ch3cho = ebu_index_table( PARAM_ebu_ch3cho , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch3cho ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch3cho ) = 'ebu_ch3cho' ebu_desc_table( idomain, P_ebu_ch3cho ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch3cho ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch3cho )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_ch3cho )%stream(2) = 0 ! 00000000 F_ebu_ch3cho = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch3coch3 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch3coch3 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch3coch3 , idomain ) = P_ebu_ch3coch3 ELSE P_ebu_ch3coch3 = ebu_index_table( PARAM_ebu_ch3coch3 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch3coch3 ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch3coch3 ) = 'ebu_ch3coch3' ebu_desc_table( idomain, P_ebu_ch3coch3 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch3coch3 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch3coch3 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_ch3coch3 )%stream(2) = 0 ! 00000000 F_ebu_ch3coch3 = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch3oh , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch3oh = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch3oh , idomain ) = P_ebu_ch3oh ELSE P_ebu_ch3oh = ebu_index_table( PARAM_ebu_ch3oh , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch3oh ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch3oh ) = 'ebu_ch3oh' ebu_desc_table( idomain, P_ebu_ch3oh ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch3oh ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch3oh )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_ch3oh )%stream(2) = 0 ! 00000000 F_ebu_ch3oh = .TRUE. IF ( ebu_index_table( PARAM_ebu_mek , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_mek = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_mek , idomain ) = P_ebu_mek ELSE P_ebu_mek = ebu_index_table( PARAM_ebu_mek , idomain ) END IF ebu_boundary_table( idomain, P_ebu_mek ) = .FALSE. ebu_dname_table( idomain, P_ebu_mek ) = 'ebu_mek' ebu_desc_table( idomain, P_ebu_mek ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_mek ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_mek )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_mek )%stream(2) = 0 ! 00000000 F_ebu_mek = .TRUE. IF ( ebu_index_table( PARAM_ebu_so2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_so2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_so2 , idomain ) = P_ebu_so2 ELSE P_ebu_so2 = ebu_index_table( PARAM_ebu_so2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_so2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_so2 ) = 'ebu_so2' ebu_desc_table( idomain, P_ebu_so2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_so2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_so2 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_so2 )%stream(2) = 0 ! 00000000 F_ebu_so2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_toluene , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_toluene = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_toluene , idomain ) = P_ebu_toluene ELSE P_ebu_toluene = ebu_index_table( PARAM_ebu_toluene , idomain ) END IF ebu_boundary_table( idomain, P_ebu_toluene ) = .FALSE. ebu_dname_table( idomain, P_ebu_toluene ) = 'ebu_toluene' ebu_desc_table( idomain, P_ebu_toluene ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_toluene ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_toluene )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_toluene )%stream(2) = 0 ! 00000000 F_ebu_toluene = .TRUE. IF ( ebu_index_table( PARAM_ebu_nh3 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_nh3 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_nh3 , idomain ) = P_ebu_nh3 ELSE P_ebu_nh3 = ebu_index_table( PARAM_ebu_nh3 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_nh3 ) = .FALSE. ebu_dname_table( idomain, P_ebu_nh3 ) = 'ebu_nh3' ebu_desc_table( idomain, P_ebu_nh3 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_nh3 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_nh3 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_nh3 )%stream(2) = 0 ! 00000000 F_ebu_nh3 = .TRUE. IF ( ebu_index_table( PARAM_ebu_open , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_open = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_open , idomain ) = P_ebu_open ELSE P_ebu_open = ebu_index_table( PARAM_ebu_open , idomain ) END IF ebu_boundary_table( idomain, P_ebu_open ) = .FALSE. ebu_dname_table( idomain, P_ebu_open ) = 'ebu_open' ebu_desc_table( idomain, P_ebu_open ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_open ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_open )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_open )%stream(2) = 0 ! 00000000 F_ebu_open = .TRUE. IF ( ebu_index_table( PARAM_ebu_c10h16 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c10h16 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c10h16 , idomain ) = P_ebu_c10h16 ELSE P_ebu_c10h16 = ebu_index_table( PARAM_ebu_c10h16 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c10h16 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c10h16 ) = 'ebu_c10h16' ebu_desc_table( idomain, P_ebu_c10h16 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c10h16 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c10h16 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_c10h16 )%stream(2) = 0 ! 00000000 F_ebu_c10h16 = .TRUE. IF ( ebu_index_table( PARAM_ebu_mgly , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_mgly = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_mgly , idomain ) = P_ebu_mgly ELSE P_ebu_mgly = ebu_index_table( PARAM_ebu_mgly , idomain ) END IF ebu_boundary_table( idomain, P_ebu_mgly ) = .FALSE. ebu_dname_table( idomain, P_ebu_mgly ) = 'ebu_mgly' ebu_desc_table( idomain, P_ebu_mgly ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_mgly ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_mgly )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_mgly )%stream(2) = 0 ! 00000000 F_ebu_mgly = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch3cooh , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch3cooh = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch3cooh , idomain ) = P_ebu_ch3cooh ELSE P_ebu_ch3cooh = ebu_index_table( PARAM_ebu_ch3cooh , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch3cooh ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch3cooh ) = 'ebu_ch3cooh' ebu_desc_table( idomain, P_ebu_ch3cooh ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch3cooh ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch3cooh )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_ch3cooh )%stream(2) = 0 ! 00000000 F_ebu_ch3cooh = .TRUE. IF ( ebu_index_table( PARAM_ebu_cres , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_cres = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_cres , idomain ) = P_ebu_cres ELSE P_ebu_cres = ebu_index_table( PARAM_ebu_cres , idomain ) END IF ebu_boundary_table( idomain, P_ebu_cres ) = .FALSE. ebu_dname_table( idomain, P_ebu_cres ) = 'ebu_cres' ebu_desc_table( idomain, P_ebu_cres ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_cres ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_cres )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_cres )%stream(2) = 0 ! 00000000 F_ebu_cres = .TRUE. IF ( ebu_index_table( PARAM_ebu_glyald , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_glyald = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_glyald , idomain ) = P_ebu_glyald ELSE P_ebu_glyald = ebu_index_table( PARAM_ebu_glyald , idomain ) END IF ebu_boundary_table( idomain, P_ebu_glyald ) = .FALSE. ebu_dname_table( idomain, P_ebu_glyald ) = 'ebu_glyald' ebu_desc_table( idomain, P_ebu_glyald ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_glyald ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_glyald )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_glyald )%stream(2) = 0 ! 00000000 F_ebu_glyald = .TRUE. IF ( ebu_index_table( PARAM_ebu_gly , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_gly = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_gly , idomain ) = P_ebu_gly ELSE P_ebu_gly = ebu_index_table( PARAM_ebu_gly , idomain ) END IF ebu_boundary_table( idomain, P_ebu_gly ) = .FALSE. ebu_dname_table( idomain, P_ebu_gly ) = 'ebu_gly' ebu_desc_table( idomain, P_ebu_gly ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_gly ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_gly )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_gly )%stream(2) = 0 ! 00000000 F_ebu_gly = .TRUE. IF ( ebu_index_table( PARAM_ebu_acetol , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_acetol = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_acetol , idomain ) = P_ebu_acetol ELSE P_ebu_acetol = ebu_index_table( PARAM_ebu_acetol , idomain ) END IF ebu_boundary_table( idomain, P_ebu_acetol ) = .FALSE. ebu_dname_table( idomain, P_ebu_acetol ) = 'ebu_acetol' ebu_desc_table( idomain, P_ebu_acetol ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_acetol ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_acetol )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_acetol )%stream(2) = 0 ! 00000000 F_ebu_acetol = .TRUE. IF ( ebu_index_table( PARAM_ebu_isop , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_isop = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_isop , idomain ) = P_ebu_isop ELSE P_ebu_isop = ebu_index_table( PARAM_ebu_isop , idomain ) END IF ebu_boundary_table( idomain, P_ebu_isop ) = .FALSE. ebu_dname_table( idomain, P_ebu_isop ) = 'ebu_isop' ebu_desc_table( idomain, P_ebu_isop ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_isop ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_isop )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_isop )%stream(2) = 0 ! 00000000 F_ebu_isop = .TRUE. IF ( ebu_index_table( PARAM_ebu_macr , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_macr = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_macr , idomain ) = P_ebu_macr ELSE P_ebu_macr = ebu_index_table( PARAM_ebu_macr , idomain ) END IF ebu_boundary_table( idomain, P_ebu_macr ) = .FALSE. ebu_dname_table( idomain, P_ebu_macr ) = 'ebu_macr' ebu_desc_table( idomain, P_ebu_macr ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_macr ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_macr )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_macr )%stream(2) = 0 ! 00000000 F_ebu_macr = .TRUE. IF ( ebu_index_table( PARAM_ebu_mvk , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_mvk = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_mvk , idomain ) = P_ebu_mvk ELSE P_ebu_mvk = ebu_index_table( PARAM_ebu_mvk , idomain ) END IF ebu_boundary_table( idomain, P_ebu_mvk ) = .FALSE. ebu_dname_table( idomain, P_ebu_mvk ) = 'ebu_mvk' ebu_desc_table( idomain, P_ebu_mvk ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_mvk ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_mvk )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_mvk )%stream(2) = 0 ! 00000000 F_ebu_mvk = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_co , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_co = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_co , idomain ) = P_ebu_in_co ELSE P_ebu_in_co = ebu_in_index_table( PARAM_ebu_in_co , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_co ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_co ) = 'ebu_in_co' ebu_in_desc_table( idomain, P_ebu_in_co ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_co ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_co )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_co )%stream(2) = 2 ! 00000002 F_ebu_in_co = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_no , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_no = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_no , idomain ) = P_ebu_in_no ELSE P_ebu_in_no = ebu_in_index_table( PARAM_ebu_in_no , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_no ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_no ) = 'ebu_in_no' ebu_in_desc_table( idomain, P_ebu_in_no ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_no ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_no )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_no )%stream(2) = 2 ! 00000002 F_ebu_in_no = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_bigalk , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_bigalk = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_bigalk , idomain ) = P_ebu_in_bigalk ELSE P_ebu_in_bigalk = ebu_in_index_table( PARAM_ebu_in_bigalk , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_bigalk ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_bigalk ) = 'ebu_in_bigalk' ebu_in_desc_table( idomain, P_ebu_in_bigalk ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_bigalk ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_bigalk )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_bigalk )%stream(2) = 2 ! 00000002 F_ebu_in_bigalk = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_bigene , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_bigene = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_bigene , idomain ) = P_ebu_in_bigene ELSE P_ebu_in_bigene = ebu_in_index_table( PARAM_ebu_in_bigene , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_bigene ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_bigene ) = 'ebu_in_bigene' ebu_in_desc_table( idomain, P_ebu_in_bigene ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_bigene ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_bigene )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_bigene )%stream(2) = 2 ! 00000002 F_ebu_in_bigene = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c2h4 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c2h4 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c2h4 , idomain ) = P_ebu_in_c2h4 ELSE P_ebu_in_c2h4 = ebu_in_index_table( PARAM_ebu_in_c2h4 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c2h4 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c2h4 ) = 'ebu_in_c2h4' ebu_in_desc_table( idomain, P_ebu_in_c2h4 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c2h4 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c2h4 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_c2h4 )%stream(2) = 2 ! 00000002 F_ebu_in_c2h4 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c2h5oh , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c2h5oh = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c2h5oh , idomain ) = P_ebu_in_c2h5oh ELSE P_ebu_in_c2h5oh = ebu_in_index_table( PARAM_ebu_in_c2h5oh , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c2h5oh ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c2h5oh ) = 'ebu_in_c2h5oh' ebu_in_desc_table( idomain, P_ebu_in_c2h5oh ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c2h5oh ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c2h5oh )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_c2h5oh )%stream(2) = 2 ! 00000002 F_ebu_in_c2h5oh = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c2h6 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c2h6 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c2h6 , idomain ) = P_ebu_in_c2h6 ELSE P_ebu_in_c2h6 = ebu_in_index_table( PARAM_ebu_in_c2h6 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c2h6 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c2h6 ) = 'ebu_in_c2h6' ebu_in_desc_table( idomain, P_ebu_in_c2h6 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c2h6 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c2h6 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_c2h6 )%stream(2) = 2 ! 00000002 F_ebu_in_c2h6 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c3h6 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c3h6 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c3h6 , idomain ) = P_ebu_in_c3h6 ELSE P_ebu_in_c3h6 = ebu_in_index_table( PARAM_ebu_in_c3h6 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c3h6 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c3h6 ) = 'ebu_in_c3h6' ebu_in_desc_table( idomain, P_ebu_in_c3h6 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c3h6 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c3h6 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_c3h6 )%stream(2) = 2 ! 00000002 F_ebu_in_c3h6 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c3h8 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c3h8 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c3h8 , idomain ) = P_ebu_in_c3h8 ELSE P_ebu_in_c3h8 = ebu_in_index_table( PARAM_ebu_in_c3h8 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c3h8 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c3h8 ) = 'ebu_in_c3h8' ebu_in_desc_table( idomain, P_ebu_in_c3h8 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c3h8 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c3h8 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_c3h8 )%stream(2) = 2 ! 00000002 F_ebu_in_c3h8 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch2o , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch2o = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch2o , idomain ) = P_ebu_in_ch2o ELSE P_ebu_in_ch2o = ebu_in_index_table( PARAM_ebu_in_ch2o , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch2o ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch2o ) = 'ebu_in_ch2o' ebu_in_desc_table( idomain, P_ebu_in_ch2o ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch2o ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch2o )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ch2o )%stream(2) = 2 ! 00000002 F_ebu_in_ch2o = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch3cho , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch3cho = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch3cho , idomain ) = P_ebu_in_ch3cho ELSE P_ebu_in_ch3cho = ebu_in_index_table( PARAM_ebu_in_ch3cho , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch3cho ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch3cho ) = 'ebu_in_ch3cho' ebu_in_desc_table( idomain, P_ebu_in_ch3cho ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch3cho ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch3cho )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ch3cho )%stream(2) = 2 ! 00000002 F_ebu_in_ch3cho = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch3coch3 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch3coch3 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch3coch3 , idomain ) = P_ebu_in_ch3coch3 ELSE P_ebu_in_ch3coch3 = ebu_in_index_table( PARAM_ebu_in_ch3coch3 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch3coch3 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch3coch3 ) = 'ebu_in_ch3coch3' ebu_in_desc_table( idomain, P_ebu_in_ch3coch3 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch3coch3 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch3coch3 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ch3coch3 )%stream(2) = 2 ! 00000002 F_ebu_in_ch3coch3 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch3oh , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch3oh = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch3oh , idomain ) = P_ebu_in_ch3oh ELSE P_ebu_in_ch3oh = ebu_in_index_table( PARAM_ebu_in_ch3oh , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch3oh ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch3oh ) = 'ebu_in_ch3oh' ebu_in_desc_table( idomain, P_ebu_in_ch3oh ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch3oh ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch3oh )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ch3oh )%stream(2) = 2 ! 00000002 F_ebu_in_ch3oh = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_mek , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_mek = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_mek , idomain ) = P_ebu_in_mek ELSE P_ebu_in_mek = ebu_in_index_table( PARAM_ebu_in_mek , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_mek ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_mek ) = 'ebu_in_mek' ebu_in_desc_table( idomain, P_ebu_in_mek ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_mek ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_mek )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_mek )%stream(2) = 2 ! 00000002 F_ebu_in_mek = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_so2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) = P_ebu_in_so2 ELSE P_ebu_in_so2 = ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_so2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_so2 ) = 'ebu_in_so2' ebu_in_desc_table( idomain, P_ebu_in_so2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_so2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_so2 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_so2 )%stream(2) = 2 ! 00000002 F_ebu_in_so2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_toluene , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_toluene = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_toluene , idomain ) = P_ebu_in_toluene ELSE P_ebu_in_toluene = ebu_in_index_table( PARAM_ebu_in_toluene , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_toluene ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_toluene ) = 'ebu_in_toluene' ebu_in_desc_table( idomain, P_ebu_in_toluene ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_toluene ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_toluene )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_toluene )%stream(2) = 2 ! 00000002 F_ebu_in_toluene = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_nh3 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) = P_ebu_in_nh3 ELSE P_ebu_in_nh3 = ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_nh3 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_nh3 ) = 'ebu_in_nh3' ebu_in_desc_table( idomain, P_ebu_in_nh3 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_nh3 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_nh3 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_nh3 )%stream(2) = 2 ! 00000002 F_ebu_in_nh3 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_no2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) = P_ebu_in_no2 ELSE P_ebu_in_no2 = ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_no2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_no2 ) = 'ebu_in_no2' ebu_in_desc_table( idomain, P_ebu_in_no2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_no2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_no2 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_no2 )%stream(2) = 2 ! 00000002 F_ebu_in_no2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_open , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_open = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_open , idomain ) = P_ebu_in_open ELSE P_ebu_in_open = ebu_in_index_table( PARAM_ebu_in_open , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_open ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_open ) = 'ebu_in_open' ebu_in_desc_table( idomain, P_ebu_in_open ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_open ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_open )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_open )%stream(2) = 2 ! 00000002 F_ebu_in_open = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c10h16 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c10h16 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c10h16 , idomain ) = P_ebu_in_c10h16 ELSE P_ebu_in_c10h16 = ebu_in_index_table( PARAM_ebu_in_c10h16 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c10h16 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c10h16 ) = 'ebu_in_c10h16' ebu_in_desc_table( idomain, P_ebu_in_c10h16 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c10h16 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c10h16 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_c10h16 )%stream(2) = 2 ! 00000002 F_ebu_in_c10h16 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_mgly , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_mgly = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_mgly , idomain ) = P_ebu_in_mgly ELSE P_ebu_in_mgly = ebu_in_index_table( PARAM_ebu_in_mgly , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_mgly ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_mgly ) = 'ebu_in_mgly' ebu_in_desc_table( idomain, P_ebu_in_mgly ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_mgly ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_mgly )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_mgly )%stream(2) = 2 ! 00000002 F_ebu_in_mgly = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch3cooh , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch3cooh = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch3cooh , idomain ) = P_ebu_in_ch3cooh ELSE P_ebu_in_ch3cooh = ebu_in_index_table( PARAM_ebu_in_ch3cooh , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch3cooh ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch3cooh ) = 'ebu_in_ch3cooh' ebu_in_desc_table( idomain, P_ebu_in_ch3cooh ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch3cooh ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch3cooh )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ch3cooh )%stream(2) = 2 ! 00000002 F_ebu_in_ch3cooh = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_cres , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_cres = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_cres , idomain ) = P_ebu_in_cres ELSE P_ebu_in_cres = ebu_in_index_table( PARAM_ebu_in_cres , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_cres ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_cres ) = 'ebu_in_cres' ebu_in_desc_table( idomain, P_ebu_in_cres ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_cres ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_cres )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_cres )%stream(2) = 2 ! 00000002 F_ebu_in_cres = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_glyald , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_glyald = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_glyald , idomain ) = P_ebu_in_glyald ELSE P_ebu_in_glyald = ebu_in_index_table( PARAM_ebu_in_glyald , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_glyald ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_glyald ) = 'ebu_in_glyald' ebu_in_desc_table( idomain, P_ebu_in_glyald ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_glyald ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_glyald )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_glyald )%stream(2) = 2 ! 00000002 F_ebu_in_glyald = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_gly , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_gly = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_gly , idomain ) = P_ebu_in_gly ELSE P_ebu_in_gly = ebu_in_index_table( PARAM_ebu_in_gly , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_gly ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_gly ) = 'ebu_in_gly' ebu_in_desc_table( idomain, P_ebu_in_gly ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_gly ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_gly )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_gly )%stream(2) = 2 ! 00000002 F_ebu_in_gly = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_acetol , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_acetol = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_acetol , idomain ) = P_ebu_in_acetol ELSE P_ebu_in_acetol = ebu_in_index_table( PARAM_ebu_in_acetol , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_acetol ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_acetol ) = 'ebu_in_acetol' ebu_in_desc_table( idomain, P_ebu_in_acetol ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_acetol ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_acetol )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_acetol )%stream(2) = 2 ! 00000002 F_ebu_in_acetol = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_isop , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_isop = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_isop , idomain ) = P_ebu_in_isop ELSE P_ebu_in_isop = ebu_in_index_table( PARAM_ebu_in_isop , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_isop ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_isop ) = 'ebu_in_isop' ebu_in_desc_table( idomain, P_ebu_in_isop ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_isop ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_isop )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_isop )%stream(2) = 2 ! 00000002 F_ebu_in_isop = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_macr , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_macr = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_macr , idomain ) = P_ebu_in_macr ELSE P_ebu_in_macr = ebu_in_index_table( PARAM_ebu_in_macr , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_macr ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_macr ) = 'ebu_in_macr' ebu_in_desc_table( idomain, P_ebu_in_macr ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_macr ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_macr )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_macr )%stream(2) = 2 ! 00000002 F_ebu_in_macr = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_mvk , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_mvk = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_mvk , idomain ) = P_ebu_in_mvk ELSE P_ebu_in_mvk = ebu_in_index_table( PARAM_ebu_in_mvk , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_mvk ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_mvk ) = 'ebu_in_mvk' ebu_in_desc_table( idomain, P_ebu_in_mvk ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_mvk ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_mvk )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_mvk )%stream(2) = 2 ! 00000002 F_ebu_in_mvk = .TRUE. END IF IF (model_config_rec%biomass_burn_opt(idomain)==5)THEN IF ( ebu_index_table( PARAM_ebu_co , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_co = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_co , idomain ) = P_ebu_co ELSE P_ebu_co = ebu_index_table( PARAM_ebu_co , idomain ) END IF ebu_boundary_table( idomain, P_ebu_co ) = .FALSE. ebu_dname_table( idomain, P_ebu_co ) = 'ebu_co' ebu_desc_table( idomain, P_ebu_co ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_co ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_co )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_co )%stream(2) = 0 ! 00000000 F_ebu_co = .TRUE. IF ( ebu_index_table( PARAM_ebu_co2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_co2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_co2 , idomain ) = P_ebu_co2 ELSE P_ebu_co2 = ebu_index_table( PARAM_ebu_co2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_co2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_co2 ) = 'ebu_co2' ebu_desc_table( idomain, P_ebu_co2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_co2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_co2 )%stream(1) = 0 ! 00000000 ebu_streams_table( idomain, P_ebu_co2 )%stream(2) = 0 ! 00000000 F_ebu_co2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch4 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch4 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch4 , idomain ) = P_ebu_ch4 ELSE P_ebu_ch4 = ebu_index_table( PARAM_ebu_ch4 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch4 ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch4 ) = 'ebu_ch4' ebu_desc_table( idomain, P_ebu_ch4 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch4 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch4 )%stream(1) = 1 ! 00000001 ebu_streams_table( idomain, P_ebu_ch4 )%stream(2) = 0 ! 00000000 F_ebu_ch4 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_co , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_co = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_co , idomain ) = P_ebu_in_co ELSE P_ebu_in_co = ebu_in_index_table( PARAM_ebu_in_co , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_co ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_co ) = 'ebu_in_co' ebu_in_desc_table( idomain, P_ebu_in_co ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_co ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_co )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_co )%stream(2) = 2 ! 00000002 F_ebu_in_co = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_co2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_co2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_co2 , idomain ) = P_ebu_in_co2 ELSE P_ebu_in_co2 = ebu_in_index_table( PARAM_ebu_in_co2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_co2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_co2 ) = 'ebu_in_co2' ebu_in_desc_table( idomain, P_ebu_in_co2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_co2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_co2 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_co2 )%stream(2) = 2 ! 00000002 F_ebu_in_co2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch4 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch4 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch4 , idomain ) = P_ebu_in_ch4 ELSE P_ebu_in_ch4 = ebu_in_index_table( PARAM_ebu_in_ch4 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch4 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch4 ) = 'ebu_in_ch4' ebu_in_desc_table( idomain, P_ebu_in_ch4 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch4 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch4 )%stream(1) = 33554432 ! 02000000 ebu_in_streams_table( idomain, P_ebu_in_ch4 )%stream(2) = 2 ! 00000002 F_ebu_in_ch4 = .TRUE. END IF IF (model_config_rec%opt_pars_out==1)THEN IF ( ext_coef_index_table( PARAM_extcof3 , idomain ) .lt. 1 ) THEN ext_coef_num_table(idomain) = ext_coef_num_table(idomain) + 1 P_extcof3 = ext_coef_num_table(idomain) ext_coef_index_table( PARAM_extcof3 , idomain ) = P_extcof3 ELSE P_extcof3 = ext_coef_index_table( PARAM_extcof3 , idomain ) END IF ext_coef_boundary_table( idomain, P_extcof3 ) = .FALSE. ext_coef_dname_table( idomain, P_extcof3 ) = 'EXTCOF3' ext_coef_desc_table( idomain, P_extcof3 ) = 'Extinction coefficients for .3um' ext_coef_units_table( idomain, P_extcof3 ) = 'km^-1' ext_coef_streams_table( idomain, P_extcof3 )%stream(1) = 0 ! 00000000 ext_coef_streams_table( idomain, P_extcof3 )%stream(2) = 0 ! 00000000 F_extcof3 = .TRUE. IF ( ext_coef_index_table( PARAM_extcof55 , idomain ) .lt. 1 ) THEN ext_coef_num_table(idomain) = ext_coef_num_table(idomain) + 1 P_extcof55 = ext_coef_num_table(idomain) ext_coef_index_table( PARAM_extcof55 , idomain ) = P_extcof55 ELSE P_extcof55 = ext_coef_index_table( PARAM_extcof55 , idomain ) END IF ext_coef_boundary_table( idomain, P_extcof55 ) = .FALSE. ext_coef_dname_table( idomain, P_extcof55 ) = 'EXTCOF55' ext_coef_desc_table( idomain, P_extcof55 ) = 'Extinction coefficients for .55um' ext_coef_units_table( idomain, P_extcof55 ) = 'km^-1' ext_coef_streams_table( idomain, P_extcof55 )%stream(1) = 1 ! 00000001 ext_coef_streams_table( idomain, P_extcof55 )%stream(2) = 0 ! 00000000 F_extcof55 = .TRUE. IF ( ext_coef_index_table( PARAM_extcof106 , idomain ) .lt. 1 ) THEN ext_coef_num_table(idomain) = ext_coef_num_table(idomain) + 1 P_extcof106 = ext_coef_num_table(idomain) ext_coef_index_table( PARAM_extcof106 , idomain ) = P_extcof106 ELSE P_extcof106 = ext_coef_index_table( PARAM_extcof106 , idomain ) END IF ext_coef_boundary_table( idomain, P_extcof106 ) = .FALSE. ext_coef_dname_table( idomain, P_extcof106 ) = 'EXTCOF106' ext_coef_desc_table( idomain, P_extcof106 ) = 'Extinction coefficients for 1.06um' ext_coef_units_table( idomain, P_extcof106 ) = 'km^-1' ext_coef_streams_table( idomain, P_extcof106 )%stream(1) = 0 ! 00000000 ext_coef_streams_table( idomain, P_extcof106 )%stream(2) = 0 ! 00000000 F_extcof106 = .TRUE. IF ( ext_coef_index_table( PARAM_extcof3_5 , idomain ) .lt. 1 ) THEN ext_coef_num_table(idomain) = ext_coef_num_table(idomain) + 1 P_extcof3_5 = ext_coef_num_table(idomain) ext_coef_index_table( PARAM_extcof3_5 , idomain ) = P_extcof3_5 ELSE P_extcof3_5 = ext_coef_index_table( PARAM_extcof3_5 , idomain ) END IF ext_coef_boundary_table( idomain, P_extcof3_5 ) = .FALSE. ext_coef_dname_table( idomain, P_extcof3_5 ) = 'EXTCOF3_5' ext_coef_desc_table( idomain, P_extcof3_5 ) = 'Band averaged extinction coefficients for 3-5um' ext_coef_units_table( idomain, P_extcof3_5 ) = 'km^-1' ext_coef_streams_table( idomain, P_extcof3_5 )%stream(1) = 0 ! 00000000 ext_coef_streams_table( idomain, P_extcof3_5 )%stream(2) = 0 ! 00000000 F_extcof3_5 = .TRUE. IF ( ext_coef_index_table( PARAM_extcof8_12 , idomain ) .lt. 1 ) THEN ext_coef_num_table(idomain) = ext_coef_num_table(idomain) + 1 P_extcof8_12 = ext_coef_num_table(idomain) ext_coef_index_table( PARAM_extcof8_12 , idomain ) = P_extcof8_12 ELSE P_extcof8_12 = ext_coef_index_table( PARAM_extcof8_12 , idomain ) END IF ext_coef_boundary_table( idomain, P_extcof8_12 ) = .FALSE. ext_coef_dname_table( idomain, P_extcof8_12 ) = 'EXTCOF8_12' ext_coef_desc_table( idomain, P_extcof8_12 ) = 'Band averaged extinction coefficients for 8-12um' ext_coef_units_table( idomain, P_extcof8_12 ) = 'km^-1' ext_coef_streams_table( idomain, P_extcof8_12 )%stream(1) = 0 ! 00000000 ext_coef_streams_table( idomain, P_extcof8_12 )%stream(2) = 0 ! 00000000 F_extcof8_12 = .TRUE. IF ( bscat_coef_index_table( PARAM_bscof3 , idomain ) .lt. 1 ) THEN bscat_coef_num_table(idomain) = bscat_coef_num_table(idomain) + 1 P_bscof3 = bscat_coef_num_table(idomain) bscat_coef_index_table( PARAM_bscof3 , idomain ) = P_bscof3 ELSE P_bscof3 = bscat_coef_index_table( PARAM_bscof3 , idomain ) END IF bscat_coef_boundary_table( idomain, P_bscof3 ) = .FALSE. bscat_coef_dname_table( idomain, P_bscof3 ) = 'BSCOF3' bscat_coef_desc_table( idomain, P_bscof3 ) = 'Scatter coefficients for .3um' bscat_coef_units_table( idomain, P_bscof3 ) = 'km^-1' bscat_coef_streams_table( idomain, P_bscof3 )%stream(1) = 0 ! 00000000 bscat_coef_streams_table( idomain, P_bscof3 )%stream(2) = 0 ! 00000000 F_bscof3 = .TRUE. IF ( bscat_coef_index_table( PARAM_bscof55 , idomain ) .lt. 1 ) THEN bscat_coef_num_table(idomain) = bscat_coef_num_table(idomain) + 1 P_bscof55 = bscat_coef_num_table(idomain) bscat_coef_index_table( PARAM_bscof55 , idomain ) = P_bscof55 ELSE P_bscof55 = bscat_coef_index_table( PARAM_bscof55 , idomain ) END IF bscat_coef_boundary_table( idomain, P_bscof55 ) = .FALSE. bscat_coef_dname_table( idomain, P_bscof55 ) = 'BSCOF5' bscat_coef_desc_table( idomain, P_bscof55 ) = 'Scatter coefficients for .5um' bscat_coef_units_table( idomain, P_bscof55 ) = 'km^-1' bscat_coef_streams_table( idomain, P_bscof55 )%stream(1) = 0 ! 00000000 bscat_coef_streams_table( idomain, P_bscof55 )%stream(2) = 0 ! 00000000 F_bscof55 = .TRUE. IF ( bscat_coef_index_table( PARAM_bscof106 , idomain ) .lt. 1 ) THEN bscat_coef_num_table(idomain) = bscat_coef_num_table(idomain) + 1 P_bscof106 = bscat_coef_num_table(idomain) bscat_coef_index_table( PARAM_bscof106 , idomain ) = P_bscof106 ELSE P_bscof106 = bscat_coef_index_table( PARAM_bscof106 , idomain ) END IF bscat_coef_boundary_table( idomain, P_bscof106 ) = .FALSE. bscat_coef_dname_table( idomain, P_bscof106 ) = 'BSCOF106' bscat_coef_desc_table( idomain, P_bscof106 ) = 'Scatter coefficients for 1.06um' bscat_coef_units_table( idomain, P_bscof106 ) = 'km^-1' bscat_coef_streams_table( idomain, P_bscof106 )%stream(1) = 0 ! 00000000 bscat_coef_streams_table( idomain, P_bscof106 )%stream(2) = 0 ! 00000000 F_bscof106 = .TRUE. IF ( asym_par_index_table( PARAM_asympar3 , idomain ) .lt. 1 ) THEN asym_par_num_table(idomain) = asym_par_num_table(idomain) + 1 P_asympar3 = asym_par_num_table(idomain) asym_par_index_table( PARAM_asympar3 , idomain ) = P_asympar3 ELSE P_asympar3 = asym_par_index_table( PARAM_asympar3 , idomain ) END IF asym_par_boundary_table( idomain, P_asympar3 ) = .FALSE. asym_par_dname_table( idomain, P_asympar3 ) = 'ASYMPAR3' asym_par_desc_table( idomain, P_asympar3 ) = 'assymetry parameter for .3um' asym_par_units_table( idomain, P_asympar3 ) = '?' asym_par_streams_table( idomain, P_asympar3 )%stream(1) = 0 ! 00000000 asym_par_streams_table( idomain, P_asympar3 )%stream(2) = 0 ! 00000000 F_asympar3 = .TRUE. IF ( asym_par_index_table( PARAM_asympar55 , idomain ) .lt. 1 ) THEN asym_par_num_table(idomain) = asym_par_num_table(idomain) + 1 P_asympar55 = asym_par_num_table(idomain) asym_par_index_table( PARAM_asympar55 , idomain ) = P_asympar55 ELSE P_asympar55 = asym_par_index_table( PARAM_asympar55 , idomain ) END IF asym_par_boundary_table( idomain, P_asympar55 ) = .FALSE. asym_par_dname_table( idomain, P_asympar55 ) = 'ASYMPAR55' asym_par_desc_table( idomain, P_asympar55 ) = 'assymetry parameter for .55um' asym_par_units_table( idomain, P_asympar55 ) = '?' asym_par_streams_table( idomain, P_asympar55 )%stream(1) = 0 ! 00000000 asym_par_streams_table( idomain, P_asympar55 )%stream(2) = 0 ! 00000000 F_asympar55 = .TRUE. IF ( asym_par_index_table( PARAM_asympar106 , idomain ) .lt. 1 ) THEN asym_par_num_table(idomain) = asym_par_num_table(idomain) + 1 P_asympar106 = asym_par_num_table(idomain) asym_par_index_table( PARAM_asympar106 , idomain ) = P_asympar106 ELSE P_asympar106 = asym_par_index_table( PARAM_asympar106 , idomain ) END IF asym_par_boundary_table( idomain, P_asympar106 ) = .FALSE. asym_par_dname_table( idomain, P_asympar106 ) = 'ASYMPAR106' asym_par_desc_table( idomain, P_asympar106 ) = 'assymetry parameter for 1.06um' asym_par_units_table( idomain, P_asympar106 ) = '?' asym_par_streams_table( idomain, P_asympar106 )%stream(1) = 0 ! 00000000 asym_par_streams_table( idomain, P_asympar106 )%stream(2) = 0 ! 00000000 F_asympar106 = .TRUE. END IF IF (model_config_rec%dust_opt==1)THEN IF ( emis_dust_index_table( PARAM_edust1 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust1 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust1 , idomain ) = P_edust1 ELSE P_edust1 = emis_dust_index_table( PARAM_edust1 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust1 ) = .FALSE. emis_dust_dname_table( idomain, P_edust1 ) = 'EDUST1' emis_dust_desc_table( idomain, P_edust1 ) = 'DUST emissions bin1' emis_dust_units_table( idomain, P_edust1 ) = '' emis_dust_streams_table( idomain, P_edust1 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust1 )%stream(2) = 0 ! 00000000 F_edust1 = .TRUE. IF ( emis_dust_index_table( PARAM_edust2 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust2 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust2 , idomain ) = P_edust2 ELSE P_edust2 = emis_dust_index_table( PARAM_edust2 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust2 ) = .FALSE. emis_dust_dname_table( idomain, P_edust2 ) = 'EDUST2' emis_dust_desc_table( idomain, P_edust2 ) = 'DUST emissions bin2' emis_dust_units_table( idomain, P_edust2 ) = '' emis_dust_streams_table( idomain, P_edust2 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust2 )%stream(2) = 0 ! 00000000 F_edust2 = .TRUE. IF ( emis_dust_index_table( PARAM_edust3 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust3 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust3 , idomain ) = P_edust3 ELSE P_edust3 = emis_dust_index_table( PARAM_edust3 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust3 ) = .FALSE. emis_dust_dname_table( idomain, P_edust3 ) = 'EDUST3' emis_dust_desc_table( idomain, P_edust3 ) = 'DUST emissions bin3' emis_dust_units_table( idomain, P_edust3 ) = '' emis_dust_streams_table( idomain, P_edust3 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust3 )%stream(2) = 0 ! 00000000 F_edust3 = .TRUE. IF ( emis_dust_index_table( PARAM_edust4 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust4 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust4 , idomain ) = P_edust4 ELSE P_edust4 = emis_dust_index_table( PARAM_edust4 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust4 ) = .FALSE. emis_dust_dname_table( idomain, P_edust4 ) = 'EDUST4' emis_dust_desc_table( idomain, P_edust4 ) = 'DUST emissions bin4' emis_dust_units_table( idomain, P_edust4 ) = '' emis_dust_streams_table( idomain, P_edust4 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust4 )%stream(2) = 0 ! 00000000 F_edust4 = .TRUE. IF ( emis_dust_index_table( PARAM_edust5 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust5 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust5 , idomain ) = P_edust5 ELSE P_edust5 = emis_dust_index_table( PARAM_edust5 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust5 ) = .FALSE. emis_dust_dname_table( idomain, P_edust5 ) = 'EDUST5' emis_dust_desc_table( idomain, P_edust5 ) = 'DUST emissions bin5' emis_dust_units_table( idomain, P_edust5 ) = '' emis_dust_streams_table( idomain, P_edust5 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust5 )%stream(2) = 0 ! 00000000 F_edust5 = .TRUE. END IF IF (model_config_rec%dust_opt==3)THEN IF ( emis_dust_index_table( PARAM_edust1 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust1 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust1 , idomain ) = P_edust1 ELSE P_edust1 = emis_dust_index_table( PARAM_edust1 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust1 ) = .FALSE. emis_dust_dname_table( idomain, P_edust1 ) = 'EDUST1' emis_dust_desc_table( idomain, P_edust1 ) = 'DUST emissions bin1' emis_dust_units_table( idomain, P_edust1 ) = '' emis_dust_streams_table( idomain, P_edust1 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust1 )%stream(2) = 0 ! 00000000 F_edust1 = .TRUE. IF ( emis_dust_index_table( PARAM_edust2 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust2 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust2 , idomain ) = P_edust2 ELSE P_edust2 = emis_dust_index_table( PARAM_edust2 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust2 ) = .FALSE. emis_dust_dname_table( idomain, P_edust2 ) = 'EDUST2' emis_dust_desc_table( idomain, P_edust2 ) = 'DUST emissions bin2' emis_dust_units_table( idomain, P_edust2 ) = '' emis_dust_streams_table( idomain, P_edust2 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust2 )%stream(2) = 0 ! 00000000 F_edust2 = .TRUE. IF ( emis_dust_index_table( PARAM_edust3 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust3 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust3 , idomain ) = P_edust3 ELSE P_edust3 = emis_dust_index_table( PARAM_edust3 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust3 ) = .FALSE. emis_dust_dname_table( idomain, P_edust3 ) = 'EDUST3' emis_dust_desc_table( idomain, P_edust3 ) = 'DUST emissions bin3' emis_dust_units_table( idomain, P_edust3 ) = '' emis_dust_streams_table( idomain, P_edust3 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust3 )%stream(2) = 0 ! 00000000 F_edust3 = .TRUE. IF ( emis_dust_index_table( PARAM_edust4 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust4 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust4 , idomain ) = P_edust4 ELSE P_edust4 = emis_dust_index_table( PARAM_edust4 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust4 ) = .FALSE. emis_dust_dname_table( idomain, P_edust4 ) = 'EDUST4' emis_dust_desc_table( idomain, P_edust4 ) = 'DUST emissions bin4' emis_dust_units_table( idomain, P_edust4 ) = '' emis_dust_streams_table( idomain, P_edust4 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust4 )%stream(2) = 0 ! 00000000 F_edust4 = .TRUE. IF ( emis_dust_index_table( PARAM_edust5 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust5 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust5 , idomain ) = P_edust5 ELSE P_edust5 = emis_dust_index_table( PARAM_edust5 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust5 ) = .FALSE. emis_dust_dname_table( idomain, P_edust5 ) = 'EDUST5' emis_dust_desc_table( idomain, P_edust5 ) = 'DUST emissions bin5' emis_dust_units_table( idomain, P_edust5 ) = '' emis_dust_streams_table( idomain, P_edust5 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust5 )%stream(2) = 0 ! 00000000 F_edust5 = .TRUE. END IF IF (model_config_rec%dust_opt==4)THEN IF ( emis_dust_index_table( PARAM_edust1 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust1 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust1 , idomain ) = P_edust1 ELSE P_edust1 = emis_dust_index_table( PARAM_edust1 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust1 ) = .FALSE. emis_dust_dname_table( idomain, P_edust1 ) = 'EDUST1' emis_dust_desc_table( idomain, P_edust1 ) = 'DUST emissions bin1' emis_dust_units_table( idomain, P_edust1 ) = '' emis_dust_streams_table( idomain, P_edust1 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust1 )%stream(2) = 0 ! 00000000 F_edust1 = .TRUE. IF ( emis_dust_index_table( PARAM_edust2 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust2 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust2 , idomain ) = P_edust2 ELSE P_edust2 = emis_dust_index_table( PARAM_edust2 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust2 ) = .FALSE. emis_dust_dname_table( idomain, P_edust2 ) = 'EDUST2' emis_dust_desc_table( idomain, P_edust2 ) = 'DUST emissions bin2' emis_dust_units_table( idomain, P_edust2 ) = '' emis_dust_streams_table( idomain, P_edust2 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust2 )%stream(2) = 0 ! 00000000 F_edust2 = .TRUE. IF ( emis_dust_index_table( PARAM_edust3 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust3 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust3 , idomain ) = P_edust3 ELSE P_edust3 = emis_dust_index_table( PARAM_edust3 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust3 ) = .FALSE. emis_dust_dname_table( idomain, P_edust3 ) = 'EDUST3' emis_dust_desc_table( idomain, P_edust3 ) = 'DUST emissions bin3' emis_dust_units_table( idomain, P_edust3 ) = '' emis_dust_streams_table( idomain, P_edust3 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust3 )%stream(2) = 0 ! 00000000 F_edust3 = .TRUE. IF ( emis_dust_index_table( PARAM_edust4 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust4 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust4 , idomain ) = P_edust4 ELSE P_edust4 = emis_dust_index_table( PARAM_edust4 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust4 ) = .FALSE. emis_dust_dname_table( idomain, P_edust4 ) = 'EDUST4' emis_dust_desc_table( idomain, P_edust4 ) = 'DUST emissions bin4' emis_dust_units_table( idomain, P_edust4 ) = '' emis_dust_streams_table( idomain, P_edust4 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust4 )%stream(2) = 0 ! 00000000 F_edust4 = .TRUE. IF ( emis_dust_index_table( PARAM_edust5 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust5 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust5 , idomain ) = P_edust5 ELSE P_edust5 = emis_dust_index_table( PARAM_edust5 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust5 ) = .FALSE. emis_dust_dname_table( idomain, P_edust5 ) = 'EDUST5' emis_dust_desc_table( idomain, P_edust5 ) = 'DUST emissions bin5' emis_dust_units_table( idomain, P_edust5 ) = '' emis_dust_streams_table( idomain, P_edust5 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust5 )%stream(2) = 0 ! 00000000 F_edust5 = .TRUE. END IF IF (model_config_rec%dust_schme==1)THEN IF ( emis_dust_index_table( PARAM_edust1 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust1 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust1 , idomain ) = P_edust1 ELSE P_edust1 = emis_dust_index_table( PARAM_edust1 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust1 ) = .FALSE. emis_dust_dname_table( idomain, P_edust1 ) = 'EDUST1' emis_dust_desc_table( idomain, P_edust1 ) = 'DUST emissions bin1' emis_dust_units_table( idomain, P_edust1 ) = '' emis_dust_streams_table( idomain, P_edust1 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust1 )%stream(2) = 0 ! 00000000 F_edust1 = .TRUE. IF ( emis_dust_index_table( PARAM_edust2 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust2 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust2 , idomain ) = P_edust2 ELSE P_edust2 = emis_dust_index_table( PARAM_edust2 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust2 ) = .FALSE. emis_dust_dname_table( idomain, P_edust2 ) = 'EDUST2' emis_dust_desc_table( idomain, P_edust2 ) = 'DUST emissions bin2' emis_dust_units_table( idomain, P_edust2 ) = '' emis_dust_streams_table( idomain, P_edust2 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust2 )%stream(2) = 0 ! 00000000 F_edust2 = .TRUE. IF ( emis_dust_index_table( PARAM_edust3 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust3 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust3 , idomain ) = P_edust3 ELSE P_edust3 = emis_dust_index_table( PARAM_edust3 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust3 ) = .FALSE. emis_dust_dname_table( idomain, P_edust3 ) = 'EDUST3' emis_dust_desc_table( idomain, P_edust3 ) = 'DUST emissions bin3' emis_dust_units_table( idomain, P_edust3 ) = '' emis_dust_streams_table( idomain, P_edust3 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust3 )%stream(2) = 0 ! 00000000 F_edust3 = .TRUE. IF ( emis_dust_index_table( PARAM_edust4 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust4 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust4 , idomain ) = P_edust4 ELSE P_edust4 = emis_dust_index_table( PARAM_edust4 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust4 ) = .FALSE. emis_dust_dname_table( idomain, P_edust4 ) = 'EDUST4' emis_dust_desc_table( idomain, P_edust4 ) = 'DUST emissions bin4' emis_dust_units_table( idomain, P_edust4 ) = '' emis_dust_streams_table( idomain, P_edust4 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust4 )%stream(2) = 0 ! 00000000 F_edust4 = .TRUE. IF ( emis_dust_index_table( PARAM_edust5 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust5 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust5 , idomain ) = P_edust5 ELSE P_edust5 = emis_dust_index_table( PARAM_edust5 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust5 ) = .FALSE. emis_dust_dname_table( idomain, P_edust5 ) = 'EDUST5' emis_dust_desc_table( idomain, P_edust5 ) = 'DUST emissions bin5' emis_dust_units_table( idomain, P_edust5 ) = '' emis_dust_streams_table( idomain, P_edust5 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust5 )%stream(2) = 0 ! 00000000 F_edust5 = .TRUE. END IF IF (model_config_rec%dust_schme==2)THEN IF ( emis_dust_index_table( PARAM_edust1 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust1 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust1 , idomain ) = P_edust1 ELSE P_edust1 = emis_dust_index_table( PARAM_edust1 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust1 ) = .FALSE. emis_dust_dname_table( idomain, P_edust1 ) = 'EDUST1' emis_dust_desc_table( idomain, P_edust1 ) = 'DUST emissions bin1' emis_dust_units_table( idomain, P_edust1 ) = '' emis_dust_streams_table( idomain, P_edust1 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust1 )%stream(2) = 0 ! 00000000 F_edust1 = .TRUE. IF ( emis_dust_index_table( PARAM_edust2 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust2 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust2 , idomain ) = P_edust2 ELSE P_edust2 = emis_dust_index_table( PARAM_edust2 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust2 ) = .FALSE. emis_dust_dname_table( idomain, P_edust2 ) = 'EDUST2' emis_dust_desc_table( idomain, P_edust2 ) = 'DUST emissions bin2' emis_dust_units_table( idomain, P_edust2 ) = '' emis_dust_streams_table( idomain, P_edust2 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust2 )%stream(2) = 0 ! 00000000 F_edust2 = .TRUE. IF ( emis_dust_index_table( PARAM_edust3 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust3 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust3 , idomain ) = P_edust3 ELSE P_edust3 = emis_dust_index_table( PARAM_edust3 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust3 ) = .FALSE. emis_dust_dname_table( idomain, P_edust3 ) = 'EDUST3' emis_dust_desc_table( idomain, P_edust3 ) = 'DUST emissions bin3' emis_dust_units_table( idomain, P_edust3 ) = '' emis_dust_streams_table( idomain, P_edust3 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust3 )%stream(2) = 0 ! 00000000 F_edust3 = .TRUE. IF ( emis_dust_index_table( PARAM_edust4 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust4 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust4 , idomain ) = P_edust4 ELSE P_edust4 = emis_dust_index_table( PARAM_edust4 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust4 ) = .FALSE. emis_dust_dname_table( idomain, P_edust4 ) = 'EDUST4' emis_dust_desc_table( idomain, P_edust4 ) = 'DUST emissions bin4' emis_dust_units_table( idomain, P_edust4 ) = '' emis_dust_streams_table( idomain, P_edust4 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust4 )%stream(2) = 0 ! 00000000 F_edust4 = .TRUE. IF ( emis_dust_index_table( PARAM_edust5 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust5 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust5 , idomain ) = P_edust5 ELSE P_edust5 = emis_dust_index_table( PARAM_edust5 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust5 ) = .FALSE. emis_dust_dname_table( idomain, P_edust5 ) = 'EDUST5' emis_dust_desc_table( idomain, P_edust5 ) = 'DUST emissions bin5' emis_dust_units_table( idomain, P_edust5 ) = '' emis_dust_streams_table( idomain, P_edust5 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust5 )%stream(2) = 0 ! 00000000 F_edust5 = .TRUE. END IF IF (model_config_rec%dust_schme==3)THEN IF ( emis_dust_index_table( PARAM_edust1 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust1 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust1 , idomain ) = P_edust1 ELSE P_edust1 = emis_dust_index_table( PARAM_edust1 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust1 ) = .FALSE. emis_dust_dname_table( idomain, P_edust1 ) = 'EDUST1' emis_dust_desc_table( idomain, P_edust1 ) = 'DUST emissions bin1' emis_dust_units_table( idomain, P_edust1 ) = '' emis_dust_streams_table( idomain, P_edust1 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust1 )%stream(2) = 0 ! 00000000 F_edust1 = .TRUE. IF ( emis_dust_index_table( PARAM_edust2 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust2 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust2 , idomain ) = P_edust2 ELSE P_edust2 = emis_dust_index_table( PARAM_edust2 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust2 ) = .FALSE. emis_dust_dname_table( idomain, P_edust2 ) = 'EDUST2' emis_dust_desc_table( idomain, P_edust2 ) = 'DUST emissions bin2' emis_dust_units_table( idomain, P_edust2 ) = '' emis_dust_streams_table( idomain, P_edust2 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust2 )%stream(2) = 0 ! 00000000 F_edust2 = .TRUE. IF ( emis_dust_index_table( PARAM_edust3 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust3 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust3 , idomain ) = P_edust3 ELSE P_edust3 = emis_dust_index_table( PARAM_edust3 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust3 ) = .FALSE. emis_dust_dname_table( idomain, P_edust3 ) = 'EDUST3' emis_dust_desc_table( idomain, P_edust3 ) = 'DUST emissions bin3' emis_dust_units_table( idomain, P_edust3 ) = '' emis_dust_streams_table( idomain, P_edust3 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust3 )%stream(2) = 0 ! 00000000 F_edust3 = .TRUE. IF ( emis_dust_index_table( PARAM_edust4 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust4 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust4 , idomain ) = P_edust4 ELSE P_edust4 = emis_dust_index_table( PARAM_edust4 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust4 ) = .FALSE. emis_dust_dname_table( idomain, P_edust4 ) = 'EDUST4' emis_dust_desc_table( idomain, P_edust4 ) = 'DUST emissions bin4' emis_dust_units_table( idomain, P_edust4 ) = '' emis_dust_streams_table( idomain, P_edust4 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust4 )%stream(2) = 0 ! 00000000 F_edust4 = .TRUE. IF ( emis_dust_index_table( PARAM_edust5 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust5 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust5 , idomain ) = P_edust5 ELSE P_edust5 = emis_dust_index_table( PARAM_edust5 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust5 ) = .FALSE. emis_dust_dname_table( idomain, P_edust5 ) = 'EDUST5' emis_dust_desc_table( idomain, P_edust5 ) = 'DUST emissions bin5' emis_dust_units_table( idomain, P_edust5 ) = '' emis_dust_streams_table( idomain, P_edust5 )%stream(1) = 1 ! 00000001 emis_dust_streams_table( idomain, P_edust5 )%stream(2) = 0 ! 00000000 F_edust5 = .TRUE. END IF IF (model_config_rec%seas_opt==1)THEN IF ( emis_seas_index_table( PARAM_eseas1 , idomain ) .lt. 1 ) THEN emis_seas_num_table(idomain) = emis_seas_num_table(idomain) + 1 P_eseas1 = emis_seas_num_table(idomain) emis_seas_index_table( PARAM_eseas1 , idomain ) = P_eseas1 ELSE P_eseas1 = emis_seas_index_table( PARAM_eseas1 , idomain ) END IF emis_seas_boundary_table( idomain, P_eseas1 ) = .FALSE. emis_seas_dname_table( idomain, P_eseas1 ) = 'ESEAS1' emis_seas_desc_table( idomain, P_eseas1 ) = 'Sea-Salt emissions bin1 ' emis_seas_units_table( idomain, P_eseas1 ) = '' emis_seas_streams_table( idomain, P_eseas1 )%stream(1) = 0 ! 00000000 emis_seas_streams_table( idomain, P_eseas1 )%stream(2) = 0 ! 00000000 F_eseas1 = .TRUE. IF ( emis_seas_index_table( PARAM_eseas2 , idomain ) .lt. 1 ) THEN emis_seas_num_table(idomain) = emis_seas_num_table(idomain) + 1 P_eseas2 = emis_seas_num_table(idomain) emis_seas_index_table( PARAM_eseas2 , idomain ) = P_eseas2 ELSE P_eseas2 = emis_seas_index_table( PARAM_eseas2 , idomain ) END IF emis_seas_boundary_table( idomain, P_eseas2 ) = .FALSE. emis_seas_dname_table( idomain, P_eseas2 ) = 'ESEAS2' emis_seas_desc_table( idomain, P_eseas2 ) = 'Sea-Salt emissions bin2 ' emis_seas_units_table( idomain, P_eseas2 ) = '' emis_seas_streams_table( idomain, P_eseas2 )%stream(1) = 0 ! 00000000 emis_seas_streams_table( idomain, P_eseas2 )%stream(2) = 0 ! 00000000 F_eseas2 = .TRUE. IF ( emis_seas_index_table( PARAM_eseas3 , idomain ) .lt. 1 ) THEN emis_seas_num_table(idomain) = emis_seas_num_table(idomain) + 1 P_eseas3 = emis_seas_num_table(idomain) emis_seas_index_table( PARAM_eseas3 , idomain ) = P_eseas3 ELSE P_eseas3 = emis_seas_index_table( PARAM_eseas3 , idomain ) END IF emis_seas_boundary_table( idomain, P_eseas3 ) = .FALSE. emis_seas_dname_table( idomain, P_eseas3 ) = 'ESEAS3' emis_seas_desc_table( idomain, P_eseas3 ) = 'Sea-Salt emissions bin3 ' emis_seas_units_table( idomain, P_eseas3 ) = '' emis_seas_streams_table( idomain, P_eseas3 )%stream(1) = 0 ! 00000000 emis_seas_streams_table( idomain, P_eseas3 )%stream(2) = 0 ! 00000000 F_eseas3 = .TRUE. IF ( emis_seas_index_table( PARAM_eseas4 , idomain ) .lt. 1 ) THEN emis_seas_num_table(idomain) = emis_seas_num_table(idomain) + 1 P_eseas4 = emis_seas_num_table(idomain) emis_seas_index_table( PARAM_eseas4 , idomain ) = P_eseas4 ELSE P_eseas4 = emis_seas_index_table( PARAM_eseas4 , idomain ) END IF emis_seas_boundary_table( idomain, P_eseas4 ) = .FALSE. emis_seas_dname_table( idomain, P_eseas4 ) = 'ESEAS4' emis_seas_desc_table( idomain, P_eseas4 ) = 'Sea-Salt emissions bin4 ' emis_seas_units_table( idomain, P_eseas4 ) = '' emis_seas_streams_table( idomain, P_eseas4 )%stream(1) = 0 ! 00000000 emis_seas_streams_table( idomain, P_eseas4 )%stream(2) = 0 ! 00000000 F_eseas4 = .TRUE. END IF IF (model_config_rec%seas_opt==2)THEN IF ( emis_seas2_index_table( PARAM_eseasj , idomain ) .lt. 1 ) THEN emis_seas2_num_table(idomain) = emis_seas2_num_table(idomain) + 1 P_eseasj = emis_seas2_num_table(idomain) emis_seas2_index_table( PARAM_eseasj , idomain ) = P_eseasj ELSE P_eseasj = emis_seas2_index_table( PARAM_eseasj , idomain ) END IF emis_seas2_boundary_table( idomain, P_eseasj ) = .FALSE. emis_seas2_dname_table( idomain, P_eseasj ) = 'ESEASJ' emis_seas2_desc_table( idomain, P_eseasj ) = 'Sea-Salt emissions accu mode ' emis_seas2_units_table( idomain, P_eseasj ) = 'g/m2/s' emis_seas2_streams_table( idomain, P_eseasj )%stream(1) = 0 ! 00000000 emis_seas2_streams_table( idomain, P_eseasj )%stream(2) = 0 ! 00000000 F_eseasj = .TRUE. IF ( emis_seas2_index_table( PARAM_eseasc , idomain ) .lt. 1 ) THEN emis_seas2_num_table(idomain) = emis_seas2_num_table(idomain) + 1 P_eseasc = emis_seas2_num_table(idomain) emis_seas2_index_table( PARAM_eseasc , idomain ) = P_eseasc ELSE P_eseasc = emis_seas2_index_table( PARAM_eseasc , idomain ) END IF emis_seas2_boundary_table( idomain, P_eseasc ) = .FALSE. emis_seas2_dname_table( idomain, P_eseasc ) = 'ESEASC' emis_seas2_desc_table( idomain, P_eseasc ) = 'Sea-Salt emissions coarse mode ' emis_seas2_units_table( idomain, P_eseasc ) = 'g/m2/s' emis_seas2_streams_table( idomain, P_eseasc )%stream(1) = 0 ! 00000000 emis_seas2_streams_table( idomain, P_eseasc )%stream(2) = 0 ! 00000000 F_eseasc = .TRUE. END IF IF (model_config_rec%dmsemis_opt==1)THEN END IF IF (model_config_rec%aer_op_opt(idomain)==1)THEN END IF IF (model_config_rec%aer_op_opt(idomain)==2)THEN END IF IF (model_config_rec%aer_op_opt(idomain)==3)THEN END IF IF (model_config_rec%aer_op_opt(idomain)==4)THEN END IF IF (model_config_rec%aer_op_opt(idomain)==5)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==1)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==3)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==16)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==101)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==102)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==103)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==104)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==111)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==121)THEN END IF IF (model_config_rec%gas_bc_opt(idomain)==1)THEN END IF IF (model_config_rec%gas_bc_opt(idomain)==16)THEN END IF IF (model_config_rec%gas_bc_opt(idomain)==101)THEN END IF IF (model_config_rec%gas_bc_opt(idomain)==102)THEN END IF IF (model_config_rec%gas_ic_opt(idomain)==1)THEN END IF IF (model_config_rec%gas_ic_opt(idomain)==16)THEN END IF IF (model_config_rec%gas_ic_opt(idomain)==101)THEN END IF IF (model_config_rec%gas_ic_opt(idomain)==102)THEN END IF IF (model_config_rec%aer_bc_opt(idomain)==1)THEN END IF IF (model_config_rec%aer_bc_opt(idomain)==101)THEN END IF IF (model_config_rec%aer_ic_opt(idomain)==1)THEN END IF IF (model_config_rec%aer_ic_opt(idomain)==101)THEN END IF IF (model_config_rec%tracer_opt(idomain)==1)THEN IF ( tracer_index_table( PARAM_smoke , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_smoke = tracer_num_table(idomain) tracer_index_table( PARAM_smoke , idomain ) = P_smoke ELSE P_smoke = tracer_index_table( PARAM_smoke , idomain ) END IF tracer_boundary_table( idomain, P_smoke ) = .TRUE. tracer_dname_table( idomain, P_smoke ) = 'smoke' tracer_desc_table( idomain, P_smoke ) = 'tracing smoke' tracer_units_table( idomain, P_smoke ) = '-' tracer_streams_table( idomain, P_smoke )%stream(1) = 33554433 ! 02000001 tracer_streams_table( idomain, P_smoke )%stream(2) = 2097152 ! 00200000 F_smoke = .TRUE. END IF IF (model_config_rec%tracer_opt(idomain)==2)THEN IF ( tracer_index_table( PARAM_tr17_1 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_1 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_1 , idomain ) = P_tr17_1 ELSE P_tr17_1 = tracer_index_table( PARAM_tr17_1 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_1 ) = .TRUE. tracer_dname_table( idomain, P_tr17_1 ) = 'tr17_1' tracer_desc_table( idomain, P_tr17_1 ) = 'tr17_1' tracer_units_table( idomain, P_tr17_1 ) = '-' tracer_streams_table( idomain, P_tr17_1 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_1 )%stream(2) = 2097156 ! 00200004 F_tr17_1 = .TRUE. IF ( tracer_index_table( PARAM_tr17_2 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_2 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_2 , idomain ) = P_tr17_2 ELSE P_tr17_2 = tracer_index_table( PARAM_tr17_2 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_2 ) = .TRUE. tracer_dname_table( idomain, P_tr17_2 ) = 'tr17_2' tracer_desc_table( idomain, P_tr17_2 ) = 'tr17_2' tracer_units_table( idomain, P_tr17_2 ) = '-' tracer_streams_table( idomain, P_tr17_2 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_2 )%stream(2) = 2097156 ! 00200004 F_tr17_2 = .TRUE. IF ( tracer_index_table( PARAM_tr17_3 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_3 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_3 , idomain ) = P_tr17_3 ELSE P_tr17_3 = tracer_index_table( PARAM_tr17_3 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_3 ) = .TRUE. tracer_dname_table( idomain, P_tr17_3 ) = 'tr17_3' tracer_desc_table( idomain, P_tr17_3 ) = 'tr17_3' tracer_units_table( idomain, P_tr17_3 ) = '-' tracer_streams_table( idomain, P_tr17_3 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_3 )%stream(2) = 2097156 ! 00200004 F_tr17_3 = .TRUE. IF ( tracer_index_table( PARAM_tr17_4 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_4 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_4 , idomain ) = P_tr17_4 ELSE P_tr17_4 = tracer_index_table( PARAM_tr17_4 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_4 ) = .TRUE. tracer_dname_table( idomain, P_tr17_4 ) = 'tr17_4' tracer_desc_table( idomain, P_tr17_4 ) = 'tr17_4' tracer_units_table( idomain, P_tr17_4 ) = '-' tracer_streams_table( idomain, P_tr17_4 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_4 )%stream(2) = 2097156 ! 00200004 F_tr17_4 = .TRUE. IF ( tracer_index_table( PARAM_tr17_5 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_5 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_5 , idomain ) = P_tr17_5 ELSE P_tr17_5 = tracer_index_table( PARAM_tr17_5 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_5 ) = .TRUE. tracer_dname_table( idomain, P_tr17_5 ) = 'tr17_5' tracer_desc_table( idomain, P_tr17_5 ) = 'tr17_5' tracer_units_table( idomain, P_tr17_5 ) = '-' tracer_streams_table( idomain, P_tr17_5 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_5 )%stream(2) = 2097156 ! 00200004 F_tr17_5 = .TRUE. IF ( tracer_index_table( PARAM_tr17_6 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_6 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_6 , idomain ) = P_tr17_6 ELSE P_tr17_6 = tracer_index_table( PARAM_tr17_6 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_6 ) = .TRUE. tracer_dname_table( idomain, P_tr17_6 ) = 'tr17_6' tracer_desc_table( idomain, P_tr17_6 ) = 'tr17_6' tracer_units_table( idomain, P_tr17_6 ) = '-' tracer_streams_table( idomain, P_tr17_6 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_6 )%stream(2) = 2097156 ! 00200004 F_tr17_6 = .TRUE. IF ( tracer_index_table( PARAM_tr17_7 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_7 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_7 , idomain ) = P_tr17_7 ELSE P_tr17_7 = tracer_index_table( PARAM_tr17_7 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_7 ) = .TRUE. tracer_dname_table( idomain, P_tr17_7 ) = 'tr17_7' tracer_desc_table( idomain, P_tr17_7 ) = 'tr17_7' tracer_units_table( idomain, P_tr17_7 ) = '-' tracer_streams_table( idomain, P_tr17_7 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_7 )%stream(2) = 2097156 ! 00200004 F_tr17_7 = .TRUE. IF ( tracer_index_table( PARAM_tr17_8 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_8 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_8 , idomain ) = P_tr17_8 ELSE P_tr17_8 = tracer_index_table( PARAM_tr17_8 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_8 ) = .TRUE. tracer_dname_table( idomain, P_tr17_8 ) = 'tr17_8' tracer_desc_table( idomain, P_tr17_8 ) = 'tr17_8' tracer_units_table( idomain, P_tr17_8 ) = '-' tracer_streams_table( idomain, P_tr17_8 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_8 )%stream(2) = 2097156 ! 00200004 F_tr17_8 = .TRUE. END IF IF (model_config_rec%tracer_opt(idomain)==3)THEN IF ( tracer_index_table( PARAM_tr17_1 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_1 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_1 , idomain ) = P_tr17_1 ELSE P_tr17_1 = tracer_index_table( PARAM_tr17_1 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_1 ) = .TRUE. tracer_dname_table( idomain, P_tr17_1 ) = 'tr17_1' tracer_desc_table( idomain, P_tr17_1 ) = 'tr17_1' tracer_units_table( idomain, P_tr17_1 ) = '-' tracer_streams_table( idomain, P_tr17_1 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_1 )%stream(2) = 2097156 ! 00200004 F_tr17_1 = .TRUE. IF ( tracer_index_table( PARAM_tr17_2 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_2 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_2 , idomain ) = P_tr17_2 ELSE P_tr17_2 = tracer_index_table( PARAM_tr17_2 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_2 ) = .TRUE. tracer_dname_table( idomain, P_tr17_2 ) = 'tr17_2' tracer_desc_table( idomain, P_tr17_2 ) = 'tr17_2' tracer_units_table( idomain, P_tr17_2 ) = '-' tracer_streams_table( idomain, P_tr17_2 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_2 )%stream(2) = 2097156 ! 00200004 F_tr17_2 = .TRUE. IF ( tracer_index_table( PARAM_tr17_3 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_3 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_3 , idomain ) = P_tr17_3 ELSE P_tr17_3 = tracer_index_table( PARAM_tr17_3 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_3 ) = .TRUE. tracer_dname_table( idomain, P_tr17_3 ) = 'tr17_3' tracer_desc_table( idomain, P_tr17_3 ) = 'tr17_3' tracer_units_table( idomain, P_tr17_3 ) = '-' tracer_streams_table( idomain, P_tr17_3 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_3 )%stream(2) = 2097156 ! 00200004 F_tr17_3 = .TRUE. IF ( tracer_index_table( PARAM_tr17_4 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_4 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_4 , idomain ) = P_tr17_4 ELSE P_tr17_4 = tracer_index_table( PARAM_tr17_4 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_4 ) = .TRUE. tracer_dname_table( idomain, P_tr17_4 ) = 'tr17_4' tracer_desc_table( idomain, P_tr17_4 ) = 'tr17_4' tracer_units_table( idomain, P_tr17_4 ) = '-' tracer_streams_table( idomain, P_tr17_4 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_4 )%stream(2) = 2097156 ! 00200004 F_tr17_4 = .TRUE. IF ( tracer_index_table( PARAM_tr17_5 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_5 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_5 , idomain ) = P_tr17_5 ELSE P_tr17_5 = tracer_index_table( PARAM_tr17_5 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_5 ) = .TRUE. tracer_dname_table( idomain, P_tr17_5 ) = 'tr17_5' tracer_desc_table( idomain, P_tr17_5 ) = 'tr17_5' tracer_units_table( idomain, P_tr17_5 ) = '-' tracer_streams_table( idomain, P_tr17_5 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_5 )%stream(2) = 2097156 ! 00200004 F_tr17_5 = .TRUE. IF ( tracer_index_table( PARAM_tr17_6 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_6 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_6 , idomain ) = P_tr17_6 ELSE P_tr17_6 = tracer_index_table( PARAM_tr17_6 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_6 ) = .TRUE. tracer_dname_table( idomain, P_tr17_6 ) = 'tr17_6' tracer_desc_table( idomain, P_tr17_6 ) = 'tr17_6' tracer_units_table( idomain, P_tr17_6 ) = '-' tracer_streams_table( idomain, P_tr17_6 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_6 )%stream(2) = 2097156 ! 00200004 F_tr17_6 = .TRUE. IF ( tracer_index_table( PARAM_tr17_7 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_7 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_7 , idomain ) = P_tr17_7 ELSE P_tr17_7 = tracer_index_table( PARAM_tr17_7 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_7 ) = .TRUE. tracer_dname_table( idomain, P_tr17_7 ) = 'tr17_7' tracer_desc_table( idomain, P_tr17_7 ) = 'tr17_7' tracer_units_table( idomain, P_tr17_7 ) = '-' tracer_streams_table( idomain, P_tr17_7 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_7 )%stream(2) = 2097156 ! 00200004 F_tr17_7 = .TRUE. IF ( tracer_index_table( PARAM_tr17_8 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_8 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_8 , idomain ) = P_tr17_8 ELSE P_tr17_8 = tracer_index_table( PARAM_tr17_8 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_8 ) = .TRUE. tracer_dname_table( idomain, P_tr17_8 ) = 'tr17_8' tracer_desc_table( idomain, P_tr17_8 ) = 'tr17_8' tracer_units_table( idomain, P_tr17_8 ) = '-' tracer_streams_table( idomain, P_tr17_8 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_8 )%stream(2) = 2097156 ! 00200004 F_tr17_8 = .TRUE. END IF IF (model_config_rec%tracer_opt(idomain)==4)THEN IF ( tracer_index_table( PARAM_tr17_1 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_1 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_1 , idomain ) = P_tr17_1 ELSE P_tr17_1 = tracer_index_table( PARAM_tr17_1 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_1 ) = .TRUE. tracer_dname_table( idomain, P_tr17_1 ) = 'tr17_1' tracer_desc_table( idomain, P_tr17_1 ) = 'tr17_1' tracer_units_table( idomain, P_tr17_1 ) = '-' tracer_streams_table( idomain, P_tr17_1 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_1 )%stream(2) = 2097156 ! 00200004 F_tr17_1 = .TRUE. IF ( tracer_index_table( PARAM_tr17_2 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_2 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_2 , idomain ) = P_tr17_2 ELSE P_tr17_2 = tracer_index_table( PARAM_tr17_2 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_2 ) = .TRUE. tracer_dname_table( idomain, P_tr17_2 ) = 'tr17_2' tracer_desc_table( idomain, P_tr17_2 ) = 'tr17_2' tracer_units_table( idomain, P_tr17_2 ) = '-' tracer_streams_table( idomain, P_tr17_2 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_2 )%stream(2) = 2097156 ! 00200004 F_tr17_2 = .TRUE. IF ( tracer_index_table( PARAM_tr17_3 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_3 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_3 , idomain ) = P_tr17_3 ELSE P_tr17_3 = tracer_index_table( PARAM_tr17_3 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_3 ) = .TRUE. tracer_dname_table( idomain, P_tr17_3 ) = 'tr17_3' tracer_desc_table( idomain, P_tr17_3 ) = 'tr17_3' tracer_units_table( idomain, P_tr17_3 ) = '-' tracer_streams_table( idomain, P_tr17_3 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_3 )%stream(2) = 2097156 ! 00200004 F_tr17_3 = .TRUE. IF ( tracer_index_table( PARAM_tr17_4 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_4 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_4 , idomain ) = P_tr17_4 ELSE P_tr17_4 = tracer_index_table( PARAM_tr17_4 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_4 ) = .TRUE. tracer_dname_table( idomain, P_tr17_4 ) = 'tr17_4' tracer_desc_table( idomain, P_tr17_4 ) = 'tr17_4' tracer_units_table( idomain, P_tr17_4 ) = '-' tracer_streams_table( idomain, P_tr17_4 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_4 )%stream(2) = 2097156 ! 00200004 F_tr17_4 = .TRUE. IF ( tracer_index_table( PARAM_tr17_5 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_5 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_5 , idomain ) = P_tr17_5 ELSE P_tr17_5 = tracer_index_table( PARAM_tr17_5 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_5 ) = .TRUE. tracer_dname_table( idomain, P_tr17_5 ) = 'tr17_5' tracer_desc_table( idomain, P_tr17_5 ) = 'tr17_5' tracer_units_table( idomain, P_tr17_5 ) = '-' tracer_streams_table( idomain, P_tr17_5 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_5 )%stream(2) = 2097156 ! 00200004 F_tr17_5 = .TRUE. IF ( tracer_index_table( PARAM_tr17_6 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_6 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_6 , idomain ) = P_tr17_6 ELSE P_tr17_6 = tracer_index_table( PARAM_tr17_6 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_6 ) = .TRUE. tracer_dname_table( idomain, P_tr17_6 ) = 'tr17_6' tracer_desc_table( idomain, P_tr17_6 ) = 'tr17_6' tracer_units_table( idomain, P_tr17_6 ) = '-' tracer_streams_table( idomain, P_tr17_6 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_6 )%stream(2) = 2097156 ! 00200004 F_tr17_6 = .TRUE. IF ( tracer_index_table( PARAM_tr17_7 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_7 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_7 , idomain ) = P_tr17_7 ELSE P_tr17_7 = tracer_index_table( PARAM_tr17_7 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_7 ) = .TRUE. tracer_dname_table( idomain, P_tr17_7 ) = 'tr17_7' tracer_desc_table( idomain, P_tr17_7 ) = 'tr17_7' tracer_units_table( idomain, P_tr17_7 ) = '-' tracer_streams_table( idomain, P_tr17_7 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_7 )%stream(2) = 2097156 ! 00200004 F_tr17_7 = .TRUE. IF ( tracer_index_table( PARAM_tr17_8 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_8 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_8 , idomain ) = P_tr17_8 ELSE P_tr17_8 = tracer_index_table( PARAM_tr17_8 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_8 ) = .TRUE. tracer_dname_table( idomain, P_tr17_8 ) = 'tr17_8' tracer_desc_table( idomain, P_tr17_8 ) = 'tr17_8' tracer_units_table( idomain, P_tr17_8 ) = '-' tracer_streams_table( idomain, P_tr17_8 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr17_8 )%stream(2) = 2097156 ! 00200004 F_tr17_8 = .TRUE. IF ( tracer_index_table( PARAM_tr18_1 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr18_1 = tracer_num_table(idomain) tracer_index_table( PARAM_tr18_1 , idomain ) = P_tr18_1 ELSE P_tr18_1 = tracer_index_table( PARAM_tr18_1 , idomain ) END IF tracer_boundary_table( idomain, P_tr18_1 ) = .TRUE. tracer_dname_table( idomain, P_tr18_1 ) = 'tr18_1' tracer_desc_table( idomain, P_tr18_1 ) = 'tr18_1' tracer_units_table( idomain, P_tr18_1 ) = '-' tracer_streams_table( idomain, P_tr18_1 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr18_1 )%stream(2) = 2097156 ! 00200004 F_tr18_1 = .TRUE. IF ( tracer_index_table( PARAM_tr18_2 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr18_2 = tracer_num_table(idomain) tracer_index_table( PARAM_tr18_2 , idomain ) = P_tr18_2 ELSE P_tr18_2 = tracer_index_table( PARAM_tr18_2 , idomain ) END IF tracer_boundary_table( idomain, P_tr18_2 ) = .TRUE. tracer_dname_table( idomain, P_tr18_2 ) = 'tr18_2' tracer_desc_table( idomain, P_tr18_2 ) = 'tr18_2' tracer_units_table( idomain, P_tr18_2 ) = '-' tracer_streams_table( idomain, P_tr18_2 )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_tr18_2 )%stream(2) = 2097156 ! 00200004 F_tr18_2 = .TRUE. END IF IF (model_config_rec%aircraft_emiss_opt(idomain)==1)THEN IF ( emis_aircraft_index_table( PARAM_eac_no , idomain ) .lt. 1 ) THEN emis_aircraft_num_table(idomain) = emis_aircraft_num_table(idomain) + 1 P_eac_no = emis_aircraft_num_table(idomain) emis_aircraft_index_table( PARAM_eac_no , idomain ) = P_eac_no ELSE P_eac_no = emis_aircraft_index_table( PARAM_eac_no , idomain ) END IF emis_aircraft_boundary_table( idomain, P_eac_no ) = .FALSE. emis_aircraft_dname_table( idomain, P_eac_no ) = 'EAC_NO' emis_aircraft_desc_table( idomain, P_eac_no ) = 'EMISSIONS' emis_aircraft_units_table( idomain, P_eac_no ) = 'mol km^-2 hr^-1' emis_aircraft_streams_table( idomain, P_eac_no )%stream(1) = 0 ! 00000000 emis_aircraft_streams_table( idomain, P_eac_no )%stream(2) = 256 ! 00000100 F_eac_no = .TRUE. IF ( emis_aircraft_index_table( PARAM_eac_co , idomain ) .lt. 1 ) THEN emis_aircraft_num_table(idomain) = emis_aircraft_num_table(idomain) + 1 P_eac_co = emis_aircraft_num_table(idomain) emis_aircraft_index_table( PARAM_eac_co , idomain ) = P_eac_co ELSE P_eac_co = emis_aircraft_index_table( PARAM_eac_co , idomain ) END IF emis_aircraft_boundary_table( idomain, P_eac_co ) = .FALSE. emis_aircraft_dname_table( idomain, P_eac_co ) = 'EAC_CO' emis_aircraft_desc_table( idomain, P_eac_co ) = 'EMISSIONS' emis_aircraft_units_table( idomain, P_eac_co ) = 'mol km^-2 hr^-1' emis_aircraft_streams_table( idomain, P_eac_co )%stream(1) = 0 ! 00000000 emis_aircraft_streams_table( idomain, P_eac_co )%stream(2) = 256 ! 00000100 F_eac_co = .TRUE. IF ( emis_aircraft_index_table( PARAM_eac_so2 , idomain ) .lt. 1 ) THEN emis_aircraft_num_table(idomain) = emis_aircraft_num_table(idomain) + 1 P_eac_so2 = emis_aircraft_num_table(idomain) emis_aircraft_index_table( PARAM_eac_so2 , idomain ) = P_eac_so2 ELSE P_eac_so2 = emis_aircraft_index_table( PARAM_eac_so2 , idomain ) END IF emis_aircraft_boundary_table( idomain, P_eac_so2 ) = .FALSE. emis_aircraft_dname_table( idomain, P_eac_so2 ) = 'EAC_SO2' emis_aircraft_desc_table( idomain, P_eac_so2 ) = 'EMISSIONS' emis_aircraft_units_table( idomain, P_eac_so2 ) = 'mol km^-2 hr^-1' emis_aircraft_streams_table( idomain, P_eac_so2 )%stream(1) = 0 ! 00000000 emis_aircraft_streams_table( idomain, P_eac_so2 )%stream(2) = 256 ! 00000100 F_eac_so2 = .TRUE. IF ( emis_aircraft_index_table( PARAM_eac_ch4 , idomain ) .lt. 1 ) THEN emis_aircraft_num_table(idomain) = emis_aircraft_num_table(idomain) + 1 P_eac_ch4 = emis_aircraft_num_table(idomain) emis_aircraft_index_table( PARAM_eac_ch4 , idomain ) = P_eac_ch4 ELSE P_eac_ch4 = emis_aircraft_index_table( PARAM_eac_ch4 , idomain ) END IF emis_aircraft_boundary_table( idomain, P_eac_ch4 ) = .FALSE. emis_aircraft_dname_table( idomain, P_eac_ch4 ) = 'EAC_CH4' emis_aircraft_desc_table( idomain, P_eac_ch4 ) = 'EMISSIONS' emis_aircraft_units_table( idomain, P_eac_ch4 ) = 'mol km^-2 hr^-1' emis_aircraft_streams_table( idomain, P_eac_ch4 )%stream(1) = 0 ! 00000000 emis_aircraft_streams_table( idomain, P_eac_ch4 )%stream(2) = 256 ! 00000100 F_eac_ch4 = .TRUE. END IF IF (model_config_rec%chemdiag(idomain)==0)THEN END IF IF (model_config_rec%chemdiag(idomain)==1)THEN IF ( conv_ct_index_table( PARAM_conv_co , idomain ) .lt. 1 ) THEN conv_ct_num_table(idomain) = conv_ct_num_table(idomain) + 1 P_conv_co = conv_ct_num_table(idomain) conv_ct_index_table( PARAM_conv_co , idomain ) = P_conv_co ELSE P_conv_co = conv_ct_index_table( PARAM_conv_co , idomain ) END IF conv_ct_boundary_table( idomain, P_conv_co ) = .FALSE. conv_ct_dname_table( idomain, P_conv_co ) = 'conv_co' conv_ct_desc_table( idomain, P_conv_co ) = 'ACCUMULATED CONV TRANSPORT FOR CO' conv_ct_units_table( idomain, P_conv_co ) = 'ppmv' conv_ct_streams_table( idomain, P_conv_co )%stream(1) = 0 ! 00000000 conv_ct_streams_table( idomain, P_conv_co )%stream(2) = 2097152 ! 00200000 F_conv_co = .TRUE. IF ( conv_ct_index_table( PARAM_conv_o3 , idomain ) .lt. 1 ) THEN conv_ct_num_table(idomain) = conv_ct_num_table(idomain) + 1 P_conv_o3 = conv_ct_num_table(idomain) conv_ct_index_table( PARAM_conv_o3 , idomain ) = P_conv_o3 ELSE P_conv_o3 = conv_ct_index_table( PARAM_conv_o3 , idomain ) END IF conv_ct_boundary_table( idomain, P_conv_o3 ) = .FALSE. conv_ct_dname_table( idomain, P_conv_o3 ) = 'conv_o3' conv_ct_desc_table( idomain, P_conv_o3 ) = 'ACCUMULATED CONV TRANSPORT FOR O3' conv_ct_units_table( idomain, P_conv_o3 ) = 'ppmv' conv_ct_streams_table( idomain, P_conv_o3 )%stream(1) = 0 ! 00000000 conv_ct_streams_table( idomain, P_conv_o3 )%stream(2) = 2097152 ! 00200000 F_conv_o3 = .TRUE. IF ( conv_ct_index_table( PARAM_conv_no , idomain ) .lt. 1 ) THEN conv_ct_num_table(idomain) = conv_ct_num_table(idomain) + 1 P_conv_no = conv_ct_num_table(idomain) conv_ct_index_table( PARAM_conv_no , idomain ) = P_conv_no ELSE P_conv_no = conv_ct_index_table( PARAM_conv_no , idomain ) END IF conv_ct_boundary_table( idomain, P_conv_no ) = .FALSE. conv_ct_dname_table( idomain, P_conv_no ) = 'conv_no' conv_ct_desc_table( idomain, P_conv_no ) = 'ACCUMULATED CONV TRANSPORT FOR NO' conv_ct_units_table( idomain, P_conv_no ) = 'ppmv' conv_ct_streams_table( idomain, P_conv_no )%stream(1) = 0 ! 00000000 conv_ct_streams_table( idomain, P_conv_no )%stream(2) = 2097152 ! 00200000 F_conv_no = .TRUE. IF ( conv_ct_index_table( PARAM_conv_no2 , idomain ) .lt. 1 ) THEN conv_ct_num_table(idomain) = conv_ct_num_table(idomain) + 1 P_conv_no2 = conv_ct_num_table(idomain) conv_ct_index_table( PARAM_conv_no2 , idomain ) = P_conv_no2 ELSE P_conv_no2 = conv_ct_index_table( PARAM_conv_no2 , idomain ) END IF conv_ct_boundary_table( idomain, P_conv_no2 ) = .FALSE. conv_ct_dname_table( idomain, P_conv_no2 ) = 'conv_no2' conv_ct_desc_table( idomain, P_conv_no2 ) = 'ACCUMULATED CONV TRANSPORT FOR NO2' conv_ct_units_table( idomain, P_conv_no2 ) = 'ppmv' conv_ct_streams_table( idomain, P_conv_no2 )%stream(1) = 0 ! 00000000 conv_ct_streams_table( idomain, P_conv_no2 )%stream(2) = 2097152 ! 00200000 F_conv_no2 = .TRUE. IF ( conv_ct_index_table( PARAM_conv_hno3 , idomain ) .lt. 1 ) THEN conv_ct_num_table(idomain) = conv_ct_num_table(idomain) + 1 P_conv_hno3 = conv_ct_num_table(idomain) conv_ct_index_table( PARAM_conv_hno3 , idomain ) = P_conv_hno3 ELSE P_conv_hno3 = conv_ct_index_table( PARAM_conv_hno3 , idomain ) END IF conv_ct_boundary_table( idomain, P_conv_hno3 ) = .FALSE. conv_ct_dname_table( idomain, P_conv_hno3 ) = 'conv_hno3' conv_ct_desc_table( idomain, P_conv_hno3 ) = 'ACCUMULATED CONV TRANSPORT FOR HNO3' conv_ct_units_table( idomain, P_conv_hno3 ) = 'ppmv' conv_ct_streams_table( idomain, P_conv_hno3 )%stream(1) = 0 ! 00000000 conv_ct_streams_table( idomain, P_conv_hno3 )%stream(2) = 2097152 ! 00200000 F_conv_hno3 = .TRUE. IF ( conv_ct_index_table( PARAM_conv_iso , idomain ) .lt. 1 ) THEN conv_ct_num_table(idomain) = conv_ct_num_table(idomain) + 1 P_conv_iso = conv_ct_num_table(idomain) conv_ct_index_table( PARAM_conv_iso , idomain ) = P_conv_iso ELSE P_conv_iso = conv_ct_index_table( PARAM_conv_iso , idomain ) END IF conv_ct_boundary_table( idomain, P_conv_iso ) = .FALSE. conv_ct_dname_table( idomain, P_conv_iso ) = 'conv_iso' conv_ct_desc_table( idomain, P_conv_iso ) = 'ACCUMULATED CONV TRANSPORT FOR ISO' conv_ct_units_table( idomain, P_conv_iso ) = 'ppmv' conv_ct_streams_table( idomain, P_conv_iso )%stream(1) = 0 ! 00000000 conv_ct_streams_table( idomain, P_conv_iso )%stream(2) = 2097152 ! 00200000 F_conv_iso = .TRUE. IF ( conv_ct_index_table( PARAM_conv_ho , idomain ) .lt. 1 ) THEN conv_ct_num_table(idomain) = conv_ct_num_table(idomain) + 1 P_conv_ho = conv_ct_num_table(idomain) conv_ct_index_table( PARAM_conv_ho , idomain ) = P_conv_ho ELSE P_conv_ho = conv_ct_index_table( PARAM_conv_ho , idomain ) END IF conv_ct_boundary_table( idomain, P_conv_ho ) = .FALSE. conv_ct_dname_table( idomain, P_conv_ho ) = 'conv_ho' conv_ct_desc_table( idomain, P_conv_ho ) = 'ACCUMULATED CONV TRANSPORT FOR HO' conv_ct_units_table( idomain, P_conv_ho ) = 'ppmv' conv_ct_streams_table( idomain, P_conv_ho )%stream(1) = 0 ! 00000000 conv_ct_streams_table( idomain, P_conv_ho )%stream(2) = 2097152 ! 00200000 F_conv_ho = .TRUE. IF ( conv_ct_index_table( PARAM_conv_ho2 , idomain ) .lt. 1 ) THEN conv_ct_num_table(idomain) = conv_ct_num_table(idomain) + 1 P_conv_ho2 = conv_ct_num_table(idomain) conv_ct_index_table( PARAM_conv_ho2 , idomain ) = P_conv_ho2 ELSE P_conv_ho2 = conv_ct_index_table( PARAM_conv_ho2 , idomain ) END IF conv_ct_boundary_table( idomain, P_conv_ho2 ) = .FALSE. conv_ct_dname_table( idomain, P_conv_ho2 ) = 'conv_ho2' conv_ct_desc_table( idomain, P_conv_ho2 ) = 'ACCUMULATED CONV TRANSPORT FOR HO2' conv_ct_units_table( idomain, P_conv_ho2 ) = 'ppmv' conv_ct_streams_table( idomain, P_conv_ho2 )%stream(1) = 0 ! 00000000 conv_ct_streams_table( idomain, P_conv_ho2 )%stream(2) = 2097152 ! 00200000 F_conv_ho2 = .TRUE. IF ( chem_ct_index_table( PARAM_chem_co , idomain ) .lt. 1 ) THEN chem_ct_num_table(idomain) = chem_ct_num_table(idomain) + 1 P_chem_co = chem_ct_num_table(idomain) chem_ct_index_table( PARAM_chem_co , idomain ) = P_chem_co ELSE P_chem_co = chem_ct_index_table( PARAM_chem_co , idomain ) END IF chem_ct_boundary_table( idomain, P_chem_co ) = .FALSE. chem_ct_dname_table( idomain, P_chem_co ) = 'chem_co' chem_ct_desc_table( idomain, P_chem_co ) = 'ACCUMULATED CHEM TENDENCY FOR CO' chem_ct_units_table( idomain, P_chem_co ) = 'ppmv' chem_ct_streams_table( idomain, P_chem_co )%stream(1) = 0 ! 00000000 chem_ct_streams_table( idomain, P_chem_co )%stream(2) = 2097152 ! 00200000 F_chem_co = .TRUE. IF ( chem_ct_index_table( PARAM_chem_o3 , idomain ) .lt. 1 ) THEN chem_ct_num_table(idomain) = chem_ct_num_table(idomain) + 1 P_chem_o3 = chem_ct_num_table(idomain) chem_ct_index_table( PARAM_chem_o3 , idomain ) = P_chem_o3 ELSE P_chem_o3 = chem_ct_index_table( PARAM_chem_o3 , idomain ) END IF chem_ct_boundary_table( idomain, P_chem_o3 ) = .FALSE. chem_ct_dname_table( idomain, P_chem_o3 ) = 'chem_o3' chem_ct_desc_table( idomain, P_chem_o3 ) = 'ACCUMULATED CHEM TENDENCY FOR O3' chem_ct_units_table( idomain, P_chem_o3 ) = 'ppmv' chem_ct_streams_table( idomain, P_chem_o3 )%stream(1) = 0 ! 00000000 chem_ct_streams_table( idomain, P_chem_o3 )%stream(2) = 2097152 ! 00200000 F_chem_o3 = .TRUE. IF ( chem_ct_index_table( PARAM_chem_no , idomain ) .lt. 1 ) THEN chem_ct_num_table(idomain) = chem_ct_num_table(idomain) + 1 P_chem_no = chem_ct_num_table(idomain) chem_ct_index_table( PARAM_chem_no , idomain ) = P_chem_no ELSE P_chem_no = chem_ct_index_table( PARAM_chem_no , idomain ) END IF chem_ct_boundary_table( idomain, P_chem_no ) = .FALSE. chem_ct_dname_table( idomain, P_chem_no ) = 'chem_no' chem_ct_desc_table( idomain, P_chem_no ) = 'ACCUMULATED CHEM TENDENCY FOR NO' chem_ct_units_table( idomain, P_chem_no ) = 'ppmv' chem_ct_streams_table( idomain, P_chem_no )%stream(1) = 0 ! 00000000 chem_ct_streams_table( idomain, P_chem_no )%stream(2) = 2097152 ! 00200000 F_chem_no = .TRUE. IF ( chem_ct_index_table( PARAM_chem_no2 , idomain ) .lt. 1 ) THEN chem_ct_num_table(idomain) = chem_ct_num_table(idomain) + 1 P_chem_no2 = chem_ct_num_table(idomain) chem_ct_index_table( PARAM_chem_no2 , idomain ) = P_chem_no2 ELSE P_chem_no2 = chem_ct_index_table( PARAM_chem_no2 , idomain ) END IF chem_ct_boundary_table( idomain, P_chem_no2 ) = .FALSE. chem_ct_dname_table( idomain, P_chem_no2 ) = 'chem_no2' chem_ct_desc_table( idomain, P_chem_no2 ) = 'ACCUMULATED CHEM TENDENCY FOR NO2' chem_ct_units_table( idomain, P_chem_no2 ) = 'ppmv' chem_ct_streams_table( idomain, P_chem_no2 )%stream(1) = 0 ! 00000000 chem_ct_streams_table( idomain, P_chem_no2 )%stream(2) = 2097152 ! 00200000 F_chem_no2 = .TRUE. IF ( chem_ct_index_table( PARAM_chem_hno3 , idomain ) .lt. 1 ) THEN chem_ct_num_table(idomain) = chem_ct_num_table(idomain) + 1 P_chem_hno3 = chem_ct_num_table(idomain) chem_ct_index_table( PARAM_chem_hno3 , idomain ) = P_chem_hno3 ELSE P_chem_hno3 = chem_ct_index_table( PARAM_chem_hno3 , idomain ) END IF chem_ct_boundary_table( idomain, P_chem_hno3 ) = .FALSE. chem_ct_dname_table( idomain, P_chem_hno3 ) = 'chem_hno3' chem_ct_desc_table( idomain, P_chem_hno3 ) = 'ACCUMULATED CHEM TENDENCY FOR HNO3' chem_ct_units_table( idomain, P_chem_hno3 ) = 'ppmv' chem_ct_streams_table( idomain, P_chem_hno3 )%stream(1) = 0 ! 00000000 chem_ct_streams_table( idomain, P_chem_hno3 )%stream(2) = 2097152 ! 00200000 F_chem_hno3 = .TRUE. IF ( chem_ct_index_table( PARAM_chem_iso , idomain ) .lt. 1 ) THEN chem_ct_num_table(idomain) = chem_ct_num_table(idomain) + 1 P_chem_iso = chem_ct_num_table(idomain) chem_ct_index_table( PARAM_chem_iso , idomain ) = P_chem_iso ELSE P_chem_iso = chem_ct_index_table( PARAM_chem_iso , idomain ) END IF chem_ct_boundary_table( idomain, P_chem_iso ) = .FALSE. chem_ct_dname_table( idomain, P_chem_iso ) = 'chem_iso' chem_ct_desc_table( idomain, P_chem_iso ) = 'ACCUMULATED CHEM TENDENCY FOR ISO' chem_ct_units_table( idomain, P_chem_iso ) = 'ppmv' chem_ct_streams_table( idomain, P_chem_iso )%stream(1) = 0 ! 00000000 chem_ct_streams_table( idomain, P_chem_iso )%stream(2) = 2097152 ! 00200000 F_chem_iso = .TRUE. IF ( chem_ct_index_table( PARAM_chem_ho , idomain ) .lt. 1 ) THEN chem_ct_num_table(idomain) = chem_ct_num_table(idomain) + 1 P_chem_ho = chem_ct_num_table(idomain) chem_ct_index_table( PARAM_chem_ho , idomain ) = P_chem_ho ELSE P_chem_ho = chem_ct_index_table( PARAM_chem_ho , idomain ) END IF chem_ct_boundary_table( idomain, P_chem_ho ) = .FALSE. chem_ct_dname_table( idomain, P_chem_ho ) = 'chem_ho' chem_ct_desc_table( idomain, P_chem_ho ) = 'ACCUMULATED CHEM TENDENCY FOR HO' chem_ct_units_table( idomain, P_chem_ho ) = 'ppmv' chem_ct_streams_table( idomain, P_chem_ho )%stream(1) = 0 ! 00000000 chem_ct_streams_table( idomain, P_chem_ho )%stream(2) = 2097152 ! 00200000 F_chem_ho = .TRUE. IF ( chem_ct_index_table( PARAM_chem_ho2 , idomain ) .lt. 1 ) THEN chem_ct_num_table(idomain) = chem_ct_num_table(idomain) + 1 P_chem_ho2 = chem_ct_num_table(idomain) chem_ct_index_table( PARAM_chem_ho2 , idomain ) = P_chem_ho2 ELSE P_chem_ho2 = chem_ct_index_table( PARAM_chem_ho2 , idomain ) END IF chem_ct_boundary_table( idomain, P_chem_ho2 ) = .FALSE. chem_ct_dname_table( idomain, P_chem_ho2 ) = 'chem_ho2' chem_ct_desc_table( idomain, P_chem_ho2 ) = 'ACCUMULATED CHEM TENDENCY FOR HO2' chem_ct_units_table( idomain, P_chem_ho2 ) = 'ppmv' chem_ct_streams_table( idomain, P_chem_ho2 )%stream(1) = 0 ! 00000000 chem_ct_streams_table( idomain, P_chem_ho2 )%stream(2) = 2097152 ! 00200000 F_chem_ho2 = .TRUE. IF ( vmix_ct_index_table( PARAM_vmix_co , idomain ) .lt. 1 ) THEN vmix_ct_num_table(idomain) = vmix_ct_num_table(idomain) + 1 P_vmix_co = vmix_ct_num_table(idomain) vmix_ct_index_table( PARAM_vmix_co , idomain ) = P_vmix_co ELSE P_vmix_co = vmix_ct_index_table( PARAM_vmix_co , idomain ) END IF vmix_ct_boundary_table( idomain, P_vmix_co ) = .FALSE. vmix_ct_dname_table( idomain, P_vmix_co ) = 'vmix_co' vmix_ct_desc_table( idomain, P_vmix_co ) = 'ACCUMULATED TENDENCY FOR CO BY VERTICAL MIXING' vmix_ct_units_table( idomain, P_vmix_co ) = 'ppmv' vmix_ct_streams_table( idomain, P_vmix_co )%stream(1) = 0 ! 00000000 vmix_ct_streams_table( idomain, P_vmix_co )%stream(2) = 2097152 ! 00200000 F_vmix_co = .TRUE. IF ( vmix_ct_index_table( PARAM_vmix_o3 , idomain ) .lt. 1 ) THEN vmix_ct_num_table(idomain) = vmix_ct_num_table(idomain) + 1 P_vmix_o3 = vmix_ct_num_table(idomain) vmix_ct_index_table( PARAM_vmix_o3 , idomain ) = P_vmix_o3 ELSE P_vmix_o3 = vmix_ct_index_table( PARAM_vmix_o3 , idomain ) END IF vmix_ct_boundary_table( idomain, P_vmix_o3 ) = .FALSE. vmix_ct_dname_table( idomain, P_vmix_o3 ) = 'vmix_o3' vmix_ct_desc_table( idomain, P_vmix_o3 ) = 'ACCUMULATED TENDENCY FOR O3 BY VERTICAL MIXING' vmix_ct_units_table( idomain, P_vmix_o3 ) = 'ppmv' vmix_ct_streams_table( idomain, P_vmix_o3 )%stream(1) = 0 ! 00000000 vmix_ct_streams_table( idomain, P_vmix_o3 )%stream(2) = 2097152 ! 00200000 F_vmix_o3 = .TRUE. IF ( vmix_ct_index_table( PARAM_vmix_no , idomain ) .lt. 1 ) THEN vmix_ct_num_table(idomain) = vmix_ct_num_table(idomain) + 1 P_vmix_no = vmix_ct_num_table(idomain) vmix_ct_index_table( PARAM_vmix_no , idomain ) = P_vmix_no ELSE P_vmix_no = vmix_ct_index_table( PARAM_vmix_no , idomain ) END IF vmix_ct_boundary_table( idomain, P_vmix_no ) = .FALSE. vmix_ct_dname_table( idomain, P_vmix_no ) = 'vmix_no' vmix_ct_desc_table( idomain, P_vmix_no ) = 'ACCUMULATED TENDENCY FOR NO BY VERTICAL MIXING' vmix_ct_units_table( idomain, P_vmix_no ) = 'ppmv' vmix_ct_streams_table( idomain, P_vmix_no )%stream(1) = 0 ! 00000000 vmix_ct_streams_table( idomain, P_vmix_no )%stream(2) = 2097152 ! 00200000 F_vmix_no = .TRUE. IF ( vmix_ct_index_table( PARAM_vmix_no2 , idomain ) .lt. 1 ) THEN vmix_ct_num_table(idomain) = vmix_ct_num_table(idomain) + 1 P_vmix_no2 = vmix_ct_num_table(idomain) vmix_ct_index_table( PARAM_vmix_no2 , idomain ) = P_vmix_no2 ELSE P_vmix_no2 = vmix_ct_index_table( PARAM_vmix_no2 , idomain ) END IF vmix_ct_boundary_table( idomain, P_vmix_no2 ) = .FALSE. vmix_ct_dname_table( idomain, P_vmix_no2 ) = 'vmix_no2' vmix_ct_desc_table( idomain, P_vmix_no2 ) = 'ACCUMULATED TENDENCY FOR NO2 BY VERTICAL MIXING' vmix_ct_units_table( idomain, P_vmix_no2 ) = 'ppmv' vmix_ct_streams_table( idomain, P_vmix_no2 )%stream(1) = 0 ! 00000000 vmix_ct_streams_table( idomain, P_vmix_no2 )%stream(2) = 2097152 ! 00200000 F_vmix_no2 = .TRUE. IF ( vmix_ct_index_table( PARAM_vmix_hno3 , idomain ) .lt. 1 ) THEN vmix_ct_num_table(idomain) = vmix_ct_num_table(idomain) + 1 P_vmix_hno3 = vmix_ct_num_table(idomain) vmix_ct_index_table( PARAM_vmix_hno3 , idomain ) = P_vmix_hno3 ELSE P_vmix_hno3 = vmix_ct_index_table( PARAM_vmix_hno3 , idomain ) END IF vmix_ct_boundary_table( idomain, P_vmix_hno3 ) = .FALSE. vmix_ct_dname_table( idomain, P_vmix_hno3 ) = 'vmix_hno3' vmix_ct_desc_table( idomain, P_vmix_hno3 ) = 'ACCUMULATED TENDENCY FOR HNO3 BY VERTICAL MIXING' vmix_ct_units_table( idomain, P_vmix_hno3 ) = 'ppmv' vmix_ct_streams_table( idomain, P_vmix_hno3 )%stream(1) = 0 ! 00000000 vmix_ct_streams_table( idomain, P_vmix_hno3 )%stream(2) = 2097152 ! 00200000 F_vmix_hno3 = .TRUE. IF ( vmix_ct_index_table( PARAM_vmix_iso , idomain ) .lt. 1 ) THEN vmix_ct_num_table(idomain) = vmix_ct_num_table(idomain) + 1 P_vmix_iso = vmix_ct_num_table(idomain) vmix_ct_index_table( PARAM_vmix_iso , idomain ) = P_vmix_iso ELSE P_vmix_iso = vmix_ct_index_table( PARAM_vmix_iso , idomain ) END IF vmix_ct_boundary_table( idomain, P_vmix_iso ) = .FALSE. vmix_ct_dname_table( idomain, P_vmix_iso ) = 'vmix_iso' vmix_ct_desc_table( idomain, P_vmix_iso ) = 'ACCUMULATED TENDENCY FOR ISO BY VERTICAL MIXING' vmix_ct_units_table( idomain, P_vmix_iso ) = 'ppmv' vmix_ct_streams_table( idomain, P_vmix_iso )%stream(1) = 0 ! 00000000 vmix_ct_streams_table( idomain, P_vmix_iso )%stream(2) = 2097152 ! 00200000 F_vmix_iso = .TRUE. IF ( vmix_ct_index_table( PARAM_vmix_ho , idomain ) .lt. 1 ) THEN vmix_ct_num_table(idomain) = vmix_ct_num_table(idomain) + 1 P_vmix_ho = vmix_ct_num_table(idomain) vmix_ct_index_table( PARAM_vmix_ho , idomain ) = P_vmix_ho ELSE P_vmix_ho = vmix_ct_index_table( PARAM_vmix_ho , idomain ) END IF vmix_ct_boundary_table( idomain, P_vmix_ho ) = .FALSE. vmix_ct_dname_table( idomain, P_vmix_ho ) = 'vmix_ho' vmix_ct_desc_table( idomain, P_vmix_ho ) = 'ACCUMULATED TENDENCY FOR HO BY VERTICAL MIXING' vmix_ct_units_table( idomain, P_vmix_ho ) = 'ppmv' vmix_ct_streams_table( idomain, P_vmix_ho )%stream(1) = 0 ! 00000000 vmix_ct_streams_table( idomain, P_vmix_ho )%stream(2) = 2097152 ! 00200000 F_vmix_ho = .TRUE. IF ( vmix_ct_index_table( PARAM_vmix_ho2 , idomain ) .lt. 1 ) THEN vmix_ct_num_table(idomain) = vmix_ct_num_table(idomain) + 1 P_vmix_ho2 = vmix_ct_num_table(idomain) vmix_ct_index_table( PARAM_vmix_ho2 , idomain ) = P_vmix_ho2 ELSE P_vmix_ho2 = vmix_ct_index_table( PARAM_vmix_ho2 , idomain ) END IF vmix_ct_boundary_table( idomain, P_vmix_ho2 ) = .FALSE. vmix_ct_dname_table( idomain, P_vmix_ho2 ) = 'vmix_ho2' vmix_ct_desc_table( idomain, P_vmix_ho2 ) = 'ACCUMULATED TENDENCY FOR HO2 BY VERTICAL MIXING' vmix_ct_units_table( idomain, P_vmix_ho2 ) = 'ppmv' vmix_ct_streams_table( idomain, P_vmix_ho2 )%stream(1) = 0 ! 00000000 vmix_ct_streams_table( idomain, P_vmix_ho2 )%stream(2) = 2097152 ! 00200000 F_vmix_ho2 = .TRUE. IF ( advh_ct_index_table( PARAM_advh_co , idomain ) .lt. 1 ) THEN advh_ct_num_table(idomain) = advh_ct_num_table(idomain) + 1 P_advh_co = advh_ct_num_table(idomain) advh_ct_index_table( PARAM_advh_co , idomain ) = P_advh_co ELSE P_advh_co = advh_ct_index_table( PARAM_advh_co , idomain ) END IF advh_ct_boundary_table( idomain, P_advh_co ) = .FALSE. advh_ct_dname_table( idomain, P_advh_co ) = 'advh_co' advh_ct_desc_table( idomain, P_advh_co ) = 'ACCUMULATED TENDENCY FOR CO BY HORIZONTAL ADVECTION' advh_ct_units_table( idomain, P_advh_co ) = 'ppmv' advh_ct_streams_table( idomain, P_advh_co )%stream(1) = 0 ! 00000000 advh_ct_streams_table( idomain, P_advh_co )%stream(2) = 2097152 ! 00200000 F_advh_co = .TRUE. IF ( advh_ct_index_table( PARAM_advh_o3 , idomain ) .lt. 1 ) THEN advh_ct_num_table(idomain) = advh_ct_num_table(idomain) + 1 P_advh_o3 = advh_ct_num_table(idomain) advh_ct_index_table( PARAM_advh_o3 , idomain ) = P_advh_o3 ELSE P_advh_o3 = advh_ct_index_table( PARAM_advh_o3 , idomain ) END IF advh_ct_boundary_table( idomain, P_advh_o3 ) = .FALSE. advh_ct_dname_table( idomain, P_advh_o3 ) = 'advh_o3' advh_ct_desc_table( idomain, P_advh_o3 ) = 'ACCUMULATED TENDENCY FOR O3 BY HORIZONTAL ADVECTION' advh_ct_units_table( idomain, P_advh_o3 ) = 'ppmv' advh_ct_streams_table( idomain, P_advh_o3 )%stream(1) = 0 ! 00000000 advh_ct_streams_table( idomain, P_advh_o3 )%stream(2) = 2097152 ! 00200000 F_advh_o3 = .TRUE. IF ( advh_ct_index_table( PARAM_advh_no , idomain ) .lt. 1 ) THEN advh_ct_num_table(idomain) = advh_ct_num_table(idomain) + 1 P_advh_no = advh_ct_num_table(idomain) advh_ct_index_table( PARAM_advh_no , idomain ) = P_advh_no ELSE P_advh_no = advh_ct_index_table( PARAM_advh_no , idomain ) END IF advh_ct_boundary_table( idomain, P_advh_no ) = .FALSE. advh_ct_dname_table( idomain, P_advh_no ) = 'advh_no' advh_ct_desc_table( idomain, P_advh_no ) = 'ACCUMULATED TENDENCY FOR NO BY HORIZONTAL ADVECTION' advh_ct_units_table( idomain, P_advh_no ) = 'ppmv' advh_ct_streams_table( idomain, P_advh_no )%stream(1) = 0 ! 00000000 advh_ct_streams_table( idomain, P_advh_no )%stream(2) = 2097152 ! 00200000 F_advh_no = .TRUE. IF ( advh_ct_index_table( PARAM_advh_no2 , idomain ) .lt. 1 ) THEN advh_ct_num_table(idomain) = advh_ct_num_table(idomain) + 1 P_advh_no2 = advh_ct_num_table(idomain) advh_ct_index_table( PARAM_advh_no2 , idomain ) = P_advh_no2 ELSE P_advh_no2 = advh_ct_index_table( PARAM_advh_no2 , idomain ) END IF advh_ct_boundary_table( idomain, P_advh_no2 ) = .FALSE. advh_ct_dname_table( idomain, P_advh_no2 ) = 'advh_no2' advh_ct_desc_table( idomain, P_advh_no2 ) = 'ACCUMULATED TENDENCY FOR NO2 BY HORIZONTAL ADVECTION' advh_ct_units_table( idomain, P_advh_no2 ) = 'ppmv' advh_ct_streams_table( idomain, P_advh_no2 )%stream(1) = 0 ! 00000000 advh_ct_streams_table( idomain, P_advh_no2 )%stream(2) = 2097152 ! 00200000 F_advh_no2 = .TRUE. IF ( advh_ct_index_table( PARAM_advh_hno3 , idomain ) .lt. 1 ) THEN advh_ct_num_table(idomain) = advh_ct_num_table(idomain) + 1 P_advh_hno3 = advh_ct_num_table(idomain) advh_ct_index_table( PARAM_advh_hno3 , idomain ) = P_advh_hno3 ELSE P_advh_hno3 = advh_ct_index_table( PARAM_advh_hno3 , idomain ) END IF advh_ct_boundary_table( idomain, P_advh_hno3 ) = .FALSE. advh_ct_dname_table( idomain, P_advh_hno3 ) = 'advh_hno3' advh_ct_desc_table( idomain, P_advh_hno3 ) = 'ACCUMULATED TENDENCY FOR HNO3 BY HORIZONTAL ADVECTION' advh_ct_units_table( idomain, P_advh_hno3 ) = 'ppmv' advh_ct_streams_table( idomain, P_advh_hno3 )%stream(1) = 0 ! 00000000 advh_ct_streams_table( idomain, P_advh_hno3 )%stream(2) = 2097152 ! 00200000 F_advh_hno3 = .TRUE. IF ( advh_ct_index_table( PARAM_advh_iso , idomain ) .lt. 1 ) THEN advh_ct_num_table(idomain) = advh_ct_num_table(idomain) + 1 P_advh_iso = advh_ct_num_table(idomain) advh_ct_index_table( PARAM_advh_iso , idomain ) = P_advh_iso ELSE P_advh_iso = advh_ct_index_table( PARAM_advh_iso , idomain ) END IF advh_ct_boundary_table( idomain, P_advh_iso ) = .FALSE. advh_ct_dname_table( idomain, P_advh_iso ) = 'advh_iso' advh_ct_desc_table( idomain, P_advh_iso ) = 'ACCUMULATED TENDENCY FOR ISO BY HORIZONTAL ADVECTION' advh_ct_units_table( idomain, P_advh_iso ) = 'ppmv' advh_ct_streams_table( idomain, P_advh_iso )%stream(1) = 0 ! 00000000 advh_ct_streams_table( idomain, P_advh_iso )%stream(2) = 2097152 ! 00200000 F_advh_iso = .TRUE. IF ( advh_ct_index_table( PARAM_advh_ho , idomain ) .lt. 1 ) THEN advh_ct_num_table(idomain) = advh_ct_num_table(idomain) + 1 P_advh_ho = advh_ct_num_table(idomain) advh_ct_index_table( PARAM_advh_ho , idomain ) = P_advh_ho ELSE P_advh_ho = advh_ct_index_table( PARAM_advh_ho , idomain ) END IF advh_ct_boundary_table( idomain, P_advh_ho ) = .FALSE. advh_ct_dname_table( idomain, P_advh_ho ) = 'advh_ho' advh_ct_desc_table( idomain, P_advh_ho ) = 'ACCUMULATED TENDENCY FOR HO BY HORIZONTAL ADVECTION' advh_ct_units_table( idomain, P_advh_ho ) = 'ppmv' advh_ct_streams_table( idomain, P_advh_ho )%stream(1) = 0 ! 00000000 advh_ct_streams_table( idomain, P_advh_ho )%stream(2) = 2097152 ! 00200000 F_advh_ho = .TRUE. IF ( advh_ct_index_table( PARAM_advh_ho2 , idomain ) .lt. 1 ) THEN advh_ct_num_table(idomain) = advh_ct_num_table(idomain) + 1 P_advh_ho2 = advh_ct_num_table(idomain) advh_ct_index_table( PARAM_advh_ho2 , idomain ) = P_advh_ho2 ELSE P_advh_ho2 = advh_ct_index_table( PARAM_advh_ho2 , idomain ) END IF advh_ct_boundary_table( idomain, P_advh_ho2 ) = .FALSE. advh_ct_dname_table( idomain, P_advh_ho2 ) = 'advh_ho2' advh_ct_desc_table( idomain, P_advh_ho2 ) = 'ACCUMULATED TENDENCY FOR HO2 BY HORIZONTAL ADVECTION' advh_ct_units_table( idomain, P_advh_ho2 ) = 'ppmv' advh_ct_streams_table( idomain, P_advh_ho2 )%stream(1) = 0 ! 00000000 advh_ct_streams_table( idomain, P_advh_ho2 )%stream(2) = 2097152 ! 00200000 F_advh_ho2 = .TRUE. IF ( advz_ct_index_table( PARAM_advz_co , idomain ) .lt. 1 ) THEN advz_ct_num_table(idomain) = advz_ct_num_table(idomain) + 1 P_advz_co = advz_ct_num_table(idomain) advz_ct_index_table( PARAM_advz_co , idomain ) = P_advz_co ELSE P_advz_co = advz_ct_index_table( PARAM_advz_co , idomain ) END IF advz_ct_boundary_table( idomain, P_advz_co ) = .FALSE. advz_ct_dname_table( idomain, P_advz_co ) = 'advz_co' advz_ct_desc_table( idomain, P_advz_co ) = 'ACCUMULATED TENDENCY FOR CO BY VERTICAL ADVECTION' advz_ct_units_table( idomain, P_advz_co ) = 'ppmv' advz_ct_streams_table( idomain, P_advz_co )%stream(1) = 0 ! 00000000 advz_ct_streams_table( idomain, P_advz_co )%stream(2) = 2097152 ! 00200000 F_advz_co = .TRUE. IF ( advz_ct_index_table( PARAM_advz_o3 , idomain ) .lt. 1 ) THEN advz_ct_num_table(idomain) = advz_ct_num_table(idomain) + 1 P_advz_o3 = advz_ct_num_table(idomain) advz_ct_index_table( PARAM_advz_o3 , idomain ) = P_advz_o3 ELSE P_advz_o3 = advz_ct_index_table( PARAM_advz_o3 , idomain ) END IF advz_ct_boundary_table( idomain, P_advz_o3 ) = .FALSE. advz_ct_dname_table( idomain, P_advz_o3 ) = 'advz_o3' advz_ct_desc_table( idomain, P_advz_o3 ) = 'ACCUMULATED TENDENCY FOR O3 BY VERTICAL ADVECTION' advz_ct_units_table( idomain, P_advz_o3 ) = 'ppmv' advz_ct_streams_table( idomain, P_advz_o3 )%stream(1) = 0 ! 00000000 advz_ct_streams_table( idomain, P_advz_o3 )%stream(2) = 2097152 ! 00200000 F_advz_o3 = .TRUE. IF ( advz_ct_index_table( PARAM_advz_no , idomain ) .lt. 1 ) THEN advz_ct_num_table(idomain) = advz_ct_num_table(idomain) + 1 P_advz_no = advz_ct_num_table(idomain) advz_ct_index_table( PARAM_advz_no , idomain ) = P_advz_no ELSE P_advz_no = advz_ct_index_table( PARAM_advz_no , idomain ) END IF advz_ct_boundary_table( idomain, P_advz_no ) = .FALSE. advz_ct_dname_table( idomain, P_advz_no ) = 'advz_no' advz_ct_desc_table( idomain, P_advz_no ) = 'ACCUMULATED TENDENCY FOR NO BY VERTICAL ADVECTION' advz_ct_units_table( idomain, P_advz_no ) = 'ppmv' advz_ct_streams_table( idomain, P_advz_no )%stream(1) = 0 ! 00000000 advz_ct_streams_table( idomain, P_advz_no )%stream(2) = 2097152 ! 00200000 F_advz_no = .TRUE. IF ( advz_ct_index_table( PARAM_advz_no2 , idomain ) .lt. 1 ) THEN advz_ct_num_table(idomain) = advz_ct_num_table(idomain) + 1 P_advz_no2 = advz_ct_num_table(idomain) advz_ct_index_table( PARAM_advz_no2 , idomain ) = P_advz_no2 ELSE P_advz_no2 = advz_ct_index_table( PARAM_advz_no2 , idomain ) END IF advz_ct_boundary_table( idomain, P_advz_no2 ) = .FALSE. advz_ct_dname_table( idomain, P_advz_no2 ) = 'advz_no2' advz_ct_desc_table( idomain, P_advz_no2 ) = 'ACCUMULATED TENDENCY FOR NO2 BY VERTICAL ADVECTION' advz_ct_units_table( idomain, P_advz_no2 ) = 'ppmv' advz_ct_streams_table( idomain, P_advz_no2 )%stream(1) = 0 ! 00000000 advz_ct_streams_table( idomain, P_advz_no2 )%stream(2) = 2097152 ! 00200000 F_advz_no2 = .TRUE. IF ( advz_ct_index_table( PARAM_advz_hno3 , idomain ) .lt. 1 ) THEN advz_ct_num_table(idomain) = advz_ct_num_table(idomain) + 1 P_advz_hno3 = advz_ct_num_table(idomain) advz_ct_index_table( PARAM_advz_hno3 , idomain ) = P_advz_hno3 ELSE P_advz_hno3 = advz_ct_index_table( PARAM_advz_hno3 , idomain ) END IF advz_ct_boundary_table( idomain, P_advz_hno3 ) = .FALSE. advz_ct_dname_table( idomain, P_advz_hno3 ) = 'advz_hno3' advz_ct_desc_table( idomain, P_advz_hno3 ) = 'ACCUMULATED TENDENCY FOR HNO3 BY VERTICAL ADVECTION' advz_ct_units_table( idomain, P_advz_hno3 ) = 'ppmv' advz_ct_streams_table( idomain, P_advz_hno3 )%stream(1) = 0 ! 00000000 advz_ct_streams_table( idomain, P_advz_hno3 )%stream(2) = 2097152 ! 00200000 F_advz_hno3 = .TRUE. IF ( advz_ct_index_table( PARAM_advz_iso , idomain ) .lt. 1 ) THEN advz_ct_num_table(idomain) = advz_ct_num_table(idomain) + 1 P_advz_iso = advz_ct_num_table(idomain) advz_ct_index_table( PARAM_advz_iso , idomain ) = P_advz_iso ELSE P_advz_iso = advz_ct_index_table( PARAM_advz_iso , idomain ) END IF advz_ct_boundary_table( idomain, P_advz_iso ) = .FALSE. advz_ct_dname_table( idomain, P_advz_iso ) = 'advz_iso' advz_ct_desc_table( idomain, P_advz_iso ) = 'ACCUMULATED TENDENCY FOR ISO BY VERTICAL ADVECTION' advz_ct_units_table( idomain, P_advz_iso ) = 'ppmv' advz_ct_streams_table( idomain, P_advz_iso )%stream(1) = 0 ! 00000000 advz_ct_streams_table( idomain, P_advz_iso )%stream(2) = 2097152 ! 00200000 F_advz_iso = .TRUE. IF ( advz_ct_index_table( PARAM_advz_ho , idomain ) .lt. 1 ) THEN advz_ct_num_table(idomain) = advz_ct_num_table(idomain) + 1 P_advz_ho = advz_ct_num_table(idomain) advz_ct_index_table( PARAM_advz_ho , idomain ) = P_advz_ho ELSE P_advz_ho = advz_ct_index_table( PARAM_advz_ho , idomain ) END IF advz_ct_boundary_table( idomain, P_advz_ho ) = .FALSE. advz_ct_dname_table( idomain, P_advz_ho ) = 'advz_ho' advz_ct_desc_table( idomain, P_advz_ho ) = 'ACCUMULATED TENDENCY FOR HO BY VERTICAL ADVECTION' advz_ct_units_table( idomain, P_advz_ho ) = 'ppmv' advz_ct_streams_table( idomain, P_advz_ho )%stream(1) = 0 ! 00000000 advz_ct_streams_table( idomain, P_advz_ho )%stream(2) = 2097152 ! 00200000 F_advz_ho = .TRUE. IF ( advz_ct_index_table( PARAM_advz_ho2 , idomain ) .lt. 1 ) THEN advz_ct_num_table(idomain) = advz_ct_num_table(idomain) + 1 P_advz_ho2 = advz_ct_num_table(idomain) advz_ct_index_table( PARAM_advz_ho2 , idomain ) = P_advz_ho2 ELSE P_advz_ho2 = advz_ct_index_table( PARAM_advz_ho2 , idomain ) END IF advz_ct_boundary_table( idomain, P_advz_ho2 ) = .FALSE. advz_ct_dname_table( idomain, P_advz_ho2 ) = 'advz_ho2' advz_ct_desc_table( idomain, P_advz_ho2 ) = 'ACCUMULATED TENDENCY FOR HO2 BY VERTICAL ADVECTION' advz_ct_units_table( idomain, P_advz_ho2 ) = 'ppmv' advz_ct_streams_table( idomain, P_advz_ho2 )%stream(1) = 0 ! 00000000 advz_ct_streams_table( idomain, P_advz_ho2 )%stream(2) = 2097152 ! 00200000 F_advz_ho2 = .TRUE. END IF IF (model_config_rec%lnox_opt(idomain)==0)THEN END IF IF (model_config_rec%lnox_opt(idomain)==1)THEN IF ( tracer_index_table( PARAM_lnox_total , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_lnox_total = tracer_num_table(idomain) tracer_index_table( PARAM_lnox_total , idomain ) = P_lnox_total ELSE P_lnox_total = tracer_index_table( PARAM_lnox_total , idomain ) END IF tracer_boundary_table( idomain, P_lnox_total ) = .TRUE. tracer_dname_table( idomain, P_lnox_total ) = 'lnox_total' tracer_desc_table( idomain, P_lnox_total ) = 'Total LNOx tracer' tracer_units_table( idomain, P_lnox_total ) = 'ppmv' tracer_streams_table( idomain, P_lnox_total )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_lnox_total )%stream(2) = 2097156 ! 00200004 F_lnox_total = .TRUE. END IF IF (model_config_rec%lnox_opt(idomain)==2)THEN IF ( tracer_index_table( PARAM_lnox_ic , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_lnox_ic = tracer_num_table(idomain) tracer_index_table( PARAM_lnox_ic , idomain ) = P_lnox_ic ELSE P_lnox_ic = tracer_index_table( PARAM_lnox_ic , idomain ) END IF tracer_boundary_table( idomain, P_lnox_ic ) = .TRUE. tracer_dname_table( idomain, P_lnox_ic ) = 'lnox_ic' tracer_desc_table( idomain, P_lnox_ic ) = 'IC LNOx tracer' tracer_units_table( idomain, P_lnox_ic ) = 'ppmv' tracer_streams_table( idomain, P_lnox_ic )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_lnox_ic )%stream(2) = 2097156 ! 00200004 F_lnox_ic = .TRUE. IF ( tracer_index_table( PARAM_lnox_cg , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_lnox_cg = tracer_num_table(idomain) tracer_index_table( PARAM_lnox_cg , idomain ) = P_lnox_cg ELSE P_lnox_cg = tracer_index_table( PARAM_lnox_cg , idomain ) END IF tracer_boundary_table( idomain, P_lnox_cg ) = .TRUE. tracer_dname_table( idomain, P_lnox_cg ) = 'lnox_cg' tracer_desc_table( idomain, P_lnox_cg ) = 'CG LNOx tracer' tracer_units_table( idomain, P_lnox_cg ) = 'ppmv' tracer_streams_table( idomain, P_lnox_cg )%stream(1) = 1 ! 00000001 tracer_streams_table( idomain, P_lnox_cg )%stream(2) = 2097156 ! 00200004 F_lnox_cg = .TRUE. END IF IF (model_config_rec%irr_opt(idomain)==1)THEN IF ( irr_diag_index_table( PARAM_h2o2_hv_irr , idomain ) .lt. 1 ) THEN irr_diag_num_table(idomain) = irr_diag_num_table(idomain) + 1 P_h2o2_hv_irr = irr_diag_num_table(idomain) irr_diag_index_table( PARAM_h2o2_hv_irr , idomain ) = P_h2o2_hv_irr ELSE P_h2o2_hv_irr = irr_diag_index_table( PARAM_h2o2_hv_irr , idomain ) END IF irr_diag_boundary_table( idomain, P_h2o2_hv_irr ) = .FALSE. irr_diag_dname_table( idomain, P_h2o2_hv_irr ) = 'H2O2+HV' irr_diag_desc_table( idomain, P_h2o2_hv_irr ) = 'H2O2+HV Integrated Reaction Rate' irr_diag_units_table( idomain, P_h2o2_hv_irr ) = 'molecules/cm^3/s' irr_diag_streams_table( idomain, P_h2o2_hv_irr )%stream(1) = 512 ! 00000200 irr_diag_streams_table( idomain, P_h2o2_hv_irr )%stream(2) = 2097152 ! 00200000 F_h2o2_hv_irr = .TRUE. IF ( irr_diag_index_table( PARAM_o3_hv_a_irr , idomain ) .lt. 1 ) THEN irr_diag_num_table(idomain) = irr_diag_num_table(idomain) + 1 P_o3_hv_a_irr = irr_diag_num_table(idomain) irr_diag_index_table( PARAM_o3_hv_a_irr , idomain ) = P_o3_hv_a_irr ELSE P_o3_hv_a_irr = irr_diag_index_table( PARAM_o3_hv_a_irr , idomain ) END IF irr_diag_boundary_table( idomain, P_o3_hv_a_irr ) = .FALSE. irr_diag_dname_table( idomain, P_o3_hv_a_irr ) = 'O3+HV_a' irr_diag_desc_table( idomain, P_o3_hv_a_irr ) = 'O3+HV_a Integrated Reaction Rate' irr_diag_units_table( idomain, P_o3_hv_a_irr ) = 'molecules/cm^3/s' irr_diag_streams_table( idomain, P_o3_hv_a_irr )%stream(1) = 512 ! 00000200 irr_diag_streams_table( idomain, P_o3_hv_a_irr )%stream(2) = 2097152 ! 00200000 F_o3_hv_a_irr = .TRUE. END IF IF (model_config_rec%irr_opt(idomain)==2)THEN IF ( irr_diag_index_table( PARAM_n2o5_m_irr , idomain ) .lt. 1 ) THEN irr_diag_num_table(idomain) = irr_diag_num_table(idomain) + 1 P_n2o5_m_irr = irr_diag_num_table(idomain) irr_diag_index_table( PARAM_n2o5_m_irr , idomain ) = P_n2o5_m_irr ELSE P_n2o5_m_irr = irr_diag_index_table( PARAM_n2o5_m_irr , idomain ) END IF irr_diag_boundary_table( idomain, P_n2o5_m_irr ) = .FALSE. irr_diag_dname_table( idomain, P_n2o5_m_irr ) = 'N2O5+M' irr_diag_desc_table( idomain, P_n2o5_m_irr ) = 'N2O5+M Integrated Reaction Rate' irr_diag_units_table( idomain, P_n2o5_m_irr ) = 'molecules/cm^3/s' irr_diag_streams_table( idomain, P_n2o5_m_irr )%stream(1) = 512 ! 00000200 irr_diag_streams_table( idomain, P_n2o5_m_irr )%stream(2) = 2097152 ! 00200000 F_n2o5_m_irr = .TRUE. IF ( irr_diag_index_table( PARAM_ho2_irr , idomain ) .lt. 1 ) THEN irr_diag_num_table(idomain) = irr_diag_num_table(idomain) + 1 P_ho2_irr = irr_diag_num_table(idomain) irr_diag_index_table( PARAM_ho2_irr , idomain ) = P_ho2_irr ELSE P_ho2_irr = irr_diag_index_table( PARAM_ho2_irr , idomain ) END IF irr_diag_boundary_table( idomain, P_ho2_irr ) = .FALSE. irr_diag_dname_table( idomain, P_ho2_irr ) = 'HO2' irr_diag_desc_table( idomain, P_ho2_irr ) = 'HO2 Integrated Reaction Rate' irr_diag_units_table( idomain, P_ho2_irr ) = 'molecules/cm^3/s' irr_diag_streams_table( idomain, P_ho2_irr )%stream(1) = 512 ! 00000200 irr_diag_streams_table( idomain, P_ho2_irr )%stream(2) = 2097152 ! 00200000 F_ho2_irr = .TRUE. END IF IF (model_config_rec%ifire(idomain)==2)THEN END IF IF (model_config_rec%do_avgflx_em(idomain)==0)THEN END IF IF (model_config_rec%do_avgflx_em(idomain)==1)THEN END IF IF (model_config_rec%do_avgflx_cugd(idomain)==0)THEN END IF IF (model_config_rec%do_avgflx_cugd(idomain)==1)THEN END IF IF (model_config_rec%sppt_on==1)THEN END IF IF (model_config_rec%skebs_on==1)THEN END IF IF (model_config_rec%rand_perturb_on==1)THEN END IF IF (model_config_rec%spp_on==1)THEN END IF IF (model_config_rec%sfs_opt(idomain)==0)THEN END IF IF (model_config_rec%sfs_opt(idomain)==1)THEN IF ( nba_mij_index_table( PARAM_m11 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m11 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m11 , idomain ) = P_m11 ELSE P_m11 = nba_mij_index_table( PARAM_m11 , idomain ) END IF nba_mij_boundary_table( idomain, P_m11 ) = .FALSE. nba_mij_dname_table( idomain, P_m11 ) = 'm11' nba_mij_desc_table( idomain, P_m11 ) = '11 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m11 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m11 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m11 )%stream(2) = 0 ! 00000000 F_m11 = .TRUE. IF ( nba_mij_index_table( PARAM_m22 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m22 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m22 , idomain ) = P_m22 ELSE P_m22 = nba_mij_index_table( PARAM_m22 , idomain ) END IF nba_mij_boundary_table( idomain, P_m22 ) = .FALSE. nba_mij_dname_table( idomain, P_m22 ) = 'm22' nba_mij_desc_table( idomain, P_m22 ) = '22 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m22 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m22 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m22 )%stream(2) = 0 ! 00000000 F_m22 = .TRUE. IF ( nba_mij_index_table( PARAM_m33 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m33 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m33 , idomain ) = P_m33 ELSE P_m33 = nba_mij_index_table( PARAM_m33 , idomain ) END IF nba_mij_boundary_table( idomain, P_m33 ) = .FALSE. nba_mij_dname_table( idomain, P_m33 ) = 'm33' nba_mij_desc_table( idomain, P_m33 ) = '33 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m33 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m33 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m33 )%stream(2) = 0 ! 00000000 F_m33 = .TRUE. IF ( nba_mij_index_table( PARAM_m12 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m12 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m12 , idomain ) = P_m12 ELSE P_m12 = nba_mij_index_table( PARAM_m12 , idomain ) END IF nba_mij_boundary_table( idomain, P_m12 ) = .FALSE. nba_mij_dname_table( idomain, P_m12 ) = 'm12' nba_mij_desc_table( idomain, P_m12 ) = '12 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m12 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m12 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m12 )%stream(2) = 0 ! 00000000 F_m12 = .TRUE. IF ( nba_mij_index_table( PARAM_m13 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m13 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m13 , idomain ) = P_m13 ELSE P_m13 = nba_mij_index_table( PARAM_m13 , idomain ) END IF nba_mij_boundary_table( idomain, P_m13 ) = .FALSE. nba_mij_dname_table( idomain, P_m13 ) = 'm13' nba_mij_desc_table( idomain, P_m13 ) = '13 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m13 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m13 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m13 )%stream(2) = 0 ! 00000000 F_m13 = .TRUE. IF ( nba_mij_index_table( PARAM_m23 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m23 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m23 , idomain ) = P_m23 ELSE P_m23 = nba_mij_index_table( PARAM_m23 , idomain ) END IF nba_mij_boundary_table( idomain, P_m23 ) = .FALSE. nba_mij_dname_table( idomain, P_m23 ) = 'm23' nba_mij_desc_table( idomain, P_m23 ) = '23 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m23 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m23 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m23 )%stream(2) = 0 ! 00000000 F_m23 = .TRUE. IF ( nba_rij_index_table( PARAM_r12 , idomain ) .lt. 1 ) THEN nba_rij_num_table(idomain) = nba_rij_num_table(idomain) + 1 P_r12 = nba_rij_num_table(idomain) nba_rij_index_table( PARAM_r12 , idomain ) = P_r12 ELSE P_r12 = nba_rij_index_table( PARAM_r12 , idomain ) END IF nba_rij_boundary_table( idomain, P_r12 ) = .FALSE. nba_rij_dname_table( idomain, P_r12 ) = 'r12' nba_rij_desc_table( idomain, P_r12 ) = '12 component of rotation tensor' nba_rij_units_table( idomain, P_r12 ) = 's-1' nba_rij_streams_table( idomain, P_r12 )%stream(1) = 0 ! 00000000 nba_rij_streams_table( idomain, P_r12 )%stream(2) = 0 ! 00000000 F_r12 = .TRUE. IF ( nba_rij_index_table( PARAM_r13 , idomain ) .lt. 1 ) THEN nba_rij_num_table(idomain) = nba_rij_num_table(idomain) + 1 P_r13 = nba_rij_num_table(idomain) nba_rij_index_table( PARAM_r13 , idomain ) = P_r13 ELSE P_r13 = nba_rij_index_table( PARAM_r13 , idomain ) END IF nba_rij_boundary_table( idomain, P_r13 ) = .FALSE. nba_rij_dname_table( idomain, P_r13 ) = 'r13' nba_rij_desc_table( idomain, P_r13 ) = '13 component of rotation tensor' nba_rij_units_table( idomain, P_r13 ) = 's-1' nba_rij_streams_table( idomain, P_r13 )%stream(1) = 0 ! 00000000 nba_rij_streams_table( idomain, P_r13 )%stream(2) = 0 ! 00000000 F_r13 = .TRUE. IF ( nba_rij_index_table( PARAM_r23 , idomain ) .lt. 1 ) THEN nba_rij_num_table(idomain) = nba_rij_num_table(idomain) + 1 P_r23 = nba_rij_num_table(idomain) nba_rij_index_table( PARAM_r23 , idomain ) = P_r23 ELSE P_r23 = nba_rij_index_table( PARAM_r23 , idomain ) END IF nba_rij_boundary_table( idomain, P_r23 ) = .FALSE. nba_rij_dname_table( idomain, P_r23 ) = 'r23' nba_rij_desc_table( idomain, P_r23 ) = '23 component of rotation tensor' nba_rij_units_table( idomain, P_r23 ) = 's-1' nba_rij_streams_table( idomain, P_r23 )%stream(1) = 0 ! 00000000 nba_rij_streams_table( idomain, P_r23 )%stream(2) = 0 ! 00000000 F_r23 = .TRUE. IF ( nba_rij_index_table( PARAM_smnsmn , idomain ) .lt. 1 ) THEN nba_rij_num_table(idomain) = nba_rij_num_table(idomain) + 1 P_smnsmn = nba_rij_num_table(idomain) nba_rij_index_table( PARAM_smnsmn , idomain ) = P_smnsmn ELSE P_smnsmn = nba_rij_index_table( PARAM_smnsmn , idomain ) END IF nba_rij_boundary_table( idomain, P_smnsmn ) = .FALSE. nba_rij_dname_table( idomain, P_smnsmn ) = 'smnsmn' nba_rij_desc_table( idomain, P_smnsmn ) = 'Smn*Smn' nba_rij_units_table( idomain, P_smnsmn ) = 's-2' nba_rij_streams_table( idomain, P_smnsmn )%stream(1) = 0 ! 00000000 nba_rij_streams_table( idomain, P_smnsmn )%stream(2) = 0 ! 00000000 F_smnsmn = .TRUE. END IF IF (model_config_rec%sfs_opt(idomain)==2)THEN IF ( nba_mij_index_table( PARAM_m11 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m11 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m11 , idomain ) = P_m11 ELSE P_m11 = nba_mij_index_table( PARAM_m11 , idomain ) END IF nba_mij_boundary_table( idomain, P_m11 ) = .FALSE. nba_mij_dname_table( idomain, P_m11 ) = 'm11' nba_mij_desc_table( idomain, P_m11 ) = '11 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m11 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m11 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m11 )%stream(2) = 0 ! 00000000 F_m11 = .TRUE. IF ( nba_mij_index_table( PARAM_m22 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m22 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m22 , idomain ) = P_m22 ELSE P_m22 = nba_mij_index_table( PARAM_m22 , idomain ) END IF nba_mij_boundary_table( idomain, P_m22 ) = .FALSE. nba_mij_dname_table( idomain, P_m22 ) = 'm22' nba_mij_desc_table( idomain, P_m22 ) = '22 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m22 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m22 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m22 )%stream(2) = 0 ! 00000000 F_m22 = .TRUE. IF ( nba_mij_index_table( PARAM_m33 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m33 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m33 , idomain ) = P_m33 ELSE P_m33 = nba_mij_index_table( PARAM_m33 , idomain ) END IF nba_mij_boundary_table( idomain, P_m33 ) = .FALSE. nba_mij_dname_table( idomain, P_m33 ) = 'm33' nba_mij_desc_table( idomain, P_m33 ) = '33 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m33 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m33 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m33 )%stream(2) = 0 ! 00000000 F_m33 = .TRUE. IF ( nba_mij_index_table( PARAM_m12 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m12 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m12 , idomain ) = P_m12 ELSE P_m12 = nba_mij_index_table( PARAM_m12 , idomain ) END IF nba_mij_boundary_table( idomain, P_m12 ) = .FALSE. nba_mij_dname_table( idomain, P_m12 ) = 'm12' nba_mij_desc_table( idomain, P_m12 ) = '12 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m12 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m12 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m12 )%stream(2) = 0 ! 00000000 F_m12 = .TRUE. IF ( nba_mij_index_table( PARAM_m13 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m13 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m13 , idomain ) = P_m13 ELSE P_m13 = nba_mij_index_table( PARAM_m13 , idomain ) END IF nba_mij_boundary_table( idomain, P_m13 ) = .FALSE. nba_mij_dname_table( idomain, P_m13 ) = 'm13' nba_mij_desc_table( idomain, P_m13 ) = '13 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m13 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m13 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m13 )%stream(2) = 0 ! 00000000 F_m13 = .TRUE. IF ( nba_mij_index_table( PARAM_m23 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m23 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m23 , idomain ) = P_m23 ELSE P_m23 = nba_mij_index_table( PARAM_m23 , idomain ) END IF nba_mij_boundary_table( idomain, P_m23 ) = .FALSE. nba_mij_dname_table( idomain, P_m23 ) = 'm23' nba_mij_desc_table( idomain, P_m23 ) = '23 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m23 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m23 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m23 )%stream(2) = 0 ! 00000000 F_m23 = .TRUE. IF ( nba_rij_index_table( PARAM_r12 , idomain ) .lt. 1 ) THEN nba_rij_num_table(idomain) = nba_rij_num_table(idomain) + 1 P_r12 = nba_rij_num_table(idomain) nba_rij_index_table( PARAM_r12 , idomain ) = P_r12 ELSE P_r12 = nba_rij_index_table( PARAM_r12 , idomain ) END IF nba_rij_boundary_table( idomain, P_r12 ) = .FALSE. nba_rij_dname_table( idomain, P_r12 ) = 'r12' nba_rij_desc_table( idomain, P_r12 ) = '12 component of rotation tensor' nba_rij_units_table( idomain, P_r12 ) = 's-1' nba_rij_streams_table( idomain, P_r12 )%stream(1) = 0 ! 00000000 nba_rij_streams_table( idomain, P_r12 )%stream(2) = 0 ! 00000000 F_r12 = .TRUE. IF ( nba_rij_index_table( PARAM_r13 , idomain ) .lt. 1 ) THEN nba_rij_num_table(idomain) = nba_rij_num_table(idomain) + 1 P_r13 = nba_rij_num_table(idomain) nba_rij_index_table( PARAM_r13 , idomain ) = P_r13 ELSE P_r13 = nba_rij_index_table( PARAM_r13 , idomain ) END IF nba_rij_boundary_table( idomain, P_r13 ) = .FALSE. nba_rij_dname_table( idomain, P_r13 ) = 'r13' nba_rij_desc_table( idomain, P_r13 ) = '13 component of rotation tensor' nba_rij_units_table( idomain, P_r13 ) = 's-1' nba_rij_streams_table( idomain, P_r13 )%stream(1) = 0 ! 00000000 nba_rij_streams_table( idomain, P_r13 )%stream(2) = 0 ! 00000000 F_r13 = .TRUE. IF ( nba_rij_index_table( PARAM_r23 , idomain ) .lt. 1 ) THEN nba_rij_num_table(idomain) = nba_rij_num_table(idomain) + 1 P_r23 = nba_rij_num_table(idomain) nba_rij_index_table( PARAM_r23 , idomain ) = P_r23 ELSE P_r23 = nba_rij_index_table( PARAM_r23 , idomain ) END IF nba_rij_boundary_table( idomain, P_r23 ) = .FALSE. nba_rij_dname_table( idomain, P_r23 ) = 'r23' nba_rij_desc_table( idomain, P_r23 ) = '23 component of rotation tensor' nba_rij_units_table( idomain, P_r23 ) = 's-1' nba_rij_streams_table( idomain, P_r23 )%stream(1) = 0 ! 00000000 nba_rij_streams_table( idomain, P_r23 )%stream(2) = 0 ! 00000000 F_r23 = .TRUE. IF ( nba_rij_index_table( PARAM_smnsmn , idomain ) .lt. 1 ) THEN nba_rij_num_table(idomain) = nba_rij_num_table(idomain) + 1 P_smnsmn = nba_rij_num_table(idomain) nba_rij_index_table( PARAM_smnsmn , idomain ) = P_smnsmn ELSE P_smnsmn = nba_rij_index_table( PARAM_smnsmn , idomain ) END IF nba_rij_boundary_table( idomain, P_smnsmn ) = .FALSE. nba_rij_dname_table( idomain, P_smnsmn ) = 'smnsmn' nba_rij_desc_table( idomain, P_smnsmn ) = 'Smn*Smn' nba_rij_units_table( idomain, P_smnsmn ) = 's-2' nba_rij_streams_table( idomain, P_smnsmn )%stream(1) = 0 ! 00000000 nba_rij_streams_table( idomain, P_smnsmn )%stream(2) = 0 ! 00000000 F_smnsmn = .TRUE. END IF IF (model_config_rec%m_opt(idomain)==1)THEN IF ( nba_mij_index_table( PARAM_m11 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m11 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m11 , idomain ) = P_m11 ELSE P_m11 = nba_mij_index_table( PARAM_m11 , idomain ) END IF nba_mij_boundary_table( idomain, P_m11 ) = .FALSE. nba_mij_dname_table( idomain, P_m11 ) = 'm11' nba_mij_desc_table( idomain, P_m11 ) = '11 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m11 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m11 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m11 )%stream(2) = 0 ! 00000000 F_m11 = .TRUE. IF ( nba_mij_index_table( PARAM_m22 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m22 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m22 , idomain ) = P_m22 ELSE P_m22 = nba_mij_index_table( PARAM_m22 , idomain ) END IF nba_mij_boundary_table( idomain, P_m22 ) = .FALSE. nba_mij_dname_table( idomain, P_m22 ) = 'm22' nba_mij_desc_table( idomain, P_m22 ) = '22 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m22 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m22 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m22 )%stream(2) = 0 ! 00000000 F_m22 = .TRUE. IF ( nba_mij_index_table( PARAM_m33 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m33 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m33 , idomain ) = P_m33 ELSE P_m33 = nba_mij_index_table( PARAM_m33 , idomain ) END IF nba_mij_boundary_table( idomain, P_m33 ) = .FALSE. nba_mij_dname_table( idomain, P_m33 ) = 'm33' nba_mij_desc_table( idomain, P_m33 ) = '33 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m33 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m33 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m33 )%stream(2) = 0 ! 00000000 F_m33 = .TRUE. IF ( nba_mij_index_table( PARAM_m12 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m12 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m12 , idomain ) = P_m12 ELSE P_m12 = nba_mij_index_table( PARAM_m12 , idomain ) END IF nba_mij_boundary_table( idomain, P_m12 ) = .FALSE. nba_mij_dname_table( idomain, P_m12 ) = 'm12' nba_mij_desc_table( idomain, P_m12 ) = '12 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m12 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m12 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m12 )%stream(2) = 0 ! 00000000 F_m12 = .TRUE. IF ( nba_mij_index_table( PARAM_m13 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m13 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m13 , idomain ) = P_m13 ELSE P_m13 = nba_mij_index_table( PARAM_m13 , idomain ) END IF nba_mij_boundary_table( idomain, P_m13 ) = .FALSE. nba_mij_dname_table( idomain, P_m13 ) = 'm13' nba_mij_desc_table( idomain, P_m13 ) = '13 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m13 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m13 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m13 )%stream(2) = 0 ! 00000000 F_m13 = .TRUE. IF ( nba_mij_index_table( PARAM_m23 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m23 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m23 , idomain ) = P_m23 ELSE P_m23 = nba_mij_index_table( PARAM_m23 , idomain ) END IF nba_mij_boundary_table( idomain, P_m23 ) = .FALSE. nba_mij_dname_table( idomain, P_m23 ) = 'm23' nba_mij_desc_table( idomain, P_m23 ) = '23 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m23 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m23 )%stream(1) = 1 ! 00000001 nba_mij_streams_table( idomain, P_m23 )%stream(2) = 0 ! 00000000 F_m23 = .TRUE. END IF IF (model_config_rec%sf_lake_physics(idomain)==0)THEN END IF IF (model_config_rec%sf_lake_physics(idomain)==1)THEN END IF IF (model_config_rec%mp_physics(idomain)==30)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( scalar_index_table( PARAM_ff1i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i01 , idomain ) = P_ff1i01 ELSE P_ff1i01 = scalar_index_table( PARAM_ff1i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i01 ) = .TRUE. scalar_dname_table( idomain, P_ff1i01 ) = 'ff1i01' scalar_desc_table( idomain, P_ff1i01 ) = 'cloud/rain bin 1' scalar_units_table( idomain, P_ff1i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i01 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i01 )%stream(2) = 2097152 ! 00200000 F_ff1i01 = .TRUE. IF ( scalar_index_table( PARAM_ff1i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i02 , idomain ) = P_ff1i02 ELSE P_ff1i02 = scalar_index_table( PARAM_ff1i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i02 ) = .TRUE. scalar_dname_table( idomain, P_ff1i02 ) = 'ff1i02' scalar_desc_table( idomain, P_ff1i02 ) = 'cloud/rain bin 2' scalar_units_table( idomain, P_ff1i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i02 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i02 )%stream(2) = 2097152 ! 00200000 F_ff1i02 = .TRUE. IF ( scalar_index_table( PARAM_ff1i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i03 , idomain ) = P_ff1i03 ELSE P_ff1i03 = scalar_index_table( PARAM_ff1i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i03 ) = .TRUE. scalar_dname_table( idomain, P_ff1i03 ) = 'ff1i03' scalar_desc_table( idomain, P_ff1i03 ) = 'cloud/rain bin 3' scalar_units_table( idomain, P_ff1i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i03 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i03 )%stream(2) = 2097152 ! 00200000 F_ff1i03 = .TRUE. IF ( scalar_index_table( PARAM_ff1i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i04 , idomain ) = P_ff1i04 ELSE P_ff1i04 = scalar_index_table( PARAM_ff1i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i04 ) = .TRUE. scalar_dname_table( idomain, P_ff1i04 ) = 'ff1i04' scalar_desc_table( idomain, P_ff1i04 ) = 'cloud/rain bin 4' scalar_units_table( idomain, P_ff1i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i04 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i04 )%stream(2) = 2097152 ! 00200000 F_ff1i04 = .TRUE. IF ( scalar_index_table( PARAM_ff1i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i05 , idomain ) = P_ff1i05 ELSE P_ff1i05 = scalar_index_table( PARAM_ff1i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i05 ) = .TRUE. scalar_dname_table( idomain, P_ff1i05 ) = 'ff1i05' scalar_desc_table( idomain, P_ff1i05 ) = 'cloud/rain bin 5' scalar_units_table( idomain, P_ff1i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i05 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i05 )%stream(2) = 2097152 ! 00200000 F_ff1i05 = .TRUE. IF ( scalar_index_table( PARAM_ff1i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i06 , idomain ) = P_ff1i06 ELSE P_ff1i06 = scalar_index_table( PARAM_ff1i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i06 ) = .TRUE. scalar_dname_table( idomain, P_ff1i06 ) = 'ff1i06' scalar_desc_table( idomain, P_ff1i06 ) = 'cloud/rain bin 6' scalar_units_table( idomain, P_ff1i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i06 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i06 )%stream(2) = 2097152 ! 00200000 F_ff1i06 = .TRUE. IF ( scalar_index_table( PARAM_ff1i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i07 , idomain ) = P_ff1i07 ELSE P_ff1i07 = scalar_index_table( PARAM_ff1i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i07 ) = .TRUE. scalar_dname_table( idomain, P_ff1i07 ) = 'ff1i07' scalar_desc_table( idomain, P_ff1i07 ) = 'cloud/rain bin 7' scalar_units_table( idomain, P_ff1i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i07 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i07 )%stream(2) = 2097152 ! 00200000 F_ff1i07 = .TRUE. IF ( scalar_index_table( PARAM_ff1i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i08 , idomain ) = P_ff1i08 ELSE P_ff1i08 = scalar_index_table( PARAM_ff1i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i08 ) = .TRUE. scalar_dname_table( idomain, P_ff1i08 ) = 'ff1i08' scalar_desc_table( idomain, P_ff1i08 ) = 'cloud/rain bin 8' scalar_units_table( idomain, P_ff1i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i08 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i08 )%stream(2) = 2097152 ! 00200000 F_ff1i08 = .TRUE. IF ( scalar_index_table( PARAM_ff1i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i09 , idomain ) = P_ff1i09 ELSE P_ff1i09 = scalar_index_table( PARAM_ff1i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i09 ) = .TRUE. scalar_dname_table( idomain, P_ff1i09 ) = 'ff1i09' scalar_desc_table( idomain, P_ff1i09 ) = 'cloud/rain bin 9' scalar_units_table( idomain, P_ff1i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i09 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i09 )%stream(2) = 2097152 ! 00200000 F_ff1i09 = .TRUE. IF ( scalar_index_table( PARAM_ff1i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i10 , idomain ) = P_ff1i10 ELSE P_ff1i10 = scalar_index_table( PARAM_ff1i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i10 ) = .TRUE. scalar_dname_table( idomain, P_ff1i10 ) = 'ff1i10' scalar_desc_table( idomain, P_ff1i10 ) = 'cloud/rain bin 10' scalar_units_table( idomain, P_ff1i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i10 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i10 )%stream(2) = 2097152 ! 00200000 F_ff1i10 = .TRUE. IF ( scalar_index_table( PARAM_ff1i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i11 , idomain ) = P_ff1i11 ELSE P_ff1i11 = scalar_index_table( PARAM_ff1i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i11 ) = .TRUE. scalar_dname_table( idomain, P_ff1i11 ) = 'ff1i11' scalar_desc_table( idomain, P_ff1i11 ) = 'cloud/rain bin 11' scalar_units_table( idomain, P_ff1i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i11 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i11 )%stream(2) = 2097152 ! 00200000 F_ff1i11 = .TRUE. IF ( scalar_index_table( PARAM_ff1i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i12 , idomain ) = P_ff1i12 ELSE P_ff1i12 = scalar_index_table( PARAM_ff1i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i12 ) = .TRUE. scalar_dname_table( idomain, P_ff1i12 ) = 'ff1i12' scalar_desc_table( idomain, P_ff1i12 ) = 'cloud/rain bin 12' scalar_units_table( idomain, P_ff1i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i12 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i12 )%stream(2) = 2097152 ! 00200000 F_ff1i12 = .TRUE. IF ( scalar_index_table( PARAM_ff1i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i13 , idomain ) = P_ff1i13 ELSE P_ff1i13 = scalar_index_table( PARAM_ff1i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i13 ) = .TRUE. scalar_dname_table( idomain, P_ff1i13 ) = 'ff1i13' scalar_desc_table( idomain, P_ff1i13 ) = 'cloud/rain bin 13' scalar_units_table( idomain, P_ff1i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i13 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i13 )%stream(2) = 2097152 ! 00200000 F_ff1i13 = .TRUE. IF ( scalar_index_table( PARAM_ff1i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i14 , idomain ) = P_ff1i14 ELSE P_ff1i14 = scalar_index_table( PARAM_ff1i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i14 ) = .TRUE. scalar_dname_table( idomain, P_ff1i14 ) = 'ff1i14' scalar_desc_table( idomain, P_ff1i14 ) = 'cloud/rain bin 14' scalar_units_table( idomain, P_ff1i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i14 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i14 )%stream(2) = 2097152 ! 00200000 F_ff1i14 = .TRUE. IF ( scalar_index_table( PARAM_ff1i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i15 , idomain ) = P_ff1i15 ELSE P_ff1i15 = scalar_index_table( PARAM_ff1i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i15 ) = .TRUE. scalar_dname_table( idomain, P_ff1i15 ) = 'ff1i15' scalar_desc_table( idomain, P_ff1i15 ) = 'cloud/rain bin 15' scalar_units_table( idomain, P_ff1i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i15 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i15 )%stream(2) = 2097152 ! 00200000 F_ff1i15 = .TRUE. IF ( scalar_index_table( PARAM_ff1i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i16 , idomain ) = P_ff1i16 ELSE P_ff1i16 = scalar_index_table( PARAM_ff1i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i16 ) = .TRUE. scalar_dname_table( idomain, P_ff1i16 ) = 'ff1i16' scalar_desc_table( idomain, P_ff1i16 ) = 'cloud/rain bin 16' scalar_units_table( idomain, P_ff1i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i16 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i16 )%stream(2) = 2097152 ! 00200000 F_ff1i16 = .TRUE. IF ( scalar_index_table( PARAM_ff1i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i17 , idomain ) = P_ff1i17 ELSE P_ff1i17 = scalar_index_table( PARAM_ff1i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i17 ) = .TRUE. scalar_dname_table( idomain, P_ff1i17 ) = 'ff1i17' scalar_desc_table( idomain, P_ff1i17 ) = 'cloud/rain bin 17' scalar_units_table( idomain, P_ff1i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i17 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i17 )%stream(2) = 2097152 ! 00200000 F_ff1i17 = .TRUE. IF ( scalar_index_table( PARAM_ff1i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i18 , idomain ) = P_ff1i18 ELSE P_ff1i18 = scalar_index_table( PARAM_ff1i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i18 ) = .TRUE. scalar_dname_table( idomain, P_ff1i18 ) = 'ff1i18' scalar_desc_table( idomain, P_ff1i18 ) = 'cloud/rain bin 18' scalar_units_table( idomain, P_ff1i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i18 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i18 )%stream(2) = 2097152 ! 00200000 F_ff1i18 = .TRUE. IF ( scalar_index_table( PARAM_ff1i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i19 , idomain ) = P_ff1i19 ELSE P_ff1i19 = scalar_index_table( PARAM_ff1i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i19 ) = .TRUE. scalar_dname_table( idomain, P_ff1i19 ) = 'ff1i19' scalar_desc_table( idomain, P_ff1i19 ) = 'cloud/rain bin 19' scalar_units_table( idomain, P_ff1i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i19 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i19 )%stream(2) = 2097152 ! 00200000 F_ff1i19 = .TRUE. IF ( scalar_index_table( PARAM_ff1i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i20 , idomain ) = P_ff1i20 ELSE P_ff1i20 = scalar_index_table( PARAM_ff1i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i20 ) = .TRUE. scalar_dname_table( idomain, P_ff1i20 ) = 'ff1i20' scalar_desc_table( idomain, P_ff1i20 ) = 'cloud/rain bin 20' scalar_units_table( idomain, P_ff1i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i20 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i20 )%stream(2) = 2097152 ! 00200000 F_ff1i20 = .TRUE. IF ( scalar_index_table( PARAM_ff1i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i21 , idomain ) = P_ff1i21 ELSE P_ff1i21 = scalar_index_table( PARAM_ff1i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i21 ) = .TRUE. scalar_dname_table( idomain, P_ff1i21 ) = 'ff1i21' scalar_desc_table( idomain, P_ff1i21 ) = 'cloud/rain bin 21' scalar_units_table( idomain, P_ff1i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i21 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i21 )%stream(2) = 2097152 ! 00200000 F_ff1i21 = .TRUE. IF ( scalar_index_table( PARAM_ff1i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i22 , idomain ) = P_ff1i22 ELSE P_ff1i22 = scalar_index_table( PARAM_ff1i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i22 ) = .TRUE. scalar_dname_table( idomain, P_ff1i22 ) = 'ff1i22' scalar_desc_table( idomain, P_ff1i22 ) = 'cloud/rain bin 22' scalar_units_table( idomain, P_ff1i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i22 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i22 )%stream(2) = 2097152 ! 00200000 F_ff1i22 = .TRUE. IF ( scalar_index_table( PARAM_ff1i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i23 , idomain ) = P_ff1i23 ELSE P_ff1i23 = scalar_index_table( PARAM_ff1i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i23 ) = .TRUE. scalar_dname_table( idomain, P_ff1i23 ) = 'ff1i23' scalar_desc_table( idomain, P_ff1i23 ) = 'cloud/rain bin 23' scalar_units_table( idomain, P_ff1i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i23 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i23 )%stream(2) = 2097152 ! 00200000 F_ff1i23 = .TRUE. IF ( scalar_index_table( PARAM_ff1i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i24 , idomain ) = P_ff1i24 ELSE P_ff1i24 = scalar_index_table( PARAM_ff1i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i24 ) = .TRUE. scalar_dname_table( idomain, P_ff1i24 ) = 'ff1i24' scalar_desc_table( idomain, P_ff1i24 ) = 'cloud/rain bin 24' scalar_units_table( idomain, P_ff1i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i24 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i24 )%stream(2) = 2097152 ! 00200000 F_ff1i24 = .TRUE. IF ( scalar_index_table( PARAM_ff1i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i25 , idomain ) = P_ff1i25 ELSE P_ff1i25 = scalar_index_table( PARAM_ff1i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i25 ) = .TRUE. scalar_dname_table( idomain, P_ff1i25 ) = 'ff1i25' scalar_desc_table( idomain, P_ff1i25 ) = 'cloud/rain bin 25' scalar_units_table( idomain, P_ff1i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i25 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i25 )%stream(2) = 2097152 ! 00200000 F_ff1i25 = .TRUE. IF ( scalar_index_table( PARAM_ff1i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i26 , idomain ) = P_ff1i26 ELSE P_ff1i26 = scalar_index_table( PARAM_ff1i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i26 ) = .TRUE. scalar_dname_table( idomain, P_ff1i26 ) = 'ff1i26' scalar_desc_table( idomain, P_ff1i26 ) = 'cloud/rain bin 26' scalar_units_table( idomain, P_ff1i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i26 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i26 )%stream(2) = 2097152 ! 00200000 F_ff1i26 = .TRUE. IF ( scalar_index_table( PARAM_ff1i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i27 , idomain ) = P_ff1i27 ELSE P_ff1i27 = scalar_index_table( PARAM_ff1i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i27 ) = .TRUE. scalar_dname_table( idomain, P_ff1i27 ) = 'ff1i27' scalar_desc_table( idomain, P_ff1i27 ) = 'cloud/rain bin 27' scalar_units_table( idomain, P_ff1i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i27 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i27 )%stream(2) = 2097152 ! 00200000 F_ff1i27 = .TRUE. IF ( scalar_index_table( PARAM_ff1i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i28 , idomain ) = P_ff1i28 ELSE P_ff1i28 = scalar_index_table( PARAM_ff1i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i28 ) = .TRUE. scalar_dname_table( idomain, P_ff1i28 ) = 'ff1i28' scalar_desc_table( idomain, P_ff1i28 ) = 'cloud/rain bin 28' scalar_units_table( idomain, P_ff1i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i28 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i28 )%stream(2) = 2097152 ! 00200000 F_ff1i28 = .TRUE. IF ( scalar_index_table( PARAM_ff1i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i29 , idomain ) = P_ff1i29 ELSE P_ff1i29 = scalar_index_table( PARAM_ff1i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i29 ) = .TRUE. scalar_dname_table( idomain, P_ff1i29 ) = 'ff1i29' scalar_desc_table( idomain, P_ff1i29 ) = 'cloud/rain bin 29' scalar_units_table( idomain, P_ff1i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i29 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i29 )%stream(2) = 2097152 ! 00200000 F_ff1i29 = .TRUE. IF ( scalar_index_table( PARAM_ff1i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i30 , idomain ) = P_ff1i30 ELSE P_ff1i30 = scalar_index_table( PARAM_ff1i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i30 ) = .TRUE. scalar_dname_table( idomain, P_ff1i30 ) = 'ff1i30' scalar_desc_table( idomain, P_ff1i30 ) = 'cloud/rain bin 30' scalar_units_table( idomain, P_ff1i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i30 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i30 )%stream(2) = 2097152 ! 00200000 F_ff1i30 = .TRUE. IF ( scalar_index_table( PARAM_ff1i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i31 , idomain ) = P_ff1i31 ELSE P_ff1i31 = scalar_index_table( PARAM_ff1i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i31 ) = .TRUE. scalar_dname_table( idomain, P_ff1i31 ) = 'ff1i31' scalar_desc_table( idomain, P_ff1i31 ) = 'cloud/rain bin 31' scalar_units_table( idomain, P_ff1i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i31 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i31 )%stream(2) = 2097152 ! 00200000 F_ff1i31 = .TRUE. IF ( scalar_index_table( PARAM_ff1i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i32 , idomain ) = P_ff1i32 ELSE P_ff1i32 = scalar_index_table( PARAM_ff1i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i32 ) = .TRUE. scalar_dname_table( idomain, P_ff1i32 ) = 'ff1i32' scalar_desc_table( idomain, P_ff1i32 ) = 'cloud/rain bin 32' scalar_units_table( idomain, P_ff1i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i32 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i32 )%stream(2) = 2097152 ! 00200000 F_ff1i32 = .TRUE. IF ( scalar_index_table( PARAM_ff1i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i33 , idomain ) = P_ff1i33 ELSE P_ff1i33 = scalar_index_table( PARAM_ff1i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i33 ) = .TRUE. scalar_dname_table( idomain, P_ff1i33 ) = 'ff1i33' scalar_desc_table( idomain, P_ff1i33 ) = 'cloud/rain bin 33' scalar_units_table( idomain, P_ff1i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i33 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i33 )%stream(2) = 2097152 ! 00200000 F_ff1i33 = .TRUE. IF ( scalar_index_table( PARAM_ff5i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i01 , idomain ) = P_ff5i01 ELSE P_ff5i01 = scalar_index_table( PARAM_ff5i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i01 ) = .TRUE. scalar_dname_table( idomain, P_ff5i01 ) = 'ff5i01' scalar_desc_table( idomain, P_ff5i01 ) = 'snow bin 1' scalar_units_table( idomain, P_ff5i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i01 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i01 )%stream(2) = 2097152 ! 00200000 F_ff5i01 = .TRUE. IF ( scalar_index_table( PARAM_ff5i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i02 , idomain ) = P_ff5i02 ELSE P_ff5i02 = scalar_index_table( PARAM_ff5i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i02 ) = .TRUE. scalar_dname_table( idomain, P_ff5i02 ) = 'ff5i02' scalar_desc_table( idomain, P_ff5i02 ) = 'snow bin 2' scalar_units_table( idomain, P_ff5i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i02 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i02 )%stream(2) = 2097152 ! 00200000 F_ff5i02 = .TRUE. IF ( scalar_index_table( PARAM_ff5i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i03 , idomain ) = P_ff5i03 ELSE P_ff5i03 = scalar_index_table( PARAM_ff5i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i03 ) = .TRUE. scalar_dname_table( idomain, P_ff5i03 ) = 'ff5i03' scalar_desc_table( idomain, P_ff5i03 ) = 'snow bin 3' scalar_units_table( idomain, P_ff5i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i03 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i03 )%stream(2) = 2097152 ! 00200000 F_ff5i03 = .TRUE. IF ( scalar_index_table( PARAM_ff5i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i04 , idomain ) = P_ff5i04 ELSE P_ff5i04 = scalar_index_table( PARAM_ff5i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i04 ) = .TRUE. scalar_dname_table( idomain, P_ff5i04 ) = 'ff5i04' scalar_desc_table( idomain, P_ff5i04 ) = 'snow bin 4' scalar_units_table( idomain, P_ff5i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i04 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i04 )%stream(2) = 2097152 ! 00200000 F_ff5i04 = .TRUE. IF ( scalar_index_table( PARAM_ff5i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i05 , idomain ) = P_ff5i05 ELSE P_ff5i05 = scalar_index_table( PARAM_ff5i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i05 ) = .TRUE. scalar_dname_table( idomain, P_ff5i05 ) = 'ff5i05' scalar_desc_table( idomain, P_ff5i05 ) = 'snow bin 5' scalar_units_table( idomain, P_ff5i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i05 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i05 )%stream(2) = 2097152 ! 00200000 F_ff5i05 = .TRUE. IF ( scalar_index_table( PARAM_ff5i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i06 , idomain ) = P_ff5i06 ELSE P_ff5i06 = scalar_index_table( PARAM_ff5i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i06 ) = .TRUE. scalar_dname_table( idomain, P_ff5i06 ) = 'ff5i06' scalar_desc_table( idomain, P_ff5i06 ) = 'snow bin 6' scalar_units_table( idomain, P_ff5i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i06 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i06 )%stream(2) = 2097152 ! 00200000 F_ff5i06 = .TRUE. IF ( scalar_index_table( PARAM_ff5i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i07 , idomain ) = P_ff5i07 ELSE P_ff5i07 = scalar_index_table( PARAM_ff5i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i07 ) = .TRUE. scalar_dname_table( idomain, P_ff5i07 ) = 'ff5i07' scalar_desc_table( idomain, P_ff5i07 ) = 'snow bin 7' scalar_units_table( idomain, P_ff5i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i07 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i07 )%stream(2) = 2097152 ! 00200000 F_ff5i07 = .TRUE. IF ( scalar_index_table( PARAM_ff5i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i08 , idomain ) = P_ff5i08 ELSE P_ff5i08 = scalar_index_table( PARAM_ff5i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i08 ) = .TRUE. scalar_dname_table( idomain, P_ff5i08 ) = 'ff5i08' scalar_desc_table( idomain, P_ff5i08 ) = 'snow bin 8' scalar_units_table( idomain, P_ff5i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i08 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i08 )%stream(2) = 2097152 ! 00200000 F_ff5i08 = .TRUE. IF ( scalar_index_table( PARAM_ff5i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i09 , idomain ) = P_ff5i09 ELSE P_ff5i09 = scalar_index_table( PARAM_ff5i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i09 ) = .TRUE. scalar_dname_table( idomain, P_ff5i09 ) = 'ff5i09' scalar_desc_table( idomain, P_ff5i09 ) = 'snow bin 9' scalar_units_table( idomain, P_ff5i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i09 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i09 )%stream(2) = 2097152 ! 00200000 F_ff5i09 = .TRUE. IF ( scalar_index_table( PARAM_ff5i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i10 , idomain ) = P_ff5i10 ELSE P_ff5i10 = scalar_index_table( PARAM_ff5i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i10 ) = .TRUE. scalar_dname_table( idomain, P_ff5i10 ) = 'ff5i10' scalar_desc_table( idomain, P_ff5i10 ) = 'snow bin 10' scalar_units_table( idomain, P_ff5i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i10 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i10 )%stream(2) = 2097152 ! 00200000 F_ff5i10 = .TRUE. IF ( scalar_index_table( PARAM_ff5i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i11 , idomain ) = P_ff5i11 ELSE P_ff5i11 = scalar_index_table( PARAM_ff5i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i11 ) = .TRUE. scalar_dname_table( idomain, P_ff5i11 ) = 'ff5i11' scalar_desc_table( idomain, P_ff5i11 ) = 'snow bin 11' scalar_units_table( idomain, P_ff5i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i11 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i11 )%stream(2) = 2097152 ! 00200000 F_ff5i11 = .TRUE. IF ( scalar_index_table( PARAM_ff5i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i12 , idomain ) = P_ff5i12 ELSE P_ff5i12 = scalar_index_table( PARAM_ff5i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i12 ) = .TRUE. scalar_dname_table( idomain, P_ff5i12 ) = 'ff5i12' scalar_desc_table( idomain, P_ff5i12 ) = 'snow bin 12' scalar_units_table( idomain, P_ff5i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i12 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i12 )%stream(2) = 2097152 ! 00200000 F_ff5i12 = .TRUE. IF ( scalar_index_table( PARAM_ff5i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i13 , idomain ) = P_ff5i13 ELSE P_ff5i13 = scalar_index_table( PARAM_ff5i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i13 ) = .TRUE. scalar_dname_table( idomain, P_ff5i13 ) = 'ff5i13' scalar_desc_table( idomain, P_ff5i13 ) = 'snow bin 13' scalar_units_table( idomain, P_ff5i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i13 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i13 )%stream(2) = 2097152 ! 00200000 F_ff5i13 = .TRUE. IF ( scalar_index_table( PARAM_ff5i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i14 , idomain ) = P_ff5i14 ELSE P_ff5i14 = scalar_index_table( PARAM_ff5i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i14 ) = .TRUE. scalar_dname_table( idomain, P_ff5i14 ) = 'ff5i14' scalar_desc_table( idomain, P_ff5i14 ) = 'snow bin 14' scalar_units_table( idomain, P_ff5i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i14 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i14 )%stream(2) = 2097152 ! 00200000 F_ff5i14 = .TRUE. IF ( scalar_index_table( PARAM_ff5i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i15 , idomain ) = P_ff5i15 ELSE P_ff5i15 = scalar_index_table( PARAM_ff5i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i15 ) = .TRUE. scalar_dname_table( idomain, P_ff5i15 ) = 'ff5i15' scalar_desc_table( idomain, P_ff5i15 ) = 'snow bin 15' scalar_units_table( idomain, P_ff5i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i15 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i15 )%stream(2) = 2097152 ! 00200000 F_ff5i15 = .TRUE. IF ( scalar_index_table( PARAM_ff5i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i16 , idomain ) = P_ff5i16 ELSE P_ff5i16 = scalar_index_table( PARAM_ff5i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i16 ) = .TRUE. scalar_dname_table( idomain, P_ff5i16 ) = 'ff5i16' scalar_desc_table( idomain, P_ff5i16 ) = 'snow bin 16' scalar_units_table( idomain, P_ff5i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i16 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i16 )%stream(2) = 2097152 ! 00200000 F_ff5i16 = .TRUE. IF ( scalar_index_table( PARAM_ff5i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i17 , idomain ) = P_ff5i17 ELSE P_ff5i17 = scalar_index_table( PARAM_ff5i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i17 ) = .TRUE. scalar_dname_table( idomain, P_ff5i17 ) = 'ff5i17' scalar_desc_table( idomain, P_ff5i17 ) = 'snow bin 17' scalar_units_table( idomain, P_ff5i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i17 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i17 )%stream(2) = 2097152 ! 00200000 F_ff5i17 = .TRUE. IF ( scalar_index_table( PARAM_ff5i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i18 , idomain ) = P_ff5i18 ELSE P_ff5i18 = scalar_index_table( PARAM_ff5i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i18 ) = .TRUE. scalar_dname_table( idomain, P_ff5i18 ) = 'ff5i18' scalar_desc_table( idomain, P_ff5i18 ) = 'snow bin 18' scalar_units_table( idomain, P_ff5i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i18 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i18 )%stream(2) = 2097152 ! 00200000 F_ff5i18 = .TRUE. IF ( scalar_index_table( PARAM_ff5i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i19 , idomain ) = P_ff5i19 ELSE P_ff5i19 = scalar_index_table( PARAM_ff5i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i19 ) = .TRUE. scalar_dname_table( idomain, P_ff5i19 ) = 'ff5i19' scalar_desc_table( idomain, P_ff5i19 ) = 'snow bin 19' scalar_units_table( idomain, P_ff5i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i19 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i19 )%stream(2) = 2097152 ! 00200000 F_ff5i19 = .TRUE. IF ( scalar_index_table( PARAM_ff5i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i20 , idomain ) = P_ff5i20 ELSE P_ff5i20 = scalar_index_table( PARAM_ff5i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i20 ) = .TRUE. scalar_dname_table( idomain, P_ff5i20 ) = 'ff5i20' scalar_desc_table( idomain, P_ff5i20 ) = 'snow bin 20' scalar_units_table( idomain, P_ff5i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i20 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i20 )%stream(2) = 2097152 ! 00200000 F_ff5i20 = .TRUE. IF ( scalar_index_table( PARAM_ff5i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i21 , idomain ) = P_ff5i21 ELSE P_ff5i21 = scalar_index_table( PARAM_ff5i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i21 ) = .TRUE. scalar_dname_table( idomain, P_ff5i21 ) = 'ff5i21' scalar_desc_table( idomain, P_ff5i21 ) = 'snow bin 21' scalar_units_table( idomain, P_ff5i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i21 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i21 )%stream(2) = 2097152 ! 00200000 F_ff5i21 = .TRUE. IF ( scalar_index_table( PARAM_ff5i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i22 , idomain ) = P_ff5i22 ELSE P_ff5i22 = scalar_index_table( PARAM_ff5i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i22 ) = .TRUE. scalar_dname_table( idomain, P_ff5i22 ) = 'ff5i22' scalar_desc_table( idomain, P_ff5i22 ) = 'snow bin 22' scalar_units_table( idomain, P_ff5i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i22 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i22 )%stream(2) = 2097152 ! 00200000 F_ff5i22 = .TRUE. IF ( scalar_index_table( PARAM_ff5i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i23 , idomain ) = P_ff5i23 ELSE P_ff5i23 = scalar_index_table( PARAM_ff5i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i23 ) = .TRUE. scalar_dname_table( idomain, P_ff5i23 ) = 'ff5i23' scalar_desc_table( idomain, P_ff5i23 ) = 'snow bin 23' scalar_units_table( idomain, P_ff5i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i23 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i23 )%stream(2) = 2097152 ! 00200000 F_ff5i23 = .TRUE. IF ( scalar_index_table( PARAM_ff5i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i24 , idomain ) = P_ff5i24 ELSE P_ff5i24 = scalar_index_table( PARAM_ff5i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i24 ) = .TRUE. scalar_dname_table( idomain, P_ff5i24 ) = 'ff5i24' scalar_desc_table( idomain, P_ff5i24 ) = 'snow bin 24' scalar_units_table( idomain, P_ff5i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i24 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i24 )%stream(2) = 2097152 ! 00200000 F_ff5i24 = .TRUE. IF ( scalar_index_table( PARAM_ff5i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i25 , idomain ) = P_ff5i25 ELSE P_ff5i25 = scalar_index_table( PARAM_ff5i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i25 ) = .TRUE. scalar_dname_table( idomain, P_ff5i25 ) = 'ff5i25' scalar_desc_table( idomain, P_ff5i25 ) = 'snow bin 25' scalar_units_table( idomain, P_ff5i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i25 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i25 )%stream(2) = 2097152 ! 00200000 F_ff5i25 = .TRUE. IF ( scalar_index_table( PARAM_ff5i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i26 , idomain ) = P_ff5i26 ELSE P_ff5i26 = scalar_index_table( PARAM_ff5i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i26 ) = .TRUE. scalar_dname_table( idomain, P_ff5i26 ) = 'ff5i26' scalar_desc_table( idomain, P_ff5i26 ) = 'snow bin 26' scalar_units_table( idomain, P_ff5i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i26 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i26 )%stream(2) = 2097152 ! 00200000 F_ff5i26 = .TRUE. IF ( scalar_index_table( PARAM_ff5i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i27 , idomain ) = P_ff5i27 ELSE P_ff5i27 = scalar_index_table( PARAM_ff5i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i27 ) = .TRUE. scalar_dname_table( idomain, P_ff5i27 ) = 'ff5i27' scalar_desc_table( idomain, P_ff5i27 ) = 'snow bin 27' scalar_units_table( idomain, P_ff5i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i27 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i27 )%stream(2) = 2097152 ! 00200000 F_ff5i27 = .TRUE. IF ( scalar_index_table( PARAM_ff5i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i28 , idomain ) = P_ff5i28 ELSE P_ff5i28 = scalar_index_table( PARAM_ff5i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i28 ) = .TRUE. scalar_dname_table( idomain, P_ff5i28 ) = 'ff5i28' scalar_desc_table( idomain, P_ff5i28 ) = 'snow bin 28' scalar_units_table( idomain, P_ff5i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i28 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i28 )%stream(2) = 2097152 ! 00200000 F_ff5i28 = .TRUE. IF ( scalar_index_table( PARAM_ff5i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i29 , idomain ) = P_ff5i29 ELSE P_ff5i29 = scalar_index_table( PARAM_ff5i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i29 ) = .TRUE. scalar_dname_table( idomain, P_ff5i29 ) = 'ff5i29' scalar_desc_table( idomain, P_ff5i29 ) = 'snow bin 29' scalar_units_table( idomain, P_ff5i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i29 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i29 )%stream(2) = 2097152 ! 00200000 F_ff5i29 = .TRUE. IF ( scalar_index_table( PARAM_ff5i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i30 , idomain ) = P_ff5i30 ELSE P_ff5i30 = scalar_index_table( PARAM_ff5i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i30 ) = .TRUE. scalar_dname_table( idomain, P_ff5i30 ) = 'ff5i30' scalar_desc_table( idomain, P_ff5i30 ) = 'snow bin 30' scalar_units_table( idomain, P_ff5i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i30 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i30 )%stream(2) = 2097152 ! 00200000 F_ff5i30 = .TRUE. IF ( scalar_index_table( PARAM_ff5i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i31 , idomain ) = P_ff5i31 ELSE P_ff5i31 = scalar_index_table( PARAM_ff5i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i31 ) = .TRUE. scalar_dname_table( idomain, P_ff5i31 ) = 'ff5i31' scalar_desc_table( idomain, P_ff5i31 ) = 'snow bin 31' scalar_units_table( idomain, P_ff5i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i31 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i31 )%stream(2) = 2097152 ! 00200000 F_ff5i31 = .TRUE. IF ( scalar_index_table( PARAM_ff5i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i32 , idomain ) = P_ff5i32 ELSE P_ff5i32 = scalar_index_table( PARAM_ff5i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i32 ) = .TRUE. scalar_dname_table( idomain, P_ff5i32 ) = 'ff5i32' scalar_desc_table( idomain, P_ff5i32 ) = 'snow bin 32' scalar_units_table( idomain, P_ff5i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i32 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i32 )%stream(2) = 2097152 ! 00200000 F_ff5i32 = .TRUE. IF ( scalar_index_table( PARAM_ff5i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i33 , idomain ) = P_ff5i33 ELSE P_ff5i33 = scalar_index_table( PARAM_ff5i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i33 ) = .TRUE. scalar_dname_table( idomain, P_ff5i33 ) = 'ff5i33' scalar_desc_table( idomain, P_ff5i33 ) = 'snow bin 33' scalar_units_table( idomain, P_ff5i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i33 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i33 )%stream(2) = 2097152 ! 00200000 F_ff5i33 = .TRUE. IF ( scalar_index_table( PARAM_ff6i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i01 , idomain ) = P_ff6i01 ELSE P_ff6i01 = scalar_index_table( PARAM_ff6i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i01 ) = .TRUE. scalar_dname_table( idomain, P_ff6i01 ) = 'ff6i01' scalar_desc_table( idomain, P_ff6i01 ) = 'graupel bin 1' scalar_units_table( idomain, P_ff6i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i01 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i01 )%stream(2) = 2097152 ! 00200000 F_ff6i01 = .TRUE. IF ( scalar_index_table( PARAM_ff6i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i02 , idomain ) = P_ff6i02 ELSE P_ff6i02 = scalar_index_table( PARAM_ff6i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i02 ) = .TRUE. scalar_dname_table( idomain, P_ff6i02 ) = 'ff6i02' scalar_desc_table( idomain, P_ff6i02 ) = 'graupel bin 2' scalar_units_table( idomain, P_ff6i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i02 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i02 )%stream(2) = 2097152 ! 00200000 F_ff6i02 = .TRUE. IF ( scalar_index_table( PARAM_ff6i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i03 , idomain ) = P_ff6i03 ELSE P_ff6i03 = scalar_index_table( PARAM_ff6i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i03 ) = .TRUE. scalar_dname_table( idomain, P_ff6i03 ) = 'ff6i03' scalar_desc_table( idomain, P_ff6i03 ) = 'graupel bin 3' scalar_units_table( idomain, P_ff6i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i03 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i03 )%stream(2) = 2097152 ! 00200000 F_ff6i03 = .TRUE. IF ( scalar_index_table( PARAM_ff6i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i04 , idomain ) = P_ff6i04 ELSE P_ff6i04 = scalar_index_table( PARAM_ff6i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i04 ) = .TRUE. scalar_dname_table( idomain, P_ff6i04 ) = 'ff6i04' scalar_desc_table( idomain, P_ff6i04 ) = 'graupel bin 4' scalar_units_table( idomain, P_ff6i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i04 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i04 )%stream(2) = 2097152 ! 00200000 F_ff6i04 = .TRUE. IF ( scalar_index_table( PARAM_ff6i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i05 , idomain ) = P_ff6i05 ELSE P_ff6i05 = scalar_index_table( PARAM_ff6i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i05 ) = .TRUE. scalar_dname_table( idomain, P_ff6i05 ) = 'ff6i05' scalar_desc_table( idomain, P_ff6i05 ) = 'graupel bin 5' scalar_units_table( idomain, P_ff6i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i05 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i05 )%stream(2) = 2097152 ! 00200000 F_ff6i05 = .TRUE. IF ( scalar_index_table( PARAM_ff6i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i06 , idomain ) = P_ff6i06 ELSE P_ff6i06 = scalar_index_table( PARAM_ff6i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i06 ) = .TRUE. scalar_dname_table( idomain, P_ff6i06 ) = 'ff6i06' scalar_desc_table( idomain, P_ff6i06 ) = 'graupel bin 6' scalar_units_table( idomain, P_ff6i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i06 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i06 )%stream(2) = 2097152 ! 00200000 F_ff6i06 = .TRUE. IF ( scalar_index_table( PARAM_ff6i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i07 , idomain ) = P_ff6i07 ELSE P_ff6i07 = scalar_index_table( PARAM_ff6i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i07 ) = .TRUE. scalar_dname_table( idomain, P_ff6i07 ) = 'ff6i07' scalar_desc_table( idomain, P_ff6i07 ) = 'graupel bin 7' scalar_units_table( idomain, P_ff6i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i07 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i07 )%stream(2) = 2097152 ! 00200000 F_ff6i07 = .TRUE. IF ( scalar_index_table( PARAM_ff6i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i08 , idomain ) = P_ff6i08 ELSE P_ff6i08 = scalar_index_table( PARAM_ff6i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i08 ) = .TRUE. scalar_dname_table( idomain, P_ff6i08 ) = 'ff6i08' scalar_desc_table( idomain, P_ff6i08 ) = 'graupel bin 8' scalar_units_table( idomain, P_ff6i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i08 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i08 )%stream(2) = 2097152 ! 00200000 F_ff6i08 = .TRUE. IF ( scalar_index_table( PARAM_ff6i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i09 , idomain ) = P_ff6i09 ELSE P_ff6i09 = scalar_index_table( PARAM_ff6i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i09 ) = .TRUE. scalar_dname_table( idomain, P_ff6i09 ) = 'ff6i09' scalar_desc_table( idomain, P_ff6i09 ) = 'graupel bin 9' scalar_units_table( idomain, P_ff6i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i09 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i09 )%stream(2) = 2097152 ! 00200000 F_ff6i09 = .TRUE. IF ( scalar_index_table( PARAM_ff6i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i10 , idomain ) = P_ff6i10 ELSE P_ff6i10 = scalar_index_table( PARAM_ff6i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i10 ) = .TRUE. scalar_dname_table( idomain, P_ff6i10 ) = 'ff6i10' scalar_desc_table( idomain, P_ff6i10 ) = 'graupel bin 10' scalar_units_table( idomain, P_ff6i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i10 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i10 )%stream(2) = 2097152 ! 00200000 F_ff6i10 = .TRUE. IF ( scalar_index_table( PARAM_ff6i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i11 , idomain ) = P_ff6i11 ELSE P_ff6i11 = scalar_index_table( PARAM_ff6i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i11 ) = .TRUE. scalar_dname_table( idomain, P_ff6i11 ) = 'ff6i11' scalar_desc_table( idomain, P_ff6i11 ) = 'graupel bin 11' scalar_units_table( idomain, P_ff6i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i11 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i11 )%stream(2) = 2097152 ! 00200000 F_ff6i11 = .TRUE. IF ( scalar_index_table( PARAM_ff6i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i12 , idomain ) = P_ff6i12 ELSE P_ff6i12 = scalar_index_table( PARAM_ff6i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i12 ) = .TRUE. scalar_dname_table( idomain, P_ff6i12 ) = 'ff6i12' scalar_desc_table( idomain, P_ff6i12 ) = 'graupel bin 12' scalar_units_table( idomain, P_ff6i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i12 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i12 )%stream(2) = 2097152 ! 00200000 F_ff6i12 = .TRUE. IF ( scalar_index_table( PARAM_ff6i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i13 , idomain ) = P_ff6i13 ELSE P_ff6i13 = scalar_index_table( PARAM_ff6i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i13 ) = .TRUE. scalar_dname_table( idomain, P_ff6i13 ) = 'ff6i13' scalar_desc_table( idomain, P_ff6i13 ) = 'graupel bin 13' scalar_units_table( idomain, P_ff6i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i13 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i13 )%stream(2) = 2097152 ! 00200000 F_ff6i13 = .TRUE. IF ( scalar_index_table( PARAM_ff6i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i14 , idomain ) = P_ff6i14 ELSE P_ff6i14 = scalar_index_table( PARAM_ff6i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i14 ) = .TRUE. scalar_dname_table( idomain, P_ff6i14 ) = 'ff6i14' scalar_desc_table( idomain, P_ff6i14 ) = 'graupel bin 14' scalar_units_table( idomain, P_ff6i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i14 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i14 )%stream(2) = 2097152 ! 00200000 F_ff6i14 = .TRUE. IF ( scalar_index_table( PARAM_ff6i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i15 , idomain ) = P_ff6i15 ELSE P_ff6i15 = scalar_index_table( PARAM_ff6i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i15 ) = .TRUE. scalar_dname_table( idomain, P_ff6i15 ) = 'ff6i15' scalar_desc_table( idomain, P_ff6i15 ) = 'graupel bin 15' scalar_units_table( idomain, P_ff6i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i15 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i15 )%stream(2) = 2097152 ! 00200000 F_ff6i15 = .TRUE. IF ( scalar_index_table( PARAM_ff6i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i16 , idomain ) = P_ff6i16 ELSE P_ff6i16 = scalar_index_table( PARAM_ff6i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i16 ) = .TRUE. scalar_dname_table( idomain, P_ff6i16 ) = 'ff6i16' scalar_desc_table( idomain, P_ff6i16 ) = 'graupel bin 16' scalar_units_table( idomain, P_ff6i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i16 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i16 )%stream(2) = 2097152 ! 00200000 F_ff6i16 = .TRUE. IF ( scalar_index_table( PARAM_ff6i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i17 , idomain ) = P_ff6i17 ELSE P_ff6i17 = scalar_index_table( PARAM_ff6i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i17 ) = .TRUE. scalar_dname_table( idomain, P_ff6i17 ) = 'ff6i17' scalar_desc_table( idomain, P_ff6i17 ) = 'graupel bin 17' scalar_units_table( idomain, P_ff6i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i17 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i17 )%stream(2) = 2097152 ! 00200000 F_ff6i17 = .TRUE. IF ( scalar_index_table( PARAM_ff6i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i18 , idomain ) = P_ff6i18 ELSE P_ff6i18 = scalar_index_table( PARAM_ff6i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i18 ) = .TRUE. scalar_dname_table( idomain, P_ff6i18 ) = 'ff6i18' scalar_desc_table( idomain, P_ff6i18 ) = 'graupel bin 18' scalar_units_table( idomain, P_ff6i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i18 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i18 )%stream(2) = 2097152 ! 00200000 F_ff6i18 = .TRUE. IF ( scalar_index_table( PARAM_ff6i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i19 , idomain ) = P_ff6i19 ELSE P_ff6i19 = scalar_index_table( PARAM_ff6i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i19 ) = .TRUE. scalar_dname_table( idomain, P_ff6i19 ) = 'ff6i19' scalar_desc_table( idomain, P_ff6i19 ) = 'graupel bin 19' scalar_units_table( idomain, P_ff6i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i19 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i19 )%stream(2) = 2097152 ! 00200000 F_ff6i19 = .TRUE. IF ( scalar_index_table( PARAM_ff6i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i20 , idomain ) = P_ff6i20 ELSE P_ff6i20 = scalar_index_table( PARAM_ff6i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i20 ) = .TRUE. scalar_dname_table( idomain, P_ff6i20 ) = 'ff6i20' scalar_desc_table( idomain, P_ff6i20 ) = 'graupel bin 20' scalar_units_table( idomain, P_ff6i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i20 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i20 )%stream(2) = 2097152 ! 00200000 F_ff6i20 = .TRUE. IF ( scalar_index_table( PARAM_ff6i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i21 , idomain ) = P_ff6i21 ELSE P_ff6i21 = scalar_index_table( PARAM_ff6i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i21 ) = .TRUE. scalar_dname_table( idomain, P_ff6i21 ) = 'ff6i21' scalar_desc_table( idomain, P_ff6i21 ) = 'graupel bin 21' scalar_units_table( idomain, P_ff6i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i21 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i21 )%stream(2) = 2097152 ! 00200000 F_ff6i21 = .TRUE. IF ( scalar_index_table( PARAM_ff6i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i22 , idomain ) = P_ff6i22 ELSE P_ff6i22 = scalar_index_table( PARAM_ff6i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i22 ) = .TRUE. scalar_dname_table( idomain, P_ff6i22 ) = 'ff6i22' scalar_desc_table( idomain, P_ff6i22 ) = 'graupel bin 22' scalar_units_table( idomain, P_ff6i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i22 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i22 )%stream(2) = 2097152 ! 00200000 F_ff6i22 = .TRUE. IF ( scalar_index_table( PARAM_ff6i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i23 , idomain ) = P_ff6i23 ELSE P_ff6i23 = scalar_index_table( PARAM_ff6i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i23 ) = .TRUE. scalar_dname_table( idomain, P_ff6i23 ) = 'ff6i23' scalar_desc_table( idomain, P_ff6i23 ) = 'graupel bin 23' scalar_units_table( idomain, P_ff6i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i23 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i23 )%stream(2) = 2097152 ! 00200000 F_ff6i23 = .TRUE. IF ( scalar_index_table( PARAM_ff6i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i24 , idomain ) = P_ff6i24 ELSE P_ff6i24 = scalar_index_table( PARAM_ff6i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i24 ) = .TRUE. scalar_dname_table( idomain, P_ff6i24 ) = 'ff6i24' scalar_desc_table( idomain, P_ff6i24 ) = 'graupel bin 24' scalar_units_table( idomain, P_ff6i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i24 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i24 )%stream(2) = 2097152 ! 00200000 F_ff6i24 = .TRUE. IF ( scalar_index_table( PARAM_ff6i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i25 , idomain ) = P_ff6i25 ELSE P_ff6i25 = scalar_index_table( PARAM_ff6i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i25 ) = .TRUE. scalar_dname_table( idomain, P_ff6i25 ) = 'ff6i25' scalar_desc_table( idomain, P_ff6i25 ) = 'graupel bin 25' scalar_units_table( idomain, P_ff6i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i25 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i25 )%stream(2) = 2097152 ! 00200000 F_ff6i25 = .TRUE. IF ( scalar_index_table( PARAM_ff6i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i26 , idomain ) = P_ff6i26 ELSE P_ff6i26 = scalar_index_table( PARAM_ff6i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i26 ) = .TRUE. scalar_dname_table( idomain, P_ff6i26 ) = 'ff6i26' scalar_desc_table( idomain, P_ff6i26 ) = 'graupel bin 26' scalar_units_table( idomain, P_ff6i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i26 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i26 )%stream(2) = 2097152 ! 00200000 F_ff6i26 = .TRUE. IF ( scalar_index_table( PARAM_ff6i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i27 , idomain ) = P_ff6i27 ELSE P_ff6i27 = scalar_index_table( PARAM_ff6i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i27 ) = .TRUE. scalar_dname_table( idomain, P_ff6i27 ) = 'ff6i27' scalar_desc_table( idomain, P_ff6i27 ) = 'graupel bin 27' scalar_units_table( idomain, P_ff6i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i27 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i27 )%stream(2) = 2097152 ! 00200000 F_ff6i27 = .TRUE. IF ( scalar_index_table( PARAM_ff6i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i28 , idomain ) = P_ff6i28 ELSE P_ff6i28 = scalar_index_table( PARAM_ff6i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i28 ) = .TRUE. scalar_dname_table( idomain, P_ff6i28 ) = 'ff6i28' scalar_desc_table( idomain, P_ff6i28 ) = 'graupel bin 28' scalar_units_table( idomain, P_ff6i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i28 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i28 )%stream(2) = 2097152 ! 00200000 F_ff6i28 = .TRUE. IF ( scalar_index_table( PARAM_ff6i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i29 , idomain ) = P_ff6i29 ELSE P_ff6i29 = scalar_index_table( PARAM_ff6i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i29 ) = .TRUE. scalar_dname_table( idomain, P_ff6i29 ) = 'ff6i29' scalar_desc_table( idomain, P_ff6i29 ) = 'graupel bin 29' scalar_units_table( idomain, P_ff6i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i29 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i29 )%stream(2) = 2097152 ! 00200000 F_ff6i29 = .TRUE. IF ( scalar_index_table( PARAM_ff6i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i30 , idomain ) = P_ff6i30 ELSE P_ff6i30 = scalar_index_table( PARAM_ff6i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i30 ) = .TRUE. scalar_dname_table( idomain, P_ff6i30 ) = 'ff6i30' scalar_desc_table( idomain, P_ff6i30 ) = 'graupel bin 30' scalar_units_table( idomain, P_ff6i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i30 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i30 )%stream(2) = 2097152 ! 00200000 F_ff6i30 = .TRUE. IF ( scalar_index_table( PARAM_ff6i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i31 , idomain ) = P_ff6i31 ELSE P_ff6i31 = scalar_index_table( PARAM_ff6i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i31 ) = .TRUE. scalar_dname_table( idomain, P_ff6i31 ) = 'ff6i31' scalar_desc_table( idomain, P_ff6i31 ) = 'graupel bin 31' scalar_units_table( idomain, P_ff6i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i31 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i31 )%stream(2) = 2097152 ! 00200000 F_ff6i31 = .TRUE. IF ( scalar_index_table( PARAM_ff6i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i32 , idomain ) = P_ff6i32 ELSE P_ff6i32 = scalar_index_table( PARAM_ff6i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i32 ) = .TRUE. scalar_dname_table( idomain, P_ff6i32 ) = 'ff6i32' scalar_desc_table( idomain, P_ff6i32 ) = 'graupel bin 32' scalar_units_table( idomain, P_ff6i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i32 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i32 )%stream(2) = 2097152 ! 00200000 F_ff6i32 = .TRUE. IF ( scalar_index_table( PARAM_ff6i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i33 , idomain ) = P_ff6i33 ELSE P_ff6i33 = scalar_index_table( PARAM_ff6i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i33 ) = .TRUE. scalar_dname_table( idomain, P_ff6i33 ) = 'ff6i33' scalar_desc_table( idomain, P_ff6i33 ) = 'graupel bin 33' scalar_units_table( idomain, P_ff6i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i33 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i33 )%stream(2) = 2097152 ! 00200000 F_ff6i33 = .TRUE. IF ( scalar_index_table( PARAM_ff8i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i01 , idomain ) = P_ff8i01 ELSE P_ff8i01 = scalar_index_table( PARAM_ff8i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i01 ) = .TRUE. scalar_dname_table( idomain, P_ff8i01 ) = 'ff8i01' scalar_desc_table( idomain, P_ff8i01 ) = 'aerosols bin 1' scalar_units_table( idomain, P_ff8i01 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i01 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i01 )%stream(2) = 2097152 ! 00200000 F_ff8i01 = .TRUE. IF ( scalar_index_table( PARAM_ff8i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i02 , idomain ) = P_ff8i02 ELSE P_ff8i02 = scalar_index_table( PARAM_ff8i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i02 ) = .TRUE. scalar_dname_table( idomain, P_ff8i02 ) = 'ff8i02' scalar_desc_table( idomain, P_ff8i02 ) = 'aerosols bin 2' scalar_units_table( idomain, P_ff8i02 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i02 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i02 )%stream(2) = 2097152 ! 00200000 F_ff8i02 = .TRUE. IF ( scalar_index_table( PARAM_ff8i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i03 , idomain ) = P_ff8i03 ELSE P_ff8i03 = scalar_index_table( PARAM_ff8i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i03 ) = .TRUE. scalar_dname_table( idomain, P_ff8i03 ) = 'ff8i03' scalar_desc_table( idomain, P_ff8i03 ) = 'aerosols bin 3' scalar_units_table( idomain, P_ff8i03 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i03 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i03 )%stream(2) = 2097152 ! 00200000 F_ff8i03 = .TRUE. IF ( scalar_index_table( PARAM_ff8i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i04 , idomain ) = P_ff8i04 ELSE P_ff8i04 = scalar_index_table( PARAM_ff8i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i04 ) = .TRUE. scalar_dname_table( idomain, P_ff8i04 ) = 'ff8i04' scalar_desc_table( idomain, P_ff8i04 ) = 'aerosols bin 4' scalar_units_table( idomain, P_ff8i04 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i04 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i04 )%stream(2) = 2097152 ! 00200000 F_ff8i04 = .TRUE. IF ( scalar_index_table( PARAM_ff8i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i05 , idomain ) = P_ff8i05 ELSE P_ff8i05 = scalar_index_table( PARAM_ff8i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i05 ) = .TRUE. scalar_dname_table( idomain, P_ff8i05 ) = 'ff8i05' scalar_desc_table( idomain, P_ff8i05 ) = 'aerosols bin 5' scalar_units_table( idomain, P_ff8i05 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i05 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i05 )%stream(2) = 2097152 ! 00200000 F_ff8i05 = .TRUE. IF ( scalar_index_table( PARAM_ff8i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i06 , idomain ) = P_ff8i06 ELSE P_ff8i06 = scalar_index_table( PARAM_ff8i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i06 ) = .TRUE. scalar_dname_table( idomain, P_ff8i06 ) = 'ff8i06' scalar_desc_table( idomain, P_ff8i06 ) = 'aerosols bin 6' scalar_units_table( idomain, P_ff8i06 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i06 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i06 )%stream(2) = 2097152 ! 00200000 F_ff8i06 = .TRUE. IF ( scalar_index_table( PARAM_ff8i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i07 , idomain ) = P_ff8i07 ELSE P_ff8i07 = scalar_index_table( PARAM_ff8i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i07 ) = .TRUE. scalar_dname_table( idomain, P_ff8i07 ) = 'ff8i07' scalar_desc_table( idomain, P_ff8i07 ) = 'aerosols bin 7' scalar_units_table( idomain, P_ff8i07 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i07 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i07 )%stream(2) = 2097152 ! 00200000 F_ff8i07 = .TRUE. IF ( scalar_index_table( PARAM_ff8i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i08 , idomain ) = P_ff8i08 ELSE P_ff8i08 = scalar_index_table( PARAM_ff8i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i08 ) = .TRUE. scalar_dname_table( idomain, P_ff8i08 ) = 'ff8i08' scalar_desc_table( idomain, P_ff8i08 ) = 'aerosols bin 8' scalar_units_table( idomain, P_ff8i08 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i08 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i08 )%stream(2) = 2097152 ! 00200000 F_ff8i08 = .TRUE. IF ( scalar_index_table( PARAM_ff8i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i09 , idomain ) = P_ff8i09 ELSE P_ff8i09 = scalar_index_table( PARAM_ff8i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i09 ) = .TRUE. scalar_dname_table( idomain, P_ff8i09 ) = 'ff8i09' scalar_desc_table( idomain, P_ff8i09 ) = 'aerosols bin 9' scalar_units_table( idomain, P_ff8i09 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i09 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i09 )%stream(2) = 2097152 ! 00200000 F_ff8i09 = .TRUE. IF ( scalar_index_table( PARAM_ff8i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i10 , idomain ) = P_ff8i10 ELSE P_ff8i10 = scalar_index_table( PARAM_ff8i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i10 ) = .TRUE. scalar_dname_table( idomain, P_ff8i10 ) = 'ff8i10' scalar_desc_table( idomain, P_ff8i10 ) = 'aerosols bin 10' scalar_units_table( idomain, P_ff8i10 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i10 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i10 )%stream(2) = 2097152 ! 00200000 F_ff8i10 = .TRUE. IF ( scalar_index_table( PARAM_ff8i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i11 , idomain ) = P_ff8i11 ELSE P_ff8i11 = scalar_index_table( PARAM_ff8i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i11 ) = .TRUE. scalar_dname_table( idomain, P_ff8i11 ) = 'ff8i11' scalar_desc_table( idomain, P_ff8i11 ) = 'aerosols bin 11' scalar_units_table( idomain, P_ff8i11 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i11 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i11 )%stream(2) = 2097152 ! 00200000 F_ff8i11 = .TRUE. IF ( scalar_index_table( PARAM_ff8i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i12 , idomain ) = P_ff8i12 ELSE P_ff8i12 = scalar_index_table( PARAM_ff8i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i12 ) = .TRUE. scalar_dname_table( idomain, P_ff8i12 ) = 'ff8i12' scalar_desc_table( idomain, P_ff8i12 ) = 'aerosols bin 12' scalar_units_table( idomain, P_ff8i12 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i12 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i12 )%stream(2) = 2097152 ! 00200000 F_ff8i12 = .TRUE. IF ( scalar_index_table( PARAM_ff8i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i13 , idomain ) = P_ff8i13 ELSE P_ff8i13 = scalar_index_table( PARAM_ff8i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i13 ) = .TRUE. scalar_dname_table( idomain, P_ff8i13 ) = 'ff8i13' scalar_desc_table( idomain, P_ff8i13 ) = 'aerosols bin 13' scalar_units_table( idomain, P_ff8i13 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i13 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i13 )%stream(2) = 2097152 ! 00200000 F_ff8i13 = .TRUE. IF ( scalar_index_table( PARAM_ff8i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i14 , idomain ) = P_ff8i14 ELSE P_ff8i14 = scalar_index_table( PARAM_ff8i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i14 ) = .TRUE. scalar_dname_table( idomain, P_ff8i14 ) = 'ff8i14' scalar_desc_table( idomain, P_ff8i14 ) = 'aerosols bin 14' scalar_units_table( idomain, P_ff8i14 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i14 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i14 )%stream(2) = 2097152 ! 00200000 F_ff8i14 = .TRUE. IF ( scalar_index_table( PARAM_ff8i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i15 , idomain ) = P_ff8i15 ELSE P_ff8i15 = scalar_index_table( PARAM_ff8i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i15 ) = .TRUE. scalar_dname_table( idomain, P_ff8i15 ) = 'ff8i15' scalar_desc_table( idomain, P_ff8i15 ) = 'aerosols bin 15' scalar_units_table( idomain, P_ff8i15 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i15 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i15 )%stream(2) = 2097152 ! 00200000 F_ff8i15 = .TRUE. IF ( scalar_index_table( PARAM_ff8i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i16 , idomain ) = P_ff8i16 ELSE P_ff8i16 = scalar_index_table( PARAM_ff8i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i16 ) = .TRUE. scalar_dname_table( idomain, P_ff8i16 ) = 'ff8i16' scalar_desc_table( idomain, P_ff8i16 ) = 'aerosols bin 16' scalar_units_table( idomain, P_ff8i16 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i16 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i16 )%stream(2) = 2097152 ! 00200000 F_ff8i16 = .TRUE. IF ( scalar_index_table( PARAM_ff8i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i17 , idomain ) = P_ff8i17 ELSE P_ff8i17 = scalar_index_table( PARAM_ff8i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i17 ) = .TRUE. scalar_dname_table( idomain, P_ff8i17 ) = 'ff8i17' scalar_desc_table( idomain, P_ff8i17 ) = 'aerosols bin 17' scalar_units_table( idomain, P_ff8i17 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i17 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i17 )%stream(2) = 2097152 ! 00200000 F_ff8i17 = .TRUE. IF ( scalar_index_table( PARAM_ff8i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i18 , idomain ) = P_ff8i18 ELSE P_ff8i18 = scalar_index_table( PARAM_ff8i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i18 ) = .TRUE. scalar_dname_table( idomain, P_ff8i18 ) = 'ff8i18' scalar_desc_table( idomain, P_ff8i18 ) = 'aerosols bin 18' scalar_units_table( idomain, P_ff8i18 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i18 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i18 )%stream(2) = 2097152 ! 00200000 F_ff8i18 = .TRUE. IF ( scalar_index_table( PARAM_ff8i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i19 , idomain ) = P_ff8i19 ELSE P_ff8i19 = scalar_index_table( PARAM_ff8i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i19 ) = .TRUE. scalar_dname_table( idomain, P_ff8i19 ) = 'ff8i19' scalar_desc_table( idomain, P_ff8i19 ) = 'aerosols bin 19' scalar_units_table( idomain, P_ff8i19 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i19 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i19 )%stream(2) = 2097152 ! 00200000 F_ff8i19 = .TRUE. IF ( scalar_index_table( PARAM_ff8i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i20 , idomain ) = P_ff8i20 ELSE P_ff8i20 = scalar_index_table( PARAM_ff8i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i20 ) = .TRUE. scalar_dname_table( idomain, P_ff8i20 ) = 'ff8i20' scalar_desc_table( idomain, P_ff8i20 ) = 'aerosols bin 20' scalar_units_table( idomain, P_ff8i20 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i20 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i20 )%stream(2) = 2097152 ! 00200000 F_ff8i20 = .TRUE. IF ( scalar_index_table( PARAM_ff8i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i21 , idomain ) = P_ff8i21 ELSE P_ff8i21 = scalar_index_table( PARAM_ff8i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i21 ) = .TRUE. scalar_dname_table( idomain, P_ff8i21 ) = 'ff8i21' scalar_desc_table( idomain, P_ff8i21 ) = 'aerosols bin 21' scalar_units_table( idomain, P_ff8i21 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i21 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i21 )%stream(2) = 2097152 ! 00200000 F_ff8i21 = .TRUE. IF ( scalar_index_table( PARAM_ff8i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i22 , idomain ) = P_ff8i22 ELSE P_ff8i22 = scalar_index_table( PARAM_ff8i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i22 ) = .TRUE. scalar_dname_table( idomain, P_ff8i22 ) = 'ff8i22' scalar_desc_table( idomain, P_ff8i22 ) = 'aerosols bin 22' scalar_units_table( idomain, P_ff8i22 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i22 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i22 )%stream(2) = 2097152 ! 00200000 F_ff8i22 = .TRUE. IF ( scalar_index_table( PARAM_ff8i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i23 , idomain ) = P_ff8i23 ELSE P_ff8i23 = scalar_index_table( PARAM_ff8i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i23 ) = .TRUE. scalar_dname_table( idomain, P_ff8i23 ) = 'ff8i23' scalar_desc_table( idomain, P_ff8i23 ) = 'aerosols bin 23' scalar_units_table( idomain, P_ff8i23 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i23 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i23 )%stream(2) = 2097152 ! 00200000 F_ff8i23 = .TRUE. IF ( scalar_index_table( PARAM_ff8i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i24 , idomain ) = P_ff8i24 ELSE P_ff8i24 = scalar_index_table( PARAM_ff8i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i24 ) = .TRUE. scalar_dname_table( idomain, P_ff8i24 ) = 'ff8i24' scalar_desc_table( idomain, P_ff8i24 ) = 'aerosols bin 24' scalar_units_table( idomain, P_ff8i24 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i24 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i24 )%stream(2) = 2097152 ! 00200000 F_ff8i24 = .TRUE. IF ( scalar_index_table( PARAM_ff8i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i25 , idomain ) = P_ff8i25 ELSE P_ff8i25 = scalar_index_table( PARAM_ff8i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i25 ) = .TRUE. scalar_dname_table( idomain, P_ff8i25 ) = 'ff8i25' scalar_desc_table( idomain, P_ff8i25 ) = 'aerosols bin 25' scalar_units_table( idomain, P_ff8i25 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i25 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i25 )%stream(2) = 2097152 ! 00200000 F_ff8i25 = .TRUE. IF ( scalar_index_table( PARAM_ff8i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i26 , idomain ) = P_ff8i26 ELSE P_ff8i26 = scalar_index_table( PARAM_ff8i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i26 ) = .TRUE. scalar_dname_table( idomain, P_ff8i26 ) = 'ff8i26' scalar_desc_table( idomain, P_ff8i26 ) = 'aerosols bin 26' scalar_units_table( idomain, P_ff8i26 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i26 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i26 )%stream(2) = 2097152 ! 00200000 F_ff8i26 = .TRUE. IF ( scalar_index_table( PARAM_ff8i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i27 , idomain ) = P_ff8i27 ELSE P_ff8i27 = scalar_index_table( PARAM_ff8i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i27 ) = .TRUE. scalar_dname_table( idomain, P_ff8i27 ) = 'ff8i27' scalar_desc_table( idomain, P_ff8i27 ) = 'aerosols bin 27' scalar_units_table( idomain, P_ff8i27 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i27 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i27 )%stream(2) = 2097152 ! 00200000 F_ff8i27 = .TRUE. IF ( scalar_index_table( PARAM_ff8i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i28 , idomain ) = P_ff8i28 ELSE P_ff8i28 = scalar_index_table( PARAM_ff8i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i28 ) = .TRUE. scalar_dname_table( idomain, P_ff8i28 ) = 'ff8i28' scalar_desc_table( idomain, P_ff8i28 ) = 'aerosols bin 28' scalar_units_table( idomain, P_ff8i28 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i28 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i28 )%stream(2) = 2097152 ! 00200000 F_ff8i28 = .TRUE. IF ( scalar_index_table( PARAM_ff8i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i29 , idomain ) = P_ff8i29 ELSE P_ff8i29 = scalar_index_table( PARAM_ff8i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i29 ) = .TRUE. scalar_dname_table( idomain, P_ff8i29 ) = 'ff8i29' scalar_desc_table( idomain, P_ff8i29 ) = 'aerosols bin 29' scalar_units_table( idomain, P_ff8i29 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i29 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i29 )%stream(2) = 2097152 ! 00200000 F_ff8i29 = .TRUE. IF ( scalar_index_table( PARAM_ff8i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i30 , idomain ) = P_ff8i30 ELSE P_ff8i30 = scalar_index_table( PARAM_ff8i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i30 ) = .TRUE. scalar_dname_table( idomain, P_ff8i30 ) = 'ff8i30' scalar_desc_table( idomain, P_ff8i30 ) = 'aerosols bin 30' scalar_units_table( idomain, P_ff8i30 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i30 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i30 )%stream(2) = 2097152 ! 00200000 F_ff8i30 = .TRUE. IF ( scalar_index_table( PARAM_ff8i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i31 , idomain ) = P_ff8i31 ELSE P_ff8i31 = scalar_index_table( PARAM_ff8i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i31 ) = .TRUE. scalar_dname_table( idomain, P_ff8i31 ) = 'ff8i31' scalar_desc_table( idomain, P_ff8i31 ) = 'aerosols bin 31' scalar_units_table( idomain, P_ff8i31 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i31 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i31 )%stream(2) = 2097152 ! 00200000 F_ff8i31 = .TRUE. IF ( scalar_index_table( PARAM_ff8i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i32 , idomain ) = P_ff8i32 ELSE P_ff8i32 = scalar_index_table( PARAM_ff8i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i32 ) = .TRUE. scalar_dname_table( idomain, P_ff8i32 ) = 'ff8i32' scalar_desc_table( idomain, P_ff8i32 ) = 'aerosols bin 32' scalar_units_table( idomain, P_ff8i32 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i32 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i32 )%stream(2) = 2097152 ! 00200000 F_ff8i32 = .TRUE. IF ( scalar_index_table( PARAM_ff8i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i33 , idomain ) = P_ff8i33 ELSE P_ff8i33 = scalar_index_table( PARAM_ff8i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i33 ) = .TRUE. scalar_dname_table( idomain, P_ff8i33 ) = 'ff8i33' scalar_desc_table( idomain, P_ff8i33 ) = 'aerosols bin 33' scalar_units_table( idomain, P_ff8i33 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i33 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i33 )%stream(2) = 2097152 ! 00200000 F_ff8i33 = .TRUE. IF ( scalar_index_table( PARAM_qnn , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnn = scalar_num_table(idomain) scalar_index_table( PARAM_qnn , idomain ) = P_qnn ELSE P_qnn = scalar_index_table( PARAM_qnn , idomain ) END IF scalar_boundary_table( idomain, P_qnn ) = .TRUE. scalar_dname_table( idomain, P_qnn ) = 'QNCCN' scalar_desc_table( idomain, P_qnn ) = 'CCN Number concentration' scalar_units_table( idomain, P_qnn ) = ' kg(-1)' scalar_streams_table( idomain, P_qnn )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnn )%stream(2) = 2097152 ! 00200000 F_qnn = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 ! 00200000 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 ! 00200000 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 ! 00200000 F_qns = .TRUE. IF ( scalar_index_table( PARAM_qng , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qng = scalar_num_table(idomain) scalar_index_table( PARAM_qng , idomain ) = P_qng ELSE P_qng = scalar_index_table( PARAM_qng , idomain ) END IF scalar_boundary_table( idomain, P_qng ) = .TRUE. scalar_dname_table( idomain, P_qng ) = 'QNGRAUPEL' scalar_desc_table( idomain, P_qng ) = 'Graupel Number concentration' scalar_units_table( idomain, P_qng ) = ' kg(-1)' scalar_streams_table( idomain, P_qng )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qng )%stream(2) = 2097152 ! 00200000 F_qng = .TRUE. IF ( scalar_index_table( PARAM_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_effr = scalar_num_table(idomain) scalar_index_table( PARAM_effr , idomain ) = P_effr ELSE P_effr = scalar_index_table( PARAM_effr , idomain ) END IF scalar_boundary_table( idomain, P_effr ) = .TRUE. scalar_dname_table( idomain, P_effr ) = 'EFF_RADIUS' scalar_desc_table( idomain, P_effr ) = 'Effective Radius' scalar_units_table( idomain, P_effr ) = 'Microns' scalar_streams_table( idomain, P_effr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_effr )%stream(2) = 2097152 ! 00200000 F_effr = .TRUE. IF ( scalar_index_table( PARAM_ice_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ice_effr = scalar_num_table(idomain) scalar_index_table( PARAM_ice_effr , idomain ) = P_ice_effr ELSE P_ice_effr = scalar_index_table( PARAM_ice_effr , idomain ) END IF scalar_boundary_table( idomain, P_ice_effr ) = .TRUE. scalar_dname_table( idomain, P_ice_effr ) = 'ICE_EFF_RADIUS' scalar_desc_table( idomain, P_ice_effr ) = 'Ice Effective Radius' scalar_units_table( idomain, P_ice_effr ) = 'Microns' scalar_streams_table( idomain, P_ice_effr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_ice_effr )%stream(2) = 2097152 ! 00200000 F_ice_effr = .TRUE. IF ( scalar_index_table( PARAM_tot_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_tot_effr = scalar_num_table(idomain) scalar_index_table( PARAM_tot_effr , idomain ) = P_tot_effr ELSE P_tot_effr = scalar_index_table( PARAM_tot_effr , idomain ) END IF scalar_boundary_table( idomain, P_tot_effr ) = .TRUE. scalar_dname_table( idomain, P_tot_effr ) = 'TOT_EFF_RADIUS' scalar_desc_table( idomain, P_tot_effr ) = 'Tot Effective Radius' scalar_units_table( idomain, P_tot_effr ) = 'Microns' scalar_streams_table( idomain, P_tot_effr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_tot_effr )%stream(2) = 2097152 ! 00200000 F_tot_effr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==32)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qic , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qic = moist_num_table(idomain) moist_index_table( PARAM_qic , idomain ) = P_qic ELSE P_qic = moist_index_table( PARAM_qic , idomain ) END IF moist_boundary_table( idomain, P_qic ) = .TRUE. moist_dname_table( idomain, P_qic ) = 'QICEC' moist_desc_table( idomain, P_qic ) = 'Column Ice mixing ratio' moist_units_table( idomain, P_qic ) = 'kg kg-1' moist_streams_table( idomain, P_qic )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qic )%stream(2) = 2097152 ! 00200000 F_qic = .TRUE. IF ( moist_index_table( PARAM_qip , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qip = moist_num_table(idomain) moist_index_table( PARAM_qip , idomain ) = P_qip ELSE P_qip = moist_index_table( PARAM_qip , idomain ) END IF moist_boundary_table( idomain, P_qip ) = .TRUE. moist_dname_table( idomain, P_qip ) = 'QICEP' moist_desc_table( idomain, P_qip ) = 'Plate Ice mixing ratio' moist_units_table( idomain, P_qip ) = 'kg kg-1' moist_streams_table( idomain, P_qip )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qip )%stream(2) = 2097152 ! 00200000 F_qip = .TRUE. IF ( moist_index_table( PARAM_qid , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qid = moist_num_table(idomain) moist_index_table( PARAM_qid , idomain ) = P_qid ELSE P_qid = moist_index_table( PARAM_qid , idomain ) END IF moist_boundary_table( idomain, P_qid ) = .TRUE. moist_dname_table( idomain, P_qid ) = 'QICED' moist_desc_table( idomain, P_qid ) = 'Dendrite Ice mixing ratio' moist_units_table( idomain, P_qid ) = 'kg kg-1' moist_streams_table( idomain, P_qid )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qid )%stream(2) = 2097152 ! 00200000 F_qid = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( moist_index_table( PARAM_qh , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qh = moist_num_table(idomain) moist_index_table( PARAM_qh , idomain ) = P_qh ELSE P_qh = moist_index_table( PARAM_qh , idomain ) END IF moist_boundary_table( idomain, P_qh ) = .TRUE. moist_dname_table( idomain, P_qh ) = 'QHAIL' moist_desc_table( idomain, P_qh ) = 'Hail mixing ratio' moist_units_table( idomain, P_qh ) = 'kg kg-1' moist_streams_table( idomain, P_qh )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qh )%stream(2) = 2097152 ! 00200000 F_qh = .TRUE. IF ( scalar_index_table( PARAM_ff1i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i01 , idomain ) = P_ff1i01 ELSE P_ff1i01 = scalar_index_table( PARAM_ff1i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i01 ) = .TRUE. scalar_dname_table( idomain, P_ff1i01 ) = 'ff1i01' scalar_desc_table( idomain, P_ff1i01 ) = 'cloud/rain bin 1' scalar_units_table( idomain, P_ff1i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i01 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i01 )%stream(2) = 2097152 ! 00200000 F_ff1i01 = .TRUE. IF ( scalar_index_table( PARAM_ff1i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i02 , idomain ) = P_ff1i02 ELSE P_ff1i02 = scalar_index_table( PARAM_ff1i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i02 ) = .TRUE. scalar_dname_table( idomain, P_ff1i02 ) = 'ff1i02' scalar_desc_table( idomain, P_ff1i02 ) = 'cloud/rain bin 2' scalar_units_table( idomain, P_ff1i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i02 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i02 )%stream(2) = 2097152 ! 00200000 F_ff1i02 = .TRUE. IF ( scalar_index_table( PARAM_ff1i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i03 , idomain ) = P_ff1i03 ELSE P_ff1i03 = scalar_index_table( PARAM_ff1i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i03 ) = .TRUE. scalar_dname_table( idomain, P_ff1i03 ) = 'ff1i03' scalar_desc_table( idomain, P_ff1i03 ) = 'cloud/rain bin 3' scalar_units_table( idomain, P_ff1i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i03 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i03 )%stream(2) = 2097152 ! 00200000 F_ff1i03 = .TRUE. IF ( scalar_index_table( PARAM_ff1i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i04 , idomain ) = P_ff1i04 ELSE P_ff1i04 = scalar_index_table( PARAM_ff1i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i04 ) = .TRUE. scalar_dname_table( idomain, P_ff1i04 ) = 'ff1i04' scalar_desc_table( idomain, P_ff1i04 ) = 'cloud/rain bin 4' scalar_units_table( idomain, P_ff1i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i04 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i04 )%stream(2) = 2097152 ! 00200000 F_ff1i04 = .TRUE. IF ( scalar_index_table( PARAM_ff1i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i05 , idomain ) = P_ff1i05 ELSE P_ff1i05 = scalar_index_table( PARAM_ff1i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i05 ) = .TRUE. scalar_dname_table( idomain, P_ff1i05 ) = 'ff1i05' scalar_desc_table( idomain, P_ff1i05 ) = 'cloud/rain bin 5' scalar_units_table( idomain, P_ff1i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i05 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i05 )%stream(2) = 2097152 ! 00200000 F_ff1i05 = .TRUE. IF ( scalar_index_table( PARAM_ff1i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i06 , idomain ) = P_ff1i06 ELSE P_ff1i06 = scalar_index_table( PARAM_ff1i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i06 ) = .TRUE. scalar_dname_table( idomain, P_ff1i06 ) = 'ff1i06' scalar_desc_table( idomain, P_ff1i06 ) = 'cloud/rain bin 6' scalar_units_table( idomain, P_ff1i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i06 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i06 )%stream(2) = 2097152 ! 00200000 F_ff1i06 = .TRUE. IF ( scalar_index_table( PARAM_ff1i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i07 , idomain ) = P_ff1i07 ELSE P_ff1i07 = scalar_index_table( PARAM_ff1i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i07 ) = .TRUE. scalar_dname_table( idomain, P_ff1i07 ) = 'ff1i07' scalar_desc_table( idomain, P_ff1i07 ) = 'cloud/rain bin 7' scalar_units_table( idomain, P_ff1i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i07 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i07 )%stream(2) = 2097152 ! 00200000 F_ff1i07 = .TRUE. IF ( scalar_index_table( PARAM_ff1i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i08 , idomain ) = P_ff1i08 ELSE P_ff1i08 = scalar_index_table( PARAM_ff1i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i08 ) = .TRUE. scalar_dname_table( idomain, P_ff1i08 ) = 'ff1i08' scalar_desc_table( idomain, P_ff1i08 ) = 'cloud/rain bin 8' scalar_units_table( idomain, P_ff1i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i08 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i08 )%stream(2) = 2097152 ! 00200000 F_ff1i08 = .TRUE. IF ( scalar_index_table( PARAM_ff1i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i09 , idomain ) = P_ff1i09 ELSE P_ff1i09 = scalar_index_table( PARAM_ff1i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i09 ) = .TRUE. scalar_dname_table( idomain, P_ff1i09 ) = 'ff1i09' scalar_desc_table( idomain, P_ff1i09 ) = 'cloud/rain bin 9' scalar_units_table( idomain, P_ff1i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i09 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i09 )%stream(2) = 2097152 ! 00200000 F_ff1i09 = .TRUE. IF ( scalar_index_table( PARAM_ff1i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i10 , idomain ) = P_ff1i10 ELSE P_ff1i10 = scalar_index_table( PARAM_ff1i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i10 ) = .TRUE. scalar_dname_table( idomain, P_ff1i10 ) = 'ff1i10' scalar_desc_table( idomain, P_ff1i10 ) = 'cloud/rain bin 10' scalar_units_table( idomain, P_ff1i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i10 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i10 )%stream(2) = 2097152 ! 00200000 F_ff1i10 = .TRUE. IF ( scalar_index_table( PARAM_ff1i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i11 , idomain ) = P_ff1i11 ELSE P_ff1i11 = scalar_index_table( PARAM_ff1i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i11 ) = .TRUE. scalar_dname_table( idomain, P_ff1i11 ) = 'ff1i11' scalar_desc_table( idomain, P_ff1i11 ) = 'cloud/rain bin 11' scalar_units_table( idomain, P_ff1i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i11 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i11 )%stream(2) = 2097152 ! 00200000 F_ff1i11 = .TRUE. IF ( scalar_index_table( PARAM_ff1i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i12 , idomain ) = P_ff1i12 ELSE P_ff1i12 = scalar_index_table( PARAM_ff1i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i12 ) = .TRUE. scalar_dname_table( idomain, P_ff1i12 ) = 'ff1i12' scalar_desc_table( idomain, P_ff1i12 ) = 'cloud/rain bin 12' scalar_units_table( idomain, P_ff1i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i12 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i12 )%stream(2) = 2097152 ! 00200000 F_ff1i12 = .TRUE. IF ( scalar_index_table( PARAM_ff1i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i13 , idomain ) = P_ff1i13 ELSE P_ff1i13 = scalar_index_table( PARAM_ff1i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i13 ) = .TRUE. scalar_dname_table( idomain, P_ff1i13 ) = 'ff1i13' scalar_desc_table( idomain, P_ff1i13 ) = 'cloud/rain bin 13' scalar_units_table( idomain, P_ff1i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i13 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i13 )%stream(2) = 2097152 ! 00200000 F_ff1i13 = .TRUE. IF ( scalar_index_table( PARAM_ff1i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i14 , idomain ) = P_ff1i14 ELSE P_ff1i14 = scalar_index_table( PARAM_ff1i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i14 ) = .TRUE. scalar_dname_table( idomain, P_ff1i14 ) = 'ff1i14' scalar_desc_table( idomain, P_ff1i14 ) = 'cloud/rain bin 14' scalar_units_table( idomain, P_ff1i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i14 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i14 )%stream(2) = 2097152 ! 00200000 F_ff1i14 = .TRUE. IF ( scalar_index_table( PARAM_ff1i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i15 , idomain ) = P_ff1i15 ELSE P_ff1i15 = scalar_index_table( PARAM_ff1i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i15 ) = .TRUE. scalar_dname_table( idomain, P_ff1i15 ) = 'ff1i15' scalar_desc_table( idomain, P_ff1i15 ) = 'cloud/rain bin 15' scalar_units_table( idomain, P_ff1i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i15 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i15 )%stream(2) = 2097152 ! 00200000 F_ff1i15 = .TRUE. IF ( scalar_index_table( PARAM_ff1i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i16 , idomain ) = P_ff1i16 ELSE P_ff1i16 = scalar_index_table( PARAM_ff1i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i16 ) = .TRUE. scalar_dname_table( idomain, P_ff1i16 ) = 'ff1i16' scalar_desc_table( idomain, P_ff1i16 ) = 'cloud/rain bin 16' scalar_units_table( idomain, P_ff1i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i16 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i16 )%stream(2) = 2097152 ! 00200000 F_ff1i16 = .TRUE. IF ( scalar_index_table( PARAM_ff1i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i17 , idomain ) = P_ff1i17 ELSE P_ff1i17 = scalar_index_table( PARAM_ff1i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i17 ) = .TRUE. scalar_dname_table( idomain, P_ff1i17 ) = 'ff1i17' scalar_desc_table( idomain, P_ff1i17 ) = 'cloud/rain bin 17' scalar_units_table( idomain, P_ff1i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i17 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i17 )%stream(2) = 2097152 ! 00200000 F_ff1i17 = .TRUE. IF ( scalar_index_table( PARAM_ff1i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i18 , idomain ) = P_ff1i18 ELSE P_ff1i18 = scalar_index_table( PARAM_ff1i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i18 ) = .TRUE. scalar_dname_table( idomain, P_ff1i18 ) = 'ff1i18' scalar_desc_table( idomain, P_ff1i18 ) = 'cloud/rain bin 18' scalar_units_table( idomain, P_ff1i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i18 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i18 )%stream(2) = 2097152 ! 00200000 F_ff1i18 = .TRUE. IF ( scalar_index_table( PARAM_ff1i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i19 , idomain ) = P_ff1i19 ELSE P_ff1i19 = scalar_index_table( PARAM_ff1i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i19 ) = .TRUE. scalar_dname_table( idomain, P_ff1i19 ) = 'ff1i19' scalar_desc_table( idomain, P_ff1i19 ) = 'cloud/rain bin 19' scalar_units_table( idomain, P_ff1i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i19 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i19 )%stream(2) = 2097152 ! 00200000 F_ff1i19 = .TRUE. IF ( scalar_index_table( PARAM_ff1i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i20 , idomain ) = P_ff1i20 ELSE P_ff1i20 = scalar_index_table( PARAM_ff1i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i20 ) = .TRUE. scalar_dname_table( idomain, P_ff1i20 ) = 'ff1i20' scalar_desc_table( idomain, P_ff1i20 ) = 'cloud/rain bin 20' scalar_units_table( idomain, P_ff1i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i20 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i20 )%stream(2) = 2097152 ! 00200000 F_ff1i20 = .TRUE. IF ( scalar_index_table( PARAM_ff1i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i21 , idomain ) = P_ff1i21 ELSE P_ff1i21 = scalar_index_table( PARAM_ff1i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i21 ) = .TRUE. scalar_dname_table( idomain, P_ff1i21 ) = 'ff1i21' scalar_desc_table( idomain, P_ff1i21 ) = 'cloud/rain bin 21' scalar_units_table( idomain, P_ff1i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i21 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i21 )%stream(2) = 2097152 ! 00200000 F_ff1i21 = .TRUE. IF ( scalar_index_table( PARAM_ff1i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i22 , idomain ) = P_ff1i22 ELSE P_ff1i22 = scalar_index_table( PARAM_ff1i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i22 ) = .TRUE. scalar_dname_table( idomain, P_ff1i22 ) = 'ff1i22' scalar_desc_table( idomain, P_ff1i22 ) = 'cloud/rain bin 22' scalar_units_table( idomain, P_ff1i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i22 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i22 )%stream(2) = 2097152 ! 00200000 F_ff1i22 = .TRUE. IF ( scalar_index_table( PARAM_ff1i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i23 , idomain ) = P_ff1i23 ELSE P_ff1i23 = scalar_index_table( PARAM_ff1i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i23 ) = .TRUE. scalar_dname_table( idomain, P_ff1i23 ) = 'ff1i23' scalar_desc_table( idomain, P_ff1i23 ) = 'cloud/rain bin 23' scalar_units_table( idomain, P_ff1i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i23 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i23 )%stream(2) = 2097152 ! 00200000 F_ff1i23 = .TRUE. IF ( scalar_index_table( PARAM_ff1i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i24 , idomain ) = P_ff1i24 ELSE P_ff1i24 = scalar_index_table( PARAM_ff1i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i24 ) = .TRUE. scalar_dname_table( idomain, P_ff1i24 ) = 'ff1i24' scalar_desc_table( idomain, P_ff1i24 ) = 'cloud/rain bin 24' scalar_units_table( idomain, P_ff1i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i24 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i24 )%stream(2) = 2097152 ! 00200000 F_ff1i24 = .TRUE. IF ( scalar_index_table( PARAM_ff1i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i25 , idomain ) = P_ff1i25 ELSE P_ff1i25 = scalar_index_table( PARAM_ff1i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i25 ) = .TRUE. scalar_dname_table( idomain, P_ff1i25 ) = 'ff1i25' scalar_desc_table( idomain, P_ff1i25 ) = 'cloud/rain bin 25' scalar_units_table( idomain, P_ff1i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i25 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i25 )%stream(2) = 2097152 ! 00200000 F_ff1i25 = .TRUE. IF ( scalar_index_table( PARAM_ff1i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i26 , idomain ) = P_ff1i26 ELSE P_ff1i26 = scalar_index_table( PARAM_ff1i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i26 ) = .TRUE. scalar_dname_table( idomain, P_ff1i26 ) = 'ff1i26' scalar_desc_table( idomain, P_ff1i26 ) = 'cloud/rain bin 26' scalar_units_table( idomain, P_ff1i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i26 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i26 )%stream(2) = 2097152 ! 00200000 F_ff1i26 = .TRUE. IF ( scalar_index_table( PARAM_ff1i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i27 , idomain ) = P_ff1i27 ELSE P_ff1i27 = scalar_index_table( PARAM_ff1i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i27 ) = .TRUE. scalar_dname_table( idomain, P_ff1i27 ) = 'ff1i27' scalar_desc_table( idomain, P_ff1i27 ) = 'cloud/rain bin 27' scalar_units_table( idomain, P_ff1i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i27 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i27 )%stream(2) = 2097152 ! 00200000 F_ff1i27 = .TRUE. IF ( scalar_index_table( PARAM_ff1i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i28 , idomain ) = P_ff1i28 ELSE P_ff1i28 = scalar_index_table( PARAM_ff1i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i28 ) = .TRUE. scalar_dname_table( idomain, P_ff1i28 ) = 'ff1i28' scalar_desc_table( idomain, P_ff1i28 ) = 'cloud/rain bin 28' scalar_units_table( idomain, P_ff1i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i28 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i28 )%stream(2) = 2097152 ! 00200000 F_ff1i28 = .TRUE. IF ( scalar_index_table( PARAM_ff1i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i29 , idomain ) = P_ff1i29 ELSE P_ff1i29 = scalar_index_table( PARAM_ff1i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i29 ) = .TRUE. scalar_dname_table( idomain, P_ff1i29 ) = 'ff1i29' scalar_desc_table( idomain, P_ff1i29 ) = 'cloud/rain bin 29' scalar_units_table( idomain, P_ff1i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i29 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i29 )%stream(2) = 2097152 ! 00200000 F_ff1i29 = .TRUE. IF ( scalar_index_table( PARAM_ff1i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i30 , idomain ) = P_ff1i30 ELSE P_ff1i30 = scalar_index_table( PARAM_ff1i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i30 ) = .TRUE. scalar_dname_table( idomain, P_ff1i30 ) = 'ff1i30' scalar_desc_table( idomain, P_ff1i30 ) = 'cloud/rain bin 30' scalar_units_table( idomain, P_ff1i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i30 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i30 )%stream(2) = 2097152 ! 00200000 F_ff1i30 = .TRUE. IF ( scalar_index_table( PARAM_ff1i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i31 , idomain ) = P_ff1i31 ELSE P_ff1i31 = scalar_index_table( PARAM_ff1i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i31 ) = .TRUE. scalar_dname_table( idomain, P_ff1i31 ) = 'ff1i31' scalar_desc_table( idomain, P_ff1i31 ) = 'cloud/rain bin 31' scalar_units_table( idomain, P_ff1i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i31 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i31 )%stream(2) = 2097152 ! 00200000 F_ff1i31 = .TRUE. IF ( scalar_index_table( PARAM_ff1i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i32 , idomain ) = P_ff1i32 ELSE P_ff1i32 = scalar_index_table( PARAM_ff1i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i32 ) = .TRUE. scalar_dname_table( idomain, P_ff1i32 ) = 'ff1i32' scalar_desc_table( idomain, P_ff1i32 ) = 'cloud/rain bin 32' scalar_units_table( idomain, P_ff1i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i32 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i32 )%stream(2) = 2097152 ! 00200000 F_ff1i32 = .TRUE. IF ( scalar_index_table( PARAM_ff1i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i33 , idomain ) = P_ff1i33 ELSE P_ff1i33 = scalar_index_table( PARAM_ff1i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i33 ) = .TRUE. scalar_dname_table( idomain, P_ff1i33 ) = 'ff1i33' scalar_desc_table( idomain, P_ff1i33 ) = 'cloud/rain bin 33' scalar_units_table( idomain, P_ff1i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i33 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff1i33 )%stream(2) = 2097152 ! 00200000 F_ff1i33 = .TRUE. IF ( scalar_index_table( PARAM_ff5i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i01 , idomain ) = P_ff5i01 ELSE P_ff5i01 = scalar_index_table( PARAM_ff5i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i01 ) = .TRUE. scalar_dname_table( idomain, P_ff5i01 ) = 'ff5i01' scalar_desc_table( idomain, P_ff5i01 ) = 'snow bin 1' scalar_units_table( idomain, P_ff5i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i01 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i01 )%stream(2) = 2097152 ! 00200000 F_ff5i01 = .TRUE. IF ( scalar_index_table( PARAM_ff5i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i02 , idomain ) = P_ff5i02 ELSE P_ff5i02 = scalar_index_table( PARAM_ff5i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i02 ) = .TRUE. scalar_dname_table( idomain, P_ff5i02 ) = 'ff5i02' scalar_desc_table( idomain, P_ff5i02 ) = 'snow bin 2' scalar_units_table( idomain, P_ff5i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i02 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i02 )%stream(2) = 2097152 ! 00200000 F_ff5i02 = .TRUE. IF ( scalar_index_table( PARAM_ff5i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i03 , idomain ) = P_ff5i03 ELSE P_ff5i03 = scalar_index_table( PARAM_ff5i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i03 ) = .TRUE. scalar_dname_table( idomain, P_ff5i03 ) = 'ff5i03' scalar_desc_table( idomain, P_ff5i03 ) = 'snow bin 3' scalar_units_table( idomain, P_ff5i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i03 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i03 )%stream(2) = 2097152 ! 00200000 F_ff5i03 = .TRUE. IF ( scalar_index_table( PARAM_ff5i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i04 , idomain ) = P_ff5i04 ELSE P_ff5i04 = scalar_index_table( PARAM_ff5i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i04 ) = .TRUE. scalar_dname_table( idomain, P_ff5i04 ) = 'ff5i04' scalar_desc_table( idomain, P_ff5i04 ) = 'snow bin 4' scalar_units_table( idomain, P_ff5i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i04 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i04 )%stream(2) = 2097152 ! 00200000 F_ff5i04 = .TRUE. IF ( scalar_index_table( PARAM_ff5i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i05 , idomain ) = P_ff5i05 ELSE P_ff5i05 = scalar_index_table( PARAM_ff5i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i05 ) = .TRUE. scalar_dname_table( idomain, P_ff5i05 ) = 'ff5i05' scalar_desc_table( idomain, P_ff5i05 ) = 'snow bin 5' scalar_units_table( idomain, P_ff5i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i05 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i05 )%stream(2) = 2097152 ! 00200000 F_ff5i05 = .TRUE. IF ( scalar_index_table( PARAM_ff5i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i06 , idomain ) = P_ff5i06 ELSE P_ff5i06 = scalar_index_table( PARAM_ff5i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i06 ) = .TRUE. scalar_dname_table( idomain, P_ff5i06 ) = 'ff5i06' scalar_desc_table( idomain, P_ff5i06 ) = 'snow bin 6' scalar_units_table( idomain, P_ff5i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i06 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i06 )%stream(2) = 2097152 ! 00200000 F_ff5i06 = .TRUE. IF ( scalar_index_table( PARAM_ff5i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i07 , idomain ) = P_ff5i07 ELSE P_ff5i07 = scalar_index_table( PARAM_ff5i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i07 ) = .TRUE. scalar_dname_table( idomain, P_ff5i07 ) = 'ff5i07' scalar_desc_table( idomain, P_ff5i07 ) = 'snow bin 7' scalar_units_table( idomain, P_ff5i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i07 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i07 )%stream(2) = 2097152 ! 00200000 F_ff5i07 = .TRUE. IF ( scalar_index_table( PARAM_ff5i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i08 , idomain ) = P_ff5i08 ELSE P_ff5i08 = scalar_index_table( PARAM_ff5i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i08 ) = .TRUE. scalar_dname_table( idomain, P_ff5i08 ) = 'ff5i08' scalar_desc_table( idomain, P_ff5i08 ) = 'snow bin 8' scalar_units_table( idomain, P_ff5i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i08 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i08 )%stream(2) = 2097152 ! 00200000 F_ff5i08 = .TRUE. IF ( scalar_index_table( PARAM_ff5i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i09 , idomain ) = P_ff5i09 ELSE P_ff5i09 = scalar_index_table( PARAM_ff5i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i09 ) = .TRUE. scalar_dname_table( idomain, P_ff5i09 ) = 'ff5i09' scalar_desc_table( idomain, P_ff5i09 ) = 'snow bin 9' scalar_units_table( idomain, P_ff5i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i09 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i09 )%stream(2) = 2097152 ! 00200000 F_ff5i09 = .TRUE. IF ( scalar_index_table( PARAM_ff5i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i10 , idomain ) = P_ff5i10 ELSE P_ff5i10 = scalar_index_table( PARAM_ff5i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i10 ) = .TRUE. scalar_dname_table( idomain, P_ff5i10 ) = 'ff5i10' scalar_desc_table( idomain, P_ff5i10 ) = 'snow bin 10' scalar_units_table( idomain, P_ff5i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i10 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i10 )%stream(2) = 2097152 ! 00200000 F_ff5i10 = .TRUE. IF ( scalar_index_table( PARAM_ff5i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i11 , idomain ) = P_ff5i11 ELSE P_ff5i11 = scalar_index_table( PARAM_ff5i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i11 ) = .TRUE. scalar_dname_table( idomain, P_ff5i11 ) = 'ff5i11' scalar_desc_table( idomain, P_ff5i11 ) = 'snow bin 11' scalar_units_table( idomain, P_ff5i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i11 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i11 )%stream(2) = 2097152 ! 00200000 F_ff5i11 = .TRUE. IF ( scalar_index_table( PARAM_ff5i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i12 , idomain ) = P_ff5i12 ELSE P_ff5i12 = scalar_index_table( PARAM_ff5i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i12 ) = .TRUE. scalar_dname_table( idomain, P_ff5i12 ) = 'ff5i12' scalar_desc_table( idomain, P_ff5i12 ) = 'snow bin 12' scalar_units_table( idomain, P_ff5i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i12 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i12 )%stream(2) = 2097152 ! 00200000 F_ff5i12 = .TRUE. IF ( scalar_index_table( PARAM_ff5i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i13 , idomain ) = P_ff5i13 ELSE P_ff5i13 = scalar_index_table( PARAM_ff5i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i13 ) = .TRUE. scalar_dname_table( idomain, P_ff5i13 ) = 'ff5i13' scalar_desc_table( idomain, P_ff5i13 ) = 'snow bin 13' scalar_units_table( idomain, P_ff5i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i13 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i13 )%stream(2) = 2097152 ! 00200000 F_ff5i13 = .TRUE. IF ( scalar_index_table( PARAM_ff5i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i14 , idomain ) = P_ff5i14 ELSE P_ff5i14 = scalar_index_table( PARAM_ff5i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i14 ) = .TRUE. scalar_dname_table( idomain, P_ff5i14 ) = 'ff5i14' scalar_desc_table( idomain, P_ff5i14 ) = 'snow bin 14' scalar_units_table( idomain, P_ff5i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i14 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i14 )%stream(2) = 2097152 ! 00200000 F_ff5i14 = .TRUE. IF ( scalar_index_table( PARAM_ff5i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i15 , idomain ) = P_ff5i15 ELSE P_ff5i15 = scalar_index_table( PARAM_ff5i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i15 ) = .TRUE. scalar_dname_table( idomain, P_ff5i15 ) = 'ff5i15' scalar_desc_table( idomain, P_ff5i15 ) = 'snow bin 15' scalar_units_table( idomain, P_ff5i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i15 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i15 )%stream(2) = 2097152 ! 00200000 F_ff5i15 = .TRUE. IF ( scalar_index_table( PARAM_ff5i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i16 , idomain ) = P_ff5i16 ELSE P_ff5i16 = scalar_index_table( PARAM_ff5i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i16 ) = .TRUE. scalar_dname_table( idomain, P_ff5i16 ) = 'ff5i16' scalar_desc_table( idomain, P_ff5i16 ) = 'snow bin 16' scalar_units_table( idomain, P_ff5i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i16 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i16 )%stream(2) = 2097152 ! 00200000 F_ff5i16 = .TRUE. IF ( scalar_index_table( PARAM_ff5i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i17 , idomain ) = P_ff5i17 ELSE P_ff5i17 = scalar_index_table( PARAM_ff5i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i17 ) = .TRUE. scalar_dname_table( idomain, P_ff5i17 ) = 'ff5i17' scalar_desc_table( idomain, P_ff5i17 ) = 'snow bin 17' scalar_units_table( idomain, P_ff5i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i17 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i17 )%stream(2) = 2097152 ! 00200000 F_ff5i17 = .TRUE. IF ( scalar_index_table( PARAM_ff5i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i18 , idomain ) = P_ff5i18 ELSE P_ff5i18 = scalar_index_table( PARAM_ff5i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i18 ) = .TRUE. scalar_dname_table( idomain, P_ff5i18 ) = 'ff5i18' scalar_desc_table( idomain, P_ff5i18 ) = 'snow bin 18' scalar_units_table( idomain, P_ff5i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i18 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i18 )%stream(2) = 2097152 ! 00200000 F_ff5i18 = .TRUE. IF ( scalar_index_table( PARAM_ff5i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i19 , idomain ) = P_ff5i19 ELSE P_ff5i19 = scalar_index_table( PARAM_ff5i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i19 ) = .TRUE. scalar_dname_table( idomain, P_ff5i19 ) = 'ff5i19' scalar_desc_table( idomain, P_ff5i19 ) = 'snow bin 19' scalar_units_table( idomain, P_ff5i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i19 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i19 )%stream(2) = 2097152 ! 00200000 F_ff5i19 = .TRUE. IF ( scalar_index_table( PARAM_ff5i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i20 , idomain ) = P_ff5i20 ELSE P_ff5i20 = scalar_index_table( PARAM_ff5i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i20 ) = .TRUE. scalar_dname_table( idomain, P_ff5i20 ) = 'ff5i20' scalar_desc_table( idomain, P_ff5i20 ) = 'snow bin 20' scalar_units_table( idomain, P_ff5i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i20 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i20 )%stream(2) = 2097152 ! 00200000 F_ff5i20 = .TRUE. IF ( scalar_index_table( PARAM_ff5i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i21 , idomain ) = P_ff5i21 ELSE P_ff5i21 = scalar_index_table( PARAM_ff5i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i21 ) = .TRUE. scalar_dname_table( idomain, P_ff5i21 ) = 'ff5i21' scalar_desc_table( idomain, P_ff5i21 ) = 'snow bin 21' scalar_units_table( idomain, P_ff5i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i21 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i21 )%stream(2) = 2097152 ! 00200000 F_ff5i21 = .TRUE. IF ( scalar_index_table( PARAM_ff5i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i22 , idomain ) = P_ff5i22 ELSE P_ff5i22 = scalar_index_table( PARAM_ff5i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i22 ) = .TRUE. scalar_dname_table( idomain, P_ff5i22 ) = 'ff5i22' scalar_desc_table( idomain, P_ff5i22 ) = 'snow bin 22' scalar_units_table( idomain, P_ff5i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i22 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i22 )%stream(2) = 2097152 ! 00200000 F_ff5i22 = .TRUE. IF ( scalar_index_table( PARAM_ff5i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i23 , idomain ) = P_ff5i23 ELSE P_ff5i23 = scalar_index_table( PARAM_ff5i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i23 ) = .TRUE. scalar_dname_table( idomain, P_ff5i23 ) = 'ff5i23' scalar_desc_table( idomain, P_ff5i23 ) = 'snow bin 23' scalar_units_table( idomain, P_ff5i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i23 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i23 )%stream(2) = 2097152 ! 00200000 F_ff5i23 = .TRUE. IF ( scalar_index_table( PARAM_ff5i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i24 , idomain ) = P_ff5i24 ELSE P_ff5i24 = scalar_index_table( PARAM_ff5i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i24 ) = .TRUE. scalar_dname_table( idomain, P_ff5i24 ) = 'ff5i24' scalar_desc_table( idomain, P_ff5i24 ) = 'snow bin 24' scalar_units_table( idomain, P_ff5i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i24 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i24 )%stream(2) = 2097152 ! 00200000 F_ff5i24 = .TRUE. IF ( scalar_index_table( PARAM_ff5i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i25 , idomain ) = P_ff5i25 ELSE P_ff5i25 = scalar_index_table( PARAM_ff5i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i25 ) = .TRUE. scalar_dname_table( idomain, P_ff5i25 ) = 'ff5i25' scalar_desc_table( idomain, P_ff5i25 ) = 'snow bin 25' scalar_units_table( idomain, P_ff5i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i25 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i25 )%stream(2) = 2097152 ! 00200000 F_ff5i25 = .TRUE. IF ( scalar_index_table( PARAM_ff5i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i26 , idomain ) = P_ff5i26 ELSE P_ff5i26 = scalar_index_table( PARAM_ff5i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i26 ) = .TRUE. scalar_dname_table( idomain, P_ff5i26 ) = 'ff5i26' scalar_desc_table( idomain, P_ff5i26 ) = 'snow bin 26' scalar_units_table( idomain, P_ff5i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i26 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i26 )%stream(2) = 2097152 ! 00200000 F_ff5i26 = .TRUE. IF ( scalar_index_table( PARAM_ff5i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i27 , idomain ) = P_ff5i27 ELSE P_ff5i27 = scalar_index_table( PARAM_ff5i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i27 ) = .TRUE. scalar_dname_table( idomain, P_ff5i27 ) = 'ff5i27' scalar_desc_table( idomain, P_ff5i27 ) = 'snow bin 27' scalar_units_table( idomain, P_ff5i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i27 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i27 )%stream(2) = 2097152 ! 00200000 F_ff5i27 = .TRUE. IF ( scalar_index_table( PARAM_ff5i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i28 , idomain ) = P_ff5i28 ELSE P_ff5i28 = scalar_index_table( PARAM_ff5i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i28 ) = .TRUE. scalar_dname_table( idomain, P_ff5i28 ) = 'ff5i28' scalar_desc_table( idomain, P_ff5i28 ) = 'snow bin 28' scalar_units_table( idomain, P_ff5i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i28 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i28 )%stream(2) = 2097152 ! 00200000 F_ff5i28 = .TRUE. IF ( scalar_index_table( PARAM_ff5i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i29 , idomain ) = P_ff5i29 ELSE P_ff5i29 = scalar_index_table( PARAM_ff5i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i29 ) = .TRUE. scalar_dname_table( idomain, P_ff5i29 ) = 'ff5i29' scalar_desc_table( idomain, P_ff5i29 ) = 'snow bin 29' scalar_units_table( idomain, P_ff5i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i29 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i29 )%stream(2) = 2097152 ! 00200000 F_ff5i29 = .TRUE. IF ( scalar_index_table( PARAM_ff5i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i30 , idomain ) = P_ff5i30 ELSE P_ff5i30 = scalar_index_table( PARAM_ff5i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i30 ) = .TRUE. scalar_dname_table( idomain, P_ff5i30 ) = 'ff5i30' scalar_desc_table( idomain, P_ff5i30 ) = 'snow bin 30' scalar_units_table( idomain, P_ff5i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i30 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i30 )%stream(2) = 2097152 ! 00200000 F_ff5i30 = .TRUE. IF ( scalar_index_table( PARAM_ff5i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i31 , idomain ) = P_ff5i31 ELSE P_ff5i31 = scalar_index_table( PARAM_ff5i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i31 ) = .TRUE. scalar_dname_table( idomain, P_ff5i31 ) = 'ff5i31' scalar_desc_table( idomain, P_ff5i31 ) = 'snow bin 31' scalar_units_table( idomain, P_ff5i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i31 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i31 )%stream(2) = 2097152 ! 00200000 F_ff5i31 = .TRUE. IF ( scalar_index_table( PARAM_ff5i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i32 , idomain ) = P_ff5i32 ELSE P_ff5i32 = scalar_index_table( PARAM_ff5i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i32 ) = .TRUE. scalar_dname_table( idomain, P_ff5i32 ) = 'ff5i32' scalar_desc_table( idomain, P_ff5i32 ) = 'snow bin 32' scalar_units_table( idomain, P_ff5i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i32 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i32 )%stream(2) = 2097152 ! 00200000 F_ff5i32 = .TRUE. IF ( scalar_index_table( PARAM_ff5i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i33 , idomain ) = P_ff5i33 ELSE P_ff5i33 = scalar_index_table( PARAM_ff5i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i33 ) = .TRUE. scalar_dname_table( idomain, P_ff5i33 ) = 'ff5i33' scalar_desc_table( idomain, P_ff5i33 ) = 'snow bin 33' scalar_units_table( idomain, P_ff5i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i33 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff5i33 )%stream(2) = 2097152 ! 00200000 F_ff5i33 = .TRUE. IF ( scalar_index_table( PARAM_ff6i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i01 , idomain ) = P_ff6i01 ELSE P_ff6i01 = scalar_index_table( PARAM_ff6i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i01 ) = .TRUE. scalar_dname_table( idomain, P_ff6i01 ) = 'ff6i01' scalar_desc_table( idomain, P_ff6i01 ) = 'graupel bin 1' scalar_units_table( idomain, P_ff6i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i01 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i01 )%stream(2) = 2097152 ! 00200000 F_ff6i01 = .TRUE. IF ( scalar_index_table( PARAM_ff6i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i02 , idomain ) = P_ff6i02 ELSE P_ff6i02 = scalar_index_table( PARAM_ff6i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i02 ) = .TRUE. scalar_dname_table( idomain, P_ff6i02 ) = 'ff6i02' scalar_desc_table( idomain, P_ff6i02 ) = 'graupel bin 2' scalar_units_table( idomain, P_ff6i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i02 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i02 )%stream(2) = 2097152 ! 00200000 F_ff6i02 = .TRUE. IF ( scalar_index_table( PARAM_ff6i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i03 , idomain ) = P_ff6i03 ELSE P_ff6i03 = scalar_index_table( PARAM_ff6i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i03 ) = .TRUE. scalar_dname_table( idomain, P_ff6i03 ) = 'ff6i03' scalar_desc_table( idomain, P_ff6i03 ) = 'graupel bin 3' scalar_units_table( idomain, P_ff6i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i03 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i03 )%stream(2) = 2097152 ! 00200000 F_ff6i03 = .TRUE. IF ( scalar_index_table( PARAM_ff6i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i04 , idomain ) = P_ff6i04 ELSE P_ff6i04 = scalar_index_table( PARAM_ff6i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i04 ) = .TRUE. scalar_dname_table( idomain, P_ff6i04 ) = 'ff6i04' scalar_desc_table( idomain, P_ff6i04 ) = 'graupel bin 4' scalar_units_table( idomain, P_ff6i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i04 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i04 )%stream(2) = 2097152 ! 00200000 F_ff6i04 = .TRUE. IF ( scalar_index_table( PARAM_ff6i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i05 , idomain ) = P_ff6i05 ELSE P_ff6i05 = scalar_index_table( PARAM_ff6i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i05 ) = .TRUE. scalar_dname_table( idomain, P_ff6i05 ) = 'ff6i05' scalar_desc_table( idomain, P_ff6i05 ) = 'graupel bin 5' scalar_units_table( idomain, P_ff6i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i05 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i05 )%stream(2) = 2097152 ! 00200000 F_ff6i05 = .TRUE. IF ( scalar_index_table( PARAM_ff6i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i06 , idomain ) = P_ff6i06 ELSE P_ff6i06 = scalar_index_table( PARAM_ff6i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i06 ) = .TRUE. scalar_dname_table( idomain, P_ff6i06 ) = 'ff6i06' scalar_desc_table( idomain, P_ff6i06 ) = 'graupel bin 6' scalar_units_table( idomain, P_ff6i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i06 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i06 )%stream(2) = 2097152 ! 00200000 F_ff6i06 = .TRUE. IF ( scalar_index_table( PARAM_ff6i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i07 , idomain ) = P_ff6i07 ELSE P_ff6i07 = scalar_index_table( PARAM_ff6i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i07 ) = .TRUE. scalar_dname_table( idomain, P_ff6i07 ) = 'ff6i07' scalar_desc_table( idomain, P_ff6i07 ) = 'graupel bin 7' scalar_units_table( idomain, P_ff6i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i07 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i07 )%stream(2) = 2097152 ! 00200000 F_ff6i07 = .TRUE. IF ( scalar_index_table( PARAM_ff6i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i08 , idomain ) = P_ff6i08 ELSE P_ff6i08 = scalar_index_table( PARAM_ff6i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i08 ) = .TRUE. scalar_dname_table( idomain, P_ff6i08 ) = 'ff6i08' scalar_desc_table( idomain, P_ff6i08 ) = 'graupel bin 8' scalar_units_table( idomain, P_ff6i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i08 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i08 )%stream(2) = 2097152 ! 00200000 F_ff6i08 = .TRUE. IF ( scalar_index_table( PARAM_ff6i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i09 , idomain ) = P_ff6i09 ELSE P_ff6i09 = scalar_index_table( PARAM_ff6i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i09 ) = .TRUE. scalar_dname_table( idomain, P_ff6i09 ) = 'ff6i09' scalar_desc_table( idomain, P_ff6i09 ) = 'graupel bin 9' scalar_units_table( idomain, P_ff6i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i09 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i09 )%stream(2) = 2097152 ! 00200000 F_ff6i09 = .TRUE. IF ( scalar_index_table( PARAM_ff6i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i10 , idomain ) = P_ff6i10 ELSE P_ff6i10 = scalar_index_table( PARAM_ff6i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i10 ) = .TRUE. scalar_dname_table( idomain, P_ff6i10 ) = 'ff6i10' scalar_desc_table( idomain, P_ff6i10 ) = 'graupel bin 10' scalar_units_table( idomain, P_ff6i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i10 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i10 )%stream(2) = 2097152 ! 00200000 F_ff6i10 = .TRUE. IF ( scalar_index_table( PARAM_ff6i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i11 , idomain ) = P_ff6i11 ELSE P_ff6i11 = scalar_index_table( PARAM_ff6i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i11 ) = .TRUE. scalar_dname_table( idomain, P_ff6i11 ) = 'ff6i11' scalar_desc_table( idomain, P_ff6i11 ) = 'graupel bin 11' scalar_units_table( idomain, P_ff6i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i11 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i11 )%stream(2) = 2097152 ! 00200000 F_ff6i11 = .TRUE. IF ( scalar_index_table( PARAM_ff6i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i12 , idomain ) = P_ff6i12 ELSE P_ff6i12 = scalar_index_table( PARAM_ff6i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i12 ) = .TRUE. scalar_dname_table( idomain, P_ff6i12 ) = 'ff6i12' scalar_desc_table( idomain, P_ff6i12 ) = 'graupel bin 12' scalar_units_table( idomain, P_ff6i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i12 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i12 )%stream(2) = 2097152 ! 00200000 F_ff6i12 = .TRUE. IF ( scalar_index_table( PARAM_ff6i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i13 , idomain ) = P_ff6i13 ELSE P_ff6i13 = scalar_index_table( PARAM_ff6i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i13 ) = .TRUE. scalar_dname_table( idomain, P_ff6i13 ) = 'ff6i13' scalar_desc_table( idomain, P_ff6i13 ) = 'graupel bin 13' scalar_units_table( idomain, P_ff6i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i13 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i13 )%stream(2) = 2097152 ! 00200000 F_ff6i13 = .TRUE. IF ( scalar_index_table( PARAM_ff6i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i14 , idomain ) = P_ff6i14 ELSE P_ff6i14 = scalar_index_table( PARAM_ff6i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i14 ) = .TRUE. scalar_dname_table( idomain, P_ff6i14 ) = 'ff6i14' scalar_desc_table( idomain, P_ff6i14 ) = 'graupel bin 14' scalar_units_table( idomain, P_ff6i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i14 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i14 )%stream(2) = 2097152 ! 00200000 F_ff6i14 = .TRUE. IF ( scalar_index_table( PARAM_ff6i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i15 , idomain ) = P_ff6i15 ELSE P_ff6i15 = scalar_index_table( PARAM_ff6i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i15 ) = .TRUE. scalar_dname_table( idomain, P_ff6i15 ) = 'ff6i15' scalar_desc_table( idomain, P_ff6i15 ) = 'graupel bin 15' scalar_units_table( idomain, P_ff6i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i15 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i15 )%stream(2) = 2097152 ! 00200000 F_ff6i15 = .TRUE. IF ( scalar_index_table( PARAM_ff6i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i16 , idomain ) = P_ff6i16 ELSE P_ff6i16 = scalar_index_table( PARAM_ff6i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i16 ) = .TRUE. scalar_dname_table( idomain, P_ff6i16 ) = 'ff6i16' scalar_desc_table( idomain, P_ff6i16 ) = 'graupel bin 16' scalar_units_table( idomain, P_ff6i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i16 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i16 )%stream(2) = 2097152 ! 00200000 F_ff6i16 = .TRUE. IF ( scalar_index_table( PARAM_ff6i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i17 , idomain ) = P_ff6i17 ELSE P_ff6i17 = scalar_index_table( PARAM_ff6i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i17 ) = .TRUE. scalar_dname_table( idomain, P_ff6i17 ) = 'ff6i17' scalar_desc_table( idomain, P_ff6i17 ) = 'graupel bin 17' scalar_units_table( idomain, P_ff6i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i17 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i17 )%stream(2) = 2097152 ! 00200000 F_ff6i17 = .TRUE. IF ( scalar_index_table( PARAM_ff6i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i18 , idomain ) = P_ff6i18 ELSE P_ff6i18 = scalar_index_table( PARAM_ff6i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i18 ) = .TRUE. scalar_dname_table( idomain, P_ff6i18 ) = 'ff6i18' scalar_desc_table( idomain, P_ff6i18 ) = 'graupel bin 18' scalar_units_table( idomain, P_ff6i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i18 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i18 )%stream(2) = 2097152 ! 00200000 F_ff6i18 = .TRUE. IF ( scalar_index_table( PARAM_ff6i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i19 , idomain ) = P_ff6i19 ELSE P_ff6i19 = scalar_index_table( PARAM_ff6i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i19 ) = .TRUE. scalar_dname_table( idomain, P_ff6i19 ) = 'ff6i19' scalar_desc_table( idomain, P_ff6i19 ) = 'graupel bin 19' scalar_units_table( idomain, P_ff6i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i19 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i19 )%stream(2) = 2097152 ! 00200000 F_ff6i19 = .TRUE. IF ( scalar_index_table( PARAM_ff6i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i20 , idomain ) = P_ff6i20 ELSE P_ff6i20 = scalar_index_table( PARAM_ff6i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i20 ) = .TRUE. scalar_dname_table( idomain, P_ff6i20 ) = 'ff6i20' scalar_desc_table( idomain, P_ff6i20 ) = 'graupel bin 20' scalar_units_table( idomain, P_ff6i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i20 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i20 )%stream(2) = 2097152 ! 00200000 F_ff6i20 = .TRUE. IF ( scalar_index_table( PARAM_ff6i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i21 , idomain ) = P_ff6i21 ELSE P_ff6i21 = scalar_index_table( PARAM_ff6i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i21 ) = .TRUE. scalar_dname_table( idomain, P_ff6i21 ) = 'ff6i21' scalar_desc_table( idomain, P_ff6i21 ) = 'graupel bin 21' scalar_units_table( idomain, P_ff6i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i21 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i21 )%stream(2) = 2097152 ! 00200000 F_ff6i21 = .TRUE. IF ( scalar_index_table( PARAM_ff6i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i22 , idomain ) = P_ff6i22 ELSE P_ff6i22 = scalar_index_table( PARAM_ff6i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i22 ) = .TRUE. scalar_dname_table( idomain, P_ff6i22 ) = 'ff6i22' scalar_desc_table( idomain, P_ff6i22 ) = 'graupel bin 22' scalar_units_table( idomain, P_ff6i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i22 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i22 )%stream(2) = 2097152 ! 00200000 F_ff6i22 = .TRUE. IF ( scalar_index_table( PARAM_ff6i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i23 , idomain ) = P_ff6i23 ELSE P_ff6i23 = scalar_index_table( PARAM_ff6i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i23 ) = .TRUE. scalar_dname_table( idomain, P_ff6i23 ) = 'ff6i23' scalar_desc_table( idomain, P_ff6i23 ) = 'graupel bin 23' scalar_units_table( idomain, P_ff6i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i23 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i23 )%stream(2) = 2097152 ! 00200000 F_ff6i23 = .TRUE. IF ( scalar_index_table( PARAM_ff6i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i24 , idomain ) = P_ff6i24 ELSE P_ff6i24 = scalar_index_table( PARAM_ff6i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i24 ) = .TRUE. scalar_dname_table( idomain, P_ff6i24 ) = 'ff6i24' scalar_desc_table( idomain, P_ff6i24 ) = 'graupel bin 24' scalar_units_table( idomain, P_ff6i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i24 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i24 )%stream(2) = 2097152 ! 00200000 F_ff6i24 = .TRUE. IF ( scalar_index_table( PARAM_ff6i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i25 , idomain ) = P_ff6i25 ELSE P_ff6i25 = scalar_index_table( PARAM_ff6i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i25 ) = .TRUE. scalar_dname_table( idomain, P_ff6i25 ) = 'ff6i25' scalar_desc_table( idomain, P_ff6i25 ) = 'graupel bin 25' scalar_units_table( idomain, P_ff6i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i25 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i25 )%stream(2) = 2097152 ! 00200000 F_ff6i25 = .TRUE. IF ( scalar_index_table( PARAM_ff6i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i26 , idomain ) = P_ff6i26 ELSE P_ff6i26 = scalar_index_table( PARAM_ff6i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i26 ) = .TRUE. scalar_dname_table( idomain, P_ff6i26 ) = 'ff6i26' scalar_desc_table( idomain, P_ff6i26 ) = 'graupel bin 26' scalar_units_table( idomain, P_ff6i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i26 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i26 )%stream(2) = 2097152 ! 00200000 F_ff6i26 = .TRUE. IF ( scalar_index_table( PARAM_ff6i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i27 , idomain ) = P_ff6i27 ELSE P_ff6i27 = scalar_index_table( PARAM_ff6i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i27 ) = .TRUE. scalar_dname_table( idomain, P_ff6i27 ) = 'ff6i27' scalar_desc_table( idomain, P_ff6i27 ) = 'graupel bin 27' scalar_units_table( idomain, P_ff6i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i27 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i27 )%stream(2) = 2097152 ! 00200000 F_ff6i27 = .TRUE. IF ( scalar_index_table( PARAM_ff6i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i28 , idomain ) = P_ff6i28 ELSE P_ff6i28 = scalar_index_table( PARAM_ff6i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i28 ) = .TRUE. scalar_dname_table( idomain, P_ff6i28 ) = 'ff6i28' scalar_desc_table( idomain, P_ff6i28 ) = 'graupel bin 28' scalar_units_table( idomain, P_ff6i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i28 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i28 )%stream(2) = 2097152 ! 00200000 F_ff6i28 = .TRUE. IF ( scalar_index_table( PARAM_ff6i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i29 , idomain ) = P_ff6i29 ELSE P_ff6i29 = scalar_index_table( PARAM_ff6i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i29 ) = .TRUE. scalar_dname_table( idomain, P_ff6i29 ) = 'ff6i29' scalar_desc_table( idomain, P_ff6i29 ) = 'graupel bin 29' scalar_units_table( idomain, P_ff6i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i29 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i29 )%stream(2) = 2097152 ! 00200000 F_ff6i29 = .TRUE. IF ( scalar_index_table( PARAM_ff6i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i30 , idomain ) = P_ff6i30 ELSE P_ff6i30 = scalar_index_table( PARAM_ff6i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i30 ) = .TRUE. scalar_dname_table( idomain, P_ff6i30 ) = 'ff6i30' scalar_desc_table( idomain, P_ff6i30 ) = 'graupel bin 30' scalar_units_table( idomain, P_ff6i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i30 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i30 )%stream(2) = 2097152 ! 00200000 F_ff6i30 = .TRUE. IF ( scalar_index_table( PARAM_ff6i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i31 , idomain ) = P_ff6i31 ELSE P_ff6i31 = scalar_index_table( PARAM_ff6i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i31 ) = .TRUE. scalar_dname_table( idomain, P_ff6i31 ) = 'ff6i31' scalar_desc_table( idomain, P_ff6i31 ) = 'graupel bin 31' scalar_units_table( idomain, P_ff6i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i31 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i31 )%stream(2) = 2097152 ! 00200000 F_ff6i31 = .TRUE. IF ( scalar_index_table( PARAM_ff6i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i32 , idomain ) = P_ff6i32 ELSE P_ff6i32 = scalar_index_table( PARAM_ff6i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i32 ) = .TRUE. scalar_dname_table( idomain, P_ff6i32 ) = 'ff6i32' scalar_desc_table( idomain, P_ff6i32 ) = 'graupel bin 32' scalar_units_table( idomain, P_ff6i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i32 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i32 )%stream(2) = 2097152 ! 00200000 F_ff6i32 = .TRUE. IF ( scalar_index_table( PARAM_ff6i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i33 , idomain ) = P_ff6i33 ELSE P_ff6i33 = scalar_index_table( PARAM_ff6i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i33 ) = .TRUE. scalar_dname_table( idomain, P_ff6i33 ) = 'ff6i33' scalar_desc_table( idomain, P_ff6i33 ) = 'graupel bin 33' scalar_units_table( idomain, P_ff6i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i33 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff6i33 )%stream(2) = 2097152 ! 00200000 F_ff6i33 = .TRUE. IF ( scalar_index_table( PARAM_ff8i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i01 , idomain ) = P_ff8i01 ELSE P_ff8i01 = scalar_index_table( PARAM_ff8i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i01 ) = .TRUE. scalar_dname_table( idomain, P_ff8i01 ) = 'ff8i01' scalar_desc_table( idomain, P_ff8i01 ) = 'aerosols bin 1' scalar_units_table( idomain, P_ff8i01 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i01 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i01 )%stream(2) = 2097152 ! 00200000 F_ff8i01 = .TRUE. IF ( scalar_index_table( PARAM_ff8i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i02 , idomain ) = P_ff8i02 ELSE P_ff8i02 = scalar_index_table( PARAM_ff8i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i02 ) = .TRUE. scalar_dname_table( idomain, P_ff8i02 ) = 'ff8i02' scalar_desc_table( idomain, P_ff8i02 ) = 'aerosols bin 2' scalar_units_table( idomain, P_ff8i02 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i02 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i02 )%stream(2) = 2097152 ! 00200000 F_ff8i02 = .TRUE. IF ( scalar_index_table( PARAM_ff8i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i03 , idomain ) = P_ff8i03 ELSE P_ff8i03 = scalar_index_table( PARAM_ff8i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i03 ) = .TRUE. scalar_dname_table( idomain, P_ff8i03 ) = 'ff8i03' scalar_desc_table( idomain, P_ff8i03 ) = 'aerosols bin 3' scalar_units_table( idomain, P_ff8i03 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i03 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i03 )%stream(2) = 2097152 ! 00200000 F_ff8i03 = .TRUE. IF ( scalar_index_table( PARAM_ff8i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i04 , idomain ) = P_ff8i04 ELSE P_ff8i04 = scalar_index_table( PARAM_ff8i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i04 ) = .TRUE. scalar_dname_table( idomain, P_ff8i04 ) = 'ff8i04' scalar_desc_table( idomain, P_ff8i04 ) = 'aerosols bin 4' scalar_units_table( idomain, P_ff8i04 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i04 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i04 )%stream(2) = 2097152 ! 00200000 F_ff8i04 = .TRUE. IF ( scalar_index_table( PARAM_ff8i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i05 , idomain ) = P_ff8i05 ELSE P_ff8i05 = scalar_index_table( PARAM_ff8i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i05 ) = .TRUE. scalar_dname_table( idomain, P_ff8i05 ) = 'ff8i05' scalar_desc_table( idomain, P_ff8i05 ) = 'aerosols bin 5' scalar_units_table( idomain, P_ff8i05 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i05 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i05 )%stream(2) = 2097152 ! 00200000 F_ff8i05 = .TRUE. IF ( scalar_index_table( PARAM_ff8i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i06 , idomain ) = P_ff8i06 ELSE P_ff8i06 = scalar_index_table( PARAM_ff8i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i06 ) = .TRUE. scalar_dname_table( idomain, P_ff8i06 ) = 'ff8i06' scalar_desc_table( idomain, P_ff8i06 ) = 'aerosols bin 6' scalar_units_table( idomain, P_ff8i06 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i06 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i06 )%stream(2) = 2097152 ! 00200000 F_ff8i06 = .TRUE. IF ( scalar_index_table( PARAM_ff8i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i07 , idomain ) = P_ff8i07 ELSE P_ff8i07 = scalar_index_table( PARAM_ff8i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i07 ) = .TRUE. scalar_dname_table( idomain, P_ff8i07 ) = 'ff8i07' scalar_desc_table( idomain, P_ff8i07 ) = 'aerosols bin 7' scalar_units_table( idomain, P_ff8i07 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i07 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i07 )%stream(2) = 2097152 ! 00200000 F_ff8i07 = .TRUE. IF ( scalar_index_table( PARAM_ff8i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i08 , idomain ) = P_ff8i08 ELSE P_ff8i08 = scalar_index_table( PARAM_ff8i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i08 ) = .TRUE. scalar_dname_table( idomain, P_ff8i08 ) = 'ff8i08' scalar_desc_table( idomain, P_ff8i08 ) = 'aerosols bin 8' scalar_units_table( idomain, P_ff8i08 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i08 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i08 )%stream(2) = 2097152 ! 00200000 F_ff8i08 = .TRUE. IF ( scalar_index_table( PARAM_ff8i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i09 , idomain ) = P_ff8i09 ELSE P_ff8i09 = scalar_index_table( PARAM_ff8i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i09 ) = .TRUE. scalar_dname_table( idomain, P_ff8i09 ) = 'ff8i09' scalar_desc_table( idomain, P_ff8i09 ) = 'aerosols bin 9' scalar_units_table( idomain, P_ff8i09 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i09 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i09 )%stream(2) = 2097152 ! 00200000 F_ff8i09 = .TRUE. IF ( scalar_index_table( PARAM_ff8i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i10 , idomain ) = P_ff8i10 ELSE P_ff8i10 = scalar_index_table( PARAM_ff8i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i10 ) = .TRUE. scalar_dname_table( idomain, P_ff8i10 ) = 'ff8i10' scalar_desc_table( idomain, P_ff8i10 ) = 'aerosols bin 10' scalar_units_table( idomain, P_ff8i10 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i10 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i10 )%stream(2) = 2097152 ! 00200000 F_ff8i10 = .TRUE. IF ( scalar_index_table( PARAM_ff8i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i11 , idomain ) = P_ff8i11 ELSE P_ff8i11 = scalar_index_table( PARAM_ff8i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i11 ) = .TRUE. scalar_dname_table( idomain, P_ff8i11 ) = 'ff8i11' scalar_desc_table( idomain, P_ff8i11 ) = 'aerosols bin 11' scalar_units_table( idomain, P_ff8i11 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i11 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i11 )%stream(2) = 2097152 ! 00200000 F_ff8i11 = .TRUE. IF ( scalar_index_table( PARAM_ff8i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i12 , idomain ) = P_ff8i12 ELSE P_ff8i12 = scalar_index_table( PARAM_ff8i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i12 ) = .TRUE. scalar_dname_table( idomain, P_ff8i12 ) = 'ff8i12' scalar_desc_table( idomain, P_ff8i12 ) = 'aerosols bin 12' scalar_units_table( idomain, P_ff8i12 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i12 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i12 )%stream(2) = 2097152 ! 00200000 F_ff8i12 = .TRUE. IF ( scalar_index_table( PARAM_ff8i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i13 , idomain ) = P_ff8i13 ELSE P_ff8i13 = scalar_index_table( PARAM_ff8i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i13 ) = .TRUE. scalar_dname_table( idomain, P_ff8i13 ) = 'ff8i13' scalar_desc_table( idomain, P_ff8i13 ) = 'aerosols bin 13' scalar_units_table( idomain, P_ff8i13 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i13 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i13 )%stream(2) = 2097152 ! 00200000 F_ff8i13 = .TRUE. IF ( scalar_index_table( PARAM_ff8i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i14 , idomain ) = P_ff8i14 ELSE P_ff8i14 = scalar_index_table( PARAM_ff8i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i14 ) = .TRUE. scalar_dname_table( idomain, P_ff8i14 ) = 'ff8i14' scalar_desc_table( idomain, P_ff8i14 ) = 'aerosols bin 14' scalar_units_table( idomain, P_ff8i14 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i14 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i14 )%stream(2) = 2097152 ! 00200000 F_ff8i14 = .TRUE. IF ( scalar_index_table( PARAM_ff8i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i15 , idomain ) = P_ff8i15 ELSE P_ff8i15 = scalar_index_table( PARAM_ff8i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i15 ) = .TRUE. scalar_dname_table( idomain, P_ff8i15 ) = 'ff8i15' scalar_desc_table( idomain, P_ff8i15 ) = 'aerosols bin 15' scalar_units_table( idomain, P_ff8i15 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i15 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i15 )%stream(2) = 2097152 ! 00200000 F_ff8i15 = .TRUE. IF ( scalar_index_table( PARAM_ff8i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i16 , idomain ) = P_ff8i16 ELSE P_ff8i16 = scalar_index_table( PARAM_ff8i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i16 ) = .TRUE. scalar_dname_table( idomain, P_ff8i16 ) = 'ff8i16' scalar_desc_table( idomain, P_ff8i16 ) = 'aerosols bin 16' scalar_units_table( idomain, P_ff8i16 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i16 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i16 )%stream(2) = 2097152 ! 00200000 F_ff8i16 = .TRUE. IF ( scalar_index_table( PARAM_ff8i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i17 , idomain ) = P_ff8i17 ELSE P_ff8i17 = scalar_index_table( PARAM_ff8i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i17 ) = .TRUE. scalar_dname_table( idomain, P_ff8i17 ) = 'ff8i17' scalar_desc_table( idomain, P_ff8i17 ) = 'aerosols bin 17' scalar_units_table( idomain, P_ff8i17 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i17 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i17 )%stream(2) = 2097152 ! 00200000 F_ff8i17 = .TRUE. IF ( scalar_index_table( PARAM_ff8i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i18 , idomain ) = P_ff8i18 ELSE P_ff8i18 = scalar_index_table( PARAM_ff8i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i18 ) = .TRUE. scalar_dname_table( idomain, P_ff8i18 ) = 'ff8i18' scalar_desc_table( idomain, P_ff8i18 ) = 'aerosols bin 18' scalar_units_table( idomain, P_ff8i18 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i18 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i18 )%stream(2) = 2097152 ! 00200000 F_ff8i18 = .TRUE. IF ( scalar_index_table( PARAM_ff8i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i19 , idomain ) = P_ff8i19 ELSE P_ff8i19 = scalar_index_table( PARAM_ff8i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i19 ) = .TRUE. scalar_dname_table( idomain, P_ff8i19 ) = 'ff8i19' scalar_desc_table( idomain, P_ff8i19 ) = 'aerosols bin 19' scalar_units_table( idomain, P_ff8i19 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i19 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i19 )%stream(2) = 2097152 ! 00200000 F_ff8i19 = .TRUE. IF ( scalar_index_table( PARAM_ff8i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i20 , idomain ) = P_ff8i20 ELSE P_ff8i20 = scalar_index_table( PARAM_ff8i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i20 ) = .TRUE. scalar_dname_table( idomain, P_ff8i20 ) = 'ff8i20' scalar_desc_table( idomain, P_ff8i20 ) = 'aerosols bin 20' scalar_units_table( idomain, P_ff8i20 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i20 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i20 )%stream(2) = 2097152 ! 00200000 F_ff8i20 = .TRUE. IF ( scalar_index_table( PARAM_ff8i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i21 , idomain ) = P_ff8i21 ELSE P_ff8i21 = scalar_index_table( PARAM_ff8i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i21 ) = .TRUE. scalar_dname_table( idomain, P_ff8i21 ) = 'ff8i21' scalar_desc_table( idomain, P_ff8i21 ) = 'aerosols bin 21' scalar_units_table( idomain, P_ff8i21 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i21 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i21 )%stream(2) = 2097152 ! 00200000 F_ff8i21 = .TRUE. IF ( scalar_index_table( PARAM_ff8i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i22 , idomain ) = P_ff8i22 ELSE P_ff8i22 = scalar_index_table( PARAM_ff8i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i22 ) = .TRUE. scalar_dname_table( idomain, P_ff8i22 ) = 'ff8i22' scalar_desc_table( idomain, P_ff8i22 ) = 'aerosols bin 22' scalar_units_table( idomain, P_ff8i22 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i22 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i22 )%stream(2) = 2097152 ! 00200000 F_ff8i22 = .TRUE. IF ( scalar_index_table( PARAM_ff8i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i23 , idomain ) = P_ff8i23 ELSE P_ff8i23 = scalar_index_table( PARAM_ff8i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i23 ) = .TRUE. scalar_dname_table( idomain, P_ff8i23 ) = 'ff8i23' scalar_desc_table( idomain, P_ff8i23 ) = 'aerosols bin 23' scalar_units_table( idomain, P_ff8i23 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i23 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i23 )%stream(2) = 2097152 ! 00200000 F_ff8i23 = .TRUE. IF ( scalar_index_table( PARAM_ff8i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i24 , idomain ) = P_ff8i24 ELSE P_ff8i24 = scalar_index_table( PARAM_ff8i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i24 ) = .TRUE. scalar_dname_table( idomain, P_ff8i24 ) = 'ff8i24' scalar_desc_table( idomain, P_ff8i24 ) = 'aerosols bin 24' scalar_units_table( idomain, P_ff8i24 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i24 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i24 )%stream(2) = 2097152 ! 00200000 F_ff8i24 = .TRUE. IF ( scalar_index_table( PARAM_ff8i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i25 , idomain ) = P_ff8i25 ELSE P_ff8i25 = scalar_index_table( PARAM_ff8i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i25 ) = .TRUE. scalar_dname_table( idomain, P_ff8i25 ) = 'ff8i25' scalar_desc_table( idomain, P_ff8i25 ) = 'aerosols bin 25' scalar_units_table( idomain, P_ff8i25 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i25 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i25 )%stream(2) = 2097152 ! 00200000 F_ff8i25 = .TRUE. IF ( scalar_index_table( PARAM_ff8i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i26 , idomain ) = P_ff8i26 ELSE P_ff8i26 = scalar_index_table( PARAM_ff8i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i26 ) = .TRUE. scalar_dname_table( idomain, P_ff8i26 ) = 'ff8i26' scalar_desc_table( idomain, P_ff8i26 ) = 'aerosols bin 26' scalar_units_table( idomain, P_ff8i26 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i26 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i26 )%stream(2) = 2097152 ! 00200000 F_ff8i26 = .TRUE. IF ( scalar_index_table( PARAM_ff8i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i27 , idomain ) = P_ff8i27 ELSE P_ff8i27 = scalar_index_table( PARAM_ff8i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i27 ) = .TRUE. scalar_dname_table( idomain, P_ff8i27 ) = 'ff8i27' scalar_desc_table( idomain, P_ff8i27 ) = 'aerosols bin 27' scalar_units_table( idomain, P_ff8i27 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i27 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i27 )%stream(2) = 2097152 ! 00200000 F_ff8i27 = .TRUE. IF ( scalar_index_table( PARAM_ff8i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i28 , idomain ) = P_ff8i28 ELSE P_ff8i28 = scalar_index_table( PARAM_ff8i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i28 ) = .TRUE. scalar_dname_table( idomain, P_ff8i28 ) = 'ff8i28' scalar_desc_table( idomain, P_ff8i28 ) = 'aerosols bin 28' scalar_units_table( idomain, P_ff8i28 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i28 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i28 )%stream(2) = 2097152 ! 00200000 F_ff8i28 = .TRUE. IF ( scalar_index_table( PARAM_ff8i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i29 , idomain ) = P_ff8i29 ELSE P_ff8i29 = scalar_index_table( PARAM_ff8i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i29 ) = .TRUE. scalar_dname_table( idomain, P_ff8i29 ) = 'ff8i29' scalar_desc_table( idomain, P_ff8i29 ) = 'aerosols bin 29' scalar_units_table( idomain, P_ff8i29 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i29 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i29 )%stream(2) = 2097152 ! 00200000 F_ff8i29 = .TRUE. IF ( scalar_index_table( PARAM_ff8i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i30 , idomain ) = P_ff8i30 ELSE P_ff8i30 = scalar_index_table( PARAM_ff8i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i30 ) = .TRUE. scalar_dname_table( idomain, P_ff8i30 ) = 'ff8i30' scalar_desc_table( idomain, P_ff8i30 ) = 'aerosols bin 30' scalar_units_table( idomain, P_ff8i30 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i30 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i30 )%stream(2) = 2097152 ! 00200000 F_ff8i30 = .TRUE. IF ( scalar_index_table( PARAM_ff8i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i31 , idomain ) = P_ff8i31 ELSE P_ff8i31 = scalar_index_table( PARAM_ff8i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i31 ) = .TRUE. scalar_dname_table( idomain, P_ff8i31 ) = 'ff8i31' scalar_desc_table( idomain, P_ff8i31 ) = 'aerosols bin 31' scalar_units_table( idomain, P_ff8i31 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i31 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i31 )%stream(2) = 2097152 ! 00200000 F_ff8i31 = .TRUE. IF ( scalar_index_table( PARAM_ff8i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i32 , idomain ) = P_ff8i32 ELSE P_ff8i32 = scalar_index_table( PARAM_ff8i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i32 ) = .TRUE. scalar_dname_table( idomain, P_ff8i32 ) = 'ff8i32' scalar_desc_table( idomain, P_ff8i32 ) = 'aerosols bin 32' scalar_units_table( idomain, P_ff8i32 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i32 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i32 )%stream(2) = 2097152 ! 00200000 F_ff8i32 = .TRUE. IF ( scalar_index_table( PARAM_ff8i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i33 , idomain ) = P_ff8i33 ELSE P_ff8i33 = scalar_index_table( PARAM_ff8i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i33 ) = .TRUE. scalar_dname_table( idomain, P_ff8i33 ) = 'ff8i33' scalar_desc_table( idomain, P_ff8i33 ) = 'aerosols bin 33' scalar_units_table( idomain, P_ff8i33 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i33 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i33 )%stream(2) = 2097152 ! 00200000 F_ff8i33 = .TRUE. IF ( scalar_index_table( PARAM_ff2i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i01 , idomain ) = P_ff2i01 ELSE P_ff2i01 = scalar_index_table( PARAM_ff2i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i01 ) = .TRUE. scalar_dname_table( idomain, P_ff2i01 ) = 'ff2i01' scalar_desc_table( idomain, P_ff2i01 ) = 'ice/columns bin 1' scalar_units_table( idomain, P_ff2i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i01 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i01 )%stream(2) = 2097152 ! 00200000 F_ff2i01 = .TRUE. IF ( scalar_index_table( PARAM_ff2i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i02 , idomain ) = P_ff2i02 ELSE P_ff2i02 = scalar_index_table( PARAM_ff2i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i02 ) = .TRUE. scalar_dname_table( idomain, P_ff2i02 ) = 'ff2i02' scalar_desc_table( idomain, P_ff2i02 ) = 'ice/columns bin 2' scalar_units_table( idomain, P_ff2i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i02 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i02 )%stream(2) = 2097152 ! 00200000 F_ff2i02 = .TRUE. IF ( scalar_index_table( PARAM_ff2i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i03 , idomain ) = P_ff2i03 ELSE P_ff2i03 = scalar_index_table( PARAM_ff2i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i03 ) = .TRUE. scalar_dname_table( idomain, P_ff2i03 ) = 'ff2i03' scalar_desc_table( idomain, P_ff2i03 ) = 'ice/columns bin 3' scalar_units_table( idomain, P_ff2i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i03 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i03 )%stream(2) = 2097152 ! 00200000 F_ff2i03 = .TRUE. IF ( scalar_index_table( PARAM_ff2i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i04 , idomain ) = P_ff2i04 ELSE P_ff2i04 = scalar_index_table( PARAM_ff2i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i04 ) = .TRUE. scalar_dname_table( idomain, P_ff2i04 ) = 'ff2i04' scalar_desc_table( idomain, P_ff2i04 ) = 'ice/columns bin 4' scalar_units_table( idomain, P_ff2i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i04 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i04 )%stream(2) = 2097152 ! 00200000 F_ff2i04 = .TRUE. IF ( scalar_index_table( PARAM_ff2i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i05 , idomain ) = P_ff2i05 ELSE P_ff2i05 = scalar_index_table( PARAM_ff2i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i05 ) = .TRUE. scalar_dname_table( idomain, P_ff2i05 ) = 'ff2i05' scalar_desc_table( idomain, P_ff2i05 ) = 'ice/columns bin 5' scalar_units_table( idomain, P_ff2i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i05 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i05 )%stream(2) = 2097152 ! 00200000 F_ff2i05 = .TRUE. IF ( scalar_index_table( PARAM_ff2i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i06 , idomain ) = P_ff2i06 ELSE P_ff2i06 = scalar_index_table( PARAM_ff2i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i06 ) = .TRUE. scalar_dname_table( idomain, P_ff2i06 ) = 'ff2i06' scalar_desc_table( idomain, P_ff2i06 ) = 'ice/columns bin 6' scalar_units_table( idomain, P_ff2i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i06 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i06 )%stream(2) = 2097152 ! 00200000 F_ff2i06 = .TRUE. IF ( scalar_index_table( PARAM_ff2i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i07 , idomain ) = P_ff2i07 ELSE P_ff2i07 = scalar_index_table( PARAM_ff2i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i07 ) = .TRUE. scalar_dname_table( idomain, P_ff2i07 ) = 'ff2i07' scalar_desc_table( idomain, P_ff2i07 ) = 'ice/columns bin 7' scalar_units_table( idomain, P_ff2i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i07 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i07 )%stream(2) = 2097152 ! 00200000 F_ff2i07 = .TRUE. IF ( scalar_index_table( PARAM_ff2i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i08 , idomain ) = P_ff2i08 ELSE P_ff2i08 = scalar_index_table( PARAM_ff2i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i08 ) = .TRUE. scalar_dname_table( idomain, P_ff2i08 ) = 'ff2i08' scalar_desc_table( idomain, P_ff2i08 ) = 'ice/columns bin 8' scalar_units_table( idomain, P_ff2i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i08 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i08 )%stream(2) = 2097152 ! 00200000 F_ff2i08 = .TRUE. IF ( scalar_index_table( PARAM_ff2i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i09 , idomain ) = P_ff2i09 ELSE P_ff2i09 = scalar_index_table( PARAM_ff2i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i09 ) = .TRUE. scalar_dname_table( idomain, P_ff2i09 ) = 'ff2i09' scalar_desc_table( idomain, P_ff2i09 ) = 'ice/columns bin 9' scalar_units_table( idomain, P_ff2i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i09 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i09 )%stream(2) = 2097152 ! 00200000 F_ff2i09 = .TRUE. IF ( scalar_index_table( PARAM_ff2i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i10 , idomain ) = P_ff2i10 ELSE P_ff2i10 = scalar_index_table( PARAM_ff2i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i10 ) = .TRUE. scalar_dname_table( idomain, P_ff2i10 ) = 'ff2i10' scalar_desc_table( idomain, P_ff2i10 ) = 'ice/columns bin 10' scalar_units_table( idomain, P_ff2i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i10 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i10 )%stream(2) = 2097152 ! 00200000 F_ff2i10 = .TRUE. IF ( scalar_index_table( PARAM_ff2i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i11 , idomain ) = P_ff2i11 ELSE P_ff2i11 = scalar_index_table( PARAM_ff2i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i11 ) = .TRUE. scalar_dname_table( idomain, P_ff2i11 ) = 'ff2i11' scalar_desc_table( idomain, P_ff2i11 ) = 'ice/columns bin 11' scalar_units_table( idomain, P_ff2i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i11 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i11 )%stream(2) = 2097152 ! 00200000 F_ff2i11 = .TRUE. IF ( scalar_index_table( PARAM_ff2i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i12 , idomain ) = P_ff2i12 ELSE P_ff2i12 = scalar_index_table( PARAM_ff2i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i12 ) = .TRUE. scalar_dname_table( idomain, P_ff2i12 ) = 'ff2i12' scalar_desc_table( idomain, P_ff2i12 ) = 'ice/columns bin 12' scalar_units_table( idomain, P_ff2i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i12 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i12 )%stream(2) = 2097152 ! 00200000 F_ff2i12 = .TRUE. IF ( scalar_index_table( PARAM_ff2i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i13 , idomain ) = P_ff2i13 ELSE P_ff2i13 = scalar_index_table( PARAM_ff2i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i13 ) = .TRUE. scalar_dname_table( idomain, P_ff2i13 ) = 'ff2i13' scalar_desc_table( idomain, P_ff2i13 ) = 'ice/columns bin 13' scalar_units_table( idomain, P_ff2i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i13 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i13 )%stream(2) = 2097152 ! 00200000 F_ff2i13 = .TRUE. IF ( scalar_index_table( PARAM_ff2i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i14 , idomain ) = P_ff2i14 ELSE P_ff2i14 = scalar_index_table( PARAM_ff2i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i14 ) = .TRUE. scalar_dname_table( idomain, P_ff2i14 ) = 'ff2i14' scalar_desc_table( idomain, P_ff2i14 ) = 'ice/columns bin 14' scalar_units_table( idomain, P_ff2i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i14 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i14 )%stream(2) = 2097152 ! 00200000 F_ff2i14 = .TRUE. IF ( scalar_index_table( PARAM_ff2i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i15 , idomain ) = P_ff2i15 ELSE P_ff2i15 = scalar_index_table( PARAM_ff2i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i15 ) = .TRUE. scalar_dname_table( idomain, P_ff2i15 ) = 'ff2i15' scalar_desc_table( idomain, P_ff2i15 ) = 'ice/columns bin 15' scalar_units_table( idomain, P_ff2i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i15 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i15 )%stream(2) = 2097152 ! 00200000 F_ff2i15 = .TRUE. IF ( scalar_index_table( PARAM_ff2i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i16 , idomain ) = P_ff2i16 ELSE P_ff2i16 = scalar_index_table( PARAM_ff2i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i16 ) = .TRUE. scalar_dname_table( idomain, P_ff2i16 ) = 'ff2i16' scalar_desc_table( idomain, P_ff2i16 ) = 'ice/columns bin 16' scalar_units_table( idomain, P_ff2i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i16 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i16 )%stream(2) = 2097152 ! 00200000 F_ff2i16 = .TRUE. IF ( scalar_index_table( PARAM_ff2i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i17 , idomain ) = P_ff2i17 ELSE P_ff2i17 = scalar_index_table( PARAM_ff2i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i17 ) = .TRUE. scalar_dname_table( idomain, P_ff2i17 ) = 'ff2i17' scalar_desc_table( idomain, P_ff2i17 ) = 'ice/columns bin 17' scalar_units_table( idomain, P_ff2i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i17 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i17 )%stream(2) = 2097152 ! 00200000 F_ff2i17 = .TRUE. IF ( scalar_index_table( PARAM_ff2i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i18 , idomain ) = P_ff2i18 ELSE P_ff2i18 = scalar_index_table( PARAM_ff2i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i18 ) = .TRUE. scalar_dname_table( idomain, P_ff2i18 ) = 'ff2i18' scalar_desc_table( idomain, P_ff2i18 ) = 'ice/columns bin 18' scalar_units_table( idomain, P_ff2i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i18 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i18 )%stream(2) = 2097152 ! 00200000 F_ff2i18 = .TRUE. IF ( scalar_index_table( PARAM_ff2i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i19 , idomain ) = P_ff2i19 ELSE P_ff2i19 = scalar_index_table( PARAM_ff2i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i19 ) = .TRUE. scalar_dname_table( idomain, P_ff2i19 ) = 'ff2i19' scalar_desc_table( idomain, P_ff2i19 ) = 'ice/columns bin 19' scalar_units_table( idomain, P_ff2i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i19 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i19 )%stream(2) = 2097152 ! 00200000 F_ff2i19 = .TRUE. IF ( scalar_index_table( PARAM_ff2i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i20 , idomain ) = P_ff2i20 ELSE P_ff2i20 = scalar_index_table( PARAM_ff2i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i20 ) = .TRUE. scalar_dname_table( idomain, P_ff2i20 ) = 'ff2i20' scalar_desc_table( idomain, P_ff2i20 ) = 'ice/columns bin 20' scalar_units_table( idomain, P_ff2i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i20 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i20 )%stream(2) = 2097152 ! 00200000 F_ff2i20 = .TRUE. IF ( scalar_index_table( PARAM_ff2i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i21 , idomain ) = P_ff2i21 ELSE P_ff2i21 = scalar_index_table( PARAM_ff2i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i21 ) = .TRUE. scalar_dname_table( idomain, P_ff2i21 ) = 'ff2i21' scalar_desc_table( idomain, P_ff2i21 ) = 'ice/columns bin 21' scalar_units_table( idomain, P_ff2i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i21 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i21 )%stream(2) = 2097152 ! 00200000 F_ff2i21 = .TRUE. IF ( scalar_index_table( PARAM_ff2i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i22 , idomain ) = P_ff2i22 ELSE P_ff2i22 = scalar_index_table( PARAM_ff2i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i22 ) = .TRUE. scalar_dname_table( idomain, P_ff2i22 ) = 'ff2i22' scalar_desc_table( idomain, P_ff2i22 ) = 'ice/columns bin 22' scalar_units_table( idomain, P_ff2i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i22 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i22 )%stream(2) = 2097152 ! 00200000 F_ff2i22 = .TRUE. IF ( scalar_index_table( PARAM_ff2i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i23 , idomain ) = P_ff2i23 ELSE P_ff2i23 = scalar_index_table( PARAM_ff2i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i23 ) = .TRUE. scalar_dname_table( idomain, P_ff2i23 ) = 'ff2i23' scalar_desc_table( idomain, P_ff2i23 ) = 'ice/columns bin 23' scalar_units_table( idomain, P_ff2i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i23 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i23 )%stream(2) = 2097152 ! 00200000 F_ff2i23 = .TRUE. IF ( scalar_index_table( PARAM_ff2i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i24 , idomain ) = P_ff2i24 ELSE P_ff2i24 = scalar_index_table( PARAM_ff2i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i24 ) = .TRUE. scalar_dname_table( idomain, P_ff2i24 ) = 'ff2i24' scalar_desc_table( idomain, P_ff2i24 ) = 'ice/columns bin 24' scalar_units_table( idomain, P_ff2i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i24 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i24 )%stream(2) = 2097152 ! 00200000 F_ff2i24 = .TRUE. IF ( scalar_index_table( PARAM_ff2i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i25 , idomain ) = P_ff2i25 ELSE P_ff2i25 = scalar_index_table( PARAM_ff2i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i25 ) = .TRUE. scalar_dname_table( idomain, P_ff2i25 ) = 'ff2i25' scalar_desc_table( idomain, P_ff2i25 ) = 'ice/columns bin 25' scalar_units_table( idomain, P_ff2i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i25 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i25 )%stream(2) = 2097152 ! 00200000 F_ff2i25 = .TRUE. IF ( scalar_index_table( PARAM_ff2i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i26 , idomain ) = P_ff2i26 ELSE P_ff2i26 = scalar_index_table( PARAM_ff2i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i26 ) = .TRUE. scalar_dname_table( idomain, P_ff2i26 ) = 'ff2i26' scalar_desc_table( idomain, P_ff2i26 ) = 'ice/columns bin 26' scalar_units_table( idomain, P_ff2i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i26 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i26 )%stream(2) = 2097152 ! 00200000 F_ff2i26 = .TRUE. IF ( scalar_index_table( PARAM_ff2i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i27 , idomain ) = P_ff2i27 ELSE P_ff2i27 = scalar_index_table( PARAM_ff2i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i27 ) = .TRUE. scalar_dname_table( idomain, P_ff2i27 ) = 'ff2i27' scalar_desc_table( idomain, P_ff2i27 ) = 'ice/columns bin 27' scalar_units_table( idomain, P_ff2i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i27 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i27 )%stream(2) = 2097152 ! 00200000 F_ff2i27 = .TRUE. IF ( scalar_index_table( PARAM_ff2i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i28 , idomain ) = P_ff2i28 ELSE P_ff2i28 = scalar_index_table( PARAM_ff2i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i28 ) = .TRUE. scalar_dname_table( idomain, P_ff2i28 ) = 'ff2i28' scalar_desc_table( idomain, P_ff2i28 ) = 'ice/columns bin 28' scalar_units_table( idomain, P_ff2i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i28 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i28 )%stream(2) = 2097152 ! 00200000 F_ff2i28 = .TRUE. IF ( scalar_index_table( PARAM_ff2i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i29 , idomain ) = P_ff2i29 ELSE P_ff2i29 = scalar_index_table( PARAM_ff2i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i29 ) = .TRUE. scalar_dname_table( idomain, P_ff2i29 ) = 'ff2i29' scalar_desc_table( idomain, P_ff2i29 ) = 'ice/columns bin 29' scalar_units_table( idomain, P_ff2i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i29 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i29 )%stream(2) = 2097152 ! 00200000 F_ff2i29 = .TRUE. IF ( scalar_index_table( PARAM_ff2i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i30 , idomain ) = P_ff2i30 ELSE P_ff2i30 = scalar_index_table( PARAM_ff2i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i30 ) = .TRUE. scalar_dname_table( idomain, P_ff2i30 ) = 'ff2i30' scalar_desc_table( idomain, P_ff2i30 ) = 'ice/columns bin 30' scalar_units_table( idomain, P_ff2i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i30 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i30 )%stream(2) = 2097152 ! 00200000 F_ff2i30 = .TRUE. IF ( scalar_index_table( PARAM_ff2i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i31 , idomain ) = P_ff2i31 ELSE P_ff2i31 = scalar_index_table( PARAM_ff2i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i31 ) = .TRUE. scalar_dname_table( idomain, P_ff2i31 ) = 'ff2i31' scalar_desc_table( idomain, P_ff2i31 ) = 'ice/columns bin 31' scalar_units_table( idomain, P_ff2i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i31 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i31 )%stream(2) = 2097152 ! 00200000 F_ff2i31 = .TRUE. IF ( scalar_index_table( PARAM_ff2i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i32 , idomain ) = P_ff2i32 ELSE P_ff2i32 = scalar_index_table( PARAM_ff2i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i32 ) = .TRUE. scalar_dname_table( idomain, P_ff2i32 ) = 'ff2i32' scalar_desc_table( idomain, P_ff2i32 ) = 'ice/columns bin 32' scalar_units_table( idomain, P_ff2i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i32 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i32 )%stream(2) = 2097152 ! 00200000 F_ff2i32 = .TRUE. IF ( scalar_index_table( PARAM_ff2i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i33 , idomain ) = P_ff2i33 ELSE P_ff2i33 = scalar_index_table( PARAM_ff2i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i33 ) = .TRUE. scalar_dname_table( idomain, P_ff2i33 ) = 'ff2i33' scalar_desc_table( idomain, P_ff2i33 ) = 'ice/columns bin 33' scalar_units_table( idomain, P_ff2i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i33 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff2i33 )%stream(2) = 2097152 ! 00200000 F_ff2i33 = .TRUE. IF ( scalar_index_table( PARAM_ff3i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i01 , idomain ) = P_ff3i01 ELSE P_ff3i01 = scalar_index_table( PARAM_ff3i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i01 ) = .TRUE. scalar_dname_table( idomain, P_ff3i01 ) = 'ff3i01' scalar_desc_table( idomain, P_ff3i01 ) = 'ice/plates bin 1' scalar_units_table( idomain, P_ff3i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i01 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i01 )%stream(2) = 2097152 ! 00200000 F_ff3i01 = .TRUE. IF ( scalar_index_table( PARAM_ff3i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i02 , idomain ) = P_ff3i02 ELSE P_ff3i02 = scalar_index_table( PARAM_ff3i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i02 ) = .TRUE. scalar_dname_table( idomain, P_ff3i02 ) = 'ff3i02' scalar_desc_table( idomain, P_ff3i02 ) = 'ice/plates bin 2' scalar_units_table( idomain, P_ff3i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i02 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i02 )%stream(2) = 2097152 ! 00200000 F_ff3i02 = .TRUE. IF ( scalar_index_table( PARAM_ff3i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i03 , idomain ) = P_ff3i03 ELSE P_ff3i03 = scalar_index_table( PARAM_ff3i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i03 ) = .TRUE. scalar_dname_table( idomain, P_ff3i03 ) = 'ff3i03' scalar_desc_table( idomain, P_ff3i03 ) = 'ice/plates bin 3' scalar_units_table( idomain, P_ff3i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i03 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i03 )%stream(2) = 2097152 ! 00200000 F_ff3i03 = .TRUE. IF ( scalar_index_table( PARAM_ff3i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i04 , idomain ) = P_ff3i04 ELSE P_ff3i04 = scalar_index_table( PARAM_ff3i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i04 ) = .TRUE. scalar_dname_table( idomain, P_ff3i04 ) = 'ff3i04' scalar_desc_table( idomain, P_ff3i04 ) = 'ice/plates bin 4' scalar_units_table( idomain, P_ff3i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i04 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i04 )%stream(2) = 2097152 ! 00200000 F_ff3i04 = .TRUE. IF ( scalar_index_table( PARAM_ff3i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i05 , idomain ) = P_ff3i05 ELSE P_ff3i05 = scalar_index_table( PARAM_ff3i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i05 ) = .TRUE. scalar_dname_table( idomain, P_ff3i05 ) = 'ff3i05' scalar_desc_table( idomain, P_ff3i05 ) = 'ice/plates bin 5' scalar_units_table( idomain, P_ff3i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i05 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i05 )%stream(2) = 2097152 ! 00200000 F_ff3i05 = .TRUE. IF ( scalar_index_table( PARAM_ff3i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i06 , idomain ) = P_ff3i06 ELSE P_ff3i06 = scalar_index_table( PARAM_ff3i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i06 ) = .TRUE. scalar_dname_table( idomain, P_ff3i06 ) = 'ff3i06' scalar_desc_table( idomain, P_ff3i06 ) = 'ice/plates bin 6' scalar_units_table( idomain, P_ff3i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i06 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i06 )%stream(2) = 2097152 ! 00200000 F_ff3i06 = .TRUE. IF ( scalar_index_table( PARAM_ff3i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i07 , idomain ) = P_ff3i07 ELSE P_ff3i07 = scalar_index_table( PARAM_ff3i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i07 ) = .TRUE. scalar_dname_table( idomain, P_ff3i07 ) = 'ff3i07' scalar_desc_table( idomain, P_ff3i07 ) = 'ice/plates bin 7' scalar_units_table( idomain, P_ff3i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i07 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i07 )%stream(2) = 2097152 ! 00200000 F_ff3i07 = .TRUE. IF ( scalar_index_table( PARAM_ff3i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i08 , idomain ) = P_ff3i08 ELSE P_ff3i08 = scalar_index_table( PARAM_ff3i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i08 ) = .TRUE. scalar_dname_table( idomain, P_ff3i08 ) = 'ff3i08' scalar_desc_table( idomain, P_ff3i08 ) = 'ice/plates bin 8' scalar_units_table( idomain, P_ff3i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i08 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i08 )%stream(2) = 2097152 ! 00200000 F_ff3i08 = .TRUE. IF ( scalar_index_table( PARAM_ff3i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i09 , idomain ) = P_ff3i09 ELSE P_ff3i09 = scalar_index_table( PARAM_ff3i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i09 ) = .TRUE. scalar_dname_table( idomain, P_ff3i09 ) = 'ff3i09' scalar_desc_table( idomain, P_ff3i09 ) = 'ice/plates bin 9' scalar_units_table( idomain, P_ff3i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i09 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i09 )%stream(2) = 2097152 ! 00200000 F_ff3i09 = .TRUE. IF ( scalar_index_table( PARAM_ff3i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i10 , idomain ) = P_ff3i10 ELSE P_ff3i10 = scalar_index_table( PARAM_ff3i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i10 ) = .TRUE. scalar_dname_table( idomain, P_ff3i10 ) = 'ff3i10' scalar_desc_table( idomain, P_ff3i10 ) = 'ice/plates bin 10' scalar_units_table( idomain, P_ff3i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i10 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i10 )%stream(2) = 2097152 ! 00200000 F_ff3i10 = .TRUE. IF ( scalar_index_table( PARAM_ff3i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i11 , idomain ) = P_ff3i11 ELSE P_ff3i11 = scalar_index_table( PARAM_ff3i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i11 ) = .TRUE. scalar_dname_table( idomain, P_ff3i11 ) = 'ff3i11' scalar_desc_table( idomain, P_ff3i11 ) = 'ice/plates bin 11' scalar_units_table( idomain, P_ff3i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i11 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i11 )%stream(2) = 2097152 ! 00200000 F_ff3i11 = .TRUE. IF ( scalar_index_table( PARAM_ff3i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i12 , idomain ) = P_ff3i12 ELSE P_ff3i12 = scalar_index_table( PARAM_ff3i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i12 ) = .TRUE. scalar_dname_table( idomain, P_ff3i12 ) = 'ff3i12' scalar_desc_table( idomain, P_ff3i12 ) = 'ice/plates bin 12' scalar_units_table( idomain, P_ff3i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i12 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i12 )%stream(2) = 2097152 ! 00200000 F_ff3i12 = .TRUE. IF ( scalar_index_table( PARAM_ff3i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i13 , idomain ) = P_ff3i13 ELSE P_ff3i13 = scalar_index_table( PARAM_ff3i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i13 ) = .TRUE. scalar_dname_table( idomain, P_ff3i13 ) = 'ff3i13' scalar_desc_table( idomain, P_ff3i13 ) = 'ice/plates bin 13' scalar_units_table( idomain, P_ff3i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i13 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i13 )%stream(2) = 2097152 ! 00200000 F_ff3i13 = .TRUE. IF ( scalar_index_table( PARAM_ff3i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i14 , idomain ) = P_ff3i14 ELSE P_ff3i14 = scalar_index_table( PARAM_ff3i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i14 ) = .TRUE. scalar_dname_table( idomain, P_ff3i14 ) = 'ff3i14' scalar_desc_table( idomain, P_ff3i14 ) = 'ice/plates bin 14' scalar_units_table( idomain, P_ff3i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i14 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i14 )%stream(2) = 2097152 ! 00200000 F_ff3i14 = .TRUE. IF ( scalar_index_table( PARAM_ff3i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i15 , idomain ) = P_ff3i15 ELSE P_ff3i15 = scalar_index_table( PARAM_ff3i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i15 ) = .TRUE. scalar_dname_table( idomain, P_ff3i15 ) = 'ff3i15' scalar_desc_table( idomain, P_ff3i15 ) = 'ice/plates bin 15' scalar_units_table( idomain, P_ff3i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i15 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i15 )%stream(2) = 2097152 ! 00200000 F_ff3i15 = .TRUE. IF ( scalar_index_table( PARAM_ff3i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i16 , idomain ) = P_ff3i16 ELSE P_ff3i16 = scalar_index_table( PARAM_ff3i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i16 ) = .TRUE. scalar_dname_table( idomain, P_ff3i16 ) = 'ff3i16' scalar_desc_table( idomain, P_ff3i16 ) = 'ice/plates bin 16' scalar_units_table( idomain, P_ff3i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i16 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i16 )%stream(2) = 2097152 ! 00200000 F_ff3i16 = .TRUE. IF ( scalar_index_table( PARAM_ff3i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i17 , idomain ) = P_ff3i17 ELSE P_ff3i17 = scalar_index_table( PARAM_ff3i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i17 ) = .TRUE. scalar_dname_table( idomain, P_ff3i17 ) = 'ff3i17' scalar_desc_table( idomain, P_ff3i17 ) = 'ice/plates bin 17' scalar_units_table( idomain, P_ff3i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i17 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i17 )%stream(2) = 2097152 ! 00200000 F_ff3i17 = .TRUE. IF ( scalar_index_table( PARAM_ff3i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i18 , idomain ) = P_ff3i18 ELSE P_ff3i18 = scalar_index_table( PARAM_ff3i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i18 ) = .TRUE. scalar_dname_table( idomain, P_ff3i18 ) = 'ff3i18' scalar_desc_table( idomain, P_ff3i18 ) = 'ice/plates bin 18' scalar_units_table( idomain, P_ff3i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i18 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i18 )%stream(2) = 2097152 ! 00200000 F_ff3i18 = .TRUE. IF ( scalar_index_table( PARAM_ff3i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i19 , idomain ) = P_ff3i19 ELSE P_ff3i19 = scalar_index_table( PARAM_ff3i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i19 ) = .TRUE. scalar_dname_table( idomain, P_ff3i19 ) = 'ff3i19' scalar_desc_table( idomain, P_ff3i19 ) = 'ice/plates bin 19' scalar_units_table( idomain, P_ff3i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i19 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i19 )%stream(2) = 2097152 ! 00200000 F_ff3i19 = .TRUE. IF ( scalar_index_table( PARAM_ff3i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i20 , idomain ) = P_ff3i20 ELSE P_ff3i20 = scalar_index_table( PARAM_ff3i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i20 ) = .TRUE. scalar_dname_table( idomain, P_ff3i20 ) = 'ff3i20' scalar_desc_table( idomain, P_ff3i20 ) = 'ice/plates bin 20' scalar_units_table( idomain, P_ff3i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i20 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i20 )%stream(2) = 2097152 ! 00200000 F_ff3i20 = .TRUE. IF ( scalar_index_table( PARAM_ff3i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i21 , idomain ) = P_ff3i21 ELSE P_ff3i21 = scalar_index_table( PARAM_ff3i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i21 ) = .TRUE. scalar_dname_table( idomain, P_ff3i21 ) = 'ff3i21' scalar_desc_table( idomain, P_ff3i21 ) = 'ice/plates bin 21' scalar_units_table( idomain, P_ff3i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i21 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i21 )%stream(2) = 2097152 ! 00200000 F_ff3i21 = .TRUE. IF ( scalar_index_table( PARAM_ff3i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i22 , idomain ) = P_ff3i22 ELSE P_ff3i22 = scalar_index_table( PARAM_ff3i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i22 ) = .TRUE. scalar_dname_table( idomain, P_ff3i22 ) = 'ff3i22' scalar_desc_table( idomain, P_ff3i22 ) = 'ice/plates bin 22' scalar_units_table( idomain, P_ff3i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i22 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i22 )%stream(2) = 2097152 ! 00200000 F_ff3i22 = .TRUE. IF ( scalar_index_table( PARAM_ff3i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i23 , idomain ) = P_ff3i23 ELSE P_ff3i23 = scalar_index_table( PARAM_ff3i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i23 ) = .TRUE. scalar_dname_table( idomain, P_ff3i23 ) = 'ff3i23' scalar_desc_table( idomain, P_ff3i23 ) = 'ice/plates bin 23' scalar_units_table( idomain, P_ff3i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i23 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i23 )%stream(2) = 2097152 ! 00200000 F_ff3i23 = .TRUE. IF ( scalar_index_table( PARAM_ff3i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i24 , idomain ) = P_ff3i24 ELSE P_ff3i24 = scalar_index_table( PARAM_ff3i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i24 ) = .TRUE. scalar_dname_table( idomain, P_ff3i24 ) = 'ff3i24' scalar_desc_table( idomain, P_ff3i24 ) = 'ice/plates bin 24' scalar_units_table( idomain, P_ff3i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i24 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i24 )%stream(2) = 2097152 ! 00200000 F_ff3i24 = .TRUE. IF ( scalar_index_table( PARAM_ff3i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i25 , idomain ) = P_ff3i25 ELSE P_ff3i25 = scalar_index_table( PARAM_ff3i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i25 ) = .TRUE. scalar_dname_table( idomain, P_ff3i25 ) = 'ff3i25' scalar_desc_table( idomain, P_ff3i25 ) = 'ice/plates bin 25' scalar_units_table( idomain, P_ff3i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i25 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i25 )%stream(2) = 2097152 ! 00200000 F_ff3i25 = .TRUE. IF ( scalar_index_table( PARAM_ff3i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i26 , idomain ) = P_ff3i26 ELSE P_ff3i26 = scalar_index_table( PARAM_ff3i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i26 ) = .TRUE. scalar_dname_table( idomain, P_ff3i26 ) = 'ff3i26' scalar_desc_table( idomain, P_ff3i26 ) = 'ice/plates bin 26' scalar_units_table( idomain, P_ff3i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i26 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i26 )%stream(2) = 2097152 ! 00200000 F_ff3i26 = .TRUE. IF ( scalar_index_table( PARAM_ff3i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i27 , idomain ) = P_ff3i27 ELSE P_ff3i27 = scalar_index_table( PARAM_ff3i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i27 ) = .TRUE. scalar_dname_table( idomain, P_ff3i27 ) = 'ff3i27' scalar_desc_table( idomain, P_ff3i27 ) = 'ice/plates bin 27' scalar_units_table( idomain, P_ff3i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i27 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i27 )%stream(2) = 2097152 ! 00200000 F_ff3i27 = .TRUE. IF ( scalar_index_table( PARAM_ff3i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i28 , idomain ) = P_ff3i28 ELSE P_ff3i28 = scalar_index_table( PARAM_ff3i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i28 ) = .TRUE. scalar_dname_table( idomain, P_ff3i28 ) = 'ff3i28' scalar_desc_table( idomain, P_ff3i28 ) = 'ice/plates bin 28' scalar_units_table( idomain, P_ff3i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i28 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i28 )%stream(2) = 2097152 ! 00200000 F_ff3i28 = .TRUE. IF ( scalar_index_table( PARAM_ff3i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i29 , idomain ) = P_ff3i29 ELSE P_ff3i29 = scalar_index_table( PARAM_ff3i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i29 ) = .TRUE. scalar_dname_table( idomain, P_ff3i29 ) = 'ff3i29' scalar_desc_table( idomain, P_ff3i29 ) = 'ice/plates bin 29' scalar_units_table( idomain, P_ff3i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i29 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i29 )%stream(2) = 2097152 ! 00200000 F_ff3i29 = .TRUE. IF ( scalar_index_table( PARAM_ff3i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i30 , idomain ) = P_ff3i30 ELSE P_ff3i30 = scalar_index_table( PARAM_ff3i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i30 ) = .TRUE. scalar_dname_table( idomain, P_ff3i30 ) = 'ff3i30' scalar_desc_table( idomain, P_ff3i30 ) = 'ice/plates bin 30' scalar_units_table( idomain, P_ff3i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i30 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i30 )%stream(2) = 2097152 ! 00200000 F_ff3i30 = .TRUE. IF ( scalar_index_table( PARAM_ff3i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i31 , idomain ) = P_ff3i31 ELSE P_ff3i31 = scalar_index_table( PARAM_ff3i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i31 ) = .TRUE. scalar_dname_table( idomain, P_ff3i31 ) = 'ff3i31' scalar_desc_table( idomain, P_ff3i31 ) = 'ice/plates bin 31' scalar_units_table( idomain, P_ff3i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i31 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i31 )%stream(2) = 2097152 ! 00200000 F_ff3i31 = .TRUE. IF ( scalar_index_table( PARAM_ff3i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i32 , idomain ) = P_ff3i32 ELSE P_ff3i32 = scalar_index_table( PARAM_ff3i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i32 ) = .TRUE. scalar_dname_table( idomain, P_ff3i32 ) = 'ff3i32' scalar_desc_table( idomain, P_ff3i32 ) = 'ice/plates bin 32' scalar_units_table( idomain, P_ff3i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i32 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i32 )%stream(2) = 2097152 ! 00200000 F_ff3i32 = .TRUE. IF ( scalar_index_table( PARAM_ff3i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i33 , idomain ) = P_ff3i33 ELSE P_ff3i33 = scalar_index_table( PARAM_ff3i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i33 ) = .TRUE. scalar_dname_table( idomain, P_ff3i33 ) = 'ff3i33' scalar_desc_table( idomain, P_ff3i33 ) = 'ice/plates bin 33' scalar_units_table( idomain, P_ff3i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i33 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff3i33 )%stream(2) = 2097152 ! 00200000 F_ff3i33 = .TRUE. IF ( scalar_index_table( PARAM_ff4i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i01 , idomain ) = P_ff4i01 ELSE P_ff4i01 = scalar_index_table( PARAM_ff4i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i01 ) = .TRUE. scalar_dname_table( idomain, P_ff4i01 ) = 'ff4i01' scalar_desc_table( idomain, P_ff4i01 ) = 'ice/dendrites bin 1' scalar_units_table( idomain, P_ff4i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i01 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i01 )%stream(2) = 2097152 ! 00200000 F_ff4i01 = .TRUE. IF ( scalar_index_table( PARAM_ff4i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i02 , idomain ) = P_ff4i02 ELSE P_ff4i02 = scalar_index_table( PARAM_ff4i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i02 ) = .TRUE. scalar_dname_table( idomain, P_ff4i02 ) = 'ff4i02' scalar_desc_table( idomain, P_ff4i02 ) = 'ice/dendrites bin 2' scalar_units_table( idomain, P_ff4i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i02 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i02 )%stream(2) = 2097152 ! 00200000 F_ff4i02 = .TRUE. IF ( scalar_index_table( PARAM_ff4i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i03 , idomain ) = P_ff4i03 ELSE P_ff4i03 = scalar_index_table( PARAM_ff4i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i03 ) = .TRUE. scalar_dname_table( idomain, P_ff4i03 ) = 'ff4i03' scalar_desc_table( idomain, P_ff4i03 ) = 'ice/dendrites bin 3' scalar_units_table( idomain, P_ff4i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i03 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i03 )%stream(2) = 2097152 ! 00200000 F_ff4i03 = .TRUE. IF ( scalar_index_table( PARAM_ff4i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i04 , idomain ) = P_ff4i04 ELSE P_ff4i04 = scalar_index_table( PARAM_ff4i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i04 ) = .TRUE. scalar_dname_table( idomain, P_ff4i04 ) = 'ff4i04' scalar_desc_table( idomain, P_ff4i04 ) = 'ice/dendrites bin 4' scalar_units_table( idomain, P_ff4i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i04 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i04 )%stream(2) = 2097152 ! 00200000 F_ff4i04 = .TRUE. IF ( scalar_index_table( PARAM_ff4i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i05 , idomain ) = P_ff4i05 ELSE P_ff4i05 = scalar_index_table( PARAM_ff4i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i05 ) = .TRUE. scalar_dname_table( idomain, P_ff4i05 ) = 'ff4i05' scalar_desc_table( idomain, P_ff4i05 ) = 'ice/dendrites bin 5' scalar_units_table( idomain, P_ff4i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i05 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i05 )%stream(2) = 2097152 ! 00200000 F_ff4i05 = .TRUE. IF ( scalar_index_table( PARAM_ff4i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i06 , idomain ) = P_ff4i06 ELSE P_ff4i06 = scalar_index_table( PARAM_ff4i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i06 ) = .TRUE. scalar_dname_table( idomain, P_ff4i06 ) = 'ff4i06' scalar_desc_table( idomain, P_ff4i06 ) = 'ice/dendrites bin 6' scalar_units_table( idomain, P_ff4i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i06 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i06 )%stream(2) = 2097152 ! 00200000 F_ff4i06 = .TRUE. IF ( scalar_index_table( PARAM_ff4i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i07 , idomain ) = P_ff4i07 ELSE P_ff4i07 = scalar_index_table( PARAM_ff4i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i07 ) = .TRUE. scalar_dname_table( idomain, P_ff4i07 ) = 'ff4i07' scalar_desc_table( idomain, P_ff4i07 ) = 'ice/dendrites bin 7' scalar_units_table( idomain, P_ff4i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i07 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i07 )%stream(2) = 2097152 ! 00200000 F_ff4i07 = .TRUE. IF ( scalar_index_table( PARAM_ff4i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i08 , idomain ) = P_ff4i08 ELSE P_ff4i08 = scalar_index_table( PARAM_ff4i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i08 ) = .TRUE. scalar_dname_table( idomain, P_ff4i08 ) = 'ff4i08' scalar_desc_table( idomain, P_ff4i08 ) = 'ice/dendrites bin 8' scalar_units_table( idomain, P_ff4i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i08 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i08 )%stream(2) = 2097152 ! 00200000 F_ff4i08 = .TRUE. IF ( scalar_index_table( PARAM_ff4i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i09 , idomain ) = P_ff4i09 ELSE P_ff4i09 = scalar_index_table( PARAM_ff4i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i09 ) = .TRUE. scalar_dname_table( idomain, P_ff4i09 ) = 'ff4i09' scalar_desc_table( idomain, P_ff4i09 ) = 'ice/dendrites bin 9' scalar_units_table( idomain, P_ff4i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i09 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i09 )%stream(2) = 2097152 ! 00200000 F_ff4i09 = .TRUE. IF ( scalar_index_table( PARAM_ff4i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i10 , idomain ) = P_ff4i10 ELSE P_ff4i10 = scalar_index_table( PARAM_ff4i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i10 ) = .TRUE. scalar_dname_table( idomain, P_ff4i10 ) = 'ff4i10' scalar_desc_table( idomain, P_ff4i10 ) = 'ice/dendrites bin 10' scalar_units_table( idomain, P_ff4i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i10 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i10 )%stream(2) = 2097152 ! 00200000 F_ff4i10 = .TRUE. IF ( scalar_index_table( PARAM_ff4i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i11 , idomain ) = P_ff4i11 ELSE P_ff4i11 = scalar_index_table( PARAM_ff4i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i11 ) = .TRUE. scalar_dname_table( idomain, P_ff4i11 ) = 'ff4i11' scalar_desc_table( idomain, P_ff4i11 ) = 'ice/dendrites bin 11' scalar_units_table( idomain, P_ff4i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i11 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i11 )%stream(2) = 2097152 ! 00200000 F_ff4i11 = .TRUE. IF ( scalar_index_table( PARAM_ff4i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i12 , idomain ) = P_ff4i12 ELSE P_ff4i12 = scalar_index_table( PARAM_ff4i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i12 ) = .TRUE. scalar_dname_table( idomain, P_ff4i12 ) = 'ff4i12' scalar_desc_table( idomain, P_ff4i12 ) = 'ice/dendrites bin 12' scalar_units_table( idomain, P_ff4i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i12 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i12 )%stream(2) = 2097152 ! 00200000 F_ff4i12 = .TRUE. IF ( scalar_index_table( PARAM_ff4i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i13 , idomain ) = P_ff4i13 ELSE P_ff4i13 = scalar_index_table( PARAM_ff4i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i13 ) = .TRUE. scalar_dname_table( idomain, P_ff4i13 ) = 'ff4i13' scalar_desc_table( idomain, P_ff4i13 ) = 'ice/dendrites bin 13' scalar_units_table( idomain, P_ff4i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i13 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i13 )%stream(2) = 2097152 ! 00200000 F_ff4i13 = .TRUE. IF ( scalar_index_table( PARAM_ff4i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i14 , idomain ) = P_ff4i14 ELSE P_ff4i14 = scalar_index_table( PARAM_ff4i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i14 ) = .TRUE. scalar_dname_table( idomain, P_ff4i14 ) = 'ff4i14' scalar_desc_table( idomain, P_ff4i14 ) = 'ice/dendrites bin 14' scalar_units_table( idomain, P_ff4i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i14 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i14 )%stream(2) = 2097152 ! 00200000 F_ff4i14 = .TRUE. IF ( scalar_index_table( PARAM_ff4i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i15 , idomain ) = P_ff4i15 ELSE P_ff4i15 = scalar_index_table( PARAM_ff4i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i15 ) = .TRUE. scalar_dname_table( idomain, P_ff4i15 ) = 'ff4i15' scalar_desc_table( idomain, P_ff4i15 ) = 'ice/dendrites bin 15' scalar_units_table( idomain, P_ff4i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i15 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i15 )%stream(2) = 2097152 ! 00200000 F_ff4i15 = .TRUE. IF ( scalar_index_table( PARAM_ff4i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i16 , idomain ) = P_ff4i16 ELSE P_ff4i16 = scalar_index_table( PARAM_ff4i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i16 ) = .TRUE. scalar_dname_table( idomain, P_ff4i16 ) = 'ff4i16' scalar_desc_table( idomain, P_ff4i16 ) = 'ice/dendrites bin 16' scalar_units_table( idomain, P_ff4i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i16 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i16 )%stream(2) = 2097152 ! 00200000 F_ff4i16 = .TRUE. IF ( scalar_index_table( PARAM_ff4i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i17 , idomain ) = P_ff4i17 ELSE P_ff4i17 = scalar_index_table( PARAM_ff4i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i17 ) = .TRUE. scalar_dname_table( idomain, P_ff4i17 ) = 'ff4i17' scalar_desc_table( idomain, P_ff4i17 ) = 'ice/dendrites bin 17' scalar_units_table( idomain, P_ff4i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i17 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i17 )%stream(2) = 2097152 ! 00200000 F_ff4i17 = .TRUE. IF ( scalar_index_table( PARAM_ff4i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i18 , idomain ) = P_ff4i18 ELSE P_ff4i18 = scalar_index_table( PARAM_ff4i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i18 ) = .TRUE. scalar_dname_table( idomain, P_ff4i18 ) = 'ff4i18' scalar_desc_table( idomain, P_ff4i18 ) = 'ice/dendrites bin 18' scalar_units_table( idomain, P_ff4i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i18 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i18 )%stream(2) = 2097152 ! 00200000 F_ff4i18 = .TRUE. IF ( scalar_index_table( PARAM_ff4i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i19 , idomain ) = P_ff4i19 ELSE P_ff4i19 = scalar_index_table( PARAM_ff4i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i19 ) = .TRUE. scalar_dname_table( idomain, P_ff4i19 ) = 'ff4i19' scalar_desc_table( idomain, P_ff4i19 ) = 'ice/dendrites bin 19' scalar_units_table( idomain, P_ff4i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i19 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i19 )%stream(2) = 2097152 ! 00200000 F_ff4i19 = .TRUE. IF ( scalar_index_table( PARAM_ff4i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i20 , idomain ) = P_ff4i20 ELSE P_ff4i20 = scalar_index_table( PARAM_ff4i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i20 ) = .TRUE. scalar_dname_table( idomain, P_ff4i20 ) = 'ff4i20' scalar_desc_table( idomain, P_ff4i20 ) = 'ice/dendrites bin 20' scalar_units_table( idomain, P_ff4i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i20 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i20 )%stream(2) = 2097152 ! 00200000 F_ff4i20 = .TRUE. IF ( scalar_index_table( PARAM_ff4i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i21 , idomain ) = P_ff4i21 ELSE P_ff4i21 = scalar_index_table( PARAM_ff4i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i21 ) = .TRUE. scalar_dname_table( idomain, P_ff4i21 ) = 'ff4i21' scalar_desc_table( idomain, P_ff4i21 ) = 'ice/dendrites bin 21' scalar_units_table( idomain, P_ff4i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i21 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i21 )%stream(2) = 2097152 ! 00200000 F_ff4i21 = .TRUE. IF ( scalar_index_table( PARAM_ff4i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i22 , idomain ) = P_ff4i22 ELSE P_ff4i22 = scalar_index_table( PARAM_ff4i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i22 ) = .TRUE. scalar_dname_table( idomain, P_ff4i22 ) = 'ff4i22' scalar_desc_table( idomain, P_ff4i22 ) = 'ice/dendrites bin 22' scalar_units_table( idomain, P_ff4i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i22 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i22 )%stream(2) = 2097152 ! 00200000 F_ff4i22 = .TRUE. IF ( scalar_index_table( PARAM_ff4i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i23 , idomain ) = P_ff4i23 ELSE P_ff4i23 = scalar_index_table( PARAM_ff4i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i23 ) = .TRUE. scalar_dname_table( idomain, P_ff4i23 ) = 'ff4i23' scalar_desc_table( idomain, P_ff4i23 ) = 'ice/dendrites bin 23' scalar_units_table( idomain, P_ff4i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i23 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i23 )%stream(2) = 2097152 ! 00200000 F_ff4i23 = .TRUE. IF ( scalar_index_table( PARAM_ff4i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i24 , idomain ) = P_ff4i24 ELSE P_ff4i24 = scalar_index_table( PARAM_ff4i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i24 ) = .TRUE. scalar_dname_table( idomain, P_ff4i24 ) = 'ff4i24' scalar_desc_table( idomain, P_ff4i24 ) = 'ice/dendrites bin 24' scalar_units_table( idomain, P_ff4i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i24 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i24 )%stream(2) = 2097152 ! 00200000 F_ff4i24 = .TRUE. IF ( scalar_index_table( PARAM_ff4i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i25 , idomain ) = P_ff4i25 ELSE P_ff4i25 = scalar_index_table( PARAM_ff4i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i25 ) = .TRUE. scalar_dname_table( idomain, P_ff4i25 ) = 'ff4i25' scalar_desc_table( idomain, P_ff4i25 ) = 'ice/dendrites bin 25' scalar_units_table( idomain, P_ff4i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i25 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i25 )%stream(2) = 2097152 ! 00200000 F_ff4i25 = .TRUE. IF ( scalar_index_table( PARAM_ff4i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i26 , idomain ) = P_ff4i26 ELSE P_ff4i26 = scalar_index_table( PARAM_ff4i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i26 ) = .TRUE. scalar_dname_table( idomain, P_ff4i26 ) = 'ff4i26' scalar_desc_table( idomain, P_ff4i26 ) = 'ice/dendrites bin 26' scalar_units_table( idomain, P_ff4i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i26 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i26 )%stream(2) = 2097152 ! 00200000 F_ff4i26 = .TRUE. IF ( scalar_index_table( PARAM_ff4i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i27 , idomain ) = P_ff4i27 ELSE P_ff4i27 = scalar_index_table( PARAM_ff4i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i27 ) = .TRUE. scalar_dname_table( idomain, P_ff4i27 ) = 'ff4i27' scalar_desc_table( idomain, P_ff4i27 ) = 'ice/dendrites bin 27' scalar_units_table( idomain, P_ff4i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i27 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i27 )%stream(2) = 2097152 ! 00200000 F_ff4i27 = .TRUE. IF ( scalar_index_table( PARAM_ff4i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i28 , idomain ) = P_ff4i28 ELSE P_ff4i28 = scalar_index_table( PARAM_ff4i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i28 ) = .TRUE. scalar_dname_table( idomain, P_ff4i28 ) = 'ff4i28' scalar_desc_table( idomain, P_ff4i28 ) = 'ice/dendrites bin 28' scalar_units_table( idomain, P_ff4i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i28 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i28 )%stream(2) = 2097152 ! 00200000 F_ff4i28 = .TRUE. IF ( scalar_index_table( PARAM_ff4i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i29 , idomain ) = P_ff4i29 ELSE P_ff4i29 = scalar_index_table( PARAM_ff4i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i29 ) = .TRUE. scalar_dname_table( idomain, P_ff4i29 ) = 'ff4i29' scalar_desc_table( idomain, P_ff4i29 ) = 'ice/dendrites bin 29' scalar_units_table( idomain, P_ff4i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i29 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i29 )%stream(2) = 2097152 ! 00200000 F_ff4i29 = .TRUE. IF ( scalar_index_table( PARAM_ff4i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i30 , idomain ) = P_ff4i30 ELSE P_ff4i30 = scalar_index_table( PARAM_ff4i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i30 ) = .TRUE. scalar_dname_table( idomain, P_ff4i30 ) = 'ff4i30' scalar_desc_table( idomain, P_ff4i30 ) = 'ice/dendrites bin 30' scalar_units_table( idomain, P_ff4i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i30 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i30 )%stream(2) = 2097152 ! 00200000 F_ff4i30 = .TRUE. IF ( scalar_index_table( PARAM_ff4i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i31 , idomain ) = P_ff4i31 ELSE P_ff4i31 = scalar_index_table( PARAM_ff4i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i31 ) = .TRUE. scalar_dname_table( idomain, P_ff4i31 ) = 'ff4i31' scalar_desc_table( idomain, P_ff4i31 ) = 'ice/dendrites bin 31' scalar_units_table( idomain, P_ff4i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i31 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i31 )%stream(2) = 2097152 ! 00200000 F_ff4i31 = .TRUE. IF ( scalar_index_table( PARAM_ff4i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i32 , idomain ) = P_ff4i32 ELSE P_ff4i32 = scalar_index_table( PARAM_ff4i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i32 ) = .TRUE. scalar_dname_table( idomain, P_ff4i32 ) = 'ff4i32' scalar_desc_table( idomain, P_ff4i32 ) = 'ice/dendrites bin 32' scalar_units_table( idomain, P_ff4i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i32 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i32 )%stream(2) = 2097152 ! 00200000 F_ff4i32 = .TRUE. IF ( scalar_index_table( PARAM_ff4i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i33 , idomain ) = P_ff4i33 ELSE P_ff4i33 = scalar_index_table( PARAM_ff4i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i33 ) = .TRUE. scalar_dname_table( idomain, P_ff4i33 ) = 'ff4i33' scalar_desc_table( idomain, P_ff4i33 ) = 'ice/dendrites bin 33' scalar_units_table( idomain, P_ff4i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i33 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff4i33 )%stream(2) = 2097152 ! 00200000 F_ff4i33 = .TRUE. IF ( scalar_index_table( PARAM_ff7i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i01 , idomain ) = P_ff7i01 ELSE P_ff7i01 = scalar_index_table( PARAM_ff7i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i01 ) = .TRUE. scalar_dname_table( idomain, P_ff7i01 ) = 'ff7i01' scalar_desc_table( idomain, P_ff7i01 ) = 'hail bin 1' scalar_units_table( idomain, P_ff7i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i01 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i01 )%stream(2) = 2097152 ! 00200000 F_ff7i01 = .TRUE. IF ( scalar_index_table( PARAM_ff7i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i02 , idomain ) = P_ff7i02 ELSE P_ff7i02 = scalar_index_table( PARAM_ff7i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i02 ) = .TRUE. scalar_dname_table( idomain, P_ff7i02 ) = 'ff7i02' scalar_desc_table( idomain, P_ff7i02 ) = 'hail bin 2' scalar_units_table( idomain, P_ff7i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i02 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i02 )%stream(2) = 2097152 ! 00200000 F_ff7i02 = .TRUE. IF ( scalar_index_table( PARAM_ff7i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i03 , idomain ) = P_ff7i03 ELSE P_ff7i03 = scalar_index_table( PARAM_ff7i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i03 ) = .TRUE. scalar_dname_table( idomain, P_ff7i03 ) = 'ff7i03' scalar_desc_table( idomain, P_ff7i03 ) = 'hail bin 3' scalar_units_table( idomain, P_ff7i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i03 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i03 )%stream(2) = 2097152 ! 00200000 F_ff7i03 = .TRUE. IF ( scalar_index_table( PARAM_ff7i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i04 , idomain ) = P_ff7i04 ELSE P_ff7i04 = scalar_index_table( PARAM_ff7i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i04 ) = .TRUE. scalar_dname_table( idomain, P_ff7i04 ) = 'ff7i04' scalar_desc_table( idomain, P_ff7i04 ) = 'hail bin 4' scalar_units_table( idomain, P_ff7i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i04 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i04 )%stream(2) = 2097152 ! 00200000 F_ff7i04 = .TRUE. IF ( scalar_index_table( PARAM_ff7i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i05 , idomain ) = P_ff7i05 ELSE P_ff7i05 = scalar_index_table( PARAM_ff7i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i05 ) = .TRUE. scalar_dname_table( idomain, P_ff7i05 ) = 'ff7i05' scalar_desc_table( idomain, P_ff7i05 ) = 'hail bin 5' scalar_units_table( idomain, P_ff7i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i05 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i05 )%stream(2) = 2097152 ! 00200000 F_ff7i05 = .TRUE. IF ( scalar_index_table( PARAM_ff7i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i06 , idomain ) = P_ff7i06 ELSE P_ff7i06 = scalar_index_table( PARAM_ff7i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i06 ) = .TRUE. scalar_dname_table( idomain, P_ff7i06 ) = 'ff7i06' scalar_desc_table( idomain, P_ff7i06 ) = 'hail bin 6' scalar_units_table( idomain, P_ff7i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i06 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i06 )%stream(2) = 2097152 ! 00200000 F_ff7i06 = .TRUE. IF ( scalar_index_table( PARAM_ff7i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i07 , idomain ) = P_ff7i07 ELSE P_ff7i07 = scalar_index_table( PARAM_ff7i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i07 ) = .TRUE. scalar_dname_table( idomain, P_ff7i07 ) = 'ff7i07' scalar_desc_table( idomain, P_ff7i07 ) = 'hail bin 7' scalar_units_table( idomain, P_ff7i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i07 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i07 )%stream(2) = 2097152 ! 00200000 F_ff7i07 = .TRUE. IF ( scalar_index_table( PARAM_ff7i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i08 , idomain ) = P_ff7i08 ELSE P_ff7i08 = scalar_index_table( PARAM_ff7i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i08 ) = .TRUE. scalar_dname_table( idomain, P_ff7i08 ) = 'ff7i08' scalar_desc_table( idomain, P_ff7i08 ) = 'hail bin 8' scalar_units_table( idomain, P_ff7i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i08 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i08 )%stream(2) = 2097152 ! 00200000 F_ff7i08 = .TRUE. IF ( scalar_index_table( PARAM_ff7i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i09 , idomain ) = P_ff7i09 ELSE P_ff7i09 = scalar_index_table( PARAM_ff7i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i09 ) = .TRUE. scalar_dname_table( idomain, P_ff7i09 ) = 'ff7i09' scalar_desc_table( idomain, P_ff7i09 ) = 'hail bin 9' scalar_units_table( idomain, P_ff7i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i09 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i09 )%stream(2) = 2097152 ! 00200000 F_ff7i09 = .TRUE. IF ( scalar_index_table( PARAM_ff7i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i10 , idomain ) = P_ff7i10 ELSE P_ff7i10 = scalar_index_table( PARAM_ff7i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i10 ) = .TRUE. scalar_dname_table( idomain, P_ff7i10 ) = 'ff7i10' scalar_desc_table( idomain, P_ff7i10 ) = 'hail bin 10' scalar_units_table( idomain, P_ff7i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i10 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i10 )%stream(2) = 2097152 ! 00200000 F_ff7i10 = .TRUE. IF ( scalar_index_table( PARAM_ff7i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i11 , idomain ) = P_ff7i11 ELSE P_ff7i11 = scalar_index_table( PARAM_ff7i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i11 ) = .TRUE. scalar_dname_table( idomain, P_ff7i11 ) = 'ff7i11' scalar_desc_table( idomain, P_ff7i11 ) = 'hail bin 11' scalar_units_table( idomain, P_ff7i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i11 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i11 )%stream(2) = 2097152 ! 00200000 F_ff7i11 = .TRUE. IF ( scalar_index_table( PARAM_ff7i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i12 , idomain ) = P_ff7i12 ELSE P_ff7i12 = scalar_index_table( PARAM_ff7i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i12 ) = .TRUE. scalar_dname_table( idomain, P_ff7i12 ) = 'ff7i12' scalar_desc_table( idomain, P_ff7i12 ) = 'hail bin 12' scalar_units_table( idomain, P_ff7i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i12 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i12 )%stream(2) = 2097152 ! 00200000 F_ff7i12 = .TRUE. IF ( scalar_index_table( PARAM_ff7i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i13 , idomain ) = P_ff7i13 ELSE P_ff7i13 = scalar_index_table( PARAM_ff7i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i13 ) = .TRUE. scalar_dname_table( idomain, P_ff7i13 ) = 'ff7i13' scalar_desc_table( idomain, P_ff7i13 ) = 'hail bin 13' scalar_units_table( idomain, P_ff7i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i13 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i13 )%stream(2) = 2097152 ! 00200000 F_ff7i13 = .TRUE. IF ( scalar_index_table( PARAM_ff7i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i14 , idomain ) = P_ff7i14 ELSE P_ff7i14 = scalar_index_table( PARAM_ff7i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i14 ) = .TRUE. scalar_dname_table( idomain, P_ff7i14 ) = 'ff7i14' scalar_desc_table( idomain, P_ff7i14 ) = 'hail bin 14' scalar_units_table( idomain, P_ff7i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i14 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i14 )%stream(2) = 2097152 ! 00200000 F_ff7i14 = .TRUE. IF ( scalar_index_table( PARAM_ff7i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i15 , idomain ) = P_ff7i15 ELSE P_ff7i15 = scalar_index_table( PARAM_ff7i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i15 ) = .TRUE. scalar_dname_table( idomain, P_ff7i15 ) = 'ff7i15' scalar_desc_table( idomain, P_ff7i15 ) = 'hail bin 15' scalar_units_table( idomain, P_ff7i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i15 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i15 )%stream(2) = 2097152 ! 00200000 F_ff7i15 = .TRUE. IF ( scalar_index_table( PARAM_ff7i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i16 , idomain ) = P_ff7i16 ELSE P_ff7i16 = scalar_index_table( PARAM_ff7i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i16 ) = .TRUE. scalar_dname_table( idomain, P_ff7i16 ) = 'ff7i16' scalar_desc_table( idomain, P_ff7i16 ) = 'hail bin 16' scalar_units_table( idomain, P_ff7i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i16 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i16 )%stream(2) = 2097152 ! 00200000 F_ff7i16 = .TRUE. IF ( scalar_index_table( PARAM_ff7i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i17 , idomain ) = P_ff7i17 ELSE P_ff7i17 = scalar_index_table( PARAM_ff7i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i17 ) = .TRUE. scalar_dname_table( idomain, P_ff7i17 ) = 'ff7i17' scalar_desc_table( idomain, P_ff7i17 ) = 'hail bin 17' scalar_units_table( idomain, P_ff7i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i17 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i17 )%stream(2) = 2097152 ! 00200000 F_ff7i17 = .TRUE. IF ( scalar_index_table( PARAM_ff7i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i18 , idomain ) = P_ff7i18 ELSE P_ff7i18 = scalar_index_table( PARAM_ff7i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i18 ) = .TRUE. scalar_dname_table( idomain, P_ff7i18 ) = 'ff7i18' scalar_desc_table( idomain, P_ff7i18 ) = 'hail bin 18' scalar_units_table( idomain, P_ff7i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i18 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i18 )%stream(2) = 2097152 ! 00200000 F_ff7i18 = .TRUE. IF ( scalar_index_table( PARAM_ff7i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i19 , idomain ) = P_ff7i19 ELSE P_ff7i19 = scalar_index_table( PARAM_ff7i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i19 ) = .TRUE. scalar_dname_table( idomain, P_ff7i19 ) = 'ff7i19' scalar_desc_table( idomain, P_ff7i19 ) = 'hail bin 19' scalar_units_table( idomain, P_ff7i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i19 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i19 )%stream(2) = 2097152 ! 00200000 F_ff7i19 = .TRUE. IF ( scalar_index_table( PARAM_ff7i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i20 , idomain ) = P_ff7i20 ELSE P_ff7i20 = scalar_index_table( PARAM_ff7i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i20 ) = .TRUE. scalar_dname_table( idomain, P_ff7i20 ) = 'ff7i20' scalar_desc_table( idomain, P_ff7i20 ) = 'hail bin 20' scalar_units_table( idomain, P_ff7i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i20 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i20 )%stream(2) = 2097152 ! 00200000 F_ff7i20 = .TRUE. IF ( scalar_index_table( PARAM_ff7i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i21 , idomain ) = P_ff7i21 ELSE P_ff7i21 = scalar_index_table( PARAM_ff7i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i21 ) = .TRUE. scalar_dname_table( idomain, P_ff7i21 ) = 'ff7i21' scalar_desc_table( idomain, P_ff7i21 ) = 'hail bin 21' scalar_units_table( idomain, P_ff7i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i21 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i21 )%stream(2) = 2097152 ! 00200000 F_ff7i21 = .TRUE. IF ( scalar_index_table( PARAM_ff7i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i22 , idomain ) = P_ff7i22 ELSE P_ff7i22 = scalar_index_table( PARAM_ff7i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i22 ) = .TRUE. scalar_dname_table( idomain, P_ff7i22 ) = 'ff7i22' scalar_desc_table( idomain, P_ff7i22 ) = 'hail bin 22' scalar_units_table( idomain, P_ff7i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i22 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i22 )%stream(2) = 2097152 ! 00200000 F_ff7i22 = .TRUE. IF ( scalar_index_table( PARAM_ff7i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i23 , idomain ) = P_ff7i23 ELSE P_ff7i23 = scalar_index_table( PARAM_ff7i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i23 ) = .TRUE. scalar_dname_table( idomain, P_ff7i23 ) = 'ff7i23' scalar_desc_table( idomain, P_ff7i23 ) = 'hail bin 23' scalar_units_table( idomain, P_ff7i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i23 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i23 )%stream(2) = 2097152 ! 00200000 F_ff7i23 = .TRUE. IF ( scalar_index_table( PARAM_ff7i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i24 , idomain ) = P_ff7i24 ELSE P_ff7i24 = scalar_index_table( PARAM_ff7i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i24 ) = .TRUE. scalar_dname_table( idomain, P_ff7i24 ) = 'ff7i24' scalar_desc_table( idomain, P_ff7i24 ) = 'hail bin 24' scalar_units_table( idomain, P_ff7i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i24 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i24 )%stream(2) = 2097152 ! 00200000 F_ff7i24 = .TRUE. IF ( scalar_index_table( PARAM_ff7i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i25 , idomain ) = P_ff7i25 ELSE P_ff7i25 = scalar_index_table( PARAM_ff7i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i25 ) = .TRUE. scalar_dname_table( idomain, P_ff7i25 ) = 'ff7i25' scalar_desc_table( idomain, P_ff7i25 ) = 'hail bin 25' scalar_units_table( idomain, P_ff7i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i25 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i25 )%stream(2) = 2097152 ! 00200000 F_ff7i25 = .TRUE. IF ( scalar_index_table( PARAM_ff7i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i26 , idomain ) = P_ff7i26 ELSE P_ff7i26 = scalar_index_table( PARAM_ff7i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i26 ) = .TRUE. scalar_dname_table( idomain, P_ff7i26 ) = 'ff7i26' scalar_desc_table( idomain, P_ff7i26 ) = 'hail bin 26' scalar_units_table( idomain, P_ff7i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i26 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i26 )%stream(2) = 2097152 ! 00200000 F_ff7i26 = .TRUE. IF ( scalar_index_table( PARAM_ff7i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i27 , idomain ) = P_ff7i27 ELSE P_ff7i27 = scalar_index_table( PARAM_ff7i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i27 ) = .TRUE. scalar_dname_table( idomain, P_ff7i27 ) = 'ff7i27' scalar_desc_table( idomain, P_ff7i27 ) = 'hail bin 27' scalar_units_table( idomain, P_ff7i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i27 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i27 )%stream(2) = 2097152 ! 00200000 F_ff7i27 = .TRUE. IF ( scalar_index_table( PARAM_ff7i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i28 , idomain ) = P_ff7i28 ELSE P_ff7i28 = scalar_index_table( PARAM_ff7i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i28 ) = .TRUE. scalar_dname_table( idomain, P_ff7i28 ) = 'ff7i28' scalar_desc_table( idomain, P_ff7i28 ) = 'hail bin 28' scalar_units_table( idomain, P_ff7i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i28 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i28 )%stream(2) = 2097152 ! 00200000 F_ff7i28 = .TRUE. IF ( scalar_index_table( PARAM_ff7i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i29 , idomain ) = P_ff7i29 ELSE P_ff7i29 = scalar_index_table( PARAM_ff7i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i29 ) = .TRUE. scalar_dname_table( idomain, P_ff7i29 ) = 'ff7i29' scalar_desc_table( idomain, P_ff7i29 ) = 'hail bin 29' scalar_units_table( idomain, P_ff7i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i29 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i29 )%stream(2) = 2097152 ! 00200000 F_ff7i29 = .TRUE. IF ( scalar_index_table( PARAM_ff7i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i30 , idomain ) = P_ff7i30 ELSE P_ff7i30 = scalar_index_table( PARAM_ff7i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i30 ) = .TRUE. scalar_dname_table( idomain, P_ff7i30 ) = 'ff7i30' scalar_desc_table( idomain, P_ff7i30 ) = 'hail bin 30' scalar_units_table( idomain, P_ff7i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i30 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i30 )%stream(2) = 2097152 ! 00200000 F_ff7i30 = .TRUE. IF ( scalar_index_table( PARAM_ff7i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i31 , idomain ) = P_ff7i31 ELSE P_ff7i31 = scalar_index_table( PARAM_ff7i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i31 ) = .TRUE. scalar_dname_table( idomain, P_ff7i31 ) = 'ff7i31' scalar_desc_table( idomain, P_ff7i31 ) = 'hail bin 31' scalar_units_table( idomain, P_ff7i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i31 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i31 )%stream(2) = 2097152 ! 00200000 F_ff7i31 = .TRUE. IF ( scalar_index_table( PARAM_ff7i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i32 , idomain ) = P_ff7i32 ELSE P_ff7i32 = scalar_index_table( PARAM_ff7i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i32 ) = .TRUE. scalar_dname_table( idomain, P_ff7i32 ) = 'ff7i32' scalar_desc_table( idomain, P_ff7i32 ) = 'hail bin 32' scalar_units_table( idomain, P_ff7i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i32 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i32 )%stream(2) = 2097152 ! 00200000 F_ff7i32 = .TRUE. IF ( scalar_index_table( PARAM_ff7i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i33 , idomain ) = P_ff7i33 ELSE P_ff7i33 = scalar_index_table( PARAM_ff7i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i33 ) = .TRUE. scalar_dname_table( idomain, P_ff7i33 ) = 'ff7i33' scalar_desc_table( idomain, P_ff7i33 ) = 'hail bin 33' scalar_units_table( idomain, P_ff7i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i33 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff7i33 )%stream(2) = 2097152 ! 00200000 F_ff7i33 = .TRUE. IF ( scalar_index_table( PARAM_qnn , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnn = scalar_num_table(idomain) scalar_index_table( PARAM_qnn , idomain ) = P_qnn ELSE P_qnn = scalar_index_table( PARAM_qnn , idomain ) END IF scalar_boundary_table( idomain, P_qnn ) = .TRUE. scalar_dname_table( idomain, P_qnn ) = 'QNCCN' scalar_desc_table( idomain, P_qnn ) = 'CCN Number concentration' scalar_units_table( idomain, P_qnn ) = ' kg(-1)' scalar_streams_table( idomain, P_qnn )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnn )%stream(2) = 2097152 ! 00200000 F_qnn = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 ! 00200000 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 ! 00200000 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qnic , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnic = scalar_num_table(idomain) scalar_index_table( PARAM_qnic , idomain ) = P_qnic ELSE P_qnic = scalar_index_table( PARAM_qnic , idomain ) END IF scalar_boundary_table( idomain, P_qnic ) = .TRUE. scalar_dname_table( idomain, P_qnic ) = 'QNICEC' scalar_desc_table( idomain, P_qnic ) = 'Column Ice Number concentration' scalar_units_table( idomain, P_qnic ) = ' kg-1' scalar_streams_table( idomain, P_qnic )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnic )%stream(2) = 2097152 ! 00200000 F_qnic = .TRUE. IF ( scalar_index_table( PARAM_qnip , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnip = scalar_num_table(idomain) scalar_index_table( PARAM_qnip , idomain ) = P_qnip ELSE P_qnip = scalar_index_table( PARAM_qnip , idomain ) END IF scalar_boundary_table( idomain, P_qnip ) = .TRUE. scalar_dname_table( idomain, P_qnip ) = 'QNICEP' scalar_desc_table( idomain, P_qnip ) = 'Plate Ice Number concentration' scalar_units_table( idomain, P_qnip ) = ' kg-1' scalar_streams_table( idomain, P_qnip )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnip )%stream(2) = 2097152 ! 00200000 F_qnip = .TRUE. IF ( scalar_index_table( PARAM_qnid , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnid = scalar_num_table(idomain) scalar_index_table( PARAM_qnid , idomain ) = P_qnid ELSE P_qnid = scalar_index_table( PARAM_qnid , idomain ) END IF scalar_boundary_table( idomain, P_qnid ) = .TRUE. scalar_dname_table( idomain, P_qnid ) = 'QNICED' scalar_desc_table( idomain, P_qnid ) = 'Dendrite Ice Number concentration' scalar_units_table( idomain, P_qnid ) = ' kg-1' scalar_streams_table( idomain, P_qnid )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnid )%stream(2) = 2097152 ! 00200000 F_qnid = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 ! 00200000 F_qns = .TRUE. IF ( scalar_index_table( PARAM_qng , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qng = scalar_num_table(idomain) scalar_index_table( PARAM_qng , idomain ) = P_qng ELSE P_qng = scalar_index_table( PARAM_qng , idomain ) END IF scalar_boundary_table( idomain, P_qng ) = .TRUE. scalar_dname_table( idomain, P_qng ) = 'QNGRAUPEL' scalar_desc_table( idomain, P_qng ) = 'Graupel Number concentration' scalar_units_table( idomain, P_qng ) = ' kg(-1)' scalar_streams_table( idomain, P_qng )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qng )%stream(2) = 2097152 ! 00200000 F_qng = .TRUE. IF ( scalar_index_table( PARAM_qnh , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnh = scalar_num_table(idomain) scalar_index_table( PARAM_qnh , idomain ) = P_qnh ELSE P_qnh = scalar_index_table( PARAM_qnh , idomain ) END IF scalar_boundary_table( idomain, P_qnh ) = .TRUE. scalar_dname_table( idomain, P_qnh ) = 'QNHAIL' scalar_desc_table( idomain, P_qnh ) = 'Hail Number concentration' scalar_units_table( idomain, P_qnh ) = ' kg(-1)' scalar_streams_table( idomain, P_qnh )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnh )%stream(2) = 2097152 ! 00200000 F_qnh = .TRUE. IF ( scalar_index_table( PARAM_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_effr = scalar_num_table(idomain) scalar_index_table( PARAM_effr , idomain ) = P_effr ELSE P_effr = scalar_index_table( PARAM_effr , idomain ) END IF scalar_boundary_table( idomain, P_effr ) = .TRUE. scalar_dname_table( idomain, P_effr ) = 'EFF_RADIUS' scalar_desc_table( idomain, P_effr ) = 'Effective Radius' scalar_units_table( idomain, P_effr ) = 'Microns' scalar_streams_table( idomain, P_effr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_effr )%stream(2) = 2097152 ! 00200000 F_effr = .TRUE. IF ( scalar_index_table( PARAM_ice_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ice_effr = scalar_num_table(idomain) scalar_index_table( PARAM_ice_effr , idomain ) = P_ice_effr ELSE P_ice_effr = scalar_index_table( PARAM_ice_effr , idomain ) END IF scalar_boundary_table( idomain, P_ice_effr ) = .TRUE. scalar_dname_table( idomain, P_ice_effr ) = 'ICE_EFF_RADIUS' scalar_desc_table( idomain, P_ice_effr ) = 'Ice Effective Radius' scalar_units_table( idomain, P_ice_effr ) = 'Microns' scalar_streams_table( idomain, P_ice_effr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_ice_effr )%stream(2) = 2097152 ! 00200000 F_ice_effr = .TRUE. IF ( scalar_index_table( PARAM_tot_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_tot_effr = scalar_num_table(idomain) scalar_index_table( PARAM_tot_effr , idomain ) = P_tot_effr ELSE P_tot_effr = scalar_index_table( PARAM_tot_effr , idomain ) END IF scalar_boundary_table( idomain, P_tot_effr ) = .TRUE. scalar_dname_table( idomain, P_tot_effr ) = 'TOT_EFF_RADIUS' scalar_desc_table( idomain, P_tot_effr ) = 'Tot Effective Radius' scalar_units_table( idomain, P_tot_effr ) = 'Microns' scalar_streams_table( idomain, P_tot_effr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_tot_effr )%stream(2) = 2097152 ! 00200000 F_tot_effr = .TRUE. IF ( scalar_index_table( PARAM_qic_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qic_effr = scalar_num_table(idomain) scalar_index_table( PARAM_qic_effr , idomain ) = P_qic_effr ELSE P_qic_effr = scalar_index_table( PARAM_qic_effr , idomain ) END IF scalar_boundary_table( idomain, P_qic_effr ) = .TRUE. scalar_dname_table( idomain, P_qic_effr ) = 'QIC_EFF_RADIUS' scalar_desc_table( idomain, P_qic_effr ) = 'QIC Effective Radius' scalar_units_table( idomain, P_qic_effr ) = 'Microns' scalar_streams_table( idomain, P_qic_effr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qic_effr )%stream(2) = 2097152 ! 00200000 F_qic_effr = .TRUE. IF ( scalar_index_table( PARAM_qip_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qip_effr = scalar_num_table(idomain) scalar_index_table( PARAM_qip_effr , idomain ) = P_qip_effr ELSE P_qip_effr = scalar_index_table( PARAM_qip_effr , idomain ) END IF scalar_boundary_table( idomain, P_qip_effr ) = .TRUE. scalar_dname_table( idomain, P_qip_effr ) = 'QIP_EFF_RADIUS' scalar_desc_table( idomain, P_qip_effr ) = 'QIP Effective Radius' scalar_units_table( idomain, P_qip_effr ) = 'Microns' scalar_streams_table( idomain, P_qip_effr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qip_effr )%stream(2) = 2097152 ! 00200000 F_qip_effr = .TRUE. IF ( scalar_index_table( PARAM_qid_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qid_effr = scalar_num_table(idomain) scalar_index_table( PARAM_qid_effr , idomain ) = P_qid_effr ELSE P_qid_effr = scalar_index_table( PARAM_qid_effr , idomain ) END IF scalar_boundary_table( idomain, P_qid_effr ) = .TRUE. scalar_dname_table( idomain, P_qid_effr ) = 'QID_EFF_RADIUS' scalar_desc_table( idomain, P_qid_effr ) = 'QID Effective Radius' scalar_units_table( idomain, P_qid_effr ) = 'Microns' scalar_streams_table( idomain, P_qid_effr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qid_effr )%stream(2) = 2097152 ! 00200000 F_qid_effr = .TRUE. END IF IF (model_config_rec%p_lev_diags==0)THEN END IF IF (model_config_rec%p_lev_diags==1)THEN END IF IF (model_config_rec%z_lev_diags==0)THEN END IF IF (model_config_rec%z_lev_diags==1)THEN END IF IF (model_config_rec%afwa_diag_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_ptype_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_vil_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_radar_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_severe_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_icing_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_cloud_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_vis_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_therm_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_turb_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_buoy_opt(idomain)==1)THEN END IF IF (model_config_rec%mean_diag==0)THEN END IF IF (model_config_rec%mean_diag==1)THEN END IF IF (model_config_rec%diurnal_diag==0)THEN END IF IF (model_config_rec%diurnal_diag==1)THEN END IF IF (model_config_rec%elec_physics==0)THEN END IF IF (model_config_rec%elec_physics==1)THEN IF ( scalar_index_table( PARAM_scr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scr = scalar_num_table(idomain) scalar_index_table( PARAM_scr , idomain ) = P_scr ELSE P_scr = scalar_index_table( PARAM_scr , idomain ) END IF scalar_boundary_table( idomain, P_scr ) = .TRUE. scalar_dname_table( idomain, P_scr ) = 'SCR' scalar_desc_table( idomain, P_scr ) = 'Rain space charge mixing ratio' scalar_units_table( idomain, P_scr ) = ' C kg(-1)' scalar_streams_table( idomain, P_scr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_scr )%stream(2) = 2097152 ! 00200000 F_scr = .TRUE. IF ( scalar_index_table( PARAM_scw , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scw = scalar_num_table(idomain) scalar_index_table( PARAM_scw , idomain ) = P_scw ELSE P_scw = scalar_index_table( PARAM_scw , idomain ) END IF scalar_boundary_table( idomain, P_scw ) = .TRUE. scalar_dname_table( idomain, P_scw ) = 'SCW' scalar_desc_table( idomain, P_scw ) = 'cloud water space charge mixing ratio' scalar_units_table( idomain, P_scw ) = ' C kg(-1)' scalar_streams_table( idomain, P_scw )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_scw )%stream(2) = 2097152 ! 00200000 F_scw = .TRUE. IF ( scalar_index_table( PARAM_sci , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sci = scalar_num_table(idomain) scalar_index_table( PARAM_sci , idomain ) = P_sci ELSE P_sci = scalar_index_table( PARAM_sci , idomain ) END IF scalar_boundary_table( idomain, P_sci ) = .TRUE. scalar_dname_table( idomain, P_sci ) = 'SCI' scalar_desc_table( idomain, P_sci ) = 'cloud ice space charge mixing ratio' scalar_units_table( idomain, P_sci ) = ' C kg(-1)' scalar_streams_table( idomain, P_sci )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_sci )%stream(2) = 2097152 ! 00200000 F_sci = .TRUE. IF ( scalar_index_table( PARAM_scs , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scs = scalar_num_table(idomain) scalar_index_table( PARAM_scs , idomain ) = P_scs ELSE P_scs = scalar_index_table( PARAM_scs , idomain ) END IF scalar_boundary_table( idomain, P_scs ) = .TRUE. scalar_dname_table( idomain, P_scs ) = 'SCS' scalar_desc_table( idomain, P_scs ) = 'snow space charge mixing ratio' scalar_units_table( idomain, P_scs ) = ' C kg(-1)' scalar_streams_table( idomain, P_scs )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_scs )%stream(2) = 2097152 ! 00200000 F_scs = .TRUE. IF ( scalar_index_table( PARAM_sch , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sch = scalar_num_table(idomain) scalar_index_table( PARAM_sch , idomain ) = P_sch ELSE P_sch = scalar_index_table( PARAM_sch , idomain ) END IF scalar_boundary_table( idomain, P_sch ) = .TRUE. scalar_dname_table( idomain, P_sch ) = 'SCH' scalar_desc_table( idomain, P_sch ) = 'graupel water space charge mixing ratio' scalar_units_table( idomain, P_sch ) = ' C kg(-1)' scalar_streams_table( idomain, P_sch )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_sch )%stream(2) = 2097152 ! 00200000 F_sch = .TRUE. IF ( scalar_index_table( PARAM_schl , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_schl = scalar_num_table(idomain) scalar_index_table( PARAM_schl , idomain ) = P_schl ELSE P_schl = scalar_index_table( PARAM_schl , idomain ) END IF scalar_boundary_table( idomain, P_schl ) = .TRUE. scalar_dname_table( idomain, P_schl ) = 'SCHL' scalar_desc_table( idomain, P_schl ) = 'hail water space charge mixing ratio' scalar_units_table( idomain, P_schl ) = ' C kg(-1)' scalar_streams_table( idomain, P_schl )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_schl )%stream(2) = 2097152 ! 00200000 F_schl = .TRUE. IF ( scalar_index_table( PARAM_sciona , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sciona = scalar_num_table(idomain) scalar_index_table( PARAM_sciona , idomain ) = P_sciona ELSE P_sciona = scalar_index_table( PARAM_sciona , idomain ) END IF scalar_boundary_table( idomain, P_sciona ) = .TRUE. scalar_dname_table( idomain, P_sciona ) = 'SCIONA' scalar_desc_table( idomain, P_sciona ) = 'Passive net ion space charge' scalar_units_table( idomain, P_sciona ) = ' C kg(-1)' scalar_streams_table( idomain, P_sciona )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_sciona )%stream(2) = 2097152 ! 00200000 F_sciona = .TRUE. END IF IF (model_config_rec%elec_physics==2)THEN IF ( scalar_index_table( PARAM_scr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scr = scalar_num_table(idomain) scalar_index_table( PARAM_scr , idomain ) = P_scr ELSE P_scr = scalar_index_table( PARAM_scr , idomain ) END IF scalar_boundary_table( idomain, P_scr ) = .TRUE. scalar_dname_table( idomain, P_scr ) = 'SCR' scalar_desc_table( idomain, P_scr ) = 'Rain space charge mixing ratio' scalar_units_table( idomain, P_scr ) = ' C kg(-1)' scalar_streams_table( idomain, P_scr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_scr )%stream(2) = 2097152 ! 00200000 F_scr = .TRUE. IF ( scalar_index_table( PARAM_scw , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scw = scalar_num_table(idomain) scalar_index_table( PARAM_scw , idomain ) = P_scw ELSE P_scw = scalar_index_table( PARAM_scw , idomain ) END IF scalar_boundary_table( idomain, P_scw ) = .TRUE. scalar_dname_table( idomain, P_scw ) = 'SCW' scalar_desc_table( idomain, P_scw ) = 'cloud water space charge mixing ratio' scalar_units_table( idomain, P_scw ) = ' C kg(-1)' scalar_streams_table( idomain, P_scw )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_scw )%stream(2) = 2097152 ! 00200000 F_scw = .TRUE. IF ( scalar_index_table( PARAM_sci , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sci = scalar_num_table(idomain) scalar_index_table( PARAM_sci , idomain ) = P_sci ELSE P_sci = scalar_index_table( PARAM_sci , idomain ) END IF scalar_boundary_table( idomain, P_sci ) = .TRUE. scalar_dname_table( idomain, P_sci ) = 'SCI' scalar_desc_table( idomain, P_sci ) = 'cloud ice space charge mixing ratio' scalar_units_table( idomain, P_sci ) = ' C kg(-1)' scalar_streams_table( idomain, P_sci )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_sci )%stream(2) = 2097152 ! 00200000 F_sci = .TRUE. IF ( scalar_index_table( PARAM_scs , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scs = scalar_num_table(idomain) scalar_index_table( PARAM_scs , idomain ) = P_scs ELSE P_scs = scalar_index_table( PARAM_scs , idomain ) END IF scalar_boundary_table( idomain, P_scs ) = .TRUE. scalar_dname_table( idomain, P_scs ) = 'SCS' scalar_desc_table( idomain, P_scs ) = 'snow space charge mixing ratio' scalar_units_table( idomain, P_scs ) = ' C kg(-1)' scalar_streams_table( idomain, P_scs )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_scs )%stream(2) = 2097152 ! 00200000 F_scs = .TRUE. IF ( scalar_index_table( PARAM_sch , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sch = scalar_num_table(idomain) scalar_index_table( PARAM_sch , idomain ) = P_sch ELSE P_sch = scalar_index_table( PARAM_sch , idomain ) END IF scalar_boundary_table( idomain, P_sch ) = .TRUE. scalar_dname_table( idomain, P_sch ) = 'SCH' scalar_desc_table( idomain, P_sch ) = 'graupel water space charge mixing ratio' scalar_units_table( idomain, P_sch ) = ' C kg(-1)' scalar_streams_table( idomain, P_sch )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_sch )%stream(2) = 2097152 ! 00200000 F_sch = .TRUE. IF ( scalar_index_table( PARAM_schl , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_schl = scalar_num_table(idomain) scalar_index_table( PARAM_schl , idomain ) = P_schl ELSE P_schl = scalar_index_table( PARAM_schl , idomain ) END IF scalar_boundary_table( idomain, P_schl ) = .TRUE. scalar_dname_table( idomain, P_schl ) = 'SCHL' scalar_desc_table( idomain, P_schl ) = 'hail water space charge mixing ratio' scalar_units_table( idomain, P_schl ) = ' C kg(-1)' scalar_streams_table( idomain, P_schl )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_schl )%stream(2) = 2097152 ! 00200000 F_schl = .TRUE. IF ( scalar_index_table( PARAM_sciona , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sciona = scalar_num_table(idomain) scalar_index_table( PARAM_sciona , idomain ) = P_sciona ELSE P_sciona = scalar_index_table( PARAM_sciona , idomain ) END IF scalar_boundary_table( idomain, P_sciona ) = .TRUE. scalar_dname_table( idomain, P_sciona ) = 'SCIONA' scalar_desc_table( idomain, P_sciona ) = 'Passive net ion space charge' scalar_units_table( idomain, P_sciona ) = ' C kg(-1)' scalar_streams_table( idomain, P_sciona )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_sciona )%stream(2) = 2097152 ! 00200000 F_sciona = .TRUE. END IF IF (model_config_rec%elec_physics==3)THEN IF ( scalar_index_table( PARAM_scr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scr = scalar_num_table(idomain) scalar_index_table( PARAM_scr , idomain ) = P_scr ELSE P_scr = scalar_index_table( PARAM_scr , idomain ) END IF scalar_boundary_table( idomain, P_scr ) = .TRUE. scalar_dname_table( idomain, P_scr ) = 'SCR' scalar_desc_table( idomain, P_scr ) = 'Rain space charge mixing ratio' scalar_units_table( idomain, P_scr ) = ' C kg(-1)' scalar_streams_table( idomain, P_scr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_scr )%stream(2) = 2097152 ! 00200000 F_scr = .TRUE. IF ( scalar_index_table( PARAM_scw , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scw = scalar_num_table(idomain) scalar_index_table( PARAM_scw , idomain ) = P_scw ELSE P_scw = scalar_index_table( PARAM_scw , idomain ) END IF scalar_boundary_table( idomain, P_scw ) = .TRUE. scalar_dname_table( idomain, P_scw ) = 'SCW' scalar_desc_table( idomain, P_scw ) = 'cloud water space charge mixing ratio' scalar_units_table( idomain, P_scw ) = ' C kg(-1)' scalar_streams_table( idomain, P_scw )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_scw )%stream(2) = 2097152 ! 00200000 F_scw = .TRUE. IF ( scalar_index_table( PARAM_sci , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sci = scalar_num_table(idomain) scalar_index_table( PARAM_sci , idomain ) = P_sci ELSE P_sci = scalar_index_table( PARAM_sci , idomain ) END IF scalar_boundary_table( idomain, P_sci ) = .TRUE. scalar_dname_table( idomain, P_sci ) = 'SCI' scalar_desc_table( idomain, P_sci ) = 'cloud ice space charge mixing ratio' scalar_units_table( idomain, P_sci ) = ' C kg(-1)' scalar_streams_table( idomain, P_sci )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_sci )%stream(2) = 2097152 ! 00200000 F_sci = .TRUE. IF ( scalar_index_table( PARAM_scs , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scs = scalar_num_table(idomain) scalar_index_table( PARAM_scs , idomain ) = P_scs ELSE P_scs = scalar_index_table( PARAM_scs , idomain ) END IF scalar_boundary_table( idomain, P_scs ) = .TRUE. scalar_dname_table( idomain, P_scs ) = 'SCS' scalar_desc_table( idomain, P_scs ) = 'snow space charge mixing ratio' scalar_units_table( idomain, P_scs ) = ' C kg(-1)' scalar_streams_table( idomain, P_scs )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_scs )%stream(2) = 2097152 ! 00200000 F_scs = .TRUE. IF ( scalar_index_table( PARAM_sch , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sch = scalar_num_table(idomain) scalar_index_table( PARAM_sch , idomain ) = P_sch ELSE P_sch = scalar_index_table( PARAM_sch , idomain ) END IF scalar_boundary_table( idomain, P_sch ) = .TRUE. scalar_dname_table( idomain, P_sch ) = 'SCH' scalar_desc_table( idomain, P_sch ) = 'graupel water space charge mixing ratio' scalar_units_table( idomain, P_sch ) = ' C kg(-1)' scalar_streams_table( idomain, P_sch )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_sch )%stream(2) = 2097152 ! 00200000 F_sch = .TRUE. IF ( scalar_index_table( PARAM_schl , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_schl = scalar_num_table(idomain) scalar_index_table( PARAM_schl , idomain ) = P_schl ELSE P_schl = scalar_index_table( PARAM_schl , idomain ) END IF scalar_boundary_table( idomain, P_schl ) = .TRUE. scalar_dname_table( idomain, P_schl ) = 'SCHL' scalar_desc_table( idomain, P_schl ) = 'hail water space charge mixing ratio' scalar_units_table( idomain, P_schl ) = ' C kg(-1)' scalar_streams_table( idomain, P_schl )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_schl )%stream(2) = 2097152 ! 00200000 F_schl = .TRUE. IF ( scalar_index_table( PARAM_sciona , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sciona = scalar_num_table(idomain) scalar_index_table( PARAM_sciona , idomain ) = P_sciona ELSE P_sciona = scalar_index_table( PARAM_sciona , idomain ) END IF scalar_boundary_table( idomain, P_sciona ) = .TRUE. scalar_dname_table( idomain, P_sciona ) = 'SCIONA' scalar_desc_table( idomain, P_sciona ) = 'Passive net ion space charge' scalar_units_table( idomain, P_sciona ) = ' C kg(-1)' scalar_streams_table( idomain, P_sciona )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_sciona )%stream(2) = 2097152 ! 00200000 F_sciona = .TRUE. IF ( scalar_index_table( PARAM_clnox , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_clnox = scalar_num_table(idomain) scalar_index_table( PARAM_clnox , idomain ) = P_clnox ELSE P_clnox = scalar_index_table( PARAM_clnox , idomain ) END IF scalar_boundary_table( idomain, P_clnox ) = .TRUE. scalar_dname_table( idomain, P_clnox ) = 'CLNOX' scalar_desc_table( idomain, P_clnox ) = 'Lightning NOx concentration' scalar_units_table( idomain, P_clnox ) = ' moles kg(-1)' scalar_streams_table( idomain, P_clnox )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_clnox )%stream(2) = 2097152 ! 00200000 F_clnox = .TRUE. END IF IF (model_config_rec%perturb_bdy==0)THEN END IF IF (model_config_rec%perturb_bdy==1)THEN END IF IF (model_config_rec%perturb_bdy==2)THEN END IF IF (model_config_rec%perturb_chem_bdy==1)THEN END IF IF (model_config_rec%gca_input_opt==1)THEN END IF IF (model_config_rec%wif_input_opt==1)THEN END IF IF (model_config_rec%use_wps_input==0)THEN END IF IF (model_config_rec%use_wps_input==1)THEN END IF IF (model_config_rec%use_wps_input==2)THEN END IF !ENDOFREGISTRYGENERATEDINCLUDE