!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_qi2 = 1 ; F_qi2 = .FALSE. P_qi3 = 1 ; F_qi3 = .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_qi2 = 1 ; F_dfi_qi2 = .FALSE. P_dfi_qi3 = 1 ; F_dfi_qi3 = .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_qni2 = 1 ; F_qni2 = .FALSE. P_qni3 = 1 ; F_qni3 = .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_qir2 = 1 ; F_qir2 = .FALSE. P_qib2 = 1 ; F_qib2 = .FALSE. P_qvoli = 1 ; F_qvoli = .FALSE. P_qaoli = 1 ; F_qaoli = .FALSE. P_qvoli2 = 1 ; F_qvoli2 = .FALSE. P_qaoli2 = 1 ; F_qaoli2 = .FALSE. P_qvoli3 = 1 ; F_qvoli3 = .FALSE. P_qaoli3 = 1 ; F_qaoli3 = .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_ff8i34 = 1 ; F_ff8i34 = .FALSE. P_ff8i35 = 1 ; F_ff8i35 = .FALSE. P_ff8i36 = 1 ; F_ff8i36 = .FALSE. P_ff8i37 = 1 ; F_ff8i37 = .FALSE. P_ff8i38 = 1 ; F_ff8i38 = .FALSE. P_ff8i39 = 1 ; F_ff8i39 = .FALSE. P_ff8i40 = 1 ; F_ff8i40 = .FALSE. P_ff8i41 = 1 ; F_ff8i41 = .FALSE. P_ff8i42 = 1 ; F_ff8i42 = .FALSE. P_ff8i43 = 1 ; F_ff8i43 = .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_qni2 = 1 ; F_dfi_qni2 = .FALSE. P_dfi_qni3 = 1 ; F_dfi_qni3 = .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_qir2 = 1 ; F_dfi_qir2 = .FALSE. P_dfi_qib2 = 1 ; F_dfi_qib2 = .FALSE. P_dfi_qvoli = 1 ; F_dfi_qvoli = .FALSE. P_dfi_qaoli = 1 ; F_dfi_qaoli = .FALSE. P_dfi_qvoli2 = 1 ; F_dfi_qvoli2 = .FALSE. P_dfi_qaoli2 = 1 ; F_dfi_qaoli2 = .FALSE. P_dfi_qvoli3 = 1 ; F_dfi_qvoli3 = .FALSE. P_dfi_qaoli3 = 1 ; F_dfi_qaoli3 = .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_cu_dust1 = 1 ; F_cu_dust1 = .FALSE. P_cu_dust2 = 1 ; F_cu_dust2 = .FALSE. P_cu_dust3 = 1 ; F_cu_dust3 = .FALSE. P_cu_dust4 = 1 ; F_cu_dust4 = .FALSE. P_cu_seasalt = 1 ; F_cu_seasalt = .FALSE. P_cu_sulfate = 1 ; F_cu_sulfate = .FALSE. P_cu_phobcar = 1 ; F_cu_phobcar = .FALSE. P_cu_phibcar = 1 ; F_cu_phibcar = .FALSE. P_cu_phoocar = 1 ; F_cu_phoocar = .FALSE. P_cu_phiocar = 1 ; F_cu_phiocar = .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_fire_smoke = 1 ; F_fire_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_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. P_drops_zh = 1 ; F_drops_zh = .FALSE. P_drops_zv = 1 ; F_drops_zv = .FALSE. P_drops_zdr = 1 ; F_drops_zdr = .FALSE. P_drops_ldr = 1 ; F_drops_ldr = .FALSE. P_drops_kdp = 1 ; F_drops_kdp = .FALSE. P_drops_crs = 1 ; F_drops_crs = .FALSE. P_hail_zh = 1 ; F_hail_zh = .FALSE. P_hail_zv = 1 ; F_hail_zv = .FALSE. P_hail_zdr = 1 ; F_hail_zdr = .FALSE. P_hail_ldr = 1 ; F_hail_ldr = .FALSE. P_hail_kdp = 1 ; F_hail_kdp = .FALSE. P_hail_crs = 1 ; F_hail_crs = .FALSE. P_freezing_d_zh = 1 ; F_freezing_d_zh = .FALSE. P_freezing_d_zv = 1 ; F_freezing_d_zv = .FALSE. P_freezing_d_zdr = 1 ; F_freezing_d_zdr = .FALSE. P_freezing_d_ldr = 1 ; F_freezing_d_ldr = .FALSE. P_freezing_d_kdp = 1 ; F_freezing_d_kdp = .FALSE. P_freezing_d_crs = 1 ; F_freezing_d_crs = .FALSE. P_graupel_zh = 1 ; F_graupel_zh = .FALSE. P_graupel_zv = 1 ; F_graupel_zv = .FALSE. P_graupel_zdr = 1 ; F_graupel_zdr = .FALSE. P_graupel_ldr = 1 ; F_graupel_ldr = .FALSE. P_graupel_kdp = 1 ; F_graupel_kdp = .FALSE. P_graupel_crs = 1 ; F_graupel_crs = .FALSE. P_plates_zh = 1 ; F_plates_zh = .FALSE. P_plates_zv = 1 ; F_plates_zv = .FALSE. P_plates_zdr = 1 ; F_plates_zdr = .FALSE. P_plates_ldr = 1 ; F_plates_ldr = .FALSE. P_plates_kdp = 1 ; F_plates_kdp = .FALSE. P_plates_crs = 1 ; F_plates_crs = .FALSE. P_dendrites_zh = 1 ; F_dendrites_zh = .FALSE. P_dendrites_zv = 1 ; F_dendrites_zv = .FALSE. P_dendrites_zdr = 1 ; F_dendrites_zdr = .FALSE. P_dendrites_ldr = 1 ; F_dendrites_ldr = .FALSE. P_dendrites_kdp = 1 ; F_dendrites_kdp = .FALSE. P_dendrites_crs = 1 ; F_dendrites_crs = .FALSE. P_snow_zh = 1 ; F_snow_zh = .FALSE. P_snow_zv = 1 ; F_snow_zv = .FALSE. P_snow_zdr = 1 ; F_snow_zdr = .FALSE. P_snow_ldr = 1 ; F_snow_ldr = .FALSE. P_snow_kdp = 1 ; F_snow_kdp = .FALSE. P_snow_crs = 1 ; F_snow_crs = .FALSE. P_columns_zh = 1 ; F_columns_zh = .FALSE. P_columns_zv = 1 ; F_columns_zv = .FALSE. P_columns_zdr = 1 ; F_columns_zdr = .FALSE. P_columns_ldr = 1 ; F_columns_ldr = .FALSE. P_columns_kdp = 1 ; F_columns_kdp = .FALSE. P_columns_crs = 1 ; F_columns_crs = .FALSE. P_total_zh = 1 ; F_total_zh = .FALSE. P_total_zv = 1 ; F_total_zv = .FALSE. P_total_zdr = 1 ; F_total_zdr = .FALSE. P_total_ldr = 1 ; F_total_ldr = .FALSE. P_total_kdp = 1 ; F_total_kdp = .FALSE. P_total_crs = 1 ; F_total_crs = .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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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. 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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)==24)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) = 33554435 ! 02000003 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. END IF IF (model_config_rec%mp_physics(idomain)==26)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) = 33554435 ! 02000003 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_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)==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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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) = 33554435 ! 02000003 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)==52)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) = 33554435 ! 02000003 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_qi2 , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi2 = moist_num_table(idomain) moist_index_table( PARAM_qi2 , idomain ) = P_qi2 ELSE P_qi2 = moist_index_table( PARAM_qi2 , idomain ) END IF moist_boundary_table( idomain, P_qi2 ) = .TRUE. moist_dname_table( idomain, P_qi2 ) = 'QICE2' moist_desc_table( idomain, P_qi2 ) = 'Ice mixing ratio cat 2' moist_units_table( idomain, P_qi2 ) = 'kg kg-1' moist_streams_table( idomain, P_qi2 )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi2 )%stream(2) = 2097152 ! 00200000 F_qi2 = .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. IF ( scalar_index_table( PARAM_qni2 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni2 = scalar_num_table(idomain) scalar_index_table( PARAM_qni2 , idomain ) = P_qni2 ELSE P_qni2 = scalar_index_table( PARAM_qni2 , idomain ) END IF scalar_boundary_table( idomain, P_qni2 ) = .TRUE. scalar_dname_table( idomain, P_qni2 ) = 'QNICE2' scalar_desc_table( idomain, P_qni2 ) = 'Ice Number concentration cat 2' scalar_units_table( idomain, P_qni2 ) = ' kg-1' scalar_streams_table( idomain, P_qni2 )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni2 )%stream(2) = 2097152 ! 00200000 F_qni2 = .TRUE. IF ( scalar_index_table( PARAM_qir2 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qir2 = scalar_num_table(idomain) scalar_index_table( PARAM_qir2 , idomain ) = P_qir2 ELSE P_qir2 = scalar_index_table( PARAM_qir2 , idomain ) END IF scalar_boundary_table( idomain, P_qir2 ) = .TRUE. scalar_dname_table( idomain, P_qir2 ) = 'QIR2' scalar_desc_table( idomain, P_qir2 ) = 'Rime ice mass-2 mixing ratio' scalar_units_table( idomain, P_qir2 ) = 'kg kg(-1)' scalar_streams_table( idomain, P_qir2 )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qir2 )%stream(2) = 2097152 ! 00200000 F_qir2 = .TRUE. IF ( scalar_index_table( PARAM_qib2 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qib2 = scalar_num_table(idomain) scalar_index_table( PARAM_qib2 , idomain ) = P_qib2 ELSE P_qib2 = scalar_index_table( PARAM_qib2 , idomain ) END IF scalar_boundary_table( idomain, P_qib2 ) = .TRUE. scalar_dname_table( idomain, P_qib2 ) = 'QIB2' scalar_desc_table( idomain, P_qib2 ) = 'Rime ice volume-2 mixing ratio' scalar_units_table( idomain, P_qib2 ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qib2 )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qib2 )%stream(2) = 2097152 ! 00200000 F_qib2 = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==40)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) = 33554435 ! 02000003 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_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_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)==55)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) = 33554435 ! 02000003 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_qi2 , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi2 = moist_num_table(idomain) moist_index_table( PARAM_qi2 , idomain ) = P_qi2 ELSE P_qi2 = moist_index_table( PARAM_qi2 , idomain ) END IF moist_boundary_table( idomain, P_qi2 ) = .TRUE. moist_dname_table( idomain, P_qi2 ) = 'QICE2' moist_desc_table( idomain, P_qi2 ) = 'Ice mixing ratio cat 2' moist_units_table( idomain, P_qi2 ) = 'kg kg-1' moist_streams_table( idomain, P_qi2 )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi2 )%stream(2) = 2097152 ! 00200000 F_qi2 = .TRUE. IF ( moist_index_table( PARAM_qi3 , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi3 = moist_num_table(idomain) moist_index_table( PARAM_qi3 , idomain ) = P_qi3 ELSE P_qi3 = moist_index_table( PARAM_qi3 , idomain ) END IF moist_boundary_table( idomain, P_qi3 ) = .TRUE. moist_dname_table( idomain, P_qi3 ) = 'QICE3' moist_desc_table( idomain, P_qi3 ) = 'Ice mixing ratio cat 3' moist_units_table( idomain, P_qi3 ) = 'kg kg-1' moist_streams_table( idomain, P_qi3 )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi3 )%stream(2) = 2097152 ! 00200000 F_qi3 = .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_qvoli , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qvoli = scalar_num_table(idomain) scalar_index_table( PARAM_qvoli , idomain ) = P_qvoli ELSE P_qvoli = scalar_index_table( PARAM_qvoli , idomain ) END IF scalar_boundary_table( idomain, P_qvoli ) = .TRUE. scalar_dname_table( idomain, P_qvoli ) = 'QVOLI' scalar_desc_table( idomain, P_qvoli ) = 'Ice volume-1 mixing ratio' scalar_units_table( idomain, P_qvoli ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qvoli )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qvoli )%stream(2) = 2097152 ! 00200000 F_qvoli = .TRUE. IF ( scalar_index_table( PARAM_qaoli , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qaoli = scalar_num_table(idomain) scalar_index_table( PARAM_qaoli , idomain ) = P_qaoli ELSE P_qaoli = scalar_index_table( PARAM_qaoli , idomain ) END IF scalar_boundary_table( idomain, P_qaoli ) = .TRUE. scalar_dname_table( idomain, P_qaoli ) = 'QAOLI' scalar_desc_table( idomain, P_qaoli ) = 'Ice volume-1 times aspect ratio mixing ratio' scalar_units_table( idomain, P_qaoli ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qaoli )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qaoli )%stream(2) = 2097152 ! 00200000 F_qaoli = .TRUE. IF ( scalar_index_table( PARAM_qni2 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni2 = scalar_num_table(idomain) scalar_index_table( PARAM_qni2 , idomain ) = P_qni2 ELSE P_qni2 = scalar_index_table( PARAM_qni2 , idomain ) END IF scalar_boundary_table( idomain, P_qni2 ) = .TRUE. scalar_dname_table( idomain, P_qni2 ) = 'QNICE2' scalar_desc_table( idomain, P_qni2 ) = 'Ice Number concentration cat 2' scalar_units_table( idomain, P_qni2 ) = ' kg-1' scalar_streams_table( idomain, P_qni2 )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni2 )%stream(2) = 2097152 ! 00200000 F_qni2 = .TRUE. IF ( scalar_index_table( PARAM_qvoli2 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qvoli2 = scalar_num_table(idomain) scalar_index_table( PARAM_qvoli2 , idomain ) = P_qvoli2 ELSE P_qvoli2 = scalar_index_table( PARAM_qvoli2 , idomain ) END IF scalar_boundary_table( idomain, P_qvoli2 ) = .TRUE. scalar_dname_table( idomain, P_qvoli2 ) = 'QVOLI2' scalar_desc_table( idomain, P_qvoli2 ) = 'Ice volume-2 mixing ratio' scalar_units_table( idomain, P_qvoli2 ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qvoli2 )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qvoli2 )%stream(2) = 2097152 ! 00200000 F_qvoli2 = .TRUE. IF ( scalar_index_table( PARAM_qaoli2 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qaoli2 = scalar_num_table(idomain) scalar_index_table( PARAM_qaoli2 , idomain ) = P_qaoli2 ELSE P_qaoli2 = scalar_index_table( PARAM_qaoli2 , idomain ) END IF scalar_boundary_table( idomain, P_qaoli2 ) = .TRUE. scalar_dname_table( idomain, P_qaoli2 ) = 'QAOLI2' scalar_desc_table( idomain, P_qaoli2 ) = 'Ice volume-2 times aspect ratio mixing ratio' scalar_units_table( idomain, P_qaoli2 ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qaoli2 )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qaoli2 )%stream(2) = 2097152 ! 00200000 F_qaoli2 = .TRUE. IF ( scalar_index_table( PARAM_qni3 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni3 = scalar_num_table(idomain) scalar_index_table( PARAM_qni3 , idomain ) = P_qni3 ELSE P_qni3 = scalar_index_table( PARAM_qni3 , idomain ) END IF scalar_boundary_table( idomain, P_qni3 ) = .TRUE. scalar_dname_table( idomain, P_qni3 ) = 'QNICE3' scalar_desc_table( idomain, P_qni3 ) = 'Ice Number concentration cat 3' scalar_units_table( idomain, P_qni3 ) = ' kg-1' scalar_streams_table( idomain, P_qni3 )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni3 )%stream(2) = 2097152 ! 00200000 F_qni3 = .TRUE. IF ( scalar_index_table( PARAM_qvoli3 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qvoli3 = scalar_num_table(idomain) scalar_index_table( PARAM_qvoli3 , idomain ) = P_qvoli3 ELSE P_qvoli3 = scalar_index_table( PARAM_qvoli3 , idomain ) END IF scalar_boundary_table( idomain, P_qvoli3 ) = .TRUE. scalar_dname_table( idomain, P_qvoli3 ) = 'QVOLI3' scalar_desc_table( idomain, P_qvoli3 ) = 'Ice volume-3 mixing ratio' scalar_units_table( idomain, P_qvoli3 ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qvoli3 )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qvoli3 )%stream(2) = 2097152 ! 00200000 F_qvoli3 = .TRUE. IF ( scalar_index_table( PARAM_qaoli3 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qaoli3 = scalar_num_table(idomain) scalar_index_table( PARAM_qaoli3 , idomain ) = P_qaoli3 ELSE P_qaoli3 = scalar_index_table( PARAM_qaoli3 , idomain ) END IF scalar_boundary_table( idomain, P_qaoli3 ) = .TRUE. scalar_dname_table( idomain, P_qaoli3 ) = 'QAOLI3' scalar_desc_table( idomain, P_qaoli3 ) = 'Ice volume-3 times aspect ratio mixing ratio' scalar_units_table( idomain, P_qaoli3 ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qaoli3 )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qaoli3 )%stream(2) = 2097152 ! 00200000 F_qaoli3 = .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) = 33554435 ! 02000003 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%mp_physics(idomain)==97)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) = 33554435 ! 02000003 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%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. 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. 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)==24)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. END IF IF (model_config_rec%mp_physics_dfi(idomain)==26)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_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)==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)==52)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_qi2 , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi2 = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi2 , idomain ) = P_dfi_qi2 ELSE P_dfi_qi2 = dfi_moist_index_table( PARAM_dfi_qi2 , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi2 ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi2 ) = 'DFI_QICE2' dfi_moist_desc_table( idomain, P_dfi_qi2 ) = 'Ice mixing ratio cat 2' dfi_moist_units_table( idomain, P_dfi_qi2 ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi2 )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi2 )%stream(2) = 2097152 ! 00200000 F_dfi_qi2 = .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. IF ( dfi_scalar_index_table( PARAM_dfi_qni2 , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni2 = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni2 , idomain ) = P_dfi_qni2 ELSE P_dfi_qni2 = dfi_scalar_index_table( PARAM_dfi_qni2 , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni2 ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni2 ) = 'DFI_QNICE2' dfi_scalar_desc_table( idomain, P_dfi_qni2 ) = 'DFI Ice Number concentration cat 2' dfi_scalar_units_table( idomain, P_dfi_qni2 ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni2 )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qni2 )%stream(2) = 2097152 ! 00200000 F_dfi_qni2 = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qir2 , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qir2 = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qir2 , idomain ) = P_dfi_qir2 ELSE P_dfi_qir2 = dfi_scalar_index_table( PARAM_dfi_qir2 , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qir2 ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qir2 ) = 'DFI_QIR2' dfi_scalar_desc_table( idomain, P_dfi_qir2 ) = 'DFI Rime ice mass-2 mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qir2 ) = 'kg kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qir2 )%stream(1) = 1 ! 00000001 dfi_scalar_streams_table( idomain, P_dfi_qir2 )%stream(2) = 2097152 ! 00200000 F_dfi_qir2 = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qib2 , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qib2 = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qib2 , idomain ) = P_dfi_qib2 ELSE P_dfi_qib2 = dfi_scalar_index_table( PARAM_dfi_qib2 , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qib2 ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qib2 ) = 'DFI_QIB2' dfi_scalar_desc_table( idomain, P_dfi_qib2 ) = 'DFI Rime ice volume-2 mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qib2 ) = 'm(3) kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qib2 )%stream(1) = 1 ! 00000001 dfi_scalar_streams_table( idomain, P_dfi_qib2 )%stream(2) = 2097152 ! 00200000 F_dfi_qib2 = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==55)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_qi2 , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi2 = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi2 , idomain ) = P_dfi_qi2 ELSE P_dfi_qi2 = dfi_moist_index_table( PARAM_dfi_qi2 , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi2 ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi2 ) = 'DFI_QICE2' dfi_moist_desc_table( idomain, P_dfi_qi2 ) = 'Ice mixing ratio cat 2' dfi_moist_units_table( idomain, P_dfi_qi2 ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi2 )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi2 )%stream(2) = 2097152 ! 00200000 F_dfi_qi2 = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi3 , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi3 = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi3 , idomain ) = P_dfi_qi3 ELSE P_dfi_qi3 = dfi_moist_index_table( PARAM_dfi_qi3 , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi3 ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi3 ) = 'DFI_QICE3' dfi_moist_desc_table( idomain, P_dfi_qi3 ) = 'Ice mixing ratio cat 3' dfi_moist_units_table( idomain, P_dfi_qi3 ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi3 )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi3 )%stream(2) = 2097152 ! 00200000 F_dfi_qi3 = .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_qvoli , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qvoli = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qvoli , idomain ) = P_dfi_qvoli ELSE P_dfi_qvoli = dfi_scalar_index_table( PARAM_dfi_qvoli , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qvoli ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qvoli ) = 'DFI_QVOLI' dfi_scalar_desc_table( idomain, P_dfi_qvoli ) = 'DFI Ice volume-1 mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qvoli ) = 'kg kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qvoli )%stream(1) = 1 ! 00000001 dfi_scalar_streams_table( idomain, P_dfi_qvoli )%stream(2) = 2097152 ! 00200000 F_dfi_qvoli = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qaoli , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qaoli = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qaoli , idomain ) = P_dfi_qaoli ELSE P_dfi_qaoli = dfi_scalar_index_table( PARAM_dfi_qaoli , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qaoli ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qaoli ) = 'DFI_QAOLI' dfi_scalar_desc_table( idomain, P_dfi_qaoli ) = 'DFI Ice volume-1 times aspect ratio mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qaoli ) = 'kg kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qaoli )%stream(1) = 1 ! 00000001 dfi_scalar_streams_table( idomain, P_dfi_qaoli )%stream(2) = 2097152 ! 00200000 F_dfi_qaoli = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni2 , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni2 = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni2 , idomain ) = P_dfi_qni2 ELSE P_dfi_qni2 = dfi_scalar_index_table( PARAM_dfi_qni2 , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni2 ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni2 ) = 'DFI_QNICE2' dfi_scalar_desc_table( idomain, P_dfi_qni2 ) = 'DFI Ice Number concentration cat 2' dfi_scalar_units_table( idomain, P_dfi_qni2 ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni2 )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qni2 )%stream(2) = 2097152 ! 00200000 F_dfi_qni2 = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qvoli2 , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qvoli2 = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qvoli2 , idomain ) = P_dfi_qvoli2 ELSE P_dfi_qvoli2 = dfi_scalar_index_table( PARAM_dfi_qvoli2 , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qvoli2 ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qvoli2 ) = 'DFI_QVOLI2' dfi_scalar_desc_table( idomain, P_dfi_qvoli2 ) = 'DFI Ice volume-2 mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qvoli2 ) = 'kg kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qvoli2 )%stream(1) = 1 ! 00000001 dfi_scalar_streams_table( idomain, P_dfi_qvoli2 )%stream(2) = 2097152 ! 00200000 F_dfi_qvoli2 = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qaoli2 , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qaoli2 = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qaoli2 , idomain ) = P_dfi_qaoli2 ELSE P_dfi_qaoli2 = dfi_scalar_index_table( PARAM_dfi_qaoli2 , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qaoli2 ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qaoli2 ) = 'DFI_QAOLI2' dfi_scalar_desc_table( idomain, P_dfi_qaoli2 ) = 'DFI Ice volume-2 times aspect ratio mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qaoli2 ) = 'kg kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qaoli2 )%stream(1) = 1 ! 00000001 dfi_scalar_streams_table( idomain, P_dfi_qaoli2 )%stream(2) = 2097152 ! 00200000 F_dfi_qaoli2 = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni3 , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni3 = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni3 , idomain ) = P_dfi_qni3 ELSE P_dfi_qni3 = dfi_scalar_index_table( PARAM_dfi_qni3 , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni3 ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni3 ) = 'DFI_QNICE3' dfi_scalar_desc_table( idomain, P_dfi_qni3 ) = 'DFI Ice Number concentration cat 3' dfi_scalar_units_table( idomain, P_dfi_qni3 ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni3 )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qni3 )%stream(2) = 2097152 ! 00200000 F_dfi_qni3 = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qvoli3 , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qvoli3 = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qvoli3 , idomain ) = P_dfi_qvoli3 ELSE P_dfi_qvoli3 = dfi_scalar_index_table( PARAM_dfi_qvoli3 , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qvoli3 ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qvoli3 ) = 'DFI_QVOLI3' dfi_scalar_desc_table( idomain, P_dfi_qvoli3 ) = 'DFI Ice volume-3 mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qvoli3 ) = 'kg kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qvoli3 )%stream(1) = 1 ! 00000001 dfi_scalar_streams_table( idomain, P_dfi_qvoli3 )%stream(2) = 2097152 ! 00200000 F_dfi_qvoli3 = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qaoli3 , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qaoli3 = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qaoli3 , idomain ) = P_dfi_qaoli3 ELSE P_dfi_qaoli3 = dfi_scalar_index_table( PARAM_dfi_qaoli3 , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qaoli3 ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qaoli3 ) = 'DFI_QAOLI3' dfi_scalar_desc_table( idomain, P_dfi_qaoli3 ) = 'DFI Ice volume-3 times aspect ratio mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qaoli3 ) = 'kg kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qaoli3 )%stream(1) = 1 ! 00000001 dfi_scalar_streams_table( idomain, P_dfi_qaoli3 )%stream(2) = 2097152 ! 00200000 F_dfi_qaoli3 = .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%mp_physics_dfi(idomain)==97)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%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)==14)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)==14)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)==0)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)==0)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%opt_crop==2)THEN END IF IF (model_config_rec%sf_surface_mosaic==1)THEN END IF IF (model_config_rec%sf_surf_irr_alloc==1)THEN END IF IF (model_config_rec%sf_surf_irr_alloc==2)THEN END IF IF (model_config_rec%sf_surf_irr_alloc==3)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_output(idomain)==1)THEN END IF IF (model_config_rec%icloud_bl==1)THEN END IF IF (model_config_rec%km_opt(idomain)==5)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)==96)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_physics(idomain)==4)THEN END IF IF (model_config_rec%shcu_physics(idomain)==5)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%swint_opt==2)THEN END IF IF (model_config_rec%aercu_used==1)THEN IF ( aerocu_index_table( PARAM_cu_sulfate , idomain ) .lt. 1 ) THEN aerocu_num_table(idomain) = aerocu_num_table(idomain) + 1 P_cu_sulfate = aerocu_num_table(idomain) aerocu_index_table( PARAM_cu_sulfate , idomain ) = P_cu_sulfate ELSE P_cu_sulfate = aerocu_index_table( PARAM_cu_sulfate , idomain ) END IF aerocu_boundary_table( idomain, P_cu_sulfate ) = .FALSE. aerocu_dname_table( idomain, P_cu_sulfate ) = 'cusulfate' aerocu_desc_table( idomain, P_cu_sulfate ) = 'sulfate' aerocu_units_table( idomain, P_cu_sulfate ) = 'ug m-3' aerocu_streams_table( idomain, P_cu_sulfate )%stream(1) = 1 ! 00000001 aerocu_streams_table( idomain, P_cu_sulfate )%stream(2) = 0 ! 00000000 F_cu_sulfate = .TRUE. IF ( aerocu_index_table( PARAM_cu_seasalt , idomain ) .lt. 1 ) THEN aerocu_num_table(idomain) = aerocu_num_table(idomain) + 1 P_cu_seasalt = aerocu_num_table(idomain) aerocu_index_table( PARAM_cu_seasalt , idomain ) = P_cu_seasalt ELSE P_cu_seasalt = aerocu_index_table( PARAM_cu_seasalt , idomain ) END IF aerocu_boundary_table( idomain, P_cu_seasalt ) = .FALSE. aerocu_dname_table( idomain, P_cu_seasalt ) = 'cuseasalt' aerocu_desc_table( idomain, P_cu_seasalt ) = 'sea salt' aerocu_units_table( idomain, P_cu_seasalt ) = 'ug m-3' aerocu_streams_table( idomain, P_cu_seasalt )%stream(1) = 1 ! 00000001 aerocu_streams_table( idomain, P_cu_seasalt )%stream(2) = 0 ! 00000000 F_cu_seasalt = .TRUE. IF ( aerocu_index_table( PARAM_cu_dust1 , idomain ) .lt. 1 ) THEN aerocu_num_table(idomain) = aerocu_num_table(idomain) + 1 P_cu_dust1 = aerocu_num_table(idomain) aerocu_index_table( PARAM_cu_dust1 , idomain ) = P_cu_dust1 ELSE P_cu_dust1 = aerocu_index_table( PARAM_cu_dust1 , idomain ) END IF aerocu_boundary_table( idomain, P_cu_dust1 ) = .FALSE. aerocu_dname_table( idomain, P_cu_dust1 ) = 'cudust1' aerocu_desc_table( idomain, P_cu_dust1 ) = 'dust 1' aerocu_units_table( idomain, P_cu_dust1 ) = 'ug m-3' aerocu_streams_table( idomain, P_cu_dust1 )%stream(1) = 1 ! 00000001 aerocu_streams_table( idomain, P_cu_dust1 )%stream(2) = 0 ! 00000000 F_cu_dust1 = .TRUE. IF ( aerocu_index_table( PARAM_cu_dust2 , idomain ) .lt. 1 ) THEN aerocu_num_table(idomain) = aerocu_num_table(idomain) + 1 P_cu_dust2 = aerocu_num_table(idomain) aerocu_index_table( PARAM_cu_dust2 , idomain ) = P_cu_dust2 ELSE P_cu_dust2 = aerocu_index_table( PARAM_cu_dust2 , idomain ) END IF aerocu_boundary_table( idomain, P_cu_dust2 ) = .FALSE. aerocu_dname_table( idomain, P_cu_dust2 ) = 'cudust2' aerocu_desc_table( idomain, P_cu_dust2 ) = 'dust 2' aerocu_units_table( idomain, P_cu_dust2 ) = 'ug m-3' aerocu_streams_table( idomain, P_cu_dust2 )%stream(1) = 1 ! 00000001 aerocu_streams_table( idomain, P_cu_dust2 )%stream(2) = 0 ! 00000000 F_cu_dust2 = .TRUE. IF ( aerocu_index_table( PARAM_cu_dust3 , idomain ) .lt. 1 ) THEN aerocu_num_table(idomain) = aerocu_num_table(idomain) + 1 P_cu_dust3 = aerocu_num_table(idomain) aerocu_index_table( PARAM_cu_dust3 , idomain ) = P_cu_dust3 ELSE P_cu_dust3 = aerocu_index_table( PARAM_cu_dust3 , idomain ) END IF aerocu_boundary_table( idomain, P_cu_dust3 ) = .FALSE. aerocu_dname_table( idomain, P_cu_dust3 ) = 'cudust3' aerocu_desc_table( idomain, P_cu_dust3 ) = 'dust 3' aerocu_units_table( idomain, P_cu_dust3 ) = 'ug m-3' aerocu_streams_table( idomain, P_cu_dust3 )%stream(1) = 1 ! 00000001 aerocu_streams_table( idomain, P_cu_dust3 )%stream(2) = 0 ! 00000000 F_cu_dust3 = .TRUE. IF ( aerocu_index_table( PARAM_cu_dust4 , idomain ) .lt. 1 ) THEN aerocu_num_table(idomain) = aerocu_num_table(idomain) + 1 P_cu_dust4 = aerocu_num_table(idomain) aerocu_index_table( PARAM_cu_dust4 , idomain ) = P_cu_dust4 ELSE P_cu_dust4 = aerocu_index_table( PARAM_cu_dust4 , idomain ) END IF aerocu_boundary_table( idomain, P_cu_dust4 ) = .FALSE. aerocu_dname_table( idomain, P_cu_dust4 ) = 'cudust4' aerocu_desc_table( idomain, P_cu_dust4 ) = 'dust 4' aerocu_units_table( idomain, P_cu_dust4 ) = 'ug m-3' aerocu_streams_table( idomain, P_cu_dust4 )%stream(1) = 1 ! 00000001 aerocu_streams_table( idomain, P_cu_dust4 )%stream(2) = 0 ! 00000000 F_cu_dust4 = .TRUE. IF ( aerocu_index_table( PARAM_cu_phoocar , idomain ) .lt. 1 ) THEN aerocu_num_table(idomain) = aerocu_num_table(idomain) + 1 P_cu_phoocar = aerocu_num_table(idomain) aerocu_index_table( PARAM_cu_phoocar , idomain ) = P_cu_phoocar ELSE P_cu_phoocar = aerocu_index_table( PARAM_cu_phoocar , idomain ) END IF aerocu_boundary_table( idomain, P_cu_phoocar ) = .FALSE. aerocu_dname_table( idomain, P_cu_phoocar ) = 'cuphoocar' aerocu_desc_table( idomain, P_cu_phoocar ) = 'hydrophobic organic carbon' aerocu_units_table( idomain, P_cu_phoocar ) = 'ug m-3' aerocu_streams_table( idomain, P_cu_phoocar )%stream(1) = 1 ! 00000001 aerocu_streams_table( idomain, P_cu_phoocar )%stream(2) = 0 ! 00000000 F_cu_phoocar = .TRUE. IF ( aerocu_index_table( PARAM_cu_phiocar , idomain ) .lt. 1 ) THEN aerocu_num_table(idomain) = aerocu_num_table(idomain) + 1 P_cu_phiocar = aerocu_num_table(idomain) aerocu_index_table( PARAM_cu_phiocar , idomain ) = P_cu_phiocar ELSE P_cu_phiocar = aerocu_index_table( PARAM_cu_phiocar , idomain ) END IF aerocu_boundary_table( idomain, P_cu_phiocar ) = .FALSE. aerocu_dname_table( idomain, P_cu_phiocar ) = 'cuphiocar' aerocu_desc_table( idomain, P_cu_phiocar ) = 'hydrophilic organic carbon' aerocu_units_table( idomain, P_cu_phiocar ) = 'ug m-3' aerocu_streams_table( idomain, P_cu_phiocar )%stream(1) = 1 ! 00000001 aerocu_streams_table( idomain, P_cu_phiocar )%stream(2) = 0 ! 00000000 F_cu_phiocar = .TRUE. IF ( aerocu_index_table( PARAM_cu_phobcar , idomain ) .lt. 1 ) THEN aerocu_num_table(idomain) = aerocu_num_table(idomain) + 1 P_cu_phobcar = aerocu_num_table(idomain) aerocu_index_table( PARAM_cu_phobcar , idomain ) = P_cu_phobcar ELSE P_cu_phobcar = aerocu_index_table( PARAM_cu_phobcar , idomain ) END IF aerocu_boundary_table( idomain, P_cu_phobcar ) = .FALSE. aerocu_dname_table( idomain, P_cu_phobcar ) = 'cuphobcar' aerocu_desc_table( idomain, P_cu_phobcar ) = 'hydrophobic black carbon' aerocu_units_table( idomain, P_cu_phobcar ) = 'ug m-3' aerocu_streams_table( idomain, P_cu_phobcar )%stream(1) = 1 ! 00000001 aerocu_streams_table( idomain, P_cu_phobcar )%stream(2) = 0 ! 00000000 F_cu_phobcar = .TRUE. IF ( aerocu_index_table( PARAM_cu_phibcar , idomain ) .lt. 1 ) THEN aerocu_num_table(idomain) = aerocu_num_table(idomain) + 1 P_cu_phibcar = aerocu_num_table(idomain) aerocu_index_table( PARAM_cu_phibcar , idomain ) = P_cu_phibcar ELSE P_cu_phibcar = aerocu_index_table( PARAM_cu_phibcar , idomain ) END IF aerocu_boundary_table( idomain, P_cu_phibcar ) = .FALSE. aerocu_dname_table( idomain, P_cu_phibcar ) = 'cuphibcar' aerocu_desc_table( idomain, P_cu_phibcar ) = 'hydrophilic black carbon' aerocu_units_table( idomain, P_cu_phibcar ) = 'ug m-3' aerocu_streams_table( idomain, P_cu_phibcar )%stream(1) = 1 ! 00000001 aerocu_streams_table( idomain, P_cu_phibcar )%stream(2) = 0 ! 00000000 F_cu_phibcar = .TRUE. END IF IF (model_config_rec%slope_rad(idomain)==1)THEN END IF IF (model_config_rec%gwd_used==1)THEN END IF IF (model_config_rec%gwd_opt(idomain)==0)THEN END IF IF (model_config_rec%gwd_opt(idomain)==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%process_time_series==2)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==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%ideal_case==0)THEN END IF IF (model_config_rec%ideal_case==1)THEN END IF IF (model_config_rec%ideal_case==2)THEN END IF IF (model_config_rec%ideal_case==3)THEN END IF IF (model_config_rec%ideal_case==4)THEN END IF IF (model_config_rec%ideal_case==5)THEN END IF IF (model_config_rec%ideal_case==6)THEN END IF IF (model_config_rec%ideal_case==7)THEN END IF IF (model_config_rec%ideal_case==8)THEN END IF IF (model_config_rec%ideal_case==9)THEN END IF IF (model_config_rec%calc_clean_atm_diag==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%ifire(idomain)==2)THEN END IF IF (model_config_rec%fmoisti_run(idomain)==1)THEN END IF IF (model_config_rec%fmoisti_interp(idomain)==1)THEN END IF IF (model_config_rec%tracer_opt(idomain)==3)THEN IF ( tracer_index_table( PARAM_fire_smoke , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_fire_smoke = tracer_num_table(idomain) tracer_index_table( PARAM_fire_smoke , idomain ) = P_fire_smoke ELSE P_fire_smoke = tracer_index_table( PARAM_fire_smoke , idomain ) END IF tracer_boundary_table( idomain, P_fire_smoke ) = .TRUE. tracer_dname_table( idomain, P_fire_smoke ) = 'fire_smoke' tracer_desc_table( idomain, P_fire_smoke ) = 'fire_smoke' tracer_units_table( idomain, P_fire_smoke ) = 'g_smoke/kg_air' tracer_streams_table( idomain, P_fire_smoke )%stream(1) = 33554433 ! 02000001 tracer_streams_table( idomain, P_fire_smoke )%stream(2) = 2097152 ! 00200000 F_fire_smoke = .TRUE. 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) = 33554435 ! 02000003 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_ff8i34 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i34 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i34 , idomain ) = P_ff8i34 ELSE P_ff8i34 = scalar_index_table( PARAM_ff8i34 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i34 ) = .TRUE. scalar_dname_table( idomain, P_ff8i34 ) = 'ff8i34' scalar_desc_table( idomain, P_ff8i34 ) = 'aerosols bin 34' scalar_units_table( idomain, P_ff8i34 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i34 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i34 )%stream(2) = 2097152 ! 00200000 F_ff8i34 = .TRUE. IF ( scalar_index_table( PARAM_ff8i35 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i35 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i35 , idomain ) = P_ff8i35 ELSE P_ff8i35 = scalar_index_table( PARAM_ff8i35 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i35 ) = .TRUE. scalar_dname_table( idomain, P_ff8i35 ) = 'ff8i35' scalar_desc_table( idomain, P_ff8i35 ) = 'aerosols bin 35' scalar_units_table( idomain, P_ff8i35 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i35 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i35 )%stream(2) = 2097152 ! 00200000 F_ff8i35 = .TRUE. IF ( scalar_index_table( PARAM_ff8i36 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i36 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i36 , idomain ) = P_ff8i36 ELSE P_ff8i36 = scalar_index_table( PARAM_ff8i36 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i36 ) = .TRUE. scalar_dname_table( idomain, P_ff8i36 ) = 'ff8i36' scalar_desc_table( idomain, P_ff8i36 ) = 'aerosols bin 36' scalar_units_table( idomain, P_ff8i36 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i36 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i36 )%stream(2) = 2097152 ! 00200000 F_ff8i36 = .TRUE. IF ( scalar_index_table( PARAM_ff8i37 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i37 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i37 , idomain ) = P_ff8i37 ELSE P_ff8i37 = scalar_index_table( PARAM_ff8i37 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i37 ) = .TRUE. scalar_dname_table( idomain, P_ff8i37 ) = 'ff8i37' scalar_desc_table( idomain, P_ff8i37 ) = 'aerosols bin 37' scalar_units_table( idomain, P_ff8i37 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i37 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i37 )%stream(2) = 2097152 ! 00200000 F_ff8i37 = .TRUE. IF ( scalar_index_table( PARAM_ff8i38 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i38 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i38 , idomain ) = P_ff8i38 ELSE P_ff8i38 = scalar_index_table( PARAM_ff8i38 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i38 ) = .TRUE. scalar_dname_table( idomain, P_ff8i38 ) = 'ff8i38' scalar_desc_table( idomain, P_ff8i38 ) = 'aerosols bin 38' scalar_units_table( idomain, P_ff8i38 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i38 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i38 )%stream(2) = 2097152 ! 00200000 F_ff8i38 = .TRUE. IF ( scalar_index_table( PARAM_ff8i39 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i39 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i39 , idomain ) = P_ff8i39 ELSE P_ff8i39 = scalar_index_table( PARAM_ff8i39 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i39 ) = .TRUE. scalar_dname_table( idomain, P_ff8i39 ) = 'ff8i39' scalar_desc_table( idomain, P_ff8i39 ) = 'aerosols bin 39' scalar_units_table( idomain, P_ff8i39 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i39 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i39 )%stream(2) = 2097152 ! 00200000 F_ff8i39 = .TRUE. IF ( scalar_index_table( PARAM_ff8i40 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i40 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i40 , idomain ) = P_ff8i40 ELSE P_ff8i40 = scalar_index_table( PARAM_ff8i40 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i40 ) = .TRUE. scalar_dname_table( idomain, P_ff8i40 ) = 'ff8i40' scalar_desc_table( idomain, P_ff8i40 ) = 'aerosols bin 40' scalar_units_table( idomain, P_ff8i40 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i40 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i40 )%stream(2) = 2097152 ! 00200000 F_ff8i40 = .TRUE. IF ( scalar_index_table( PARAM_ff8i41 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i41 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i41 , idomain ) = P_ff8i41 ELSE P_ff8i41 = scalar_index_table( PARAM_ff8i41 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i41 ) = .TRUE. scalar_dname_table( idomain, P_ff8i41 ) = 'ff8i41' scalar_desc_table( idomain, P_ff8i41 ) = 'aerosols bin 41' scalar_units_table( idomain, P_ff8i41 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i41 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i41 )%stream(2) = 2097152 ! 00200000 F_ff8i41 = .TRUE. IF ( scalar_index_table( PARAM_ff8i42 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i42 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i42 , idomain ) = P_ff8i42 ELSE P_ff8i42 = scalar_index_table( PARAM_ff8i42 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i42 ) = .TRUE. scalar_dname_table( idomain, P_ff8i42 ) = 'ff8i42' scalar_desc_table( idomain, P_ff8i42 ) = 'aerosols bin 42' scalar_units_table( idomain, P_ff8i42 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i42 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i42 )%stream(2) = 2097152 ! 00200000 F_ff8i42 = .TRUE. IF ( scalar_index_table( PARAM_ff8i43 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i43 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i43 , idomain ) = P_ff8i43 ELSE P_ff8i43 = scalar_index_table( PARAM_ff8i43 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i43 ) = .TRUE. scalar_dname_table( idomain, P_ff8i43 ) = 'ff8i43' scalar_desc_table( idomain, P_ff8i43 ) = 'aerosols bin 43' scalar_units_table( idomain, P_ff8i43 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i43 )%stream(1) = 8 ! 00000008 scalar_streams_table( idomain, P_ff8i43 )%stream(2) = 2097152 ! 00200000 F_ff8i43 = .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) = 33554435 ! 02000003 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%sbm_diagnostics(idomain)==1)THEN IF ( sbmradar_index_table( PARAM_drops_zh , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_drops_zh = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_drops_zh , idomain ) = P_drops_zh ELSE P_drops_zh = sbmradar_index_table( PARAM_drops_zh , idomain ) END IF sbmradar_boundary_table( idomain, P_drops_zh ) = .FALSE. sbmradar_dname_table( idomain, P_drops_zh ) = 'Drops_zh' sbmradar_desc_table( idomain, P_drops_zh ) = 'Drops Horizontal Refl.' sbmradar_units_table( idomain, P_drops_zh ) = 'dBZ' sbmradar_streams_table( idomain, P_drops_zh )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_drops_zh )%stream(2) = 2097152 ! 00200000 F_drops_zh = .TRUE. IF ( sbmradar_index_table( PARAM_drops_zv , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_drops_zv = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_drops_zv , idomain ) = P_drops_zv ELSE P_drops_zv = sbmradar_index_table( PARAM_drops_zv , idomain ) END IF sbmradar_boundary_table( idomain, P_drops_zv ) = .FALSE. sbmradar_dname_table( idomain, P_drops_zv ) = 'Drops_zv' sbmradar_desc_table( idomain, P_drops_zv ) = 'Drops Vertical Refl.' sbmradar_units_table( idomain, P_drops_zv ) = 'dBZ' sbmradar_streams_table( idomain, P_drops_zv )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_drops_zv )%stream(2) = 2097152 ! 00200000 F_drops_zv = .TRUE. IF ( sbmradar_index_table( PARAM_drops_zdr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_drops_zdr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_drops_zdr , idomain ) = P_drops_zdr ELSE P_drops_zdr = sbmradar_index_table( PARAM_drops_zdr , idomain ) END IF sbmradar_boundary_table( idomain, P_drops_zdr ) = .FALSE. sbmradar_dname_table( idomain, P_drops_zdr ) = 'Drops_zdr' sbmradar_desc_table( idomain, P_drops_zdr ) = 'Drops Differential Refl.' sbmradar_units_table( idomain, P_drops_zdr ) = 'dBZ' sbmradar_streams_table( idomain, P_drops_zdr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_drops_zdr )%stream(2) = 2097152 ! 00200000 F_drops_zdr = .TRUE. IF ( sbmradar_index_table( PARAM_drops_ldr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_drops_ldr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_drops_ldr , idomain ) = P_drops_ldr ELSE P_drops_ldr = sbmradar_index_table( PARAM_drops_ldr , idomain ) END IF sbmradar_boundary_table( idomain, P_drops_ldr ) = .FALSE. sbmradar_dname_table( idomain, P_drops_ldr ) = 'Drops_ldr' sbmradar_desc_table( idomain, P_drops_ldr ) = 'Drops Linear Differntial Refl.' sbmradar_units_table( idomain, P_drops_ldr ) = 'dBz' sbmradar_streams_table( idomain, P_drops_ldr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_drops_ldr )%stream(2) = 2097152 ! 00200000 F_drops_ldr = .TRUE. IF ( sbmradar_index_table( PARAM_drops_kdp , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_drops_kdp = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_drops_kdp , idomain ) = P_drops_kdp ELSE P_drops_kdp = sbmradar_index_table( PARAM_drops_kdp , idomain ) END IF sbmradar_boundary_table( idomain, P_drops_kdp ) = .FALSE. sbmradar_dname_table( idomain, P_drops_kdp ) = 'Drops_kdp' sbmradar_desc_table( idomain, P_drops_kdp ) = 'Drops KDP' sbmradar_units_table( idomain, P_drops_kdp ) = 'deg km^-1' sbmradar_streams_table( idomain, P_drops_kdp )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_drops_kdp )%stream(2) = 2097152 ! 00200000 F_drops_kdp = .TRUE. IF ( sbmradar_index_table( PARAM_drops_crs , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_drops_crs = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_drops_crs , idomain ) = P_drops_crs ELSE P_drops_crs = sbmradar_index_table( PARAM_drops_crs , idomain ) END IF sbmradar_boundary_table( idomain, P_drops_crs ) = .FALSE. sbmradar_dname_table( idomain, P_drops_crs ) = 'Drops_crs' sbmradar_desc_table( idomain, P_drops_crs ) = 'Drops Cross-Correlation' sbmradar_units_table( idomain, P_drops_crs ) = ' ' sbmradar_streams_table( idomain, P_drops_crs )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_drops_crs )%stream(2) = 2097152 ! 00200000 F_drops_crs = .TRUE. IF ( sbmradar_index_table( PARAM_hail_zh , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_hail_zh = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_hail_zh , idomain ) = P_hail_zh ELSE P_hail_zh = sbmradar_index_table( PARAM_hail_zh , idomain ) END IF sbmradar_boundary_table( idomain, P_hail_zh ) = .FALSE. sbmradar_dname_table( idomain, P_hail_zh ) = 'Hail_zh' sbmradar_desc_table( idomain, P_hail_zh ) = 'Hail Horizontal Refl.' sbmradar_units_table( idomain, P_hail_zh ) = 'dBZ' sbmradar_streams_table( idomain, P_hail_zh )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_hail_zh )%stream(2) = 2097152 ! 00200000 F_hail_zh = .TRUE. IF ( sbmradar_index_table( PARAM_hail_zv , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_hail_zv = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_hail_zv , idomain ) = P_hail_zv ELSE P_hail_zv = sbmradar_index_table( PARAM_hail_zv , idomain ) END IF sbmradar_boundary_table( idomain, P_hail_zv ) = .FALSE. sbmradar_dname_table( idomain, P_hail_zv ) = 'Hail_zv' sbmradar_desc_table( idomain, P_hail_zv ) = 'Hail Vertical Refl.' sbmradar_units_table( idomain, P_hail_zv ) = 'dBZ' sbmradar_streams_table( idomain, P_hail_zv )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_hail_zv )%stream(2) = 2097152 ! 00200000 F_hail_zv = .TRUE. IF ( sbmradar_index_table( PARAM_hail_zdr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_hail_zdr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_hail_zdr , idomain ) = P_hail_zdr ELSE P_hail_zdr = sbmradar_index_table( PARAM_hail_zdr , idomain ) END IF sbmradar_boundary_table( idomain, P_hail_zdr ) = .FALSE. sbmradar_dname_table( idomain, P_hail_zdr ) = 'Hail_zdr' sbmradar_desc_table( idomain, P_hail_zdr ) = 'Hail Differential Refl.' sbmradar_units_table( idomain, P_hail_zdr ) = 'dBZ' sbmradar_streams_table( idomain, P_hail_zdr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_hail_zdr )%stream(2) = 2097152 ! 00200000 F_hail_zdr = .TRUE. IF ( sbmradar_index_table( PARAM_hail_ldr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_hail_ldr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_hail_ldr , idomain ) = P_hail_ldr ELSE P_hail_ldr = sbmradar_index_table( PARAM_hail_ldr , idomain ) END IF sbmradar_boundary_table( idomain, P_hail_ldr ) = .FALSE. sbmradar_dname_table( idomain, P_hail_ldr ) = 'Hail_ldr' sbmradar_desc_table( idomain, P_hail_ldr ) = 'Hail Linear Differntial Refl.' sbmradar_units_table( idomain, P_hail_ldr ) = 'dB' sbmradar_streams_table( idomain, P_hail_ldr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_hail_ldr )%stream(2) = 2097152 ! 00200000 F_hail_ldr = .TRUE. IF ( sbmradar_index_table( PARAM_hail_kdp , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_hail_kdp = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_hail_kdp , idomain ) = P_hail_kdp ELSE P_hail_kdp = sbmradar_index_table( PARAM_hail_kdp , idomain ) END IF sbmradar_boundary_table( idomain, P_hail_kdp ) = .FALSE. sbmradar_dname_table( idomain, P_hail_kdp ) = 'Hail_kdp' sbmradar_desc_table( idomain, P_hail_kdp ) = ' Hail KDP ' sbmradar_units_table( idomain, P_hail_kdp ) = 'deg km^-1' sbmradar_streams_table( idomain, P_hail_kdp )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_hail_kdp )%stream(2) = 2097152 ! 00200000 F_hail_kdp = .TRUE. IF ( sbmradar_index_table( PARAM_hail_crs , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_hail_crs = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_hail_crs , idomain ) = P_hail_crs ELSE P_hail_crs = sbmradar_index_table( PARAM_hail_crs , idomain ) END IF sbmradar_boundary_table( idomain, P_hail_crs ) = .FALSE. sbmradar_dname_table( idomain, P_hail_crs ) = 'Hail_crs' sbmradar_desc_table( idomain, P_hail_crs ) = 'Hail Cross-Correlation' sbmradar_units_table( idomain, P_hail_crs ) = ' ' sbmradar_streams_table( idomain, P_hail_crs )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_hail_crs )%stream(2) = 2097152 ! 00200000 F_hail_crs = .TRUE. IF ( sbmradar_index_table( PARAM_freezing_d_zh , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_freezing_d_zh = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_freezing_d_zh , idomain ) = P_freezing_d_zh ELSE P_freezing_d_zh = sbmradar_index_table( PARAM_freezing_d_zh , idomain ) END IF sbmradar_boundary_table( idomain, P_freezing_d_zh ) = .FALSE. sbmradar_dname_table( idomain, P_freezing_d_zh ) = 'Freezing_D_zh' sbmradar_desc_table( idomain, P_freezing_d_zh ) = 'F.Dx Horizontal Refl.' sbmradar_units_table( idomain, P_freezing_d_zh ) = 'dBZ' sbmradar_streams_table( idomain, P_freezing_d_zh )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_freezing_d_zh )%stream(2) = 2097152 ! 00200000 F_freezing_d_zh = .TRUE. IF ( sbmradar_index_table( PARAM_freezing_d_zv , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_freezing_d_zv = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_freezing_d_zv , idomain ) = P_freezing_d_zv ELSE P_freezing_d_zv = sbmradar_index_table( PARAM_freezing_d_zv , idomain ) END IF sbmradar_boundary_table( idomain, P_freezing_d_zv ) = .FALSE. sbmradar_dname_table( idomain, P_freezing_d_zv ) = 'Freezing_D_zv' sbmradar_desc_table( idomain, P_freezing_d_zv ) = 'F.Dx Vertical Refl.' sbmradar_units_table( idomain, P_freezing_d_zv ) = 'dBZ' sbmradar_streams_table( idomain, P_freezing_d_zv )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_freezing_d_zv )%stream(2) = 2097152 ! 00200000 F_freezing_d_zv = .TRUE. IF ( sbmradar_index_table( PARAM_freezing_d_zdr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_freezing_d_zdr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_freezing_d_zdr , idomain ) = P_freezing_d_zdr ELSE P_freezing_d_zdr = sbmradar_index_table( PARAM_freezing_d_zdr , idomain ) END IF sbmradar_boundary_table( idomain, P_freezing_d_zdr ) = .FALSE. sbmradar_dname_table( idomain, P_freezing_d_zdr ) = 'Freezing_D_zdr' sbmradar_desc_table( idomain, P_freezing_d_zdr ) = 'F.Dx Differential Refl.' sbmradar_units_table( idomain, P_freezing_d_zdr ) = 'dBZ' sbmradar_streams_table( idomain, P_freezing_d_zdr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_freezing_d_zdr )%stream(2) = 2097152 ! 00200000 F_freezing_d_zdr = .TRUE. IF ( sbmradar_index_table( PARAM_freezing_d_ldr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_freezing_d_ldr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_freezing_d_ldr , idomain ) = P_freezing_d_ldr ELSE P_freezing_d_ldr = sbmradar_index_table( PARAM_freezing_d_ldr , idomain ) END IF sbmradar_boundary_table( idomain, P_freezing_d_ldr ) = .FALSE. sbmradar_dname_table( idomain, P_freezing_d_ldr ) = 'Freezing_D_ldr' sbmradar_desc_table( idomain, P_freezing_d_ldr ) = 'F.Dx Linear Differntial Refl.' sbmradar_units_table( idomain, P_freezing_d_ldr ) = 'dB' sbmradar_streams_table( idomain, P_freezing_d_ldr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_freezing_d_ldr )%stream(2) = 2097152 ! 00200000 F_freezing_d_ldr = .TRUE. IF ( sbmradar_index_table( PARAM_freezing_d_kdp , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_freezing_d_kdp = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_freezing_d_kdp , idomain ) = P_freezing_d_kdp ELSE P_freezing_d_kdp = sbmradar_index_table( PARAM_freezing_d_kdp , idomain ) END IF sbmradar_boundary_table( idomain, P_freezing_d_kdp ) = .FALSE. sbmradar_dname_table( idomain, P_freezing_d_kdp ) = 'Freezing_D_kdp' sbmradar_desc_table( idomain, P_freezing_d_kdp ) = ' F.Dx KDP ' sbmradar_units_table( idomain, P_freezing_d_kdp ) = 'deg km^-1' sbmradar_streams_table( idomain, P_freezing_d_kdp )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_freezing_d_kdp )%stream(2) = 2097152 ! 00200000 F_freezing_d_kdp = .TRUE. IF ( sbmradar_index_table( PARAM_freezing_d_crs , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_freezing_d_crs = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_freezing_d_crs , idomain ) = P_freezing_d_crs ELSE P_freezing_d_crs = sbmradar_index_table( PARAM_freezing_d_crs , idomain ) END IF sbmradar_boundary_table( idomain, P_freezing_d_crs ) = .FALSE. sbmradar_dname_table( idomain, P_freezing_d_crs ) = 'Freezing_D_crs' sbmradar_desc_table( idomain, P_freezing_d_crs ) = 'F.Dx Cross-Correlation' sbmradar_units_table( idomain, P_freezing_d_crs ) = ' ' sbmradar_streams_table( idomain, P_freezing_d_crs )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_freezing_d_crs )%stream(2) = 2097152 ! 00200000 F_freezing_d_crs = .TRUE. IF ( sbmradar_index_table( PARAM_graupel_zh , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_graupel_zh = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_graupel_zh , idomain ) = P_graupel_zh ELSE P_graupel_zh = sbmradar_index_table( PARAM_graupel_zh , idomain ) END IF sbmradar_boundary_table( idomain, P_graupel_zh ) = .FALSE. sbmradar_dname_table( idomain, P_graupel_zh ) = 'Graupel_zh' sbmradar_desc_table( idomain, P_graupel_zh ) = 'Graupel Horizontal Refl.' sbmradar_units_table( idomain, P_graupel_zh ) = 'dBZ' sbmradar_streams_table( idomain, P_graupel_zh )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_graupel_zh )%stream(2) = 2097152 ! 00200000 F_graupel_zh = .TRUE. IF ( sbmradar_index_table( PARAM_graupel_zv , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_graupel_zv = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_graupel_zv , idomain ) = P_graupel_zv ELSE P_graupel_zv = sbmradar_index_table( PARAM_graupel_zv , idomain ) END IF sbmradar_boundary_table( idomain, P_graupel_zv ) = .FALSE. sbmradar_dname_table( idomain, P_graupel_zv ) = 'Graupel_zv' sbmradar_desc_table( idomain, P_graupel_zv ) = 'Graupel Vertical Refl.' sbmradar_units_table( idomain, P_graupel_zv ) = 'dBZ' sbmradar_streams_table( idomain, P_graupel_zv )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_graupel_zv )%stream(2) = 2097152 ! 00200000 F_graupel_zv = .TRUE. IF ( sbmradar_index_table( PARAM_graupel_zdr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_graupel_zdr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_graupel_zdr , idomain ) = P_graupel_zdr ELSE P_graupel_zdr = sbmradar_index_table( PARAM_graupel_zdr , idomain ) END IF sbmradar_boundary_table( idomain, P_graupel_zdr ) = .FALSE. sbmradar_dname_table( idomain, P_graupel_zdr ) = 'Graupel_zdr' sbmradar_desc_table( idomain, P_graupel_zdr ) = 'Graupel Differential Refl.' sbmradar_units_table( idomain, P_graupel_zdr ) = 'dBZ' sbmradar_streams_table( idomain, P_graupel_zdr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_graupel_zdr )%stream(2) = 2097152 ! 00200000 F_graupel_zdr = .TRUE. IF ( sbmradar_index_table( PARAM_graupel_ldr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_graupel_ldr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_graupel_ldr , idomain ) = P_graupel_ldr ELSE P_graupel_ldr = sbmradar_index_table( PARAM_graupel_ldr , idomain ) END IF sbmradar_boundary_table( idomain, P_graupel_ldr ) = .FALSE. sbmradar_dname_table( idomain, P_graupel_ldr ) = 'Graupel_ldr' sbmradar_desc_table( idomain, P_graupel_ldr ) = 'Graupel Linear Differntial Refl.' sbmradar_units_table( idomain, P_graupel_ldr ) = 'dB' sbmradar_streams_table( idomain, P_graupel_ldr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_graupel_ldr )%stream(2) = 2097152 ! 00200000 F_graupel_ldr = .TRUE. IF ( sbmradar_index_table( PARAM_graupel_kdp , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_graupel_kdp = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_graupel_kdp , idomain ) = P_graupel_kdp ELSE P_graupel_kdp = sbmradar_index_table( PARAM_graupel_kdp , idomain ) END IF sbmradar_boundary_table( idomain, P_graupel_kdp ) = .FALSE. sbmradar_dname_table( idomain, P_graupel_kdp ) = 'Graupel_kdp' sbmradar_desc_table( idomain, P_graupel_kdp ) = ' Graupel KDP ' sbmradar_units_table( idomain, P_graupel_kdp ) = 'deg km^-1' sbmradar_streams_table( idomain, P_graupel_kdp )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_graupel_kdp )%stream(2) = 2097152 ! 00200000 F_graupel_kdp = .TRUE. IF ( sbmradar_index_table( PARAM_graupel_crs , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_graupel_crs = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_graupel_crs , idomain ) = P_graupel_crs ELSE P_graupel_crs = sbmradar_index_table( PARAM_graupel_crs , idomain ) END IF sbmradar_boundary_table( idomain, P_graupel_crs ) = .FALSE. sbmradar_dname_table( idomain, P_graupel_crs ) = 'Graupel_crs' sbmradar_desc_table( idomain, P_graupel_crs ) = 'Graupel Cross-Correlation' sbmradar_units_table( idomain, P_graupel_crs ) = ' ' sbmradar_streams_table( idomain, P_graupel_crs )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_graupel_crs )%stream(2) = 2097152 ! 00200000 F_graupel_crs = .TRUE. IF ( sbmradar_index_table( PARAM_plates_zh , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_plates_zh = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_plates_zh , idomain ) = P_plates_zh ELSE P_plates_zh = sbmradar_index_table( PARAM_plates_zh , idomain ) END IF sbmradar_boundary_table( idomain, P_plates_zh ) = .FALSE. sbmradar_dname_table( idomain, P_plates_zh ) = 'Plates_zh' sbmradar_desc_table( idomain, P_plates_zh ) = 'Plates Horizontal Refl.' sbmradar_units_table( idomain, P_plates_zh ) = 'dBZ' sbmradar_streams_table( idomain, P_plates_zh )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_plates_zh )%stream(2) = 2097152 ! 00200000 F_plates_zh = .TRUE. IF ( sbmradar_index_table( PARAM_plates_zv , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_plates_zv = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_plates_zv , idomain ) = P_plates_zv ELSE P_plates_zv = sbmradar_index_table( PARAM_plates_zv , idomain ) END IF sbmradar_boundary_table( idomain, P_plates_zv ) = .FALSE. sbmradar_dname_table( idomain, P_plates_zv ) = 'Plates_zv' sbmradar_desc_table( idomain, P_plates_zv ) = 'Plates Vertical Refl.' sbmradar_units_table( idomain, P_plates_zv ) = 'dBZ' sbmradar_streams_table( idomain, P_plates_zv )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_plates_zv )%stream(2) = 2097152 ! 00200000 F_plates_zv = .TRUE. IF ( sbmradar_index_table( PARAM_plates_zdr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_plates_zdr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_plates_zdr , idomain ) = P_plates_zdr ELSE P_plates_zdr = sbmradar_index_table( PARAM_plates_zdr , idomain ) END IF sbmradar_boundary_table( idomain, P_plates_zdr ) = .FALSE. sbmradar_dname_table( idomain, P_plates_zdr ) = 'Plates_zdr' sbmradar_desc_table( idomain, P_plates_zdr ) = 'Plates Differential Refl.' sbmradar_units_table( idomain, P_plates_zdr ) = 'dBZ' sbmradar_streams_table( idomain, P_plates_zdr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_plates_zdr )%stream(2) = 2097152 ! 00200000 F_plates_zdr = .TRUE. IF ( sbmradar_index_table( PARAM_plates_ldr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_plates_ldr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_plates_ldr , idomain ) = P_plates_ldr ELSE P_plates_ldr = sbmradar_index_table( PARAM_plates_ldr , idomain ) END IF sbmradar_boundary_table( idomain, P_plates_ldr ) = .FALSE. sbmradar_dname_table( idomain, P_plates_ldr ) = 'Plates_ldr' sbmradar_desc_table( idomain, P_plates_ldr ) = 'Plates Linear Differntial Refl.' sbmradar_units_table( idomain, P_plates_ldr ) = 'dB' sbmradar_streams_table( idomain, P_plates_ldr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_plates_ldr )%stream(2) = 2097152 ! 00200000 F_plates_ldr = .TRUE. IF ( sbmradar_index_table( PARAM_plates_kdp , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_plates_kdp = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_plates_kdp , idomain ) = P_plates_kdp ELSE P_plates_kdp = sbmradar_index_table( PARAM_plates_kdp , idomain ) END IF sbmradar_boundary_table( idomain, P_plates_kdp ) = .FALSE. sbmradar_dname_table( idomain, P_plates_kdp ) = 'Plates_kdp' sbmradar_desc_table( idomain, P_plates_kdp ) = ' Plates KDP ' sbmradar_units_table( idomain, P_plates_kdp ) = 'deg km^-1' sbmradar_streams_table( idomain, P_plates_kdp )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_plates_kdp )%stream(2) = 2097152 ! 00200000 F_plates_kdp = .TRUE. IF ( sbmradar_index_table( PARAM_plates_crs , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_plates_crs = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_plates_crs , idomain ) = P_plates_crs ELSE P_plates_crs = sbmradar_index_table( PARAM_plates_crs , idomain ) END IF sbmradar_boundary_table( idomain, P_plates_crs ) = .FALSE. sbmradar_dname_table( idomain, P_plates_crs ) = 'Plates_crs' sbmradar_desc_table( idomain, P_plates_crs ) = 'Plates Cross-Correlation' sbmradar_units_table( idomain, P_plates_crs ) = ' ' sbmradar_streams_table( idomain, P_plates_crs )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_plates_crs )%stream(2) = 2097152 ! 00200000 F_plates_crs = .TRUE. IF ( sbmradar_index_table( PARAM_dendrites_zh , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_dendrites_zh = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_dendrites_zh , idomain ) = P_dendrites_zh ELSE P_dendrites_zh = sbmradar_index_table( PARAM_dendrites_zh , idomain ) END IF sbmradar_boundary_table( idomain, P_dendrites_zh ) = .FALSE. sbmradar_dname_table( idomain, P_dendrites_zh ) = 'Dendrites_zh' sbmradar_desc_table( idomain, P_dendrites_zh ) = 'Dendrites Horizontal Refl.' sbmradar_units_table( idomain, P_dendrites_zh ) = 'dBZ' sbmradar_streams_table( idomain, P_dendrites_zh )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_dendrites_zh )%stream(2) = 2097152 ! 00200000 F_dendrites_zh = .TRUE. IF ( sbmradar_index_table( PARAM_dendrites_zv , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_dendrites_zv = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_dendrites_zv , idomain ) = P_dendrites_zv ELSE P_dendrites_zv = sbmradar_index_table( PARAM_dendrites_zv , idomain ) END IF sbmradar_boundary_table( idomain, P_dendrites_zv ) = .FALSE. sbmradar_dname_table( idomain, P_dendrites_zv ) = 'Dendrites_zv' sbmradar_desc_table( idomain, P_dendrites_zv ) = 'Dendrites Vertical Refl.' sbmradar_units_table( idomain, P_dendrites_zv ) = 'dBZ' sbmradar_streams_table( idomain, P_dendrites_zv )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_dendrites_zv )%stream(2) = 2097152 ! 00200000 F_dendrites_zv = .TRUE. IF ( sbmradar_index_table( PARAM_dendrites_zdr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_dendrites_zdr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_dendrites_zdr , idomain ) = P_dendrites_zdr ELSE P_dendrites_zdr = sbmradar_index_table( PARAM_dendrites_zdr , idomain ) END IF sbmradar_boundary_table( idomain, P_dendrites_zdr ) = .FALSE. sbmradar_dname_table( idomain, P_dendrites_zdr ) = 'Dendrites_zdr' sbmradar_desc_table( idomain, P_dendrites_zdr ) = 'Dendrites Differential Refl.' sbmradar_units_table( idomain, P_dendrites_zdr ) = 'dBZ' sbmradar_streams_table( idomain, P_dendrites_zdr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_dendrites_zdr )%stream(2) = 2097152 ! 00200000 F_dendrites_zdr = .TRUE. IF ( sbmradar_index_table( PARAM_dendrites_ldr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_dendrites_ldr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_dendrites_ldr , idomain ) = P_dendrites_ldr ELSE P_dendrites_ldr = sbmradar_index_table( PARAM_dendrites_ldr , idomain ) END IF sbmradar_boundary_table( idomain, P_dendrites_ldr ) = .FALSE. sbmradar_dname_table( idomain, P_dendrites_ldr ) = 'Dendrites_ldr' sbmradar_desc_table( idomain, P_dendrites_ldr ) = 'Dendrites Linear Differntial Refl.' sbmradar_units_table( idomain, P_dendrites_ldr ) = 'dB' sbmradar_streams_table( idomain, P_dendrites_ldr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_dendrites_ldr )%stream(2) = 2097152 ! 00200000 F_dendrites_ldr = .TRUE. IF ( sbmradar_index_table( PARAM_dendrites_kdp , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_dendrites_kdp = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_dendrites_kdp , idomain ) = P_dendrites_kdp ELSE P_dendrites_kdp = sbmradar_index_table( PARAM_dendrites_kdp , idomain ) END IF sbmradar_boundary_table( idomain, P_dendrites_kdp ) = .FALSE. sbmradar_dname_table( idomain, P_dendrites_kdp ) = 'Dendrites_kdp' sbmradar_desc_table( idomain, P_dendrites_kdp ) = ' Dendrites KDP ' sbmradar_units_table( idomain, P_dendrites_kdp ) = 'deg km^-1' sbmradar_streams_table( idomain, P_dendrites_kdp )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_dendrites_kdp )%stream(2) = 2097152 ! 00200000 F_dendrites_kdp = .TRUE. IF ( sbmradar_index_table( PARAM_dendrites_crs , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_dendrites_crs = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_dendrites_crs , idomain ) = P_dendrites_crs ELSE P_dendrites_crs = sbmradar_index_table( PARAM_dendrites_crs , idomain ) END IF sbmradar_boundary_table( idomain, P_dendrites_crs ) = .FALSE. sbmradar_dname_table( idomain, P_dendrites_crs ) = 'Dendrites_crs' sbmradar_desc_table( idomain, P_dendrites_crs ) = 'Dendrites Cross-Correlation' sbmradar_units_table( idomain, P_dendrites_crs ) = ' ' sbmradar_streams_table( idomain, P_dendrites_crs )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_dendrites_crs )%stream(2) = 2097152 ! 00200000 F_dendrites_crs = .TRUE. IF ( sbmradar_index_table( PARAM_snow_zh , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_snow_zh = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_snow_zh , idomain ) = P_snow_zh ELSE P_snow_zh = sbmradar_index_table( PARAM_snow_zh , idomain ) END IF sbmradar_boundary_table( idomain, P_snow_zh ) = .FALSE. sbmradar_dname_table( idomain, P_snow_zh ) = 'Snow_zh' sbmradar_desc_table( idomain, P_snow_zh ) = 'Snow Horizontal Refl.' sbmradar_units_table( idomain, P_snow_zh ) = 'dBZ' sbmradar_streams_table( idomain, P_snow_zh )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_snow_zh )%stream(2) = 2097152 ! 00200000 F_snow_zh = .TRUE. IF ( sbmradar_index_table( PARAM_snow_zv , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_snow_zv = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_snow_zv , idomain ) = P_snow_zv ELSE P_snow_zv = sbmradar_index_table( PARAM_snow_zv , idomain ) END IF sbmradar_boundary_table( idomain, P_snow_zv ) = .FALSE. sbmradar_dname_table( idomain, P_snow_zv ) = 'Snow_zv' sbmradar_desc_table( idomain, P_snow_zv ) = 'Snow Vertical Refl.' sbmradar_units_table( idomain, P_snow_zv ) = 'dBZ' sbmradar_streams_table( idomain, P_snow_zv )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_snow_zv )%stream(2) = 2097152 ! 00200000 F_snow_zv = .TRUE. IF ( sbmradar_index_table( PARAM_snow_zdr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_snow_zdr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_snow_zdr , idomain ) = P_snow_zdr ELSE P_snow_zdr = sbmradar_index_table( PARAM_snow_zdr , idomain ) END IF sbmradar_boundary_table( idomain, P_snow_zdr ) = .FALSE. sbmradar_dname_table( idomain, P_snow_zdr ) = 'Snow_zdr' sbmradar_desc_table( idomain, P_snow_zdr ) = 'Snow Differential Refl.' sbmradar_units_table( idomain, P_snow_zdr ) = 'dBZ' sbmradar_streams_table( idomain, P_snow_zdr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_snow_zdr )%stream(2) = 2097152 ! 00200000 F_snow_zdr = .TRUE. IF ( sbmradar_index_table( PARAM_snow_ldr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_snow_ldr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_snow_ldr , idomain ) = P_snow_ldr ELSE P_snow_ldr = sbmradar_index_table( PARAM_snow_ldr , idomain ) END IF sbmradar_boundary_table( idomain, P_snow_ldr ) = .FALSE. sbmradar_dname_table( idomain, P_snow_ldr ) = 'Snow_ldr' sbmradar_desc_table( idomain, P_snow_ldr ) = 'Snow Linear Differntial Refl.' sbmradar_units_table( idomain, P_snow_ldr ) = 'dB' sbmradar_streams_table( idomain, P_snow_ldr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_snow_ldr )%stream(2) = 2097152 ! 00200000 F_snow_ldr = .TRUE. IF ( sbmradar_index_table( PARAM_snow_kdp , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_snow_kdp = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_snow_kdp , idomain ) = P_snow_kdp ELSE P_snow_kdp = sbmradar_index_table( PARAM_snow_kdp , idomain ) END IF sbmradar_boundary_table( idomain, P_snow_kdp ) = .FALSE. sbmradar_dname_table( idomain, P_snow_kdp ) = 'Snow_kdp' sbmradar_desc_table( idomain, P_snow_kdp ) = ' Snow KDP ' sbmradar_units_table( idomain, P_snow_kdp ) = 'deg km^-1' sbmradar_streams_table( idomain, P_snow_kdp )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_snow_kdp )%stream(2) = 2097152 ! 00200000 F_snow_kdp = .TRUE. IF ( sbmradar_index_table( PARAM_snow_crs , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_snow_crs = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_snow_crs , idomain ) = P_snow_crs ELSE P_snow_crs = sbmradar_index_table( PARAM_snow_crs , idomain ) END IF sbmradar_boundary_table( idomain, P_snow_crs ) = .FALSE. sbmradar_dname_table( idomain, P_snow_crs ) = 'Snow_crs' sbmradar_desc_table( idomain, P_snow_crs ) = 'Snow Cross-Correlation' sbmradar_units_table( idomain, P_snow_crs ) = ' ' sbmradar_streams_table( idomain, P_snow_crs )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_snow_crs )%stream(2) = 2097152 ! 00200000 F_snow_crs = .TRUE. IF ( sbmradar_index_table( PARAM_columns_zh , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_columns_zh = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_columns_zh , idomain ) = P_columns_zh ELSE P_columns_zh = sbmradar_index_table( PARAM_columns_zh , idomain ) END IF sbmradar_boundary_table( idomain, P_columns_zh ) = .FALSE. sbmradar_dname_table( idomain, P_columns_zh ) = 'Columns_zh' sbmradar_desc_table( idomain, P_columns_zh ) = 'Columns Horizontal Refl.' sbmradar_units_table( idomain, P_columns_zh ) = 'dBZ' sbmradar_streams_table( idomain, P_columns_zh )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_columns_zh )%stream(2) = 2097152 ! 00200000 F_columns_zh = .TRUE. IF ( sbmradar_index_table( PARAM_columns_zv , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_columns_zv = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_columns_zv , idomain ) = P_columns_zv ELSE P_columns_zv = sbmradar_index_table( PARAM_columns_zv , idomain ) END IF sbmradar_boundary_table( idomain, P_columns_zv ) = .FALSE. sbmradar_dname_table( idomain, P_columns_zv ) = 'Columns_zv' sbmradar_desc_table( idomain, P_columns_zv ) = 'Columns Vertical Refl.' sbmradar_units_table( idomain, P_columns_zv ) = 'dBZ' sbmradar_streams_table( idomain, P_columns_zv )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_columns_zv )%stream(2) = 2097152 ! 00200000 F_columns_zv = .TRUE. IF ( sbmradar_index_table( PARAM_columns_zdr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_columns_zdr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_columns_zdr , idomain ) = P_columns_zdr ELSE P_columns_zdr = sbmradar_index_table( PARAM_columns_zdr , idomain ) END IF sbmradar_boundary_table( idomain, P_columns_zdr ) = .FALSE. sbmradar_dname_table( idomain, P_columns_zdr ) = 'Columns_zdr' sbmradar_desc_table( idomain, P_columns_zdr ) = 'Columns Differential Refl.' sbmradar_units_table( idomain, P_columns_zdr ) = 'dBZ' sbmradar_streams_table( idomain, P_columns_zdr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_columns_zdr )%stream(2) = 2097152 ! 00200000 F_columns_zdr = .TRUE. IF ( sbmradar_index_table( PARAM_columns_ldr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_columns_ldr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_columns_ldr , idomain ) = P_columns_ldr ELSE P_columns_ldr = sbmradar_index_table( PARAM_columns_ldr , idomain ) END IF sbmradar_boundary_table( idomain, P_columns_ldr ) = .FALSE. sbmradar_dname_table( idomain, P_columns_ldr ) = 'Columns_ldr' sbmradar_desc_table( idomain, P_columns_ldr ) = 'Columns Linear Differntial Refl.' sbmradar_units_table( idomain, P_columns_ldr ) = 'dB' sbmradar_streams_table( idomain, P_columns_ldr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_columns_ldr )%stream(2) = 2097152 ! 00200000 F_columns_ldr = .TRUE. IF ( sbmradar_index_table( PARAM_columns_kdp , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_columns_kdp = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_columns_kdp , idomain ) = P_columns_kdp ELSE P_columns_kdp = sbmradar_index_table( PARAM_columns_kdp , idomain ) END IF sbmradar_boundary_table( idomain, P_columns_kdp ) = .FALSE. sbmradar_dname_table( idomain, P_columns_kdp ) = 'Columns_kdp' sbmradar_desc_table( idomain, P_columns_kdp ) = ' Columns KDP ' sbmradar_units_table( idomain, P_columns_kdp ) = 'deg km^-1' sbmradar_streams_table( idomain, P_columns_kdp )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_columns_kdp )%stream(2) = 2097152 ! 00200000 F_columns_kdp = .TRUE. IF ( sbmradar_index_table( PARAM_columns_crs , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_columns_crs = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_columns_crs , idomain ) = P_columns_crs ELSE P_columns_crs = sbmradar_index_table( PARAM_columns_crs , idomain ) END IF sbmradar_boundary_table( idomain, P_columns_crs ) = .FALSE. sbmradar_dname_table( idomain, P_columns_crs ) = 'Columns_crs' sbmradar_desc_table( idomain, P_columns_crs ) = 'Columns Cross-Correlation' sbmradar_units_table( idomain, P_columns_crs ) = ' ' sbmradar_streams_table( idomain, P_columns_crs )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_columns_crs )%stream(2) = 2097152 ! 00200000 F_columns_crs = .TRUE. IF ( sbmradar_index_table( PARAM_total_zh , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_total_zh = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_total_zh , idomain ) = P_total_zh ELSE P_total_zh = sbmradar_index_table( PARAM_total_zh , idomain ) END IF sbmradar_boundary_table( idomain, P_total_zh ) = .FALSE. sbmradar_dname_table( idomain, P_total_zh ) = 'Total_zh' sbmradar_desc_table( idomain, P_total_zh ) = 'Total Horizontal Refl.' sbmradar_units_table( idomain, P_total_zh ) = 'dBZ' sbmradar_streams_table( idomain, P_total_zh )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_total_zh )%stream(2) = 2097152 ! 00200000 F_total_zh = .TRUE. IF ( sbmradar_index_table( PARAM_total_zv , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_total_zv = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_total_zv , idomain ) = P_total_zv ELSE P_total_zv = sbmradar_index_table( PARAM_total_zv , idomain ) END IF sbmradar_boundary_table( idomain, P_total_zv ) = .FALSE. sbmradar_dname_table( idomain, P_total_zv ) = 'Total_zv' sbmradar_desc_table( idomain, P_total_zv ) = 'Total Vertical Refl.' sbmradar_units_table( idomain, P_total_zv ) = 'dBZ' sbmradar_streams_table( idomain, P_total_zv )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_total_zv )%stream(2) = 2097152 ! 00200000 F_total_zv = .TRUE. IF ( sbmradar_index_table( PARAM_total_zdr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_total_zdr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_total_zdr , idomain ) = P_total_zdr ELSE P_total_zdr = sbmradar_index_table( PARAM_total_zdr , idomain ) END IF sbmradar_boundary_table( idomain, P_total_zdr ) = .FALSE. sbmradar_dname_table( idomain, P_total_zdr ) = 'Total_zdr' sbmradar_desc_table( idomain, P_total_zdr ) = 'Total Differential Refl.' sbmradar_units_table( idomain, P_total_zdr ) = 'dBZ' sbmradar_streams_table( idomain, P_total_zdr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_total_zdr )%stream(2) = 2097152 ! 00200000 F_total_zdr = .TRUE. IF ( sbmradar_index_table( PARAM_total_ldr , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_total_ldr = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_total_ldr , idomain ) = P_total_ldr ELSE P_total_ldr = sbmradar_index_table( PARAM_total_ldr , idomain ) END IF sbmradar_boundary_table( idomain, P_total_ldr ) = .FALSE. sbmradar_dname_table( idomain, P_total_ldr ) = 'Total_ldr' sbmradar_desc_table( idomain, P_total_ldr ) = 'Total Linear Differntial Refl.' sbmradar_units_table( idomain, P_total_ldr ) = 'dB' sbmradar_streams_table( idomain, P_total_ldr )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_total_ldr )%stream(2) = 2097152 ! 00200000 F_total_ldr = .TRUE. IF ( sbmradar_index_table( PARAM_total_kdp , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_total_kdp = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_total_kdp , idomain ) = P_total_kdp ELSE P_total_kdp = sbmradar_index_table( PARAM_total_kdp , idomain ) END IF sbmradar_boundary_table( idomain, P_total_kdp ) = .FALSE. sbmradar_dname_table( idomain, P_total_kdp ) = 'Total_kdp' sbmradar_desc_table( idomain, P_total_kdp ) = ' Total KDP ' sbmradar_units_table( idomain, P_total_kdp ) = 'deg km^-1' sbmradar_streams_table( idomain, P_total_kdp )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_total_kdp )%stream(2) = 2097152 ! 00200000 F_total_kdp = .TRUE. IF ( sbmradar_index_table( PARAM_total_crs , idomain ) .lt. 1 ) THEN sbmradar_num_table(idomain) = sbmradar_num_table(idomain) + 1 P_total_crs = sbmradar_num_table(idomain) sbmradar_index_table( PARAM_total_crs , idomain ) = P_total_crs ELSE P_total_crs = sbmradar_index_table( PARAM_total_crs , idomain ) END IF sbmradar_boundary_table( idomain, P_total_crs ) = .FALSE. sbmradar_dname_table( idomain, P_total_crs ) = 'Total_crs' sbmradar_desc_table( idomain, P_total_crs ) = 'Total Cross-Correlation' sbmradar_units_table( idomain, P_total_crs ) = ' ' sbmradar_streams_table( idomain, P_total_crs )%stream(1) = 9 ! 00000009 sbmradar_streams_table( idomain, P_total_crs )%stream(2) = 2097152 ! 00200000 F_total_crs = .TRUE. 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%wif_input_opt==1)THEN END IF IF (model_config_rec%diag_nwp2==0)THEN END IF IF (model_config_rec%diag_nwp2==1)THEN END IF IF (model_config_rec%solar_diagnostics==0)THEN END IF IF (model_config_rec%solar_diagnostics==1)THEN 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%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 ) = 'Dimensionless' tracer_streams_table( idomain, P_tr17_1 )%stream(1) = 33554433 ! 02000001 tracer_streams_table( idomain, P_tr17_1 )%stream(2) = 2097152 ! 00200000 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 ) = 'Dimensionless' tracer_streams_table( idomain, P_tr17_2 )%stream(1) = 33554433 ! 02000001 tracer_streams_table( idomain, P_tr17_2 )%stream(2) = 2097152 ! 00200000 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 ) = 'Dimensionless' tracer_streams_table( idomain, P_tr17_3 )%stream(1) = 33554433 ! 02000001 tracer_streams_table( idomain, P_tr17_3 )%stream(2) = 2097152 ! 00200000 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 ) = 'Dimensionless' tracer_streams_table( idomain, P_tr17_4 )%stream(1) = 33554433 ! 02000001 tracer_streams_table( idomain, P_tr17_4 )%stream(2) = 2097152 ! 00200000 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 ) = 'Dimensionless' tracer_streams_table( idomain, P_tr17_5 )%stream(1) = 33554433 ! 02000001 tracer_streams_table( idomain, P_tr17_5 )%stream(2) = 2097152 ! 00200000 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 ) = 'Dimensionless' tracer_streams_table( idomain, P_tr17_6 )%stream(1) = 33554433 ! 02000001 tracer_streams_table( idomain, P_tr17_6 )%stream(2) = 2097152 ! 00200000 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 ) = 'Dimensionless' tracer_streams_table( idomain, P_tr17_7 )%stream(1) = 33554433 ! 02000001 tracer_streams_table( idomain, P_tr17_7 )%stream(2) = 2097152 ! 00200000 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 ) = 'Dimensionless' tracer_streams_table( idomain, P_tr17_8 )%stream(1) = 33554433 ! 02000001 tracer_streams_table( idomain, P_tr17_8 )%stream(2) = 2097152 ! 00200000 F_tr17_8 = .TRUE. 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