Skip to content

Adding fortitude rules 1 #370

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

Merged
Pierre Siddall (Pierre-siddall) merged 10 commits into from
May 21, 2026
Merged

Adding fortitude rules 1 #370

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
10 commits
Select commit Hold shift + click to select a range
32f2c32
added rule exceptions and some fixes
mo-lucy-gordon May 7, 2026
7c3bdb7
more style fixes
mo-lucy-gordon May 11, 2026
65d1b9d
Merge pull request #2 from mo-lucy-gordon/main
mo-lucy-gordon May 11, 2026
6464d5a
added comments
mo-lucy-gordon May 11, 2026
ff19a81
reverted output format
mo-lucy-gordon May 12, 2026
88a9a5a
Merge branch 'main' into adding_fortitude_rules1
mo-lucy-gordon May 12, 2026
d742273
tidied config andf removed unecessary config file
mo-lucy-gordon May 12, 2026
fe56140
rearranged rules and comments, and added to comments
mo-lucy-gordon May 21, 2026
32846d7
Merge branch 'main' into adding_fortitude_rules1
Pierre-siddall May 21, 2026
cf64d3a
Merge branch 'main' into adding_fortitude_rules1
Pierre-siddall May 21, 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
2 changes: 1 addition & 1 deletion applications/coupled/source/driver/coupled_driver_mod.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -188,7 +188,7 @@ subroutine finalise( program_name, modeldb )
depository => modeldb%fields%get_field_collection("depository")
call depository%get_field("field_2", field_2)

! Write checksum of coupled field (on incoming component) to file
! Write checksum of coupled field (on incoming component) to file
call modeldb%values%get_value("cpl_name", cpl_component_name)
if (trim(cpl_component_name) == "lfric_i") then
call checksum_alg(program_name, field_2, 'coupled_field_2')
Expand Down
6 changes: 3 additions & 3 deletions components/coupling/source/coupling_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -102,14 +102,14 @@ subroutine initialise(self, cpl_name, comm_out, comm_in, comm_is_split)
kinfo, &
commworld=comm_in%get_comm_mpi_val())

if (kinfo .NE. prism_ok) then
if (kinfo /= prism_ok) then
call oasis_abort(self%comp_id, trim(cpl_name), 'initialise')
endif

call oasis_get_localcomm(comm, kinfo)
call comm_out%set_comm_mpi_val(comm)

if (kinfo .NE. prism_ok) then
if (kinfo /= prism_ok) then
call oasis_abort(self%comp_id, trim(cpl_name), 'initialise')
endif

Expand Down Expand Up @@ -508,7 +508,7 @@ subroutine finalise(self)

kinfo = prism_ok
call oasis_terminate(kinfo)
if (kinfo .NE. prism_ok) then
if (kinfo /= prism_ok) then
write(log_scratch_space,'(A, I4)') &
"finalise: oasis_terminate error: ", kinfo
call log_event( log_scratch_space, LOG_LEVEL_ERROR )
Expand Down
2 changes: 1 addition & 1 deletion components/lfric-xios/source/lfric_xios_mock_mod.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -177,7 +177,7 @@ function xios_is_valid_axis(axis_id) result(status)
implicit none

character(len=*), intent(in) :: axis_id
logical(l_def) status
logical(l_def) :: status
status = .true.
end function xios_is_valid_axis

