Ignore:
Timestamp:
Nov 21, 2019, 4:43:45 PM (5 years ago)
Author:
lguez
Message:

Merge revisions 3427:3600 of trunk into branch Ocean_skin

Location:
LMDZ6/branches/Ocean_skin
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/Ocean_skin

  • LMDZ6/branches/Ocean_skin/libf/phylmd/pbl_surface_mod.F90

    r3458 r3605  
    6060    USE print_control_mod, ONLY: lunout
    6161    USE ioipsl_getin_p_mod, ONLY : getin_p
     62    IMPLICIT NONE
    6263
    6364    INCLUDE "dimsoil.h"
     
    288289    USE indice_sol_mod
    289290    USE time_phylmdz_mod,   ONLY : day_ini,annee_ref,itau_phy
    290     USE mod_grid_phy_lmdz,  ONLY : nbp_lon, nbp_lat
     291    USE mod_grid_phy_lmdz,  ONLY : nbp_lon, nbp_lat, grid1dto2d_glo
    291292    USE print_control_mod,  ONLY : prt_level,lunout
    292293    USE ioipsl_getin_p_mod, ONLY : getin_p
     
    861862          idayref = day_ini
    862863          CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
    863           CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlon,zx_lon)
     864          CALL grid1dTo2d_glo(rlon,zx_lon)
    864865          DO i = 1, nbp_lon
    865866             zx_lon(i,1) = rlon(i+1)
    866867             zx_lon(i,nbp_lat) = rlon(i+1)
    867868          ENDDO
    868           CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlat,zx_lat)
     869          CALL grid1dTo2d_glo(rlat,zx_lat)
    869870          CALL histbeg("sous_index",nbp_lon,zx_lon(:,1),nbp_lat,zx_lat(1,:), &
    870871               1,nbp_lon,1,nbp_lat, &
     
    19511952               itap, dtime, jour, knon, ni, &
    19521953!!jyg               ypplay(:,1), zgeo1/RG, ycdragh, ycdragm, yrain_f, ysnow_f, yt(:,1), yq(:,1),&
    1953                ypplay(:,1), zgeo1/RG, ycdragh, ycdragm, yrain_f, ysnow_f, yt1, yq1,&
     1954               ypplay(:,1), zgeo1(1:knon)/RG, ycdragh, ycdragm, yrain_f, ysnow_f, yt(:,1), yq(:,1),&    ! ym missing init
    19541955               AcoefH, AcoefQ, BcoefH, BcoefQ, &
    19551956               AcoefU, AcoefV, BcoefU, BcoefV, &
Note: See TracChangeset for help on using the changeset viewer.