Skip to content

Commit 2d5882c

Browse files
Merge pull request #761 from NCAR/mpas_surf_state
fix: passing istatus set for vertislevel and vertisheight mpas_atm
2 parents 62edc59 + 3ed740c commit 2d5882c

File tree

3 files changed

+11
-3
lines changed

3 files changed

+11
-3
lines changed

CHANGELOG.rst

+6
Original file line numberDiff line numberDiff line change
@@ -22,6 +22,12 @@ individual files.
2222

2323
The changes are now listed with the most recent at the top.
2424

25+
**November 12 2024 :: MPAS bug-fixes. Tag v11.8.5**
26+
27+
- Fixed 2m and 10m fields not being updated - set istatus for VERTISHEIGHT
28+
and VERTISLEVEL for convert_vert_distrib_state.
29+
- Fixed vertical location in convert_vertical_obs to use zGridFace.
30+
2531
**November 8 2024 :: POP initial ensemble available from GDEX. Tag v11.8.4**
2632

2733
Documentation update:

conf.py

+1-1
Original file line numberDiff line numberDiff line change
@@ -21,7 +21,7 @@
2121
author = 'Data Assimilation Research Section'
2222

2323
# The full version, including alpha/beta/rc tags
24-
release = '11.8.4'
24+
release = '11.8.5'
2525
root_doc = 'index'
2626

2727
# -- General configuration ---------------------------------------------------

models/mpas_atm/model_mod.f90

+4-2
Original file line numberDiff line numberDiff line change
@@ -4954,7 +4954,7 @@ subroutine convert_vert_distrib_state(state_handle, ens_size, location, quantity
49544954
! we have the vert_level and cellid - no need to call find_triangle or find_vert_indices
49554955

49564956
zout(:) = vert_level
4957-
4957+
istatus(:) = 0
49584958
if (debug > 9 .and. do_output()) then
49594959
write(string2,'("zout_in_level for member 1:",F10.2)') zout(1)
49604960
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
50135013
! of the quantities should use the level centers.
50145014
if ( ndim == 1 ) then
50155015
zout(:) = zGridFace(1, cellid)
5016+
istatus(:) = 0
50165017
else
50175018
zout(:) = zGridCenter(vert_level, cellid)
50185019
if ( quantity == QTY_VERTICAL_VELOCITY ) zout(:) = zGridFace(vert_level, cellid)
50195020
if ( quantity == QTY_EDGE_NORMAL_SPEED ) zout(:) = zGridEdge(vert_level, cellid)
5021+
istatus(:) = 0
50205022
endif
50215023

50225024
if (debug > 9 .and. do_output()) then
@@ -5045,7 +5047,7 @@ subroutine convert_vert_distrib_state(state_handle, ens_size, location, quantity
50455047
! surf F, norm F: need fullp only
50465048
! surf F, norm T: need both surfp and fullp
50475049

5048-
at_surf = (ztypein == VERTISSURFACE)
5050+
at_surf = (ztypein == VERTISSURFACE) !HK ztypin is set to VERTISLEVEL before entering this case statement
50495051
do_norm = .not. no_normalization_of_scale_heights
50505052

50515053
! if normalizing pressure and we're on the surface, by definition scale height

0 commit comments

Comments
 (0)