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
8 changes: 7 additions & 1 deletion sorc/ncep_post.fd/GFSPOST.F
Original file line number Diff line number Diff line change
Expand Up @@ -176,6 +176,9 @@ subroutine p2pv(km,pvu,h,t,p,u,v,kpv,pv,pvpt,pvpb,&
!
! Program history log:
! 1999-10-18 Mark Iredell
! 2021-08-31 Hui-ya Chuang Increase depth criteria for identifying PV layer
! from 25 to 50 to avoid finding shallow high level
! PV layer in high latitudes
!
! Usage: call p2pv(km,pvu,h,t,p,u,v,kpv,pv,pvpt,pvpb,&
! lpv,upv,vpv,hpv,tpv,ppv,spv)
Expand Down Expand Up @@ -214,7 +217,10 @@ subroutine p2pv(km,pvu,h,t,p,u,v,kpv,pv,pvpt,pvpb,&
real,intent(in):: pv(kpv),pvpt(kpv),pvpb(kpv)
logical*1,intent(out),dimension(kpv):: lpv
real,intent(out),dimension(kpv):: upv,vpv,hpv,tpv,ppv,spv
real,parameter:: pd=2500.
! real,parameter:: pd=2500.
! Increase depth criteria for identifying PV layer from 25 to 50
! to avoid finding shallow high level PV layer in high latitudes
real,parameter:: pd=5000.
real w,spdu,spdd
integer k,l1,l2,lu,ld,l
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Expand Down