diff --git a/physics/GFS_MP_generic.F90 b/physics/GFS_MP_generic.F90
index 291808fb8..e588bcf6a 100644
--- a/physics/GFS_MP_generic.F90
+++ b/physics/GFS_MP_generic.F90
@@ -16,12 +16,14 @@ end subroutine GFS_MP_generic_pre_init
 !> \section arg_table_GFS_MP_generic_pre_run Argument Table
 !! \htmlinclude GFS_MP_generic_pre_run.html
 !!
-      subroutine GFS_MP_generic_pre_run(im, levs, ldiag3d, do_aw, ntcw, nncl, ntrac, gt0, gq0, save_t, save_q, errmsg, errflg)
+      subroutine GFS_MP_generic_pre_run(im, levs, ldiag3d, do_aw, ntcw, nncl, ntrac, gt0, gq0, save_t, save_q, &
+                                        phys_choice, phys_choice_thompson, errmsg, errflg)
 !
       use machine,               only: kind_phys
 
       implicit none
       integer,                                          intent(in) :: im, levs, ntcw, nncl, ntrac
+      integer,                                          intent(in) :: phys_choice, phys_choice_thompson
       logical,                                          intent(in) :: ldiag3d, do_aw
       real(kind=kind_phys), dimension(im, levs),        intent(in) :: gt0
       real(kind=kind_phys), dimension(im, levs, ntrac), intent(in) :: gq0
@@ -38,6 +40,12 @@ subroutine GFS_MP_generic_pre_run(im, levs, ldiag3d, do_aw, ntcw, nncl, ntrac, g
       errmsg = ''
       errflg = 0
 
+      if (phys_choice==phys_choice_thompson) then
+          errmsg = 'quak'
+          errflg = 1
+          return
+      endif
+
       if (ldiag3d .or. do_aw) then
         do k=1,levs
           do i=1,im
diff --git a/physics/GFS_MP_generic.meta b/physics/GFS_MP_generic.meta
index c7082da3a..ef971d73e 100644
--- a/physics/GFS_MP_generic.meta
+++ b/physics/GFS_MP_generic.meta
@@ -98,6 +98,22 @@
   kind = kind_phys
   intent = inout
   optional = F
+[phys_choice]
+  standard_name = flag_for_microphysics_scheme
+  long_name = choice of microphysics scheme
+  units = flag
+  dimensions = ()
+  type = integer
+  intent = in
+  optional = F
+[phys_choice_thompson]
+  standard_name = flag_for_thompson_microphysics_scheme
+  long_name = choice of Thompson microphysics scheme
+  units = flag
+  dimensions = ()
+  type = integer
+  intent = in
+  optional = F
 [errmsg]
   standard_name = ccpp_error_message
   long_name = error message for error handling in CCPP