source: LMDZ4/trunk/libf/phylmd/write_field_phy.F90 @ 862

Last change on this file since 862 was 793, checked in by Laurent Fairhead, 17 years ago

Modifications suite a la transformation des fichiers include pour
qu'ils soient compatibles a la fois au format fixe et au format libre
Un bon nombre de fichiers *.inc du coup disparaissent
LF

  • 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.