Changeset 96

Timestamp:

Mar 22, 2011, 3:17:07 PM (14 years ago)

Author:

aslmd

Message:

LMD_MM_MARS et LMD_LES_MARS: ajouts mineurs: commentaires et modifications routines de plot

Location:

trunk/mesoscale

Files:

• LMD_LES_MARS/modif_mars/Registry.EM (modified) (1 diff)
• LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM (modified) (1 diff)
• NOTES.txt (modified) (1 diff)
• PLOT/SPEC/LES/getturb.pro (modified) (3 diffs)
• PLOT/SPEC/LES/include_tprime.pro (added)
• PLOT/SPEC/MAP/map_uvt.pro (modified) (1 diff)

trunk/mesoscale/LMD_LES_MARS/modif_mars/Registry.EM

@@ -81 +81 @@
 ####
 #### YOU CAN OUTPUT ANY 2D OR 3D VARIABLE THAT IS AVAILABLE IN MESO_PHYSIQ.F
+#### --- please indicate #SAVEMARS2 for 2D fields and #SAVEMARS3 for 3D fields
 ####
+#### !!!! WARNING !!!! WARNING !!!! WARNING !!!! WARNING !!!! WARNING !!!!
+####         THIS HAS TO BE CONSISTENT WITH $MMM/SRC/WRFV2/Registry/Registry.EM
+#### !!!! WARNING !!!! WARNING !!!! WARNING !!!! WARNING !!!! WARNING !!!!
+####
+############ name in WRF !!!!! ############# name in NETCDF !!!! ############################################## name in meso_physiq !!!!!
 state  real  TSURF     ij   misc  1  -  rhd  "TSURF"     "SURF TEMPERATURE"                "K"       #SAVEMARS2 tsurf
 state  real  CO2ICE    ij   misc  1  -  rd   "CO2ICE"    "CO2 GROUND ICE"                  "kg"      #SAVEMARS2 co2ice

trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM

@@ -79 +79 @@
 ####
 #### YOU CAN OUTPUT ANY 2D OR 3D VARIABLE THAT IS AVAILABLE IN MESO_PHYSIQ.F
+#### --- please indicate #SAVEMARS2 for 2D fields and #SAVEMARS3 for 3D fields
 ####
+############ name in WRF !!!!! ############# name in NETCDF !!!! ############################################## name in meso_physiq !!!!!
 state  real  TSURF     ij   misc  1  -  rhd  "TSURF"     "SURF TEMPERATURE"                "K"       #SAVEMARS2 tsurf
 state  real  CO2ICE    ij   misc  1  -  rhd  "CO2ICE"    "CO2 GROUND ICE"                  "kg m-2"  #SAVEMARS2 co2ice

trunk/mesoscale/NOTES.txt

@@ +1 @@
+
+il faudrait regler le prob du Registry dans le LES
+il y a un souci avec les variables liees a l'eau et d'autres
 
 concat.e puis localtime.e puis
 ncwa -O -v mtot,icetot -a longitude -d longitude,-179.0,179.0 diagfi.nc yeye.nc
 ncwa -O -v mtot -a longitude -d longitude,-180.0,180.0 concat_LT.nc mawd.nc
+(si trop gros faire ncrcat -v mtot -d Time,,,2 concat_LT.nc yorgl.nc)
 
         A FAIRE:::: mettre des flags precompilo dans les meso_

trunk/mesoscale/PLOT/SPEC/LES/getturb.pro

@@ -14 +14 @@
 ;smoothampl=5.
 
-;
-; constantes
-;
-p0=610. & t0=220. & r_cp=1/4.4 & grav=3.72 & R=192.
+;;
+;; constantes
+;;
+;p0=610. & t0=220. & r_cp=1/4.4 & grav=3.72 & R=192.
+p0=610. & t0=220. & r_cp=1.0/3.9 & grav = 3.72 & R=191.
+print, 'ATTENTION ATTENTION R/cp !!!!', r_cp 
 
 ;
@@ -29 +31 @@
    WINDOW, /PIXMAP & WDELETE & DEVICE,BYPASS_TRANSLATION=0,DECOMPOSED=0,RETAIN=2
 endif else begin
-   PREF_SET, 'IDL_PATH', '/home/spiga/Save/SOURCES/IDL/fsc_psconfig:<IDL_DEFAULT>', /COMMIT
+   ;PREF_SET, 'IDL_PATH', '/home/spiga/Save/SOURCES/IDL/fsc_psconfig:<IDL_DEFAULT>', /COMMIT
+   PREF_SET, 'IDL_PATH', '/home/spiga/SVN/trunk/mesoscale/PLOT/MINIMAL:<IDL_DEFAULT>', /COMMIT
 endelse
 
@@ -174 +177 @@
 ;@include_w.pro
 
+;@include_tprime.pro
+
 ENDELSE
 

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

@@ -79 +79 @@
 if (n_elements(field1) eq 0) then begin
         print, 'field1: horizontal velocity'
-        zevel = overvector_x^2 + overvector_y^2  ;; attention il faut que les tableaux soient de la meme taille, OK si uvmet
+                ;;;attention attention overvector_x et overvector_y sont vides
+                ;zevel = overvector_x^2 + overvector_y^2  ;; attention il faut que les tableaux soient de la meme taille, OK si uvmet
+        zevel = (reform(u(*,*,ntime)))^2 + (reform(v(*,*,ntime)))^2 ;; attention il faut que les tableaux soient de la meme taille, OK si uvmet
         what_I_plot = sqrt(zevel)
 endif else begin