Skip to content

Fixes for flang in MOM_remapping.F90 #1692

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
mathomp4 wants to merge 2 commits into
base: main
Choose a base branch
from
Open

Fixes for flang in MOM_remapping.F90 #1692

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
5a77a4a
Fixes for flang
mathomp4 Feb 28, 2026
80b9ee8
Change variable not type
mathomp4 Mar 5, 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
64 changes: 32 additions & 32 deletions src/ALE/MOM_remapping.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2095,22 +2095,22 @@ logical function remapping_unit_tests(verbose, num_comp_samp)
integer :: om4 ! Loop parameter, 0 or 1
integer :: ntests ! Number of iterations when brute force testing
character(len=4) :: om4_tag ! Generated label
type(PCM) :: PCM
type(PLM_CW) :: PLM_CW
type(PLM_hybgen) :: PLM_hybgen
type(MPLM_WA) :: MPLM_WA
type(EMPLM_WA) :: EMPLM_WA
type(MPLM_WA_poly) :: MPLM_WA_poly
type(EMPLM_WA_poly) :: EMPLM_WA_poly
type(PLM_CWK) :: PLM_CWK
type(MPLM_CWK) :: MPLM_CWK
type(EMPLM_CWK) :: EMPLM_CWK
type(PPM_H4_2019) :: PPM_H4_2019
type(PPM_H4_2018) :: PPM_H4_2018
type(PPM_CW) :: PPM_CW
type(PPM_hybgen) :: PPM_hybgen
type(PPM_CWK) :: PPM_CWK
type(EPPM_CWK) :: EPPM_CWK
type(PCM) :: PCM_instance
type(PLM_CW) :: PLM_CW_instance
type(PLM_hybgen) :: PLM_hybgen_instance
type(MPLM_WA) :: MPLM_WA_instance
type(EMPLM_WA) :: EMPLM_WA_instance
type(MPLM_WA_poly) :: MPLM_WA_poly_instance
type(EMPLM_WA_poly) :: EMPLM_WA_poly_instance
type(PLM_CWK) :: PLM_CWK_instance
type(MPLM_CWK) :: MPLM_CWK_instance
type(EMPLM_CWK) :: EMPLM_CWK_instance
type(PPM_H4_2019) :: PPM_H4_2019_instance
type(PPM_H4_2018) :: PPM_H4_2018_instance
type(PPM_CW) :: PPM_CW_instance
type(PPM_hybgen) :: PPM_hybgen_instance
type(PPM_CWK) :: PPM_CWK_instance
type(EPPM_CWK) :: EPPM_CWK_instance

call test%set( verbose=verbose ) ! Sets the verbosity flag in test
! call test%set( stop_instantly=.true. ) ! While debugging
Expand Down Expand Up @@ -2724,22 +2724,22 @@ logical function remapping_unit_tests(verbose, num_comp_samp)
3, (/0.,0.,0./), (/0.,0.,0./) )

if (verbose) write(test%stdout,*) '- - - - - - - - - - Recon1d PCM tests - - - - - - - - -'
call test%test( PCM%unit_tests(verbose, test%stdout, test%stderr), 'PCM unit test')
call test%test( MPLM_WA%unit_tests(verbose, test%stdout, test%stderr), 'MPLM_WA unit test')
call test%test( EMPLM_WA%unit_tests(verbose, test%stdout, test%stderr), 'EMPLM_WA unit test')
call test%test( MPLM_WA_poly%unit_tests(verbose, test%stdout, test%stderr), 'MPLM_WA_poly unit test')
call test%test( EMPLM_WA_poly%unit_tests(verbose, test%stdout, test%stderr), 'EMPLM_WA_poly unit test')
call test%test( PLM_hybgen%unit_tests(verbose, test%stdout, test%stderr), 'PLM_hybgen unit test')
call test%test( PLM_CW%unit_tests(verbose, test%stdout, test%stderr), 'PLM_CW unit test')
call test%test( PLM_CWK%unit_tests(verbose, test%stdout, test%stderr), 'PLM_CWK unit test')
call test%test( MPLM_CWK%unit_tests(verbose, test%stdout, test%stderr), 'MPLM_CWK unit test')
call test%test( EMPLM_CWK%unit_tests(verbose, test%stdout, test%stderr), 'EMPLM_CWK unit test')
call test%test( PPM_H4_2019%unit_tests(verbose, test%stdout, test%stderr), 'PPM_H4_2019 unit test')
call test%test( PPM_H4_2018%unit_tests(verbose, test%stdout, test%stderr), 'PPM_H4_2018 unit test')
call test%test( PPM_hybgen%unit_tests(verbose, test%stdout, test%stderr), 'PPM_hybgen unit test')
call test%test( PPM_CW%unit_tests(verbose, test%stdout, test%stderr), 'PPM_CW unit test')
call test%test( PPM_CWK%unit_tests(verbose, test%stdout, test%stderr), 'PPM_CWK unit test')
call test%test( EPPM_CWK%unit_tests(verbose, test%stdout, test%stderr), 'EPPM_CWK unit test')
call test%test( PCM_instance%unit_tests(verbose, test%stdout, test%stderr), 'PCM unit test')
call test%test( MPLM_WA_instance%unit_tests(verbose, test%stdout, test%stderr), 'MPLM_WA unit test')
call test%test( EMPLM_WA_instance%unit_tests(verbose, test%stdout, test%stderr), 'EMPLM_WA unit test')
call test%test( MPLM_WA_poly_instance%unit_tests(verbose, test%stdout, test%stderr), 'MPLM_WA_poly unit test')
call test%test( EMPLM_WA_poly_instance%unit_tests(verbose, test%stdout, test%stderr), 'EMPLM_WA_poly unit test')
call test%test( PLM_hybgen_instance%unit_tests(verbose, test%stdout, test%stderr), 'PLM_hybgen unit test')
call test%test( PLM_CW_instance%unit_tests(verbose, test%stdout, test%stderr), 'PLM_CW unit test')
call test%test( PLM_CWK_instance%unit_tests(verbose, test%stdout, test%stderr), 'PLM_CWK unit test')
call test%test( MPLM_CWK_instance%unit_tests(verbose, test%stdout, test%stderr), 'MPLM_CWK unit test')
call test%test( EMPLM_CWK_instance%unit_tests(verbose, test%stdout, test%stderr), 'EMPLM_CWK unit test')
call test%test( PPM_H4_2019_instance%unit_tests(verbose, test%stdout, test%stderr), 'PPM_H4_2019 unit test')
call test%test( PPM_H4_2018_instance%unit_tests(verbose, test%stdout, test%stderr), 'PPM_H4_2018 unit test')
call test%test( PPM_hybgen_instance%unit_tests(verbose, test%stdout, test%stderr), 'PPM_hybgen unit test')
call test%test( PPM_CW_instance%unit_tests(verbose, test%stdout, test%stderr), 'PPM_CW unit test')
call test%test( PPM_CWK_instance%unit_tests(verbose, test%stdout, test%stderr), 'PPM_CWK unit test')
call test%test( EPPM_CWK_instance%unit_tests(verbose, test%stdout, test%stderr), 'EPPM_CWK unit test')

! Randomized, brute force tests
ntests = 3000
Expand Down