source: LMDZ5/trunk/libf/dyn3dmem/write_field_p.F90 @ 4248

Last change on this file since 4248 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 1.8 KB
RevLine 
[1632]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)
[1823]11    USE parallel_lmdz
[1632]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)
[1823]32    USE parallel_lmdz
[1632]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)
[1823]53    USE parallel_lmdz
[1632]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.