source: LMDZ4/branches/LMDZ4_par_0/libf/bibio/write_field_p.F90 @ 5379

Last change on this file since 5379 was 633, checked in by (none), 20 years ago

This commit was manufactured by cvs2svn to create branch 'LMDZ4_par_0'.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.1 KB
Line 
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
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 
72  subroutine WriteField_phy_p(name,Field,ll)
73    USE dimphy
74    USE Write_Field
75    implicit none
76    character(len=*)   :: name
77    INTEGER :: ll
78    real, dimension(klon,ll) :: Field
79    real, dimension(klon2,ll):: New_Field
80   
81    CALL GatherField(Field,New_Field,ll)
82    CALL WriteField_phy(name,New_Field,ll)
83 
84  end subroutine WriteField_phy_p 
85 
86end module write_field_p
87 
Note: See TracBrowser for help on using the repository browser.