include file: scalar_indices.inc 1 !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 P_qc = 1 P_qr = 1 P_qi = 1 P_qs = 1 P_qg = 1 IF (model_config_rec%dyn_opt==2)THEN END IF IF (model_config_rec%dyn_opt==4)THEN END IF 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 END IF IF (model_config_rec%mp_physics(idomain)==99)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 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 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 END IF IF (model_config_rec%ra_lw_physics(idomain)==1)THEN END IF IF (model_config_rec%ra_lw_physics(idomain)==99)THEN END IF IF (model_config_rec%ra_sw_physics(idomain)==1)THEN END IF IF (model_config_rec%ra_sw_physics(idomain)==2)THEN END IF IF (model_config_rec%ra_sw_physics(idomain)==99)THEN END IF IF (model_config_rec%bl_sfclay_physics(idomain)==1)THEN END IF IF (model_config_rec%bl_sfclay_physics(idomain)==2)THEN END IF IF (model_config_rec%bl_surface_physics(idomain)==1)THEN END IF IF (model_config_rec%bl_surface_physics(idomain)==2)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)==99)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)==99)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 !ENDOFREGISTRYGENERATEDINCLUDE