write_field_phy.F90

Go to the documentation of this file.

!
! $Id$
!
MODULE write_field_phy

  CONTAINS 
 
    SUBROUTINE writefield_phy(name,Field,ll)
    USE dimphy
    USE mod_phys_lmdz_para
    USE mod_grid_phy_lmdz
    USE write_field
    
    IMPLICIT NONE
    include 'dimensions.h'
    include 'paramet.h'

    character(len=*)   :: name
    INTEGER :: ll
    real, dimension(klon_omp,ll) :: Field
    real,save,allocatable :: Field_tmp(:,:)
    real, dimension(klon_glo,ll):: New_Field
    real, dimension(iim,jjp1,ll):: Field_2d

    CALL gather(field,new_field)
!$OMP MASTER
    IF (is_mpi_root) THEN       
      CALL grid1dto2d_glo(new_field,field_2d)
      CALL writefield(name,field_2d)
    ENDIF
!$OMP END MASTER

  
   END SUBROUTINE writefield_phy
 
 END MODULE write_field_phy