source: LMDZ5/trunk/libf/phylmd/write_field_phy.F90 @ 2250

Last change on this file since 2250 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
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 736 bytes
Line 
1!
2! $Header$
3!
4MODULE write_field_phy
5
6  CONTAINS
7 
8    SUBROUTINE WriteField_phy(name,Field,ll)
9    USE dimphy
10    USE mod_phys_lmdz_para
11    USE mod_grid_phy_lmdz
12    USE Write_Field
13   
14    IMPLICIT NONE
15    include 'dimensions.h'
16    include 'paramet.h'
17
18    character(len=*)   :: name
19    INTEGER :: ll
20    real, dimension(klon_omp,ll) :: Field
21    real,save,allocatable :: Field_tmp(:,:)
22    real, dimension(klon_glo,ll):: New_Field
23    real, dimension(iim,jjp1,ll):: Field_2d
24
25    CALL Gather(Field,New_Field)
26!$OMP MASTER
27    IF (is_mpi_root) THEN       
28      CALL Grid1Dto2D_glo(New_Field,Field_2D)
29      CALL WriteField(name,Field_2d)
30    ENDIF
31!$OMP END MASTER
32
33 
34   END SUBROUTINE WriteField_phy
35 
36 END MODULE write_field_phy
Note: See TracBrowser for help on using the repository browser.