Merge pull request #1374 from GEOS-ESM/bugfix/v11-turb-diffuse

v11: Fix bug in Turb GC (NZD)

Author: sdrabenh

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