Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
18 commits
Select commit Hold shift + click to select a range
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
2 changes: 0 additions & 2 deletions parm/post_avblflds.xml
Original file line number Diff line number Diff line change
Expand Up @@ -7740,7 +7740,6 @@
<fixed_sfc1_type>level_free_convection</fixed_sfc1_type>
<scale>6.0</scale>
</param>

<param>
<post_avblfldidx>994</post_avblfldidx>
<shortname>OZCON_ON_HYBRID_LVL</shortname>
Expand All @@ -7756,6 +7755,5 @@
<fixed_sfc1_type>hybrid_lvl</fixed_sfc1_type>
<scale>7.0</scale>
</param>

</post_avblflds>
</postxml>
2 changes: 2 additions & 0 deletions sorc/ncep_post.fd/ALLOCATE_ALL.f
Original file line number Diff line number Diff line change
Expand Up @@ -683,6 +683,7 @@ SUBROUTINE ALLOCATE_ALL()
allocate(z500(im,jsta_2l:jend_2u))
allocate(z700(im,jsta_2l:jend_2u))
allocate(teql(im,jsta_2l:jend_2u))
allocate(ieql(im,jsta_2l:jend_2u))
allocate(cfracl(im,jsta_2l:jend_2u))
allocate(cfracm(im,jsta_2l:jend_2u))
allocate(cfrach(im,jsta_2l:jend_2u))
Expand All @@ -708,6 +709,7 @@ SUBROUTINE ALLOCATE_ALL()
t700(i,j)=spval
z700(i,j)=spval
teql(i,j)=spval
ieql(i,j)=0
cfracl(i,j)=spval
cfracm(i,j)=spval
cfrach(i,j)=spval
Expand Down
1 change: 1 addition & 0 deletions sorc/ncep_post.fd/DEALLOCATE.f
Original file line number Diff line number Diff line change
Expand Up @@ -237,6 +237,7 @@ SUBROUTINE DE_ALLOCATE
deallocate(z500)
deallocate(z700)
deallocate(teql)
deallocate(ieql)
deallocate(cfracl)
deallocate(cfracm)
deallocate(cfrach)
Expand Down
4 changes: 2 additions & 2 deletions sorc/ncep_post.fd/INITPOST.F
Original file line number Diff line number Diff line change
Expand Up @@ -1781,7 +1781,7 @@ SUBROUTINE INITPOST
IM,1,JM,1,IM,JS,JE,1)
do j = jsta_2l, jend_2u
do i = 1, im
IF(SUBMODELNAME == 'RTMA')THEN !use 1st level of unstaggered U for U10
IF(SUBMODELNAME == 'RTMA' .and. MODELNAME == 'RAPR')THEN !use 1st level of unstaggered U for U10
U10 ( i, j ) = uh ( i, j, lm )
ELSE
U10 ( i, j ) = dummy( i, j )
Expand All @@ -1793,7 +1793,7 @@ SUBROUTINE INITPOST
IM,1,JM,1,IM,JS,JE,1)
do j = jsta_2l, jend_2u
do i = 1, im
IF( SUBMODELNAME == 'RTMA')THEN!use 1st level of unstaggered V for V10
IF( SUBMODELNAME == 'RTMA' .and. MODELNAME == 'RAPR')THEN!use 1st level of unstaggered V for V10
V10 ( i, j ) = vh ( i, j, lm )
ELSE
V10 ( i, j ) = dummy( i, j )
Expand Down
Loading