Changeset 96 for trunk/mesoscale/PLOT
- Timestamp:
- Mar 22, 2011, 3:17:07 PM (14 years ago)
- Location:
- trunk/mesoscale/PLOT/SPEC
- Files:
-
- 1 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/mesoscale/PLOT/SPEC/LES/getturb.pro
r85 r96 14 14 ;smoothampl=5. 15 15 16 ; 17 ; constantes 18 ; 19 p0=610. & t0=220. & r_cp=1/4.4 & grav=3.72 & R=192. 16 ;; 17 ;; constantes 18 ;; 19 ;p0=610. & t0=220. & r_cp=1/4.4 & grav=3.72 & R=192. 20 p0=610. & t0=220. & r_cp=1.0/3.9 & grav = 3.72 & R=191. 21 print, 'ATTENTION ATTENTION R/cp !!!!', r_cp 20 22 21 23 ; … … 29 31 WINDOW, /PIXMAP & WDELETE & DEVICE,BYPASS_TRANSLATION=0,DECOMPOSED=0,RETAIN=2 30 32 endif else begin 31 PREF_SET, 'IDL_PATH', '/home/spiga/Save/SOURCES/IDL/fsc_psconfig:<IDL_DEFAULT>', /COMMIT 33 ;PREF_SET, 'IDL_PATH', '/home/spiga/Save/SOURCES/IDL/fsc_psconfig:<IDL_DEFAULT>', /COMMIT 34 PREF_SET, 'IDL_PATH', '/home/spiga/SVN/trunk/mesoscale/PLOT/MINIMAL:<IDL_DEFAULT>', /COMMIT 32 35 endelse 33 36 … … 174 177 ;@include_w.pro 175 178 179 ;@include_tprime.pro 180 176 181 ENDELSE 177 182 -
trunk/mesoscale/PLOT/SPEC/MAP/map_uvt.pro
r95 r96 79 79 if (n_elements(field1) eq 0) then begin 80 80 print, 'field1: horizontal velocity' 81 zevel = overvector_x^2 + overvector_y^2 ;; attention il faut que les tableaux soient de la meme taille, OK si uvmet 81 ;;;attention attention overvector_x et overvector_y sont vides 82 ;zevel = overvector_x^2 + overvector_y^2 ;; attention il faut que les tableaux soient de la meme taille, OK si uvmet 83 zevel = (reform(u(*,*,ntime)))^2 + (reform(v(*,*,ntime)))^2 ;; attention il faut que les tableaux soient de la meme taille, OK si uvmet 82 84 what_I_plot = sqrt(zevel) 83 85 endif else begin
Note: See TracChangeset
for help on using the changeset viewer.