Changeset 678 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em

Timestamp:

May 30, 2012, 1:29:56 AM (13 years ago)

Author:

aslmd

Message:

MESOSCALE : modifications for restart broke MMM or LES with old physics. now fixed.

Location:

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em

Files:

• module_initialize_real.F (modified) (2 diffs)
• solve_em.F (modified) (1 diff)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_real.F

@@ -280 +280 @@
 !! >> Used for restarts only:
               grid%mars_q2(i,:,j)=0.
-              grid%mars_fluxrad(i,j)=0.
-              grid%mars_wstar(i,j)=0.
               grid%mars_tsurf(i,j)=0. 
 !! <<
@@ -295 +293 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 #ifdef NEWPHYS
+
+              grid%mars_wstar(i,:,j)=0.  !! used for restarts
+              grid%mars_fluxrad(i,j)=0.  !! used for restarts
 
               grid%mars_z0(i,j) = 0.

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/solve_em.F

@@ -864 +864 @@
      &        ,MARS_TSOIL=grid%mars_tsoil       &
      &        ,MARS_Q2=grid%mars_q2             &
+     &        ,MARS_TSURF=grid%mars_tsurf       &
+#ifdef NEWPHYS
      &        ,MARS_FLUXRAD=grid%mars_fluxrad   &
      &        ,MARS_WSTAR=grid%mars_wstar       &
-     &        ,MARS_TSURF=grid%mars_tsurf       &
-#ifdef NEWPHYS
      &        ,MARS_ISOIL=grid%mars_isoil       &
      &        ,MARS_DSOIL=grid%mars_dsoil       &