From d6a087f400cf7562e4a4bc9b5cde09508fe2318f Mon Sep 17 00:00:00 2001 From: Kai-Yuan Cheng Date: Thu, 22 Dec 2022 09:50:51 -0500 Subject: [PATCH] fix NOAHMP restart file --- FV3GFS/FV3GFS_io.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/FV3GFS/FV3GFS_io.F90 b/FV3GFS/FV3GFS_io.F90 index d40cf7e1..e97f5c48 100644 --- a/FV3GFS/FV3GFS_io.F90 +++ b/FV3GFS/FV3GFS_io.F90 @@ -729,7 +729,7 @@ subroutine register_sfc_prop_restart_vars(Model, nx, ny, nvar_s2m, action) call register_variable_attribute(Sfc_restart, 'zaxis_2', 'cartesian_axis', 'Z', str_len=1) allocate( buffer(3) ) do lsoil=-2,0 - buffer(lsoil) = lsoil + buffer(lsoil+3) = lsoil end do call write_data(Sfc_restart, 'zaxis_2', buffer) deallocate(buffer) @@ -739,7 +739,7 @@ subroutine register_sfc_prop_restart_vars(Model, nx, ny, nvar_s2m, action) call register_variable_attribute(Sfc_restart, 'zaxis_3', 'cartesian_axis', 'Z', str_len=1) allocate( buffer(7) ) do lsoil=-2,4 - buffer(lsoil) = lsoil + buffer(lsoil+3) = lsoil end do call write_data(Sfc_restart, 'zaxis_3', buffer) deallocate(buffer)