Changeset 2125

Timestamp:

Apr 24, 2019, 3:28:34 PM (6 years ago)

Author:

slebonnois

Message:

SL, Venus: removing use of zonal averages

Location:

trunk

Files:

• LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/callphysiq_mod.F90 (modified) (2 diffs)
• LMDZ.VENUS/libf/phyvenus/flott_gwd_ran.F90 (modified) (1 diff)
• LMDZ.VENUS/libf/phyvenus/physiq_mod.F (modified) (3 diffs)

trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/callphysiq_mod.F90

@@ -21 +21 @@
   USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
   USE physiq_mod, ONLY: physiq
-  USE moyzon_mod, ONLY: plevmoy,tmoy ! planetary mean values to send to physics
+!  USE moyzon_mod, ONLY: plevmoy,tmoy ! planetary mean values to send to physics
   IMPLICIT NONE
 
@@ -87 +87 @@
               zqfi_omp,       &
               flxwfi_omp,     &
-              plevmoy,        & ! planet-averaged mean pressure (Pa) at interfaces
-              tmoy,           & ! planet-averaged mean temperature (K) at mid-layers
+!              plevmoy,        & ! planet-averaged mean pressure (Pa) at interfaces
+!              tmoy,           & ! planet-averaged mean temperature (K) at mid-layers
               zdufi_omp,      &
               zdvfi_omp,      &

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)