source: LMDZ5/trunk/libf/phy_common/write_field_phy.F90 @ 5028

Last change on this file since 5028 was 2342, checked in by Ehouarn Millour, 9 years ago

Follow-up for a cleaner separation between dynamics and physics:

  • "write_field" is called from physics and dynamics but has no dependence on either so it should be in "misc"
  • "write_field_phy" is common to all physics, so it goes in "phy_common"
  • "init_ssrf_m" and "limit_netcdf" are only used by ce0l, so these should be in "dynlonlat_phylonlat/phylmd"
  • "q_sat" is called from physics and dynamics but has no dependence on either so it should be in "misc"

EM
  • 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: 894 bytes
RevLine 
[776]1!
[2342]2! $Id: write_field_phy.F90 2342 2015-08-19 13:21:38Z asima $
[776]3!
[765]4MODULE write_field_phy
5
[2342]6  ! Dump a field on the global (nbp_lon by nbp_lat) physics grid
7 
[765]8  CONTAINS
9 
10    SUBROUTINE WriteField_phy(name,Field,ll)
[2342]11    USE mod_phys_lmdz_para, ONLY: klon_omp, is_mpi_root, &
12                                  Gather
13    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, &
14                                 Grid1Dto2D_glo
15    USE Write_Field, ONLY: WriteField
[776]16   
[765]17    IMPLICIT NONE
18
[2342]19    CHARACTER(len=*),INTENT(IN) :: name
20    INTEGER,INTENT(IN) :: ll
21    REAL,INTENT(IN) :: Field(klon_omp,ll)
22
[776]23    real, dimension(klon_glo,ll):: New_Field
[2342]24    real, dimension(nbp_lon,nbp_lat,ll):: Field_2d
[765]25
[776]26    CALL Gather(Field,New_Field)
27!$OMP MASTER
28    IF (is_mpi_root) THEN       
29      CALL Grid1Dto2D_glo(New_Field,Field_2D)
[765]30      CALL WriteField(name,Field_2d)
31    ENDIF
[776]32!$OMP END MASTER
33
[765]34 
35   END SUBROUTINE WriteField_phy
36 
37 END MODULE write_field_phy
Note: See TracBrowser for help on using the repository browser.