fix memleak in med_phases_prep_ocn_mod

jedwards4b · May 20, 2019 · 1586bf1 · 1586bf1
1 parent 1ca2910
commit 1586bf1
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/drivers/nuopc/mediator/med_phases_prep_ocn_mod.F90 b/src/drivers/nuopc/mediator/med_phases_prep_ocn_mod.F90
@@ -386,6 +386,11 @@ subroutine med_phases_prep_ocn_merge(gcomp, rc)
           end if  ! if sea-ice is present
        end do
 
+       ! Deallocate Foxx_swnet if it was allocated in this subroutine
+       if (.not. FB_fldchk(is_local%wrap%FBExp(compocn), 'Foxx_swnet', rc=rc)) then
+          deallocate(Foxx_swnet)
+       end if
+
        ! Output to ocean per ice thickness fraction and sw penetrating into ocean
        if ( FB_fldchk(is_local%wrap%FBExp(compocn), 'Sf_afrac', rc=rc)) then
           call FB_GetFldPtr(is_local%wrap%FBExp(compocn), 'Sf_afrac', fldptr1=dataptr_o, rc=rc)