!STARTOFREGISTRYGENERATEDINCLUDE 'inc/scalar_indices.inc' ! ! WARNING This file is generated automatically by use_registry ! using the data base in the file named Registry. ! Do not edit. Your changes to this file will be lost. ! P_qv = 1 ; F_qv = .FALSE. P_qc = 1 ; F_qc = .FALSE. P_qr = 1 ; F_qr = .FALSE. P_qi = 1 ; F_qi = .FALSE. P_qs = 1 ; F_qs = .FALSE. P_qg = 1 ; F_qg = .FALSE. P_qh = 1 ; F_qh = .FALSE. P_dfi_qv = 1 ; F_dfi_qv = .FALSE. P_dfi_qc = 1 ; F_dfi_qc = .FALSE. P_dfi_qr = 1 ; F_dfi_qr = .FALSE. P_dfi_qi = 1 ; F_dfi_qi = .FALSE. P_dfi_qs = 1 ; F_dfi_qs = .FALSE. P_dfi_qg = 1 ; F_dfi_qg = .FALSE. P_dfi_qh = 1 ; F_dfi_qh = .FALSE. P_qndrop = 1 ; F_qndrop = .FALSE. P_qni = 1 ; F_qni = .FALSE. P_qt = 1 ; F_qt = .FALSE. P_qns = 1 ; F_qns = .FALSE. P_qnr = 1 ; F_qnr = .FALSE. P_qng = 1 ; F_qng = .FALSE. P_qnh = 1 ; F_qnh = .FALSE. P_qnn = 1 ; F_qnn = .FALSE. P_qnc = 1 ; F_qnc = .FALSE. P_qvolg = 1 ; F_qvolg = .FALSE. P_qke_adv = 1 ; F_qke_adv = .FALSE. P_dfi_qndrop = 1 ; F_dfi_qndrop = .FALSE. P_dfi_qni = 1 ; F_dfi_qni = .FALSE. P_dfi_qt = 1 ; F_dfi_qt = .FALSE. P_dfi_qns = 1 ; F_dfi_qns = .FALSE. P_dfi_qnr = 1 ; F_dfi_qnr = .FALSE. P_dfi_qng = 1 ; F_dfi_qng = .FALSE. P_dfi_qnh = 1 ; F_dfi_qnh = .FALSE. P_dfi_qnn = 1 ; F_dfi_qnn = .FALSE. P_dfi_qnc = 1 ; F_dfi_qnc = .FALSE. P_dfi_qvolg = 1 ; F_dfi_qvolg = .FALSE. P_ocarbon = 1 ; F_ocarbon = .FALSE. P_seasalt = 1 ; F_seasalt = .FALSE. P_dust = 1 ; F_dust = .FALSE. P_bcarbon = 1 ; F_bcarbon = .FALSE. P_sulfate = 1 ; F_sulfate = .FALSE. P_upperaer = 1 ; F_upperaer = .FALSE. P_mth01 = 1 ; F_mth01 = .FALSE. P_mth02 = 1 ; F_mth02 = .FALSE. P_mth03 = 1 ; F_mth03 = .FALSE. P_mth04 = 1 ; F_mth04 = .FALSE. P_mth05 = 1 ; F_mth05 = .FALSE. P_mth06 = 1 ; F_mth06 = .FALSE. P_mth07 = 1 ; F_mth07 = .FALSE. P_mth08 = 1 ; F_mth08 = .FALSE. P_mth09 = 1 ; F_mth09 = .FALSE. P_mth10 = 1 ; F_mth10 = .FALSE. P_mth11 = 1 ; F_mth11 = .FALSE. P_mth12 = 1 ; F_mth12 = .FALSE. P_sul = 1 ; F_sul = .FALSE. P_sslt = 1 ; F_sslt = .FALSE. P_dust1 = 1 ; F_dust1 = .FALSE. P_dust2 = 1 ; F_dust2 = .FALSE. P_dust3 = 1 ; F_dust3 = .FALSE. P_dust4 = 1 ; F_dust4 = .FALSE. P_ocpho = 1 ; F_ocpho = .FALSE. P_bcpho = 1 ; F_bcpho = .FALSE. P_ocphi = 1 ; F_ocphi = .FALSE. P_bcphi = 1 ; F_bcphi = .FALSE. P_bg = 1 ; F_bg = .FALSE. P_volc = 1 ; F_volc = .FALSE. P_u_ndg_new = 1 ; F_u_ndg_new = .FALSE. P_v_ndg_new = 1 ; F_v_ndg_new = .FALSE. P_t_ndg_new = 1 ; F_t_ndg_new = .FALSE. P_q_ndg_new = 1 ; F_q_ndg_new = .FALSE. P_ph_ndg_new = 1 ; F_ph_ndg_new = .FALSE. P_u_ndg_old = 1 ; F_u_ndg_old = .FALSE. P_v_ndg_old = 1 ; F_v_ndg_old = .FALSE. P_t_ndg_old = 1 ; F_t_ndg_old = .FALSE. P_q_ndg_old = 1 ; F_q_ndg_old = .FALSE. P_ph_ndg_old = 1 ; F_ph_ndg_old = .FALSE. P_mu_ndg_new = 1 ; F_mu_ndg_new = .FALSE. P_mu_ndg_old = 1 ; F_mu_ndg_old = .FALSE. P_advh_qv = 1 ; F_advh_qv = .FALSE. P_advz_qv = 1 ; F_advz_qv = .FALSE. P_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_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. IF (model_config_rec%mp_physics(idomain)==0)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==1)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==2)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==3)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==4)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==5)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_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)==6)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==7)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==8)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 ! 00200000 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==9)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( moist_index_table( PARAM_qh , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qh = moist_num_table(idomain) moist_index_table( PARAM_qh , idomain ) = P_qh ELSE P_qh = moist_index_table( PARAM_qh , idomain ) END IF moist_boundary_table( idomain, P_qh ) = .TRUE. moist_dname_table( idomain, P_qh ) = 'QHAIL' moist_desc_table( idomain, P_qh ) = 'Hail mixing ratio' moist_units_table( idomain, P_qh ) = 'kg kg-1' moist_streams_table( idomain, P_qh )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qh )%stream(2) = 2097152 ! 00200000 F_qh = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 ! 00200000 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 ! 00200000 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 ! 00200000 F_qns = .TRUE. IF ( scalar_index_table( PARAM_qng , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qng = scalar_num_table(idomain) scalar_index_table( PARAM_qng , idomain ) = P_qng ELSE P_qng = scalar_index_table( PARAM_qng , idomain ) END IF scalar_boundary_table( idomain, P_qng ) = .TRUE. scalar_dname_table( idomain, P_qng ) = 'QNGRAUPEL' scalar_desc_table( idomain, P_qng ) = 'Graupel Number concentration' scalar_units_table( idomain, P_qng ) = ' kg(-1)' scalar_streams_table( idomain, P_qng )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qng )%stream(2) = 2097152 ! 00200000 F_qng = .TRUE. IF ( scalar_index_table( PARAM_qnh , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnh = scalar_num_table(idomain) scalar_index_table( PARAM_qnh , idomain ) = P_qnh ELSE P_qnh = scalar_index_table( PARAM_qnh , idomain ) END IF scalar_boundary_table( idomain, P_qnh ) = .TRUE. scalar_dname_table( idomain, P_qnh ) = 'QNHAIL' scalar_desc_table( idomain, P_qnh ) = 'Hail Number concentration' scalar_units_table( idomain, P_qnh ) = ' kg(-1)' scalar_streams_table( idomain, P_qnh )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnh )%stream(2) = 2097152 ! 00200000 F_qnh = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==10)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 ! 00200000 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 ! 00200000 F_qns = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qng , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qng = scalar_num_table(idomain) scalar_index_table( PARAM_qng , idomain ) = P_qng ELSE P_qng = scalar_index_table( PARAM_qng , idomain ) END IF scalar_boundary_table( idomain, P_qng ) = .TRUE. scalar_dname_table( idomain, P_qng ) = 'QNGRAUPEL' scalar_desc_table( idomain, P_qng ) = 'Graupel Number concentration' scalar_units_table( idomain, P_qng ) = ' kg(-1)' scalar_streams_table( idomain, P_qng )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qng )%stream(2) = 2097152 ! 00200000 F_qng = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==11)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 ! 00200000 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 ! 00200000 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 ! 00200000 F_qns = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==13)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==14)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( scalar_index_table( PARAM_qnn , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnn = scalar_num_table(idomain) scalar_index_table( PARAM_qnn , idomain ) = P_qnn ELSE P_qnn = scalar_index_table( PARAM_qnn , idomain ) END IF scalar_boundary_table( idomain, P_qnn ) = .TRUE. scalar_dname_table( idomain, P_qnn ) = 'QNCCN' scalar_desc_table( idomain, P_qnn ) = 'CCN Number concentration' scalar_units_table( idomain, P_qnn ) = ' kg(-1)' scalar_streams_table( idomain, P_qnn )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnn )%stream(2) = 2097152 ! 00200000 F_qnn = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 ! 00200000 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==16)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( scalar_index_table( PARAM_qnn , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnn = scalar_num_table(idomain) scalar_index_table( PARAM_qnn , idomain ) = P_qnn ELSE P_qnn = scalar_index_table( PARAM_qnn , idomain ) END IF scalar_boundary_table( idomain, P_qnn ) = .TRUE. scalar_dname_table( idomain, P_qnn ) = 'QNCCN' scalar_desc_table( idomain, P_qnn ) = 'CCN Number concentration' scalar_units_table( idomain, P_qnn ) = ' kg(-1)' scalar_streams_table( idomain, P_qnn )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnn )%stream(2) = 2097152 ! 00200000 F_qnn = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 ! 00200000 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 ! 00200000 F_qnr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==17)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( moist_index_table( PARAM_qh , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qh = moist_num_table(idomain) moist_index_table( PARAM_qh , idomain ) = P_qh ELSE P_qh = moist_index_table( PARAM_qh , idomain ) END IF moist_boundary_table( idomain, P_qh ) = .TRUE. moist_dname_table( idomain, P_qh ) = 'QHAIL' moist_desc_table( idomain, P_qh ) = 'Hail mixing ratio' moist_units_table( idomain, P_qh ) = 'kg kg-1' moist_streams_table( idomain, P_qh )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qh )%stream(2) = 2097152 ! 00200000 F_qh = .TRUE. IF ( scalar_index_table( PARAM_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. 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)==18)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( moist_index_table( PARAM_qh , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qh = moist_num_table(idomain) moist_index_table( PARAM_qh , idomain ) = P_qh ELSE P_qh = moist_index_table( PARAM_qh , idomain ) END IF moist_boundary_table( idomain, P_qh ) = .TRUE. moist_dname_table( idomain, P_qh ) = 'QHAIL' moist_desc_table( idomain, P_qh ) = 'Hail mixing ratio' moist_units_table( idomain, P_qh ) = 'kg kg-1' moist_streams_table( idomain, P_qh )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qh )%stream(2) = 2097152 ! 00200000 F_qh = .TRUE. IF ( scalar_index_table( PARAM_qnn , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnn = scalar_num_table(idomain) scalar_index_table( PARAM_qnn , idomain ) = P_qnn ELSE P_qnn = scalar_index_table( PARAM_qnn , idomain ) END IF scalar_boundary_table( idomain, P_qnn ) = .TRUE. scalar_dname_table( idomain, P_qnn ) = 'QNCCN' scalar_desc_table( idomain, P_qnn ) = 'CCN Number concentration' scalar_units_table( idomain, P_qnn ) = ' kg(-1)' scalar_streams_table( idomain, P_qnn )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qnn )%stream(2) = 2097152 ! 00200000 F_qnn = .TRUE. IF ( scalar_index_table( PARAM_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. 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)==19)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. IF ( moist_index_table( PARAM_qh , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qh = moist_num_table(idomain) moist_index_table( PARAM_qh , idomain ) = P_qh ELSE P_qh = moist_index_table( PARAM_qh , idomain ) END IF moist_boundary_table( idomain, P_qh ) = .TRUE. moist_dname_table( idomain, P_qh ) = 'QHAIL' moist_desc_table( idomain, P_qh ) = 'Hail mixing ratio' moist_units_table( idomain, P_qh ) = 'kg kg-1' moist_streams_table( idomain, P_qh )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qh )%stream(2) = 2097152 ! 00200000 F_qh = .TRUE. IF ( scalar_index_table( PARAM_qvolg , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qvolg = scalar_num_table(idomain) scalar_index_table( PARAM_qvolg , idomain ) = P_qvolg ELSE P_qvolg = scalar_index_table( PARAM_qvolg , idomain ) END IF scalar_boundary_table( idomain, P_qvolg ) = .TRUE. scalar_dname_table( idomain, P_qvolg ) = 'QVGRAUPEL' scalar_desc_table( idomain, P_qvolg ) = 'Graupel Particle Volume' scalar_units_table( idomain, P_qvolg ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qvolg )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qvolg )%stream(2) = 2097152 ! 00200000 F_qvolg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==21)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 ! 00200000 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 ! 00200000 F_qg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==95)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 ! 00200000 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 ! 00200000 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 ! 00200000 F_qr = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 ! 02000001 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 ! 00200000 F_qs = .TRUE. IF ( scalar_index_table( PARAM_qt , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qt = scalar_num_table(idomain) scalar_index_table( PARAM_qt , idomain ) = P_qt ELSE P_qt = scalar_index_table( PARAM_qt , idomain ) END IF scalar_boundary_table( idomain, P_qt ) = .TRUE. scalar_dname_table( idomain, P_qt ) = 'CWM' scalar_desc_table( idomain, P_qt ) = 'Total condensate mixing ratio' scalar_units_table( idomain, P_qt ) = 'kg kg-1' scalar_streams_table( idomain, P_qt )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qt )%stream(2) = 2097152 ! 00200000 F_qt = .TRUE. END IF IF (model_config_rec%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_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 ) = 'Total condensate mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qt ) = 'kg kg-1' dfi_scalar_streams_table( idomain, P_dfi_qt )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qt )%stream(2) = 2097152 ! 00200000 F_dfi_qt = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==6)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 ! 00200000 F_dfi_qg = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==7)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 ! 00200000 F_dfi_qg = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==8)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 ! 00200000 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 ! 00200000 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 ! 00200000 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 ! 00200000 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 ! 00200000 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 ! 00000000 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 ! 00200000 F_dfi_qg = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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_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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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)==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_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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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 ) = '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)==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 ) = 'Total condensate mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qt ) = 'kg kg-1' dfi_scalar_streams_table( idomain, P_dfi_qt )%stream(1) = 0 ! 00000000 dfi_scalar_streams_table( idomain, P_dfi_qt )%stream(2) = 2097152 ! 00200000 F_dfi_qt = .TRUE. END IF IF (model_config_rec%progn(idomain)==0)THEN END IF IF (model_config_rec%progn(idomain)==1)THEN IF ( scalar_index_table( PARAM_qndrop , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qndrop = scalar_num_table(idomain) scalar_index_table( PARAM_qndrop , idomain ) = P_qndrop ELSE P_qndrop = scalar_index_table( PARAM_qndrop , idomain ) END IF scalar_boundary_table( idomain, P_qndrop ) = .TRUE. scalar_dname_table( idomain, P_qndrop ) = 'QNDROP' scalar_desc_table( idomain, P_qndrop ) = 'Droplet number mixing ratio' scalar_units_table( idomain, P_qndrop ) = ' kg-1' scalar_streams_table( idomain, P_qndrop )%stream(1) = 33554433 ! 02000001 scalar_streams_table( idomain, P_qndrop )%stream(2) = 2097152 ! 00200000 F_qndrop = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qndrop = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) = P_dfi_qndrop ELSE P_dfi_qndrop = dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qndrop ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qndrop ) = 'DFI_QNDROP' dfi_scalar_desc_table( idomain, P_dfi_qndrop ) = '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%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)==5)THEN END IF IF (model_config_rec%ra_lw_physics(idomain)==7)THEN END IF IF (model_config_rec%ra_lw_physics(idomain)==99)THEN END IF IF (model_config_rec%ra_lw_physics(idomain)==31)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)==5)THEN END IF IF (model_config_rec%ra_sw_physics(idomain)==7)THEN END IF IF (model_config_rec%ra_sw_physics(idomain)==99)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==1)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==2)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==3)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==4)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==5)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==7)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==10)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==11)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==89)THEN END IF IF (model_config_rec%sf_urban_physics(idomain)==1)THEN END IF IF (model_config_rec%sf_urban_physics(idomain)==2)THEN END IF IF (model_config_rec%sf_urban_physics(idomain)==3)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==1)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==2)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==3)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==4)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==5)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==7)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==8)THEN END IF IF (model_config_rec%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)==94)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_mynn_tkebudget(idomain)==1)THEN 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)==99)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==10)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==12)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)==93)THEN END IF IF (model_config_rec%cu_physics(idomain)==84)THEN END IF IF (model_config_rec%cu_physics(idomain)==85)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)==3)THEN END IF IF (model_config_rec%cu_physics(idomain)==7)THEN END IF IF (model_config_rec%cu_diag(idomain)==1)THEN END IF IF (model_config_rec%cu_physics(idomain)==6)THEN END IF IF (model_config_rec%cu_physics(idomain)==14)THEN END IF IF (model_config_rec%cu_physics(idomain)==99)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%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_sfdda(idomain)==1)THEN 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%slope_rad(idomain)==1)THEN END IF IF (model_config_rec%gwd_opt==1)THEN END IF IF (model_config_rec%sf_ocean_physics==1)THEN END IF IF (model_config_rec%sf_ocean_physics==2)THEN END IF IF (model_config_rec%scm_force==1)THEN END IF IF (model_config_rec%prec_acc_opt==1)THEN END IF IF (model_config_rec%bucketr_opt==1)THEN END IF IF (model_config_rec%use_wps_input==0)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%use_wps_input==1)THEN END IF IF (model_config_rec%use_wps_input==2)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%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%io_form_restart==1)THEN END IF IF (model_config_rec%io_form_restart==2)THEN END IF IF (model_config_rec%io_form_restart==3)THEN END IF IF (model_config_rec%io_form_restart==4)THEN END IF IF (model_config_rec%io_form_restart==5)THEN END IF IF (model_config_rec%io_form_restart==6)THEN END IF IF (model_config_rec%io_form_restart==7)THEN END IF IF (model_config_rec%io_form_restart==8)THEN END IF IF (model_config_rec%io_form_restart==9)THEN END IF IF (model_config_rec%io_form_restart==10)THEN END IF IF (model_config_rec%io_form_restart==11)THEN END IF IF (model_config_rec%wrf_hydro==0)THEN END IF IF (model_config_rec%wrf_hydro==1)THEN END IF IF (model_config_rec%ifire(idomain)==2)THEN END IF IF (model_config_rec%do_avgflx_em(idomain)==0)THEN END IF IF (model_config_rec%do_avgflx_em(idomain)==1)THEN END IF IF (model_config_rec%do_avgflx_cugd(idomain)==0)THEN END IF IF (model_config_rec%do_avgflx_cugd(idomain)==1)THEN END IF IF (model_config_rec%stoch_force_global_opt==0)THEN END IF IF (model_config_rec%stoch_force_global_opt==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%p_lev_diags==0)THEN END IF IF (model_config_rec%p_lev_diags==1)THEN 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%tracer_opt(idomain)==2)THEN IF ( tracer_index_table( PARAM_tr17_1 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_1 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_1 , idomain ) = P_tr17_1 ELSE P_tr17_1 = tracer_index_table( PARAM_tr17_1 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_1 ) = .TRUE. tracer_dname_table( idomain, P_tr17_1 ) = 'tr17_1' tracer_desc_table( idomain, P_tr17_1 ) = 'tr17_1' tracer_units_table( idomain, P_tr17_1 ) = '-' tracer_streams_table( idomain, P_tr17_1 )%stream(1) = 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 ) = '-' 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 ) = '-' 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 ) = '-' 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 ) = '-' 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 ) = '-' 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 ) = '-' 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 ) = '-' 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 !ENDOFREGISTRYGENERATEDINCLUDE