1 |
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 |