Skip to content

Commit

Permalink
Fix compiler errors for error message formatting.
Browse files Browse the repository at this point in the history
  • Loading branch information
mwaxmonsky committed Aug 22, 2023
1 parent fd959df commit 7b5c375
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions src/physics/utils/physics_data.F90
Original file line number Diff line number Diff line change
Expand Up @@ -201,8 +201,8 @@ subroutine read_field_2d(file, std_name, var_names, timestep, buffer, mark_as_re
varname=trim(found_name), &
msg=subname//'NaN found in '//trim(found_name))
else
call endrun(subname//'Unable to properly check the found variable "',trim(found_name),'" in the IC file. ' &
'Please double-check if the variable exists in the file, ' &
call endrun(subname//'Unable to properly check the found variable "'//trim(found_name)//'" in the IC file. '// &
'Please double-check if the variable exists in the file, '// &
'and that the file is not corrupted or damaged.')
end if
else if (.not. error_on_not_found_local) then
Expand Down Expand Up @@ -296,8 +296,8 @@ subroutine read_field_3d(file, std_name, var_names, vcoord_name, &
varname=trim(found_name), &
msg=subname//'NaN found in '//trim(found_name))
else
call endrun(subname//'Unable to properly check the found variable "',trim(found_name),'" in the IC file. ' &
'Please double-check if the variable exists in the file, ' &
call endrun(subname//'Unable to properly check the found variable "'//trim(found_name)//'" in the IC file. '// &
'Please double-check if the variable exists in the file, '// &
'and that the file is not corrupted or damaged.')
end if
else if (.not. error_on_not_found_local) then
Expand Down

0 comments on commit 7b5c375

Please sign in to comment.