source: palm/trunk/SOURCE/data_log.f90 @ 550

Last change on this file since 550 was 484, checked in by raasch, 14 years ago

typo in file headers removed

  • Property svn:keywords set to Id
File size: 2.5 KB
Line 
1 SUBROUTINE data_log( array, i1, i2, j1, j2, k1, k2 )
2
3!------------------------------------------------------------------------------!
4! Current revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: data_log.f90 484 2010-02-05 07:36:54Z maronga $
11! RCS Log replace by Id keyword, revision history cleaned up
12!
13! Revision 1.1  2006/02/23 10:09:29  raasch
14! Initial revision
15!
16!
17! Description:
18! ------------
19! Complete logging of data
20!------------------------------------------------------------------------------!
21#if defined( __logging )
22
23    USE control_parameters
24    USE pegrid
25
26    IMPLICIT NONE
27
28    INTEGER ::  i1, i2, j1, j2, k1, k2
29
30    REAL, DIMENSION(i1:i2,j1:j2,k1:k2) ::  array
31
32
33!
34!-- Open the file for data logging
35    CALL check_open( 20 )
36
37!
38!-- Write the message string
39    WRITE ( 20 )  log_message
40
41!
42!-- Write the simulated time and the array indices
43    WRITE ( 20 )  simulated_time, i1, i2, j1, j2, k1, k2
44
45!
46!-- Write the array
47    WRITE ( 20 )  array
48
49#endif
50 END SUBROUTINE data_log
51
52
53
54 SUBROUTINE data_log_2d( array, i1, i2, j1, j2)
55
56!------------------------------------------------------------------------------!
57! Description:
58! ------------
59! Same as above, for 2d arrays
60!------------------------------------------------------------------------------!
61#if defined( __logging )
62
63    USE control_parameters
64    USE pegrid
65
66    IMPLICIT NONE
67
68    INTEGER ::  i1, i2, j1, j2
69
70    REAL, DIMENSION(i1:i2,j1:j2) ::  array
71
72
73!
74!-- Open the file for data logging
75    CALL check_open( 20 )
76
77!
78!-- Write the message string
79    WRITE ( 20 )  log_message
80
81!
82!-- Write the simulated time and the array indices
83    WRITE ( 20 )  simulated_time, i1, i2, j1, j2
84
85!
86!-- Write the array
87    WRITE ( 20 )  array
88
89#endif
90 END SUBROUTINE data_log_2d
91
92
93
94 SUBROUTINE data_log_2d_int( array, i1, i2, j1, j2)
95
96!------------------------------------------------------------------------------!
97! Description:
98! ------------
99! Same as above, for 2d integer arrays
100!------------------------------------------------------------------------------!
101#if defined( __logging )
102
103    USE control_parameters
104    USE pegrid
105
106    IMPLICIT NONE
107
108    INTEGER ::  i1, i2, j1, j2
109
110    INTEGER, DIMENSION(i1:i2,j1:j2) ::  array
111
112
113!
114!-- Open the file for data logging
115    CALL check_open( 20 )
116
117!
118!-- Write the message string
119    WRITE ( 20 )  log_message
120
121!
122!-- Write the simulated time and the array indices
123    WRITE ( 20 )  simulated_time, i1, i2, j1, j2
124
125!
126!-- Write the array
127    WRITE ( 20 )  array
128
129#endif
130 END SUBROUTINE data_log_2d_int
Note: See TracBrowser for help on using the repository browser.