source: LMDZ6/branches/Amaury_dev/libf/dyn3dmem/write_field_p.F90 @ 5101

Last change on this file since 5101 was 5101, checked in by abarral, 4 months ago

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]
  • 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
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 WriteField_p
7 
8  contains
9 
10  subroutine write_field1D_p(name,Field)
11    USE parallel_lmdz
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_lmdz
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_lmdz
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.