-
Notifications
You must be signed in to change notification settings - Fork 2
/
header.f90
50 lines (46 loc) · 2.41 KB
/
header.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
subroutine header()
use grid, only: version, version_date
integer :: values(8)
character :: date*8, time*10, zone*5
character(len=8) :: cdate ! System date
character(len=8) :: ctime ! System time
call date_and_time (date, time, zone, values)
cdate(1:2) = date(5:6)
cdate(3:3) = '/'
cdate(4:5) = date(7:8)
cdate(6:6) = '/'
cdate(7:8) = date(3:4)
ctime(1:2) = time(1:2)
ctime(3:3) = ':'
ctime(4:5) = time(3:4)
ctime(6:6) = ':'
ctime(7:8) = time(5:6)
write(*,*) ' **************************************************'
write(*,*) ' **************************************************'
write(*,*) ' * *'
write(*,*) ' * ***** ** *** ** *'
write(*,*) ' * *** *** **** **** **** *'
write(*,*) ' * *** *** *** *** ***** ***** *'
write(*,*) ' * *** *** *** *** ** ** *** *'
write(*,*) ' * *** *** *** *** ** ** *** *'
write(*,*) ' * *** *** *** *** *** *** *'
write(*,*) ' * *** *** *********** *** *** *'
write(*,*) ' * *** *** *** *** *** *** *'
write(*,*) ' * ***** *** *** *** *** *'
write(*,*) ' * *'
write(*,*) ' **************************************************'
write(*,*) ' **************************************************'
write(*,*) ' *** System for Atmospheric Modeling ***'
write(*,*) ' *** SAM ***'
write(*,*) ' Version '//version//' ('//version_date//') '
write(*,*) ' **************************************************'
write(*,*) ' *** (C) Marat Khairoutdinov ***'
write(*,*) ' *** School of Marine and Atmospheric Sciences ***'
write(*,*) ' *** Stony Brook University ***'
write(*,*) ' **************************************************'
write(*,*) ' **************************************************'
write(*,*) ' *** DATE '//cdate//' TIME '//ctime//' ***'
write(*,*) ' **************************************************'
write(*,*)
return
end