Skip to content

Commit

Permalink
Bug fix: restored deleted allocation of virt_precip
Browse files Browse the repository at this point in the history
- Allocation of fluxes%virt_precip was accidentally deleted
  for a specific configuration of ocean-only (benchmark)
- Problem manifest as segmentation fault.
- No answer changes.
  • Loading branch information
adcroft committed May 21, 2014
1 parent 53d779a commit 2074440
Showing 1 changed file with 7 additions and 2 deletions.
9 changes: 7 additions & 2 deletions config_src/solo_driver/MOM_surface_forcing.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1624,8 +1624,13 @@ subroutine buoyancy_forcing_linear(state, fluxes, day, dt, G, CS)
if (.not.associated(fluxes%sens)) then
allocate(fluxes%sens(G%isd:G%ied,G%jsd:G%jed)) ; fluxes%sens(:,:) = 0.0
endif
if (.not.associated(fluxes%heat_restore)) then
allocate(fluxes%heat_restore(G%isd:G%ied,G%jsd:G%jed)) ; fluxes%heat_restore(:,:) = 0.0
if (CS%restorebuoy) then
if (.not.associated(fluxes%heat_restore)) then
allocate(fluxes%heat_restore(G%isd:G%ied,G%jsd:G%jed)) ; fluxes%heat_restore(:,:) = 0.0
endif
if (.not.associated(fluxes%virt_precip)) then
allocate(fluxes%virt_precip(G%isd:G%ied,G%jsd:G%jed)) ; fluxes%virt_precip(:,:) = 0.0
endif
endif
else
if (.not.associated(fluxes%buoy)) then
Expand Down

0 comments on commit 2074440

Please sign in to comment.