Changeset 160 for trunk/MESOSCALE

Timestamp:

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

Author:

aslmd

Message:

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

Location:

trunk/MESOSCALE

Files:

• LMD_MM_MARS/SIMU/in_lmdz_mars/myGCM/run.def.INIT (modified) (2 diffs)
• LMD_MM_MARS/SRC/WPS/wps_mars/geogrid/GEOGRID.TBL.ARW_Mars_POLARTESTS (modified) (3 diffs)
• LMD_MM_MARS/SRC/WRFV2/mars_lmd_new_storm/libf/phymars/meso_physiq.F (modified) (1 diff)
• LMD_MM_MARS/WPS_GEOG/res/mola_tweak (added)
• LMD_MM_MARS/WPS_GEOG/res/mola_tweak/index (added)
• LMD_MM_MARS/WPS_GEOG/res/mola_tweak/index32 (added)
• LMD_MM_MARS/WPS_GEOG/res/mola_tweak/paleo_build.m (added)
• PLOT/SPEC/MAP/defs/MOLA_topo.map_uvt_inc.pro (added)
• PLOT/SPEC/MAP/defs/SHARAD_topo.map_uvt_inc.pro (added)
• PLOT/SPEC/MAP/map_uvt.pro (modified) (1 diff)

trunk/MESOSCALE/LMD_MM_MARS/SIMU/in_lmdz_mars/myGCM/run.def.INIT

@@ -6 +6 @@
 - Nombre de jours d'integration                                         
      nday
- 5 10 30 10
+ 7 5 10 30 10 40
 
 - nombre de pas par jour (multiple de iperiod) ( ici pour  dt = 1 min )      
@@ -86 +86 @@
 - frequence (en pas) de l'ecriture du fichier diagfi               
  ecritphy
- 40
+ 80 80 80 80 80 80 80 80 40
 
 - longitude en degres du centre du zoom                                 

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
 
 

trunk/MESOSCALE/PLOT/SPEC/MAP/map_uvt.pro

@@ -20 +20 @@
    help, u
 endif
-getcdf, file=filename, charvar='XLONG', invar=longi
-getcdf, file=filename, charvar='XLAT', invar=lati
-getcdf, file=filename, charvar='HGT', invar=hgt
+if (n_elements(fieldscoord) eq 0) then begin
+ getcdf, file=filename, charvar='XLONG', invar=longi
+ getcdf, file=filename, charvar='XLAT', invar=lati
+ getcdf, file=filename, charvar='HGT', invar=hgt
+endif else begin
+ print, 'coordinates are ', fieldscoord
+ getcdf, file=filename, charvar=fieldscoord(0), invar=longi
+ getcdf, file=filename, charvar=fieldscoord(1), invar=lati
+ getcdf, file=filename, charvar=fieldscoord(2), invar=hgt
+endelse
+
 ;
 ;