1 |
guez |
108 |
module WriteField_m |
2 |
|
|
|
3 |
|
|
use writefield_gen_m, only: writefield_gen |
4 |
|
|
|
5 |
|
|
implicit none |
6 |
|
|
|
7 |
|
|
interface WriteField |
8 |
|
|
module procedure WriteField3d,WriteField2d,WriteField1d |
9 |
|
|
end interface WriteField |
10 |
|
|
|
11 |
|
|
private |
12 |
|
|
public WriteField |
13 |
|
|
|
14 |
|
|
contains |
15 |
|
|
|
16 |
|
|
subroutine WriteField1d(name,Field) |
17 |
|
|
character(len=*) :: name |
18 |
|
|
real, dimension(:) :: Field |
19 |
|
|
integer, dimension(1) :: Dim |
20 |
|
|
|
21 |
|
|
Dim=shape(Field) |
22 |
|
|
call WriteField_gen(name,Field,Dim(1),1,1) |
23 |
|
|
|
24 |
|
|
end subroutine WriteField1d |
25 |
|
|
|
26 |
|
|
!**************************************************************** |
27 |
|
|
|
28 |
|
|
subroutine WriteField2d(name,Field) |
29 |
|
|
character(len=*) :: name |
30 |
|
|
real, dimension(:,:) :: Field |
31 |
|
|
integer, dimension(2) :: Dim |
32 |
|
|
|
33 |
|
|
Dim=shape(Field) |
34 |
|
|
call WriteField_gen(name,Field,Dim(1),Dim(2),1) |
35 |
|
|
|
36 |
|
|
end subroutine WriteField2d |
37 |
|
|
|
38 |
|
|
!**************************************************************** |
39 |
|
|
|
40 |
|
|
subroutine WriteField3d(name,Field) |
41 |
|
|
character(len=*) :: name |
42 |
|
|
real, dimension(:,:,:) :: Field |
43 |
|
|
integer, dimension(3) :: Dim |
44 |
|
|
|
45 |
|
|
Dim=shape(Field) |
46 |
|
|
call WriteField_gen(name,Field,Dim(1),Dim(2),Dim(3)) |
47 |
|
|
|
48 |
|
|
end subroutine WriteField3d |
49 |
|
|
|
50 |
|
|
end module WriteField_m |