Skip to content

Commit

Permalink
Patch for candidate-dev-master-2017-08-17
Browse files Browse the repository at this point in the history
- Fixes declaration of ref_pres in MOM_neutral_diffusion.F90 to
  avoid run-time OOB error reported by NCAR (@gustavo-marques).
  - NCAR are using the same version of Intel (16.0.3) that GFDL
    uses for testing but evidently have better compiler options
    that caught this - none of our tests failed.
- No answer changes.
  • Loading branch information
adcroft committed Aug 22, 2017
1 parent cde6d3f commit da8f186
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/tracer/MOM_neutral_diffusion.F90
Original file line number Diff line number Diff line change
Expand Up @@ -360,7 +360,7 @@ subroutine neutral_diffusion_calc_coeffs(G, GV, h, T, S, EOS, CS)
! Variables used for reconstructions
real, dimension(SZK_(G),2) :: ppoly_r_S ! Reconstruction slopes
integer :: iMethod
real, dimension(SZI_(G)+1) :: ref_pres ! Reference pressure used to calculate alpha/beta
real, dimension(SZI_(G)) :: ref_pres ! Reference pressure used to calculate alpha/beta

! If doing along isopycnal diffusion (as opposed to neutral diffusion, set the reference pressure)
if (CS%ref_pres>=0.) ref_pres(:) = CS%ref_pres
Expand Down

0 comments on commit da8f186

Please sign in to comment.