Skip to content
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

replace include fms_platform.h with use platform_mod in mpp unit tests #1616

Merged
merged 2 commits into from
Dec 2, 2024
Merged

replace include fms_platform.h with use platform_mod in mpp unit tests #1616

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
d3bab9b
replace fms_platform.h with use platform_mod
Nov 25, 2024
111c8bd
remove added space
Nov 25, 2024
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
5 changes: 3 additions & 2 deletions test_fms/mpp/test_domains_simple.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -24,11 +24,12 @@

!> @author Ed Hartnett 6/22/20
program test_domains_simple

use mpp_mod
use mpp_domains_mod

use platform_mod
implicit none
#include "../../include/fms_platform.h"

integer :: pe, npes !> This pe and the total number of pes.
integer :: nx=40, ny=40 !> Size of our 2D domain.
integer :: layout(2) !> Layout of our 2D domain.
Expand Down
3 changes: 2 additions & 1 deletion test_fms/mpp/test_mpp_mem_dump.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -27,8 +27,9 @@
!! Test that the call to mpp_mem_dump is functional. On a supported OS, the return value
!! of mpp_mem_dump should be a positive integer.
program test_mpp_mem_dump

use mpp_memutils_mod, only: mpp_mem_dump
#include "../../include/fms_platform.h"
use platform_mod
implicit none

real :: memuse
Expand Down
2 changes: 1 addition & 1 deletion test_fms/mpp/test_mpp_memutils_begin_2x.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -28,10 +28,10 @@
!! code this is an error, which should be caught. This program should exit
!! non-zero.
program test_mpp_memutils_init_end
#include "../../include/fms_platform.h"

use mpp_mod, only : mpp_init, mpp_exit
use mpp_memutils_mod, only: mpp_memuse_begin, mpp_memuse_end
use platform_mod
implicit none

real, dimension(:), allocatable :: ralloc_mem
Expand Down
2 changes: 1 addition & 1 deletion test_fms/mpp/test_mpp_memutils_begin_end.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -28,10 +28,10 @@
!! This test will exit with status zero if successful. The script launching this test
!! program may, if desired, check if the memory output numbers are sane.
program test_mpp_memutils_init_end
#include "../../include/fms_platform.h"

use mpp_mod, only : mpp_init, mpp_exit
use mpp_memutils_mod, only: mpp_memuse_begin, mpp_memuse_end
use platform_mod
implicit none

real, dimension(:), allocatable :: ralloc_mem
Expand Down
2 changes: 1 addition & 1 deletion test_fms/mpp/test_mpp_memutils_end_before_begin.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -27,10 +27,10 @@
!! Test the error case when mpp_memuse_end() is called before mpp_memuse_begin().
!! This test program should exit non-zero if successful.
program test_mpp_memutils_init_end
#include "../../include/fms_platform.h"

use mpp_mod, only : mpp_init, mpp_exit
use mpp_memutils_mod, only: mpp_memuse_begin, mpp_memuse_end
use platform_mod
implicit none

real, dimension(:), allocatable :: ralloc_mem
Expand Down
2 changes: 1 addition & 1 deletion test_fms/mpp/test_mpp_print_memuse_stats_file.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -32,11 +32,11 @@
!! successful. The script calling the program can check if the numbers are sane, if
!! desired.
program test_mpp_mem_print_stats_file
#include "../../include/fms_platform.h"

use mpp_mod, only : mpp_init, mpp_exit, stdout
use mpp_memutils_mod, only: mpp_memuse_begin, mpp_memuse_end
use mpp_memutils_mod, only: mpp_print_memuse_stats
use platform_mod
implicit none

real, dimension(:), allocatable :: ralloc_mem1, ralloc_mem2
Expand Down
2 changes: 1 addition & 1 deletion test_fms/mpp/test_mpp_print_memuse_stats_stderr.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -30,11 +30,11 @@
!! successful. The script calling the program can check if the numbers are sane, if
!! desired.
program test_mpp_mem_print_stats_stderr
#include "../../include/fms_platform.h"

use mpp_mod, only : mpp_init, mpp_exit
use mpp_memutils_mod, only: mpp_memuse_begin, mpp_memuse_end
use mpp_memutils_mod, only: mpp_print_memuse_stats
use platform_mod
implicit none

real, dimension(:), allocatable :: ralloc_mem1, ralloc_mem2
Expand Down
Loading