Changeset 2225 for trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

Timestamp:

Jan 24, 2020, 3:25:31 PM (5 years ago)

Author:

emillour

Message:

Mars GCM:
Further cleanup of nonorographic gravity waves drag parametrization east_gwstress
and west_gwstress need be initialized and are better as module variables.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/physiq_mod.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

@@ -436 +436 @@
       REAL d_u_hin(ngrid,nlayer), d_v_hin(ngrid,nlayer)
       REAL d_t_hin(ngrid,nlayer)
-      REAL east_gwstress(ngrid,nlayer)
-      REAL west_gwstress(ngrid,nlayer)
 c  Diagnostics 2D of gw_nonoro
       REAL zustrhi(ngrid), zvstrhi(ngrid)
@@ -1407 +1405 @@
      &               pdt, pdu, pdv,
      &               zustrhi,zvstrhi,
-     &               d_t_hin, d_u_hin, d_v_hin, 
-     &               east_gwstress, west_gwstress)
+     &               d_t_hin, d_u_hin, d_v_hin)
 
 !  Update tendencies