get back to origin

GEOS-ESM · Jul 25, 2023 · cb31395 · cb31395
1 parent 1cf2c97
commit cb31395
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/base/MAPL_VerticalMethods.F90 b/base/MAPL_VerticalMethods.F90
@@ -622,8 +622,9 @@ subroutine VertInterp(v2,v3,pp,ple_,pl_,rc)
       end where
     end if
 
-    deallocate(plx,_STAT)
-
+    if (flip) then
+      deallocate(plx,_STAT)
+    endif
     _RETURN(ESMF_SUCCESS)
   end subroutine VertInterp