Changeset 160 for trunk/MESOSCALE/LMD_MM_MARS/SRC

Timestamp:

Jun 16, 2011, 11:48:42 AM (14 years ago)

Author:

aslmd

Message:

MESOSCALE: modifications to use a tweaked polar topography corresponding to paleo conditions. plus purely cosmetic changes.

Location:

trunk/MESOSCALE/LMD_MM_MARS/SRC

Files:

• WPS/wps_mars/geogrid/GEOGRID.TBL.ARW_Mars_POLARTESTS (modified) (3 diffs)
• WRFV2/mars_lmd_new_storm/libf/phymars/meso_physiq.F (modified) (1 diff)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WPS/wps_mars/geogrid/GEOGRID.TBL.ARW_Mars_POLARTESTS

@@ -34 +34 @@
         rel_path=               64ppd:mola_topo64/
         rel_path=               64ppd_noHRti:mola_topo64/
-        rel_path=               custom:crater2/
+        #rel_path=               custom:crater2/
+        rel_path=               custom:mola_tweak/
         rel_path=               omega:mola_topo64/
 ===============================
@@ -63 +64 @@
         rel_path=               64ppd:mola_topo64/
         rel_path=               64ppd_noHRti:mola_topo64/
-        rel_path=               custom:crater2/
+        #rel_path=               custom:crater2/
+        rel_path=               custom:mola_tweak/
         rel_path=               omega:mola_topo64/
 ===============================
@@ -92 +94 @@
         rel_path=               64ppd:mola_topo64/
         rel_path=               64ppd_noHRti:mola_topo64/
-        rel_path=               custom:crater2/
+        #rel_path=               custom:crater2/
+        rel_path=               custom:mola_tweak/
         rel_path=               omega:mola_topo64/
 ===============================

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd_new_storm/libf/phymars/meso_physiq.F

@@ -1407 +1407 @@
 
 
-!truc ajouté pour vérifier la conservation.
-           DO l=1,nlayer
-              DO ig=1,ngrid
-                  pdq_diag(ig)=0.
-                  pdq_diag(ig)=pdq_diag(ig) +
-     &                         pdq(ig,l,igcm_dust_mass)*3.6e9
-     &                      *  (pplev(ig,l) - pplev(ig,l+1)) / g
-              ENDDO
-           ENDDO
-
+!!truc ajoute pour verifier la conservation.
+!
+!                 pdq_diag(:)=0.
+!
+!           DO ig=1,ngrid
+!              DO l=1,nlayer
+!                  pdq_diag(ig)=pdq_diag(ig) +
+!     &                         pdq(ig,l,igcm_dust_mass)*3.6e9
+!     &                      *  (pplev(ig,l) - pplev(ig,l+1)) / g
+!              ENDDO
+!           ENDDO