Skip to content

Commit

Permalink
Allocated fluxes%buoy in MOM_ice_shelf
Browse files Browse the repository at this point in the history
This change avoids [this](https://github.com/NOAA-GFDL/MOM6/blob/dev/master/src/parameterizations/vertical/MOM_entrain_diffusive.F90#L277) fatal error when using pure layer mode without defining BULKMIXEDLAYER.
  • Loading branch information
gustavo-marques committed Jun 30, 2016
1 parent 8b8f812 commit 1bd381b
Showing 1 changed file with 3 additions and 0 deletions.
3 changes: 3 additions & 0 deletions src/ice_shelf/MOM_ice_shelf.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1391,6 +1391,9 @@ subroutine initialize_ice_shelf(param_file, ocn_grid, Time, CS, diag, fluxes, Ti
!GM, the following is necessary to make ENERGETICS_SFC_PBL work
call allocate_forcing_type(G, fluxes, ustar=.true., shelf=.true., &
press=.true., water=.true., heat=.true.)
! This is to make it work with layer mode without BULKMIXEDLAYER
allocate( fluxes%buoy(isd:ied,jsd:jed) )
fluxes%buoy(:,:) = 0.0
else
if (is_root_pe()) print *,"allocating fluxes in solo mode"
call allocate_forcing_type(G, fluxes, ustar=.true., shelf=.true., press=.true.)
Expand Down

0 comments on commit 1bd381b

Please sign in to comment.