Skip to content
Merged
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 4 additions & 0 deletions sorc/ncep_post.fd/UPP_PHYSICS.f
Original file line number Diff line number Diff line change
Expand Up @@ -1399,6 +1399,10 @@ SUBROUTINE CALCAPE2(ITYPE,DPBND,P1D,T1D,Q1D,L1D, &
ENDDO
ENDDO
!
!Ensure later calculations do not access LM+1
Comment thread
SamuelTrahanNOAA marked this conversation as resolved.
!
LEND=MIN(LEND,LM-1)
!
!reverse L order from bottom up for ESRH calculation
!
ESRHH = LCL
Expand Down