From e28065b049cd7173cf47c49882ff7e5fbda33761 Mon Sep 17 00:00:00 2001 From: Robert Hallberg Date: Thu, 3 May 2018 18:22:04 -0400 Subject: [PATCH] Specified argument intent in MOM_checksums.F90 Specified the intent for a number of subroutine arguments in MOM_checksums.F90 where this had been omitted. All answers are bitwise identical. --- src/framework/MOM_checksums.F90 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/framework/MOM_checksums.F90 b/src/framework/MOM_checksums.F90 index b6f2a1c334..9f738f6322 100644 --- a/src/framework/MOM_checksums.F90 +++ b/src/framework/MOM_checksums.F90 @@ -1191,7 +1191,7 @@ end function chksum_general_3d !> Return the bitcount of an arbitrarily sized 2d array by promotion to a 3d array integer function chksum_general_2d( array_2d, scale_factor, istart, iend, jstart, jend ) - real, dimension(:,:) :: array_2d !< Array to be checksummed + real, dimension(:,:), intent(in) :: array_2d !< Array to be checksummed real, optional, intent(in) :: scale_factor !< Factor to scale array by before checksum integer, optional, intent(in) :: istart !< Starting index in the i-direction integer, optional, intent(in) :: iend !< Ending index in the i-direction @@ -1210,11 +1210,11 @@ end function chksum_general_2d !> Return the bitcount of an arbitrarily sized 1d array by promotion to a 3d array integer function chksum_general_1d( array_1d, scale_factor, istart, iend ) - real, dimension(:) :: array_1d !< Array to be checksummed - real, optional :: scale_factor !< Factor to scale array by before checksum - integer, optional :: istart !< Starting index in the i-direction - integer, optional :: iend !< Ending index in the i-direction - integer :: is, ie, js, je + real, dimension(:), intent(in) :: array_1d !< Array to be checksummed + real, optional, intent(in) :: scale_factor !< Factor to scale array by before checksum + integer, optional, intent(in) :: istart !< Starting index in the i-direction + integer, optional, intent(in) :: iend !< Ending index in the i-direction + integer :: is, ie real, dimension(:,:,:), allocatable :: array_3d !< Promotion from 2d to 3d array is = LBOUND(array_1d,1) ; ie = UBOUND(array_1d,1)