The UFZ services GitLab and Mattermost will be unavailable on Monday, October 25 from 06:00 AM to 08:00 AM due to maintenance work.

Commit a3694976 authored by Stephan Thober's avatar Stephan Thober
Browse files

added version number and nice start and end message

parent e6719183
......@@ -20,6 +20,7 @@
program ED_Kriging
use mo_kind , only: i4, dp, sp
use mo_print_message , only: print_start_message, print_end_message
use mo_julian , only: NDAYS, NDYIN, dec2date, julday
use runControl , only: flagEDK, interMth, & ! flag for activate kriging, flag for 'OK' or 'EDK'
correctNeg, & ! pre or temp
......@@ -57,6 +58,8 @@ program ED_Kriging
type(NcDataset) :: nc_out
type(NcVariable) :: nc_data, nc_time
call print_start_message()
!$OMP PARALLEL
!$ n_threads = OMP_GET_NUM_THREADS()
!$OMP END PARALLEL
......@@ -169,8 +172,8 @@ program ED_Kriging
end if
! deallocate memory
call clean
! very important for check cases
write(*,*) 'Kriging finished!'
!
call print_end_message()
!
end program ED_Kriging
......@@ -334,7 +334,7 @@ contains
! read yearly data file
write (dummy, 2) MetSta(i)%Id
fileName = trim(dataPathIn)//trim(dummy)
print *, 'read file: '//trim(fileName)
! print *, 'read file: '//trim(fileName)
open (60, file=fileName, status='old', action='read', iostat=ios)
read (60, *) dummy
!
......
module mo_print_message
implicit none
private
public :: print_start_message
public :: print_end_message
contains
subroutine print_start_message()
use mainVar, only: version
use mo_message, only: message
implicit none
call message('')
call message('==============================================')
call message('!! !!')
call message('!! THE KRIGING PROGRAM !!')
call message('!! VERSION '// trim(version) //' !!')
call message('!! !!')
call message('==============================================')
call message('')
end subroutine print_start_message
subroutine print_end_message
use mo_message, only: message
implicit none
call message('')
call message('==============================================')
call message('!! !!')
call message('!! THE KRIGING PROGRAM !!')
call message('!! IS FINISHED! !!')
call message('!! !!')
call message('==============================================')
call message('')
end subroutine print_end_message
end module mo_print_message
......@@ -10,7 +10,8 @@
module mainVar
use mo_kind, only: i4, dp
implicit none
! parameters
! parameters
character(10), parameter :: version = '2.0'
integer(i4) :: yStart ! starting year
integer(i4) :: mStart ! starting month
integer(i4) :: dStart ! starting day
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment