- Timestamp:
- 04/11/11 16:05:40 (13 years ago)
- Location:
- trunk/src
- Files:
-
- 1 added
- 3 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/interp_erai_t2m_1989_2009.pro
r33 r40 71 71 ; :: 72 72 ; 73 ; IDL> @tropflux_init 73 74 ; IDL> .compile file_interp 74 75 ; IDL> interp_erai_t2m_1989_2009 … … 161 162 pro interp_erai_t2m_1989_2009 162 163 ; 163 @common 164 @cm_4cal 165 @cm_4data 166 @cm_4mesh 167 @cm_4data 168 @cm_tropflux 164 169 ; 165 170 ; check for input directory 166 171 ; 167 172 ; test if ${TROPFLUX_ID} defined 168 tropflux_id_env=GETENV('TROPFLUX_ID')169 173 CASE tropflux_id_env OF 170 174 '' : BEGIN … … 211 215 ; 212 216 ; test if ${TROPFLUX_OD} defined 213 tropflux_od_env=GETENV('TROPFLUX_OD')214 217 CASE tropflux_od_env OF 215 218 '' : BEGIN -
trunk/src/oaflux_mask_30n30s.pro
r33 r40 1 1 ;+ 2 2 ; 3 ; .. _oaflux_mask_30 N30S.pro:3 ; .. _oaflux_mask_30n30s.pro: 4 4 ; 5 5 ; ================================================================= 6 ; oaflux_mask_30 N30S.pro -- OAFLUX mask over global tropical oceans6 ; oaflux_mask_30n30s.pro -- OAFLUX mask over global tropical oceans 7 7 ; ================================================================= 8 8 ; … … 18 18 ; .. graphviz:: 19 19 ; 20 ; digraph oaflux_mask_30 N30S{20 ; digraph oaflux_mask_30n30s { 21 21 ; graph [ 22 22 ; rankdir="LR", … … 25 25 ; mask [shape=ellipse,fontname=Courier,label="${TROPFLUX_OD}/mask_oaflux_30N30S.nc"]; 26 26 ; 27 ; oaflux_mask_30 N30S[shape=box,27 ; oaflux_mask_30n30s [shape=box, 28 28 ; fontname=Courier, 29 29 ; color=blue, 30 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/oaflux_mask_30 N30S.pro",31 ; label="${TROPFLUX}/src/oaflux_mask_30 N30S.pro"];30 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/oaflux_mask_30n30s.pro", 31 ; label="${TROPFLUX}/src/oaflux_mask_30n30s.pro"]; 32 32 ; 33 ; {file_oaflux} -> {oaflux_mask_30 N30S} -> {mask}33 ; {file_oaflux} -> {oaflux_mask_30n30s} -> {mask} 34 34 ; 35 35 ; } … … 43 43 ; 44 44 ; :ref:`tropflux_profile.sh` 45 ; :ref:`tropflux_init.pro` 46 ; :ref:`cm_tropflux.pro` 45 47 ; 46 48 ; :ref:`get_oaflux.sh` … … 66 68 ; :: 67 69 ; 68 ; IDL> oaflux_mask_30N30S 70 ; IDL> @tropflux_init 71 ; IDL> oaflux_mask_30n30s 69 72 ; 70 73 ; TODO … … 91 94 ; EVOLUTIONS 92 95 ; ========== 96 ; 97 ; $ID$ 93 98 ; 99 ; - fplod 20110411T140133Z aedon.locean-ipsl.upmc.fr (Darwin) 100 ; 101 ; * usage of tropflux_init and cm_tropflux 102 ; * replace 30N30S by 30n30s 103 ; 94 104 ; - fplod 20101217T081915Z aedon.locean-ipsl.upmc.fr (Darwin) 95 105 ; … … 107 117 ;- 108 118 ; 109 PRO oaflux_mask_30 N30S119 PRO oaflux_mask_30n30s 110 120 ; 111 @common 112 ; 121 @cm_4cal 122 @cm_4data 123 @cm_4mesh 124 @cm_4data 125 @cm_tropflux 126 113 127 ; check for input file 114 ;115 ; test if ${TROPFLUX_ID} defined116 tropflux_id_env=GETENV('TROPFLUX_ID')117 CASE tropflux_id_env OF118 '' : BEGIN119 msg = 'eee : ${TROPFLUX_ID} is not defined'120 ras = report(msg)121 STOP122 END123 ELSE: BEGIN124 msg = 'iii : ${TROPFLUX_ID} is ' + tropflux_id_env125 ras = report(msg)126 END127 ENDCASE128 ;129 iodirin = isadirectory(tropflux_id_env)130 ;131 ; existence and protection of ${TROPFLUX_ID}132 IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN133 msg = 'eee : the directory' + iodirin + ' is not accessible.'134 ras = report(msg)135 STOP136 ENDIF137 ;138 128 ; build input filename 139 129 yyyy=2004 … … 142 132 ; 143 133 ; check if this file exists 144 fullfilename_in = isafile( iodirin+ filename_in, NEW=0, /MUST_EXIST)134 fullfilename_in = isafile(tropflux_id_env + filename_in, NEW=0, /MUST_EXIST) 145 135 IF fullfilename_in[0] EQ '' THEN BEGIN 146 136 msg = 'eee : the file ' + fullfilename_in + ' was not found.' … … 149 139 ENDIF 150 140 ; 151 ; test if ${TROPFLUX_OD} defined152 tropflux_od_env=GETENV('TROPFLUX_OD')153 CASE tropflux_od_env OF154 '' : BEGIN155 msg = 'eee : ${TROPFLUX_OD} is not defined'156 ras = report(msg)157 STOP158 END159 ELSE: BEGIN160 msg = 'iii : ${TROPFLUX_OD} is ' + tropflux_od_env161 ras = report(msg)162 END163 ENDCASE164 141 ; 165 ; check if output data will be possible 166 iodirout = isadirectory(tropflux_od_env) 167 ; 168 ; existence and protection 169 IF (FILE_TEST(iodirout, /DIRECTORY, /WRITE) EQ 0) THEN BEGIN 170 msg = 'eee : the directory' + iodirout + ' was not found.' 171 ras = report(msg) 172 STOP 173 ENDIF 174 ; 175 fullfilename_out=iodirout+'mask_oaflux_30N30S.nc' 142 fullfilename_out=tropflux_od_env+'mask_oaflux_30N30S.nc' 176 143 ; in order to avoid unexpected overwritten 177 144 IF (FILE_TEST(fullfilename_out) EQ 1) THEN BEGIN … … 199 166 mask_out=mask_out([ind2,ind1],firstyt:lastyt)*1. 200 167 201 202 168 ncfile='!'+fullfilename_out 203 169 lon_attr={units:'degrees_east',long_name:'Longitude'} -
trunk/src/tropflux_init.pro
r39 r40 1 1 ;+ 2 ; 3 ; .. _tropflux_init.pro: 2 4 ; 3 5 ; ================= … … 11 13 ; it defines the !path and the defaut values of some of the common variables 12 14 ; 13 ; 15 ; 14 16 ; It ++:: 15 17 ; 18 ; $ idl -startupfile tropflux_init.pro 19 ; 20 ; or:: 16 21 ; $ idl -IDL_STARTUP tropflux_init.pro 17 22 ; … … 22 27 ; 23 28 ; 29 ; SEE ALSO 30 ; ======== 31 ; 32 ; :ref:`tropflux_profile.sh` 33 ; 24 34 ; TODO 25 35 ; ==== 26 36 ; 37 ; learn to write IF .. ELSE in a @file 38 ; 27 39 ; check idl -IDL_STARTUP tropflux_init.pro not ok now on cratos 28 ;29 ; remove fplod/cratos dependencies. use $TROPFLUX*30 ;31 ; why cannot by recalled ::32 ;33 ; IDL> @tropflux_init34 ; IDL> retall35 ; IDL> @tropflux_init36 ; Error opening file. File: oldcm_used37 ; Error opening file. File: oldcm_used38 40 ; 39 41 ; EVOLUTIONS 40 42 ; ========== 43 ; 44 ; - fplod 20110411T074056Z aedon.locean-ipsl.upmc.fr (Darwin) 45 ; 46 ; * remove fplod/cratos dependencies use $TROPFLUX*; use SAXO_SRC; 47 ; add cm_tropflux 41 48 ; 42 49 ; - fplod 20110408T131625Z cratos.locean-ipsl.upmc.fr (Linux) … … 45 52 ; 46 53 ;- 47 ; 54 ; 55 ; SAXO environment 56 saxo_src_env=GETENV('SAXO_SRC') 57 ; tropflux environment 58 @cm_tropflux 59 tropflux_env=GETENV('TROPFLUX') 60 tropflux_id_env=GETENV('TROPFLUX_ID') 61 tropflux_od_env=GETENV('TROPFLUX_OD') 62 48 63 ; path definition 49 64 ; 50 !path = expand_path('+' + '/usr/home/fplod/incas/tropflux/tropflux_ws/src') $51 + path_sep(/search_path) + expand_path('+' + '/.autofs/home/smasson/SAXO_DIR/SRC') $65 !path = expand_path('+' + tropflux_env + '/src') $ 66 + path_sep(/search_path) + expand_path('+' + saxo_src_env) $ 52 67 + path_sep(/search_path) + expand_path('+' + !dir) 53 68 ; … … 58 73 ; define all the commons 59 74 ; 60 @all_cm 75 @cm_4cal 76 @cm_4data 77 @cm_4mesh 78 @cm_4data 61 79 ; 62 80 ; define default directories 63 81 ; 64 homedir = isadirectory( '/usr/home/fplod/incas/tropflux/tropflux_ws/src/', title = 'Select the default HOME directory')65 iodir = isadirectory( '/usr/work/incas/fplod/tropflux_d/', title = 'Select the default IO directory')66 psdir = isadirectory( '/usr/work/incas/fplod/tropflux_d/', title = 'Select the default postscripts directory')67 imagedir = isadirectory( '/usr/work/incas/fplod/tropflux_d/', title = 'Select the default images directory')68 animdir = isadirectory( '/usr/work/incas/fplod/tropflux_d/', title = 'Select the default animations directory')82 homedir = isadirectory(tropflux_env + '/src/', title = 'Select the default HOME directory') 83 iodir = isadirectory(tropflux_id_env, title = 'Select the default IO directory') 84 psdir = isadirectory(tropflux_od_env, title = 'Select the default postscripts directory') 85 imagedir = isadirectory(tropflux_od_env, title = 'Select the default images directory') 86 animdir = isadirectory(tropflux_od_env, title = 'Select the default animations directory') 69 87 ; 70 88 ; define printer parameters -
trunk/src/tropflux_profile.sh
r31 r40 15 15 # Online usage:: 16 16 # 17 # $ . ./tropflux_profile.sh -d directory -i indir -o outdir -t tempdir 17 # $ . ./tropflux_profile.sh -d directory -i indir -o outdir -t tempdir -s saxo_src 18 18 # 19 19 # In ${HOME}/.profile, add the following line:: 20 20 # 21 # . tropflux_profile.sh -d directory -i indir -o outdir -t tempdir 21 # . tropflux_profile.sh -d directory -i indir -o outdir -t tempdir -s saxo_src 22 22 # 23 23 # DESCRIPTION … … 28 28 # .. option:: -o <outdir> 29 29 # .. option:: -t <tempdir> 30 # .. option:: -s <saxo_src> 30 31 # 31 32 # define TROPFLUX environment … … 38 39 # 39 40 # ${TROPFLUX_OD} is the directory where output files will be written. 41 # 42 # ${SAXO_SRC} is the base directory of SAXO tools 40 43 # 41 44 # PATH is completed with ${TROPFLUX}. … … 44 47 # ======== 45 48 # 49 # :ref:`troflux_init.pro` 46 50 # 47 51 # EXAMPLES … … 55 59 # -i /usr/temp/${LOGNAME}/tropflux_d/ \ 56 60 # -o /usr/temp/${LOGNAME}/tropflux_d/ \ 57 # -t /usr/temp/${LOGNAME}/log/ 58 # 59 # For fplod on zeus.locean-ipsl.umpc.fr:: 61 # -t /usr/temp/${LOGNAME}/log/ \ 62 # -s /usr/home/fplod/SAXO_DIR/SRC/ 63 # 64 # For fplod on cratos.locean-ipsl.umpc.fr:: 60 65 # 61 66 # $ cd ${HOME}/incas/tropflux/tropflux_ws/ … … 64 69 # -i /usr/temp/${LOGNAME}/tropflux_d/ \ 65 70 # -o /usr/temp/${LOGNAME}/tropflux_d/ \ 66 # -t /usr/temp/${LOGNAME}/log/ 71 # -t /usr/temp/${LOGNAME}/log/ \ 72 # -s ${HOME}/SAXO_DIR/SRC/ 67 73 # 68 74 # For pinsard on camelot.ipsl.polytechnique.fr or merlin15-c.climserv:: … … 74 80 # -o /homedata/${LOGNAME}/tropflux_d/ \ 75 81 # -t /homedata/${LOGNAME}/log/ 82 # -s ${HOME}/SAXO_DIR/SRC/ 76 83 # 77 84 # TODO … … 112 119 command=tropflux_profile.sh 113 120 # 114 usage=" Usage : ${command} -d directory -i indir -o outdir -t tempdir "121 usage=" Usage : ${command} -d directory -i indir -o outdir -t tempdir -s saxo_src" 115 122 # 116 123 set +u … … 136 143 # directory for temporary outputs choosen by user 137 144 tempdir=${2} 145 shift 146 ;; 147 -s) 148 # directory for SAXO tools 149 saxo_src=${2} 138 150 shift 139 151 ;; … … 268 280 fi 269 281 # 282 SAXO_SRC=${saxo_src} 283 export SAXO_SRC 284 unset saxo_src 285 # 270 286 # end 271 287 unset command
Note: See TracChangeset
for help on using the changeset viewer.