source: trunk/MESOSCALE/PLOT/RESERVE/obsolete/movie.idl @ 184

Last change on this file since 184 was 86, checked in by aslmd, 14 years ago

*
mars + LMD_MM_MARS
* Precompilation flag MESOSCALE for better transparency

* in shared phymars between GCM and mesoscale model

*

M 85 mars/libf/phymars/meso_physiq.F
M 85 mars/libf/phymars/meso_inifis.F
Added a pre-compilation flag MESOSCALE so that the LMDZ.MARS GCM
will compile without stating errors because of mesoscale routines.

M 85 mars/libf/phymars/newcondens.F
M 85 mars/libf/phymars/testphys1d.F
M 85 mars/libf/phymars/dustlift.F
D 85 mars/libf/phymars/meso_testphys1d.F
D 85 mars/libf/phymars/meso_dustlift.F
D 85 mars/libf/phymars/meso_newcondens.F
Now, this MESOSCALE precompilation flag can be used to lower
the number of meso_* routines when adaptations for mesoscale
applications are not very extended.
--> Three meso_* routines were deleted and changes are
now impacted under the MESOSCALE flag in the original GCM routines
--> Completely transparent for GCM compilation since it is devoid
of the -DMESOSCALE option
--> Very good for syncing because changes in dustlift, newcondens
will be directly available in the mesoscale model

M 84 mesoscale/LMD_MM_MARS/makemeso
Changed meso_testphys1d in testphys1d

M 84 mesoscale/LMD_MM_MARS/SRC/WRFV2/mars_lmd_new/makegcm_pgf
M 84 mesoscale/LMD_MM_MARS/SRC/WRFV2/mars_lmd_new/makegcm_mpifort
M 84 mesoscale/LMD_MM_MARS/SRC/WRFV2/mars_lmd_new/makegcm_ifort
M 84 mesoscale/LMD_MM_MARS/SRC/WRFV2/mars_lmd_new/makegcm_g95
M 84 mesoscale/LMD_MM_MARS/SRC/WRFV2/mars_lmd_new/makegcm_mpi
Added the option -DMESOSCALE in these scripts

*
LMD_MM_MARS
* Various minor changes related to water cycle and plotting routines

* Also included the GW test case

*

A 0 mesoscale/LMDZ.MARS.new/myGCM/DEFS_JB/callphys.def.orig
M 84 mesoscale/NOTES.txt
D 84 mesoscale/LMD_MM_MARS/SRC/ARWpost/idl
M 84 mesoscale/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM
M 84 mesoscale/LMD_MM_MARS/SIMU/gnome_launch.meso
M 85 mesoscale/PLOT/MINIMAL/map_latlon.pro
D 85 mesoscale/PLOT/SPEC/LES/getget.pro
M 85 mesoscale/PLOT/SPEC/MAP/map_uvt.pro
A + - mesoscale/PLOT/SPEC/getget.pro
A 0 mesoscale/PLOT/RESERVE/obsolete
A 0 mesoscale/TESTS/TESTGW.tar.gz
M 84 000-USERS

File size: 2.7 KB
Line 
1;;---------------------------------------
2;  MOVIE
3;
4;  **** DO NOT MODIFY ****
5;
6;  set parameters in plot.def then type:
7;
8;  @movie.idl
9;
10;;---------------------------------------
11
12field1='' & field2='' & winds=''
13backup_data='no' & already_data='no'   
14datafolder='./' & plotfolder='./'
15nomovie='yes'
16topo=0
17extract='no'
18
19SPAWN, '\rm user.idl'
20SPAWN, 'grep -v grep plot.def > user.idl'
21
22;; to avoid dumb and useless warnings from IDL
23space=0. & altitude=0. & lon=0. & lat=0.
24what_I_plot=0. & title_user='' & missing_value=0.
25
26@user.idl
27if (nam5 eq " interp_method = 0 ") then coord='height'
28if ((nam5 eq " interp_method = 1 ") and (tabnam(0) lt tabnam(1))) then coord='height'
29
30.compile call_arwpost
31if (extract eq 'yes') then call_arwpost, nam1, nam2, nam3, nam4, nam5, tabnam
32
33denom=plot+'_'+coord+'_'+field1
34if ((field2 ne '') and (topo eq 0)) then denom=denom+'_'+field2
35if (topo eq 1) then denom=denom+'_HGT'
36if (winds(0) ne '') then denom=denom+'_'+winds(0)+winds(1)
37
38if (already_data eq 'yes') then SPAWN, 'ln -sf  '+datafolder+'/'+coord+'.input.ctl input.ctl'
39if (already_data eq 'yes') then SPAWN, 'ln -sf  '+datafolder+'/'+coord+'.input.dat input.dat'
40
41SPAWN, '\rm param_plot.idl'
42SPAWN, 'grep grepALL plot.def > param_plot.idl'
43if ((plot eq 'meridional') or (plot eq 'zonal')) then SPAWN, 'grep grepSEC plot.def >> param_plot.idl'
44if (plot eq 'map') then SPAWN, 'grep grepMAP plot.def >> param_plot.idl'
45.compile map_latlon
46.compile section
47
48!p.charthick = 2.0
49!p.thick = 3.0
50!x.thick = 2.0
51!y.thick = 2.0
52
53for i=1,num do $
54        out_wrf, $
55        plot=plot, $
56        field1=field1, $
57        field2=field2, $
58        when=i, $
59        winds=winds, $
60        level=level,$
61        save_data=yeah,$        ;; data is loaded only once
62        topo=topo,$
63;        range=range,$
64        colors=colors, $
65        nlon=nlon, $
66        nlat=nlat, $
67        save_ps=denom+string(1000+i,'(I0)')
68
69print, 'generating movie ...'
70SPAWN, 'rm -rf temp'
71SPAWN, 'mkdir temp'
72SPAWN, 'mv -f '+denom+'????.ps temp'
73SPAWN, 'cp bigconvert200 temp'
74SPAWN, 'cd temp ; bigconvert200 *.ps ; convert -delay 60 *.png movie.gif ; cd ..'
75if (nomovie ne 'yes') then SPAWN, 'animate temp/movie.gif &' 
76print, 'movie done'
77
78SPAWN, 'mv -f temp/'+denom+'????.ps '+plotfolder+'/'
79SPAWN, 'mv -f temp/movie.gif '+plotfolder+'/'+denom+'.gif'
80SPAWN, 'mv -f temp/'+denom+'????.png '+plotfolder+'/'
81if (backup_data eq 'yes') then SPAWN, 'cp -f namelist.ARWpost '+datafolder+'/'+coord+'.namelist.ARWpost'
82if (backup_data eq 'yes') then SPAWN, 'cp -f input.ctl '+datafolder+'/'+coord+'.input.ctl'
83if (backup_data eq 'yes') then SPAWN, 'cp -f input.dat '+datafolder+'/'+coord+'.input.dat'
84
85SPAWN, 'cp -f plot.def '+plotfolder+'/'+denom+'.def'
Note: See TracBrowser for help on using the repository browser.