source: trunk/SOURCES/printtable_mod.f90 @ 23

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

initial import GRISLI trunk
File size: 2.4 KB
Line 
1!> \file printtable_mod.f90
2!! Module des subroutines qui font des impressions formatee autour d'un point idebug,jdebug
3!! a plusieurs pas de temps successifs.
4!<
5
6!> \namespace printtable
7!! Module des subroutines qui font des impressions formatee autour d'un point idebug,jdebug
8!! a plusieurs pas de temps successifs.
9!! \author ...
10!! \date ...
11!! @note Used module
12!! @note   - use module3D_phy
13!<
14module printtable
15
16  USE module3D_phy
17  implicit none
18
19  real,dimension(nx,ny)     :: table_r
20  integer,dimension(nx,ny)  :: table_i
21  logical,dimension(nx,ny)  :: table_l 
22  CHARACTER (len=15) :: filedebug
23  character (len=6)  :: nom_table
24
25  !table_r(:,:)=0.
26  !table_i(:,:)=0
27  !table_l(:,:)='False'
28
29contains
30  !------------------reels-------------------------
31  subroutine printtable_r(table_r,nom_table)
32
33    real,dimension(nx,ny)     :: table_r
34    character (len=6)  :: nom_table
35
36    filedebug='table_'//trim(nom_table)
37    open(UNIT=num_file4,file=filedebug)
38    write(num_file4,*) geoplace,'time=',time
39    write(num_file4,*) NX*NY,DX,NX,NY
40    write(num_file4,*)
41    do j=1,ny
42       do i=1,nx   
43          write(num_file4,*) i,j,table_r(i,j)
44       enddo
45    enddo
46    close (num_file4)       
47
48  end subroutine printtable_r
49
50  !------------------entiers------------------------
51  subroutine printtable_i(table_i,nom_table)
52
53    integer,dimension(nx,ny)  :: table_i
54    character (len=6)  :: nom_table
55
56    filedebug='table_'//trim(nom_table)
57    open(UNIT=num_file4,file=filedebug)
58
59    write(num_file4,*) geoplace,'time=',time
60    write(num_file4,*) NX*NY,DX,NX,NY
61    write(num_file4,*)
62    do j=1,ny
63       do i=1,nx   
64          write(num_file4,*) i,j,table_i(i,j)
65       enddo
66    enddo
67    close (num_file4)       
68
69  end subroutine printtable_i
70
71  !------------------logical------------------------
72  subroutine printtable_l(table_l,nom_table)
73
74    logical,dimension(nx,ny)  :: table_l
75    character (len=6)  :: nom_table
76
77    filedebug='table_'//trim(nom_table)
78    open(UNIT=num_file4,file=filedebug)
79
80    write(num_file4,*) geoplace,'time=',time
81    write(num_file4,*) NX*NY,DX,NX,NY
82    write(num_file4,*)
83    do j=1,ny
84       do i=1,nx   
85          if (table_l(i,j)) then
86             write(num_file4,*) i,j,'    1'
87          else
88             write(num_file4,*) i,j,'    0'
89          endif
90       enddo
91    enddo
92
93    close (num_file4)
94
95  end subroutine printtable_l
96
97  !return
98end module printtable
Note: See TracBrowser for help on using the repository browser.