Commit 4a2a68d4 authored by Sebastian Müller's avatar Sebastian Müller 🐈
Browse files

Merge branch 'compiler_warnings' into 'develop'

Compiler warnings

Closes #26

See merge request !43
parents 5b521938 3e1f0276
Pipeline #70805 passed with stages
in 11 minutes and 26 seconds
......@@ -43,8 +43,8 @@ MODULE mo_boxcox
! History:
! Dec 2019: Robert Schweppe: - removed NR code (get_boxcox)
USE mo_kind, ONLY : i4, sp, dp
USE mo_utils, only : eq, le, ge
USE mo_kind, ONLY : sp, dp
USE mo_utils, only : le
IMPLICIT NONE
......
......@@ -56,7 +56,7 @@
!! \endcode
module mo_cli
use mo_kind, only: dp, i4
use mo_kind, only: i4
use mo_message, only: error_message, message
implicit none
......
......@@ -6,7 +6,7 @@ module mo_likelihood
USE mo_kind, only: i4, dp
USE mo_moment, only: stddev
use mo_optimization_utils, only: eval_interface, objective_interface
use mo_optimization_utils, only: eval_interface
Implicit NONE
......
......@@ -726,7 +726,7 @@ contains
type(NcVariable) :: ncVarBounds
type(NcDimension) :: bndsDim
integer(i8) :: dimLength, iBound
integer(i4) :: reference, iAtt
integer(i4) :: reference
character(256) :: dimBoundName
real(dp), allocatable, dimension(:, :) :: boundData
......@@ -1043,7 +1043,7 @@ contains
function getVariableDtype(self)
class(NcVariable), intent(in) :: self
integer(i4) :: dtype
character(3) :: getVariableDtype
character(4) :: getVariableDtype
call check(nf90_inquire_variable(self%parent%id, self%id, xtype = dtype), &
"Could not inquire variable: " // self%getName())
......@@ -1547,7 +1547,7 @@ contains
integer(i4) :: flagMissing
real(sp) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1)))
......@@ -1591,7 +1591,7 @@ contains
integer(i4) :: flagMissing
real(sp) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2)))
......@@ -1635,7 +1635,7 @@ contains
integer(i4) :: flagMissing
real(sp) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3)))
......@@ -1679,7 +1679,7 @@ contains
integer(i4) :: flagMissing
real(sp) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4)))
......@@ -1723,7 +1723,7 @@ contains
integer(i4) :: flagMissing
real(sp) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4), datashape(5)))
......@@ -1767,7 +1767,7 @@ contains
integer(i4) :: flagMissing
real(sp) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4), datashape(5), datashape(6)))
......@@ -1901,7 +1901,7 @@ contains
integer(i4) :: flagMissing
real(dp) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1)))
......@@ -1945,7 +1945,7 @@ contains
integer(i4) :: flagMissing
real(dp) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2)))
......@@ -1989,7 +1989,7 @@ contains
integer(i4) :: flagMissing
real(dp) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3)))
......@@ -2033,7 +2033,7 @@ contains
integer(i4) :: flagMissing
real(dp) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4)))
......@@ -2077,7 +2077,7 @@ contains
integer(i4) :: flagMissing
real(dp) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4), datashape(5)))
......@@ -2121,7 +2121,7 @@ contains
integer(i4) :: flagMissing
real(dp) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4), datashape(5), datashape(6)))
......@@ -2253,7 +2253,7 @@ contains
integer(i4) :: flagMissing
integer(i1) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1)))
......@@ -2295,7 +2295,7 @@ contains
integer(i4) :: flagMissing
integer(i1) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2)))
......@@ -2337,7 +2337,7 @@ contains
integer(i4) :: flagMissing
integer(i1) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3)))
......@@ -2379,7 +2379,7 @@ contains
integer(i4) :: flagMissing
integer(i1) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4)))
......@@ -2421,7 +2421,7 @@ contains
integer(i4) :: flagMissing
integer(i1) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4), datashape(5)))
......@@ -2463,7 +2463,7 @@ contains
integer(i4) :: flagMissing
integer(i1) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4), datashape(5), datashape(6)))
......@@ -2590,7 +2590,7 @@ contains
integer(i4) :: flagMissing
integer(i2) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1)))
......@@ -2632,7 +2632,7 @@ contains
integer(i4) :: flagMissing
integer(i2) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2)))
......@@ -2674,7 +2674,7 @@ contains
integer(i4) :: flagMissing
integer(i2) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3)))
......@@ -2716,7 +2716,7 @@ contains
integer(i4) :: flagMissing
integer(i2) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4)))
......@@ -2758,7 +2758,7 @@ contains
integer(i4) :: flagMissing
integer(i2) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4), datashape(5)))
......@@ -2800,7 +2800,7 @@ contains
integer(i4) :: flagMissing
integer(i2) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4), datashape(5), datashape(6)))
......@@ -2927,7 +2927,7 @@ contains
integer(i4) :: flagMissing
integer(i4) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1)))
......@@ -2969,7 +2969,7 @@ contains
integer(i4) :: flagMissing
integer(i4) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2)))
......@@ -3011,7 +3011,7 @@ contains
integer(i4) :: flagMissing
integer(i4) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3)))
......@@ -3053,7 +3053,7 @@ contains
integer(i4) :: flagMissing
integer(i4) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4)))
......@@ -3095,7 +3095,7 @@ contains
integer(i4) :: flagMissing
integer(i4) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4), datashape(5)))
......@@ -3137,7 +3137,7 @@ contains
integer(i4) :: flagMissing
integer(i4) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4), datashape(5), datashape(6)))
......@@ -3264,7 +3264,7 @@ contains
integer(i4) :: flagMissing
integer(i8) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1)))
......@@ -3306,7 +3306,7 @@ contains
integer(i4) :: flagMissing
integer(i8) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2)))
......@@ -3348,7 +3348,7 @@ contains
integer(i4) :: flagMissing
integer(i8) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3)))
......@@ -3390,7 +3390,7 @@ contains
integer(i4) :: flagMissing
integer(i8) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4)))
......@@ -3432,7 +3432,7 @@ contains
integer(i4) :: flagMissing
integer(i8) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4), datashape(5)))
......@@ -3474,7 +3474,7 @@ contains
integer(i4) :: flagMissing
integer(i8) :: fillValue, minValue, maxValue
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
allocate(data(datashape(1), datashape(2), datashape(3), datashape(4), datashape(5), datashape(6)))
......@@ -3626,7 +3626,7 @@ contains
end function getDtypeFromString
function getDtypeFromInteger(dtype)
character(3) :: getDtypeFromInteger
character(4) :: getDtypeFromInteger
integer(i4) :: dtype
select case(dtype)
......
......@@ -504,7 +504,7 @@ contains
type(NcVariable) :: ncVarBounds
type(NcDimension) :: bndsDim
integer(i8) :: dimLength, iBound
integer(i4) :: reference, iAtt
integer(i4) :: reference
character(256) :: dimBoundName
real(dp), allocatable, dimension(:, :) :: boundData
......@@ -821,7 +821,7 @@ contains
function getVariableDtype(self)
class(NcVariable), intent(in) :: self
integer(i4) :: dtype
character(3) :: getVariableDtype
character(4) :: getVariableDtype
call check(nf90_inquire_variable(self%parent%id, self%id, xtype = dtype), &
"Could not inquire variable: " // self%getName())
......@@ -1045,7 +1045,7 @@ contains
${type}$ :: fillValue, minValue, maxValue
#: if rank > 0
integer(i4), allocatable :: slcshape(:), datashape(:)
slcshape = self%getSlicingShape(start, cnt, stride)
datashape = getReadShape(slcshape, size(shape(data)))
$: ' allocate(data(' + ('datashape({}), '*rank).format(*list(range(1, rank+1)))[:-2] + '))'
......@@ -1192,7 +1192,7 @@ $: ' allocate(mask(' + ('datashape({}), '*rank).format(*list(range(1, rank+
end function getDtypeFromString
function getDtypeFromInteger(dtype)
character(3) :: getDtypeFromInteger
character(4) :: getDtypeFromInteger
integer(i4) :: dtype
select case(dtype)
......
......@@ -1465,13 +1465,14 @@ CONTAINS
implicit none
logical, intent(in) :: to_file
integer(i4) :: ll
if (to_file) then
open(999, file = trim(adjustl(istmp_file)), action = 'write', position = 'append', recl = (nn + 6) * 30)
if (.not. maxit) then
write(999, *) nloop, icall, ngs1, bestf_tmp, worstf, gnrng, (bestx(jj), jj = 1, nn)
write(999, *) nloop, icall, ngs1, bestf_tmp, worstf, gnrng, (bestx(ll), ll = 1, nn)
else
write(999, *) nloop, icall, ngs1, -bestf_tmp, -worstf, gnrng, (bestx(jj), jj = 1, nn)
write(999, *) nloop, icall, ngs1, -bestf_tmp, -worstf, gnrng, (bestx(ll), ll = 1, nn)
end if
close(999)
else
......@@ -1481,12 +1482,12 @@ CONTAINS
write(output_unit, *) ''
write(output_unit, '(A44)') ' *** PRINT THE RESULTS OF THE SCE SEARCH ***'
write(output_unit, *) ''
write(output_unit, format_str1) ' LOOP TRIALS COMPLXS BEST F WORST F PAR RNG ', (xname(jj), jj = 1, nn)
write(output_unit, format_str1) ' LOOP TRIALS COMPLXS BEST F WORST F PAR RNG ', (xname(ll), ll = 1, nn)
end if
if (.not. maxit) then
write(output_unit, format_str2) nloop, icall, ngs1, bestf_tmp, worstf, gnrng, (bestx(jj), jj = 1, nn)
write(output_unit, format_str2) nloop, icall, ngs1, bestf_tmp, worstf, gnrng, (bestx(ll), ll = 1, nn)
else
write(output_unit, format_str2) nloop, icall, ngs1, -bestf_tmp, -worstf, gnrng, (bestx(jj), jj = 1, nn)
write(output_unit, format_str2) nloop, icall, ngs1, -bestf_tmp, -worstf, gnrng, (bestx(ll), ll = 1, nn)
end if
end if
......@@ -1496,14 +1497,16 @@ CONTAINS
implicit none
integer(i4) :: ll
write(format_str1, '(A13,I3,A8)') '( A10, ', nn, '(6X,A4))'
write(format_str2, '(A14,I3,A8)') '(E22.14, ', nn, '(G10.3))'
write(output_unit, format_str1) 'CRITERION ', (xname(jj), jj = 1, nn)
write(output_unit, format_str1) 'CRITERION ', (xname(ll), ll = 1, nn)
if (.not. maxit) then
write(output_unit, format_str2) bestf_tmp, (bestx(jj), jj = 1, nn)
write(output_unit, format_str2) bestf_tmp, (bestx(ll), ll = 1, nn)
else
write(output_unit, format_str2) -bestf_tmp, (bestx(jj), jj = 1, nn)
write(output_unit, format_str2) -bestf_tmp, (bestx(ll), ll = 1, nn)
end if
end subroutine write_best_final
......@@ -1512,16 +1515,18 @@ CONTAINS
logical, intent(in) :: to_file
integer(i4) :: ll, mm
if (to_file) then
write(format_str2, '(A13,I3,A9)') '(I4, E22.14, ', nn, '(E22.14))'
open(unit = 999, file = trim(adjustl(ispopul_file)), action = 'write', position = 'append', recl = (nn + 2) * 30)
if (.not. maxit) then
do ii = 1, npt1
write(999, *) nloop, xf(ii), (x(ii, jj), jj = 1, nn)
do mm = 1, npt1
write(999, *) nloop, xf(mm), (x(mm, ll), ll = 1, nn)
end do
else
do ii = 1, npt1
write(999, *) nloop, -xf(ii), (x(ii, jj), jj = 1, nn)
do mm = 1, npt1
write(999, *) nloop, -xf(mm), (x(mm, ll), ll = 1, nn)
end do
end if
close(999)
......@@ -1531,12 +1536,12 @@ CONTAINS
write(output_unit, '(A22,I3)') ' POPULATION AT LOOP ', nloop
write(output_unit, '(A27)') '---------------------------'
if (.not. maxit) then
do ii = 1, npt1
write(output_unit, format_str2) nloop, xf(ii), (x(ii, jj), jj = 1, nn)
do mm = 1, npt1
write(output_unit, format_str2) nloop, xf(mm), (x(mm, ll), ll = 1, nn)
end do
else
do ii = 1, npt1
write(output_unit, format_str2) nloop, -xf(ii), (x(ii, jj), jj = 1, nn)
do mm = 1, npt1
write(output_unit, format_str2) nloop, -xf(mm), (x(mm, ll), ll = 1, nn)
end do
end if
end if
......
......@@ -1280,7 +1280,6 @@ CONTAINS
! local
character(len = 21) :: ieee_up
real(dp) :: tmp
ieee_up = toupper(ieee)
select case(trim(ieee_up))
......@@ -1342,7 +1341,6 @@ CONTAINS
! local
character(len = 21) :: ieee_up
real(sp) :: tmp
ieee_up = toupper(ieee)
select case(trim(ieee_up))
......
......@@ -657,6 +657,7 @@ CONTAINS
real(SP) :: t24 = 1.0_SP / 16777216.0_SP ! = 0.5^24 = 1/2^24
!$omp threadprivate(x,i,w)
!
! produces a 24bit Integer Random Number (0...16777216) and
! scales it afterwards to (0.0,1.0)
......@@ -746,6 +747,8 @@ CONTAINS
if ((r + 3) <= n_save_state) save_state(r + 3 : n_save_state) = 0
end if
!
end subroutine xor4096f_0d
! -----------------------------------------------------------------------------
......
......@@ -1214,7 +1214,7 @@ contains
logical, dimension(:,:), allocatable :: mplaceholder_lgt
logical, dimension(:,:,:), allocatable :: matrix1_3d_lgt, matrix2_3d_lgt, matrix3_3d_lgt, matrix4_3d_lgt
logical, dimension(:,:,:), allocatable :: matrix5_3d_lgt, matrix6_3d_lgt
logical, dimension(:,:,:), allocatable :: matrix5_3d_lgt
logical, dimension(:,:,:,:), allocatable :: matrix1_4d_lgt, matrix2_4d_lgt, matrix3_4d_lgt, matrix4_4d_lgt
logical, dimension(:,:,:,:), allocatable :: matrix5_4d_lgt, matrix6_4d_lgt
......
......@@ -34,7 +34,6 @@ contains
real(dp), dimension(10) :: dds_should
real(dp) :: t = 1.E-4
integer :: n
write(*,*) '--------------------------------------------------'
write(*,*) ' Dynamically Dimensioned Search (DDS) Algorithm '
......@@ -70,7 +69,6 @@ contains
real(dp), dimension(10) :: mdds_should
real(dp) :: t = 1.E-4
integer :: n
dv_ini = (/ -.226265E+01, -.130187E+01, -.151219E+01, 0.133983E+00, 0.988159E+00, &
-.495074E+01, -.126574E+02, 0.572684E+00, 0.303864E+01, 0.343031E+01 /)
......
......@@ -8,7 +8,6 @@ module test_mo_errormeasures
implicit none
integer(i4) :: i, j, k
real(dp) :: t_dp
real(sp) :: t_sp
real(dp), dimension(54) :: vec1, vec2
......@@ -21,6 +20,8 @@ contains
@test
subroutine errormeasures_initial()
integer(i4) :: i, j, k
write(*,*) ''
write(*,*) 'Test mo_errormeasures.f90'
!
......
......@@ -17,7 +17,7 @@ module test_mo_julian
integer(i4), dimension(3) :: dd12, mm12, yy12, hh12, nn12, ss12
real(dp), dimension(3) :: dec1
real(dp), dimension(3) :: rr1, ff1, gg1
integer(i4) :: jj
! -----------------------
! standard calendar tests
......@@ -28,6 +28,8 @@ contains
@test