Expand Down
112 changes: 56 additions & 56 deletions components/science/source/psy/sci_psykal_light_mod.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -278,29 +278,29 @@ SUBROUTINE invoke_weights_scalar_inter_element_order_kernel_type(dummy_fine, dum
USE mesh_mod, ONLY: mesh_type
TYPE(field_type), intent(in) :: dummy_fine, dummy_coarse, weights_high_low, weights_low_high
TYPE(quadrature_xyoz_type), intent(in) :: qr
INTEGER(KIND=i_def) cell
INTEGER(KIND=i_def) loop0_start, loop0_stop
INTEGER(KIND=i_def) :: cell
INTEGER(KIND=i_def) :: loop0_start, loop0_stop
REAL(KIND=r_def), allocatable :: basis_adspc2_dummy_coarse_qr(:,:,:,:)
INTEGER(KIND=i_def) dim_adspc2_dummy_coarse
INTEGER(KIND=i_def) :: dim_adspc2_dummy_coarse
REAL(KIND=r_def), pointer :: weights_xy_qr(:) => null(), weights_z_qr(:) => null()
INTEGER(KIND=i_def) np_xy_qr, np_z_qr
INTEGER(KIND=i_def) nlayers_dummy_fine
INTEGER(KIND=i_def) :: np_xy_qr, np_z_qr
INTEGER(KIND=i_def) :: nlayers_dummy_fine
REAL(KIND=r_def), pointer, dimension(:) :: weights_low_high_data => null()
REAL(KIND=r_def), pointer, dimension(:) :: weights_high_low_data => null()
REAL(KIND=r_def), pointer, dimension(:) :: dummy_coarse_data => null()
REAL(KIND=r_def), pointer, dimension(:) :: dummy_fine_data => null()
TYPE(field_proxy_type) dummy_fine_proxy, dummy_coarse_proxy, weights_high_low_proxy, weights_low_high_proxy
TYPE(quadrature_xyoz_proxy_type) qr_proxy
TYPE(field_proxy_type) :: dummy_fine_proxy, dummy_coarse_proxy, weights_high_low_proxy, weights_low_high_proxy
TYPE(quadrature_xyoz_proxy_type) :: qr_proxy
INTEGER(KIND=i_def), pointer :: map_adspc1_dummy_fine(:,:) => null(), map_adspc2_dummy_coarse(:,:) => null(), &
&map_adspc3_weights_high_low(:,:) => null()
INTEGER(KIND=i_def) ndf_adspc1_dummy_fine, undf_adspc1_dummy_fine, ndf_adspc2_dummy_coarse, undf_adspc2_dummy_coarse, &
INTEGER(KIND=i_def) :: ndf_adspc1_dummy_fine, undf_adspc1_dummy_fine, ndf_adspc2_dummy_coarse, undf_adspc2_dummy_coarse, &
&ndf_adspc3_weights_high_low, undf_adspc3_weights_high_low
INTEGER(KIND=i_def) ncell_dummy_fine, ncpc_dummy_fine_dummy_coarse_x, ncpc_dummy_fine_dummy_coarse_y
INTEGER(KIND=i_def) :: ncell_dummy_fine, ncpc_dummy_fine_dummy_coarse_x, ncpc_dummy_fine_dummy_coarse_y
INTEGER(KIND=i_def), pointer :: cell_map_dummy_coarse(:,:,:) => null()
TYPE(mesh_map_type), pointer :: mmap_dummy_fine_dummy_coarse => null()
INTEGER(KIND=i_def) max_halo_depth_mesh_dummy_fine
INTEGER(KIND=i_def) :: max_halo_depth_mesh_dummy_fine
TYPE(mesh_type), pointer :: mesh_dummy_fine => null()
INTEGER(KIND=i_def) max_halo_depth_mesh_dummy_coarse
INTEGER(KIND=i_def) :: max_halo_depth_mesh_dummy_coarse
TYPE(mesh_type), pointer :: mesh_dummy_coarse => null()
!
! Initialise field and/or operator proxies
Expand Down Expand Up @@ -406,23 +406,23 @@ SUBROUTINE invoke_map_scalar_fe_to_fv_kernel_type(fine_field, coarse_field, weig
USE mesh_map_mod, ONLY: mesh_map_type
USE mesh_mod, ONLY: mesh_type
TYPE(field_type), intent(in) :: fine_field, coarse_field, weights_high_to_low
INTEGER(KIND=i_def) cell
INTEGER(KIND=i_def) loop0_start, loop0_stop
INTEGER(KIND=i_def) nlayers_fine_field
INTEGER(KIND=i_def) :: cell
INTEGER(KIND=i_def) :: loop0_start, loop0_stop
INTEGER(KIND=i_def) :: nlayers_fine_field
REAL(KIND=r_def), pointer, dimension(:) :: weights_high_to_low_data => null()
REAL(KIND=r_def), pointer, dimension(:) :: coarse_field_data => null()
REAL(KIND=r_def), pointer, dimension(:) :: fine_field_data => null()
TYPE(field_proxy_type) fine_field_proxy, coarse_field_proxy, weights_high_to_low_proxy
TYPE(field_proxy_type) :: fine_field_proxy, coarse_field_proxy, weights_high_to_low_proxy
INTEGER(KIND=i_def), pointer :: map_adspc1_fine_field(:,:) => null(), map_adspc2_coarse_field(:,:) => null(), &
&map_adspc3_weights_high_to_low(:,:) => null()
INTEGER(KIND=i_def) ndf_adspc1_fine_field, undf_adspc1_fine_field, ndf_adspc2_coarse_field, undf_adspc2_coarse_field, &
INTEGER(KIND=i_def) :: ndf_adspc1_fine_field, undf_adspc1_fine_field, ndf_adspc2_coarse_field, undf_adspc2_coarse_field, &
&ndf_adspc3_weights_high_to_low, undf_adspc3_weights_high_to_low
INTEGER(KIND=i_def) ncell_fine_field, ncpc_fine_field_coarse_field_x, ncpc_fine_field_coarse_field_y
INTEGER(KIND=i_def) :: ncell_fine_field, ncpc_fine_field_coarse_field_x, ncpc_fine_field_coarse_field_y
INTEGER(KIND=i_def), pointer :: cell_map_coarse_field(:,:,:) => null()
TYPE(mesh_map_type), pointer :: mmap_fine_field_coarse_field => null()
INTEGER(KIND=i_def) max_halo_depth_mesh_fine_field
INTEGER(KIND=i_def) :: max_halo_depth_mesh_fine_field
TYPE(mesh_type), pointer :: mesh_fine_field => null()
INTEGER(KIND=i_def) max_halo_depth_mesh_coarse_field
INTEGER(KIND=i_def) :: max_halo_depth_mesh_coarse_field
TYPE(mesh_type), pointer :: mesh_coarse_field => null()
!
! Initialise field and/or operator proxies
Expand Down Expand Up @@ -504,23 +504,23 @@ SUBROUTINE invoke_map_scalar_fv_to_fe_kernel_type(coarse_field, fine_field, weig
USE mesh_map_mod, ONLY: mesh_map_type
USE mesh_mod, ONLY: mesh_type
TYPE(field_type), intent(in) :: coarse_field, fine_field, weights_low_to_high
INTEGER(KIND=i_def) cell
INTEGER(KIND=i_def) loop0_start, loop0_stop
INTEGER(KIND=i_def) nlayers_coarse_field
INTEGER(KIND=i_def) :: cell
INTEGER(KIND=i_def) :: loop0_start, loop0_stop
INTEGER(KIND=i_def) :: nlayers_coarse_field
REAL(KIND=r_def), pointer, dimension(:) :: weights_low_to_high_data => null()
REAL(KIND=r_def), pointer, dimension(:) :: fine_field_data => null()
REAL(KIND=r_def), pointer, dimension(:) :: coarse_field_data => null()
TYPE(field_proxy_type) coarse_field_proxy, fine_field_proxy, weights_low_to_high_proxy
TYPE(field_proxy_type) :: coarse_field_proxy, fine_field_proxy, weights_low_to_high_proxy
INTEGER(KIND=i_def), pointer :: map_adspc1_coarse_field(:,:) => null(), map_adspc2_fine_field(:,:) => null(), &
&map_adspc3_weights_low_to_high(:,:) => null()
INTEGER(KIND=i_def) ndf_adspc1_coarse_field, undf_adspc1_coarse_field, ndf_adspc2_fine_field, undf_adspc2_fine_field, &
INTEGER(KIND=i_def) :: ndf_adspc1_coarse_field, undf_adspc1_coarse_field, ndf_adspc2_fine_field, undf_adspc2_fine_field, &
&ndf_adspc3_weights_low_to_high, undf_adspc3_weights_low_to_high
INTEGER(KIND=i_def) ncell_fine_field, ncpc_fine_field_coarse_field_x, ncpc_fine_field_coarse_field_y
INTEGER(KIND=i_def) :: ncell_fine_field, ncpc_fine_field_coarse_field_x, ncpc_fine_field_coarse_field_y
INTEGER(KIND=i_def), pointer :: cell_map_coarse_field(:,:,:) => null()
TYPE(mesh_map_type), pointer :: mmap_fine_field_coarse_field => null()
INTEGER(KIND=i_def) max_halo_depth_mesh_fine_field
INTEGER(KIND=i_def) :: max_halo_depth_mesh_fine_field
TYPE(mesh_type), pointer :: mesh_fine_field => null()
INTEGER(KIND=i_def) max_halo_depth_mesh_coarse_field
INTEGER(KIND=i_def) :: max_halo_depth_mesh_coarse_field
TYPE(mesh_type), pointer :: mesh_coarse_field => null()
!
! Initialise field and/or operator proxies
Expand Down Expand Up @@ -605,29 +605,29 @@ SUBROUTINE invoke_weights_w2_inter_element_order_kernel_type(dummy_fine, dummy_c
USE mesh_mod, ONLY: mesh_type
TYPE(field_type), intent(in) :: dummy_fine, dummy_coarse, weights_high_low, weights_low_high
TYPE(quadrature_xyoz_type), intent(in) :: qr
INTEGER(KIND=i_def) cell
INTEGER(KIND=i_def) loop0_start, loop0_stop
INTEGER(KIND=i_def) :: cell
INTEGER(KIND=i_def) :: loop0_start, loop0_stop
REAL(KIND=r_def), allocatable :: basis_adspc2_dummy_coarse_qr(:,:,:,:)
INTEGER(KIND=i_def) dim_adspc2_dummy_coarse
INTEGER(KIND=i_def) :: dim_adspc2_dummy_coarse
REAL(KIND=r_def), pointer :: weights_xy_qr(:) => null(), weights_z_qr(:) => null()
INTEGER(KIND=i_def) np_xy_qr, np_z_qr
INTEGER(KIND=i_def) nlayers_dummy_fine
INTEGER(KIND=i_def) :: np_xy_qr, np_z_qr
INTEGER(KIND=i_def) :: nlayers_dummy_fine
REAL(KIND=r_def), pointer, dimension(:) :: weights_low_high_data => null()
REAL(KIND=r_def), pointer, dimension(:) :: weights_high_low_data => null()
REAL(KIND=r_def), pointer, dimension(:) :: dummy_coarse_data => null()
REAL(KIND=r_def), pointer, dimension(:) :: dummy_fine_data => null()
TYPE(field_proxy_type) dummy_fine_proxy, dummy_coarse_proxy, weights_high_low_proxy, weights_low_high_proxy
TYPE(quadrature_xyoz_proxy_type) qr_proxy
TYPE(field_proxy_type) :: dummy_fine_proxy, dummy_coarse_proxy, weights_high_low_proxy, weights_low_high_proxy
TYPE(quadrature_xyoz_proxy_type) :: qr_proxy
INTEGER(KIND=i_def), pointer :: map_adspc1_dummy_fine(:,:) => null(), map_adspc2_dummy_coarse(:,:) => null(), &
&map_adspc3_weights_high_low(:,:) => null()
INTEGER(KIND=i_def) ndf_adspc1_dummy_fine, undf_adspc1_dummy_fine, ndf_adspc2_dummy_coarse, undf_adspc2_dummy_coarse, &
INTEGER(KIND=i_def) :: ndf_adspc1_dummy_fine, undf_adspc1_dummy_fine, ndf_adspc2_dummy_coarse, undf_adspc2_dummy_coarse, &
&ndf_adspc3_weights_high_low, undf_adspc3_weights_high_low
INTEGER(KIND=i_def) ncell_dummy_fine, ncpc_dummy_fine_dummy_coarse_x, ncpc_dummy_fine_dummy_coarse_y
INTEGER(KIND=i_def) :: ncell_dummy_fine, ncpc_dummy_fine_dummy_coarse_x, ncpc_dummy_fine_dummy_coarse_y
INTEGER(KIND=i_def), pointer :: cell_map_dummy_coarse(:,:,:) => null()
TYPE(mesh_map_type), pointer :: mmap_dummy_fine_dummy_coarse => null()
INTEGER(KIND=i_def) max_halo_depth_mesh_dummy_fine
INTEGER(KIND=i_def) :: max_halo_depth_mesh_dummy_fine
TYPE(mesh_type), pointer :: mesh_dummy_fine => null()
INTEGER(KIND=i_def) max_halo_depth_mesh_dummy_coarse
INTEGER(KIND=i_def) :: max_halo_depth_mesh_dummy_coarse
TYPE(mesh_type), pointer :: mesh_dummy_coarse => null()
!
! Initialise field and/or operator proxies
Expand Down Expand Up @@ -735,26 +735,26 @@ SUBROUTINE invoke_map_w2_fv_to_fe_kernel_type(target_field, source_field, weight
USE mesh_mod, ONLY: mesh_type
TYPE(field_type), intent(in) :: target_field, source_field, weights
TYPE(integer_field_type), intent(in) :: face_selector_ew, face_selector_ns
INTEGER(KIND=i_def) cell
INTEGER(KIND=i_def) loop0_start, loop0_stop
INTEGER(KIND=i_def) nlayers_target_field
INTEGER(KIND=i_def) :: cell
INTEGER(KIND=i_def) :: loop0_start, loop0_stop
INTEGER(KIND=i_def) :: nlayers_target_field
INTEGER(KIND=i_def), pointer, dimension(:) :: face_selector_ns_data => null()
INTEGER(KIND=i_def), pointer, dimension(:) :: face_selector_ew_data => null()
TYPE(integer_field_proxy_type) face_selector_ew_proxy, face_selector_ns_proxy
TYPE(integer_field_proxy_type) :: face_selector_ew_proxy, face_selector_ns_proxy
REAL(KIND=r_def), pointer, dimension(:) :: weights_data => null()
REAL(KIND=r_def), pointer, dimension(:) :: source_field_data => null()
REAL(KIND=r_def), pointer, dimension(:) :: target_field_data => null()
TYPE(field_proxy_type) target_field_proxy, source_field_proxy, weights_proxy
TYPE(field_proxy_type) :: target_field_proxy, source_field_proxy, weights_proxy
INTEGER(KIND=i_def), pointer :: map_adspc1_target_field(:,:) => null(), map_adspc2_source_field(:,:) => null(), &
&map_adspc3_weights(:,:) => null(), map_adspc4_face_selector_ew(:,:) => null()
INTEGER(KIND=i_def) ndf_adspc1_target_field, undf_adspc1_target_field, ndf_adspc2_source_field, undf_adspc2_source_field, &
INTEGER(KIND=i_def) :: ndf_adspc1_target_field, undf_adspc1_target_field, ndf_adspc2_source_field, undf_adspc2_source_field, &
&ndf_adspc3_weights, undf_adspc3_weights, ndf_adspc4_face_selector_ew, undf_adspc4_face_selector_ew
INTEGER(KIND=i_def) ncell_source_field, ncpc_source_field_target_field_x, ncpc_source_field_target_field_y
INTEGER(KIND=i_def) :: ncell_source_field, ncpc_source_field_target_field_x, ncpc_source_field_target_field_y
INTEGER(KIND=i_def), pointer :: cell_map_target_field(:,:,:) => null()
TYPE(mesh_map_type), pointer :: mmap_source_field_target_field => null()
INTEGER(KIND=i_def) max_halo_depth_mesh_target_field
INTEGER(KIND=i_def) :: max_halo_depth_mesh_target_field
TYPE(mesh_type), pointer :: mesh_target_field => null()
INTEGER(KIND=i_def) max_halo_depth_mesh_source_field
INTEGER(KIND=i_def) :: max_halo_depth_mesh_source_field
TYPE(mesh_type), pointer :: mesh_source_field => null()
!
! Initialise field and/or operator proxies
Expand Down Expand Up @@ -846,26 +846,26 @@ SUBROUTINE invoke_map_w2_fe_to_fv_kernel_type(target_field, source_field, weight
USE mesh_mod, ONLY: mesh_type
TYPE(field_type), intent(in) :: target_field, source_field, weights
TYPE(integer_field_type), intent(in) :: face_selector_ew, face_selector_ns
INTEGER(KIND=i_def) cell
INTEGER(KIND=i_def) loop0_start, loop0_stop
INTEGER(KIND=i_def) nlayers_target_field
INTEGER(KIND=i_def) :: cell
INTEGER(KIND=i_def) :: loop0_start, loop0_stop
INTEGER(KIND=i_def) :: nlayers_target_field
INTEGER(KIND=i_def), pointer, dimension(:) :: face_selector_ns_data => null()
INTEGER(KIND=i_def), pointer, dimension(:) :: face_selector_ew_data => null()
TYPE(integer_field_proxy_type) face_selector_ew_proxy, face_selector_ns_proxy
TYPE(integer_field_proxy_type) :: face_selector_ew_proxy, face_selector_ns_proxy
REAL(KIND=r_def), pointer, dimension(:) :: weights_data => null()
REAL(KIND=r_def), pointer, dimension(:) :: source_field_data => null()
REAL(KIND=r_def), pointer, dimension(:) :: target_field_data => null()
TYPE(field_proxy_type) target_field_proxy, source_field_proxy, weights_proxy
TYPE(field_proxy_type) :: target_field_proxy, source_field_proxy, weights_proxy
INTEGER(KIND=i_def), pointer :: map_adspc1_target_field(:,:) => null(), map_adspc2_source_field(:,:) => null(), &
&map_adspc3_weights(:,:) => null(), map_adspc4_face_selector_ew(:,:) => null()
INTEGER(KIND=i_def) ndf_adspc1_target_field, undf_adspc1_target_field, ndf_adspc2_source_field, undf_adspc2_source_field, &
INTEGER(KIND=i_def) :: ndf_adspc1_target_field, undf_adspc1_target_field, ndf_adspc2_source_field, undf_adspc2_source_field, &
&ndf_adspc3_weights, undf_adspc3_weights, ndf_adspc4_face_selector_ew, undf_adspc4_face_selector_ew
INTEGER(KIND=i_def) ncell_target_field, ncpc_target_field_source_field_x, ncpc_target_field_source_field_y
INTEGER(KIND=i_def) :: ncell_target_field, ncpc_target_field_source_field_x, ncpc_target_field_source_field_y
INTEGER(KIND=i_def), pointer :: cell_map_source_field(:,:,:) => null()
TYPE(mesh_map_type), pointer :: mmap_target_field_source_field => null()
INTEGER(KIND=i_def) max_halo_depth_mesh_target_field
INTEGER(KIND=i_def) :: max_halo_depth_mesh_target_field
TYPE(mesh_type), pointer :: mesh_target_field => null()
INTEGER(KIND=i_def) max_halo_depth_mesh_source_field
INTEGER(KIND=i_def) :: max_halo_depth_mesh_source_field
TYPE(mesh_type), pointer :: mesh_source_field => null()
!
! Initialise field and/or operator proxies
Expand Down
9 changes: 9 additions & 0 deletions components/science/source/solver/sci_iterative_solver_mod.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -444,6 +444,7 @@ end module sci_iterative_solver_mod

! Submodule with procedures for conjugate gradient !
submodule(sci_iterative_solver_mod) conjugate_gradient_smod
implicit none
contains

!> Constructs a <code>conjugate_gradient</code> solver.
Expand Down Expand Up @@ -595,6 +596,7 @@ end subroutine cg_solve

! submodule for the bicgstab procedures -- !
submodule(sci_iterative_solver_mod) bicgstab_smod
implicit none
contains

!> Constructs a <code>bicgstab_type</code> solver.
Expand Down Expand Up @@ -781,6 +783,7 @@ end subroutine bicgstab_solve
end submodule bicgstab_smod

submodule(sci_iterative_solver_mod) gmres_smod
implicit none
contains
!> constructs a <code>gmres_type</code> solver
!> sets the values for the solver such as the residual (r_tol) and
Expand Down Expand Up @@ -1004,6 +1007,7 @@ end subroutine gmres_solve
end submodule gmres_smod

submodule(sci_iterative_solver_mod) fgmres_smod
implicit none
contains
!> constructs a <code>fgmres_type</code> solver
!> sets the values for the solver such as the residual (r_tol) and
Expand Down Expand Up @@ -1238,6 +1242,7 @@ end subroutine fgmres_solve
end submodule fgmres_smod

submodule(sci_iterative_solver_mod) gcr_smod
implicit none
contains
!> constructs a <code>gcr_type</code> solver
!> sets the values for the solver such as the residual (r_tol) and
Expand Down Expand Up @@ -1409,6 +1414,7 @@ end subroutine gcr_solve
end submodule gcr_smod

submodule(sci_iterative_solver_mod) block_gcr_smod
implicit none
contains
!> constructs a <code>block_gcr_type</code> solver
!> sets the values for the solver such as the residual (r_tol) and
Expand Down Expand Up @@ -1627,6 +1633,7 @@ end subroutine block_gcr_solve

! Submodule with procedures for Precondition only !
submodule(sci_iterative_solver_mod) precondition_only_smod
implicit none
contains
!> constructs a <code>precondition_only</code> solver
!> sets the values for the solver such as the residual (r_tol) and
Expand Down Expand Up @@ -1694,6 +1701,7 @@ end subroutine precondition_only_solve

! Submodule with procedures for Jacobi solver !
submodule(sci_iterative_solver_mod) jacobi_smod
implicit none
contains
!> Constructs a <code>Jacobi</code> solver
!> sets the values for the solver such as the residual (r_tol) and
Expand Down Expand Up @@ -1814,6 +1822,7 @@ end subroutine jacobi_solve


submodule(sci_iterative_solver_mod) chebyshev_smod
implicit none
contains
!> constructs a <code>chebyshev</code> solver
!> sets the values for the solver such as the residual (r_tol) and
Expand Down
4 changes: 2 additions & 2 deletions infrastructure/build/psyclone/tests/source/handwritten/psy/preprocessed_alg_psy.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -6,8 +6,8 @@ MODULE preprocessed_alg_mod_psy
SUBROUTINE invoke_0(one)
implicit none
TYPE(field_type), intent(in) :: one
INTEGER df
TYPE(field_proxy_type) one_proxy
INTEGER :: df
TYPE(field_proxy_type) :: one_proxy
!
! Initialise field and/or operator proxies
!
Expand Down
4 changes: 2 additions & 2 deletions infrastructure/build/psyclone/tests/source/handwritten/psy/unprocessed_alg_psy.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -6,8 +6,8 @@ MODULE unprocessed_alg_mod_psy
SUBROUTINE invoke_0(one)
implicit none
TYPE(field_type), intent(in) :: one
INTEGER df
TYPE(field_proxy_type) one_proxy
INTEGER :: df
TYPE(field_proxy_type) :: one_proxy
!
! Initialise field and/or operator proxies
!
Expand Down
Loading
Loading