Correct usage of ESMF_LogFoundDeallocError() for deallocation errors.

esmf-org · Oct 24, 2024 · 9082e83 · 9082e83
1 parent 90b9353
commit 9082e83
Show file tree

Hide file tree

Showing 5 changed files with 16 additions and 16 deletions.
diff --git a/src/Infrastructure/Field/interface/ESMF_Field_C.F90 b/src/Infrastructure/Field/interface/ESMF_Field_C.F90
@@ -735,9 +735,9 @@ subroutine f_esmf_fieldcollectgarbage(field, rc)
     implicit none
 
     type(ESMF_Field)      :: field
-    integer, intent(out)  :: rc     
+    integer, intent(out)  :: rc
 
-    integer :: localrc              
+    integer :: localrc
 
     ! initialize return code; assume routine not implemented
     localrc = ESMF_RC_NOT_IMPL
@@ -751,15 +751,15 @@ subroutine f_esmf_fieldcollectgarbage(field, rc)
       if (ESMF_LogFoundError(localrc, &
         ESMF_ERR_PASSTHRU, &
         ESMF_CONTEXT, rcToReturn=rc)) return
-      ! deallocate actual FieldType allocation      
+      ! deallocate actual FieldType allocation
       !print *, "deallocate(field%ftypep)"
       deallocate(field%ftypep, stat=localrc)
-      if (ESMF_LogFoundAllocError(localrc, msg="Deallocating Field", &
+      if (ESMF_LogFoundDeallocError(localrc, msg="Deallocating Field", &
         ESMF_CONTEXT, rcToReturn=rc)) return
     endif
     nullify(field%ftypep)
 
-    ! return successfully  
+    ! return successfully
     rc = ESMF_SUCCESS
 
   end subroutine f_esmf_fieldcollectgarbage

diff --git a/src/Infrastructure/FieldBundle/interface/ESMF_FieldBundle_C.F90 b/src/Infrastructure/FieldBundle/interface/ESMF_FieldBundle_C.F90
@@ -94,9 +94,9 @@ subroutine f_esmf_fbundlecollectgarbage(fb, rc)
         ESMF_ERR_PASSTHRU, &
         ESMF_CONTEXT, &
         rcToReturn=rc)) return
-      ! deallocate actual FieldBundleType allocation      
+      ! deallocate actual FieldBundleType allocation
       deallocate(fb%this, stat=localrc)
-      if (ESMF_LogFoundAllocError(localrc, msg="Deallocating FieldBundle", &
+      if (ESMF_LogFoundDeallocError(localrc, msg="Deallocating FieldBundle", &
         ESMF_CONTEXT, &
         rcToReturn=rc)) return
     endif

diff --git a/src/Infrastructure/LocStream/interface/ESMF_LocStream_C.F90 b/src/Infrastructure/LocStream/interface/ESMF_LocStream_C.F90
@@ -211,15 +211,15 @@ subroutine f_esmf_locstreamcollectgarbage(locstream, rc)
       ESMF_ERR_PASSTHRU, &
       ESMF_CONTEXT, rcToReturn=rc)) return
 
-    ! deallocate actual LocStreamType allocation      
+    ! deallocate actual LocStreamType allocation
     if (associated(locstream%lstypep)) then
       deallocate(locstream%lstypep, stat=localrc)
-      if (ESMF_LogFoundAllocError(localrc, msg="Deallocating LocStream", &
+      if (ESMF_LogFoundDeallocError(localrc, msg="Deallocating LocStream", &
         ESMF_CONTEXT, rcToReturn=rc)) return
     endif
     nullify(locstream%lstypep)
 
-    ! return successfully  
+    ! return successfully
     rc = ESMF_SUCCESS
 
   end subroutine f_esmf_locstreamcollectgarbage
diff --git a/src/Superstructure/Component/interface/ESMF_Comp_C.F90 b/src/Superstructure/Component/interface/ESMF_Comp_C.F90
@@ -511,15 +511,15 @@ recursive subroutine f_esmf_compcollectgarbage2(comp, rc)
     ESMF_ERR_PASSTHRU, &
     ESMF_CONTEXT, rcToReturn=rc)) return
 
-  ! deallocate actual CompClass allocation      
+  ! deallocate actual CompClass allocation
   if (associated(comp%compp)) then
     deallocate(comp%compp, stat=localrc)
-    if (ESMF_LogFoundAllocError(localrc, msg="Deallocating Comp", &
+    if (ESMF_LogFoundDeallocError(localrc, msg="Deallocating Comp", &
       ESMF_CONTEXT, rcToReturn=rc)) return
   endif
   nullify(comp%compp)
 
-  ! return successfully  
+  ! return successfully
   rc = ESMF_SUCCESS
 
 end subroutine f_esmf_compcollectgarbage2

diff --git a/src/Superstructure/State/interface/ESMF_State_C.F90 b/src/Superstructure/State/interface/ESMF_State_C.F90
@@ -476,16 +476,16 @@ subroutine f_esmf_statecollectgarbage(state, rc)
         ESMF_ERR_PASSTHRU, &
         ESMF_CONTEXT, &
         rcToReturn=rc)) return
-      ! deallocate actual StateClass allocation      
+      ! deallocate actual StateClass allocation
       deallocate(state%statep, stat=localrc)
       localrc = merge (ESMF_SUCCESS, ESMF_RC_MEM_DEALLOCATE, localrc == 0)
-      if (ESMF_LogFoundAllocError(localrc, msg="Deallocating State", &
+      if (ESMF_LogFoundDeallocError(localrc, msg="Deallocating State", &
         ESMF_CONTEXT, &
         rcToReturn=rc)) return
     endif
     nullify(state%statep)
 
-    ! return successfully  
+    ! return successfully
     rc = ESMF_SUCCESS
 
   end subroutine f_esmf_statecollectgarbage