Changeset 2125 for trunk/LMDZ.VENUS

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:

• flott_gwd_ran.F90 (modified) (1 diff)
• physiq_mod.F (modified) (3 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/flott_gwd_ran.F90

@@ -32 +32 @@
     REAL, intent(in):: UU(NLON, NLEV) , VV(NLON, NLEV)
     ! Hor winds at full levels
-    REAL, intent(in) :: plevmoy(NLEV+1) ! (planet-averaged) mean pressure (Pa) at interlayers
+    REAL, intent(in) :: plevmoy(NLEV+1) ! press (Pa) at interlayers, at klon/2+1
 
     ! 0.2 OUTPUTS

trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F

@@ -12 +12 @@
      .            paprs,pplay,ppk,pphi,pphis,presnivs,
      .            u,v,t,qx,
-     .            flxmw, plevmoy, tmoy,
+     .            flxmw,
      .            d_u, d_v, d_t, d_qx, d_ps)
 
@@ -153 +153 @@
       REAL flxmw(klon,klev)
 
-! A VIRER POUR DYNAMICO
-      REAL,INTENT(IN) :: plevmoy(klev+1) ! planet-averaged mean pressure (Pa) at interfaces
-      REAL,INTENT(IN) :: tmoy(klev) ! planet-averaged mean temperature (Pa) at mid-layers
-
       REAL d_u(klon,klev)
       REAL d_v(klon,klev)
@@ -1692 +1688 @@
 
       call flott_gwd_ran(klon,klev,dtime,pplay,zn2,
-     e               t_seri, u_seri, v_seri, plevmoy,
+     e               t_seri, u_seri, v_seri, paprs(klon/2+1,:),
      o               zustrhi,zvstrhi,
      o               d_t_hin, d_u_hin, d_v_hin)