Skip to content

Add more break points for long lines #727

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
gold2718 wants to merge 4 commits into
base: develop
Choose a base branch
from
Open

Add more break points for long lines #727

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
d46b203
Add more break points for long lines
Mar 21, 2026
8919657
Try to make Codee happy
Mar 22, 2026
f960f1f
Try harder to make codee happy
Mar 22, 2026
6c42138
Make Fortran output more Codee compliant
Mar 23, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
38 changes: 21 additions & 17 deletions scripts/fortran_tools/fortran_write.py
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -19,14 +19,16 @@ class FortranWriter:
###########################################################################
# Class variables
###########################################################################
__INDENT = 3 # Spaces per indent level
__INDENT = 2 # Spaces per indent level

__CONTINUE_INDENT = 5 # Extra spaces on continuation line
__CONTINUE_INDENT = 4 # Extra spaces on continuation line

__LINE_FILL = 97 # Target line length

__LINE_MAX = 130 # Max line length

__BREAK_CHARS = [',', '+', '*', '/', '(', ')']

# CCPP copyright statement to be included in all generated Fortran files
__COPYRIGHT = '''!
! This work (Common Community Physics Package Framework), identified by
Expand All @@ -52,7 +54,7 @@ class FortranWriter:
__MOD_PREAMBLE = ["implicit none", "private"]

__CONTAINS = '''
CONTAINS'''
contains'''

__MOD_FOOTER = '''
end module {module}'''
Expand Down Expand Up @@ -150,8 +152,8 @@ def write(self, statement, indent_level, continue_line=False):
line_len = len(outstr)
if line_len > self.__line_fill:
# Collect pretty break points
spaces = list()
commas = list()
spaces = []
break_chars = []
sptr = len(istr)
in_single_char = False
in_double_char = False
Expand Down Expand Up @@ -180,12 +182,12 @@ def write(self, statement, indent_level, continue_line=False):
elif outstr[sptr] == ' ':
# Non-quote spaces are where we can break
spaces.append(sptr)
elif outstr[sptr] == ',':
# Non-quote commas are where we can break
commas.append(sptr)
elif outstr[sptr:sptr+2] == '//':
# Non-quote commas are where we can break
commas.append(sptr + 1)
# Non-quote syntax are where we can break
break_chars.append(sptr + 1)
elif outstr[sptr] in FortranWriter.__BREAK_CHARS:
# Non-quote syntax are where we can break
break_chars.append(sptr)
# End if (no else, other characters will be ignored)
sptr = sptr + 1
# End while
Expand All @@ -203,7 +205,7 @@ def write(self, statement, indent_level, continue_line=False):
# end if
best = self.find_best_break(spaces)
if best >= self.__line_fill:
best = min(best, self.find_best_break(commas))
best = min(best, self.find_best_break(break_chars))
# End if
line_continue = False
if best >= self.__line_max:
Expand All @@ -218,8 +220,8 @@ def write(self, statement, indent_level, continue_line=False):
if self._in_quote(outstr[0:best+1]):
line_continue = '&'
elif not outstr[best+1:].lstrip():
# If the next line is empty, the current line is done
# and is equal to the max line length. Do not use
# If the next line is empty, the current line is done
# and is equal to the max line length. Do not use
# continue and set best to line_max (best+1)
line_continue = False
best = best+1
Expand All @@ -233,12 +235,14 @@ def write(self, statement, indent_level, continue_line=False):
if in_comment or is_comment_stmt:
line_continue = False
# end if
if line_continue:
fill = "{}&".format((self.__line_fill - best)*' ')
if line_continue == '&':
fill = '&'
elif line_continue:
fill = ' &'
else:
fill = ""
# End if
outline = f"{outstr[0:best+1]}{fill}".rstrip()
outline = f"{outstr[0:best+1].rstrip()}{fill}"
self.__file.write(f"{outline}\n")
if best <= 0:
imsg = "Internal ERROR: Unable to break line"
Expand All @@ -250,7 +254,7 @@ def write(self, statement, indent_level, continue_line=False):
# end if
self.write(statement, indent_level, continue_line=line_continue)
else:
self.__file.write("{}\n".format(outstr))
self.__file.write(f"{outstr}\n")
# End if
# End if

