source: lmdz_wrf/trunk/WRFV3/lmdz/write_field_phy.F90 @ 1554

Last change on this file since 1554 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

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.