diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSturbulence_GridComp/GEOS_TurbulenceGridComp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSturbulence_GridComp/GEOS_TurbulenceGridComp.F90
index 0687658e9..62895eaf5 100644
--- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSturbulence_GridComp/GEOS_TurbulenceGridComp.F90
+++ b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSturbulence_GridComp/GEOS_TurbulenceGridComp.F90
@@ -5405,16 +5405,16 @@ subroutine DIFFUSE(IM,JM,LM,RC)
        end if
 
 ! Fill exports of U,V and S after diffusion
-      if( TYPE=='U' ) then
+      if( trim(NAME)=='U' ) then
           if(associated(UAFDIFFUSE)) UAFDIFFUSE = SX
        endif
-      if( TYPE=='V' ) then
+      if( trim(NAME)=='V' ) then
           if(associated(VAFDIFFUSE)) VAFDIFFUSE = SX
        endif
-       if( TYPE=='S' ) then 
+       if( trim(NAME)=='S' ) then 
           if(associated(SAFDIFFUSE)) SAFDIFFUSE = SX
        endif
-       if( TYPE=='Q' ) then
+       if( trim(NAME)=='Q' ) then
           if(associated(QAFDIFFUSE)) QAFDIFFUSE = SX
        endif