Skip to content

Commit

Permalink
Merge branch 'NSF-MPAS/physics_minor_bugs_3' into hotfix-v8.2.1 (PR #…
Browse files Browse the repository at this point in the history
…1226)

This merge removes an extra deallocation of the 'taod5503d_p' array in the
deallocate_radiation_sw() routine in mpas_atmphys_driver_radiation_sw.F.
The taod5503d_p array is only allocated when running the aerosol-aware Thompson
cloud microphysics, and the extra deallocation that is removed in this merge
only deallocated taod5503d_p if it was allocated.
  • Loading branch information
mgduda committed Aug 7, 2024
2 parents 717a186 + bd4d0e0 commit dd7d751
Showing 1 changed file with 0 additions and 1 deletion.
Original file line number Diff line number Diff line change
Expand Up @@ -300,7 +300,6 @@ subroutine deallocate_radiation_sw(configs)
if(allocated(pin_p) ) deallocate(pin_p )
if(allocated(o3clim_p) ) deallocate(o3clim_p )

if(allocated(taod5503d_p) ) deallocate(taod5503d_p )
if(allocated(tauaer_p) ) deallocate(tauaer_p )
if(allocated(ssaaer_p) ) deallocate(ssaaer_p )
if(allocated(asyaer_p) ) deallocate(asyaer_p )
Expand Down

0 comments on commit dd7d751

Please sign in to comment.