Merge branch 'main' into mpas_surf_state

NCAR · Nov 12, 2024 · 3ed740c · 3ed740c
2 parents d1c35f9 + 62edc59
commit 3ed740c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/models/mpas_atm/model_mod.f90 b/models/mpas_atm/model_mod.f90
@@ -4686,8 +4686,8 @@ subroutine convert_vert_distrib(state_handle, ens_size, location, obs_kind, ztyp
    fdata = 0.0_r8
    do i = 1, n
       where (istatus == 0)
-         fdata(i, :) = zGridFace(k_low(i, :),c(i))*(1.0_r8 - fract(i, :)) + &
-                       zGridFace(k_up (i, :),c(i))*fract(i, :)
+         fdata(i, :) = zGridCenter(k_low(i, :),c(i))*(1.0_r8 - fract(i, :)) + &
+                       zGridCenter(k_up (i, :),c(i))*fract(i, :)
       end where
    enddo