reset d/f/fg/r/g after s because deallocation of s can use d in some …

…cases
lukasm91 · Oct 17, 2024 · c9d0e9b · c9d0e9b
1 parent 9be2c89
commit c9d0e9b
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/src/trans/gpu/internal/dealloc_resol_mod.F90 b/src/trans/gpu/internal/dealloc_resol_mod.F90
@@ -91,13 +91,6 @@ SUBROUTINE DEALLOC_RESOL(KRESOL)
 #ifdef OMPGPU
 #endif
 
-  ! Empty all fields (none of them has pointers; allocatable arrays implicitly deallocate)
-  D = D_
-  F = F_
-  FG = FG_
-  R = R_
-  G = G_
-
   ! TPM_FLD is more complex because it has pointers
   IF( ALLOCATED(S%FA) ) THEN
     DO JMLOC=1,D%NUMP,NPRTRV  ! +++++++++++++++++++++ JMLOC LOOP ++++++++++
@@ -123,6 +116,13 @@ SUBROUTINE DEALLOC_RESOL(KRESOL)
   ENDIF
   S = S_
 
+  ! Empty all fields (none of them has pointers; allocatable arrays implicitly deallocate)
+  D = D_
+  F = F_
+  FG = FG_
+  R = R_
+  G = G_
+
   CALL CLEAN_FFT(KRESOL)
   CALL CLEAN_GEMM(KRESOL)