Temporary changes. Will revert with MP implementation

Author: dustinswales

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_MP_generic_post.F90

@@ -126,7 +126,7 @@ subroutine GFS_MP_generic_post_run(
       ! Initialize CCPP error handling variables
       errmsg = ''
       errflg = 0
-
+      return
       onebg = one/con_g
 
       do i = 1, im

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_MP_generic_pre.F90

@@ -31,7 +31,7 @@ subroutine GFS_MP_generic_pre_run(im, levs, ldiag3d, qdiag3d, do_aw, progsigma,
       ! Initialize CCPP error handling variables
       errmsg = ''
       errflg = 0
-
+      return
       if (ldiag3d .or. do_aw .or. num_dfi_radar>0) then
         do k=1,levs
           do i=1,im

physics/MP/Thompson/module_mp_thompson.F90

@@ -954,7 +954,8 @@ subroutine thompson_init(is_aerosol_aware_in,       &
          call cpu_time(etime)
          if (mpirank==mpiroot) print '("Calling radar_init took ",f10.3," seconds.")', etime-stime
 
-
+         ! DJS Not sure why this part below is not working. Return for now.
+         return
          if_not_iiwarm: if (.not. iiwarm) then
 
          precomputed_tables_2: if (.not.precomputed_tables) then

physics/MP/Thompson/mp_thompson.F90

@@ -552,6 +552,7 @@ subroutine mp_thompson_run(ncol, nlev, con_g, con_rd,        &
          ! Initialize the CCPP error handling variables
          errmsg = ''
          errflg = 0
+         return
 
          if (first_time_step .and. istep==1 .and. blkno==1) then
             ! Check initialization state