Expand Down
4 changes: 2 additions & 2 deletions scripts/host_cap.py
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -732,12 +732,12 @@ def write_host_cap(host_model, api, module_name, output_dir, run_env):
cap.write("return", 4)
cap.write("end if", 3)
# Allocate the suite's dynamic constituents array
size_string = "0+"
size_string = "0 +"
for var in host_local_vars.variable_list():
vtype = var.get_prop_value('type')
if vtype == 'ccpp_constituent_properties_t':
local_name = var.get_prop_value('local_name')
size_string += f"size({local_name})+"
size_string += f"size({local_name}) +"
# end if
# end for
if not has_dyn_consts:
Expand Down
20 changes: 10 additions & 10 deletions test/unit_tests/sample_files/fortran_files/comments_test.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -18,16 +18,16 @@
module comments_test

! We can write comments in the module header
! We can write indented comments in the header
integer :: foo ! Comment at end of line works
integer :: bar !
! xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
!
integer :: baz !
! yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
! yyyyy
! We can write indented comments in the header
integer :: foo ! Comment at end of line works
integer :: bar !
! xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
!
integer :: baz !
! yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
! yyyy

CONTAINS
! We can write comments in the module body
contains
! We can write comments in the module body

end module comments_test
46 changes: 30 additions & 16 deletions test/unit_tests/sample_files/fortran_files/linebreak_test.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -17,23 +17,37 @@
!
module linebreak_test

character(len=7) :: data = (/ name000, name001, name002, name003, name004, name005, name006, &
name007, name008, name009, name010, name011, name012, name013, name014, name015, &
name016, name017, name018, name019, name020, name021, name022, name023, name024, &
name025, name026, name027, name028, name029, name030, name031, name032, name033, &
name034, name035, name036, name037, name038, name039, name040, name041, name042, &
name043, name044, name045, name046, name047, name048, name049, name050, name051, &
name052, name053, name054, name055, name056, name057, name058, name059, name060, &
name061, name062, name063, name064, name065, name066, name067, name068, name069, &
name070, name071, name072, name073, name074, name075, name076, name077, name078, &
name079, name080, name081, name082, name083, name084, name085, name086, name087, &
name088, name089, name090, name091, name092, name093, name094, name095, name096, &
name097, name098, name099 /)
character(len=7) :: data(100) = (/ 'name000', 'name001', 'name002', 'name003', 'name004', &
'name005', 'name006', 'name007', 'name008', 'name009', 'name010', 'name011', 'name012', &
'name013', 'name014', 'name015', 'name016', 'name017', 'name018', 'name019', 'name020', &
'name021', 'name022', 'name023', 'name024', 'name025', 'name026', 'name027', 'name028', &
'name029', 'name030', 'name031', 'name032', 'name033', 'name034', 'name035', 'name036', &
'name037', 'name038', 'name039', 'name040', 'name041', 'name042', 'name043', 'name044', &
'name045', 'name046', 'name047', 'name048', 'name049', 'name050', 'name051', 'name052', &
'name053', 'name054', 'name055', 'name056', 'name057', 'name058', 'name059', 'name060', &
'name061', 'name062', 'name063', 'name064', 'name065', 'name066', 'name067', 'name068', &
'name069', 'name070', 'name071', 'name072', 'name073', 'name074', 'name075', 'name076', &
'name077', 'name078', 'name079', 'name080', 'name081', 'name082', 'name083', 'name084', &
'name085', 'name086', 'name087', 'name088', 'name089', 'name090', 'name091', 'name092', &
'name093', 'name094', 'name095', 'name096', 'name097', 'name098', 'name099' /)

CONTAINS
call &
endrun('Cannot read columns_on_task from file'// &
', columns_on_task has no horizontal dimension; columns_on_task is a protected variable')
contains

subroutine foo(ozone_constituents, aerosol_constituents, volcaero_constituents, &
other_constituents)
integer, intent(in) :: ozone_constituents(:)
integer, intent(in) :: aerosol_constituents(:)
integer, intent(in) :: volcaero_constituents(:)
integer, intent(in) :: other_constituents(:)
real, allocatable :: tracer_data_test_dynamic_constituents(:)
! codee format off
allocate(tracer_data_test_dynamic_constituents(0+size(ozone_constituents)+size( &
aerosol_constituents)+size(volcaero_constituents)+size(other_constituents)))

write(6, '(a)') &
'Cannot read columns_on_task from file'// &
', columns_on_task has no horizontal dimension; columns_on_task is a protected variable'
! codee format on
end subroutine foo

end module linebreak_test
Loading
Loading