Changeset 159 for trunk/MESOSCALE/LMD_MM_MARS/SRC/LESnophys_/modif

Timestamp:

Jun 16, 2011, 11:43:20 AM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: modifications mineures LESnophys (stretch_grid) et mars_lmd_new_storm (essais pour stabiliser RDUST)

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/LESnophys_/modif/module_initialize_les.F (modified) (2 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/LESnophys_/modif/module_initialize_les.F

@@ -164 +164 @@
 !  stretch_grid = .true.
 !  FOR LES, set stretch to false
+#ifdef NOPHYS
+   stretch_grid = .true.
+#else
    stretch_grid = .false.
+#endif
    delt = 3.
 !   z_scale = .50
@@ -233 +237 @@
 
    IF (stretch_grid) THEN ! exponential stretch for eta (nearly constant dz)
+     print *, '*** STRETCH GRID ***' 
      DO k=1, kde
       grid%znw(k) = (exp(-(k-1)/float(kde-1)/z_scale) - exp(-1./z_scale))/ &