Changeset 2125 for trunk/LMDZ.VENUS/libf


Ignore:
Timestamp:
Apr 24, 2019, 3:28:34 PM (6 years ago)
Author:
slebonnois
Message:

SL, Venus: removing use of zonal averages

Location:
trunk/LMDZ.VENUS/libf/phyvenus
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.VENUS/libf/phyvenus/flott_gwd_ran.F90

    r2048 r2125  
    3232    REAL, intent(in):: UU(NLON, NLEV) , VV(NLON, NLEV)
    3333    ! Hor winds at full levels
    34     REAL, intent(in) :: plevmoy(NLEV+1) ! (planet-averaged) mean pressure (Pa) at interlayers
     34    REAL, intent(in) :: plevmoy(NLEV+1) ! press (Pa) at interlayers, at klon/2+1
    3535
    3636    ! 0.2 OUTPUTS
  • trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F

    r2047 r2125  
    1212     .            paprs,pplay,ppk,pphi,pphis,presnivs,
    1313     .            u,v,t,qx,
    14      .            flxmw, plevmoy, tmoy,
     14     .            flxmw,
    1515     .            d_u, d_v, d_t, d_qx, d_ps)
    1616
     
    153153      REAL flxmw(klon,klev)
    154154
    155 ! A VIRER POUR DYNAMICO
    156       REAL,INTENT(IN) :: plevmoy(klev+1) ! planet-averaged mean pressure (Pa) at interfaces
    157       REAL,INTENT(IN) :: tmoy(klev) ! planet-averaged mean temperature (Pa) at mid-layers
    158 
    159155      REAL d_u(klon,klev)
    160156      REAL d_v(klon,klev)
     
    16921688
    16931689      call flott_gwd_ran(klon,klev,dtime,pplay,zn2,
    1694      e               t_seri, u_seri, v_seri, plevmoy,
     1690     e               t_seri, u_seri, v_seri, paprs(klon/2+1,:),
    16951691     o               zustrhi,zvstrhi,
    16961692     o               d_t_hin, d_u_hin, d_v_hin)
Note: See TracChangeset for help on using the changeset viewer.