diff --git a/src/gsibec/gsi/control2state.F90 b/src/gsibec/gsi/control2state.F90
index 8c1b7a4..f43d135 100644
--- a/src/gsibec/gsi/control2state.F90
+++ b/src/gsibec/gsi/control2state.F90
@@ -294,13 +294,13 @@ subroutine control2state(xhat,sval,bval)
    call gsi_bundlegetpointer (wbundle,'q'  ,cv_rh ,istatus)
 
 !  Get 3d pressure
-   if(do_getprs_tl) call getprs_tl(cv_ps,cv_t,sv_prse)
+!_RT   if(do_getprs_tl) call getprs_tl(cv_ps,cv_t,sv_prse)
 
 !  Convert input normalized RH to q
    if(do_normal_rh_to_q) call normal_rh_to_q(cv_rh,cv_t,sv_prse,sv_q)
 
 !  Calculate sensible temperature
-   if(do_tv_to_tsen .and. .not.regional) call tv_to_tsen(cv_t,sv_q,sv_tsen)
+!_RT   if(do_tv_to_tsen .and. .not.regional) call tv_to_tsen(cv_t,sv_q,sv_tsen)
 
 !  Copy other variables
    call gsi_bundlegetvar ( wbundle, 't'  , sv_tv,  istatus )  
diff --git a/src/gsibec/gsi/control2state_ad.F90 b/src/gsibec/gsi/control2state_ad.F90
index 8ce6e71..27763e0 100644
--- a/src/gsibec/gsi/control2state_ad.F90
+++ b/src/gsibec/gsi/control2state_ad.F90
@@ -306,14 +306,14 @@ subroutine control2state_ad(rval,bval,grad)
       enddo
    end if
 !  Calculate sensible temperature
-   if(do_tv_to_tsen_ad .and. .not.regional) call tv_to_tsen_ad(cv_t,rv_q,rv_tsen)
+!_RT   if(do_tv_to_tsen_ad .and. .not.regional) call tv_to_tsen_ad(cv_t,rv_q,rv_tsen)
 
 !  Adjoint of convert input normalized RH to q to add contribution of moisture
 !  to t, p , and normalized rh
    if(do_normal_rh_to_q_ad) call normal_rh_to_q_ad(cv_rh,cv_t,rv_prse,rv_q)
 
 !  Adjoint to convert ps to 3-d pressure
-   if(do_getprs_ad) call getprs_ad(cv_ps,cv_t,rv_prse)
+!_RT   if(do_getprs_ad) call getprs_ad(cv_ps,cv_t,rv_prse)
 
 
 !$omp section