Skip to content

Commit

Permalink
chore(netcdf): diagnostic output whitespace edits
Browse files Browse the repository at this point in the history
  • Loading branch information
rouson committed Sep 10, 2023
1 parent 09e0928 commit e548ac3
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/inference_engine/NetCDF_file_s.f90
Original file line number Diff line number Diff line change
Expand Up @@ -56,7 +56,7 @@ function get_shape(ncid, varname) result(array_shape)

associate( nf_status => nf90_open(self%file_name_, nf90_nowrite, ncid) ) ! open file with read-only acces
call assert(nf_status == nf90_noerr, &
"Net_CDF_file_m(input_real_scalar): nf90_open" // trim(nf90_strerror(nf_status)), &
"Net_CDF_file_m(input_real_scalar): nf90_open " // trim(nf90_strerror(nf_status)), &
diagnostic_data = trim(nf90_strerror(nf_status)) // self%file_name_)
end associate

Expand All @@ -67,7 +67,7 @@ function get_shape(ncid, varname) result(array_shape)
end associate

associate( nf_status => nf90_get_var(ncid, varid, scalar)) ! read data
call assert(nf_status == nf90_noerr, "NetCDF_file_s(input_real_scalar): nf90_get_var", trim(nf90_strerror(nf_status)))
call assert(nf_status == nf90_noerr, "NetCDF_file_s(input_real_scalar): nf90_get_var ", trim(nf90_strerror(nf_status)))
end associate

end procedure
Expand Down

0 comments on commit e548ac3

Please sign in to comment.