Added missing deallocate statements

MeteoSwiss-APN · Jun 19, 2021 · 9528c10 · 9528c10
1 parent 95009dd
commit 9528c10
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/radiation/radiation_flux.F90 b/radiation/radiation_flux.F90
@@ -328,6 +328,13 @@ subroutine deallocate_flux_type(this)
       deallocate(this%lw_derivatives)
     end if
 
+    if (allocated(this%lw_dn_surf_g))               deallocate(this%lw_dn_surf_g)
+    if (allocated(this%lw_dn_surf_clear_g))         deallocate(this%lw_dn_surf_clear_g)
+    if (allocated(this%sw_dn_diffuse_surf_g))       deallocate(this%sw_dn_diffuse_surf_g)
+    if (allocated(this%sw_dn_direct_surf_g))        deallocate(this%sw_dn_direct_surf_g)
+    if (allocated(this%sw_dn_diffuse_surf_clear_g)) deallocate(this%sw_dn_diffuse_surf_clear_g)
+    if (allocated(this%sw_dn_direct_surf_clear_g))  deallocate(this%sw_dn_direct_surf_clear_g)
+
     if (lhook) call dr_hook('radiation_flux:deallocate',1,hook_handle)
 
   end subroutine deallocate_flux_type