Skip to content

Commit

Permalink
fix NOAHMP restart file
Browse files Browse the repository at this point in the history
  • Loading branch information
kaiyuan-cheng authored and laurenchilutti committed Dec 22, 2022
1 parent 2882fde commit d6a087f
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions FV3GFS/FV3GFS_io.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand All @@ -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)
Expand Down

0 comments on commit d6a087f

Please sign in to comment.