Changeset 3055 for LMDZ6/branches


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

Ongoing update

Location:
LMDZ6/branches/DYNAMICO-conv/libf/phylmd
Files:
3 edited

Legend:

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

    r2872 r3055  
    105105    USE surface_data
    106106    USE indice_sol_mod
    107     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     107    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat, grid1dTo2d_glo
    108108    USE time_phylmdz_mod, ONLY: annee_ref, day_ini, itau_phy, itaufin_phy
    109109    USE print_control_mod, ONLY: lunout
     
    236236       idayref = day_ini
    237237       CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
    238        CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlon,zx_lon)
     238       CALL grid1dTo2d_glo(rlon,zx_lon)
    239239       DO i = 1, nbp_lon
    240240          zx_lon(i,1) = rlon(i+1)
    241241          zx_lon(i,nbp_lat) = rlon(i+1)
    242242       ENDDO
    243        CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlat,zx_lat)
     243       CALL grid1dTo2d_glo(rlat,zx_lat)
    244244       clintocplnam="cpl_atm_tauflx"
    245245       CALL histbeg(clintocplnam,nbp_lon,zx_lon(:,1),nbp_lat,zx_lat(1,:),&
  • 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
  • LMDZ6/branches/DYNAMICO-conv/libf/phylmd/pbl_surface_mod.F90

    r2952 r3055  
    5656    USE print_control_mod, ONLY: lunout
    5757    USE ioipsl_getin_p_mod, ONLY : getin_p
     58    IMPLICIT NONE
    5859
    5960    INCLUDE "dimsoil.h"
     
    277278    USE indice_sol_mod
    278279    USE time_phylmdz_mod, ONLY: day_ini,annee_ref,itau_phy
    279     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
     280    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat, grid1dto2d_glo
    280281    USE print_control_mod, ONLY: prt_level,lunout
    281282
     
    830831          idayref = day_ini
    831832          CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
    832           CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlon,zx_lon)
     833          CALL grid1dTo2d_glo(rlon,zx_lon)
    833834          DO i = 1, nbp_lon
    834835             zx_lon(i,1) = rlon(i+1)
    835836             zx_lon(i,nbp_lat) = rlon(i+1)
    836837          ENDDO
    837           CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlat,zx_lat)
     838          CALL grid1dTo2d_glo(rlat,zx_lat)
    838839          CALL histbeg("sous_index",nbp_lon,zx_lon(:,1),nbp_lat,zx_lat(1,:), &
    839840               1,nbp_lon,1,nbp_lat, &
     
    881882 zt2m(:)=0. ; zq2m(:)=0. ; qsat2m(:)=0. ; rh2m(:)=0.
    882883 d_t(:,:)=0. ; d_t_diss(:,:)=0. ; d_q(:,:)=0. ; d_u(:,:)=0. ; d_v(:,:)=0.
     884 zcoefh(:,:,:)=0. ; zcoefm(:,:,:)=0.
    883885 zxsens_x(:)=0. ; zxsens_w(:)=0. ; zxfluxlat_x(:)=0. ; zxfluxlat_w(:)=0.
    884886 cdragh_x(:)=0. ; cdragh_w(:)=0. ; cdragm_x(:)=0. ; cdragm_w(:)=0.
Note: See TracChangeset for help on using the changeset viewer.