write_field_phy.F90

Go to the documentation of this file.

!
! $Id: write_field_phy.F90 2342 2015-08-19 13:21:38Z emillour $
!
MODULE write_field_phy

  ! Dump a field on the global (nbp_lon by nbp_lat) physics grid
  
  CONTAINS 
 
    SUBROUTINE writefield_phy(name,Field,ll)
    USE mod_phys_lmdz_para, ONLY: klon_omp, is_mpi_root, &
                                  gather
    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, &
                                 grid1dto2d_glo
    USE write_field, ONLY: writefield
    
    IMPLICIT NONE

    CHARACTER(len=*),INTENT(IN) :: name
    INTEGER,INTENT(IN) :: ll
    REAL,INTENT(IN) :: Field(klon_omp,ll)

    real, dimension(klon_glo,ll):: New_Field
    real, dimension(nbp_lon,nbp_lat,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