Ignore:
Timestamp:
Oct 31, 2017, 5:56:42 PM (7 years ago)
Author:
Laurent Fairhead
Message:

Ongoing update

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/DYNAMICO-conv/libf/phylmd/iophy.F90

    r3003 r3055  
    1717#ifdef CPP_XIOS
    1818  INTERFACE histwrite_phy
    19 !#ifdef CPP_XIOSnew
    2019    MODULE PROCEDURE histwrite2d_phy,histwrite3d_phy,histwrite2d_phy_old,histwrite3d_phy_old,histwrite2d_xios,histwrite3d_xios,histwrite0d_xios
    21 !#else
    22 !    MODULE PROCEDURE histwrite2d_phy,histwrite3d_phy,histwrite2d_phy_old,histwrite3d_phy_old,histwrite2d_xios,histwrite3d_xios
    23 !#endif
    24 
    2520  END INTERFACE
    2621#else
     
    285280                                is_sequential, klon_mpi_begin, klon_mpi_end, &
    286281                                mpi_rank
    287   USE mod_grid_phy_lmdz, ONLY: klon_glo, nbp_lon, nbp_lat
     282  USE mod_grid_phy_lmdz, ONLY: klon_glo, nbp_lon, nbp_lat, grid1dTo2d_glo
    288283  USE ioipsl, ONLY: histbeg
    289284
     
    360355     ENDDO
    361356
    362        CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlon_glo,zx_lon)
     357       CALL grid1dTo2d_glo(rlon_glo,zx_lon)
    363358       IF ((nbp_lon*nbp_lat).GT.1) THEN
    364359       DO i = 1, nbp_lon
     
    367362       ENDDO
    368363       ENDIF
    369        CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlat_glo,zx_lat)
     364       CALL grid1dTo2d_glo(rlat_glo,zx_lat)
    370365
    371366    DO i=1,pim
Note: See TracChangeset for help on using the changeset viewer.