@@ -4954,7 +4954,7 @@ subroutine convert_vert_distrib_state(state_handle, ens_size, location, quantity
4954
4954
! we have the vert_level and cellid - no need to call find_triangle or find_vert_indices
4955
4955
4956
4956
zout(:) = vert_level
4957
-
4957
+ istatus(:) = 0
4958
4958
if (debug > 9 .and. do_output()) then
4959
4959
write (string2,' ("zout_in_level for member 1:",F10.2)' ) zout(1 )
4960
4960
call error_handler(E_MSG, ' convert_vert_distrib_state' ,string2,source, revision, revdate)
@@ -5013,10 +5013,12 @@ subroutine convert_vert_distrib_state(state_handle, ens_size, location, quantity
5013
5013
! of the quantities should use the level centers.
5014
5014
if ( ndim == 1 ) then
5015
5015
zout(:) = zGridFace(1 , cellid)
5016
+ istatus(:) = 0
5016
5017
else
5017
5018
zout(:) = zGridCenter(vert_level, cellid)
5018
5019
if ( quantity == QTY_VERTICAL_VELOCITY ) zout(:) = zGridFace(vert_level, cellid)
5019
5020
if ( quantity == QTY_EDGE_NORMAL_SPEED ) zout(:) = zGridEdge(vert_level, cellid)
5021
+ istatus(:) = 0
5020
5022
endif
5021
5023
5022
5024
if (debug > 9 .and. do_output()) then
@@ -5045,7 +5047,7 @@ subroutine convert_vert_distrib_state(state_handle, ens_size, location, quantity
5045
5047
! surf F, norm F: need fullp only
5046
5048
! surf F, norm T: need both surfp and fullp
5047
5049
5048
- at_surf = (ztypein == VERTISSURFACE)
5050
+ at_surf = (ztypein == VERTISSURFACE) ! HK ztypin is set to VERTISLEVEL before entering this case statement
5049
5051
do_norm = .not. no_normalization_of_scale_heights
5050
5052
5051
5053
! if normalizing pressure and we're on the surface, by definition scale height
0 commit comments