source: trunk/SOURCES/Old-sources/open_file.F90 @ 334

Last change on this file since 334 was 4, checked in by dumas, 10 years ago

initial import GRISLI trunk
File size: 1.2 KB
Line 
1!> \file open_file.F90
2!! Permet l ecriture dans un fichier.
3!<
4
5!> SUBROUTINE: write_trace()
6!! \author ...
7!! \date  ...
8!! @note Cette routine permet l ecriture dans un fichier.
9!! @note Used modules:
10!! @note    - use module3D_phy
11!! \param message
12!<   
13subroutine write_trace(message)
14
15  use module3D_phy
16
17  implicit none
18
19  character(*) :: message
20  character(len=80) :: file_trace
21
22  file_trace='trace-reboot'
23
24  if (itracebug.eq.1) then
25     open(num_trace,file=file_trace)
26     write (num_trace,*)'time=',time
27     write (num_trace,*)TRIM(message)
28     close(num_trace)
29  endif
30
31  return
32end subroutine write_trace
33
34!> SUBROUTINE: write_trace_940()
35!! \author ...
36!! \date ...
37!! @note Cette routine permet l ecriture dans un fichier.
38!! @note Used modules:
39!! @note    - use module3D_phy
40!! \param message
41!<
42subroutine write_trace_940(message)
43
44  use module3D_phy
45
46  implicit none
47
48  character(*) :: message
49  character(len=80) :: file_trace
50
51  file_trace='trace-reboot'
52  if (itracebug.eq.1) then
53     open(num_trace,file=file_trace)
54     write (num_trace,*)'time=',time
55     write (num_trace,940)TRIM(message),time
56     close(num_trace)
57  endif
58
59940 format('%%%% ',a,'   time=',f8.0,' %%%%')
60
61  return
62end subroutine write_trace_940
Note: See TracBrowser for help on using the repository browser.