source: LMDZ4/trunk/libf/dyn3dpar/write_field_p.F90 @ 3190

Last change on this file since 3190 was 763, checked in by Laurent Fairhead, 18 years ago

Merge entre la version V3_conv et le HEAD
Nouvelles routines parallélisées
YM, JG, LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.8 KB
RevLine 
[763]1module write_field_p
2implicit none
3 
4  interface WriteField_p
5    module procedure Write_field3d_p,Write_Field2d_p,Write_Field1d_p
6  end interface WriteField_p
7 
8  contains
9 
10  subroutine write_field1D_p(name,Field)
11    USE parallel
12    USE write_field
13    implicit none
14 
15    integer, parameter :: MaxDim=1
16    character(len=*)   :: name
17    real, dimension(:) :: Field
18    real, dimension(:),allocatable :: New_Field
19    integer, dimension(MaxDim) :: Dim
20   
21   
22    Dim=shape(Field)
23    allocate(New_Field(Dim(1)))
24    New_Field(:)=Field(:)
25    call Gather_Field(New_Field,dim(1),1,0)
26   
27    if (MPI_Rank==0) call WriteField(name,New_Field)
28   
29    end subroutine write_field1D_p
30
31  subroutine write_field2D_p(name,Field)
32    USE parallel
33    USE write_field
34    implicit none
35 
36    integer, parameter :: MaxDim=2
37    character(len=*)   :: name
38    real, dimension(:,:) :: Field
39    real, dimension(:,:),allocatable :: New_Field
40    integer, dimension(MaxDim) :: Dim
41   
42    Dim=shape(Field)
43    allocate(New_Field(Dim(1),Dim(2)))
44    New_Field(:,:)=Field(:,:)
45    call Gather_Field(New_Field(1,1),dim(1)*dim(2),1,0)
46   
47    if (MPI_Rank==0) call WriteField(name,New_Field)
48   
49     
50  end subroutine write_field2D_p
51 
52  subroutine write_field3D_p(name,Field)
53    USE parallel
54    USE write_field
55    implicit none
56 
57    integer, parameter :: MaxDim=3
58    character(len=*)   :: name
59    real, dimension(:,:,:) :: Field
60    real, dimension(:,:,:),allocatable :: New_Field
61    integer, dimension(MaxDim) :: Dim
62   
63    Dim=shape(Field)
64    allocate(New_Field(Dim(1),Dim(2),Dim(3)))
65    New_Field(:,:,:)=Field(:,:,:)
66    call Gather_Field(New_Field(1,1,1),dim(1)*dim(2),dim(3),0)
67   
68   if (MPI_Rank==0) call WriteField(name,New_Field)
69   
70  end subroutine write_field3D_p 
71
72end module write_field_p
73 
Note: See TracBrowser for help on using the repository browser.