Changeset 50
- Timestamp:
- 04/29/11 11:09:12 (13 years ago)
- Location:
- trunk
- Files:
-
- 81 edited
- 4 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/adm/guides/data_content.rst
r48 r50 86 86 ^^^^^^^^^^^^^ 87 87 88 :file:`${ TROPFLUX_ID}/mask_oaflux_30N30S.nc`88 :file:`${PROJECT_ID}/mask_oaflux_30N30S.nc` 89 89 90 90 size < 100 Ko -
trunk/adm/makefile
r48 r50 24 24 # EVOLUTIONS 25 25 # ========== 26 # 27 # - fplod 20110421T160731Z aedon.locean-ipsl.upmc.fr (Darwin) 28 # 29 # * correction for pdf_user 26 30 # 27 31 # - fplod 20110411T160342Z aedon.locean-ipsl.upmc.fr (Darwin) … … 146 150 147 151 LIST_SRCMATLAB = \ 148 $(DIRSRC)/test/ $(PRODUCT)_startup.m \152 $(DIRSRC)/test/project_startup.m \ 149 153 $(DIRSRC)/test/read.m 150 154 … … 384 388 385 389 pdf_user : 386 cd $(DIRADM)/website/ 387 make pdf 390 cd $(DIRADM)/website/; make latexpdf 388 391 389 392 pdf_dev : \ -
trunk/adm/website/data_out.rst
r38 r50 14 14 .. 15 15 .. - 16 17 .. _data_out: 16 18 17 19 TropFlux products -
trunk/src/TropFlux_19890101_20091231.pro
r20 r50 21 21 ; rankdir="LR", 22 22 ; ] 23 ; mask [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/mask_oaflux_30N30S.nc"];23 ; mask [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/mask_oaflux_30N30S.nc"]; 24 24 ; file_sst [shape=ellipse,fontname=Courier,label="/Volumes/Iomega_HDD/TropFlux/input_cor/full_cor/TropFlux_sst_19890101_20091231_v20.nc"]; 25 25 ; file_wind [shape=ellipse,fontname=Courier,label="/Volumes/Iomega_HDD/TropFlux/input_cor/full_cor/TropFlux_ws_19890101_20091231_v20.nc"]; … … 36 36 ; color=blue, 37 37 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/TropFlux_19890101_20091231.pro", 38 ; label="${ TROPFLUX}/src/TropFlux_19890101_20091231.pro"];38 ; label="${PROJECT}/src/TropFlux_19890101_20091231.pro"]; 39 39 ; 40 40 ; {mask file_sst file_wind file_wg file_sw file_lw file_air file_q} -> {TropFlux_19890101_20091231} -> {ncfile} … … 45 45 ; ======== 46 46 ; 47 ; :ref:` tropflux_profile.sh`47 ; :ref:`project_profile.sh` 48 48 ; 49 49 ; :func:`report <saxo:report>` … … 69 69 ; ==== 70 70 ; 71 ; hard coded directory - usage of ${ TROPFLUX_ID}71 ; hard coded directory - usage of ${PROJECT_ID} 72 72 ; 73 73 ; coding rules … … 102 102 pro TropFlux_19890101_20091231 103 103 @common 104 @cm_project 104 105 ; 105 106 ; check for input directory 106 107 ; 107 ; test if ${TROPFLUX_ID} defined 108 tropflux_id_env=GETENV('TROPFLUX_ID') 109 CASE tropflux_id_env OF 108 ; test if ${PROJECT_ID} defined 109 CASE project_id_env OF 110 110 '' : BEGIN 111 msg = 'eee : ${ TROPFLUX_ID} is not defined'111 msg = 'eee : ${PROJECT_ID} is not defined' 112 112 ras = report(msg) 113 113 STOP 114 114 END 115 115 ELSE: BEGIN 116 msg = 'iii : ${ TROPFLUX_ID} is ' + tropflux_id_env116 msg = 'iii : ${PROJECT_ID} is ' + project_id_env 117 117 ras = report(msg) 118 118 END 119 119 ENDCASE 120 120 ; 121 iodirin = isadirectory( tropflux_id_env)122 ; 123 ; existence and protection of ${ TROPFLUX_ID}121 iodirin = isadirectory(project_id_env) 122 ; 123 ; existence and protection of ${PROJECT_ID} 124 124 IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 125 125 msg = 'eee : the directory' + iodirin + ' is not accessible.' -
trunk/src/TropFlux_NRT_ncdf.pro
r20 r50 21 21 ; color=blue, 22 22 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/TropFlux_NRT_ncdf_v50.pro", 23 ; label="${ TROPFLUX}/src/TropFlux_NRT_ncdf_v50.pro" ];23 ; label="${PROJECT}/src/TropFlux_NRT_ncdf_v50.pro" ]; 24 24 ; {file1 file2 file3} -> {TropFlux_NRT_ncdf_v50} -> {ncfile} 25 25 ; } … … 44 44 ; ==== 45 45 ; 46 ; hard coded directory - usage of ${ TROPFLUX_ID}46 ; hard coded directory - usage of ${PROJECT_ID} 47 47 ; 48 48 ; coding rules -
trunk/src/TropFlux_swr_BLND_19890101_20091231.pro
r20 r50 23 23 ; color=blue, 24 24 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/TropFlux_swr_BLND_19890101_20091231.pro", 25 ; label="${ TROPFLUX}/src/TropFlux_swr_BLND_19890101_20091231.pro"];25 ; label="${PROJECT}/src/TropFlux_swr_BLND_19890101_20091231.pro"]; 26 26 ; {file_dt file_nrt file_gustiness} -> {TropFlux_swr_BLND_19890101_20091231} ->{ ncfile} 27 27 ; … … 47 47 ; ==== 48 48 ; 49 ; hard coded directory - usage of ${ TROPFLUX_ID}49 ; hard coded directory - usage of ${PROJECT_ID} 50 50 ; 51 51 ; coding rules -
trunk/src/TropFlux_swr_DT_19890101_20071231.pro
r20 r50 23 23 ; color=blue, 24 24 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/TropFlux_swr_DT_19890101_20071231.pro", 25 ; label="${ TROPFLUX}/src/TropFlux_swr_DT_19890101_20071231.pro"];25 ; label="${PROJECT}/src/TropFlux_swr_DT_19890101_20071231.pro"]; 26 26 ; 27 27 ; {file_swr}-> {TropFlux_swr_DT_19890101_20071231} -> {ncfile} … … 49 49 ; ==== 50 50 ; 51 ; hard coded directory - usage of ${ TROPFLUX_ID}51 ; hard coded directory - usage of ${PROJECT_ID} 52 52 ; 53 53 ; coding rules -
trunk/src/TropFlux_swr_NRT_19890101_20091231.pro
r20 r50 21 21 ; color=blue, 22 22 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/TropFlux_swr_NRT_19890101_200912311.pro", 23 ; label="${ TROPFLUX}/src/TropFlux_swr_NRT_19890101_200912311.pro"];23 ; label="${PROJECT}/src/TropFlux_swr_NRT_19890101_200912311.pro"]; 24 24 ; {file_sw file_olr}-> {TropFlux_swr_NRT_19890101_200912311} -> {ncfile} 25 25 ; } … … 43 43 ; ==== 44 44 ; 45 ; hard coded directory - usage of ${ TROPFLUX_ID}45 ; hard coded directory - usage of ${PROJECT_ID} 46 46 ; 47 47 ; coding rules -
trunk/src/cm_project.pro
r47 r50 1 1 ;+ 2 2 ; 3 ; .. _cm_ tropflux.pro:3 ; .. _cm_project.pro: 4 4 ; 5 ; ============== =6 ; cm_ tropflux.pro7 ; ============== =5 ; ============== 6 ; cm_project.pro 7 ; ============== 8 8 ; 9 9 ; DESCRIPTION 10 10 ; =========== 11 11 ; 12 ; define commons for TROPFLUX12 ; define commons for PROJECT 13 13 ; 14 14 ; SEE ALSO 15 15 ; ======== 16 16 ; 17 ; :ref:` tropflux_init.pro`17 ; :ref:`project_init.pro` 18 18 ; 19 19 ; EVOLUTIONS … … 27 27 ; 28 28 ;- 29 COMMON tropflux, tropflux_env, tropflux_id_env, tropflux_od_env29 COMMON project, project_env, project_id_env, project_od_env -
trunk/src/compute_erai_daily_region_2d.sh
r34 r50 32 32 # 33 33 # 34 # Put in ${ TROPFLUX_ID} ERA-Intermin reference files35 # 36 # Log file is written on :file:`${ TROPFLUX_LOG}/compute_erai_daily_region_2d.log.{YYYYMMDDTHHMMSSZ}`34 # Put in ${PROJECT_ID} ERA-Intermin reference files 35 # 36 # Log file is written on :file:`${PROJECT_LOG}/compute_erai_daily_region_2d.log.{YYYYMMDDTHHMMSSZ}` 37 37 # 38 38 # .. graphviz:: … … 50 50 # filein_v10 [shape=ellipse,fontname=Courier,label="/bdd/ERAI/NETCDF/GLOBAL_075/4xdaily/AN_SF/yyyy/v10.yyyymm.ashei.GLOBAL_075.nc"]; 51 51 # 52 # fileout_str [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_TROP_1d_yyyy0101_yyyy1231_str_gridOrig.nc"];53 # fileout_msl [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_TROP_1d_yyyy0101_yyyy1231_msl_gridOrig.nc"];54 # fileout_sstk [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_TROP_1d_yyyy0101_yyyy1231_sstk_gridOrig.nc"];55 # fileout_t2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_TROP_1d_yyyy0101_yyyy1231_t2_gridOrig.nc"];56 # fileout_d2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_TROP_1d_yyyy0101_yyyy1231_d2_gridOrig.nc"];57 # fileout_u10 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_TROP_1d_yyyy0101_yyyy1231_u10_gridOrig.nc"];58 # fileout_v10 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_TROP_1d_yyyy0101_yyyy1231_v10_gridOrig.nc"];52 # fileout_str [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_TROP_1d_yyyy0101_yyyy1231_str_gridOrig.nc"]; 53 # fileout_msl [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_TROP_1d_yyyy0101_yyyy1231_msl_gridOrig.nc"]; 54 # fileout_sstk [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_TROP_1d_yyyy0101_yyyy1231_sstk_gridOrig.nc"]; 55 # fileout_t2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_TROP_1d_yyyy0101_yyyy1231_t2_gridOrig.nc"]; 56 # fileout_d2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_TROP_1d_yyyy0101_yyyy1231_d2_gridOrig.nc"]; 57 # fileout_u10 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_TROP_1d_yyyy0101_yyyy1231_u10_gridOrig.nc"]; 58 # fileout_v10 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_TROP_1d_yyyy0101_yyyy1231_v10_gridOrig.nc"]; 59 59 # 60 60 # compute_erai_daily_region_2d [shape=box, … … 62 62 # color=blue, 63 63 # URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/compute_erai_daily_region_2d.sh", 64 # label="${ TROPFLUX}/src/compute_erai_daily_region_2d.sh"];64 # label="${PROJECT}/src/compute_erai_daily_region_2d.sh"]; 65 65 # 66 66 # {filein_str filein_msl filein_sstk filein_t2 filein_d2 filein_u10 filein_v10} -> {compute_erai_daily_region_2d} -> {fileout_str fileout_msl fileout_sstk fileout_t2 fileout_d2 fileout_u10 fileout_v10} … … 84 84 # $ tlogd.sh compute_erai_daily_region_2d 85 85 # 86 # and of course on files in ${ TROPFLUX_ID}.86 # and of course on files in ${PROJECT_ID}. 87 87 # 88 88 # … … 95 95 # for variables names 96 96 # 97 # :ref:` tropflux_profile.sh`97 # :ref:`project_profile.sh` 98 98 # 99 99 # :func:`ncpdq <nco:ncpdq>` … … 295 295 esac 296 296 297 # check for ${ TROPFLUX_LOG} definition298 if [ "${ TROPFLUX_LOG}" = "" ]299 then 300 echo "${command} : eee : \${ TROPFLUX_LOG} not defined"301 exit 1 302 fi 303 # 304 # check for ${ TROPFLUX_LOG} existence305 if [ ! -d ${ TROPFLUX_LOG} ]306 then 307 echo "${command} : eee : ${ TROPFLUX_LOG} not found"308 exit 1 309 fi 310 # 311 # check for permission access on TROPFLUX_LOG312 if [ ! -x ${ TROPFLUX_LOG} ]313 then 314 echo "${command} : eee : ${ TROPFLUX_LOG} not reachable"315 exit 1 316 fi 317 # 318 # check for write permission on TROPFLUX_LOG319 if [ ! -w ${ TROPFLUX_LOG} ]320 then 321 echo "${command} : eee : ${ TROPFLUX_LOG} not writable"322 exit 1 323 fi 324 # 325 dirtemp=${ TROPFLUX_LOG}/$(basename ${0} .sh).${log_date}.temp/297 # check for ${PROJECT_LOG} definition 298 if [ "${PROJECT_LOG}" = "" ] 299 then 300 echo "${command} : eee : \${PROJECT_LOG} not defined" 301 exit 1 302 fi 303 # 304 # check for ${PROJECT_LOG} existence 305 if [ ! -d ${PROJECT_LOG} ] 306 then 307 echo "${command} : eee : ${PROJECT_LOG} not found" 308 exit 1 309 fi 310 # 311 # check for permission access on PROJECT_LOG 312 if [ ! -x ${PROJECT_LOG} ] 313 then 314 echo "${command} : eee : ${PROJECT_LOG} not reachable" 315 exit 1 316 fi 317 # 318 # check for write permission on PROJECT_LOG 319 if [ ! -w ${PROJECT_LOG} ] 320 then 321 echo "${command} : eee : ${PROJECT_LOG} not writable" 322 exit 1 323 fi 324 # 325 dirtemp=${PROJECT_LOG}/$(basename ${0} .sh).${log_date}.temp/ 326 326 mkdir -p ${dirtemp} 327 327 # 328 log=${ TROPFLUX_LOG}/$(basename ${0} .sh).log.${log_date}328 log=${PROJECT_LOG}/$(basename ${0} .sh).log.${log_date} 329 329 echo "[Context]" 1>> ${log} 330 330 echo "command=$(basename ${0})" 1>>${log} … … 457 457 ncdump -v time ${dirtemp}/temp_int_${var}_${yyyy}??.nc 1>> ${log} 2>&1 458 458 fi 459 ncrcat -O ${dirtemp}/temp_int_${var}_${yyyy}??.nc ${ TROPFLUX_ID}/erai_${reg}_1d_${yyyy}${cmonthmin}01_${yyyy}${cmonthmax}31_${var}_gridOrig.nc 1>> ${log} 2>&1459 ncrcat -O ${dirtemp}/temp_int_${var}_${yyyy}??.nc ${PROJECT_ID}/erai_${reg}_1d_${yyyy}${cmonthmin}01_${yyyy}${cmonthmax}31_${var}_gridOrig.nc 1>> ${log} 2>&1 460 460 rm ${dirtemp}/temp_int_${var}_${yyyy}* 2> /dev/null 461 461 yyyy=$(( ${yyyy} + 1 )) … … 497 497 ncdump -v time ${dirtemp}/temp_int_${yyyy}??.nc >> ${log} 2>&1 498 498 fi 499 ncrcat -O ${dirtemp}/temp_int_${yyyy}??.nc ${ TROPFLUX_ID}/erai_${reg}_1d_${yyyy}${cmonthmin}01_${yyyy}${cmonthmax}31_${var}_gridOrig.nc >> ${log} 2>&1499 ncrcat -O ${dirtemp}/temp_int_${yyyy}??.nc ${PROJECT_ID}/erai_${reg}_1d_${yyyy}${cmonthmin}01_${yyyy}${cmonthmax}31_${var}_gridOrig.nc >> ${log} 2>&1 500 500 rm ${dirtemp}/temp_int_${yyyy}* 2> /dev/null 501 501 yyyy=$(( ${yyyy} + 1 )) -
trunk/src/cor30a.pro
r12 r50 72 72 ; ==== 73 73 ; 74 ; hard coded directory - usage of ${ TROPFLUX_ID}74 ; hard coded directory - usage of ${PROJECT_ID} 75 75 ; 76 76 ; coding rules -
trunk/src/cronin_gustiness_ncdf.pro
r20 r50 19 19 ; color=blue, 20 20 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/cronin_gustiness_ncdf.pro", 21 ; label="${ TROPFLUX}/src/cronin_gustiness_ncdf.pro"];21 ; label="${PROJECT}/src/cronin_gustiness_ncdf.pro"]; 22 22 ; {file_sst} -> {cronin_gustiness_ncdf} -> {ncfile} 23 23 ; } … … 40 40 ; ==== 41 41 ; 42 ; hard coded directory - usage of ${ TROPFLUX_ID}42 ; hard coded directory - usage of ${PROJECT_ID} 43 43 ; 44 44 ; coding rules -
trunk/src/d2m_to_q2m_erai.pro
r20 r50 23 23 ; color=blue, 24 24 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/d2m_to_q2m_erai.pro", 25 ; label="${ TROPFLUX}/src/d2m_to_q2m_erai.pro"];25 ; label="${PROJECT}/src/d2m_to_q2m_erai.pro"]; 26 26 ; {file_d2m file_t2m file_msl} -> {d2m_to_q2m_erai} -> {file_q2m} 27 27 ; } … … 46 46 ; ==== 47 47 ; 48 ; hard coded directory - usage of ${ TROPFLUX_ID}48 ; hard coded directory - usage of ${PROJECT_ID} 49 49 ; 50 50 ; coding rules -
trunk/src/dew_temp_airt_rel_humidity_jv.pro
r12 r50 27 27 ; ==== 28 28 ; 29 ; hard coded directory - usage of ${ TROPFLUX_ID}29 ; hard coded directory - usage of ${PROJECT_ID} 30 30 ; 31 31 ; coding rules -
trunk/src/dlogd.sh
r2 r50 7 7 # 8 8 # ======================================================================================================================== 9 # dlogd.sh -- prompt for destruction of the most recent release of :file:`${ TROPFLUX_LOG}/{action}.log.{YYYYMMDDTHHMMSSZ}`9 # dlogd.sh -- prompt for destruction of the most recent release of :file:`${PROJECT_LOG}/{action}.log.{YYYYMMDDTHHMMSSZ}` 10 10 # ======================================================================================================================== 11 11 # … … 21 21 # =========== 22 22 # 23 # ``dlogd.sh`` prompt for destruction of the most recent release of :file:`${ TROPFLUX_LOG}/{action}.log.{YYYYMMDDTHHMMSSZ}`.23 # ``dlogd.sh`` prompt for destruction of the most recent release of :file:`${PROJECT_LOG}/{action}.log.{YYYYMMDDTHHMMSSZ}`. 24 24 # 25 25 # SEE ALSO 26 26 # ======== 27 27 # 28 # :ref:` tropflux_profile.sh`28 # :ref:`project_profile.sh` 29 29 # 30 30 # :ref:`elogd.sh` … … 65 65 fi 66 66 # 67 # check for ${ TROPFLUX_LOG} definition68 if [ "${ TROPFLUX_LOG}" = "" ]67 # check for ${PROJECT_LOG} definition 68 if [ "${PROJECT_LOG}" = "" ] 69 69 then 70 echo " eee : \${ TROPFLUX_LOG} not defined"70 echo " eee : \${PROJECT_LOG} not defined" 71 71 exit 1 72 72 fi 73 73 # 74 # check for ${ TROPFLUX_LOG} existence75 if [ ! -d ${ TROPFLUX_LOG} ]74 # check for ${PROJECT_LOG} existence 75 if [ ! -d ${PROJECT_LOG} ] 76 76 then 77 echo " eee : ${ TROPFLUX_LOG} not found"77 echo " eee : ${PROJECT_LOG} not found" 78 78 exit 1 79 79 fi 80 80 # 81 # check for permission access on TROPFLUX_LOG82 if [ ! -x ${ TROPFLUX_LOG} ]81 # check for permission access on PROJECT_LOG 82 if [ ! -x ${PROJECT_LOG} ] 83 83 then 84 echo " eee : ${ TROPFLUX_LOG} not reachable"84 echo " eee : ${PROJECT_LOG} not reachable" 85 85 exit 1 86 86 fi 87 # check for write permission on TROPFLUX_LOG88 if [ ! -w ${ TROPFLUX_LOG} ]87 # check for write permission on PROJECT_LOG 88 if [ ! -w ${PROJECT_LOG} ] 89 89 then 90 echo " eee : ${ TROPFLUX_LOG} not writable"90 echo " eee : ${PROJECT_LOG} not writable" 91 91 exit 1 92 92 fi 93 93 # 94 log=$(find ${ TROPFLUX_LOG} -name "${1}.log.????????T??????Z" | sort | \94 log=$(find ${PROJECT_LOG} -name "${1}.log.????????T??????Z" | sort | \ 95 95 tail -n 1) 96 96 tmp=${?} … … 99 99 if [ "${log}" = "" ] 100 100 then 101 echo "${command} : eee : no release of ${ TROPFLUX_LOG}/${1}.log" >&2101 echo "${command} : eee : no release of ${PROJECT_LOG}/${1}.log" >&2 102 102 exit 1 103 103 else -
trunk/src/elogd.sh
r2 r50 7 7 # 8 8 # ========================================================================================= 9 # elogd.sh -- edit the most recent :file:`${ TROPFLUX_LOG}/{action}.log.{YYYYMMDDTHHMMSSZ}`9 # elogd.sh -- edit the most recent :file:`${PROJECT_LOG}/{action}.log.{YYYYMMDDTHHMMSSZ}` 10 10 # ========================================================================================= 11 11 # … … 21 21 # =========== 22 22 # 23 # ``elogd.sh`` launch ${EDITOR} on the most recent release of :file:`${ TROPFLUX_LOG}/{action}.log.{YYYYMMDDTHHMMSSZ}`.23 # ``elogd.sh`` launch ${EDITOR} on the most recent release of :file:`${PROJECT_LOG}/{action}.log.{YYYYMMDDTHHMMSSZ}`. 24 24 # 25 25 # .. +todo+ avec sphinx :envvar:`${EDITOR}` … … 34 34 # ======== 35 35 # 36 # :ref:` tropflux_profile.sh`36 # :ref:`project_profile.sh` 37 37 # 38 38 # :ref:`dlogd.sh` … … 78 78 fi 79 79 # 80 # check for ${ TROPFLUX_LOG} definition81 if [ "${ TROPFLUX_LOG}" = "" ]80 # check for ${PROJECT_LOG} definition 81 if [ "${PROJECT_LOG}" = "" ] 82 82 then 83 echo " eee : \${ TROPFLUX_LOG} not defined"83 echo " eee : \${PROJECT_LOG} not defined" 84 84 exit 1 85 85 fi 86 86 # 87 # check for ${ TROPFLUX_LOG} existence88 if [ ! -d ${ TROPFLUX_LOG} ]87 # check for ${PROJECT_LOG} existence 88 if [ ! -d ${PROJECT_LOG} ] 89 89 then 90 echo " eee : ${ TROPFLUX_LOG} not found"90 echo " eee : ${PROJECT_LOG} not found" 91 91 exit 1 92 92 fi 93 93 # 94 # check for permission access on TROPFLUX_LOG95 if [ ! -x ${ TROPFLUX_LOG} ]94 # check for permission access on PROJECT_LOG 95 if [ ! -x ${PROJECT_LOG} ] 96 96 then 97 echo " eee : ${ TROPFLUX_LOG} not reachable"97 echo " eee : ${PROJECT_LOG} not reachable" 98 98 exit 1 99 99 fi 100 100 # 101 log=$(find ${ TROPFLUX_LOG} -name "${1}.log.????????T??????Z" | sort | \101 log=$(find ${PROJECT_LOG} -name "${1}.log.????????T??????Z" | sort | \ 102 102 tail -n 1) 103 103 tmp=${?} … … 106 106 if [ "${log}" = "" ] 107 107 then 108 echo "${command} : eee : no release of ${ TROPFLUX_LOG}/${1}.log" >&2108 echo "${command} : eee : no release of ${PROJECT_LOG}/${1}.log" >&2 109 109 exit 1 110 110 else -
trunk/src/get_oaflux.sh
r48 r50 20 20 # =========== 21 21 # 22 # Put in ${ TROPFLUX_ID} OAFLUX reference file22 # Put in ${PROJECT_ID} OAFLUX reference file 23 23 # 24 24 # Once this tool executed :ref:`oaflux_mask_30N30S.pro` can be launched. 25 25 # 26 # Log file is written on :file:`${ TROPFLUX_LOG}/get_oaflux.log.{YYYYMMDDTHHMMSSZ}`26 # Log file is written on :file:`${PROJECT_LOG}/get_oaflux.log.{YYYYMMDDTHHMMSSZ}` 27 27 # 28 28 # … … 36 36 # oaflux_ref [shape=diamond,fontname=Courier,label="ftp://ftp.whoi.edu/pub/science/oaflux/data_v3/monthly/turbulence/lh_oaflux_2004.nc.gz"]; 37 37 # 38 # file_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lh_oaflux_2004.nc"];38 # file_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lh_oaflux_2004.nc"]; 39 39 # 40 40 # get_oaflux [shape=box, … … 42 42 # color=blue, 43 43 # URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/get_oaflux.sh" 44 # label="${ TROPFLUX}/src/get_oaflux.sh"];44 # label="${PROJECT}/src/get_oaflux.sh"]; 45 45 # get_oaflux [shape=box, 46 46 # fontname=Courier, 47 47 # color=blue, 48 48 # URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/get_oaflux.sh" 49 # label="${ TROPFLUX}/src/get_oaflux.sh"];49 # label="${PROJECT}/src/get_oaflux.sh"]; 50 50 # 51 51 # {oaflux_ref} -> {get_oaflux} -> {file_oaflux} … … 66 66 # $ tlogd.sh get_oaflux 67 67 # 68 # and of course on files in ${ TROPFLUX_ID}.68 # and of course on files in ${PROJECT_ID}. 69 69 # 70 70 # TODO … … 76 76 # :ref:`guide data OAFLUX <data_in_oaflux>` 77 77 # 78 # :ref:` tropflux_profile.sh`78 # :ref:`project_profile.sh` 79 79 # 80 80 # :ref:`oaflux_mask_30N30S.pro` … … 141 141 unset tool 142 142 # 143 # check for ${ TROPFLUX_LOG} definition144 if [ "${ TROPFLUX_LOG}" = "" ]145 then 146 echo "${command} : eee : \${ TROPFLUX_LOG} not defined"147 exit 1 148 fi 149 # 150 # check for ${ TROPFLUX_LOG} existence151 if [ ! -d ${ TROPFLUX_LOG} ]152 then 153 echo "${command} : eee : ${ TROPFLUX_LOG} not found"154 exit 1 155 fi 156 # 157 # check for permission access on TROPFLUX_LOG158 if [ ! -x ${ TROPFLUX_LOG} ]159 then 160 echo "${command} : eee : ${ TROPFLUX_LOG} not reachable"161 exit 1 162 fi 163 # 164 # check for write permission on TROPFLUX_LOG165 if [ ! -w ${ TROPFLUX_LOG} ]166 then 167 echo "${command} : eee : ${ TROPFLUX_LOG} not writable"168 exit 1 169 fi 170 # 171 log=${ TROPFLUX_LOG}/$(basename ${0} .sh).log.${log_date}143 # check for ${PROJECT_LOG} definition 144 if [ "${PROJECT_LOG}" = "" ] 145 then 146 echo "${command} : eee : \${PROJECT_LOG} not defined" 147 exit 1 148 fi 149 # 150 # check for ${PROJECT_LOG} existence 151 if [ ! -d ${PROJECT_LOG} ] 152 then 153 echo "${command} : eee : ${PROJECT_LOG} not found" 154 exit 1 155 fi 156 # 157 # check for permission access on PROJECT_LOG 158 if [ ! -x ${PROJECT_LOG} ] 159 then 160 echo "${command} : eee : ${PROJECT_LOG} not reachable" 161 exit 1 162 fi 163 # 164 # check for write permission on PROJECT_LOG 165 if [ ! -w ${PROJECT_LOG} ] 166 then 167 echo "${command} : eee : ${PROJECT_LOG} not writable" 168 exit 1 169 fi 170 # 171 log=${PROJECT_LOG}/$(basename ${0} .sh).log.${log_date} 172 172 echo "[Context]" 1>> ${log} 173 173 echo "command=$(basename ${0})" 1>>${log} … … 180 180 fileref_gz=${fileref}.gz 181 181 locref=ftp://ftp.whoi.edu/pub/science/oaflux/data_v3/monthly/turbulence/ 182 if [ -f ${ TROPFLUX_ID}/${fileref} ]183 then 184 echo "${command} : iii : ${ TROPFLUX_ID}/${fileref} exist" 1>> ${log}182 if [ -f ${PROJECT_ID}/${fileref} ] 183 then 184 echo "${command} : iii : ${PROJECT_ID}/${fileref} exist" 1>> ${log} 185 185 echo "${command} : iii : nothing done" 1>> ${log} 186 186 else 187 wget --tries=1 --no-verbose -P ${ TROPFLUX_ID} ${locref}/${fileref_gz} 1>> ${log} 2>&1187 wget --tries=1 --no-verbose -P ${PROJECT_ID} ${locref}/${fileref_gz} 1>> ${log} 2>&1 188 188 wget_status=${?} 189 189 if [ ${wget_status} -ne 0 ] … … 197 197 # 198 198 # decompress 199 gunzip ${ TROPFLUX_ID}${fileref_gz}199 gunzip ${PROJECT_ID}${fileref_gz} 200 200 gunzip_status=${?} 201 201 if [ ${gunzip_status} -ne 0 ] -
trunk/src/get_olr.sh
r4 r50 34 34 # trace 35 35 # 36 # hard coded directory - usage of ${ TROPFLUX_ID}36 # hard coded directory - usage of ${PROJECT_ID} 37 37 # 38 38 # coding rules -
trunk/src/get_olrnint.sh
r4 r50 35 35 # trace 36 36 # 37 # hard coded directory - usage of ${ TROPFLUX_ID}37 # hard coded directory - usage of ${PROJECT_ID} 38 38 # 39 39 # coding rules -
trunk/src/get_pirata_netcdf.sh
r48 r50 44 44 # wind 45 45 # 46 # Log file is written on :file:`${ TROPFLUX_LOG}/get_pirata_netcdf.log.{YYYYMMDDTHHMMSSZ}`46 # Log file is written on :file:`${PROJECT_LOG}/get_pirata_netcdf.log.{YYYYMMDDTHHMMSSZ}` 47 47 # 48 48 # .. graphviz:: … … 55 55 # pirata_ref [shape=diamond,fontname=Courier,label="ftp://ftp.pmel.noaa.gov/cdf/sites/daily/*_*_dy.cdf"]; 56 56 # 57 # file_pirata [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/*_*_dy.cdf"];57 # file_pirata [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/*_*_dy.cdf"]; 58 58 # 59 59 # get_pirata_netcdf [shape=box, … … 61 61 # color=blue, 62 62 # URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/get_pirata_netcdf.sh" 63 # label="${ TROPFLUX}/src/get_pirata_netcdf.sh"];63 # label="${PROJECT}/src/get_pirata_netcdf.sh"]; 64 64 # 65 65 # {pirata_ref} -> {get_pirata_netcdf} -> {file_pirata} … … 78 78 # $ tlogd.sh get_pirata_netcdf 79 79 # 80 # and of course on files in ${ TROPFLUX_ID}.80 # and of course on files in ${PROJECT_ID}. 81 81 # 82 82 # SEE ALSO … … 85 85 # :ref:`guide data PIRATA <data_in_pirata>` 86 86 # 87 # :ref:` tropflux_profile.sh`87 # :ref:`project_profile.sh` 88 88 # 89 89 # TODO … … 151 151 unset tool 152 152 # 153 # check for ${ TROPFLUX_LOG} definition154 if [ "${ TROPFLUX_LOG}" = "" ]155 then 156 echo "${command} : eee : \${ TROPFLUX_LOG} not defined"157 exit 1 158 fi 159 # 160 # check for ${ TROPFLUX_LOG} existence161 if [ ! -d ${ TROPFLUX_LOG} ]162 then 163 echo "${command} : eee : ${ TROPFLUX_LOG} not found"164 exit 1 165 fi 166 # 167 # check for permission access on TROPFLUX_LOG168 if [ ! -x ${ TROPFLUX_LOG} ]169 then 170 echo "${command} : eee : ${ TROPFLUX_LOG} not reachable"171 exit 1 172 fi 173 # 174 # check for write permission on TROPFLUX_LOG175 if [ ! -w ${ TROPFLUX_LOG} ]176 then 177 echo "${command} : eee : ${ TROPFLUX_LOG} not writable"178 exit 1 179 fi 180 # 181 log=${ TROPFLUX_LOG}/$(basename ${0} .sh).log.${log_date}153 # check for ${PROJECT_LOG} definition 154 if [ "${PROJECT_LOG}" = "" ] 155 then 156 echo "${command} : eee : \${PROJECT_LOG} not defined" 157 exit 1 158 fi 159 # 160 # check for ${PROJECT_LOG} existence 161 if [ ! -d ${PROJECT_LOG} ] 162 then 163 echo "${command} : eee : ${PROJECT_LOG} not found" 164 exit 1 165 fi 166 # 167 # check for permission access on PROJECT_LOG 168 if [ ! -x ${PROJECT_LOG} ] 169 then 170 echo "${command} : eee : ${PROJECT_LOG} not reachable" 171 exit 1 172 fi 173 # 174 # check for write permission on PROJECT_LOG 175 if [ ! -w ${PROJECT_LOG} ] 176 then 177 echo "${command} : eee : ${PROJECT_LOG} not writable" 178 exit 1 179 fi 180 # 181 log=${PROJECT_LOG}/$(basename ${0} .sh).log.${log_date} 182 182 echo "[Context]" 1>> ${log} 183 183 echo "command=$(basename ${0})" 1>>${log} … … 212 212 unset locref 213 213 # 214 # if file is not already in ${ TROPFLUX_ID}, get it214 # if file is not already in ${PROJECT_ID}, get it 215 215 for url in ${list_url} 216 216 do 217 file=${ TROPFLUX_ID}/$(basename ${url})217 file=${PROJECT_ID}/$(basename ${url}) 218 218 if [ ! -f ${file} ] 219 219 then 220 wget --tries=1 --no-verbose -P ${ TROPFLUX_ID} \220 wget --tries=1 --no-verbose -P ${PROJECT_ID} \ 221 221 --user=taopmelftp \ 222 222 --password=G10b@LCh@Ng3 \ -
trunk/src/get_rama_netcdf.sh
r48 r50 43 43 # wind 44 44 # 45 # Log file is written on :file:`${ TROPFLUX_LOG}/get_rama_netcdf.log.{YYYYMMDDTHHMMSSZ}`45 # Log file is written on :file:`${PROJECT_LOG}/get_rama_netcdf.log.{YYYYMMDDTHHMMSSZ}` 46 46 # 47 47 # .. graphviz:: … … 54 54 # rama_ref [shape=diamond,fontname=Courier,label="ftp://ftp.pmel.noaa.gov/cdf/sites/daily/*_*_dy.cdf"]; 55 55 # 56 # file_rama [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/*_*_dy.cdf"];56 # file_rama [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/*_*_dy.cdf"]; 57 57 # 58 58 # get_rama_netcdf [shape=box, … … 60 60 # color=blue, 61 61 # URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/get_rama_netcdf.sh" 62 # label="${ TROPFLUX}/src/get_rama_netcdf.sh"];62 # label="${PROJECT}/src/get_rama_netcdf.sh"]; 63 63 # 64 64 # {rama_ref} -> {get_rama_netcdf} -> {file_rama} … … 77 77 # $ tlogd.sh get_rama_netcdf 78 78 # 79 # and of course on files in ${ TROPFLUX_ID}.79 # and of course on files in ${PROJECT_ID}. 80 80 # 81 81 # SEE ALSO … … 84 84 # :ref:`guide data RAMA <data_in_rama>` 85 85 # 86 # :ref:` tropflux_profile.sh`86 # :ref:`project_profile.sh` 87 87 # 88 88 # TODO … … 159 159 unset tool 160 160 # 161 # check for ${ TROPFLUX_LOG} definition162 if [ "${ TROPFLUX_LOG}" = "" ]163 then 164 echo "${command} : eee : \${ TROPFLUX_LOG} not defined"165 exit 1 166 fi 167 # 168 # check for ${ TROPFLUX_LOG} existence169 if [ ! -d ${ TROPFLUX_LOG} ]170 then 171 echo "${command} : eee : ${ TROPFLUX_LOG} not found"172 exit 1 173 fi 174 # 175 # check for permission access on TROPFLUX_LOG176 if [ ! -x ${ TROPFLUX_LOG} ]177 then 178 echo "${command} : eee : ${ TROPFLUX_LOG} not reachable"179 exit 1 180 fi 181 # 182 # check for write permission on TROPFLUX_LOG183 if [ ! -w ${ TROPFLUX_LOG} ]184 then 185 echo "${command} : eee : ${ TROPFLUX_LOG} not writable"186 exit 1 187 fi 188 # 189 log=${ TROPFLUX_LOG}/$(basename ${0} .sh).log.${log_date}161 # check for ${PROJECT_LOG} definition 162 if [ "${PROJECT_LOG}" = "" ] 163 then 164 echo "${command} : eee : \${PROJECT_LOG} not defined" 165 exit 1 166 fi 167 # 168 # check for ${PROJECT_LOG} existence 169 if [ ! -d ${PROJECT_LOG} ] 170 then 171 echo "${command} : eee : ${PROJECT_LOG} not found" 172 exit 1 173 fi 174 # 175 # check for permission access on PROJECT_LOG 176 if [ ! -x ${PROJECT_LOG} ] 177 then 178 echo "${command} : eee : ${PROJECT_LOG} not reachable" 179 exit 1 180 fi 181 # 182 # check for write permission on PROJECT_LOG 183 if [ ! -w ${PROJECT_LOG} ] 184 then 185 echo "${command} : eee : ${PROJECT_LOG} not writable" 186 exit 1 187 fi 188 # 189 log=${PROJECT_LOG}/$(basename ${0} .sh).log.${log_date} 190 190 echo "[Context]" 1>> ${log} 191 191 echo "command=$(basename ${0})" 1>>${log} … … 227 227 unset locref 228 228 # 229 # if file is not already in ${ TROPFLUX_ID}, get it229 # if file is not already in ${PROJECT_ID}, get it 230 230 for url in ${list_url} 231 231 do 232 file=${ TROPFLUX_ID}/$(basename ${url})232 file=${PROJECT_ID}/$(basename ${url}) 233 233 if [ ! -f ${file} ] 234 234 then 235 wget --tries=1 --no-verbose -P ${ TROPFLUX_ID} \235 wget --tries=1 --no-verbose -P ${PROJECT_ID} \ 236 236 --user=taopmelftp \ 237 237 --password=G10b@LCh@Ng3 \ -
trunk/src/get_tao_netcdf.sh
r48 r50 43 43 # wind 44 44 # 45 # Log file is written on :file:`${ TROPFLUX_LOG}/get_tao_netcdf.log.{YYYYMMDDTHHMMSSZ}`45 # Log file is written on :file:`${PROJECT_LOG}/get_tao_netcdf.log.{YYYYMMDDTHHMMSSZ}` 46 46 # 47 47 # .. graphviz:: … … 54 54 # tao_ref [shape=diamond,fontname=Courier,label="ftp://ftp.pmel.noaa.gov/cdf/sites/daily/*_*_dy.cdf"]; 55 55 # 56 # file_tao [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/*_*_dy.cdf"];56 # file_tao [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/*_*_dy.cdf"]; 57 57 # 58 58 # get_tao_netcdf [shape=box, … … 60 60 # color=blue, 61 61 # URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/get_tao_netcdf.sh" 62 # label="${ TROPFLUX}/src/get_tao_netcdf.sh"];62 # label="${PROJECT}/src/get_tao_netcdf.sh"]; 63 63 # 64 64 # {tao_ref} -> {get_tao_netcdf} -> {file_tao} … … 77 77 # $ tlogd.sh get_tao_netcdf 78 78 # 79 # and of course on files in ${ TROPFLUX_ID}.79 # and of course on files in ${PROJECT_ID}. 80 80 # 81 81 # SEE ALSO … … 84 84 # :ref:`guide data TAO <data_in_tao>` 85 85 # 86 # :ref:` tropflux_profile.sh`86 # :ref:`project_profile.sh` 87 87 # 88 88 # TODO … … 150 150 unset tool 151 151 # 152 # check for ${ TROPFLUX_LOG} definition153 if [ "${ TROPFLUX_LOG}" = "" ]154 then 155 echo "${command} : eee : \${ TROPFLUX_LOG} not defined"156 exit 1 157 fi 158 # 159 # check for ${ TROPFLUX_LOG} existence160 if [ ! -d ${ TROPFLUX_LOG} ]161 then 162 echo "${command} : eee : ${ TROPFLUX_LOG} not found"163 exit 1 164 fi 165 # 166 # check for permission access on TROPFLUX_LOG167 if [ ! -x ${ TROPFLUX_LOG} ]168 then 169 echo "${command} : eee : ${ TROPFLUX_LOG} not reachable"170 exit 1 171 fi 172 # 173 # check for write permission on TROPFLUX_LOG174 if [ ! -w ${ TROPFLUX_LOG} ]175 then 176 echo "${command} : eee : ${ TROPFLUX_LOG} not writable"177 exit 1 178 fi 179 # 180 log=${ TROPFLUX_LOG}/$(basename ${0} .sh).log.${log_date}152 # check for ${PROJECT_LOG} definition 153 if [ "${PROJECT_LOG}" = "" ] 154 then 155 echo "${command} : eee : \${PROJECT_LOG} not defined" 156 exit 1 157 fi 158 # 159 # check for ${PROJECT_LOG} existence 160 if [ ! -d ${PROJECT_LOG} ] 161 then 162 echo "${command} : eee : ${PROJECT_LOG} not found" 163 exit 1 164 fi 165 # 166 # check for permission access on PROJECT_LOG 167 if [ ! -x ${PROJECT_LOG} ] 168 then 169 echo "${command} : eee : ${PROJECT_LOG} not reachable" 170 exit 1 171 fi 172 # 173 # check for write permission on PROJECT_LOG 174 if [ ! -w ${PROJECT_LOG} ] 175 then 176 echo "${command} : eee : ${PROJECT_LOG} not writable" 177 exit 1 178 fi 179 # 180 log=${PROJECT_LOG}/$(basename ${0} .sh).log.${log_date} 181 181 echo "[Context]" 1>> ${log} 182 182 echo "command=$(basename ${0})" 1>>${log} … … 218 218 unset locref 219 219 # 220 # if file is not already in ${ TROPFLUX_ID}, get it220 # if file is not already in ${PROJECT_ID}, get it 221 221 for url in ${list_url} 222 222 do 223 file=${ TROPFLUX_ID}/$(basename ${url})223 file=${PROJECT_ID}/$(basename ${url}) 224 224 if [ ! -f ${file} ] 225 225 then 226 wget --tries=1 --no-verbose -P ${ TROPFLUX_ID} \226 wget --tries=1 --no-verbose -P ${PROJECT_ID} \ 227 227 --user=taopmelftp \ 228 228 --password=G10b@LCh@Ng3 \ -
trunk/src/interp_erai_dewt_1989_2009.pro
r20 r50 15 15 ; ] 16 16 ; file_in [shape=ellipse,fontname=Courier,label="/Volumes/PRAVEEN/ERAI_global/20c3m_erai_d2_TROP_1989_2009.nc"]; 17 ; mask [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/mask_oaflux_30N30S.nc"];17 ; mask [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/mask_oaflux_30N30S.nc"]; 18 18 ; 19 19 ; file_out [shape=ellipse,fontname=Courier,label="/Volumes/PRAVEEN/TropFlux/input_uncor/erai_d2m_19890101_20091231_oafluxgrid.nc"]; … … 22 22 ; color=blue, 23 23 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/interp_erai_dewt_1989_2009.pro", 24 ; label="${ TROPFLUX}/src/interp_erai_dewt_1989_2009.pro"];24 ; label="${PROJECT}/src/interp_erai_dewt_1989_2009.pro"]; 25 25 ; 26 26 ; {file_in mask} -> {interp_erai_dewt_1989_2009} -> {file_out} … … 31 31 ; ======== 32 32 ; 33 ; :ref:` tropflux_profile.sh`33 ; :ref:`project_profile.sh` 34 34 ; 35 35 ; :func:`report <saxo:report>` … … 52 52 ; ==== 53 53 ; 54 ; hard coded directory - usage of ${ TROPFLUX_ID}54 ; hard coded directory - usage of ${PROJECT_ID} 55 55 ; 56 56 ; coding rules … … 84 84 pro interp_erai_dewt_1989_2009 85 85 @common 86 @cm_project 86 87 ; 87 88 ; check for input directory 88 89 ; 89 ; test if ${TROPFLUX_ID} defined 90 tropflux_id_env=GETENV('TROPFLUX_ID') 91 CASE tropflux_id_env OF 90 ; test if ${PROJECT_ID} defined 91 CASE project_id_env OF 92 92 '' : BEGIN 93 msg = 'eee : ${ TROPFLUX_ID} is not defined'93 msg = 'eee : ${PROJECT_ID} is not defined' 94 94 ras = report(msg) 95 95 STOP 96 96 END 97 97 ELSE: BEGIN 98 msg = 'iii : ${ TROPFLUX_ID} is ' + tropflux_id_env98 msg = 'iii : ${PROJECT_ID} is ' + project_id_env 99 99 ras = report(msg) 100 100 END 101 101 ENDCASE 102 102 ; 103 iodirin = isadirectory( tropflux_id_env)103 iodirin = isadirectory(project_id_env) 104 104 ; 105 ; existence and protection of ${ TROPFLUX_ID}105 ; existence and protection of ${PROJECT_ID} 106 106 IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 107 107 msg = 'eee : the directory' + iodirin + ' is not accessible.' -
trunk/src/interp_erai_lwr_1989_2009.pro
r20 r50 13 13 ; rankdir="LR", 14 14 ; ] 15 ; mask [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/mask_oaflux_30N30S.nc"];15 ; mask [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/mask_oaflux_30N30S.nc"]; 16 16 ; 17 17 ; file_in [shape=ellipse,fontname=Courier,label="/Volumes/PRAVEEN/ERAI_global/20c3m_erai_str_TROP_1989_2009.nc"]; … … 23 23 ; color=blue, 24 24 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/interp_erai_lwr_1989_2009.pro", 25 ; label="${ TROPFLUX}/src/interp_erai_lwr_1989_2009.pro"];25 ; label="${PROJECT}/src/interp_erai_lwr_1989_2009.pro"]; 26 26 ; 27 27 ; {mask file_in} -> {interp_erai_lwr_1989_2009} -> {ncfile} … … 32 32 ; ======== 33 33 ; 34 ; :ref:` tropflux_profile.sh`34 ; :ref:`project_profile.sh` 35 35 ; 36 36 ; :func:`report <saxo:report>` … … 53 53 ; ==== 54 54 ; 55 ; hard coded directory - usage of ${ TROPFLUX_ID}55 ; hard coded directory - usage of ${PROJECT_ID} 56 56 ; 57 57 ; coding rules … … 88 88 ; check for input directory 89 89 ; 90 ; test if ${TROPFLUX_ID} defined 91 tropflux_id_env=GETENV('TROPFLUX_ID') 92 CASE tropflux_id_env OF 90 ; test if ${PROJECT_ID} defined 91 CASE project_id_env OF 93 92 '' : BEGIN 94 msg = 'eee : ${ TROPFLUX_ID} is not defined'93 msg = 'eee : ${PROJECT_ID} is not defined' 95 94 ras = report(msg) 96 95 STOP 97 96 END 98 97 ELSE: BEGIN 99 msg = 'iii : ${ TROPFLUX_ID} is ' + tropflux_id_env98 msg = 'iii : ${PROJECT_ID} is ' + project_id_env 100 99 ras = report(msg) 101 100 END 102 101 ENDCASE 103 102 ; 104 iodirin = isadirectory( tropflux_id_env)103 iodirin = isadirectory(project_id_env) 105 104 ; 106 ; existence and protection of ${ TROPFLUX_ID}105 ; existence and protection of ${PROJECT_ID} 107 106 IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 108 107 msg = 'eee : the directory' + iodirin + ' is not accessible.' -
trunk/src/interp_erai_sst_1989_2009.pro
r20 r50 15 15 ; file_in [shape=ellipse,fontname=Courier,label="/Volumes/PRAVEEN/ERAI_global/20c3m_erai_sstk_TROP_1989_2009.nc"]; 16 16 ; 17 ; mask [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/mask_oaflux_30N30S.nc"];17 ; mask [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/mask_oaflux_30N30S.nc"]; 18 18 ; 19 19 ; ncfile [shape=ellipse,fontname=Courier,label="/Volumes/PRAVEEN/TropFlux/input_uncor/erai_sst_19890101_20091231_oafluxgrid.nc"]; … … 23 23 ; color=blue, 24 24 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/interp_erai_sst_1989_2009.pro", 25 ; label="${ TROPFLUX}/src/interp_erai_sst_1989_2009.pro"];25 ; label="${PROJECT}/src/interp_erai_sst_1989_2009.pro"]; 26 26 ; 27 27 ; {file_in mask} -> {interp_erai_sst_1989_2009} -> {ncfile} … … 31 31 ; ======== 32 32 ; 33 ; :ref:` tropflux_profile.sh`33 ; :ref:`project_profile.sh` 34 34 ; 35 35 ; :func:`report <saxo:report>` … … 52 52 ; ==== 53 53 ; 54 ; hard coded directory - usage of ${ TROPFLUX_ID}54 ; hard coded directory - usage of ${PROJECT_ID} 55 55 ; 56 56 ; coding rules … … 85 85 pro interp_erai_sst_1989_2009 86 86 @common 87 @cm_project 87 88 ; 88 89 ; check for input directory 89 90 ; 90 ; test if ${TROPFLUX_ID} defined 91 tropflux_id_env=GETENV('TROPFLUX_ID') 92 CASE tropflux_id_env OF 91 ; test if ${PROJECT_ID} defined 92 CASE project_id_env OF 93 93 '' : BEGIN 94 msg = 'eee : ${ TROPFLUX_ID} is not defined'94 msg = 'eee : ${PROJECT_ID} is not defined' 95 95 ras = report(msg) 96 96 STOP 97 97 END 98 98 ELSE: BEGIN 99 msg = 'iii : ${ TROPFLUX_ID} is ' + tropflux_id_env99 msg = 'iii : ${PROJECT_ID} is ' + project_id_env 100 100 ras = report(msg) 101 101 END 102 102 ENDCASE 103 103 ; 104 iodirin = isadirectory( tropflux_id_env)104 iodirin = isadirectory(project_id_env) 105 105 ; 106 ; existence and protection of ${ TROPFLUX_ID}106 ; existence and protection of ${PROJECT_ID} 107 107 IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 108 108 msg = 'eee : the directory' + iodirin + ' is not accessible.' -
trunk/src/interp_erai_t2m_1989_2009.pro
r40 r50 9 9 ; Interpolation of t2 from ERA-I grid to OAFLUX grid 10 10 ; 11 ; :file:`${ TROPFLUX_ID}/20c3m_erai_t2_TROP_1989_2009.nc` containing t2 from ERA-I have been produced11 ; :file:`${PROJECT_ID}/20c3m_erai_t2_TROP_1989_2009.nc` containing t2 from ERA-I have been produced 12 12 ; by :ref:`compute_erai_daily_region_2d.sh`. 13 13 ; 14 ; :file:`${ TROPFLUX_ID}/mask_oaflux_30N30S.nc` containing OAFLUX grid have been produced by :ref:`oaflux_mask_30N30S.pro`.14 ; :file:`${PROJECT_ID}/mask_oaflux_30N30S.nc` containing OAFLUX grid have been produced by :ref:`oaflux_mask_30N30S.pro`. 15 15 ; 16 16 ; Interpolated t2 is written in 17 ; :file:`${ TROPFLUX_OD}/erai_t2m_19890101_20091231_oafluxgrid.nc` if this file not already exists.18 ; 19 ; This output file :file:`${ TROPFLUX_OD}/erai_t2m_19890101_20091231_oafluxgrid.nc` must be processed after by :ref:`t2m_correction_ncdf.pro`.17 ; :file:`${PROJECT_OD}/erai_t2m_19890101_20091231_oafluxgrid.nc` if this file not already exists. 18 ; 19 ; This output file :file:`${PROJECT_OD}/erai_t2m_19890101_20091231_oafluxgrid.nc` must be processed after by :ref:`t2m_correction_ncdf.pro`. 20 20 ; 21 21 ; … … 26 26 ; rankdir="TB", 27 27 ; ] 28 ; file_in [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/20c3m_erai_t2_TROP_1989_2009.nc"];29 ; mask [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/mask_oaflux_30N30S.nc"];30 ; 31 ; ncfile [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/erai_t2m_19890101_20091231_oafluxgrid.nc"];28 ; file_in [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/20c3m_erai_t2_TROP_1989_2009.nc"]; 29 ; mask [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/mask_oaflux_30N30S.nc"]; 30 ; 31 ; ncfile [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/erai_t2m_19890101_20091231_oafluxgrid.nc"]; 32 32 ; 33 33 ; interp_erai_t2m_1989_2009 [shape=box, … … 35 35 ; color=blue, 36 36 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/interp_erai_t2m_1989_2009.pro"", 37 ; label="${ TROPFLUX}/src/interp_erai_t2m_1989_2009.pro"];37 ; label="${PROJECT}/src/interp_erai_t2m_1989_2009.pro"]; 38 38 ; 39 39 ; {file_in mask} -> {interp_erai_t2m_1989_2009} -> {ncfile} … … 47 47 ; :ref:`interpolate_data` 48 48 ; 49 ; :ref:` tropflux_profile.sh`49 ; :ref:`project_profile.sh` 50 50 ; 51 51 ; :ref:`compute_erai_daily_region_2d.sh` … … 71 71 ; :: 72 72 ; 73 ; IDL> @tropflux_init74 73 ; IDL> .compile file_interp 75 74 ; IDL> interp_erai_t2m_1989_2009 … … 166 165 @cm_4mesh 167 166 @cm_4data 168 @cm_ tropflux167 @cm_project 169 168 ; 170 169 ; check for input directory 171 170 ; 172 ; test if ${ TROPFLUX_ID} defined173 CASE tropflux_id_env OF171 ; test if ${PROJECT_ID} defined 172 CASE project_id_env OF 174 173 '' : BEGIN 175 msg = 'eee : ${ TROPFLUX_ID} is not defined'174 msg = 'eee : ${PROJECT_ID} is not defined' 176 175 ras = report(msg) 177 176 STOP 178 177 END 179 178 ELSE: BEGIN 180 msg = 'iii : ${ TROPFLUX_ID} is ' + tropflux_id_env179 msg = 'iii : ${PROJECT_ID} is ' + project_id_env 181 180 ras = report(msg) 182 181 END 183 182 ENDCASE 184 183 ; 185 iodirin = isadirectory( tropflux_id_env)186 ; 187 ; existence and protection of ${ TROPFLUX_ID}184 iodirin = isadirectory(project_id_env) 185 ; 186 ; existence and protection of ${PROJECT_ID} 188 187 IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 189 188 msg = 'eee : the directory' + iodirin + ' is not accessible.' … … 214 213 ENDIF 215 214 ; 216 ; test if ${ TROPFLUX_OD} defined217 CASE tropflux_od_env OF215 ; test if ${PROJECT_OD} defined 216 CASE project_od_env OF 218 217 '' : BEGIN 219 msg = 'eee : ${ TROPFLUX_OD} is not defined'218 msg = 'eee : ${PROJECT_OD} is not defined' 220 219 ras = report(msg) 221 220 STOP 222 221 END 223 222 ELSE: BEGIN 224 msg = 'iii : ${ TROPFLUX_OD} is ' + tropflux_od_env223 msg = 'iii : ${PROJECT_OD} is ' + project_od_env 225 224 ras = report(msg) 226 225 END … … 228 227 ; 229 228 ; check if output data will be possible 230 iodirout = isadirectory( tropflux_od_env)229 iodirout = isadirectory(project_od_env) 231 230 ; 232 231 ; existence and protection -
trunk/src/interp_erai_ws_1989_2009.pro
r20 r50 16 16 ; file_v10 [shape=ellipse,fontname=Courier,label="/Volumes/PRAVEEN/ERAI_global/20c3m_erai_v10_TROP_1989_2009.nc"]; 17 17 ; 18 ; mask [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/mask_oaflux_30N30S.nc"];18 ; mask [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/mask_oaflux_30N30S.nc"]; 19 19 ; 20 20 ; ncfile [shape=ellipse,fontname=Courier,label="/Volumes/PRAVEEN/TropFlux/input_uncor/erai_ws_19890101_20091231_oafluxgrid.nc"]; … … 24 24 ; color=blue, 25 25 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/interp_erai_ws_1989_2009.pro", 26 ; label="${ TROPFLUX}/src/interp_erai_ws_1989_2009.pro"];26 ; label="${PROJECT}/src/interp_erai_ws_1989_2009.pro"]; 27 27 ; 28 28 ; {file_u10 file_v10 mask} -> {interp_erai_ws_1989_2009} -> {ncfile} … … 33 33 ; ======== 34 34 ; 35 ; :ref:` tropflux_profile.sh`35 ; :ref:`project_profile.sh` 36 36 ; 37 37 ; :func:`report <saxo:report>` … … 55 55 ; ==== 56 56 ; 57 ; hard coded directory - usage of ${ TROPFLUX_ID}57 ; hard coded directory - usage of ${PROJECT_ID} 58 58 ; 59 59 ; coding rules … … 87 87 pro interp_erai_ws_1989_2009 88 88 @common 89 @cm_project 89 90 ; 90 91 ; check for input directory 91 92 ; 92 ; test if ${TROPFLUX_ID} defined 93 tropflux_id_env=GETENV('TROPFLUX_ID') 94 CASE tropflux_id_env OF 93 ; test if ${PROJECT_ID} defined 94 CASE project_id_env OF 95 95 '' : BEGIN 96 msg = 'eee : ${ TROPFLUX_ID} is not defined'96 msg = 'eee : ${PROJECT_ID} is not defined' 97 97 ras = report(msg) 98 98 STOP 99 99 END 100 100 ELSE: BEGIN 101 msg = 'iii : ${ TROPFLUX_ID} is ' + tropflux_id_env101 msg = 'iii : ${PROJECT_ID} is ' + project_id_env 102 102 ras = report(msg) 103 103 END 104 104 ENDCASE 105 105 ; 106 iodirin = isadirectory( tropflux_id_env)107 ; 108 ; existence and protection of ${ TROPFLUX_ID}106 iodirin = isadirectory(project_id_env) 107 ; 108 ; existence and protection of ${PROJECT_ID} 109 109 IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 110 110 msg = 'eee : the directory' + iodirin + ' is not accessible.' -
trunk/src/interp_olr_30n30s_1989_2009.pro
r20 r50 15 15 ; file_in [shape=ellipse,fontname=Courier,label="/Users/pkb/data/heat_budget/NOAA_OLR/new/olr.day.mean_new.nc"]; 16 16 ; 17 ; mask [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/mask_oaflux_30N30S.nc"];17 ; mask [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/mask_oaflux_30N30S.nc"]; 18 18 ; 19 19 ; ncfile [shape=ellipse,fontname=Courier,label="/Users/pkb/data/heat_budget/NOAA_OLR/newolr_oafluxgrid_30n30s_19890101_20091231.nc"]; … … 23 23 ; color=blue, 24 24 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/interp_olr_30n30s_1989_2009.pro", 25 ; label="${ TROPFLUX}/src/interp_olr_30n30s_1989_2009.pro"];25 ; label="${PROJECT}/src/interp_olr_30n30s_1989_2009.pro"]; 26 26 ; 27 27 ; {file_in mask} -> {interp_olr_30n30s_1989_2009} -> {ncfile} … … 32 32 ; ======== 33 33 ; 34 ; :ref:` tropflux_profile.sh`34 ; :ref:`project_profile.sh` 35 35 ; 36 36 ; :func:`report <saxo:report>` … … 53 53 ; ==== 54 54 ; 55 ; hard coded directory - usage of ${ TROPFLUX_ID}55 ; hard coded directory - usage of ${PROJECT_ID} 56 56 ; 57 57 ; coding rules … … 88 88 ; check for input directory 89 89 ; 90 ; test if ${TROPFLUX_ID} defined 91 tropflux_id_env=GETENV('TROPFLUX_ID') 92 CASE tropflux_id_env OF 90 ; test if ${PROJECT_ID} defined 91 CASE project_id_env OF 93 92 '' : BEGIN 94 msg = 'eee : ${ TROPFLUX_ID} is not defined'93 msg = 'eee : ${PROJECT_ID} is not defined' 95 94 ras = report(msg) 96 95 STOP 97 96 END 98 97 ELSE: BEGIN 99 msg = 'iii : ${ TROPFLUX_ID} is ' + tropflux_id_env98 msg = 'iii : ${PROJECT_ID} is ' + project_id_env 100 99 ras = report(msg) 101 100 END 102 101 ENDCASE 103 102 ; 104 iodirin = isadirectory( tropflux_id_env)103 iodirin = isadirectory(project_id_env) 105 104 ; 106 ; existence and protection of ${ TROPFLUX_ID}105 ; existence and protection of ${PROJECT_ID} 107 106 IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 108 107 msg = 'eee : the directory' + iodirin + ' is not accessible.' -
trunk/src/lwr_correction_ncdf.pro
r20 r50 21 21 ; color=blue, 22 22 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/lwr_correction_ncdf.pro", 23 ; label="${ TROPFLUX}/src/lwr_correction_ncdf.pro"];23 ; label="${PROJECT}/src/lwr_correction_ncdf.pro"]; 24 24 ; 25 25 ; {file_in} -> {lwr_correction_ncdf} -> {ncfile} … … 48 48 ; ==== 49 49 ; 50 ; hard coded directory - usage of ${ TROPFLUX_ID}50 ; hard coded directory - usage of ${PROJECT_ID} 51 51 ; 52 52 ; coding rules -
trunk/src/oaflux_mask_30n30s.pro
r40 r50 22 22 ; rankdir="LR", 23 23 ; ] 24 ; file_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lh_oaflux_2004.nc"];25 ; mask [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/mask_oaflux_30N30S.nc"];24 ; file_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lh_oaflux_2004.nc"]; 25 ; mask [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/mask_oaflux_30N30S.nc"]; 26 26 ; 27 27 ; oaflux_mask_30n30s [shape=box, … … 29 29 ; color=blue, 30 30 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/oaflux_mask_30n30s.pro", 31 ; label="${ TROPFLUX}/src/oaflux_mask_30n30s.pro"];31 ; label="${PROJECT}/src/oaflux_mask_30n30s.pro"]; 32 32 ; 33 33 ; {file_oaflux} -> {oaflux_mask_30n30s} -> {mask} … … 42 42 ; :ref:`guide data OAFLUX <data_in_oaflux>` 43 43 ; 44 ; :ref:` tropflux_profile.sh`45 ; :ref:` tropflux_init.pro`46 ; :ref:`cm_ tropflux.pro`44 ; :ref:`project_profile.sh` 45 ; :ref:`project_init.pro` 46 ; :ref:`cm_project.pro` 47 47 ; 48 48 ; :ref:`get_oaflux.sh` … … 68 68 ; :: 69 69 ; 70 ; IDL> @tropflux_init71 70 ; IDL> oaflux_mask_30n30s 72 71 ; … … 99 98 ; - fplod 20110411T140133Z aedon.locean-ipsl.upmc.fr (Darwin) 100 99 ; 101 ; * usage of tropflux_init and cm_ tropflux100 ; * usage of tropflux_init and cm_project 102 101 ; * replace 30N30S by 30n30s 103 102 ; 104 103 ; - fplod 20101217T081915Z aedon.locean-ipsl.upmc.fr (Darwin) 105 104 ; 106 ; * remove hard coded directory - usage of ${ TROPFLUX_ID} and ${TROPFLUX_OD}105 ; * remove hard coded directory - usage of ${PROJECT_ID} and ${PROJECT_OD} 107 106 ; * add IO test 108 107 ; … … 123 122 @cm_4mesh 124 123 @cm_4data 125 @cm_ tropflux124 @cm_project 126 125 127 126 ; check for input file … … 132 131 ; 133 132 ; check if this file exists 134 fullfilename_in = isafile( tropflux_id_env + filename_in, NEW=0, /MUST_EXIST)133 fullfilename_in = isafile(project_id_env + filename_in, NEW=0, /MUST_EXIST) 135 134 IF fullfilename_in[0] EQ '' THEN BEGIN 136 135 msg = 'eee : the file ' + fullfilename_in + ' was not found.' … … 140 139 ; 141 140 ; 142 fullfilename_out= tropflux_od_env+'mask_oaflux_30N30S.nc'141 fullfilename_out=project_od_env+'mask_oaflux_30N30S.nc' 143 142 ; in order to avoid unexpected overwritten 144 143 IF (FILE_TEST(fullfilename_out) EQ 1) THEN BEGIN -
trunk/src/paper01/fig1/fig1_no_obs_map.pro
r47 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; mask [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/mask_oaflux_30N30S.nc"];18 ; 19 ; lhf_no_obs [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_no_obs.txt"];20 ; 21 ; sw_no_obs [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/sw_no_obs.txt"];22 ; 23 ; lw_no_obs [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lw_no_obs.txt"];24 ; 25 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/fig1_no_obs_map.ps"];17 ; mask [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/mask_oaflux_30N30S.nc"]; 18 ; 19 ; lhf_no_obs [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_no_obs.txt"]; 20 ; 21 ; sw_no_obs [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/sw_no_obs.txt"]; 22 ; 23 ; lw_no_obs [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lw_no_obs.txt"]; 24 ; 25 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/fig1_no_obs_map.ps"]; 26 26 ; 27 27 ; fig1_no_obs_map [shape=box, … … 39 39 ; :ref:`guide data OAFLUX <data_in_oaflux>` 40 40 ; 41 ; :ref:` tropflux_profile.sh`42 ; :ref:` tropflux_init.pro`41 ; :ref:`project_profile.sh` 42 ; :ref:`project_init.pro` 43 43 ; 44 44 ; :func:`x_site_location` … … 52 52 ; :: 53 53 ; 54 ; IDL> @ tropflux_init54 ; IDL> @project_init 55 55 ; IDL> fig1_no_obs_map 56 56 ; … … 94 94 pro fig1_no_obs_map 95 95 ; 96 @cm_ tropflux96 @cm_project 97 97 @cm_general 98 98 ; … … 109 109 lct=65 110 110 111 file= tropflux_id_env + 'mask_oaflux_30N30S.nc'111 file=project_id_env + 'mask_oaflux_30N30S.nc' 112 112 initncdf, file 113 113 domdef, 30,390,-30,30 114 114 msk=ncdf_lec(file,var='msk') 115 115 116 fi= tropflux_id_env + 'lhf_no_obs.txt'116 fi=project_id_env + 'lhf_no_obs.txt' 117 117 res=read_ascii(fi,data_start=1) 118 118 ff=res.field1 … … 149 149 endfor 150 150 151 fi= tropflux_id_env + 'sw_no_obs.txt'151 fi=project_id_env + 'sw_no_obs.txt' 152 152 res=read_ascii(fi,data_start=1) 153 153 ff=res.field1 … … 183 183 endfor 184 184 185 fi= tropflux_id_env + 'lw_no_obs.txt'185 fi=project_id_env + 'lw_no_obs.txt' 186 186 res=read_ascii(fi,data_start=1) 187 187 ff=res.field1 … … 230 230 closeps 231 231 232 fig= tropflux_od_env + 'fig1_no_obs_map.ps'232 fig=project_od_env + 'fig1_no_obs_map.ps' 233 233 spawn, 'mv '+psdir+'idl.ps '+fig 234 234 spawn, 'gv '+fig -
trunk/src/paper01/fig10/fig10_swr_correction.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; swr_isccp [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_isccp_correction.txt"];17 ; swr_isccp [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_isccp_correction.txt"]; 18 18 ; 19 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/fig10_swr_correction.ps"];19 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/fig10_swr_correction.ps"]; 20 20 ; 21 21 ; fig10_swr_correction [shape=box, … … 31 31 ; ======== 32 32 ; 33 ; :ref:` tropflux_profile.sh`34 ; :ref:` tropflux_init.pro`35 ; :ref:`cm_ tropflux.pro`33 ; :ref:`project_profile.sh` 34 ; :ref:`project_init.pro` 35 ; :ref:`cm_project.pro` 36 36 ; 37 37 ; :ref:`significance_test_99.pro` … … 42 42 ; :: 43 43 ; 44 ; IDL> @ tropflux_init44 ; IDL> @project_init 45 45 ; IDL> fig10_swr_correction 46 46 ; … … 82 82 pro fig10_swr_correction 83 83 @cm_general 84 @cm_ tropflux84 @cm_project 85 85 reinitplt, /z,/invert 86 86 key_portrait = 1 … … 89 89 close,/all 90 90 91 fi= tropflux_id_env+'swr_isccp_correction.txt'91 fi=project_id_env+'swr_isccp_correction.txt' 92 92 res=read_ascii(fi,data_start=0) 93 93 ff=res.field1 … … 109 109 significance_test_99,mean,bias 110 110 111 fi= tropflux_id_env+'swr_isccp_correction.txt'111 fi=project_id_env+'swr_isccp_correction.txt' 112 112 res=read_ascii(fi,data_start=0) 113 113 ff=res.field1 … … 130 130 closeps 131 131 132 fig= tropflux_od_env+'fig10_swr_correction.ps'132 fig=project_od_env+'fig10_swr_correction.ps' 133 133 spawn, 'mv '+psdir+'idl.ps '+fig 134 134 spawn, 'gv '+fig -
trunk/src/paper01/fig11/swr_isccp_tropflux_correlation_fig10.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; sst [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_sst_19890101_20091231.nc"];17 ; sst [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_sst_19890101_20091231.nc"]; 18 18 ; 19 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/correlation_rmsd_olra_swra_smooth.ps"];19 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/correlation_rmsd_olra_swra_smooth.ps"]; 20 20 ; 21 21 ; swr_isccp_tropflux_correlation_fig10 [shape=box, … … 31 31 ; ======== 32 32 ; 33 ; :ref:` tropflux_profile.sh`34 ; :ref:` tropflux_init.pro`35 ; :ref:`cm_ tropflux.pro`33 ; :ref:`project_profile.sh` 34 ; :ref:`project_init.pro` 35 ; :ref:`cm_project.pro` 36 36 ; 37 37 ; EXAMPLES … … 40 40 ; :: 41 41 ; 42 ; IDL> @tropflux_init43 42 ; IDL> swr_isccp_tropflux_correlation_fig10 44 43 ; … … 61 60 ; $Id$ 62 61 ; 62 ; - fplod 20110422T103945Z aedon.locean-ipsl.upmc.fr (Darwin) 63 ; 64 ; * typo 65 ; 63 66 ; - fplod 20110420T110411Z aedon.locean-ipsl.upmc.fr (Darwin) 64 67 ; … … 73 76 pro swr_isccp_tropflux_correlation_fig10 74 77 @cm_general 75 @cm_ tropflux78 @cm_project 76 79 reinitplt, /z,/invert 77 80 key_portrait = 1 … … 82 85 restore, "/Users/pkb/work/MY_SAXO/correlation_isccp_olr.idl" 83 86 84 file= tropflux_id_env+'TropFlux_sst_19890101_20091231.nc"87 file=project_id_env+'TropFlux_sst_19890101_20091231.nc' 85 88 initncdf, file 86 89 sst=read_ncdf("sst", 20000101, 20091231, file=file,/nostr) … … 96 99 97 100 closeps 98 fig= tropflux_od_env+'correlation_rmsd_olra_swra_smooth.ps'101 fig=project_od_env+'correlation_rmsd_olra_swra_smooth.ps' 99 102 spawn, 'mv '+psdir+'idl.ps '+fig 100 103 spawn, 'gv '+fig -
trunk/src/paper01/fig11/swr_isccp_tropflux_new_v1.pro
r46 r50 16 16 ; rankdir="LR", 17 17 ; ] 18 ; swr [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_oafluxgrid_1985_2007.nc"];19 ; sw [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/sw_reconstred_1989_2009.nc"];20 ; olr [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/olr_oafluxgrid_30n30s.nc"];21 ; sst [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_sst_19890101_20091231_v20.nc"];18 ; swr [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_oafluxgrid_1985_2007.nc"]; 19 ; sw [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/sw_reconstred_1989_2009.nc"]; 20 ; olr [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/olr_oafluxgrid_30n30s.nc"]; 21 ; sst [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_sst_19890101_20091231_v20.nc"]; 22 22 ; 23 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/correlation_rmsd_olra_swra_smooth.ps"];23 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/correlation_rmsd_olra_swra_smooth.ps"]; 24 24 ; 25 25 ; swr_isccp_tropflux_new_v1 [shape=box, … … 35 35 ; ======== 36 36 ; 37 ; :ref:` tropflux_profile.sh`38 ; :ref:` tropflux_init.pro`39 ; :ref:`cm_ tropflux.pro`37 ; :ref:`project_profile.sh` 38 ; :ref:`project_init.pro` 39 ; :ref:`cm_project.pro` 40 40 ; 41 41 ; EXAMPLES … … 44 44 ; :: 45 45 ; 46 ; IDL> @tropflux_init47 46 ; IDL> swr_isccp_tropflux_new_v1 48 47 ; … … 50 49 ; ==== 51 50 ; 52 ; make it work on cratos : mis ing data51 ; make it work on cratos : missing data swr_oafluxgrid_1985_2007.nc, etc. 53 52 ; 54 53 ; coding rules … … 77 76 pro swr_isccp_tropflux_new_v1 78 77 @cm_general 79 @cm_ tropflux78 @cm_project 80 79 reinitplt, /z,/invert 81 80 key_portrait = 1 … … 84 83 st=19890101 & en=20071231 85 84 86 file= tropflux_id_env+'swr_oafluxgrid_1985_2007.nc'85 file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 87 86 initncdf, file 88 87 sw_isccp=read_ncdf("swr", st, en, file=file,/nostr) 89 88 90 file= tropflux_id_env+'sw_reconstred_1989_2009.nc'89 file=project_id_env+'sw_reconstred_1989_2009.nc' 91 90 initncdf, file 92 91 sw_trop=read_ncdf("sw", st, en+1, file=file,/nostr) 93 92 94 file= tropflux_id_env+'olr_oafluxgrid_30n30s.nc'93 file=project_id_env+'olr_oafluxgrid_30n30s.nc' 95 94 initncdf, file 96 95 olr=read_ncdf("olr", st, en, file=file,/nostr) … … 175 174 subt='',title='a) Correlation (OLRA, SWRA)',xminor=1,yminor=1 176 175 177 file= tropflux_id_env+'TropFlux_sst_19890101_20091231_v20.nc"176 file=project_id_env+'TropFlux_sst_19890101_20091231_v20.nc" 178 177 initncdf, file 179 178 sst=read_ncdf("sst", 19890101, 20091231, file=file,/nostr) … … 192 191 193 192 closeps 194 fig= tropflux_od_env+'correlation_rmsd_olra_swra_smooth.ps'193 fig=project_od_env+'correlation_rmsd_olra_swra_smooth.ps' 195 194 spawn, 'mv '+psdir+'idl.ps '+fig 196 195 spawn, 'gv '+fig -
trunk/src/paper01/fig12/swr_statistics_map_2000_2009_v50.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; swr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_2000_2009_erai_v50.txt"];18 ; swr_trop [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_2000_2009_trop_v50.txt"];19 ; swr_oaflx [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_2000_2009_oaflx_v50.txt"];20 ; swr_olr [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_2000_2009_olr_v50.txt"];21 ; mask [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/longwave_IO_mask.nc"];22 ; 23 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/swr_statistics_map_2000_2009_v50.ps"];17 ; swr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_2000_2009_erai_v50.txt"]; 18 ; swr_trop [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_2000_2009_trop_v50.txt"]; 19 ; swr_oaflx [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_2000_2009_oaflx_v50.txt"]; 20 ; swr_olr [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_2000_2009_olr_v50.txt"]; 21 ; mask [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/longwave_IO_mask.nc"]; 22 ; 23 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/swr_statistics_map_2000_2009_v50.ps"]; 24 24 ; 25 25 ; swr_statistics_map_2000_2009_v50 [shape=box, … … 35 35 ; ======== 36 36 ; 37 ; :ref:` tropflux_profile.sh`38 ; :ref:` tropflux_init.pro`39 ; :ref:`cm_ tropflux.pro`37 ; :ref:`project_profile.sh` 38 ; :ref:`project_init.pro` 39 ; :ref:`cm_project.pro` 40 40 ; 41 41 ; EXAMPLES … … 44 44 ; :: 45 45 ; 46 ; IDL> @tropflux_init47 46 ; IDL> swr_statistics_map_2000_2009_v50 48 47 ; … … 78 77 pro swr_statistics_map_2000_2009_v50 79 78 @cm_general 80 @cm_ tropflux79 @cm_project 81 80 reinitplt, /z,/invert 82 81 key_portrait = 1 … … 89 88 rmsd_mi=10 & rmsd_ma=30 & rmsd_int=1.25 90 89 cor_mi=0.5 & cor_ma=1. & cor_int=0.02 91 fi_swr_erai= tropflux_id_env+'swr_2000_2009_erai_v50.txt'92 fi_swr_trop= tropflux_id_env+'swr_2000_2009_trop_v50.txt'93 fi_swr_oaflx= tropflux_id_env+'swr_2000_2009_oaflx_v50.txt'94 fi_swr_olr= tropflux_id_env+'swr_2000_2009_olr_v50.txt'90 fi_swr_erai=project_id_env+'swr_2000_2009_erai_v50.txt' 91 fi_swr_trop=project_id_env+'swr_2000_2009_trop_v50.txt' 92 fi_swr_oaflx=project_id_env+'swr_2000_2009_oaflx_v50.txt' 93 fi_swr_olr=project_id_env+'swr_2000_2009_olr_v50.txt' 95 94 96 95 res=read_ascii(fi_swr_erai,data_start=1) … … 137 136 138 137 ;ind=where(std_olr ge std_ma) & std_olr(ind)=std_ma-0.01 139 file= tropflux_id_env+'longwave_IO_mask.nc'138 file=project_id_env+'longwave_IO_mask.nc' 140 139 initncdf, file 141 140 domdef, 30,390,-30,30 … … 560 559 endfor 561 560 closeps 562 fig= tropflux_od_env+'swr_statistics_map_2000_2009_v50.ps'561 fig=project_od_env+'swr_statistics_map_2000_2009_v50.ps' 563 562 spawn, 'mv '+psdir+'idl.ps '+fig 564 563 spawn, 'gv '+fig -
trunk/src/paper01/fig13/net_flux_validation_scatter_2000_2007.pro
r46 r50 8 8 ; DESCRIPTION 9 9 ; =========== 10 ; 11 ; This program will create the following text files with statistics 12 ; of respective variables 10 13 ; 11 14 ; .. graphviz:: … … 15 18 ; rankdir="LR", 16 19 ; ] 17 ; tropflux_general [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_19890101_20091231.nc"];18 ; tropflux_dt_swr [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_swr_19890101_20071231_DT_v50.nc"];19 ; tropflux_nrt_swr [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"];20 ; ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/NCEP2_flux_19890101_20090729.nc"];21 ; erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc"];22 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_oafluxgrid_1985_2008.nc"];23 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_oafluxgrid_1985_2008.nc"];24 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lwr_oafluxgrid_1985_2007.nc"];25 ; ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/fluxe_ncep1_19890101_20091231.nc"];26 ; net_nrt_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/net_2000_2007_erai_v50.txt"];27 ; net_nrt_trop [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/net_2000_2007_trop_v50.txt"];28 ; net_nrt_ncep [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/net_2000_2007_ncep_v50.txt"];29 ; net_nrt_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/net_2000_2007_ncep1_v50.txt"];30 ; net_nrt_tropd [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/net_2000_2007_tropd_v50.txt"];31 ; 32 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/net_flux_validation_scatter_2000_2007.ps"];20 ; tropflux_general [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_19890101_20091231.nc"]; 21 ; tropflux_dt_swr [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_swr_19890101_20071231_DT_v50.nc"]; 22 ; tropflux_nrt_swr [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"]; 23 ; ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/NCEP2_flux_19890101_20090729.nc"]; 24 ; erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc"]; 25 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_oafluxgrid_1985_2008.nc"]; 26 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_oafluxgrid_1985_2008.nc"]; 27 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lwr_oafluxgrid_1985_2007.nc"]; 28 ; ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/fluxe_ncep1_19890101_20091231.nc"]; 29 ; net_nrt_erai [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/net_2000_2007_erai_v50.txt"]; 30 ; net_nrt_trop [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/net_2000_2007_trop_v50.txt"]; 31 ; net_nrt_ncep [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/net_2000_2007_ncep_v50.txt"]; 32 ; net_nrt_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/net_2000_2007_ncep1_v50.txt"]; 33 ; net_nrt_tropd [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/net_2000_2007_tropd_v50.txt"]; 34 ; 35 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/net_flux_validation_scatter_2000_2007.ps"]; 33 36 ; 34 37 ; net_flux_validation_scatter_2000_2007 [shape=box, … … 44 47 ; ======== 45 48 ; 46 ; :ref:` tropflux_profile.sh`47 ; :ref:` tropflux_init.pro`48 ; :ref:`cm_ tropflux.pro`49 ; :ref:`project_profile.sh` 50 ; :ref:`project_init.pro` 51 ; :ref:`cm_project.pro` 49 52 ; 50 53 ; :func:`x_site_location` … … 58 61 ; :: 59 62 ; 60 ; IDL> @tropflux_init61 63 ; IDL> date1=19890101L 62 64 ; IDL> date2=20091231L … … 66 68 ; ==== 67 69 ; 68 ; make it work on cratos : missing data 70 ; make it work on cratos : missing data TropFlux_swr_19890101_20071231_DT_v50.nc, etc. 69 71 ; 70 72 ; coding rules … … 94 96 pro net_flux_validation_scatter_2000_2007, date1, date2 95 97 @cm_general 96 @cm_ tropflux98 @cm_project 97 99 reinitplt, /z,/invert 98 100 key_portrait = 1 … … 118 120 ocean='net_flux' 119 121 nsmooth=1. 120 ;; This program will create the following text files with statistics of respective variables 121 file_trop=tropflux_id_env+'TropFlux_19890101_20091231.nc' 122 file_trop=project_id_env+'TropFlux_19890101_20091231.nc' 122 123 initncdf, file_trop 123 124 shf_trop=read_ncdf("shf", date1, date2, file=file_trop,/nostr) … … 125 126 lwr_trop=read_ncdf("lwr", date1, date2, file=file_trop,/nostr) 126 127 127 file_trop= tropflux_id_env+'TropFlux_swr_19890101_20071231_DT_v50.nc'128 file_trop=project_id_env+'TropFlux_swr_19890101_20071231_DT_v50.nc' 128 129 initncdf, file_trop 129 130 swr_dt=read_ncdf("swr", date1, date2, file=file_trop,/nostr) … … 131 132 help, trop 132 133 133 file_trop= tropflux_id_env+'TropFlux_swr_19890101_20091231_NRT_v50.nc'134 file_trop=project_id_env+'TropFlux_swr_19890101_20091231_NRT_v50.nc' 134 135 initncdf, file_trop 135 136 swr_nrt=read_ncdf("sw", date1-1, date2, file=file_trop,/nostr) … … 137 138 help, tropd 138 139 139 file_ncep= tropflux_id_env+'NCEP2_flux_19890101_20090729.nc'140 file_ncep=project_id_env+'NCEP2_flux_19890101_20090729.nc' 140 141 initncdf, file_ncep 141 142 shf=read_ncdf("shf", date1, date2, file=file_ncep,/nostr) … … 148 149 help, ncep 149 150 150 file_erai= tropflux_id_env+'erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc'151 file_erai=project_id_env+'erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc' 151 152 initncdf, file_erai 152 153 shf=read_ncdf("shf", date1, date2, file=file_erai,/nostr) … … 157 158 help, erai 158 159 159 file_oaf= tropflux_id_env+'shf_oafluxgrid_1985_2008.nc'160 file_oaf=project_id_env+'shf_oafluxgrid_1985_2008.nc' 160 161 initncdf, file_oaf 161 162 shf=read_ncdf("shf", date1, date2, file=file_oaf,/nostr) 162 file_oaf= tropflux_id_env+'lhf_oafluxgrid_1985_2008.nc'163 file_oaf=project_id_env+'lhf_oafluxgrid_1985_2008.nc' 163 164 initncdf, file_oaf 164 165 lhf=read_ncdf("lhf", date1, date2, file=file_oaf,/nostr) 165 file_oaf= tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc'166 file_oaf=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 166 167 initncdf, file_oaf 167 168 lwr=read_ncdf("lwr", date1, date2, file=file_oaf,/nostr) 168 file_oaf= tropflux_id_env+'swr_oafluxgrid_1985_2007.nc'169 file_oaf=project_id_env+'swr_oafluxgrid_1985_2007.nc' 169 170 initncdf, file_oaf 170 171 swr=read_ncdf("swr", date1, date2, file=file_oaf,/nostr) & swr_trop=swr … … 172 173 help, oafl 173 174 174 file= tropflux_id_env+'fluxe_ncep1_19890101_20091231.nc'175 file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 175 176 initncdf, file 176 177 lwr=read_ncdf("lwr", date1, date2, file=file,/nostr) … … 184 185 close,/all 185 186 186 fi_net_NRT_erai= tropflux_id_env+'net_2000_2007_erai_v50.txt'187 fi_net_NRT_erai=project_id_env+'net_2000_2007_erai_v50.txt' 187 188 openw,1,fi_net_NRT_erai 188 fi_net_NRT_trop= tropflux_id_env+'net_2000_2007_trop_v50.txt'189 fi_net_NRT_trop=project_id_env+'net_2000_2007_trop_v50.txt' 189 190 openw,2,fi_net_NRT_trop 190 fi_net_NRT_oaflx= tropflux_id_env+'net_2000_2007_oaflx_v50.txt'191 fi_net_NRT_oaflx=project_id_env+'net_2000_2007_oaflx_v50.txt' 191 192 openw,3,fi_net_NRT_oaflx 192 fi_net_NRT_ncep= tropflux_id_env+'net_2000_2007_ncep_v50.txt'193 fi_net_NRT_ncep=project_id_env+'net_2000_2007_ncep_v50.txt' 193 194 openw,4,fi_net_NRT_ncep 194 fi_net_NRT_ncep1= tropflux_id_env+'net_2000_2007_ncep1_v50.txt'195 fi_net_NRT_ncep1=project_id_env+'net_2000_2007_ncep1_v50.txt' 195 196 openw,5,fi_net_NRT_ncep1 196 fi_net_NRT_tropd= tropflux_id_env+'net_2000_2007_tropd_v50.txt'197 fi_net_NRT_tropd=project_id_env+'net_2000_2007_tropd_v50.txt' 197 198 openw,6,fi_net_NRT_tropd 198 199 … … 275 276 close,/all 276 277 277 fi_net_NRT_erai= tropflux_id_env+'net_2000_2007_erai_v50.txt'278 fi_net_NRT_erai=project_id_env+'net_2000_2007_erai_v50.txt' 278 279 res=read_ascii(fi_net_NRT_erai,data_start=1) 279 280 ff=res.field1 … … 307 308 308 309 309 fi_net_NRT_trop= tropflux_id_env+'net_2000_2007_trop_v50.txt'310 fi_net_NRT_trop=project_id_env+'net_2000_2007_trop_v50.txt' 310 311 res=read_ascii(fi_net_NRT_trop,data_start=1) 311 312 ff=res.field1 … … 339 340 340 341 341 fi_net_NRT_oaflx= tropflux_id_env+'net_2000_2007_oaflx_v50.txt'342 fi_net_NRT_oaflx=project_id_env+'net_2000_2007_oaflx_v50.txt' 342 343 res=read_ascii(fi_net_NRT_oaflx,data_start=1) 343 344 ff=res.field1 … … 372 373 373 374 374 fi_net_NRT_ncep= tropflux_id_env+'net_2000_2007_ncep_v50.txt'375 fi_net_NRT_ncep=project_id_env+'net_2000_2007_ncep_v50.txt' 375 376 res=read_ascii(fi_net_NRT_ncep,data_start=1) 376 377 ff=res.field1 … … 404 405 405 406 406 fi_net_NRT_ncep1= tropflux_id_env+'net_2000_2007_ncep1_v50.txt'407 fi_net_NRT_ncep1=project_id_env+'net_2000_2007_ncep1_v50.txt' 407 408 res=read_ascii(fi_net_NRT_ncep1,data_start=1) 408 409 ff=res.field1 … … 436 437 437 438 438 fi_net_NRT_tropd= tropflux_id_env+'net_2000_2007_tropd_v50.txt'439 fi_net_NRT_tropd=project_id_env+'net_2000_2007_tropd_v50.txt' 439 440 res=read_ascii(fi_net_NRT_tropd,data_start=1) 440 441 ff=res.field1 … … 469 470 closeps 470 471 471 fig= tropflux_od_env+'net_flux_validation_scatter_2000_2007.ps'472 fig=project_od_env+'net_flux_validation_scatter_2000_2007.ps' 472 473 spawn, 'mv '+psdir+'idl.ps '+fig 473 474 spawn, 'gv '+fig -
trunk/src/paper01/fig14/as_validation_net_1994_95_v10.pro
r47 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; met_data [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/met_data_as_expt_19*.txt"];18 ; swr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_swr_19910101_20091231_oafluxgrid.nc"];19 ; lwr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_lwr_19910101_20091231_oafluxgrid.nc"];20 ; lhf_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_lhf_19910101_20091231_oafluxgrid.nc"];21 ; tropflux_general [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_19890101_20091231.nc"];22 ; swr_tropflux_nrt [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"];23 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_oafluxgrid_1985_2007.nc"];24 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lwr_oafluxgrid_1985_2007.nc"];25 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_oafluxgrid_1985_2007.nc"];26 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_oafluxgrid_1985_2007.nc"];27 ; swr_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"];28 ; lwr_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/NCEP2_flux_19890101_20090729.nc"];29 ; lhf_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"];30 ; shf_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"];31 ; 32 ; ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ncep1_flux_19890101_20091231.nc"];33 ; 34 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/as_validation_net_1994_95_v10.ps"];17 ; met_data [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/met_data_as_expt_19*.txt"]; 18 ; swr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_swr_19910101_20091231_oafluxgrid.nc"]; 19 ; lwr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lwr_19910101_20091231_oafluxgrid.nc"]; 20 ; lhf_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lhf_19910101_20091231_oafluxgrid.nc"]; 21 ; tropflux_general [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_19890101_20091231.nc"]; 22 ; swr_tropflux_nrt [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"]; 23 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_oafluxgrid_1985_2007.nc"]; 24 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lwr_oafluxgrid_1985_2007.nc"]; 25 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_oafluxgrid_1985_2007.nc"]; 26 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_oafluxgrid_1985_2007.nc"]; 27 ; swr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"]; 28 ; lwr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/NCEP2_flux_19890101_20090729.nc"]; 29 ; lhf_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"]; 30 ; shf_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"]; 31 ; 32 ; ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ncep1_flux_19890101_20091231.nc"]; 33 ; 34 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/as_validation_net_1994_95_v10.ps"]; 35 35 ; 36 36 ; as_validation_net_1994_95_v10 [shape=box, … … 39 39 ; URL="http://forge.ipsl.jussieu.fr/tropflux/broswrer/trunk/src/paper01/fig14/as_validation_net_1994_95_v10.pro", 40 40 ; label="${TROPFLUX}/src/paper01/fig14/as_validation_net_1994_95_v10.pro"]; 41 ; 42 ; {met_data swr_erai lwr_erai lhf_erai tropflux_general swr_tropflux_nrt swr_oafluxgrid lwr_oafluxgrid lhf_oafluxgrid shf_oafluxgrid swr_ncep2 lwr_ncep2 lhf_ncep2 shf_ncep2 ncep1} -> {as_validation_net_1994_95_v10} -> {figure} 41 ; {met_data swr_erai lwr_erai lhf_erai tropflux_general swr_tropflux_nrt swr_oafluxgrid lwr_oafluxgrid lhf_oafluxgrid shf_oafluxgrid swr_ncep2 lwr_ncep2 lhf_ncep2 shf_ncep2 ncep1} -> {as_validation_net_1994_95_v10} -> {figure} 43 42 ; } 44 43 ; … … 46 45 ; ======== 47 46 ; 48 ; :ref:` tropflux_profile.sh`49 ; :ref:` tropflux_init.pro`50 ; :ref:`cm_ tropflux.pro`47 ; :ref:`project_profile.sh` 48 ; :ref:`project_init.pro` 49 ; :ref:`cm_project.pro` 51 50 ; 52 51 ; :ref:`statistics.pro` … … 57 56 ; :: 58 57 ; 59 ; IDL> @tropflux_init60 58 ; IDL> as_validation_net_1994_95_v10 61 59 ; … … 64 62 ; ==== 65 63 ; 66 ; make it work on cratos : missing data 64 ; make it work on cratos : missing data erai_swr_19910101_20091231_oafluxgrid.nc, etc 67 65 ; 68 66 ; coding rules … … 91 89 pro as_validation_net_1994_95_v10 92 90 @cm_general 93 @cm_ tropflux91 @cm_project 94 92 reinitplt, /z,/invert 95 93 key_portrait = 1 … … 101 99 date1=19941016 & date2=19951019 102 100 103 fi= tropflux_id_env+"met_data_as_expt_1994.txt"101 fi=project_id_env+"met_data_as_expt_1994.txt" 104 102 res=read_ascii(fi,data_start=1) 105 103 ff=res.field1 … … 110 108 net94=swr94+lwr94+lhf94+shf94 111 109 112 fi= tropflux_id_env+"met_data_as_expt_1995.txt"110 fi=project_id_env+"met_data_as_expt_1995.txt" 113 111 res=read_ascii(fi,data_start=1) 114 112 ff=res.field1 … … 128 126 help, net 129 127 ;; reading other data sets 130 file= tropflux_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc"128 file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 131 129 initncdf, file 132 130 swr=read_ncdf('swr',date1,date2,file=file,/nostr, box=asbox) & swr=reform(swr) 133 file= tropflux_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc'131 file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 134 132 initncdf, file 135 133 lwr=read_ncdf('lwr',date1-1,date2,file=file,/nostr, box=asbox) & lwr=reform(lwr) 136 file= tropflux_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc'134 file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 137 135 initncdf, file 138 136 shf=-1*read_ncdf('shf',date1,date2,file=file,/nostr, box=asbox) & shf=reform(shf) 139 file= tropflux_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc'137 file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 140 138 initncdf, file 141 139 lhf=-1*read_ncdf('lhf',date1,date2,file=file,/nostr, box=asbox) & lhf=reform(lhf) … … 148 146 swr=0. & lwr=0. & shf=0. & lhf=0. 149 147 150 file= tropflux_id_env+"TropFlux_19890101_20091231.nc"148 file=project_id_env+"TropFlux_19890101_20091231.nc" 151 149 initncdf, file 152 150 swr=read_ncdf('swr',date1,date2,file=file,/nostr, box=asbox) & swr=reform(swr) … … 157 155 help, trop 158 156 159 file= tropflux_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc"157 file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 160 158 initncdf, file 161 159 olr1=read_ncdf("sw", date1-1, date2, file=file,/nostr, box=asbox) ;; & olr1=grossemoyenne(olr1, "xy",/nan, box=asbox) & … … 169 167 help, trop, olr 170 168 171 file= tropflux_id_env+'swr_oafluxgrid_1985_2007.nc'169 file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 172 170 initncdf, file 173 171 swr=read_ncdf("swr", date1, date2, file=file,/nostr, box=asbox) & swr=reform(swr) 174 172 175 file= tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc'173 file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 176 174 initncdf, file 177 175 lwr=read_ncdf("lwr", date1, date2, file=file,/nostr, box=asbox) & lwr=-1*reform(lwr) 178 176 179 file= tropflux_id_env+'lhf_oafluxgrid_1985_2009.nc'177 file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 180 178 initncdf, file 181 179 lhf=read_ncdf("lhf", date1, date2, file=file,/nostr, box=asbox) & lhf=-1*reform(lhf) 182 180 183 file= tropflux_id_env+'shf_oafluxgrid_1985_2009.nc'181 file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 184 182 initncdf, file 185 183 shf=read_ncdf("shf", date1, date2, file=file,/nostr, box=asbox) & shf=-1*reform(shf) … … 191 189 swr=0. & lwr=0. & shf=0. & lhf=0. 192 190 193 fi= tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc'191 fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 194 192 initncdf, fi 195 193 swr=read_ncdf("swr", date1, date2, file=fi,/nostr, box=asbox) & swr=reform(swr) 196 194 197 fi= tropflux_id_env+"NCEP2_flux_19890101_20090729.nc"195 fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 198 196 initncdf, fi 199 197 lwr=read_ncdf("lwr", date1, date2, file=fi,/nostr, box=asbox) & lwr=grossemoyenne(lwr, "xy",/nan, box=asbox) & lwr=reform(lwr) … … 201 199 lwr=-1*lwr 202 200 203 fi= tropflux_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc'201 fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 204 202 initncdf, fi 205 203 lhf=read_ncdf("lhf", date1, date2, file=fi,/nostr, box=asbox) & lhf=-1*reform(lhf) 206 204 207 fi= tropflux_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc'205 fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 208 206 initncdf, fi 209 207 shf=read_ncdf("shf", date1, date2, file=fi,/nostr, box=asbox) & shf=-1*reform(shf) … … 216 214 swr=0. & lwr=0. & shf=0. & lhf=0. 217 215 218 file= tropflux_id_env+"ncep1_flux_19890101_20091231.nc"216 file=project_id_env+"ncep1_flux_19890101_20091231.nc" 219 217 initncdf, file 220 218 swr=read_ncdf("swr", date1, date2, file=file,/nostr, box=asbox) & swr=reform(swr) … … 293 291 294 292 closeps 295 fig= tropflux_od_env+'as_validation_net_1994_95_v10.ps'293 fig=project_od_env+'as_validation_net_1994_95_v10.ps' 296 294 spawn, 'mv '+psdir+'idl.ps '+fig 297 295 spawn, 'gv '+fig -
trunk/src/paper01/fig14/coare_validation_net_1992_93_all_v10.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; met_data [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/met_data_as_expt_199*_p*.txt"];18 ; swr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_swr_19910101_20091231_oafluxgrid.nc"];19 ; lwr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_lwr_19910101_20091231_oafluxgrid.nc"];20 ; lhf_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_lhf_19910101_20091231_oafluxgrid.nc"];21 ; shf_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_shf_19910101_20091231_oafluxgrid.nc"];22 ; tropflux_general [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_19890101_20091231.nc"];23 ; swr_tropflux_nrt [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"];24 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_oafluxgrid_1985_2007.nc"];25 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lwr_oafluxgrid_1985_2007.nc"];26 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_oafluxgrid_1985_2007.nc"];27 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_oafluxgrid_1985_2007.nc"];28 ; swr_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"];29 ; lwr_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/NCEP2_flux_19890101_20090729.nc"];30 ; lhf_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"];31 ; shf_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"];32 ; 33 ; ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ncep1_flux_19890101_20091231.nc"];34 ; 35 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/coare_validation_net_1992_93_all_v11.ps"];17 ; met_data [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/met_data_as_expt_199*_p*.txt"]; 18 ; swr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_swr_19910101_20091231_oafluxgrid.nc"]; 19 ; lwr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lwr_19910101_20091231_oafluxgrid.nc"]; 20 ; lhf_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lhf_19910101_20091231_oafluxgrid.nc"]; 21 ; shf_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_shf_19910101_20091231_oafluxgrid.nc"]; 22 ; tropflux_general [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_19890101_20091231.nc"]; 23 ; swr_tropflux_nrt [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"]; 24 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_oafluxgrid_1985_2007.nc"]; 25 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lwr_oafluxgrid_1985_2007.nc"]; 26 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_oafluxgrid_1985_2007.nc"]; 27 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_oafluxgrid_1985_2007.nc"]; 28 ; swr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"]; 29 ; lwr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/NCEP2_flux_19890101_20090729.nc"]; 30 ; lhf_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"]; 31 ; shf_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"]; 32 ; 33 ; ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ncep1_flux_19890101_20091231.nc"]; 34 ; 35 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/coare_validation_net_1992_93_all_v11.ps"]; 36 36 ; 37 37 ; coare_validation_net_1992_93_all_v10 [shape=box, … … 47 47 ; ======== 48 48 ; 49 ; :ref:` tropflux_profile.sh`50 ; :ref:` tropflux_init.pro`51 ; :ref:`cm_ tropflux.pro`49 ; :ref:`project_profile.sh` 50 ; :ref:`project_init.pro` 51 ; :ref:`cm_project.pro` 52 52 ; 53 53 ; :ref:`statistics.pro` … … 58 58 ; :: 59 59 ; 60 ; IDL> @tropflux_init61 60 ; IDL> coare_validation_net_1992_93_all_v10 62 61 ; … … 91 90 pro coare_validation_net_1992_93_all_v10 92 91 @cm_general 93 @cm_ tropflux92 @cm_project 94 93 reinitplt, /z,/invert 95 94 key_portrait = 1 … … 103 102 ;; first leg 104 103 ;; start data - 11/11/92 and end date 03/12/92 105 fi= tropflux_id_env+"met_data_coare_expt_1992_p1.txt"104 fi=project_id_env+"met_data_coare_expt_1992_p1.txt" 106 105 res=read_ascii(fi,data_start=1) 107 106 ff=res.field1 … … 118 117 ;; second leg 119 118 120 fi= tropflux_id_env+"met_data_coare_expt_1992_p2.txt"119 fi=project_id_env+"met_data_coare_expt_1992_p2.txt" 121 120 res=read_ascii(fi,data_start=1) 122 121 ff=res.field1 … … 133 132 ;; third leg 134 133 135 fi= tropflux_id_env+"met_data_coare_expt_1993_p1.txt"134 fi=project_id_env+"met_data_coare_expt_1993_p1.txt" 136 135 res=read_ascii(fi,data_start=1) 137 136 ff=res.field1 … … 148 147 ;; fourth leg 149 148 150 fi= tropflux_id_env+"met_data_coare_expt_1993_p2.txt"149 fi=project_id_env+"met_data_coare_expt_1993_p2.txt" 151 150 res=read_ascii(fi,data_start=1) 152 151 ff=res.field1 … … 171 170 st4=19930128 & en4=19930216 172 171 173 file= tropflux_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc"172 file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 174 173 initncdf, file 175 174 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) … … 178 177 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy", box=box,/nan) & swr4=reform(swr4) 179 178 180 file= tropflux_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc'179 file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 181 180 initncdf, file 182 181 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) … … 185 184 lwr4=read_ncdf('lwr',st4-1,en4,file=file,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy", box=box,/nan) & lwr4=reform(lwr4) 186 185 187 file= tropflux_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc'186 file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 188 187 initncdf, file 189 188 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) … … 192 191 lhf4=-1*read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy", box=box,/nan) & lhf4=reform(lhf4) 193 192 194 file= tropflux_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc'193 file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 195 194 initncdf, file 196 195 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) … … 208 207 net1=0 & net2=0 & net3=0 & net4=0 209 208 210 file= tropflux_id_env+"TropFlux_19890101_20091231.nc"209 file=project_id_env+"TropFlux_19890101_20091231.nc" 211 210 initncdf, file 212 211 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) … … 233 232 net3=swr3+lwr3+lhf3+shf3 & net4=swr4+lwr4+lhf4+shf4 234 233 235 file= tropflux_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc"234 file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 236 235 initncdf, file 237 236 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) … … 251 250 net1=0 & net2=0 & net3=0 & net4=0 & neto_1=0 & neto_2=0 & neto_3=0 & neto_4=0 252 251 253 file= tropflux_id_env+'swr_oafluxgrid_1985_2007.nc'252 file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 254 253 initncdf, file 255 254 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) … … 258 257 swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy",/nan, box=box) & swr4=reform(swr4) 259 258 260 file= tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc'259 file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 261 260 initncdf, file 262 261 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) … … 265 264 lwr4=-1*read_ncdf("lwr", st4, en4, file=file,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) & lwr4=reform(lwr4) 266 265 267 file= tropflux_id_env+'lhf_oafluxgrid_1985_2009.nc'266 file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 268 267 initncdf, file 269 268 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) … … 272 271 lhf4=-1*read_ncdf("lhf", st4, en4, file=file,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) & lhf4=reform(lhf4) 273 272 274 file= tropflux_id_env+'shf_oafluxgrid_1985_2009.nc'273 file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 275 274 initncdf, file 276 275 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) … … 289 288 net1=0 & net2=0 & net3=0 & net4=0 290 289 291 fi= tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc'290 fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 292 291 initncdf, fi 293 292 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) … … 296 295 swr4=read_ncdf("swr", st4, en4, file=fi,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy",/nan, box=box) & swr4=reform(swr4) 297 296 298 fi= tropflux_id_env+"NCEP2_flux_19890101_20090729.nc"297 fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 299 298 initncdf, fi 300 299 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) … … 303 302 lwr4=-1*read_ncdf("lwr", st4, en4, file=fi,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) & lwr4=reform(lwr4) 304 303 305 fi= tropflux_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc'304 fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 306 305 initncdf, fi 307 306 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) … … 310 309 lhf4=-1*read_ncdf("lhf", st4, en4, file=fi,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) & lhf4=reform(lhf4) 311 310 312 fi= tropflux_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc'311 fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 313 312 initncdf, fi 314 313 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) … … 327 326 net1=0 & net2=0 & net3=0 & net4=0 328 327 329 file= tropflux_id_env+"ncep1_flux_19890101_20091231.nc"328 file=project_id_env+"ncep1_flux_19890101_20091231.nc" 330 329 initncdf, file 331 330 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) … … 427 426 428 427 closeps 429 fig= tropflux_od_env+"coare_validation_net_1992_93_all_v11.ps"428 fig=project_od_env+"coare_validation_net_1992_93_all_v11.ps" 430 429 spawn, 'mv '+psdir+'idl.ps '+fig 431 430 spawn, 'gv '+fig -
trunk/src/paper01/fig14/stratus_validation_net_2001_2002_all_v10.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; met_data [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/met_data_stratus_2001_2002.txt"];18 ; swr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_swr_19910101_20091231_oafluxgrid.nc"];19 ; lwr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_lwr_19910101_20091231_oafluxgrid.nc"];20 ; lhf_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_lhf_19910101_20091231_oafluxgrid.nc"];21 ; shf_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_shf_19910101_20091231_oafluxgrid.nc"];22 ; tropflux_general [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_19890101_20091231.nc"];23 ; swr_tropflux_nrt [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"];24 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_oafluxgrid_1985_2007.nc"];25 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lwr_oafluxgrid_1985_2007.nc"];26 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_oafluxgrid_1985_2007.nc"];27 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_oafluxgrid_1985_2007.nc"];28 ; swr_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"];29 ; lwr_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/NCEP2_flux_19890101_20090729.nc"];30 ; lhf_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"];31 ; shf_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"];32 ; 33 ; ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ncep1_flux_19890101_20091231.nc"];34 ; 35 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/stratus_validation_net_2001_2002_all_v11.ps"];17 ; met_data [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/met_data_stratus_2001_2002.txt"]; 18 ; swr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_swr_19910101_20091231_oafluxgrid.nc"]; 19 ; lwr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lwr_19910101_20091231_oafluxgrid.nc"]; 20 ; lhf_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lhf_19910101_20091231_oafluxgrid.nc"]; 21 ; shf_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_shf_19910101_20091231_oafluxgrid.nc"]; 22 ; tropflux_general [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_19890101_20091231.nc"]; 23 ; swr_tropflux_nrt [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"]; 24 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_oafluxgrid_1985_2007.nc"]; 25 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lwr_oafluxgrid_1985_2007.nc"]; 26 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_oafluxgrid_1985_2007.nc"]; 27 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_oafluxgrid_1985_2007.nc"]; 28 ; swr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"]; 29 ; lwr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/NCEP2_flux_19890101_20090729.nc"]; 30 ; lhf_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"]; 31 ; shf_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"]; 32 ; 33 ; ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ncep1_flux_19890101_20091231.nc"]; 34 ; 35 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/stratus_validation_net_2001_2002_all_v11.ps"]; 36 36 ; 37 37 ; stratus_validation_net_2001_2002_all_v10 [shape=box, … … 47 47 ; ======== 48 48 ; 49 ; :ref:` tropflux_profile.sh`50 ; :ref:` tropflux_init.pro`51 ; :ref:`cm_ tropflux.pro`49 ; :ref:`project_profile.sh` 50 ; :ref:`project_init.pro` 51 ; :ref:`cm_project.pro` 52 52 ; 53 53 ; :ref:`statistics.pro` … … 58 58 ; :: 59 59 ; 60 ; IDL> @tropflux_init61 60 ; IDL> stratus_validation_net_2001_2002_all_v10 62 61 ; … … 93 92 pro stratus_validation_net_2001_2002_all_v10 94 93 @cm_general 95 @cm_ tropflux94 @cm_project 96 95 reinitplt, /z,/invert 97 96 key_portrait = 1 … … 107 106 ;; first leg 108 107 109 fi= tropflux_id_env+"met_data_stratus_2001_2002.txt"108 fi=project_id_env+"met_data_stratus_2001_2002.txt" 110 109 res=read_ascii(fi,data_start=1) 111 110 ff=res.field1 … … 122 121 st1=20011019 & en1=20021022 123 122 124 file= tropflux_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc"123 file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 125 124 initncdf, file 126 125 swr=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr=grossemoyenne(swr, "xy", box=box,/nan) & swr=reform(swr) 127 file= tropflux_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc'126 file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 128 127 initncdf, file 129 128 lwr=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr=reform(lwr) 130 file= tropflux_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc'129 file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 131 130 initncdf, file 132 131 shf=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf=reform(shf) 133 file= tropflux_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc'132 file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 134 133 initncdf, file 135 134 lhf=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf=reform(lhf) … … 140 139 swr=0 & lwr=0 & lhf=0 & shf=0 141 140 142 file= tropflux_id_env+"TropFlux_19890101_20091231.nc"141 file=project_id_env+"TropFlux_19890101_20091231.nc" 143 142 initncdf, file 144 143 swr=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr=grossemoyenne(swr, "xy",/nan, box=box) & swr=reform(swr) … … 147 146 lhf=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf=grossemoyenne(lhf, "xy",/nan, box=box) & lhf=reform(lhf) 148 147 149 file= tropflux_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc"148 file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 150 149 initncdf, file 151 150 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) … … 156 155 swr=0 & lwr=0 & lhf=0 & shf=0 & olr1=0 157 156 158 file= tropflux_id_env+'swr_oafluxgrid_1985_2007.nc'157 file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 159 158 initncdf, file 160 159 swr=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr=grossemoyenne(swr, "xy",/nan, box=box) & swr=reform(swr) 161 160 162 file= tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc'161 file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 163 162 initncdf, file 164 163 lwr=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr=-1*reform(lwr) 165 164 166 file= tropflux_id_env+'lhf_oafluxgrid_1985_2009.nc'165 file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 167 166 initncdf, file 168 167 lhf=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf=-1*reform(lhf) 169 168 170 file= tropflux_id_env+'shf_oafluxgrid_1985_2009.nc'169 file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 171 170 initncdf, file 172 171 shf=read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf=-1*reform(shf) … … 176 175 swr=0 & lwr=0 & lhf=0 & shf=0 177 176 178 fi= tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc'177 fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 179 178 initncdf, fi 180 179 swr=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr=grossemoyenne(swr, "xy",/nan, box=box) & swr=reform(swr) 181 180 182 fi= tropflux_id_env+"NCEP2_flux_19890101_20090729.nc"181 fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 183 182 initncdf, fi 184 183 lwr=read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr=grossemoyenne(lwr, "xy",/nan, box=box) & lwr=reform(lwr) 185 184 lwr=-1*lwr 186 185 187 fi= tropflux_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc'186 fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 188 187 initncdf, fi 189 188 lhf=read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf=-1*reform(lhf) 190 189 191 fi= tropflux_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc'190 fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 192 191 initncdf, fi 193 192 shf=read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf=-1*reform(shf) … … 198 197 swr=0 & lwr=0 & lhf=0 & shf=0 199 198 200 file= tropflux_id_env+"ncep1_flux_19890101_20091231.nc"199 file=project_id_env+"ncep1_flux_19890101_20091231.nc" 201 200 initncdf, file 202 201 swr=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr=grossemoyenne(swr, "xy",/nan, box=box) & swr=reform(swr) … … 274 273 275 274 closeps 276 fig= tropflux_od_env+"stratus_validation_net_2001_2002_all_v11.ps"275 fig=project_od_env+"stratus_validation_net_2001_2002_all_v11.ps" 277 276 spawn, 'mv '+psdir+'idl.ps '+fig 278 277 spawn, 'gv '+fig -
trunk/src/paper01/fig14/subdctn_cs_validation_net_1991_93_all_v10.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; met_data [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/met_data_subduct_cs_9*.txt"];18 ; swr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_swr_19910101_20091231_oafluxgrid.nc"];19 ; lwr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_lwr_19910101_20091231_oafluxgrid.nc"];20 ; lhf_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_lhf_19910101_20091231_oafluxgrid.nc"];21 ; shf_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_shf_19910101_20091231_oafluxgrid.nc"];22 ; tropflux_general [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_19890101_20091231.nc"];23 ; swr_tropflux_nrt [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"];24 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_oafluxgrid_1985_2007.nc"];25 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lwr_oafluxgrid_1985_2007.nc"];26 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_oafluxgrid_1985_2007.nc"];27 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_oafluxgrid_1985_2007.nc"];28 ; swr_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"];29 ; lwr_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/NCEP2_flux_19890101_20090729.nc"];30 ; lhf_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"];31 ; shf_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"];32 ; 33 ; ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ncep1_flux_19890101_20091231.nc"];34 ; 35 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/subdctn_cs_validation_net_1991_93_all_v10.ps"];17 ; met_data [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/met_data_subduct_cs_9*.txt"]; 18 ; swr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_swr_19910101_20091231_oafluxgrid.nc"]; 19 ; lwr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lwr_19910101_20091231_oafluxgrid.nc"]; 20 ; lhf_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lhf_19910101_20091231_oafluxgrid.nc"]; 21 ; shf_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_shf_19910101_20091231_oafluxgrid.nc"]; 22 ; tropflux_general [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_19890101_20091231.nc"]; 23 ; swr_tropflux_nrt [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"]; 24 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_oafluxgrid_1985_2007.nc"]; 25 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lwr_oafluxgrid_1985_2007.nc"]; 26 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_oafluxgrid_1985_2007.nc"]; 27 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_oafluxgrid_1985_2007.nc"]; 28 ; swr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"]; 29 ; lwr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/NCEP2_flux_19890101_20090729.nc"]; 30 ; lhf_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"]; 31 ; shf_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"]; 32 ; 33 ; ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ncep1_flux_19890101_20091231.nc"]; 34 ; 35 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/subdctn_cs_validation_net_1991_93_all_v10.ps"]; 36 36 ; 37 37 ; subdctn_cs_validation_net_1991_93_all_v10 [shape=box, … … 47 47 ; ======== 48 48 ; 49 ; :ref:` tropflux_profile.sh`50 ; :ref:` tropflux_init.pro`51 ; :ref:`cm_ tropflux.pro`49 ; :ref:`project_profile.sh` 50 ; :ref:`project_init.pro` 51 ; :ref:`cm_project.pro` 52 52 ; 53 53 ; :ref:`statistics.pro` … … 58 58 ; :: 59 59 ; 60 ; IDL> @tropflux_init61 60 ; IDL> subdctn_cs_validation_net_1991_93_all_v10 62 61 ; … … 91 90 pro subdctn_cs_validation_net_1991_93_all_v10 92 91 @cm_general 93 @cm_ tropflux92 @cm_project 94 93 reinitplt, /z,/invert 95 94 key_portrait = 1 … … 104 103 ;; first leg 105 104 106 fi= tropflux_id_env+"met_data_subduct_cs_91.txt"105 fi=project_id_env+"met_data_subduct_cs_91.txt" 107 106 res=read_ascii(fi,data_start=1) 108 107 ff=res.field1 … … 117 116 ;; second leg 118 117 119 fi= tropflux_id_env+"met_data_subduct_cs_92.txt"118 fi=project_id_env+"met_data_subduct_cs_92.txt" 120 119 res=read_ascii(fi,data_start=1) 121 120 ff=res.field1 … … 128 127 ;; second leg 129 128 130 fi= tropflux_id_env+"met_data_subduct_cs_93.txt"129 fi=project_id_env+"met_data_subduct_cs_93.txt" 131 130 res=read_ascii(fi,data_start=1) 132 131 ff=res.field1 … … 144 143 st1=19910623 & en1=19930616 145 144 146 file= tropflux_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc"145 file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 147 146 initncdf, file 148 147 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 149 file= tropflux_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc'148 file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 150 149 initncdf, file 151 150 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 152 file= tropflux_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc'151 file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 153 152 initncdf, file 154 153 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 155 file= tropflux_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc'154 file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 156 155 initncdf, file 157 156 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) … … 161 160 help, era 162 161 163 file= tropflux_id_env+"TropFlux_19890101_20091231.nc"162 file=project_id_env+"TropFlux_19890101_20091231.nc" 164 163 initncdf, file 165 164 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) … … 169 168 trop=swr1+lwr1+lhf1+shf1 170 169 171 file= tropflux_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc"170 file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 172 171 initncdf, file 173 172 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) … … 177 176 swr1=0 & lwr1=0 & shf1=0 & lhf1=0 & olr1=0 178 177 179 file= tropflux_id_env+'swr_oafluxgrid_1985_2007.nc'178 file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 180 179 initncdf, file 181 180 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 182 file= tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc'181 file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 183 182 initncdf, file 184 183 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 185 file= tropflux_id_env+'lhf_oafluxgrid_1985_2009.nc'184 file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 186 185 initncdf, file 187 186 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 188 file= tropflux_id_env+'shf_oafluxgrid_1985_2009.nc'187 file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 189 188 initncdf, file 190 189 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) … … 194 193 swr1=0 & lwr1=0 & shf1=0 & lhf1=0 & olr1=0 195 194 196 fi= tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc'195 fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 197 196 initncdf, fi 198 197 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 199 fi= tropflux_id_env+"NCEP2_flux_19890101_20090729.nc"198 fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 200 199 initncdf, fi 201 200 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 202 fi= tropflux_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc'201 fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 203 202 initncdf, fi 204 203 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 205 fi= tropflux_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc'204 fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 206 205 initncdf, fi 207 206 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) … … 211 210 swr1=0 & lwr1=0 & shf1=0 & lhf1=0 & olr1=0 212 211 213 file= tropflux_id_env+"ncep1_flux_19890101_20091231.nc"212 file=project_id_env+"ncep1_flux_19890101_20091231.nc" 214 213 initncdf, file 215 214 … … 287 286 288 287 closeps 289 fig= tropflux_od_env+"subdctn_cs_validation_net_1991_93_all_v10.ps"288 fig=project_od_env+"subdctn_cs_validation_net_1991_93_all_v10.ps" 290 289 spawn, 'mv '+psdir+'idl.ps '+fig 291 290 spawn, 'gv '+fig -
trunk/src/paper01/fig14/subdctn_ses_validation_net_1991_93_all_v10.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; met_data [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/met_data_subduct_ses_9*.txt"];18 ; swr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_swr_19910101_20091231_oafluxgrid.nc"];19 ; lwr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_lwr_19910101_20091231_oafluxgrid.nc"];20 ; lhf_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_lhf_19910101_20091231_oafluxgrid.nc"];21 ; shf_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_shf_19910101_20091231_oafluxgrid.nc"];22 ; tropflux_general [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_19890101_20091231.nc"];23 ; swr_tropflux_nrt [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"];24 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_oafluxgrid_1985_2007.nc"];25 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lwr_oafluxgrid_1985_2007.nc"];26 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_oafluxgrid_1985_2007.nc"];27 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_oafluxgrid_1985_2007.nc"];28 ; swr_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"];29 ; lwr_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/NCEP2_flux_19890101_20090729.nc"];30 ; lhf_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"];31 ; shf_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"];32 ; 33 ; ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ncep1_flux_19890101_20091231.nc"];34 ; 35 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/subdctn_ses_validation_net_1991_93_all_v10.ps"];17 ; met_data [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/met_data_subduct_ses_9*.txt"]; 18 ; swr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_swr_19910101_20091231_oafluxgrid.nc"]; 19 ; lwr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lwr_19910101_20091231_oafluxgrid.nc"]; 20 ; lhf_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lhf_19910101_20091231_oafluxgrid.nc"]; 21 ; shf_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_shf_19910101_20091231_oafluxgrid.nc"]; 22 ; tropflux_general [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_19890101_20091231.nc"]; 23 ; swr_tropflux_nrt [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"]; 24 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_oafluxgrid_1985_2007.nc"]; 25 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lwr_oafluxgrid_1985_2007.nc"]; 26 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_oafluxgrid_1985_2007.nc"]; 27 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_oafluxgrid_1985_2007.nc"]; 28 ; swr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"]; 29 ; lwr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/NCEP2_flux_19890101_20090729.nc"]; 30 ; lhf_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"]; 31 ; shf_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"]; 32 ; 33 ; ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ncep1_flux_19890101_20091231.nc"]; 34 ; 35 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/subdctn_ses_validation_net_1991_93_all_v10.ps"]; 36 36 ; 37 37 ; subdctn_ses_validation_net_1991_93_all_v10 [shape=box, … … 47 47 ; ======== 48 48 ; 49 ; :ref:` tropflux_profile.sh`50 ; :ref:` tropflux_init.pro`51 ; :ref:`cm_ tropflux.pro`49 ; :ref:`project_profile.sh` 50 ; :ref:`project_init.pro` 51 ; :ref:`cm_project.pro` 52 52 ; 53 53 ; :ref:`statistics.pro` … … 58 58 ; :: 59 59 ; 60 ; IDL> @tropflux_init61 60 ; IDL> subdctn_ses_validation_net_1991_93_all_v10 62 61 ; … … 91 90 pro subdctn_ses_validation_net_1991_93_all_v10 92 91 @cm_general 93 @cm_ tropflux92 @cm_project 94 93 reinitplt, /z,/invert 95 94 key_portrait = 1 … … 106 105 ;; second leg 107 106 108 fi= tropflux_id_env+"met_data_subduct_ses_92.txt"107 fi=project_id_env+"met_data_subduct_ses_92.txt" 109 108 res=read_ascii(fi,data_start=1) 110 109 ff=res.field1 … … 118 117 ;; second leg 119 118 120 fi= tropflux_id_env+"met_data_subduct_ses_93.txt"119 fi=project_id_env+"met_data_subduct_ses_93.txt" 121 120 res=read_ascii(fi,data_start=1) 122 121 ff=res.field1 … … 136 135 st2=19920921 & en2=19930618 137 136 138 file= tropflux_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc"137 file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 139 138 initncdf, file 140 139 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 141 140 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy", box=box,/nan) & swr2=reform(swr2) 142 141 143 file= tropflux_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc'142 file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 144 143 initncdf, file 145 144 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 146 145 lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) & lhf2=reform(lhf2) 147 146 148 file= tropflux_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc'147 file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 149 148 initncdf, file 150 149 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 151 150 shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy", box=box,/nan) & shf2=reform(shf2) 152 151 153 file= tropflux_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc'152 file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 154 153 initncdf, file 155 154 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) … … 164 163 net1=0. & net2=0. 165 164 166 file= tropflux_id_env+"TropFlux_19890101_20091231.nc"165 file=project_id_env+"TropFlux_19890101_20091231.nc" 167 166 initncdf, file 168 167 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) … … 175 174 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy", box=box,/nan) & swr2=reform(swr2) 176 175 177 file= tropflux_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc"176 file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 178 177 initncdf, file 179 178 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) … … 185 184 help, trop, olr 186 185 187 file= tropflux_id_env+'swr_oafluxgrid_1985_2007.nc'186 file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 188 187 initncdf, file 189 188 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 190 189 swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy",/nan, box=box) & swr2=reform(swr2) 191 190 192 file= tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc'191 file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 193 192 initncdf, file 194 193 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 195 194 lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) & lwr2=reform(lwr2) 196 195 197 file= tropflux_id_env+'lhf_oafluxgrid_1985_2009.nc'196 file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 198 197 initncdf, file 199 198 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 200 199 lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) & lhf2=reform(lhf2) 201 200 202 file= tropflux_id_env+'shf_oafluxgrid_1985_2009.nc'201 file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 203 202 initncdf, file 204 203 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) … … 209 208 help, oaf 210 209 211 fi= tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc'210 fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 212 211 initncdf, fi 213 212 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 214 213 swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy",/nan, box=box) & swr2=reform(swr2) 215 214 216 fi= tropflux_id_env+"NCEP2_flux_19890101_20090729.nc"215 fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 217 216 initncdf, fi 218 217 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 219 218 lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) & lwr2=reform(lwr2) 220 219 221 fi= tropflux_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc'220 fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 222 221 initncdf, fi 223 222 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 224 223 lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) & lhf2=reform(lhf2) 225 224 226 fi= tropflux_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc'225 fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 227 226 initncdf, fi 228 227 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) … … 233 232 help, nce2 234 233 235 file= tropflux_id_env+"ncep1_flux_19890101_20091231.nc"234 file=project_id_env+"ncep1_flux_19890101_20091231.nc" 236 235 initncdf, file 237 236 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) … … 314 313 315 314 closeps 316 fig= tropflux_od_env+"subdctn_ses_validation_net_1991_93_all_v10.ps"315 fig=project_od_env+"subdctn_ses_validation_net_1991_93_all_v10.ps" 317 316 spawn, 'mv '+psdir+'idl.ps '+fig 318 317 spawn, 'gv '+fig -
trunk/src/paper01/fig14/subdctn_sws_validation_net_1991_93_all_v10.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; met_data [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/met_data_subduct_sws_9*.txt"];18 ; swr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_swr_19910101_20091231_oafluxgrid.nc"];19 ; lwr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_lwr_19910101_20091231_oafluxgrid.nc"];20 ; lhf_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_lhf_19910101_20091231_oafluxgrid.nc"];21 ; shf_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_shf_19910101_20091231_oafluxgrid.nc"];22 ; tropflux_general [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_19890101_20091231.nc"];23 ; swr_tropflux_nrt [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"];24 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_oafluxgrid_1985_2007.nc"];25 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lwr_oafluxgrid_1985_2007.nc"];26 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_oafluxgrid_1985_2007.nc"];27 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_oafluxgrid_1985_2007.nc"];28 ; swr_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"];29 ; lwr_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/NCEP2_flux_19890101_20090729.nc"];30 ; lhf_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"];31 ; shf_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"];32 ; 33 ; ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ncep1_flux_19890101_20091231.nc"];34 ; 35 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/subdctn_sws_validation_net_1991_93_all_v10.ps"];17 ; met_data [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/met_data_subduct_sws_9*.txt"]; 18 ; swr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_swr_19910101_20091231_oafluxgrid.nc"]; 19 ; lwr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lwr_19910101_20091231_oafluxgrid.nc"]; 20 ; lhf_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lhf_19910101_20091231_oafluxgrid.nc"]; 21 ; shf_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_shf_19910101_20091231_oafluxgrid.nc"]; 22 ; tropflux_general [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_19890101_20091231.nc"]; 23 ; swr_tropflux_nrt [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"]; 24 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_oafluxgrid_1985_2007.nc"]; 25 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lwr_oafluxgrid_1985_2007.nc"]; 26 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_oafluxgrid_1985_2007.nc"]; 27 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_oafluxgrid_1985_2007.nc"]; 28 ; swr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"]; 29 ; lwr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/NCEP2_flux_19890101_20090729.nc"]; 30 ; lhf_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"]; 31 ; shf_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"]; 32 ; 33 ; ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ncep1_flux_19890101_20091231.nc"]; 34 ; 35 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/subdctn_sws_validation_net_1991_93_all_v10.ps"]; 36 36 ; 37 37 ; subdctn_sws_validation_net_1991_93_all_v10 [shape=box, … … 47 47 ; ======== 48 48 ; 49 ; :ref:` tropflux_profile.sh`50 ; :ref:` tropflux_init.pro`51 ; :ref:`cm_ tropflux.pro`49 ; :ref:`project_profile.sh` 50 ; :ref:`project_init.pro` 51 ; :ref:`cm_project.pro` 52 52 ; 53 53 ; :ref:`statistics.pro` … … 58 58 ; :: 59 59 ; 60 ; IDL> @tropflux_init61 60 ; IDL> subdctn_sws_validation_net_1991_93_all_v10 62 61 ; … … 91 90 pro subdctn_sws_validation_net_1991_93_all_v10 92 91 @cm_general 93 @cm_ tropflux92 @cm_project 94 93 reinitplt, /z,/invert 95 94 key_portrait = 1 … … 104 103 ;; first leg 105 104 106 fi= tropflux_id_env+"met_data_subduct_sws_91_v1.txt"105 fi=project_id_env+"met_data_subduct_sws_91_v1.txt" 107 106 res=read_ascii(fi,data_start=1) 108 107 ff=res.field1 … … 117 116 ;; second leg 118 117 119 fi= tropflux_id_env+"met_data_subduct_sws_92_v1.txt"118 fi=project_id_env+"met_data_subduct_sws_92_v1.txt" 120 119 res=read_ascii(fi,data_start=1) 121 120 ff=res.field1 … … 129 128 ;; second leg 130 129 131 fi= tropflux_id_env+"met_data_subduct_sws_93_v1.txt"130 fi=project_id_env+"met_data_subduct_sws_93_v1.txt" 132 131 res=read_ascii(fi,data_start=1) 133 132 ff=res.field1 … … 147 146 st4=19930101 & en4=19930521 148 147 149 file= tropflux_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc"148 file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 150 149 initncdf, file 151 150 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) … … 154 153 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy", box=box,/nan) & swr4=reform(swr4) 155 154 156 file= tropflux_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc'155 file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 157 156 initncdf, file 158 157 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) … … 161 160 lhf4=-1*read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy", box=box,/nan) & lhf4=reform(lhf4) 162 161 163 file= tropflux_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc'162 file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 164 163 initncdf, file 165 164 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) … … 168 167 shf4=-1*read_ncdf('shf',st4,en4,file=file,/nostr, box=box) & shf4=grossemoyenne(shf4, "xy", box=box,/nan) & shf4=reform(shf4) 169 168 170 file= tropflux_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc'169 file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 171 170 initncdf, file 172 171 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) … … 184 183 help, era 185 184 186 file= tropflux_id_env+"TropFlux_19890101_20091231.nc"185 file=project_id_env+"TropFlux_19890101_20091231.nc" 187 186 initncdf, file 188 187 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) … … 206 205 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy", box=box,/nan) & swr4=reform(swr4) 207 206 208 file= tropflux_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc"207 file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 209 208 initncdf, file 210 209 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) … … 227 226 help, trop, olr 228 227 229 file= tropflux_id_env+'swr_oafluxgrid_1985_2007.nc'228 file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 230 229 initncdf, file 231 230 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) … … 234 233 swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy",/nan, box=box) & swr4=reform(swr4) 235 234 236 file= tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc'235 file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 237 236 initncdf, file 238 237 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) … … 241 240 lwr4=-1*read_ncdf("lwr", st4, en4, file=file,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) & lwr4=reform(lwr4) 242 241 243 file= tropflux_id_env+'lhf_oafluxgrid_1985_2009.nc'242 file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 244 243 initncdf, file 245 244 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) … … 248 247 lhf4=-1*read_ncdf("lhf", st4, en4, file=file,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) & lhf4=reform(lhf4) 249 248 250 file= tropflux_id_env+'shf_oafluxgrid_1985_2009.nc'249 file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 251 250 initncdf, file 252 251 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) … … 267 266 help, oaf 268 267 269 fi= tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc'268 fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 270 269 initncdf, fi 271 270 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) … … 274 273 swr4=read_ncdf("swr", st4, en4, file=fi,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy",/nan, box=box) & swr4=reform(swr4) 275 274 276 fi= tropflux_id_env+'"NCEP2_flux_19890101_20090729.nc"275 fi=project_id_env+'"NCEP2_flux_19890101_20090729.nc" 277 276 initncdf, fi 278 277 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) … … 281 280 lwr4=-1*read_ncdf("lwr", st4, en4, file=fi,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) & lwr4=reform(lwr4) 282 281 283 fi= tropflux_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc'282 fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 284 283 initncdf, fi 285 284 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) … … 288 287 lhf4=-1*read_ncdf("lhf", st4, en4, file=fi,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) & lhf4=reform(lhf4) 289 288 290 fi= tropflux_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc'289 fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 291 290 initncdf, fi 292 291 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) … … 306 305 net1=0. & net2=0. & net3=0. & net4=0 307 306 308 file= tropflux_id_env+"ncep1_flux_19890101_20091231.nc"307 file=project_id_env+"ncep1_flux_19890101_20091231.nc" 309 308 initncdf, file 310 309 … … 403 402 404 403 closeps 405 fig= tropflux_od_env+"subdctn_sws_validation_net_1991_93_all_v10.ps"404 fig=project_od_env+"subdctn_sws_validation_net_1991_93_all_v10.ps" 406 405 spawn, 'mv '+psdir+'idl.ps '+fig 407 406 spawn, 'gv '+fig -
trunk/src/paper01/fig14/whots_validation_net_2004_2007_all_v10.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; met_data [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/met_data_WHOTS_200?_200?.txt"];18 ; swr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_swr_19910101_20091231_oafluxgrid.nc"];19 ; lwr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_lwr_19910101_20091231_oafluxgrid.nc"];20 ; lhf_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_lhf_19910101_20091231_oafluxgrid.nc"];21 ; shf_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_shf_19910101_20091231_oafluxgrid.nc"];22 ; tropflux_general [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_19890101_20091231.nc"];23 ; swr_tropflux_nrt [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"];24 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_oafluxgrid_1985_2007.nc"];25 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lwr_oafluxgrid_1985_2007.nc"];26 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_oafluxgrid_1985_2007.nc"];27 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_oafluxgrid_1985_2007.nc"];28 ; swr_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"];29 ; lwr_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/NCEP2_flux_19890101_20090729.nc"];30 ; lhf_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"];31 ; shf_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"];32 ; 33 ; ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ncep1_flux_19890101_20091231.nc"];34 ; 35 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/WHOTS_validation_net_2004_2007_all_v10.ps"];17 ; met_data [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/met_data_WHOTS_200?_200?.txt"]; 18 ; swr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_swr_19910101_20091231_oafluxgrid.nc"]; 19 ; lwr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lwr_19910101_20091231_oafluxgrid.nc"]; 20 ; lhf_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lhf_19910101_20091231_oafluxgrid.nc"]; 21 ; shf_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_shf_19910101_20091231_oafluxgrid.nc"]; 22 ; tropflux_general [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_19890101_20091231.nc"]; 23 ; swr_tropflux_nrt [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"]; 24 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_oafluxgrid_1985_2007.nc"]; 25 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lwr_oafluxgrid_1985_2007.nc"]; 26 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_oafluxgrid_1985_2007.nc"]; 27 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_oafluxgrid_1985_2007.nc"]; 28 ; swr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"]; 29 ; lwr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/NCEP2_flux_19890101_20090729.nc"]; 30 ; lhf_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"]; 31 ; shf_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"]; 32 ; 33 ; ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ncep1_flux_19890101_20091231.nc"]; 34 ; 35 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/WHOTS_validation_net_2004_2007_all_v10.ps"]; 36 36 ; 37 37 ; whots_validation_net_2004_2007_all_v10 [shape=box, … … 47 47 ; ======== 48 48 ; 49 ; :ref:` tropflux_profile.sh`50 ; :ref:` tropflux_init.pro`51 ; :ref:`cm_ tropflux.pro`49 ; :ref:`project_profile.sh` 50 ; :ref:`project_init.pro` 51 ; :ref:`cm_project.pro` 52 52 ; 53 53 ; :ref:`statistics.pro` … … 58 58 ; :: 59 59 ; 60 ; IDL> @tropflux_init61 60 ; IDL> whots_validation_net_2004_2007_all_v10 62 61 ; … … 91 90 pro whots_validation_net_2004_2007_all_v10 92 91 @cm_general 93 @cm_ tropflux92 @cm_project 94 93 reinitplt, /z,/invert 95 94 key_portrait = 1 … … 105 104 ;; first leg 106 105 107 fi= tropflux_id_env+"met_data_WHOTS_2004_2005.txt"106 fi=project_id_env+"met_data_WHOTS_2004_2005.txt" 108 107 res=read_ascii(fi,data_start=1) 109 108 ff=res.field1 … … 114 113 net_04=[lhf_04+shf_04+swr_04+lwr_04] 115 114 116 fi= tropflux_id_env+"met_data_WHOTS_2005_2006.txt"115 fi=project_id_env+"met_data_WHOTS_2005_2006.txt" 117 116 res=read_ascii(fi,data_start=1) 118 117 ff=res.field1 … … 123 122 net_05=[lhf_05+shf_05+swr_05+lwr_05] 124 123 125 fi= tropflux_id_env+"met_data_WHOTS_2006_2007.txt"124 fi=project_id_env+"met_data_WHOTS_2006_2007.txt" 126 125 res=read_ascii(fi,data_start=1) 127 126 ff=res.field1 … … 144 143 ;st5=20080605 & en5=20090715 145 144 146 file= tropflux_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc'145 file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 147 146 initncdf, file 148 147 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) … … 150 149 lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) & lhf3=reform(lhf3) 151 150 152 file= tropflux_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc'151 file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 153 152 initncdf, file 154 153 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) … … 156 155 shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy", box=box,/nan) & shf3=reform(shf3) 157 156 158 file= tropflux_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc'157 file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 159 158 initncdf, file 160 159 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) … … 162 161 lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) & lwr3=reform(lwr3) 163 162 164 file= tropflux_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc"163 file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 165 164 initncdf, file 166 165 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) … … 177 176 help, era 178 177 179 file= tropflux_id_env+"TropFlux_19890101_20091231.nc"178 file=project_id_env+"TropFlux_19890101_20091231.nc" 180 179 initncdf, file 181 180 … … 196 195 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy", box=box,/nan) & swr3=reform(swr3) 197 196 198 file= tropflux_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc"197 file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 199 198 initncdf, file 200 199 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) … … 216 215 help, trop, olr 217 216 218 file= tropflux_id_env+'swr_oafluxgrid_1985_2007.nc'217 file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 219 218 initncdf, file 220 219 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) … … 222 221 swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy",/nan, box=box) & swr3=reform(swr3) 223 222 224 file= tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc'223 file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 225 224 initncdf, file 226 225 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) … … 228 227 lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) & lwr3=reform(lwr3) 229 228 230 file= tropflux_id_env+'lhf_oafluxgrid_1985_2009.nc'229 file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 231 230 initncdf, file 232 231 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) … … 234 233 lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) & lhf3=reform(lhf3) 235 234 236 file= tropflux_id_env+'shf_oafluxgrid_1985_2009.nc'235 file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 237 236 initncdf, file 238 237 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) … … 250 249 help, oaf 251 250 252 fi= tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc'251 fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 253 252 initncdf, fi 254 253 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) … … 256 255 swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy",/nan, box=box) & swr3=reform(swr3) 257 256 258 fi= tropflux_id_env+'NCEP2_flux_19890101_20090729.nc"257 fi=project_id_env+'NCEP2_flux_19890101_20090729.nc" 259 258 initncdf, fi 260 259 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) … … 262 261 lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) & lwr3=reform(lwr3) 263 262 264 fi= tropflux_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc'263 fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 265 264 initncdf, fi 266 265 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) … … 268 267 lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) & lhf3=reform(lhf3) 269 268 270 fi= tropflux_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc'269 fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 271 270 initncdf, fi 272 271 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) … … 285 284 net1=0. & net2=0. & net3=0. 286 285 287 file= tropflux_id_env+"ncep1_flux_19890101_20091231.nc"286 file=project_id_env+"ncep1_flux_19890101_20091231.nc" 288 287 initncdf, file 289 288 … … 381 380 382 381 closeps 383 fig= tropflux_od_env+"WHOTS_validation_net_2004_2007_all_v10.ps"382 fig=project_od_env+"WHOTS_validation_net_2004_2007_all_v10.ps" 384 383 spawn, 'mv '+psdir+'idl.ps '+fig 385 384 spawn, 'gv '+fig -
trunk/src/paper01/fig15/fig15_timeseries_mjo.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; tropflux_general [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_19890101_20091231.nc"];18 ; ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/NCEP2_flux_19890101_20090729.nc"];19 ; erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc"];20 ; ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/fluxe_ncep1_19890101_20091231.nc"];21 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_oafluxgrid_1985_2008.nc"];22 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_oafluxgrid_1985_2008.nc"];23 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lwr_oafluxgrid_1985_2007.nc"];24 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_oafluxgrid_1985_2007.nc"];25 ; olr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/olr_oafluxgrid_30n30s_19890101_20091231.nc"];26 ; 27 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/WHOTS_validation_net_2004_2007_all_v10.ps"];17 ; tropflux_general [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_19890101_20091231.nc"]; 18 ; ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/NCEP2_flux_19890101_20090729.nc"]; 19 ; erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc"]; 20 ; ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/fluxe_ncep1_19890101_20091231.nc"]; 21 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_oafluxgrid_1985_2008.nc"]; 22 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_oafluxgrid_1985_2008.nc"]; 23 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lwr_oafluxgrid_1985_2007.nc"]; 24 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_oafluxgrid_1985_2007.nc"]; 25 ; olr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/olr_oafluxgrid_30n30s_19890101_20091231.nc"]; 26 ; 27 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/WHOTS_validation_net_2004_2007_all_v10.ps"]; 28 28 ; 29 29 ; fig15_timeseries_mjo [shape=box, … … 39 39 ; ======== 40 40 ; 41 ; :ref:` tropflux_profile.sh`42 ; :ref:` tropflux_init.pro`43 ; :ref:`cm_ tropflux.pro`41 ; :ref:`project_profile.sh` 42 ; :ref:`project_init.pro` 43 ; :ref:`cm_project.pro` 44 44 ; 45 45 ; EXAMPLES … … 48 48 ; :: 49 49 ; 50 ; IDL> @tropflux_init51 50 ; IDL> fig15_timeseries_mjo 52 51 ; … … 82 81 pro fig15_timeseries_mjo 83 82 @cm_general 84 @cm_ tropflux83 @cm_project 85 84 reinitplt, /z,/invert 86 85 key_portrait = 1 … … 91 90 box=[50,80,-12,-5] 92 91 93 file_trop= tropflux_id_env+'TropFlux_19890101_20091231.nc'92 file_trop=project_id_env+'TropFlux_19890101_20091231.nc' 94 93 initncdf, file_trop 95 94 shf_trop=read_ncdf("shf", date1, date2, box=box, file=file_trop,/nostr) … … 101 100 trop=grossemoyenne(trop, "xy",/nan) 102 101 103 file_ncep= tropflux_id_env+'NCEP2_flux_19890101_20090729.nc'102 file_ncep=project_id_env+'NCEP2_flux_19890101_20090729.nc' 104 103 initncdf, file_ncep 105 104 shf=read_ncdf("shf", date1, date2, box=box, file=file_ncep,/nostr) … … 112 111 help, nce2 113 112 114 file_erai= tropflux_id_env+'erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc'113 file_erai=project_id_env+'erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc' 115 114 initncdf, file_erai 116 115 shf=read_ncdf("shf", date1, date2, box=box, file=file_erai,/nostr) … … 122 121 help, era 123 122 124 file= tropflux_id_env+'fluxe_ncep1_19890101_20091231.nc'123 file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 125 124 initncdf, file 126 125 lwr=read_ncdf("lwr", date1, date2, box=box, file=file,/nostr) … … 133 132 help, nce 134 133 135 file_oaf= tropflux_id_env+'shf_oafluxgrid_1985_2008.nc'134 file_oaf=project_id_env+'shf_oafluxgrid_1985_2008.nc' 136 135 initncdf, file_oaf 137 136 shf=read_ncdf("shf", date1, date2, box=box, file=file_oaf,/nostr) 138 file_oaf= tropflux_id_env+'lhf_oafluxgrid_1985_2008.nc'137 file_oaf=project_id_env+'lhf_oafluxgrid_1985_2008.nc' 139 138 initncdf, file_oaf 140 139 lhf=read_ncdf("lhf", date1, date2, box=box, file=file_oaf,/nostr) 141 file_oaf= tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc'140 file_oaf=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 142 141 initncdf, file_oaf 143 142 lwr=read_ncdf("lwr", date1, date2, box=box, file=file_oaf,/nostr) 144 file_oaf= tropflux_id_env+'swr_oafluxgrid_1985_2007.nc'143 file_oaf=project_id_env+'swr_oafluxgrid_1985_2007.nc' 145 144 initncdf, file_oaf 146 145 swr=read_ncdf("swr", date1, date2, box=box, file=file_oaf,/nostr) & swr_trop=swr … … 149 148 oafl=grossemoyenne(oafl, "xy",/nan) 150 149 151 file= tropflux_id_env+"olr_oafluxgrid_30n30s_19890101_20091231.nc"150 file=project_id_env+"olr_oafluxgrid_30n30s_19890101_20091231.nc" 152 151 initncdf, file 153 152 olr=read_ncdf("olr", date1-1, date2, box=box, file=file,/nostr) … … 208 207 209 208 closeps 210 fig= tropflux_od_env+'fig15_timeseries_mjo.ps'209 fig=project_od_env+'fig15_timeseries_mjo.ps' 211 210 spawn, 'mv '+psdir+'idl.ps '+fig 212 211 spawn, 'gv '+fig -
trunk/src/paper01/fig16/fig16_timeseries_nino3.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; tropflux_sst [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_sst_19890101_20091231.nc"];18 ; 19 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/WHOTS_validation_net_2004_2007_all_v10.ps"];17 ; tropflux_sst [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_sst_19890101_20091231.nc"]; 18 ; 19 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/WHOTS_validation_net_2004_2007_all_v10.ps"]; 20 20 ; 21 21 ; fig16_timeseries_nino3 [shape=box, … … 31 31 ; ======== 32 32 ; 33 ; :ref:` tropflux_profile.sh`34 ; :ref:` tropflux_init.pro`35 ; :ref:`cm_ tropflux.pro`33 ; :ref:`project_profile.sh` 34 ; :ref:`project_init.pro` 35 ; :ref:`cm_project.pro` 36 36 ; 37 37 ; :func:`x_site_location` … … 43 43 ; :: 44 44 ; 45 ; IDL> @tropflux_init46 45 ; IDL> fig16_timeseries_nino3 47 46 ; … … 77 76 pro fig16_timeseries_nino3 78 77 @cm_general 79 @cm_ tropflux78 @cm_project 80 79 reinitplt, /z,/invert 81 80 key_portrait = 1 … … 85 84 box=[240,330,-5,5] 86 85 87 file_trop= tropflux_id_env+'TropFlux_sst_19890101_20091231.nc'86 file_trop=project_id_env+'TropFlux_sst_19890101_20091231.nc' 88 87 initncdf, file_trop 89 88 sst=read_ncdf("sst", date1, date2, box=box, file=file_trop,/nostr) … … 200 199 201 200 closeps 202 fig= tropflux_od_env+'fig16_timeseries_nino3.ps'201 fig=project_od_env+'fig16_timeseries_nino3.ps' 203 202 spawn, 'mv '+psdir+'idl.ps '+fig 204 203 spawn, 'gv '+fig -
trunk/src/paper01/fig2/fig2_timeline_diagram.pro
r47 r50 16 16 ; ] 17 17 ; 18 ; qlat [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/qlat*_dy.cdf"];19 ; lwnet [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lwnet*_dy.cdf"];20 ; swnet [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swnet*_dy.cdf"];18 ; qlat [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/qlat*_dy.cdf"]; 19 ; lwnet [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lwnet*_dy.cdf"]; 20 ; swnet [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swnet*_dy.cdf"]; 21 21 ; fig2_timeline_diagram [shape=box, 22 22 ; fontname=Courier, … … 25 25 ; label="${TROPFLUX}/src/paper01/fig2/fig2_timeline_diagram.pro"]; 26 26 ; 27 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/fig2_timeline_diagram.ps"];27 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/fig2_timeline_diagram.ps"]; 28 28 ; 29 29 ; {qlat lwnet swnet} -> {fig2_timeline_diagram} -> {figure} … … 33 33 ; ======== 34 34 ; 35 ; :ref:` tropflux_profile.sh`36 ; :ref:` tropflux_init.pro`35 ; :ref:`project_profile.sh` 36 ; :ref:`project_init.pro` 37 37 ; 38 38 ; :ref:`read_lh.pro` … … 48 48 ; :: 49 49 ; 50 ; IDL> @tropflux_init51 50 ; IDL> fig2_timeline_diagram 52 51 ; … … 88 87 pro fig2_timeline_diagram 89 88 90 @cm_ tropflux89 @cm_project 91 90 @cm_general 92 91 … … 210 209 pltt, no_obs_lh, "t",/ov1d 211 210 closeps 212 fig= tropflux_od_env + 'fig2_timeline_diagram.ps'211 fig=project_od_env + 'fig2_timeline_diagram.ps' 213 212 spawn, 'mv '+psdir+'idl.ps '+fig 214 213 spawn, 'gv '+fig -
trunk/src/paper01/fig2/read_lh.pro
r44 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; qlat [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/qlat*_dy.cdf"];17 ; qlat [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/qlat*_dy.cdf"]; 18 18 ; 19 19 ; lh [shape=tab,fontname=Courier,label="lh"] … … 31 31 ; ======== 32 32 ; 33 ; :ref:` tropflux_profile.sh`34 ; :ref:` tropflux_init.pro`35 ; :ref:`cm_ tropflux.pro`33 ; :ref:`project_profile.sh` 34 ; :ref:`project_init.pro` 35 ; :ref:`cm_project.pro` 36 36 ; 37 37 ; :func:`time_lec` … … 44 44 ; :: 45 45 ; 46 ; IDL> @tropflux_init47 46 ; IDL> csite='8s67e' 48 47 ; IDL> date1=19890101L … … 74 73 pro read_lh, csite, date1, date2, nsmooth, lh 75 74 ; 76 @cm_ tropflux75 @cm_project 77 76 78 77 ;; DEFINE THE OUTPUT TIME AXIS … … 91 90 92 91 ;;LHF 93 fi= tropflux_id_env+'qlat'+csite+'_dy.cdf'92 fi=project_id_env+'qlat'+csite+'_dy.cdf' 94 93 f=file_test(fi) 95 94 lh=fltarr(jpt)+!values.f_nan -
trunk/src/paper01/fig2/read_lw.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; lwnet [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lwnet*_dy.cdf"];17 ; lwnet [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lwnet*_dy.cdf"]; 18 18 ; lw [shape=tab,fontname=Courier,label="lw"] 19 19 ; … … 31 31 ; ======== 32 32 ; 33 ; :ref:`tropflux_profile.sh` 33 ; :ref:`project_profile.sh` 34 ; :ref:`project_init.pro` 34 35 ; 35 36 ; :func:`time_lec` … … 42 43 ; :: 43 44 ; 44 ; IDL> @tropflux_init45 45 ; IDL> csite='8s67e' 46 46 ; IDL> date1=19890101L … … 75 75 pro read_lw, csite, date1, date2, box, lw 76 76 ; 77 @cm_ tropflux77 @cm_project 78 78 79 79 ;; DEFINE THE OUTPUT TIME AXIS … … 91 91 92 92 ;; LWR 93 fi= tropflux_id_env+'lwnet'+csite+'_dy.cdf'93 fi=project_id_env+'lwnet'+csite+'_dy.cdf' 94 94 f=file_test(fi) 95 95 lw=fltarr(jpt)+!values.f_nan -
trunk/src/paper01/fig2/read_sw.pro
r47 r50 16 16 ; rankdir="LR", 17 17 ; ] 18 ; swnet [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swnet*_dy.cdf"];18 ; swnet [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swnet*_dy.cdf"]; 19 19 ; 20 20 ; sw [shape=tab,fontname=Courier,label="sw"] … … 32 32 ; ======== 33 33 ; 34 ; :ref:` tropflux_profile.sh`34 ; :ref:`project_profile.sh` 35 35 ; 36 36 ; :func:`time_lec` … … 43 43 ; :: 44 44 ; 45 ; IDL> @tropflux_init46 45 ; IDL> csite='8s67e' 47 46 ; IDL> date1=19890101L … … 78 77 pro read_sw, csite, date1, date2, box, sw 79 78 ; 80 @cm_ tropflux79 @cm_project 81 80 ; 82 81 ;; DEFINE THE OUTPUT TIME AXIS … … 94 93 95 94 ;; SWR 96 fi= tropflux_id_env+'swnet'+csite+'_dy.cdf'95 fi=project_id_env+'swnet'+csite+'_dy.cdf' 97 96 f=file_test(fi) 98 97 sw=fltarr(jpt)+!values.f_nan ;; swr -
trunk/src/paper01/fig3/air_validation_scatter_2000_2009_v50.pro
r46 r50 17 17 ; ] 18 18 ; 19 ; air_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/air_2000_2009_erai_v50.txt"];20 ; 21 ; air_trop [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/air_2000_2009_trop_v50.txt"];22 ; air_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/air_2000_2009_oaflx_v50.txt"];23 ; air_ncep [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/air_2000_2009_ncep_v50.txt"];24 ; air_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/air_2000_2009_ncep1_v50.txt"];25 ; air_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/air_2000_2009_ncep2_v50.txt"];26 ; air_ncep2_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/air_2m_ncep2_oafluxgrid_19890101_20091231.nc"];27 ; 28 ; t2m_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/t2m_ncep1_19890101_20091231.nc"];29 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/air_validation_scatter_2000_2009_v50.ps"];30 ; 31 ; erai_t2m [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_t2m_19890101_20091231_oafluxgrid.nc"];32 ; 33 ; tropflux_t2m [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_t2m_19890101_20091231_v50.nc"];34 ; 35 ; oaflux_basic [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/OAFlux_basic_variables_1985_2009.nc"];19 ; air_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/air_2000_2009_erai_v50.txt"]; 20 ; 21 ; air_trop [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/air_2000_2009_trop_v50.txt"]; 22 ; air_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/air_2000_2009_oaflx_v50.txt"]; 23 ; air_ncep [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/air_2000_2009_ncep_v50.txt"]; 24 ; air_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/air_2000_2009_ncep1_v50.txt"]; 25 ; air_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/air_2000_2009_ncep2_v50.txt"]; 26 ; air_ncep2_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/air_2m_ncep2_oafluxgrid_19890101_20091231.nc"]; 27 ; 28 ; t2m_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/t2m_ncep1_19890101_20091231.nc"]; 29 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/air_validation_scatter_2000_2009_v50.ps"]; 30 ; 31 ; erai_t2m [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_t2m_19890101_20091231_oafluxgrid.nc"]; 32 ; 33 ; tropflux_t2m [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_t2m_19890101_20091231_v50.nc"]; 34 ; 35 ; oaflux_basic [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/OAFlux_basic_variables_1985_2009.nc"]; 36 36 ; 37 37 ; air_validation_scatter_2000_2009_v50 [shape=box, … … 48 48 ; ======== 49 49 ; 50 ; :ref:` tropflux_profile.sh`51 ; :ref:` tropflux_init.pro`52 ; :ref:`cm_ tropflux.pro`50 ; :ref:`project_profile.sh` 51 ; :ref:`project_init.pro` 52 ; :ref:`cm_project.pro` 53 53 ; 54 54 ; :func:`x_site_location` … … 63 63 ; :: 64 64 ; 65 ; IDL> @tropflux_init66 65 ; IDL> date1=20001001L 67 66 ; IDL> date2=20091231L … … 102 101 pro air_validation_scatter_2000_2009_v50, date1, date2 103 102 104 @cm_ tropflux103 @cm_project 105 104 106 105 reinitplt, /z,/invert … … 129 128 close,/all 130 129 131 fi_air_erai= tropflux_id_env+'air_2000_2009_erai_v50.txt'130 fi_air_erai=project_id_env+'air_2000_2009_erai_v50.txt' 132 131 openw,1,fi_air_erai 133 fi_air_trop= tropflux_id_env+'air_2000_2009_trop_v50.txt'132 fi_air_trop=project_id_env+'air_2000_2009_trop_v50.txt' 134 133 openw,2,fi_air_trop 135 fi_air_oaflx= tropflux_id_env+'air_2000_2009_oaflx_v50.txt'134 fi_air_oaflx=project_id_env+'air_2000_2009_oaflx_v50.txt' 136 135 openw,3,fi_air_oaflx 137 fi_air_ncep2= tropflux_id_env+'air_2000_2009_ncep2_v50.txt'136 fi_air_ncep2=project_id_env+'air_2000_2009_ncep2_v50.txt' 138 137 openw,4,fi_air_ncep2 139 fi_air_ncep1= tropflux_id_env+'air_2000_2009_ncep1_v50.txt'138 fi_air_ncep1=project_id_env+'air_2000_2009_ncep1_v50.txt' 140 139 openw,5,fi_air_ncep1 141 140 … … 149 148 ;; first reading the whole ERAI uncorrected and corrected data 150 149 151 file= tropflux_id_env+'erai_t2m_19890101_20091231_oafluxgrid.nc'150 file=project_id_env+'erai_t2m_19890101_20091231_oafluxgrid.nc' 152 151 initncdf, file 153 152 unc=read_ncdf('t2m',date1,date2,file=file,/nostr) & unc=unc-273.15 154 153 help, unc 155 154 156 file= tropflux_id_env+'TropFlux_t2m_19890101_20091231_v50.nc'155 file=project_id_env+'TropFlux_t2m_19890101_20091231_v50.nc' 157 156 initncdf, file 158 157 cor=read_ncdf('t2m',date1,date2,file=file,/nostr) & cor=cor-273.15 159 158 help, cor 160 159 161 file= tropflux_id_env+'OAFlux_basic_variables_1985_2009.nc'160 file=project_id_env+'OAFlux_basic_variables_1985_2009.nc' 162 161 initncdf, file 163 162 oaf=read_ncdf("air", date1, date2, file=file,/nostr) 164 163 help, oaf 165 164 166 fi= tropflux_id_env+'air_2m_ncep2_oafluxgrid_19890101_20091231.nc'165 fi=project_id_env+'air_2m_ncep2_oafluxgrid_19890101_20091231.nc' 167 166 initncdf, fi 168 167 nce=read_ncdf("air", date1-1, date2, file=fi,/nostr) … … 170 169 help, nce 171 170 172 file= tropflux_id_env+'t2m_ncep1_19890101_20091231.nc'171 file=project_id_env+'t2m_ncep1_19890101_20091231.nc' 173 172 initncdf, file 174 173 nce1=read_ncdf("t2m", date1, date2, file=file,/nostr) … … 245 244 close,/all 246 245 247 fi_air_erai= tropflux_id_env+'air_2000_2009_erai_v50.txt'246 fi_air_erai=project_id_env+'air_2000_2009_erai_v50.txt' 248 247 res=read_ascii(fi_air_erai,data_start=1) 249 248 ff=res.field1 … … 271 270 oplot, mean_tao, yfit, color=250, thick=2 272 271 273 fi_air_trop= tropflux_id_env+'air_2000_2009_trop_v50.txt'272 fi_air_trop=project_id_env+'air_2000_2009_trop_v50.txt' 274 273 res=read_ascii(fi_air_trop,data_start=1) 275 274 ff=res.field1 … … 298 297 oplot, mean_tao, yfit, color=250, thick=2 299 298 300 fi_air_oaflx= tropflux_id_env+'air_2000_2009_oaflx_v50.txt'299 fi_air_oaflx=project_id_env+'air_2000_2009_oaflx_v50.txt' 301 300 res=read_ascii(fi_air_oaflx,data_start=1) 302 301 ff=res.field1 … … 327 326 328 327 329 fi_air_ncep= tropflux_id_env+'air_2000_2009_ncep_v50.txt'328 fi_air_ncep=project_id_env+'air_2000_2009_ncep_v50.txt' 330 329 res=read_ascii(fi_air_ncep,data_start=1) 331 330 ff=res.field1 … … 354 353 oplot, mean_tao, yfit, color=250, thick=2 355 354 356 fi_air_ncep1= tropflux_id_env+'air_2000_2009_ncep1_v50.txt'355 fi_air_ncep1=project_id_env+'air_2000_2009_ncep1_v50.txt' 357 356 res=read_ascii(fi_air_ncep1,data_start=1) 358 357 ff=res.field1 … … 383 382 closeps 384 383 385 fig= tropflux_od_env+'air_validation_scatter_2000_2009_v50.ps'384 fig=project_od_env+'air_validation_scatter_2000_2009_v50.ps' 386 385 spawn, 'mv '+psdir+'idl.ps '+fig 387 386 spawn, 'gv '+fig -
trunk/src/paper01/fig3/q2m_validation_scatter_2000_2009_v50.pro
r47 r50 17 17 ; ] 18 18 ; 19 ; q2m_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/q2m_2000_2009_erai_v50.txt"];20 ; 21 ; q2m_trop [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/q2m_2000_2009_trop_v50.txt"];22 ; q2m_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/q2m_2000_2009_oaflx_v50.txt"];23 ; q2m_ncep [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/q2m_2000_2009_ncep_v50.txt"];24 ; q2m_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/q2m_2000_2009_ncep1_v50.txt"];25 ; 26 ; erai_q2m_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_t2m_19890101_20091231_oafluxgrid.nc"];27 ; 28 ; tropflux_q2m [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_q2m_19890101_20091231_v50.nc"];29 ; 30 ; oaflux_basic [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/OAFlux_basic_variables_1985_2009.nc"];31 ; 32 ; sphum_ncep2_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/sphum_ncep2_oafluxgrid_19890101_20091231.nc"];19 ; q2m_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/q2m_2000_2009_erai_v50.txt"]; 20 ; 21 ; q2m_trop [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/q2m_2000_2009_trop_v50.txt"]; 22 ; q2m_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/q2m_2000_2009_oaflx_v50.txt"]; 23 ; q2m_ncep [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/q2m_2000_2009_ncep_v50.txt"]; 24 ; q2m_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/q2m_2000_2009_ncep1_v50.txt"]; 25 ; 26 ; erai_q2m_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_t2m_19890101_20091231_oafluxgrid.nc"]; 27 ; 28 ; tropflux_q2m [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_q2m_19890101_20091231_v50.nc"]; 29 ; 30 ; oaflux_basic [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/OAFlux_basic_variables_1985_2009.nc"]; 31 ; 32 ; sphum_ncep2_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/sphum_ncep2_oafluxgrid_19890101_20091231.nc"]; 33 33 ; 34 34 ; q2m_validation_scatter_2000_2009_v50 [shape=box, … … 38 38 ; label="${TROPFLUX}/src/paper01/fig3/q2m_validation_scatter_2000_2009_v50.pro"]; 39 39 ; 40 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/q2m_validation_scatter_2000_2009_v50.ps"];40 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/q2m_validation_scatter_2000_2009_v50.ps"]; 41 41 ; 42 42 ; {q2m_erai erai_q2m_oafluxgrid tropflux_q2m oaflux_basic sphum_ncep2_oafluxgrid} -> {q2m_validation_scatter_2000_2009_v50} -> {q2m_trop q2m_oaflux q2m_ncep q2m_ncep1 figure} … … 47 47 ; ======== 48 48 ; 49 ; :ref:` tropflux_profile.sh`50 ; :ref:` tropflux_init.pro`51 ; :ref:`cm_ tropflux.pro`49 ; :ref:`project_profile.sh` 50 ; :ref:`project_init.pro` 51 ; :ref:`cm_project.pro` 52 52 ; 53 53 ; :func:`x_site_location` … … 62 62 ; :: 63 63 ; 64 ; IDL> @tropflux_init65 64 ; IDL> date1=20001001L 66 65 ; IDL> date2=20091231L … … 104 103 pro q2m_validation_scatter_2000_2009_v50, date1, date2 105 104 106 @cm_ tropflux105 @cm_project 107 106 108 107 reinitplt, /z,/invert … … 131 130 close,/all 132 131 133 fi_q2m_erai= tropflux_id_env+'q2m_2000_2009_erai_v50.txt'132 fi_q2m_erai=project_id_env+'q2m_2000_2009_erai_v50.txt' 134 133 openw,1,fi_q2m_erai 135 fi_q2m_trop= tropflux_id_env+'q2m_2000_2009_trop_v50.txt'134 fi_q2m_trop=project_id_env+'q2m_2000_2009_trop_v50.txt' 136 135 openw,2,fi_q2m_trop 137 fi_q2m_oaflx= tropflux_id_env+'q2m_2000_2009_oaflx_v50.txt'136 fi_q2m_oaflx=project_id_env+'q2m_2000_2009_oaflx_v50.txt' 138 137 openw,3,fi_q2m_oaflx 139 fi_q2m_ncep= tropflux_id_env+'q2m_2000_2009_ncep_v50.txt'138 fi_q2m_ncep=project_id_env+'q2m_2000_2009_ncep_v50.txt' 140 139 openw,4,fi_q2m_ncep 141 fi_q2m_ncep1= tropflux_id_env+'q2m_2000_2009_ncep1_v50.txt'140 fi_q2m_ncep1=project_id_env+'q2m_2000_2009_ncep1_v50.txt' 142 141 openw,5,fi_q2m_ncep1 143 142 … … 151 150 ;; first reading the whole ERAI uncorrected and corrected data 152 151 153 file= tropflux_id_env+'erai_q2m_19890101_20091231_oafluxgrid.nc'152 file=project_id_env+'erai_q2m_19890101_20091231_oafluxgrid.nc' 154 153 initncdf, file 155 154 unc=read_ncdf('q2m',date1,date2,file=file,/nostr) 156 155 help, unc 157 156 158 file= tropflux_id_env+'TropFlux_q2m_19890101_20091231_v20.nc'157 file=project_id_env+'TropFlux_q2m_19890101_20091231_v20.nc' 159 158 initncdf, file 160 159 cor=read_ncdf('q2m',date1,date2,file=file,/nostr) 161 160 help, cor 162 161 163 file= tropflux_id_env+'OAFlux_basic_variables_1985_2009.nc'162 file=project_id_env+'OAFlux_basic_variables_1985_2009.nc' 164 163 initncdf, file 165 164 oaf=read_ncdf("sphum", date1, date2, file=file,/nostr) 166 165 help, oaf 167 166 168 fi= tropflux_id_env+'sphum_ncep2_oafluxgrid_19890101_20091231.nc'167 fi=project_id_env+'sphum_ncep2_oafluxgrid_19890101_20091231.nc' 169 168 initncdf, fi 170 169 nce=read_ncdf("shum", date1-1, date2, file=fi,/nostr) … … 172 171 help, nce 173 172 174 file= tropflux_id_env+'q2m_ncep1_19890101_20091231.nc'173 file=project_id_env+'q2m_ncep1_19890101_20091231.nc' 175 174 initncdf, file 176 175 nce1=read_ncdf("q2m", date1, date2, file=file,/nostr) … … 246 245 close,/all 247 246 248 fi_q2m_erai= tropflux_id_env+'q2m_2000_2009_erai_v50.txt'247 fi_q2m_erai=project_id_env+'q2m_2000_2009_erai_v50.txt' 249 248 res=read_ascii(fi_q2m_erai,data_start=1) 250 249 ff=res.field1 … … 272 271 oplot, mean_tao, yfit, color=250, thick=2 273 272 274 fi_q2m_trop= tropflux_id_env+'q2m_2000_2009_trop_v50.txt'273 fi_q2m_trop=project_id_env+'q2m_2000_2009_trop_v50.txt' 275 274 res=read_ascii(fi_q2m_trop,data_start=1) 276 275 ff=res.field1 … … 299 298 oplot, mean_tao, yfit, color=250, thick=2 300 299 301 fi_q2m_oaflx= tropflux_id_env+'q2m_2000_2009_oaflx_v50.txt'300 fi_q2m_oaflx=project_id_env+'q2m_2000_2009_oaflx_v50.txt' 302 301 res=read_ascii(fi_q2m_oaflx,data_start=1) 303 302 ff=res.field1 … … 327 326 328 327 329 fi_q2m_ncep= tropflux_id_env+'q2m_2000_2009_ncep_v50.txt'328 fi_q2m_ncep=project_id_env+'q2m_2000_2009_ncep_v50.txt' 330 329 res=read_ascii(fi_q2m_ncep,data_start=1) 331 330 ff=res.field1 … … 354 353 oplot, mean_tao, yfit, color=250, thick=2 355 354 356 fi_q2m_ncep1= tropflux_id_env+'q2m_2000_2009_ncep1_v50.txt'355 fi_q2m_ncep1=project_id_env+'q2m_2000_2009_ncep1_v50.txt' 357 356 res=read_ascii(fi_q2m_ncep1,data_start=1) 358 357 ff=res.field1 … … 383 382 closeps 384 383 385 fig= tropflux_od_env+'q2m_validation_scatter_2000_2009_v50.ps'384 fig=project_od_env+'q2m_validation_scatter_2000_2009_v50.ps' 386 385 spawn, 'mv '+psdir+'idl.ps '+fig 387 386 spawn, 'gv '+fig -
trunk/src/paper01/fig3/read_variables_v2.pro
r46 r50 16 16 ; rankdir="LR", 17 17 ; ] 18 ; rad [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/rad*_dy.cdf"];19 ; qlat[shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/qlat*_dy.cdf"];20 ; pos[shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/pos*_dy.cdf"];21 ; met[shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/met*_dy.cdf"];18 ; rad [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/rad*_dy.cdf"]; 19 ; qlat[shape=ellipse,fontname=Courier,label="${PROJECT_ID}/qlat*_dy.cdf"]; 20 ; pos[shape=ellipse,fontname=Courier,label="${PROJECT_ID}/pos*_dy.cdf"]; 21 ; met[shape=ellipse,fontname=Courier,label="${PROJECT_ID}/met*_dy.cdf"]; 22 22 ; 23 23 ; at [shape=tab,fontname=Courier,label="at"] … … 42 42 ; ======== 43 43 ; 44 ; :ref:` tropflux_profile.sh`44 ; :ref:`project_profile.sh` 45 45 ; 46 46 ; :ref:`air_validation_scatter_2000_2009_v50.pro` … … 60 60 ; :: 61 61 ; 62 ; IDL> @tropflux_init63 62 ; IDL> csite=++ 64 63 ; IDL> ++ … … 89 88 pro read_variables_v2, csite, date1, date2, nsmooth, $ 90 89 at, sw, rh, sst, wu, wv, ws, lh 91 @cm_ tropflux90 @cm_project 92 91 ; 93 92 ;; DEFINE THE OUTPUT TIME AXIS … … 104 103 ; 105 104 ;;SHORTWAVE 106 fi= tropflux_id_env+'rad'+csite+'_dy.cdf'105 fi=project_id_env+'rad'+csite+'_dy.cdf' 107 106 f=file_test(fi) 108 107 sw=fltarr(jpt)+!values.f_nan … … 126 125 127 126 ;;LHF 128 fi= tropflux_id_env+'qlat'+csite+'_dy.cdf'127 fi=project_id_env+'qlat'+csite+'_dy.cdf' 129 128 f=file_test(fi) 130 129 lh=fltarr(jpt)+!values.f_nan … … 145 144 146 145 ;;POSITION 147 fi= tropflux_id_env+'pos'+csite+'_dy.cdf'146 fi=project_id_env+'pos'+csite+'_dy.cdf' 148 147 f=file_test(fi) 149 148 lat=fltarr(jpt)+!values.f_nan … … 165 164 166 165 ;;MET PARAMETERS 167 fi= tropflux_id_env+'met'+csite+'_dy.cdf'166 fi=project_id_env+'met'+csite+'_dy.cdf' 168 167 f=file_test(fi) 169 168 wu=fltarr(jpt)+!values.f_nan -
trunk/src/paper01/fig3/sst_validation_scatter_2000_2009_v50.pro
r47 r50 16 16 ; ] 17 17 ; 18 ; sst_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/sst_2000_2009_erai_v50.txt"];19 ; sst_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_2000_2009_trop_v50.txt"];20 ; sst_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_2000_2009_oaflx_v50.txt"];21 ; sst_tmi [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_2000_2009_tmi_v50.txt"];22 ; sst_ncep [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_2000_2009_ncep_v50.txt"];23 ; sst_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_2000_2009_ncep1_v50.txt"];24 ; sst_erai_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_sst_19890101_20091231_oafluxgrid.nc"];25 ; sst_tropflux_2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_sst_19890101_20091231_v20.nc"];26 ; oaflux_basic [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/OAFlux_basic_variables_1985_2009.nc"];27 ; sst_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/sst_NCEP2_global_monthly_1989_2009.nc"];28 ; sst_tmi_2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/tmi_OI_oafluxgrid_30N30S.nc"];29 ; sst_ncep1_2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/sst_ncep1_19890101_20091231.nc"];30 ; 31 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/WHOTS_validation_net_2004_2007_all_v10.ps"];18 ; sst_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/sst_2000_2009_erai_v50.txt"]; 19 ; sst_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_2000_2009_trop_v50.txt"]; 20 ; sst_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_2000_2009_oaflx_v50.txt"]; 21 ; sst_tmi [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_2000_2009_tmi_v50.txt"]; 22 ; sst_ncep [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_2000_2009_ncep_v50.txt"]; 23 ; sst_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_2000_2009_ncep1_v50.txt"]; 24 ; sst_erai_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_sst_19890101_20091231_oafluxgrid.nc"]; 25 ; sst_tropflux_2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_sst_19890101_20091231_v20.nc"]; 26 ; oaflux_basic [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/OAFlux_basic_variables_1985_2009.nc"]; 27 ; sst_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/sst_NCEP2_global_monthly_1989_2009.nc"]; 28 ; sst_tmi_2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/tmi_OI_oafluxgrid_30N30S.nc"]; 29 ; sst_ncep1_2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/sst_ncep1_19890101_20091231.nc"]; 30 ; 31 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/WHOTS_validation_net_2004_2007_all_v10.ps"]; 32 32 ; 33 33 ; sst_validation_scatter_2000_2009_v50 [shape=box, … … 43 43 ; ======== 44 44 ; 45 ; :ref:` tropflux_profile.sh`46 ; :ref:` tropflux_init.pro`47 ; :ref:`cm_ tropflux.pro`45 ; :ref:`project_profile.sh` 46 ; :ref:`project_init.pro` 47 ; :ref:`cm_project.pro` 48 48 ; 49 49 ; :func:`x_site_location` … … 58 58 ; :: 59 59 ; 60 ; IDL> @tropflux_init61 60 ; IDL> date1=19890101L 62 61 ; IDL> date2=20091231L … … 96 95 pro sst_validation_scatter_2000_2009_v50, date1, date2 97 96 @cm_general 98 @cm_ tropflux97 @cm_project 99 98 reinitplt, /z,/invert 100 99 key_portrait = 1 … … 122 121 close,/all 123 122 124 fi_sst_erai= tropflux_id_env+'sst_2000_2009_erai_v50.txt'123 fi_sst_erai=project_id_env+'sst_2000_2009_erai_v50.txt' 125 124 openw,1,fi_sst_erai 126 fi_sst_trop= tropflux_id_env+'sst_2000_2009_trop_v50.txt'125 fi_sst_trop=project_id_env+'sst_2000_2009_trop_v50.txt' 127 126 openw,2,fi_sst_trop 128 fi_sst_oaflx= tropflux_id_env+'sst_2000_2009_oaflx_v50.txt'127 fi_sst_oaflx=project_id_env+'sst_2000_2009_oaflx_v50.txt' 129 128 openw,3,fi_sst_oaflx 130 fi_sst_ncep= tropflux_id_env+'sst_2000_2009_ncep_v50.txt'129 fi_sst_ncep=project_id_env+'sst_2000_2009_ncep_v50.txt' 131 130 openw,4,fi_sst_ncep 132 fi_sst_tmi= tropflux_id_env+'sst_2000_2009_tmi_v50.txt'131 fi_sst_tmi=project_id_env+'sst_2000_2009_tmi_v50.txt' 133 132 openw,5,fi_sst_tmi 134 fi_sst_ncep1= tropflux_id_env+'sst_2000_2009_ncep1_v50.txt'133 fi_sst_ncep1=project_id_env+'sst_2000_2009_ncep1_v50.txt' 135 134 openw,6,fi_sst_ncep1 136 135 … … 146 145 ;; first reading the whole ERAI uncorrected and corrected data 147 146 148 file= tropflux_id_env+'erai_sst_19890101_20091231_oafluxgrid.nc'147 file=project_id_env+'erai_sst_19890101_20091231_oafluxgrid.nc' 149 148 initncdf, file 150 149 unc=read_ncdf('sst',date1,date2,file=file,/nostr) & unc=unc-273.15 151 150 help, unc 152 151 153 file= tropflux_id_env+'TropFlux_sst_19890101_20091231_v20.nc'152 file=project_id_env+'TropFlux_sst_19890101_20091231_v20.nc' 154 153 initncdf, file 155 154 cor=read_ncdf('sst',date1,date2,file=file,/nostr) & cor=cor-273.15 156 155 help, cor 157 156 158 file= tropflux_id_env+'OAFlux_basic_variables_1985_2009.nc'157 file=project_id_env+'OAFlux_basic_variables_1985_2009.nc' 159 158 initncdf, file 160 159 oaf=read_ncdf("sst", date1, date2, file=file,/nostr) 161 160 help, oaf 162 161 163 fi= tropflux_id_env+'sst_ncep2_oafluxgrid_19890101_20091231.nc'162 fi=project_id_env+'sst_ncep2_oafluxgrid_19890101_20091231.nc' 164 163 initncdf, fi 165 164 nce=read_ncdf("sst", date1-1, date2, file=fi,/nostr) … … 167 166 help, nce 168 167 169 fi= tropflux_id_env+'tmi_OI_oafluxgrid_30N30S.nc'168 fi=project_id_env+'tmi_OI_oafluxgrid_30N30S.nc' 170 169 initncdf, fi 171 170 sst_tmi=read_ncdf("sst", date1, date2, file=fi,/nostr) 172 171 help, sst_tmi 173 172 174 file= tropflux_id_env+'sst_ncep1_19890101_20091231.nc'173 file=project_id_env+'sst_ncep1_19890101_20091231.nc' 175 174 initncdf, file 176 175 nce1=read_ncdf("sst", date1, date2, file=file,/nostr) … … 250 249 close,/all 251 250 252 fi_sst_erai= tropflux_id_env+'sst_2000_2009_v50_erai.txt'251 fi_sst_erai=project_id_env+'sst_2000_2009_v50_erai.txt' 253 252 res=read_ascii(fi_sst_erai,data_start=1) 254 253 ff=res.field1 … … 276 275 oplot, mean_tao, yfit, color=250, thick=2 277 276 278 fi_sst_trop= tropflux_id_env+'sst_2000_2009_v50_trop.txt'277 fi_sst_trop=project_id_env+'sst_2000_2009_v50_trop.txt' 279 278 res=read_ascii(fi_sst_trop,data_start=1) 280 279 ff=res.field1 … … 303 302 oplot, mean_tao, yfit, color=250, thick=2 304 303 305 fi_sst_oaflx= tropflux_id_env+'sst_2000_2009_v50_oaflx.txt'304 fi_sst_oaflx=project_id_env+'sst_2000_2009_v50_oaflx.txt' 306 305 res=read_ascii(fi_sst_oaflx,data_start=1) 307 306 ff=res.field1 … … 332 331 333 332 334 fi_sst_ncep= tropflux_id_env+'sst_2000_2009_v50_ncep.txt'333 fi_sst_ncep=project_id_env+'sst_2000_2009_v50_ncep.txt' 335 334 res=read_ascii(fi_sst_ncep,data_start=1) 336 335 ff=res.field1 … … 360 359 361 360 362 fi_sst_tmi= tropflux_id_env+'sst_2000_2009_v50_tmi.txt'361 fi_sst_tmi=project_id_env+'sst_2000_2009_v50_tmi.txt' 363 362 res=read_ascii(fi_sst_tmi,data_start=1) 364 363 ff=res.field1 … … 387 386 oplot, mean_tao, yfit, color=250, thick=2 388 387 389 fi_sst_ncep1= tropflux_id_env+'sst_2000_2009_v50_ncep1.txt'388 fi_sst_ncep1=project_id_env+'sst_2000_2009_v50_ncep1.txt' 390 389 res=read_ascii(fi_sst_ncep1,data_start=1) 391 390 ff=res.field1 … … 416 415 closeps 417 416 418 fig= tropflux_od_env+'sst_validation_scatter_2000_2009_v50.ps'417 fig=project_od_env+'sst_validation_scatter_2000_2009_v50.ps' 419 418 spawn, 'mv '+psdir+'idl.ps '+fig 420 419 spawn, 'gv '+fig -
trunk/src/paper01/fig3/statistics_3var_v1.pro
r46 r50 12 12 ; ======== 13 13 ; 14 ; :ref:` tropflux_profile.sh`14 ; :ref:`project_profile.sh` 15 15 ; 16 16 ; :ref:`net_flux_validation_scatter_2000_2007.pro` … … 33 33 ; :: 34 34 ; 35 ; IDL> @tropflux_init36 35 ; IDL> tao=++ 37 36 ; IDL> ++ … … 51 50 cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 52 51 53 @cm_ tropflux52 @cm_project 54 53 x=tao & y=var1 & z=var2 55 54 -
trunk/src/paper01/fig3/ws_validation_scatter_2000_2009_v50.pro
r47 r50 16 16 ; ] 17 17 ; 18 ; ws_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ws_2000_2009_erai_v50.txt"];19 ; ws_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/ws_2000_2009_trop_v50.txt"];20 ; ws_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/ws_2000_2009_oaflx_v50.txt"];21 ; ws_ncep [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/ws_2000_2009_ncep_v50.txt"];22 ; ws_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/ws_2000_2009_ncep1_v50.txt"];23 ; ws_erai_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_ws_19890101_20091231_oafluxgrid.nc"];24 ; ws_tropflux_2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_ws_19890101_20091231_v20.nc"];25 ; oaflux_basic [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/OAFlux_basic_variables_1985_2009.nc"];26 ; uwind_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/uwind_ncep2_oafluxgrid_19890101_20091231.nc"];27 ; vwind_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/bwind_ncep2_oafluxgrid_19890101_20091231.nc"];28 ; ws_tmi [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/zonal_wind_speed_oafluxgrid_30N30S.nc"];29 ; 30 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/ws_validation_scatter_2000_2009_v50.ps"];18 ; ws_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ws_2000_2009_erai_v50.txt"]; 19 ; ws_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_2000_2009_trop_v50.txt"]; 20 ; ws_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_2000_2009_oaflx_v50.txt"]; 21 ; ws_ncep [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_2000_2009_ncep_v50.txt"]; 22 ; ws_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_2000_2009_ncep1_v50.txt"]; 23 ; ws_erai_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_ws_19890101_20091231_oafluxgrid.nc"]; 24 ; ws_tropflux_2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_ws_19890101_20091231_v20.nc"]; 25 ; oaflux_basic [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/OAFlux_basic_variables_1985_2009.nc"]; 26 ; uwind_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/uwind_ncep2_oafluxgrid_19890101_20091231.nc"]; 27 ; vwind_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/bwind_ncep2_oafluxgrid_19890101_20091231.nc"]; 28 ; ws_tmi [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/zonal_wind_speed_oafluxgrid_30N30S.nc"]; 29 ; 30 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_validation_scatter_2000_2009_v50.ps"]; 31 31 ; 32 32 ; ws_validation_scatter_2000_2009_v50 [shape=box, … … 42 42 ; ======== 43 43 ; 44 ; :ref:` tropflux_profile.sh`45 ; :ref:` tropflux_init.pro`46 ; :ref:`cm_ tropflux.pro`44 ; :ref:`project_profile.sh` 45 ; :ref:`project_init.pro` 46 ; :ref:`cm_project.pro` 47 47 ; 48 48 ; :func:`x_site_location` … … 57 57 ; :: 58 58 ; 59 ; IDL> @tropflux_init60 59 ; IDL> date1=19890101L 61 60 ; IDL> date2=20091231L … … 96 95 pro ws_validation_scatter_2000_2009_v50, date1, date2 97 96 @cm_general 98 @cm_ tropflux97 @cm_project 99 98 reinitplt, /z,/invert 100 99 key_portrait = 1 … … 123 122 close,/all 124 123 125 fi_ws_erai= tropflux_id_env+'ws_2000_2009_erai_v50.txt'124 fi_ws_erai=project_id_env+'ws_2000_2009_erai_v50.txt' 126 125 openw,1,fi_ws_erai 127 fi_ws_trop= tropflux_id_env+'ws_2000_2009_trop_v50.txt'126 fi_ws_trop=project_id_env+'ws_2000_2009_trop_v50.txt' 128 127 openw,2,fi_ws_trop 129 fi_ws_oaflx= tropflux_id_env+'ws_2000_2009_oaflx_v50.txt'128 fi_ws_oaflx=project_id_env+'ws_2000_2009_oaflx_v50.txt' 130 129 openw,3,fi_ws_oaflx 131 fi_ws_ncep= tropflux_id_env+'ws_2000_2009_ncep_v50.txt'130 fi_ws_ncep=project_id_env+'ws_2000_2009_ncep_v50.txt' 132 131 openw,4,fi_ws_ncep 133 fi_ws_tmi= tropflux_id_env+'ws_2000_2009_tmi_v50.txt'132 fi_ws_tmi=project_id_env+'ws_2000_2009_tmi_v50.txt' 134 133 openw,5,fi_ws_tmi 135 fi_ws_ncep1= tropflux_id_env+'ws_2000_2009_ncep1_v50.txt'134 fi_ws_ncep1=project_id_env+'ws_2000_2009_ncep1_v50.txt' 136 135 openw,6,fi_ws_ncep1 137 136 … … 146 145 ;; first reading the whole ERAI uncorrected and corrected data 147 146 148 file= tropflux_id_env+'erai_ws_19890101_20091231_oafluxgrid.nc'147 file=project_id_env+'erai_ws_19890101_20091231_oafluxgrid.nc' 149 148 initncdf, file 150 149 u=read_ncdf('u10',date1,date2,file=file,/nostr) … … 153 152 help, unc 154 153 155 file= tropflux_id_env+'TropFlux_ws_19890101_20091231_v20.nc'154 file=project_id_env+'TropFlux_ws_19890101_20091231_v20.nc' 156 155 initncdf, file 157 156 cor=read_ncdf('ws',date1,date2,file=file,/nostr) 158 157 help, cor 159 158 160 file= tropflux_id_env+'OAFlux_basic_variables_1985_2009.nc'159 file=project_id_env+'OAFlux_basic_variables_1985_2009.nc' 161 160 initncdf, file 162 161 oaf=read_ncdf("wind", date1, date2, file=file,/nostr) 163 162 help, oaf 164 163 165 fi= tropflux_id_env+'uwind_ncep2_oafluxgrid_19890101_20091231.nc'164 fi=project_id_env+'uwind_ncep2_oafluxgrid_19890101_20091231.nc' 166 165 initncdf, fi 167 166 u=read_ncdf("u", date1-1, date2, file=fi,/nostr) 168 fi= tropflux_id_env+'vwind_ncep2_oafluxgrid_19890101_20091231.nc'167 fi=project_id_env+'vwind_ncep2_oafluxgrid_19890101_20091231.nc' 169 168 initncdf, fi 170 169 v=read_ncdf("v", date1-1, date2, file=fi,/nostr) … … 172 171 help, nce 173 172 174 fi= tropflux_id_env+'zonal_wind_speed_oafluxgrid_30N30S.nc'173 fi=project_id_env+'zonal_wind_speed_oafluxgrid_30N30S.nc' 175 174 initncdf, fi 176 175 u=read_ncdf("u", date1, date2, file=fi,/nostr) 177 fi= tropflux_id_env+'meridional_wind_speed_oafluxgrid_30N30S.nc'176 fi=project_id_env+'meridional_wind_speed_oafluxgrid_30N30S.nc' 178 177 initncdf, fi 179 178 v=read_ncdf("v", date1, date2, file=fi,/nostr) … … 181 180 help, ws_tmi 182 181 183 file= tropflux_id_env+'wind_ncep1_19890101_20091231.nc'182 file=project_id_env+'wind_ncep1_19890101_20091231.nc' 184 183 initncdf, file 185 184 u=read_ncdf("u", date1, date2, file=file,/nostr) … … 254 253 endfor 255 254 close,/all 256 fi_ws_erai= tropflux_id_env+'ws_2000_2009_erai_v50.txt'255 fi_ws_erai=project_id_env+'ws_2000_2009_erai_v50.txt' 257 256 res=read_ascii(fi_ws_erai,data_start=1) 258 257 ff=res.field1 … … 280 279 oplot, mean_tao, yfit, color=250, thick=2 281 280 282 fi_ws_trop= tropflux_id_env+'ws_2000_2009_trop_v50.txt'281 fi_ws_trop=project_id_env+'ws_2000_2009_trop_v50.txt' 283 282 res=read_ascii(fi_ws_trop,data_start=1) 284 283 ff=res.field1 … … 307 306 oplot, mean_tao, yfit, color=250, thick=2 308 307 309 fi_ws_oaflx= tropflux_id_env+'ws_2000_2009_oaflx_v50.txt'308 fi_ws_oaflx=project_id_env+'ws_2000_2009_oaflx_v50.txt' 310 309 res=read_ascii(fi_ws_oaflx,data_start=1) 311 310 ff=res.field1 … … 336 335 337 336 338 fi_ws_ncep= tropflux_id_env+'ws_2000_2009_ncep_v50.txt'337 fi_ws_ncep=project_id_env+'ws_2000_2009_ncep_v50.txt' 339 338 res=read_ascii(fi_ws_ncep,data_start=1) 340 339 ff=res.field1 … … 363 362 oplot, mean_tao, yfit, color=250, thick=2 364 363 365 fi_ws_tmi= tropflux_id_env+'ws_2000_2009_tmi_v50.txt'364 fi_ws_tmi=project_id_env+'ws_2000_2009_tmi_v50.txt' 366 365 res=read_ascii(fi_ws_tmi,data_start=1) 367 366 ff=res.field1 … … 391 390 392 391 393 fi_ws_ncep1= tropflux_id_env+'ws_2000_2009_ncep1_v50.txt'392 fi_ws_ncep1=project_id_env+'ws_2000_2009_ncep1_v50.txt' 394 393 res=read_ascii(fi_ws_ncep1,data_start=1) 395 394 ff=res.field1 … … 420 419 closeps 421 420 422 fig= tropflux_od_env+'ws_validation_scatter_2000_2009_v50.ps'421 fig=project_od_env+'ws_validation_scatter_2000_2009_v50.ps' 423 422 spawn, 'mv '+psdir+'idl.ps '+fig 424 423 spawn, 'gv '+fig -
trunk/src/paper01/fig4/fig4_met_var_correction_scatter.pro
r47 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; sst [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/sst_correction_final.txt"];18 ; t2m [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/t2m_correction_final.txt"];19 ; q2m [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/q2m_correction_final.txt"];20 ; ws [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ws_correction_final.txt"];21 ; 22 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/fig4_met_var_correction_scatter.ps"];17 ; sst [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/sst_correction_final.txt"]; 18 ; t2m [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/t2m_correction_final.txt"]; 19 ; q2m [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/q2m_correction_final.txt"]; 20 ; ws [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ws_correction_final.txt"]; 21 ; 22 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/fig4_met_var_correction_scatter.ps"]; 23 23 ; 24 24 ; fig4_met_var_correction_scatter [shape=box, … … 34 34 ; ======== 35 35 ; 36 ; :ref:` tropflux_profile.sh`37 ; :ref:` tropflux_init.pro`36 ; :ref:`project_profile.sh` 37 ; :ref:`project_init.pro` 38 38 ; 39 39 ; :ref:`significance_test_99.pro` … … 44 44 ; :: 45 45 ; 46 ; IDL> @tropflux_init47 46 ; IDL> fig4_met_var_correction_scatter 48 47 ; … … 84 83 pro fig4_met_var_correction_scatter 85 84 @cm_general 86 @cm_ tropflux85 @cm_project 87 86 reinitplt, /z,/invert 88 87 key_portrait = 1 89 88 90 89 openps, FILENAME = 'idl.ps' 91 fi= tropflux_id_env+'sst_correction_final.txt'90 fi=project_id_env+'sst_correction_final.txt' 92 91 res=read_ascii(fi,data_start=0) 93 92 ff=res.field1 … … 116 115 significance_test_99,mean,bias 117 116 118 fi= tropflux_id_env+'t2m_correction_final.txt'117 fi=project_id_env+'t2m_correction_final.txt' 119 118 res=read_ascii(fi,data_start=0) 120 119 ff=res.field1 … … 144 143 significance_test_99,mean,bias 145 144 146 fi= tropflux_id_env+'q2m_correction_final.txt'145 fi=project_id_env+'q2m_correction_final.txt' 147 146 res=read_ascii(fi,data_start=0) 148 147 ff=res.field1 … … 170 169 ;; significant test 171 170 significance_test_99,mean,bias 172 fi= tropflux_id_env+'ws_correction_final.txt'171 fi=project_id_env+'ws_correction_final.txt' 173 172 res=read_ascii(fi,data_start=0) 174 173 ff=res.field1 … … 200 199 closeps 201 200 202 fig= tropflux_od_env+'fig4_met_var_correction_scatter.ps'201 fig=project_od_env+'fig4_met_var_correction_scatter.ps' 203 202 spawn, 'mv '+psdir+'idl.ps '+fig 204 203 spawn, 'gv '+fig -
trunk/src/paper01/fig4/significance_test_99.pro
r46 r50 12 12 ; ======== 13 13 ; 14 ; :ref:` tropflux_profile.sh`14 ; :ref:`project_profile.sh` 15 15 ; 16 16 ; :ref:`fig10_swr_correction.pro` … … 22 22 ; :: 23 23 ; 24 ; IDL> @ tropflux_init24 ; IDL> @project_init 25 25 ; IDL> x=++ 26 26 ; IDL> y=++ -
trunk/src/paper01/fig5/fig5_gustiness_scatter.pro
r47 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; ws [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ws_gustiness_bias.txt"];18 ; sst [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/raw_sst_2000_2008_gustiness.txt"];17 ; ws [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ws_gustiness_bias.txt"]; 18 ; sst [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/raw_sst_2000_2008_gustiness.txt"]; 19 19 ; 20 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/fig5_gustiness_scatter.ps"];20 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/fig5_gustiness_scatter.ps"]; 21 21 ; 22 22 ; fig5_gustiness_scatter [shape=box, … … 32 32 ; ======== 33 33 ; 34 ; :ref:` tropflux_profile.sh`35 ; :ref:` tropflux_init.pro`34 ; :ref:`project_profile.sh` 35 ; :ref:`project_init.pro` 36 36 ; 37 37 ; EXAMPLES … … 40 40 ; :: 41 41 ; 42 ; IDL> @tropflux_init43 42 ; IDL> fig5_gustiness_scatter 44 43 ; … … 80 79 pro fig5_gustiness_scatter 81 80 @cm_general 82 @cm_ tropflux81 @cm_project 83 82 reinitplt, /z,/invert 84 83 key_portrait = 1 85 84 86 85 openps, FILENAME = 'idl.ps' 87 fi_ws= tropflux_id_env+'wind_gustiness_bias.txt'86 fi_ws=project_id_env+'wind_gustiness_bias.txt' 88 87 res=read_ascii(fi_ws,data_start=1) 89 88 ff=res.field01 … … 93 92 print, correlate(erai_wind,gust) 94 93 95 fi_sst= tropflux_id_env+'raw_sst_2000_2008_gustiness.txt'94 fi_sst=project_id_env+'raw_sst_2000_2008_gustiness.txt' 96 95 res=read_ascii(fi_sst,data_start=1) 97 96 ff=res.field1 … … 122 121 print, a,b 123 122 closeps 124 fig= tropflux_od_env+'fig5_gustiness_scatter.ps'123 fig=project_od_env+'fig5_gustiness_scatter.ps' 125 124 spawn, 'mv '+psdir+'idl.ps '+fig 126 125 spawn, 'gv '+fig -
trunk/src/paper01/fig6/icoads_q2m_stats_paper.pro
r47 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; sphum [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/sphum_monthly_1960_2010_oafluxgrid.nc"];18 ; q2m_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/q2m_TropFlux_global_monthly_1989_2009.nc"];19 ; q2m_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/q2m_OAFlux_global_monthly_1989_2009.nc"];20 ; q2m_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/q2m_ERAI_global_monthly_1989_2009.nc"];21 ; q2m_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/q2m_NCEP2_global_monthly_1989_2009.nc"];22 ; q2m_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/q2m_NCEP1_global_monthly_1989_2009.nc"];23 ; 24 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/icoads_q2m_stats_paper.ps"];17 ; sphum [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/sphum_monthly_1960_2010_oafluxgrid.nc"]; 18 ; q2m_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/q2m_TropFlux_global_monthly_1989_2009.nc"]; 19 ; q2m_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/q2m_OAFlux_global_monthly_1989_2009.nc"]; 20 ; q2m_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/q2m_ERAI_global_monthly_1989_2009.nc"]; 21 ; q2m_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/q2m_NCEP2_global_monthly_1989_2009.nc"]; 22 ; q2m_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/q2m_NCEP1_global_monthly_1989_2009.nc"]; 23 ; 24 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/icoads_q2m_stats_paper.ps"]; 25 25 ; 26 26 ; icoads_q2m_stats_paper [shape=box, … … 36 36 ; ======== 37 37 ; 38 ; :ref:` tropflux_profile.sh`39 ; :ref:` tropflux_init.pro`38 ; :ref:`project_profile.sh` 39 ; :ref:`project_init.pro` 40 40 ; 41 41 ; :ref:`statistics.pro` … … 46 46 ; :: 47 47 ; 48 ; IDL> @tropflux_init49 48 ; IDL> icoads_q2m_stats_paper 50 49 ; … … 79 78 pro icoads_q2m_stats_paper 80 79 @cm_general 81 @cm_ tropflux80 @cm_project 82 81 reinitplt, /z,/invert 83 82 key_portrait = 1 … … 90 89 domdef, box 91 90 92 file= tropflux_id_env+'sphum_monthly_1960_2010_oafluxgrid.nc'91 file=project_id_env+'sphum_monthly_1960_2010_oafluxgrid.nc' 93 92 initncdf, file 94 93 icoads=read_ncdf("sphum", st, en , file=file,/nostr, box=box) 95 94 help, icoads 96 95 97 file= tropflux_id_env+'q2m_TropFlux_global_monthly_1989_2009.nc'96 file=project_id_env+'q2m_TropFlux_global_monthly_1989_2009.nc' 98 97 initncdf, file 99 98 trop=read_ncdf("q2m", st, en , file=file,/nostr, box=box) 100 99 help, trop 101 100 102 file= tropflux_id_env+"q2m_OAFlux_global_monthly_1989_2009.nc"101 file=project_id_env+"q2m_OAFlux_global_monthly_1989_2009.nc" 103 102 initncdf, file 104 103 oaf=read_ncdf("q2m", st, en , file=file,/nostr, box=box) 105 104 help, oaf 106 105 107 file= tropflux_id_env+"q2m_ERAI_global_monthly_1989_2009.nc"106 file=project_id_env+"q2m_ERAI_global_monthly_1989_2009.nc" 108 107 initncdf, file 109 108 erai=read_ncdf("q2m", st, en , file=file,/nostr, box=box) 110 109 help, erai 111 110 112 file= tropflux_id_env+"q2m_NCEP2_global_monthly_1989_2009.nc"111 file=project_id_env+"q2m_NCEP2_global_monthly_1989_2009.nc" 113 112 initncdf, file 114 113 ncep2=1000*read_ncdf("q2m", st, en , file=file,/nostr, box=box) 115 114 help, ncep2 116 115 117 file= tropflux_id_env+"q2m_NCEP1_global_monthly_1989_2009.nc"116 file=project_id_env+"q2m_NCEP1_global_monthly_1989_2009.nc" 118 117 initncdf, file 119 118 ncep1=1000*read_ncdf("q2m", st, en , file=file,/nostr, box=box) … … 254 253 255 254 closeps 256 fig= tropflux_od_env+"icoads_q2m_stats_paper.ps"255 fig=project_od_env+"icoads_q2m_stats_paper.ps" 257 256 spawn, 'mv '+psdir+'idl.ps '+fig 258 257 spawn, 'gv '+fig -
trunk/src/paper01/fig6/icoads_sst_stats_paper.pro
r47 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; sst [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/sst_monthly_1960_2010_oafluxgrid.nc"];18 ; sst_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/sst_TropFlux_global_monthly_1989_2009.nc"];19 ; sst_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/sst_OAFlux_global_monthly_1989_2009.nc"];20 ; sst_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/sst_ERAI_global_monthly_1989_2009.nc"];21 ; sst_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/sst_NCEP2_global_monthly_1989_2009.nc"];22 ; sst_noc [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/nocv2_sst_19890101_20091231_oafluxgrid.nc"];23 ; sst_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/sst_NCEP1_global_monthly_1989_2009.nc"];24 ; 25 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/icoads_sst_stats_paper.ps"];17 ; sst [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/sst_monthly_1960_2010_oafluxgrid.nc"]; 18 ; sst_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/sst_TropFlux_global_monthly_1989_2009.nc"]; 19 ; sst_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/sst_OAFlux_global_monthly_1989_2009.nc"]; 20 ; sst_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/sst_ERAI_global_monthly_1989_2009.nc"]; 21 ; sst_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/sst_NCEP2_global_monthly_1989_2009.nc"]; 22 ; sst_noc [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/nocv2_sst_19890101_20091231_oafluxgrid.nc"]; 23 ; sst_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/sst_NCEP1_global_monthly_1989_2009.nc"]; 24 ; 25 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/icoads_sst_stats_paper.ps"]; 26 26 ; 27 27 ; icoads_sst_stats_paper [shape=box, … … 37 37 ; ======== 38 38 ; 39 ; :ref:` tropflux_profile.sh`40 ; :ref:` tropflux_init.pro`39 ; :ref:`project_profile.sh` 40 ; :ref:`project_init.pro` 41 41 ; 42 42 ; :ref:`statistics.pro` … … 47 47 ; :: 48 48 ; 49 ; IDL> @tropflux_init50 49 ; IDL> icoads_sst_stats_paper 51 50 ; … … 79 78 ;- 80 79 pro icoads_sst_stats_paper 81 @cm_ tropflux80 @cm_project 82 81 reinitplt, /z,/invert 83 82 key_portrait = 1 … … 90 89 domdef, box 91 90 92 file= tropflux_id_env+'sst_monthly_1960_2010_oafluxgrid.nc'91 file=project_id_env+'sst_monthly_1960_2010_oafluxgrid.nc' 93 92 initncdf, file 94 93 icoads=read_ncdf("sst", st-1, en , file=file,/nostr, box=box) 95 94 help, icoads 96 95 97 file= tropflux_id_env+'sst_TropFlux_global_monthly_1989_2009.nc'96 file=project_id_env+'sst_TropFlux_global_monthly_1989_2009.nc' 98 97 initncdf, file 99 98 trop=read_ncdf("sst", st, en , file=file,/nostr, box=box)-273.15 100 99 help, trop 101 100 102 file= tropflux_id_env+"sst_OAFlux_global_monthly_1989_2009.nc"101 file=project_id_env+"sst_OAFlux_global_monthly_1989_2009.nc" 103 102 initncdf, file 104 103 oaf=read_ncdf("sst", st, en , file=file,/nostr, box=box) 105 104 help, oaf 106 105 107 file= tropflux_id_env+"sst_ERAI_global_monthly_1989_2009.nc"106 file=project_id_env+"sst_ERAI_global_monthly_1989_2009.nc" 108 107 initncdf, file 109 108 erai=read_ncdf("sst", st, en , file=file,/nostr, box=box)-273.15 110 109 help, erai 111 110 112 file= tropflux_id_env+"sst_NCEP2_global_monthly_1989_2009.nc"111 file=project_id_env+"sst_NCEP2_global_monthly_1989_2009.nc" 113 112 initncdf, file 114 113 ncep2=read_ncdf("sst", st, en , file=file,/nostr, box=box)-273.15 115 114 help, ncep2 116 115 117 file= tropflux_id_env+'nocv2_sst_19890101_20091231_oafluxgrid.nc'116 file=project_id_env+'nocv2_sst_19890101_20091231_oafluxgrid.nc' 118 117 initncdf, file 119 118 noc=read_ncdf("sst", st, en , file=file,/nostr, box=box) 120 119 help, noc 121 120 122 file= tropflux_id_env+"sst_NCEP1_global_monthly_1989_2009.nc"121 file=project_id_env+"sst_NCEP1_global_monthly_1989_2009.nc" 123 122 initncdf, file 124 123 ncep1=read_ncdf("sst", st, en , file=file,/nostr, box=box)-273.15 … … 281 280 282 281 closeps 283 fig= tropflux_od_env+"icoads_sst_stats_paper.ps"282 fig=project_od_env+"icoads_sst_stats_paper.ps" 284 283 spawn, 'mv '+psdir+'idl.ps '+fig 285 284 spawn, 'gv '+fig -
trunk/src/paper01/fig6/icoads_t2m_stats_paper.pro
r47 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; airt [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/airt_monthly_1960_2010_oafluxgrid.nc"];18 ; t2m_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/t2m_TropFlux_global_monthly_1989_2009.nc"];19 ; t2m_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/t2m_OAFlux_global_monthly_1989_2009.nc"];20 ; t2m_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/t2m_ERAI_global_monthly_1989_2009.nc"];21 ; t2m_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/t2m_NCEP2_global_monthly_1989_2009.nc"];22 ; t2m_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/t2m_NCEP1_global_monthly_1989_2009.nc"];23 ; 24 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/icoads_t2m_stats_paper.ps"];17 ; airt [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/airt_monthly_1960_2010_oafluxgrid.nc"]; 18 ; t2m_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/t2m_TropFlux_global_monthly_1989_2009.nc"]; 19 ; t2m_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/t2m_OAFlux_global_monthly_1989_2009.nc"]; 20 ; t2m_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/t2m_ERAI_global_monthly_1989_2009.nc"]; 21 ; t2m_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/t2m_NCEP2_global_monthly_1989_2009.nc"]; 22 ; t2m_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/t2m_NCEP1_global_monthly_1989_2009.nc"]; 23 ; 24 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/icoads_t2m_stats_paper.ps"]; 25 25 ; 26 26 ; icoads_t2m_stats_paper [shape=box, … … 36 36 ; ======== 37 37 ; 38 ; :ref:` tropflux_profile.sh`39 ; :ref:` tropflux_init.pro`38 ; :ref:`project_profile.sh` 39 ; :ref:`project_init.pro` 40 40 ; 41 41 ; :ref:`statistics.pro` … … 46 46 ; :: 47 47 ; 48 ; IDL> @tropflux_init49 48 ; IDL> icoads_t2m_stats_paper 50 49 ; … … 80 79 pro icoads_t2m_stats_paper 81 80 @cm_general 82 @cm_ tropflux81 @cm_project 83 82 reinitplt, /z,/invert 84 83 key_portrait = 1 … … 91 90 domdef, box 92 91 93 file= tropflux_id_env+'airt_monthly_1960_2010_oafluxgrid.nc'92 file=project_id_env+'airt_monthly_1960_2010_oafluxgrid.nc' 94 93 initncdf, file 95 94 icoads=read_ncdf("airt", st-1, en , file=file,/nostr, box=box) 96 95 help, icoads 97 96 98 file= tropflux_id_env+'t2m_TropFlux_global_monthly_1989_2009.nc'97 file=project_id_env+'t2m_TropFlux_global_monthly_1989_2009.nc' 99 98 initncdf, file 100 99 trop=read_ncdf("t2m", st, en , file=file,/nostr, box=box)-273.15 101 100 help, trop 102 101 103 file= tropflux_id_env+"t2m_OAFlux_global_monthly_1989_2009.nc"102 file=project_id_env+"t2m_OAFlux_global_monthly_1989_2009.nc" 104 103 initncdf, file 105 104 oaf=read_ncdf("t2m", st, en , file=file,/nostr, box=box) 106 105 help, oaf 107 106 108 file= tropflux_id_env+"t2m_ERAI_global_monthly_1989_2009.nc"107 file=project_id_env+"t2m_ERAI_global_monthly_1989_2009.nc" 109 108 initncdf, file 110 109 erai=read_ncdf("t2m", st, en , file=file,/nostr, box=box)-273.15 111 110 help, erai 112 111 113 file= tropflux_id_env+"t2m_NCEP2_global_monthly_1989_2009.nc"112 file=project_id_env+"t2m_NCEP2_global_monthly_1989_2009.nc" 114 113 initncdf, file 115 114 ncep2=read_ncdf("t2m", st, en , file=file,/nostr, box=box)-273.15 116 115 help, ncep2 117 116 118 file= tropflux_id_env+"t2m_NCEP1_global_monthly_1989_2009.nc"117 file=project_id_env+"t2m_NCEP1_global_monthly_1989_2009.nc" 119 118 initncdf, file 120 119 ncep1=read_ncdf("t2m", st, en , file=file,/nostr, box=box)-273.15 … … 263 262 264 263 closeps 265 fig= tropflux_od_env+"icoads_t2m_stats_paper.ps"264 fig=project_od_env+"icoads_t2m_stats_paper.ps" 266 265 spawn, 'mv '+psdir+'idl.ps '+fig 267 266 spawn, 'gv '+fig -
trunk/src/paper01/fig6/icoads_ws_stats_paper.pro
r47 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; ws [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ws_monthly_1960_2010_oafluxgrid.nc"];18 ; ws_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ws_TropFlux_global_monthly_1989_2009.nc"];19 ; ws_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ws_OAFlux_global_monthly_1989_2009.nc"];20 ; ws_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ws_ERAI_global_monthly_1989_2009.nc"];21 ; ws_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ws_NCEP2_global_monthly_1989_2009.nc"];22 ; ws_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ws_NCEP1_global_monthly_1989_2009.nc"];23 ; ws_noc [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/nocv2_ws_19890101_20091231_oafluxgrid.nc"];24 ; 25 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/icoads_ws_stats_paper.ps"];17 ; ws [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ws_monthly_1960_2010_oafluxgrid.nc"]; 18 ; ws_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ws_TropFlux_global_monthly_1989_2009.nc"]; 19 ; ws_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ws_OAFlux_global_monthly_1989_2009.nc"]; 20 ; ws_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ws_ERAI_global_monthly_1989_2009.nc"]; 21 ; ws_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ws_NCEP2_global_monthly_1989_2009.nc"]; 22 ; ws_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ws_NCEP1_global_monthly_1989_2009.nc"]; 23 ; ws_noc [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/nocv2_ws_19890101_20091231_oafluxgrid.nc"]; 24 ; 25 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/icoads_ws_stats_paper.ps"]; 26 26 ; 27 27 ; icoads_ws_stats_paper [shape=box, … … 37 37 ; ======== 38 38 ; 39 ; :ref:` tropflux_profile.sh`40 ; :ref:` tropflux_init.pro`39 ; :ref:`project_profile.sh` 40 ; :ref:`project_init.pro` 41 41 ; 42 42 ; :ref:`statistics.pro` … … 47 47 ; :: 48 48 ; 49 ; IDL> @tropflux_init50 49 ; IDL> icoads_ws_stats_paper 51 50 ; … … 81 80 pro icoads_ws_stats_paper 82 81 @cm_general 83 @cm_ tropflux82 @cm_project 84 83 reinitplt, /z,/invert 85 84 key_portrait = 1 … … 92 91 domdef, box 93 92 94 file= tropflux_id_env+'ws_monthly_1960_2010_oafluxgrid.nc"93 file=project_id_env+'ws_monthly_1960_2010_oafluxgrid.nc" 95 94 initncdf, file 96 95 icoads=read_ncdf("ws", st-1, en , file=file,/nostr, box=box) 97 96 help, icoads 98 97 99 file= tropflux_id_env+"ws_TropFlux_global_monthly_1989_2009.nc"98 file=project_id_env+"ws_TropFlux_global_monthly_1989_2009.nc" 100 99 initncdf, file 101 100 trop=read_ncdf("ws", st, en , file=file,/nostr, box=box) 102 101 help, trop 103 102 104 file= tropflux_id_env+"ws_OAFlux_global_monthly_1989_2009.nc"103 file=project_id_env+"ws_OAFlux_global_monthly_1989_2009.nc" 105 104 initncdf, file 106 105 oaf=read_ncdf("ws", st, en , file=file,/nostr, box=box) 107 106 help, oaf 108 107 109 file= tropflux_id_env+"ws_ERAI_global_monthly_1989_2009.nc"108 file=project_id_env+"ws_ERAI_global_monthly_1989_2009.nc" 110 109 initncdf, file 111 110 erai=read_ncdf("ws", st, en , file=file,/nostr, box=box) 112 111 help, erai 113 112 114 file= tropflux_id_env+"ws_NCEP2_global_monthly_1989_2009.nc"113 file=project_id_env+"ws_NCEP2_global_monthly_1989_2009.nc" 115 114 initncdf, file 116 115 ncep2=read_ncdf("wsm", st, en , file=file,/nostr, box=box) 117 116 help, ncep2 118 117 119 file= tropflux_id_env+"ws_NCEP1_global_monthly_1989_2009.nc"118 file=project_id_env+"ws_NCEP1_global_monthly_1989_2009.nc" 120 119 initncdf, file 121 120 ncep1=read_ncdf("ws", st, en , file=file,/nostr, box=box) 122 121 help, ncep1 123 122 124 file= tropflux_id_env+'nocv2_ws_19890101_20091231_oafluxgrid.nc'123 file=project_id_env+'nocv2_ws_19890101_20091231_oafluxgrid.nc' 125 124 initncdf, file 126 125 noc=read_ncdf("ws", st, en , file=file,/nostr, box=box) … … 280 279 281 280 closeps 282 fig= tropflux_od_env+"icoads_ws_stats_paper.ps"281 fig=project_od_env+"icoads_ws_stats_paper.ps" 283 282 spawn, 'mv '+psdir+'idl.ps '+fig 284 283 spawn, 'gv '+fig -
trunk/src/paper01/fig6/statistics.pro
r46 r50 12 12 ; ======== 13 13 ; 14 ; :ref:` tropflux_profile.sh`14 ; :ref:`project_profile.sh` 15 15 ; 16 16 ; :ref:`as_validation_net_1994_95_v10.pro` … … 31 31 ; :: 32 32 ; 33 ; IDL> @tropflux_init34 33 ; IDL> moor=++ 35 34 ; IDL> ++ … … 58 57 pro statistics, moor, erai, $ 59 58 cor, bias, std, rmsd 60 @cm_ tropflux59 @cm_project 61 60 ;; mean1= mean of mooring variable std1=std of mooring variable 62 61 ;; mean2= mean of erai variable std2=std of erai variable -
trunk/src/paper01/fig7/air_validation_scatter_2000_2009_basin.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; air_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/air_2000_2009_erai_*.txt"];18 ; air_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/air_2000_2009_trop_*.txt"];19 ; air_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/air_2000_2009_oaflx_*.txt"];20 ; air_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/air_2000_2009_ncep2_*.txt"];21 ; air_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/air_2000_2009_ncep1_*.txt"];22 ; t2m_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_t2m_19890101_20091231_oafluxgrid.nc"];23 ; 24 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/air_validation_scatter_2000_2009_basin.ps"];17 ; air_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/air_2000_2009_erai_*.txt"]; 18 ; air_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/air_2000_2009_trop_*.txt"]; 19 ; air_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/air_2000_2009_oaflx_*.txt"]; 20 ; air_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/air_2000_2009_ncep2_*.txt"]; 21 ; air_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/air_2000_2009_ncep1_*.txt"]; 22 ; t2m_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_t2m_19890101_20091231_oafluxgrid.nc"]; 23 ; 24 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/air_validation_scatter_2000_2009_basin.ps"]; 25 25 ; 26 26 ; air_validation_scatter_2000_2009_basin [shape=box, … … 36 36 ; ======== 37 37 ; 38 ; :ref:` tropflux_profile.sh`39 ; :ref:` tropflux_init.pro`40 ; :ref:`cm_ tropflux.pro`38 ; :ref:`project_profile.sh` 39 ; :ref:`project_init.pro` 40 ; :ref:`cm_project.pro` 41 41 ; 42 42 ; :func:`x_site_location` … … 51 51 ; :: 52 52 ; 53 ; IDL> @tropflux_init54 53 ; IDL> date1=19890101L 55 54 ; IDL> date2=20091231L … … 90 89 pro air_validation_scatter_2000_2009_basin, date1, date2 91 90 @cm_general 92 @cm_ tropflux91 @cm_project 93 92 reinitplt, /z,/invert 94 93 key_portrait = 1 … … 150 149 close,/all 151 150 152 fi_air_erai= tropflux_id_env+'air_2000_2009_erai_'+ocean+'.txt'151 fi_air_erai=project_id_env+'air_2000_2009_erai_'+ocean+'.txt' 153 152 openw,1,fi_air_erai 154 fi_air_trop= tropflux_id_env+'air_2000_2009_trop_'+ocean+'.txt'153 fi_air_trop=project_id_env+'air_2000_2009_trop_'+ocean+'.txt' 155 154 openw,2,fi_air_trop 156 fi_air_oaflx= tropflux_id_env+'air_2000_2009_oaflx_'+ocean+'.txt'155 fi_air_oaflx=project_id_env+'air_2000_2009_oaflx_'+ocean+'.txt' 157 156 openw,3,fi_air_oaflx 158 fi_air_ncep2= tropflux_id_env+'air_2000_2009_ncep2_'+ocean+'.txt'157 fi_air_ncep2=project_id_env+'air_2000_2009_ncep2_'+ocean+'.txt' 159 158 openw,4,fi_air_ncep2 160 fi_air_ncep1= tropflux_id_env+'air_2000_2009_ncep1_'+ocean+'.txt'159 fi_air_ncep1=project_id_env+'air_2000_2009_ncep1_'+ocean+'.txt' 161 160 openw,5,fi_air_ncep1 162 161 … … 170 169 ;; first reading the whole ERAI uncorrected and corrected data 171 170 172 file= tropflux_id_env+'erai_t2m_19890101_20091231_oafluxgrid.nc'171 file=project_id_env+'erai_t2m_19890101_20091231_oafluxgrid.nc' 173 172 initncdf, file 174 173 unc=read_ncdf('t2m',date1,date2,file=file,/nostr) & unc=unc-273.15 … … 248 247 close,/all 249 248 250 fi_air_erai= tropflux_id_env+'air_2000_2009_erai_'+ocean+'.txt'249 fi_air_erai=project_id_env+'air_2000_2009_erai_'+ocean+'.txt' 251 250 res=read_ascii(fi_air_erai,data_start=1) 252 251 ff=res.field1 … … 274 273 oplot, mean_tao, yfit, color=250, thick=2 275 274 276 fi_air_trop= tropflux_id_env+'air_2000_2009_trop_'+ocean+'.txt'275 fi_air_trop=project_id_env+'air_2000_2009_trop_'+ocean+'.txt' 277 276 res=read_ascii(fi_air_trop,data_start=1) 278 277 ff=res.field1 … … 301 300 oplot, mean_tao, yfit, color=250, thick=2 302 301 303 fi_air_oaflx= tropflux_id_env+'air_2000_2009_oaflx_'+ocean+'.txt'302 fi_air_oaflx=project_id_env+'air_2000_2009_oaflx_'+ocean+'.txt' 304 303 res=read_ascii(fi_air_oaflx,data_start=1) 305 304 ff=res.field1 … … 330 329 331 330 332 fi_air_ncep= tropflux_id_env+'air_2000_2009_ncep2_'+ocean+'.txt'331 fi_air_ncep=project_id_env+'air_2000_2009_ncep2_'+ocean+'.txt' 333 332 res=read_ascii(fi_air_ncep,data_start=1) 334 333 ff=res.field1 … … 357 356 oplot, mean_tao, yfit, color=250, thick=2 358 357 359 fi_air_ncep1= tropflux_id_env+'air_2000_2009_ncep1_'+ocean+'.txt'358 fi_air_ncep1=project_id_env+'air_2000_2009_ncep1_'+ocean+'.txt' 360 359 res=read_ascii(fi_air_ncep1,data_start=1) 361 360 ff=res.field1 … … 386 385 closeps 387 386 388 fig= tropflux_od_env+'air_validation_scatter_2000_2009_'+ocean+'.ps'387 fig=project_od_env+'air_validation_scatter_2000_2009_'+ocean+'.ps' 389 388 spawn, 'mv '+psdir+'idl.ps '+fig 390 389 spawn, 'gv '+fig -
trunk/src/paper01/fig7/q2m_validation_scatter_2000_2009_basin.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; q2m_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/q2m_2000_2009_erai_*.txt"];18 ; q2m_erai_2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_q2m_19890101_20091231_oafluxgrid.nc"];19 ; q2m_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/q2m_2000_2009_trop_*.txt"];20 ; q2m_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/q2m_2000_2009_oaflx_*.txt"];21 ; q2m_ncep [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/q2m_2000_2009_ncep_*.txt"];22 ; q2m_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/q2m_2000_2009_ncep1_*.txt"];23 ; 24 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/q2m_validation_scatter_2000_2009_basin.ps"];17 ; q2m_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/q2m_2000_2009_erai_*.txt"]; 18 ; q2m_erai_2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_q2m_19890101_20091231_oafluxgrid.nc"]; 19 ; q2m_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/q2m_2000_2009_trop_*.txt"]; 20 ; q2m_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/q2m_2000_2009_oaflx_*.txt"]; 21 ; q2m_ncep [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/q2m_2000_2009_ncep_*.txt"]; 22 ; q2m_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/q2m_2000_2009_ncep1_*.txt"]; 23 ; 24 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/q2m_validation_scatter_2000_2009_basin.ps"]; 25 25 ; 26 26 ; q2m_validation_scatter_2000_2009_basin [shape=box, … … 36 36 ; ======== 37 37 ; 38 ; :ref:` tropflux_profile.sh`39 ; :ref:` tropflux_init.pro`40 ; :ref:`cm_ tropflux.pro`38 ; :ref:`project_profile.sh` 39 ; :ref:`project_init.pro` 40 ; :ref:`cm_project.pro` 41 41 ; 42 42 ; :func:`x_site_location` … … 51 51 ; :: 52 52 ; 53 ; IDL> @tropflux_init54 53 ; IDL> date1=19890101L 55 54 ; IDL> date2=20091231L … … 90 89 pro q2m_validation_scatter_2000_2009_basin, date1, date2 91 90 @cm_general 92 @cm_ tropflux91 @cm_project 93 92 reinitplt, /z,/invert 94 93 key_portrait = 1 … … 148 147 close,/all 149 148 150 fi_q2m_erai= tropflux_id_env+'q2m_2000_2009_erai_'+ocean+'.txt'149 fi_q2m_erai=project_id_env+'q2m_2000_2009_erai_'+ocean+'.txt' 151 150 openw,1,fi_q2m_erai 152 fi_q2m_trop= tropflux_id_env+'q2m_2000_2009_trop_'+ocean+'.txt'151 fi_q2m_trop=project_id_env+'q2m_2000_2009_trop_'+ocean+'.txt' 153 152 openw,2,fi_q2m_trop 154 fi_q2m_oaflx= tropflux_id_env+'q2m_2000_2009_oaflx_'+ocean+'.txt'153 fi_q2m_oaflx=project_id_env+'q2m_2000_2009_oaflx_'+ocean+'.txt' 155 154 openw,3,fi_q2m_oaflx 156 fi_q2m_ncep= tropflux_id_env+'q2m_2000_2009_ncep_'+ocean+'.txt'155 fi_q2m_ncep=project_id_env+'q2m_2000_2009_ncep_'+ocean+'.txt' 157 156 openw,4,fi_q2m_ncep 158 fi_q2m_ncep1= tropflux_id_env+'q2m_2000_2009_ncep1_'+ocean+'.txt'157 fi_q2m_ncep1=project_id_env+'q2m_2000_2009_ncep1_'+ocean+'.txt' 159 158 openw,5,fi_q2m_ncep1 160 159 … … 168 167 ;; first reading the whole ERAI uncorrected and corrected data 169 168 170 file= tropflux_id_env+'erai_q2m_19890101_20091231_oafluxgrid.nc'169 file=project_id_env+'erai_q2m_19890101_20091231_oafluxgrid.nc' 171 170 initncdf, file 172 171 unc=read_ncdf('q2m',date1,date2,file=file,/nostr) … … 245 244 close,/all 246 245 247 fi_q2m_erai= tropflux_id_env+'q2m_2000_2009_erai_'+ocean+'.txt'246 fi_q2m_erai=project_id_env+'q2m_2000_2009_erai_'+ocean+'.txt' 248 247 res=read_ascii(fi_q2m_erai,data_start=1) 249 248 ff=res.field1 … … 271 270 oplot, mean_tao, yfit, color=250, thick=2 272 271 273 fi_q2m_trop= tropflux_id_env+'q2m_2000_2009_trop_'+ocean+'.txt'272 fi_q2m_trop=project_id_env+'q2m_2000_2009_trop_'+ocean+'.txt' 274 273 res=read_ascii(fi_q2m_trop,data_start=1) 275 274 ff=res.field1 … … 298 297 oplot, mean_tao, yfit, color=250, thick=2 299 298 300 fi_q2m_oaflx= tropflux_id_env+'q2m_2000_2009_oaflx_'+ocean+'.txt'299 fi_q2m_oaflx=project_id_env+'q2m_2000_2009_oaflx_'+ocean+'.txt' 301 300 res=read_ascii(fi_q2m_oaflx,data_start=1) 302 301 ff=res.field1 … … 326 325 327 326 328 fi_q2m_ncep= tropflux_id_env+'q2m_2000_2009_ncep_'+ocean+'.txt'327 fi_q2m_ncep=project_id_env+'q2m_2000_2009_ncep_'+ocean+'.txt' 329 328 res=read_ascii(fi_q2m_ncep,data_start=1) 330 329 ff=res.field1 … … 353 352 oplot, mean_tao, yfit, color=250, thick=2 354 353 355 fi_q2m_ncep1= tropflux_id_env+'q2m_2000_2009_ncep1_'+ocean+'.txt'354 fi_q2m_ncep1=project_id_env+'q2m_2000_2009_ncep1_'+ocean+'.txt' 356 355 res=read_ascii(fi_q2m_ncep1,data_start=1) 357 356 ff=res.field1 … … 382 381 closeps 383 382 384 fig= tropflux_od_env+'q2m_validation_scatter_2000_2009_'+ocean+'.ps'383 fig=project_od_env+'q2m_validation_scatter_2000_2009_'+ocean+'.ps' 385 384 spawn, 'mv '+psdir+'idl.ps '+fig 386 385 spawn, 'gv '+fig -
trunk/src/paper01/fig7/sst_validation_scatter_2000_2009_basin.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; sst_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/sst_2000_2009_erai_*.txt"];18 ; sst_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_2000_2009_trop_*.txt"];19 ; sst_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_2000_2009_oaflx_*.txt"];20 ; sst_ncep [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_2000_2009_ncep_*.txt"];21 ; sst_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_2000_2009_ncep1_*.txt"];22 ; sst_tmi [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_2000_2009_tmi_*.txt"];23 ; 24 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_validation_scatter_2000_2009_basin.ps"];17 ; sst_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/sst_2000_2009_erai_*.txt"]; 18 ; sst_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_2000_2009_trop_*.txt"]; 19 ; sst_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_2000_2009_oaflx_*.txt"]; 20 ; sst_ncep [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_2000_2009_ncep_*.txt"]; 21 ; sst_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_2000_2009_ncep1_*.txt"]; 22 ; sst_tmi [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_2000_2009_tmi_*.txt"]; 23 ; 24 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_validation_scatter_2000_2009_basin.ps"]; 25 25 ; 26 26 ; sst_validation_scatter_2000_2009_basin [shape=box, … … 36 36 ; ======== 37 37 ; 38 ; :ref:` tropflux_profile.sh`39 ; :ref:` tropflux_init.pro`40 ; :ref:`cm_ tropflux.pro`38 ; :ref:`project_profile.sh` 39 ; :ref:`project_init.pro` 40 ; :ref:`cm_project.pro` 41 41 ; 42 42 ; :func:`x_site_location` … … 51 51 ; :: 52 52 ; 53 ; IDL> @tropflux_init54 53 ; IDL> date1=19890101L 55 54 ; IDL> date2=20091231L … … 89 88 pro sst_validation_scatter_2000_2009_basin, date1, date2 90 89 @cm_general 91 @cm_ tropflux90 @cm_project 92 91 reinitplt, /z,/invert 93 92 key_portrait = 1 … … 126 125 close,/all 127 126 128 fi_sst_erai= tropflux_id_env+'sst_2000_2009_erai_'+ocean+'.txt'127 fi_sst_erai=project_id_env+'sst_2000_2009_erai_'+ocean+'.txt' 129 128 openw,1,fi_sst_erai 130 fi_sst_trop= tropflux_id_env+'sst_2000_2009_trop_'+ocean+'.txt'129 fi_sst_trop=project_id_env+'sst_2000_2009_trop_'+ocean+'.txt' 131 130 openw,2,fi_sst_trop 132 fi_sst_oaflx= tropflux_id_env+'sst_2000_2009_oaflx_'+ocean+'.txt'131 fi_sst_oaflx=project_id_env+'sst_2000_2009_oaflx_'+ocean+'.txt' 133 132 openw,3,fi_sst_oaflx 134 fi_sst_ncep= tropflux_id_env+'sst_2000_2009_ncep_'+ocean+'.txt'133 fi_sst_ncep=project_id_env+'sst_2000_2009_ncep_'+ocean+'.txt' 135 134 openw,4,fi_sst_ncep 136 fi_sst_tmi= tropflux_id_env+'sst_2000_2009_tmi_'+ocean+'.txt'135 fi_sst_tmi=project_id_env+'sst_2000_2009_tmi_'+ocean+'.txt' 137 136 openw,5,fi_sst_tmi 138 fi_sst_ncep1= tropflux_id_env+'sst_2000_2009_ncep1_'+ocean+'.txt'137 fi_sst_ncep1=project_id_env+'sst_2000_2009_ncep1_'+ocean+'.txt' 139 138 openw,6,fi_sst_ncep1 140 139 … … 228 227 close,/all 229 228 230 fi_sst_erai= tropflux_id_env+'sst_2000_2009_erai_'+ocean+'.txt'229 fi_sst_erai=project_id_env+'sst_2000_2009_erai_'+ocean+'.txt' 231 230 res=read_ascii(fi_sst_erai,data_start=1) 232 231 ff=res.field1 … … 254 253 oplot, mean_tao, yfit, color=250, thick=2 255 254 256 fi_sst_trop= tropflux_id_env+'sst_2000_2009_trop_'+ocean+'.txt'255 fi_sst_trop=project_id_env+'sst_2000_2009_trop_'+ocean+'.txt' 257 256 res=read_ascii(fi_sst_trop,data_start=1) 258 257 ff=res.field1 … … 281 280 oplot, mean_tao, yfit, color=250, thick=2 282 281 283 fi_sst_oaflx= tropflux_id_env+'sst_2000_2009_oaflx_'+ocean+'.txt'282 fi_sst_oaflx=project_id_env+'sst_2000_2009_oaflx_'+ocean+'.txt' 284 283 res=read_ascii(fi_sst_oaflx,data_start=1) 285 284 ff=res.field1 … … 310 309 311 310 312 fi_sst_ncep= tropflux_id_env+'sst_2000_2009_ncep_'+ocean+'.txt'311 fi_sst_ncep=project_id_env+'sst_2000_2009_ncep_'+ocean+'.txt' 313 312 res=read_ascii(fi_sst_ncep,data_start=1) 314 313 ff=res.field1 … … 338 337 339 338 340 fi_sst_tmi= tropflux_id_env+'sst_2000_2009_tmi_'+ocean+'.txt'339 fi_sst_tmi=project_id_env+'sst_2000_2009_tmi_'+ocean+'.txt' 341 340 res=read_ascii(fi_sst_tmi,data_start=1) 342 341 ff=res.field1 … … 365 364 oplot, mean_tao, yfit, color=250, thick=2 366 365 367 fi_sst_ncep1= tropflux_id_env+'sst_2000_2009_ncep1_'+ocean+'.txt'366 fi_sst_ncep1=project_id_env+'sst_2000_2009_ncep1_'+ocean+'.txt' 368 367 res=read_ascii(fi_sst_ncep1,data_start=1) 369 368 ff=res.field1 … … 394 393 closeps 395 394 396 fig= tropflux_od_env+'sst_validation_scatter_2000_2009_'+ocean+'.ps'395 fig=project_od_env+'sst_validation_scatter_2000_2009_'+ocean+'.ps' 397 396 spawn, 'mv '+psdir+'idl.ps '+fig 398 397 spawn, 'gv '+fig -
trunk/src/paper01/fig7/ws_validation_scatter_2000_2009_basin.pro
r46 r50 16 16 ; rankdir="LR", 17 17 ; ] 18 ; ws_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/ws_2000_2009_erai_*.txt"];19 ; ws_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/ws_2000_2009_trop_*.txt"];20 ; ws_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/ws_2000_2009_oaflx_*.txt"];21 ; ws_ncep [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/ws_2000_2009_ncep_*.txt"];22 ; ws_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/ws_2000_2009_ncep1_*.txt"];23 ; ws_tmi [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/ws_2000_2009_tmi_*.txt"];24 ; 25 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/ws_validation_scatter_2000_2009_basin.ps"];18 ; ws_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ws_2000_2009_erai_*.txt"]; 19 ; ws_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_2000_2009_trop_*.txt"]; 20 ; ws_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_2000_2009_oaflx_*.txt"]; 21 ; ws_ncep [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_2000_2009_ncep_*.txt"]; 22 ; ws_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_2000_2009_ncep1_*.txt"]; 23 ; ws_tmi [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_2000_2009_tmi_*.txt"]; 24 ; 25 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_validation_scatter_2000_2009_basin.ps"]; 26 26 ; 27 27 ; ws_validation_scatter_2000_2009_basin [shape=box, … … 37 37 ; ======== 38 38 ; 39 ; :ref:` tropflux_profile.sh`40 ; :ref:` tropflux_init.pro`41 ; :ref:`cm_ tropflux.pro`39 ; :ref:`project_profile.sh` 40 ; :ref:`project_init.pro` 41 ; :ref:`cm_project.pro` 42 42 ; 43 43 ; :func:`x_site_location` … … 52 52 ; :: 53 53 ; 54 ; IDL> @tropflux_init55 54 ; IDL> date1=19890101L 56 55 ; IDL> date2=20091231L … … 84 83 pro ws_validation_scatter_2000_2009_basin,date1,date2 85 84 @cm_general 86 @cm_ tropflux85 @cm_project 87 86 reinitplt, /z,/invert 88 87 key_portrait = 1 … … 143 142 close,/all 144 143 145 fi_ws_erai= tropflux_id_env+'ws_2000_2009_erai_'+ocean+'.txt'144 fi_ws_erai=project_id_env+'ws_2000_2009_erai_'+ocean+'.txt' 146 145 openw,1,fi_ws_erai 147 fi_ws_trop= tropflux_id_env+'ws_2000_2009_trop_'+ocean+'.txt'146 fi_ws_trop=project_id_env+'ws_2000_2009_trop_'+ocean+'.txt' 148 147 openw,2,fi_ws_trop 149 fi_ws_oaflx= tropflux_id_env+'ws_2000_2009_oaflx_'+ocean+'.txt'148 fi_ws_oaflx=project_id_env+'ws_2000_2009_oaflx_'+ocean+'.txt' 150 149 openw,3,fi_ws_oaflx 151 fi_ws_ncep= tropflux_id_env+'ws_2000_2009_ncep_'+ocean+'.txt'150 fi_ws_ncep=project_id_env+'ws_2000_2009_ncep_'+ocean+'.txt' 152 151 openw,4,fi_ws_ncep 153 fi_ws_tmi= tropflux_id_env+'ws_2000_2009_tmi_'+ocean+'.txt'152 fi_ws_tmi=project_id_env+'ws_2000_2009_tmi_'+ocean+'.txt' 154 153 openw,5,fi_ws_tmi 155 fi_ws_ncep1= tropflux_id_env+'ws_2000_2009_ncep1_'+ocean+'.txt'154 fi_ws_ncep1=project_id_env+'ws_2000_2009_ncep1_'+ocean+'.txt' 156 155 openw,6,fi_ws_ncep1 157 156 … … 167 166 ;; date1=20000101 & date2=20090931 168 167 169 file= tropflux_id_env+'erai_ws_19890101_20091231_oafluxgrid.nc'168 file=project_id_env+'erai_ws_19890101_20091231_oafluxgrid.nc' 170 169 initncdf, file 171 170 u=read_ncdf('u10',date1,date2,file=file,/nostr) … … 244 243 endfor 245 244 close,/all 246 fi_ws_erai= tropflux_id_env+'ws_2000_2009_erai_'+ocean+'.txt'245 fi_ws_erai=project_id_env+'ws_2000_2009_erai_'+ocean+'.txt' 247 246 res=read_ascii(fi_ws_erai,data_start=1) 248 247 ff=res.field1 … … 270 269 oplot, mean_tao, yfit, color=250, thick=2 271 270 272 fi_ws_trop= tropflux_id_env+'ws_2000_2009_trop_'+ocean+'.txt'271 fi_ws_trop=project_id_env+'ws_2000_2009_trop_'+ocean+'.txt' 273 272 res=read_ascii(fi_ws_trop,data_start=1) 274 273 ff=res.field1 … … 297 296 oplot, mean_tao, yfit, color=250, thick=2 298 297 299 fi_ws_oaflx= tropflux_id_env+'ws_2000_2009_oaflx_'+ocean+'.txt'298 fi_ws_oaflx=project_id_env+'ws_2000_2009_oaflx_'+ocean+'.txt' 300 299 res=read_ascii(fi_ws_oaflx,data_start=1) 301 300 ff=res.field1 … … 326 325 327 326 328 fi_ws_ncep= tropflux_id_env+'ws_2000_2009_ncep_'+ocean+'.txt'327 fi_ws_ncep=project_id_env+'ws_2000_2009_ncep_'+ocean+'.txt' 329 328 res=read_ascii(fi_ws_ncep,data_start=1) 330 329 ff=res.field1 … … 353 352 oplot, mean_tao, yfit, color=250, thick=2 354 353 355 fi_ws_tmi= tropflux_id_env+'ws_2000_2009_tmi_'+ocean+'.txt'354 fi_ws_tmi=project_id_env+'ws_2000_2009_tmi_'+ocean+'.txt' 356 355 res=read_ascii(fi_ws_tmi,data_start=1) 357 356 ff=res.field1 … … 381 380 382 381 383 fi_ws_ncep1= tropflux_id_env+'ws_2000_2009_ncep1_'+ocean+'.txt'382 fi_ws_ncep1=project_id_env+'ws_2000_2009_ncep1_'+ocean+'.txt' 384 383 res=read_ascii(fi_ws_ncep1,data_start=1) 385 384 ff=res.field1 … … 410 409 closeps 411 410 412 fig= tropflux_od_env+'ws_validation_scatter_2000_2009_'+ocean+'.ps'411 fig=project_od_env+'ws_validation_scatter_2000_2009_'+ocean+'.ps' 413 412 spawn, 'mv '+psdir+'idl.ps '+fig 414 413 spawn, 'gv '+fig -
trunk/src/paper01/fig8/lhf_validation_scatter_2000_2009.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; lhf_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_2000_2009_erai_v52.txt"];18 ; lhf_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/lhf_2000_2009_trop_v52.txt"];19 ; lhf_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/lhf_2000_2009_oaflx_v52.txt"];20 ; lhf_ncep [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/lhf_2000_2009_ncep_v52.txt"];21 ; lhf_ncep2_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"];22 ; lhf_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/lhf_2000_2009_ncep1_v52.txt"];23 ; lhf_ncep1_2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/fluxe_ncep1_19890101_20091231.nc"];24 ; lhf_erai_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_lhf_19890101_20091231_oafluxgrid.nc"];25 ; lhf_tropflux2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_19890101_20091231.nc"];26 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lhf_oafluxgrid_1985_2009.nc"];27 ; 28 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/lhf_validation_scatter_2000_2009.ps"];17 ; lhf_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_2000_2009_erai_v52.txt"]; 18 ; lhf_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/lhf_2000_2009_trop_v52.txt"]; 19 ; lhf_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/lhf_2000_2009_oaflx_v52.txt"]; 20 ; lhf_ncep [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/lhf_2000_2009_ncep_v52.txt"]; 21 ; lhf_ncep2_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"]; 22 ; lhf_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/lhf_2000_2009_ncep1_v52.txt"]; 23 ; lhf_ncep1_2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/fluxe_ncep1_19890101_20091231.nc"]; 24 ; lhf_erai_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lhf_19890101_20091231_oafluxgrid.nc"]; 25 ; lhf_tropflux2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_19890101_20091231.nc"]; 26 ; lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_oafluxgrid_1985_2009.nc"]; 27 ; 28 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/lhf_validation_scatter_2000_2009.ps"]; 29 29 ; 30 30 ; lhf_validation_scatter_2000_2009 [shape=box, … … 40 40 ; ======== 41 41 ; 42 ; :ref:` tropflux_profile.sh`43 ; :ref:` tropflux_init.pro`44 ; :ref:`cm_ tropflux.pro`42 ; :ref:`project_profile.sh` 43 ; :ref:`project_init.pro` 44 ; :ref:`cm_project.pro` 45 45 ; 46 46 ; :func:`x_site_location` … … 55 55 ; :: 56 56 ; 57 ; IDL> @tropflux_init58 57 ; IDL> date1=19890101L 59 58 ; IDL> date2=20091231L … … 93 92 pro lhf_validation_scatter_2000_2009,date1,date2 94 93 @cm_general 95 @cm_ tropflux94 @cm_project 96 95 reinitplt, /z,/invert 97 96 key_portrait = 1 … … 119 118 close,/all 120 119 121 fi_lhf_erai= tropflux_id_env+'lhf_2000_2009_erai_v52.txt'120 fi_lhf_erai=project_id_env+'lhf_2000_2009_erai_v52.txt' 122 121 openw,1,fi_lhf_erai 123 fi_lhf_trop= tropflux_id_env+'lhf_2000_2009_trop_v52.txt'122 fi_lhf_trop=project_id_env+'lhf_2000_2009_trop_v52.txt' 124 123 openw,2,fi_lhf_trop 125 fi_lhf_oaflx= tropflux_id_env+'lhf_2000_2009_oaflx_v52.txt'124 fi_lhf_oaflx=project_id_env+'lhf_2000_2009_oaflx_v52.txt' 126 125 openw,3,fi_lhf_oaflx 127 fi_lhf_ncep= tropflux_id_env+'lhf_2000_2009_ncep_v52.txt'126 fi_lhf_ncep=project_id_env+'lhf_2000_2009_ncep_v52.txt' 128 127 openw,4,fi_lhf_ncep 129 fi_lhf_ncep1= tropflux_id_env+'lhf_2000_2009_ncep1_v52.txt'128 fi_lhf_ncep1=project_id_env+'lhf_2000_2009_ncep1_v52.txt' 130 129 openw,5,fi_lhf_ncep1 131 130 … … 138 137 ;; first reading the whole ERAI uncorrected and corrected data 139 138 140 file= tropflux_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc'139 file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 141 140 initncdf, file 142 141 unc=read_ncdf('lhf',date1,date2,file=file,/nostr) 143 142 help, unc 144 143 145 file= tropflux_id_env+"TropFlux_19890101_20091231.nc"144 file=project_id_env+"TropFlux_19890101_20091231.nc" 146 145 initncdf, file 147 146 cor=read_ncdf('lhf',date1,date2,file=file,/nostr) … … 149 148 help, cor 150 149 151 file= tropflux_id_env+'lhf_oafluxgrid_1985_2009.nc'150 file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 152 151 initncdf, file 153 152 oaf=read_ncdf("lhf", date1, date2, file=file,/nostr) 154 153 help, oaf 155 154 156 fi= tropflux_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc'155 fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 157 156 initncdf, fi 158 157 nce=read_ncdf("lhf", date1, date2, file=fi,/nostr) 159 158 help, nce 160 159 161 file= tropflux_id_env+'fluxe_ncep1_19890101_20091231.nc'160 file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 162 161 initncdf, file 163 162 nce1=-1*read_ncdf("lhf", date1, date2, file=file,/nostr) … … 228 227 close,/all 229 228 230 fi_lhf_erai= tropflux_id_env+'lhf_2000_2009_erai_v52.txt'229 fi_lhf_erai=project_id_env+'lhf_2000_2009_erai_v52.txt' 231 230 res=read_ascii(fi_lhf_erai,data_start=1) 232 231 ff=res.field1 … … 259 258 oplot, [20,200], [20,200] 260 259 261 fi_lhf_trop= tropflux_id_env+'lhf_2000_2009_trop_v52.txt'260 fi_lhf_trop=project_id_env+'lhf_2000_2009_trop_v52.txt' 262 261 res=read_ascii(fi_lhf_trop,data_start=1) 263 262 ff=res.field1 … … 291 290 292 291 293 fi_lhf_oaflx= tropflux_id_env+'lhf_2000_2009_oaflx_v52.txt'292 fi_lhf_oaflx=project_id_env+'lhf_2000_2009_oaflx_v52.txt' 294 293 res=read_ascii(fi_lhf_oaflx,data_start=1) 295 294 ff=res.field1 … … 322 321 oplot, [20,200], [20,200] 323 322 324 fi_lhf_ncep= tropflux_id_env+'lhf_2000_2009_ncep_v52.txt'323 fi_lhf_ncep=project_id_env+'lhf_2000_2009_ncep_v52.txt' 325 324 res=read_ascii(fi_lhf_ncep,data_start=1) 326 325 ff=res.field1 … … 353 352 oplot, [20,200], [20,200] 354 353 355 fi_lhf_ncep1= tropflux_id_env+'lhf_2000_2009_ncep1_v52.txt'354 fi_lhf_ncep1=project_id_env+'lhf_2000_2009_ncep1_v52.txt' 356 355 res=read_ascii(fi_lhf_ncep1,data_start=1) 357 356 ff=res.field1 … … 386 385 closeps 387 386 388 fig= tropflux_od_env+'lhf_validation_scatter_2000_2009.ps'387 fig=project_od_env+'lhf_validation_scatter_2000_2009.ps' 389 388 spawn, 'mv '+psdir+'idl.ps '+fig 390 389 spawn, 'gv '+fig -
trunk/src/paper01/fig8/shf_validation_scatter_2000_2009.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; shf_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_2000_2009_erai_v52.txt"];18 ; shf_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/shf_2000_2009_trop_v52.txt"];19 ; shf_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/shf_2000_2009_oaflx_v52.txt"];20 ; shf_ncep [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/shf_2000_2009_ncep_v52.txt"];21 ; shf_ncep2_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"];22 ; shf_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/shf_2000_2009_ncep1_v52.txt"];23 ; shf_ncep1_2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/fluxe_ncep1_19890101_20091231.nc"];24 ; shf_erai_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_shf_19890101_20091231_oafluxgrid.nc"];25 ; shf_tropflux2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_19890101_20091231.nc"];26 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/shf_oafluxgrid_1985_2009.nc"];27 ; 28 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/shf_validation_scatter_2000_2009.ps"];17 ; shf_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_2000_2009_erai_v52.txt"]; 18 ; shf_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/shf_2000_2009_trop_v52.txt"]; 19 ; shf_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/shf_2000_2009_oaflx_v52.txt"]; 20 ; shf_ncep [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/shf_2000_2009_ncep_v52.txt"]; 21 ; shf_ncep2_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"]; 22 ; shf_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/shf_2000_2009_ncep1_v52.txt"]; 23 ; shf_ncep1_2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/fluxe_ncep1_19890101_20091231.nc"]; 24 ; shf_erai_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_shf_19890101_20091231_oafluxgrid.nc"]; 25 ; shf_tropflux2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_19890101_20091231.nc"]; 26 ; shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_oafluxgrid_1985_2009.nc"]; 27 ; 28 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/shf_validation_scatter_2000_2009.ps"]; 29 29 ; 30 30 ; shf_validation_scatter_2000_2009 [shape=box, … … 40 40 ; ======== 41 41 ; 42 ; :ref:` tropflux_profile.sh`43 ; :ref:` tropflux_init.pro`44 ; :ref:`cm_ tropflux.pro`42 ; :ref:`project_profile.sh` 43 ; :ref:`project_init.pro` 44 ; :ref:`cm_project.pro` 45 45 ; 46 46 ; :func:`x_site_location` … … 55 55 ; :: 56 56 ; 57 ; IDL> @tropflux_init58 57 ; IDL> date1=19890101L 59 58 ; IDL> date2=20091231L … … 93 92 pro shf_validation_scatter_2000_2009, date1, date2 94 93 @cm_general 95 @cm_ tropflux94 @cm_project 96 95 reinitplt, /z,/invert 97 96 key_portrait = 1 … … 120 119 close,/all 121 120 122 fi_shf_erai= tropflux_id_env+'shf_2000_2009_erai_v52.txt'121 fi_shf_erai=project_id_env+'shf_2000_2009_erai_v52.txt' 123 122 openw,1,fi_shf_erai 124 fi_shf_trop= tropflux_id_env+'shf_2000_2009_trop_v52.txt'123 fi_shf_trop=project_id_env+'shf_2000_2009_trop_v52.txt' 125 124 openw,2,fi_shf_trop 126 fi_shf_oaflx= tropflux_id_env+'shf_2000_2009_oaflx_v52.txt'125 fi_shf_oaflx=project_id_env+'shf_2000_2009_oaflx_v52.txt' 127 126 openw,3,fi_shf_oaflx 128 fi_shf_ncep= tropflux_id_env+'shf_2000_2009_ncep_v52.txt'127 fi_shf_ncep=project_id_env+'shf_2000_2009_ncep_v52.txt' 129 128 openw,4,fi_shf_ncep 130 129 131 fi_shf_ncep1= tropflux_id_env+'shf_2000_2009_ncep1_v52.txt'130 fi_shf_ncep1=project_id_env+'shf_2000_2009_ncep1_v52.txt' 132 131 openw,5,fi_shf_ncep1 133 132 … … 141 140 ;; first reading the whole ERAI uncorrected and corrected data 142 141 143 file= tropflux_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc'142 file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 144 143 initncdf, file 145 144 unc=read_ncdf('shf',date1,date2,file=file,/nostr) 146 145 help, unc 147 146 148 file= tropflux_id_env+'TropFlux_19890101_20091231_v51.nc'147 file=project_id_env+'TropFlux_19890101_20091231_v51.nc' 149 148 initncdf, file 150 149 cor=read_ncdf('shf',date1,date2,file=file,/nostr) … … 152 151 help, cor 153 152 154 file= tropflux_id_env+'shf_oafluxgrid_1985_2009.nc'153 file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 155 154 initncdf, file 156 155 oaf=read_ncdf("shf", date1, date2, file=file,/nostr) 157 156 help, oaf 158 157 159 fi= tropflux_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc'158 fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 160 159 initncdf, fi 161 160 nce=read_ncdf("shf", date1, date2, file=fi,/nostr) 162 161 help, nce 163 162 164 file= tropflux_id_env+'fluxe_ncep1_19890101_20091231.nc'163 file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 165 164 initncdf, file 166 165 nce1=-1*read_ncdf("shf", date1, date2, file=file,/nostr) … … 228 227 close,/all 229 228 230 fi_shf_erai= tropflux_id_env+'shf_2000_2009_erai_v52.txt'229 fi_shf_erai=project_id_env+'shf_2000_2009_erai_v52.txt' 231 230 res=read_ascii(fi_shf_erai,data_start=1) 232 231 ff=res.field1 … … 260 259 261 260 262 fi_shf_trop= tropflux_id_env+'shf_2000_2009_trop_v52.txt'261 fi_shf_trop=project_id_env+'shf_2000_2009_trop_v52.txt' 263 262 res=read_ascii(fi_shf_trop,data_start=1) 264 263 ff=res.field1 … … 292 291 293 292 294 fi_shf_oaflx= tropflux_id_env+'shf_2000_2009_oaflx_v52.txt'293 fi_shf_oaflx=project_id_env+'shf_2000_2009_oaflx_v52.txt' 295 294 res=read_ascii(fi_shf_oaflx,data_start=1) 296 295 ff=res.field1 … … 323 322 oplot, [-5,25], [-5,25] 324 323 325 fi_shf_ncep= tropflux_id_env+'shf_2000_2009_ncep_v52.txt'324 fi_shf_ncep=project_id_env+'shf_2000_2009_ncep_v52.txt' 326 325 res=read_ascii(fi_shf_ncep,data_start=1) 327 326 ff=res.field1 … … 354 353 oplot, [-5,25], [-5,25] 355 354 356 fi_shf_ncep1= tropflux_id_env+'shf_2000_2009_ncep1_v52.txt'355 fi_shf_ncep1=project_id_env+'shf_2000_2009_ncep1_v52.txt' 357 356 res=read_ascii(fi_shf_ncep1,data_start=1) 358 357 ff=res.field1 … … 387 386 closeps 388 387 389 fig= tropflux_od_env+'shf_validation_scatter_2000_2009.ps'388 fig=project_od_env+'shf_validation_scatter_2000_2009.ps' 390 389 spawn, 'mv '+psdir+'idl.ps '+fig 391 390 spawn, 'gv '+fig -
trunk/src/paper01/fig9/lwr_validation_scatter_2000_2007.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; lwr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lwr_2000_2007_erai.txt"];18 ; lwr_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/lwr_2000_2007_trop.txt"];19 ; lwr_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/lwr_2000_2007_oaflx.txt"];20 ; lwr_ncep [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/lwr_2000_2007_ncep.txt"];21 ; lwr_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/lwr_2000_2007_ncep1.txt"];22 ; lwr_ncep1_2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/fluxe_ncep1_19890101_20091231.nc"];23 ; lwr_clark [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lwr_2000_2007_clark.txt"];24 ; lwr_erai_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc"];25 ; lwr_tropflux2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_lwr_19890101_20091231.nc"];26 ; lwr_tropflux3 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_19890101_20091231.nc"];27 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/lwr_oafluxgrid_1985_2007.nc"];28 ; lwr_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/NCEP2_flux_19890101_20090729.nc"];29 ; 30 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/lwr_validation_scatter_2000_2007.ps"];17 ; lwr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lwr_2000_2007_erai.txt"]; 18 ; lwr_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/lwr_2000_2007_trop.txt"]; 19 ; lwr_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/lwr_2000_2007_oaflx.txt"]; 20 ; lwr_ncep [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/lwr_2000_2007_ncep.txt"]; 21 ; lwr_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/lwr_2000_2007_ncep1.txt"]; 22 ; lwr_ncep1_2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/fluxe_ncep1_19890101_20091231.nc"]; 23 ; lwr_clark [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lwr_2000_2007_clark.txt"]; 24 ; lwr_erai_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc"]; 25 ; lwr_tropflux2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_lwr_19890101_20091231.nc"]; 26 ; lwr_tropflux3 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_19890101_20091231.nc"]; 27 ; lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lwr_oafluxgrid_1985_2007.nc"]; 28 ; lwr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/NCEP2_flux_19890101_20090729.nc"]; 29 ; 30 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/lwr_validation_scatter_2000_2007.ps"]; 31 31 ; 32 32 ; lwr_validation_scatter_2000_2007 [shape=box, … … 42 42 ; ======== 43 43 ; 44 ; :ref:` tropflux_profile.sh`45 ; 46 ; :ref:` tropflux_init.pro`47 ; :ref:`cm_ tropflux.pro`44 ; :ref:`project_profile.sh` 45 ; 46 ; :ref:`project_init.pro` 47 ; :ref:`cm_project.pro` 48 48 ; 49 49 ; :func:`x_site_location` … … 58 58 ; :: 59 59 ; 60 ; IDL> @tropflux_init61 60 ; IDL> date1=19890101L 62 61 ; IDL> date2=20091231L … … 96 95 pro lwr_validation_scatter_2000_2007, date1, date2 97 96 @cm_general 98 @cm_ tropflux97 @cm_project 99 98 reinitplt, /z,/invert 100 99 key_portrait = 1 … … 126 125 close,/all 127 126 128 fi_lwr_erai= tropflux_id_env+'lwr_2000_2007_erai.txt'127 fi_lwr_erai=project_id_env+'lwr_2000_2007_erai.txt' 129 128 openw,1,fi_lwr_erai 130 fi_lwr_trop= tropflux_id_env+'lwr_2000_2007_trop.txt'129 fi_lwr_trop=project_id_env+'lwr_2000_2007_trop.txt' 131 130 openw,2,fi_lwr_trop 132 fi_lwr_oaflx= tropflux_id_env+'lwr_2000_2007_oaflx.txt'131 fi_lwr_oaflx=project_id_env+'lwr_2000_2007_oaflx.txt' 133 132 openw,3,fi_lwr_oaflx 134 fi_lwr_ncep= tropflux_id_env+'lwr_2000_2007_ncep.txt'133 fi_lwr_ncep=project_id_env+'lwr_2000_2007_ncep.txt' 135 134 openw,4,fi_lwr_ncep 136 fi_lwr_ncep1= tropflux_id_env+'lwr_2000_2007_ncep1.txt'135 fi_lwr_ncep1=project_id_env+'lwr_2000_2007_ncep1.txt' 137 136 openw,5,fi_lwr_ncep1 138 fi_lwr_clark= tropflux_id_env+'lwr_2000_2007_clark.txt'137 fi_lwr_clark=project_id_env+'lwr_2000_2007_clark.txt' 139 138 openw,6,fi_lwr_clark 140 139 … … 148 147 ;; first reading the whole ERAI uncorrected and corrected data 149 148 150 file= tropflux_id_env+'erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc'149 file=project_id_env+'erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc' 151 150 initncdf, file 152 151 unc=read_ncdf('lwr',date1,date2,file=file,/nostr) 153 152 help, unc 154 153 155 file= tropflux_id_env+'TropFlux_lwr_19890101_20091231.nc"154 file=project_id_env+'TropFlux_lwr_19890101_20091231.nc" 156 155 initncda, file 157 156 cor=read_ncdf('lwr',date1,date2,file=file,/nostr) & cor=-1*cor 158 157 help, cor 159 158 160 file= tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc'159 file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 161 160 initncdf, file 162 161 oaf=read_ncdf("lwr", date1, date2, file=file,/nostr) 163 162 help, oaf 164 163 165 fi= tropflux_id_env+'NCEP2_flux_19890101_20090729.nc'164 fi=project_id_env+'NCEP2_flux_19890101_20090729.nc' 166 165 initncdf, fi 167 166 nce=read_ncdf("lwr", date1, date2, file=fi,/nostr) ;; & nce=-1*nce 168 167 help, nce 169 168 170 file= tropflux_id_env+'fluxe_ncep1_19890101_20091231.nc'169 file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 171 170 initncdf, file 172 171 nce1=-1*read_ncdf("lwr", date1, date2, file=file,/nostr) 173 172 help, nce1 174 173 175 file= tropflux_id_env+'TropFlux_19890101_20091231.nc'174 file=project_id_env+'TropFlux_19890101_20091231.nc' 176 175 initncdf, file 177 176 clark=-1*read_ncdf("lwr", date1, date2, file=file,/nostr) … … 245 244 close,/all 246 245 247 fi_lwr_erai= tropflux_id_env+'lwr_2000_2007_erai.txt'246 fi_lwr_erai=project_id_env+'lwr_2000_2007_erai.txt' 248 247 res=read_ascii(fi_lwr_erai,data_start=1) 249 248 ff=res.field1 … … 278 277 significance_test, mean_tao, mean_erai 279 278 280 fi_lwr_trop= tropflux_id_env+'lwr_2000_2007_trop.txt'279 fi_lwr_trop=project_id_env+'lwr_2000_2007_trop.txt' 281 280 res=read_ascii(fi_lwr_trop,data_start=1) 282 281 ff=res.field1 … … 311 310 significance_test, mean_tao, mean_trop 312 311 313 fi_lwr_oaflx= tropflux_id_env+'lwr_2000_2007_oaflx.txt'312 fi_lwr_oaflx=project_id_env+'lwr_2000_2007_oaflx.txt' 314 313 res=read_ascii(fi_lwr_oaflx,data_start=1) 315 314 ff=res.field1 … … 344 343 significance_test, mean_tao, mean_oaf 345 344 346 fi_lwr_ncep= tropflux_id_env+'lwr_2000_2007_ncep.txt'345 fi_lwr_ncep=project_id_env+'lwr_2000_2007_ncep.txt' 347 346 res=read_ascii(fi_lwr_ncep,data_start=1) 348 347 ff=res.field1 … … 377 376 significance_test, mean_tao, mean_nce 378 377 379 fi_lwr_ncep1= tropflux_id_env+'lwr_2000_2007_ncep1.txt'378 fi_lwr_ncep1=project_id_env+'lwr_2000_2007_ncep1.txt' 380 379 res=read_ascii(fi_lwr_ncep1,data_start=1) 381 380 ff=res.field1 … … 410 409 significance_test, mean_tao, mean_nce 411 410 412 fi_lwr_clark= tropflux_id_env+'lwr_2000_2007_clark.txt'411 fi_lwr_clark=project_id_env+'lwr_2000_2007_clark.txt' 413 412 res=read_ascii(fi_lwr_clark,data_start=1) 414 413 ff=res.field1 … … 445 444 closeps 446 445 447 fig= tropflux_od_env+'lwr_validation_scatter_2000_2007.ps'446 fig=project_od_env+'lwr_validation_scatter_2000_2007.ps' 448 447 spawn, 'mv '+psdir+'idl.ps '+fig 449 448 spawn, 'gv '+fig -
trunk/src/paper01/fig9/swr_validation_scatter_2000_2007.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; swr_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_2000_2007_erai_v50.txt"];18 ; swr_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/swr_2000_2007_trop_v50.txt"];19 ; swr_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/swr_2000_2007_oaflx_v50.txt"];20 ; swr_ncep [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/swr_2000_2007_ncep_v50.txt"];21 ; swr_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/swr_2000_2007_ncep1_v50.txt"];22 ; swr_olr [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/swr_2000_2007_olr_v50.txt"];23 ; swr_ncep1_2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/fluxe_ncep1_19890101_20091231.nc"];24 ; swr_erai_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_fluxes_20000101_20090801_TROP_oafluxgrid.nc"];25 ; swr_tropflux2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_swr_19890101_20091231_DT_v51.nc"];26 ; swr_tropflux3 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_19890101_20091231.nc"];27 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_oafluxgrid_1985_2007.nc"];28 ; swr_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"];29 ; 30 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/swr_validation_scatter_2000_2007.ps"];17 ; swr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_2000_2007_erai_v50.txt"]; 18 ; swr_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/swr_2000_2007_trop_v50.txt"]; 19 ; swr_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/swr_2000_2007_oaflx_v50.txt"]; 20 ; swr_ncep [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/swr_2000_2007_ncep_v50.txt"]; 21 ; swr_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/swr_2000_2007_ncep1_v50.txt"]; 22 ; swr_olr [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/swr_2000_2007_olr_v50.txt"]; 23 ; swr_ncep1_2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/fluxe_ncep1_19890101_20091231.nc"]; 24 ; swr_erai_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_fluxes_20000101_20090801_TROP_oafluxgrid.nc"]; 25 ; swr_tropflux2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_swr_19890101_20091231_DT_v51.nc"]; 26 ; swr_tropflux3 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_19890101_20091231.nc"]; 27 ; swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_oafluxgrid_1985_2007.nc"]; 28 ; swr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"]; 29 ; 30 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/swr_validation_scatter_2000_2007.ps"]; 31 31 ; 32 32 ; swr_validation_scatter_2000_2007 [shape=box, … … 42 42 ; ======== 43 43 ; 44 ; :ref:` tropflux_profile.sh`45 ; :ref:` tropflux_init.pro`46 ; :ref:`cm_ tropflux.pro`44 ; :ref:`project_profile.sh` 45 ; :ref:`project_init.pro` 46 ; :ref:`cm_project.pro` 47 47 ; 48 48 ; :func:`x_site_location` … … 57 57 ; :: 58 58 ; 59 ; IDL> @tropflux_init60 59 ; IDL> date1=19890101L 61 60 ; IDL> date2=20091231L … … 95 94 pro swr_validation_scatter_2000_2007, date1, date2 96 95 @cm_genral 97 @cm_ tropflux96 @cm_project 98 97 reinitplt, /z,/invert 99 98 key_portrait = 1 … … 124 123 close,/all 125 124 126 fi_swr_erai= tropflux_id_env+'swr_2000_2007_erai_v50.txt'125 fi_swr_erai=project_id_env+'swr_2000_2007_erai_v50.txt' 127 126 openw,1,fi_swr_erai 128 fi_swr_trop= tropflux_id_env+'swr_2000_2007_trop_v50.txt'127 fi_swr_trop=project_id_env+'swr_2000_2007_trop_v50.txt' 129 128 openw,2,fi_swr_trop 130 fi_swr_oaflx= tropflux_id_env+'swr_2000_2007_oaflx_v50.txt'129 fi_swr_oaflx=project_id_env+'swr_2000_2007_oaflx_v50.txt' 131 130 openw,3,fi_swr_oaflx 132 fi_swr_ncep= tropflux_id_env+'swr_2000_2007_ncep_v50.txt'131 fi_swr_ncep=project_id_env+'swr_2000_2007_ncep_v50.txt' 133 132 openw,4,fi_swr_ncep 134 fi_swr_ncep1= tropflux_id_env+'swr_2000_2007_ncep1_v50.txt'133 fi_swr_ncep1=project_id_env+'swr_2000_2007_ncep1_v50.txt' 135 134 openw,5,fi_swr_ncep1 136 fi_swr_olr= tropflux_id_env+'swr_2000_2007_olr_v50.txt'135 fi_swr_olr=project_id_env+'swr_2000_2007_olr_v50.txt' 137 136 openw,6,fi_swr_olr 138 137 … … 147 146 ;; first reading the whole ERAI uncorrected and corrected data 148 147 149 file= tropflux_id_env+'erai_fluxes_20000101_20090801_TROP_oafluxgrid.nc'148 file=project_id_env+'erai_fluxes_20000101_20090801_TROP_oafluxgrid.nc' 150 149 initncdf, file 151 150 unc=read_ncdf('swr',date1,date2,file=file,/nostr) & unc=-1*unc 152 151 help, unc 153 152 154 file= tropflux_id_env+'TropFlux_swr_19890101_20071231_DT_v51.nc'153 file=project_id_env+'TropFlux_swr_19890101_20071231_DT_v51.nc' 155 154 initncdf, file 156 155 cor=read_ncdf('swr',date1,date2,file=file,/nostr) 157 156 help, cor 158 157 159 file= tropflux_id_env+'swr_oafluxgrid_1985_2007.nc'158 file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 160 159 initncdf, file 161 160 oaf=read_ncdf("swr", date1, date2, file=file,/nostr) 162 161 help, oaf 163 162 164 fi= tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc'163 fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 165 164 initncdf, fi 166 165 nce=read_ncdf("swr", date1, date2, file=fi,/nostr) & nce=0.94*nce 167 166 help, nce 168 167 169 file= tropflux_id_env+'fluxe_ncep1_19890101_20091231.nc'168 file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 170 169 initncdf, file 171 170 nce1=read_ncdf("swr", date1, date2, file=file,/nostr) 172 171 help, nce1 173 172 174 file= tropflux_id_env+'TropFlux_swr_19890101_20091231_NRT_v50.nc'173 file=project_id_env+'TropFlux_swr_19890101_20091231_NRT_v50.nc' 175 174 initncdf, file 176 175 sw_olr=read_ncdf("sw", date1-1, date2, file=file,/nostr) … … 244 243 close,/all 245 244 246 fi_swr_erai= tropflux_id_env+'swr_2000_2007_erai_v50.txt'245 fi_swr_erai=project_id_env+'swr_2000_2007_erai_v50.txt' 247 246 res=read_ascii(fi_swr_erai,data_start=1) 248 247 ff=res.field1 … … 276 275 277 276 278 fi_swr_trop= tropflux_id_env+'swr_2000_2007_trop_v50.txt'277 fi_swr_trop=project_id_env+'swr_2000_2007_trop_v50.txt' 279 278 res=read_ascii(fi_swr_trop,data_start=1) 280 279 ff=res.field1 … … 308 307 309 308 310 fi_swr_oaflx= tropflux_id_env+'swr_2000_2007_oaflx_v50.txt'309 fi_swr_oaflx=project_id_env+'swr_2000_2007_oaflx_v50.txt' 311 310 res=read_ascii(fi_swr_oaflx,data_start=1) 312 311 ff=res.field1 … … 340 339 341 340 342 fi_swr_ncep= tropflux_id_env+'swr_2000_2007_ncep_v50.txt'341 fi_swr_ncep=project_id_env+'swr_2000_2007_ncep_v50.txt' 343 342 res=read_ascii(fi_swr_ncep,data_start=1) 344 343 ff=res.field1 … … 372 371 373 372 374 fi_swr_ncep1= tropflux_id_env+'swr_2000_2007_ncep1_v50.txt'373 fi_swr_ncep1=project_id_env+'swr_2000_2007_ncep1_v50.txt' 375 374 res=read_ascii(fi_swr_ncep1,data_start=1) 376 375 ff=res.field1 … … 404 403 405 404 406 fi_swr_olr= tropflux_id_env+'swr_2000_2007_olr_v50.txt'405 fi_swr_olr=project_id_env+'swr_2000_2007_olr_v50.txt' 407 406 res=read_ascii(fi_swr_olr,data_start=1) 408 407 ff=res.field1 … … 438 437 closeps 439 438 440 fig= tropflux_od_env+'swr_validation_scatter_2000_2007.ps'439 fig=project_od_env+'swr_validation_scatter_2000_2007.ps' 441 440 spawn, 'mv '+psdir+'idl.ps '+fig 442 441 spawn, 'gv '+fig -
trunk/src/plogd.sh
r2 r50 7 7 # 8 8 # ===================================================================================================== 9 # plogd.sh -- prints the most recent release of :file:`${ TROPFLUX_LOG}/{action}.log.{YYYYMMDDTHHMMSSZ}`9 # plogd.sh -- prints the most recent release of :file:`${PROJECT_LOG}/{action}.log.{YYYYMMDDTHHMMSSZ}` 10 10 # ===================================================================================================== 11 11 # … … 21 21 # =========== 22 22 # 23 # ``plogd.sh`` prints the most recent release of :file:`${ TROPFLUX_LOG}/{action}.log.{YYYYMMDDTHHMMSSZ}`.23 # ``plogd.sh`` prints the most recent release of :file:`${PROJECT_LOG}/{action}.log.{YYYYMMDDTHHMMSSZ}`. 24 24 # 25 25 # Print is done on the default printer. … … 28 28 # ======== 29 29 # 30 # :ref:` tropflux_profile.sh`30 # :ref:`project_profile.sh` 31 31 # 32 32 # :ref:`dlogd.sh` … … 78 78 unset status 79 79 # 80 log=$(find ${ TROPFLUX_LOG} -name "${1}.log.????????T??????Z" | sort | \80 log=$(find ${PROJECT_LOG} -name "${1}.log.????????T??????Z" | sort | \ 81 81 tail -n 1) 82 82 tmp=${?} … … 85 85 if [ "${log}" = "" ] 86 86 then 87 echo "${command} : eee : no release of ${ TROPFLUX_LOG}/${1}.log" >&287 echo "${command} : eee : no release of ${PROJECT_LOG}/${1}.log" >&2 88 88 exit 1 89 89 else -
trunk/src/plot_tropflux.pro
r49 r50 1 1 ;+ 2 ;3 2 ; ======================================= 4 3 ; plot_tropflux.pro -- Plot TropFlux data … … 7 6 ; .. function:: plot_tropflux(tropflux_varname) 8 7 ; 9 ; Produce +todo+ figures with TROPFLUX data 10 ; 11 ; **tropflux_varname* must be one one these strings : 12 ; q2m t2m sst ws swr lwr lhf shf 8 ; :param tropflux_varname: variable name to be plot 9 ; q2m t2m sst ws swr lwr lhf shf 10 ; 11 ; Produce +todo+ figures with PROJECT data 12 ; 13 13 ; 14 14 ; .. graphviz:: … … 18 18 ; rankdir="LR", 19 19 ; ] 20 ; file_tropflux_q2m [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_q2m_19890101_20091231.nc"];21 ; file_tropflux_t2m [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/tropFlux_t2m_19890101_20091231.nc"];22 ; file_tropflux_ws [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_ws_19890101_20091231.nc"];23 ; file_tropflux_sst [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_sst_19890101_20091231.nc"];24 ; file_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/TropFlux_19890101_20091231.nc"];25 ; figure_ ++_tropflux_++ [shape=ellipse,fontname=Courier,label="${TROPFLUX_OD}/plot_tropflux_++_year.png"];20 ; file_tropflux_q2m [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_q2m_19890101_20091231.nc"]; 21 ; file_tropflux_t2m [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/tropFlux_t2m_19890101_20091231.nc"]; 22 ; file_tropflux_ws [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_ws_19890101_20091231.nc"]; 23 ; file_tropflux_sst [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_sst_19890101_20091231.nc"]; 24 ; file_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_19890101_20091231.nc"]; 25 ; figure_tropflux_year [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/plot_tropflux_++_year.png"]; 26 26 ; 27 27 ; plot_tropflux [shape=box, … … 29 29 ; color=blue, 30 30 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/plot_tropflux.pro", 31 ; label="${ TROPFLUX}/src/plot_tropflux.pro"];32 ; 33 ; {file_tropflux_q2m file_tropflux_t2m file_tropflux_sst file_tropflux_ws file_tropflux} -> {plot_tropflux} -> {figure_ ++_tropflux_++}31 ; label="${PROJECT}/src/plot_tropflux.pro"]; 32 ; 33 ; {file_tropflux_q2m file_tropflux_t2m file_tropflux_sst file_tropflux_ws file_tropflux} -> {plot_tropflux} -> {figure_tropflux_year} 34 34 ; 35 35 ; } … … 38 38 ; ======== 39 39 ; 40 ; To plot ++ of q2m from :file:`${ TROPFLUX}/TropFlux_q2m_19890101_20091231.nc`::41 ; 42 ; IDL> @ tropflux_init40 ; To plot ++ of q2m from :file:`${PROJECT}/TropFlux_q2m_19890101_20091231.nc`:: 41 ; 42 ; IDL> @project_init 43 43 ; IDL> tropflux_varname='q2m' 44 44 ; IDL> status = plot_tropflux(tropflux_varname) … … 46 46 ; **status** is 0 if everything is ok, -1 otherwise 47 47 ; 48 ; :file:`${ TROPFLUX_OD}/plot_tropflux_q2m_year.png` and49 ; :file:`${ TROPFLUX_OD}/plot_tropflux_q2m_month.png` have been created.50 ; 51 ; Same idea for t2m from :file:`${ TROPFLUX}/TropFlux_t2m_19890101_20091231.nc`::52 ; 53 ; IDL> @ tropflux_init48 ; :file:`${PROJECT_OD}/plot_tropflux_q2m_year.png` and 49 ; :file:`${PROJECT_OD}/plot_tropflux_q2m_month.png` have been created. 50 ; 51 ; Same idea for t2m from :file:`${PROJECT}/TropFlux_t2m_19890101_20091231.nc`:: 52 ; 53 ; IDL> @project_init 54 54 ; IDL> tropflux_varname='t2m' 55 55 ; IDL> status = plot_tropflux(tropflux_varname) 56 56 ; 57 ; Same idea for sst from :file:`${ TROPFLUX}/TropFlux_sst_19890101_20091231.nc`::58 ; 59 ; IDL> @ tropflux_init57 ; Same idea for sst from :file:`${PROJECT}/TropFlux_sst_19890101_20091231.nc`:: 58 ; 59 ; IDL> @project_init 60 60 ; IDL> tropflux_varname='sst' 61 61 ; IDL> status = plot_tropflux(tropflux_varname) 62 62 ; 63 ; Same idea for ws from :file:`${ TROPFLUX}/TropFlux_ws_19890101_20091231.nc`::64 ; 65 ; IDL> @ tropflux_init63 ; Same idea for ws from :file:`${PROJECT}/TropFlux_ws_19890101_20091231.nc`:: 64 ; 65 ; IDL> @project_init 66 66 ; IDL> tropflux_varname='ws' 67 67 ; IDL> status = plot_tropflux(tropflux_varname) 68 68 ; 69 ; Same idea for swr from :file:`${ TROPFLUX}/TropFlux_19890101_20091231.nc`::70 ; 71 ; IDL> @ tropflux_init69 ; Same idea for swr from :file:`${PROJECT}/TropFlux_19890101_20091231.nc`:: 70 ; 71 ; IDL> @project_init 72 72 ; IDL> tropflux_varname='swr' 73 73 ; IDL> status = plot_tropflux(tropflux_varname) 74 74 ; 75 ; Same idea for lwr from :file:`${ TROPFLUX}/TropFlux_19890101_20091231.nc`::76 ; 77 ; IDL> @ tropflux_init75 ; Same idea for lwr from :file:`${PROJECT}/TropFlux_19890101_20091231.nc`:: 76 ; 77 ; IDL> @project_init 78 78 ; IDL> tropflux_varname='lwr' 79 79 ; IDL> status = plot_tropflux(tropflux_varname) 80 80 ; 81 ; Same idea for lhf from :file:`${ TROPFLUX}/TropFlux_19890101_20091231.nc`::82 ; 83 ; IDL> @ tropflux_init81 ; Same idea for lhf from :file:`${PROJECT}/TropFlux_19890101_20091231.nc`:: 82 ; 83 ; IDL> @project_init 84 84 ; IDL> tropflux_varname='lhf' 85 85 ; IDL> status = plot_tropflux(tropflux_varname) 86 86 ; 87 ; Same idea for shf from :file:`${ TROPFLUX}/TropFlux_19890101_20091231.nc`::88 ; 89 ; IDL> @ tropflux_init87 ; Same idea for shf from :file:`${PROJECT}/TropFlux_19890101_20091231.nc`:: 88 ; 89 ; IDL> @project_init 90 90 ; IDL> tropflux_varname='shf' 91 91 ; IDL> status = plot_tropflux(tropflux_varname) … … 96 96 ; :ref:`data_out` 97 97 ; 98 ; :ref:` tropflux_profile.sh`99 ; :ref:` tropflux_init.pro`98 ; :ref:`project_profile.sh` 99 ; :ref:`project_init.pro` 100 100 ; 101 101 ; :func:`report <saxo:report>` … … 169 169 @cm_4mesh 170 170 @cm_4data 171 @cm_project 171 172 ; 172 173 status=-1 … … 210 211 ; check for input file 211 212 ; 212 ; test if ${TROPFLUX_ID} defined 213 tropflux_id_env=GETENV('TROPFLUX_ID') 214 CASE tropflux_id_env OF 213 ; test if ${PROJECT_ID} defined 214 CASE project_id_env OF 215 215 '' : BEGIN 216 msg = 'eee : ${ TROPFLUX_ID} is not defined'216 msg = 'eee : ${PROJECT_ID} is not defined' 217 217 ras = report(msg) 218 218 STOP 219 219 END 220 220 ELSE: BEGIN 221 msg = 'iii : ${ TROPFLUX_ID} is ' + tropflux_id_env221 msg = 'iii : ${PROJECT_ID} is ' + project_id_env 222 222 ras = report(msg) 223 223 END 224 224 ENDCASE 225 225 ; 226 iodirin = isadirectory( tropflux_id_env)227 ; 228 ; existence and protection of ${ TROPFLUX_ID}226 iodirin = isadirectory(project_id_env) 227 ; 228 ; existence and protection of ${PROJECT_ID} 229 229 IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 230 230 msg = 'eee : the directory' + iodirin + ' is not accessible.' … … 243 243 print, fullfilename_in[0] 244 244 ; 245 ; test if ${TROPFLUX_OD} defined 246 tropflux_od_env=GETENV('TROPFLUX_OD') 247 CASE tropflux_od_env OF 245 ; test if ${PROJECT_OD} defined 246 CASE project_od_env OF 248 247 '' : BEGIN 249 msg = 'eee : ${ TROPFLUX_OD} is not defined'248 msg = 'eee : ${PROJECT_OD} is not defined' 250 249 ras = report(msg) 251 250 STOP 252 251 END 253 252 ELSE: BEGIN 254 msg = 'iii : ${ TROPFLUX_OD} is ' + tropflux_od_env253 msg = 'iii : ${PROJECT_OD} is ' + project_od_env 255 254 ras = report(msg) 256 255 END … … 258 257 ; 259 258 ; check if output data will be possible 260 iodirout = isadirectory( tropflux_od_env)259 iodirout = isadirectory(project_od_env) 261 260 ; 262 261 ; existence and protection -
trunk/src/project_init.pro
r47 r50 1 1 ;+ 2 2 ; 3 ; .. _ tropflux_init.pro:3 ; .. _project_init.pro: 4 4 ; 5 5 ; ========================================== 6 ; tropflux_init.pro -- init SAXO environment6 ; project_init.pro -- init SAXO environment 7 7 ; ========================================== 8 8 ; … … 14 14 ; It ++:: 15 15 ; 16 ; $ idl -startupfile tropflux_init.pro16 ; $ idl -startupfile project_init.pro 17 17 ; 18 18 ; or:: 19 ; $ idl -IDL_STARTUP tropflux_init.pro19 ; $ idl -IDL_STARTUP project_init.pro 20 20 ; 21 21 ; or:: 22 22 ; 23 23 ; $ IDL 24 ; IDL> @ tropflux_init24 ; IDL> @project_init 25 25 ; 26 26 ; … … 28 28 ; ======== 29 29 ; 30 ; :ref:` tropflux_profile.sh`30 ; :ref:`project_profile.sh` 31 31 ; 32 32 ; TODO … … 35 35 ; learn to write IF .. ELSE in a @file 36 36 ; 37 ; check idl -IDL_STARTUP tropflux_init.pro not ok now on cratos37 ; check idl -IDL_STARTUP project_init.pro not ok now on cratos 38 38 ; 39 39 ; EVOLUTIONS … … 41 41 ; 42 42 ; $URL$ 43 ; 44 ; - fplod 20110429T081938Z aedon.locean-ipsl.upmc.fr (Darwin) 45 ; 46 ; * rename to project_init.pro (more generic) 43 47 ; 44 48 ; - fplod 20110413T151541Z cratos.locean-ipsl.upmc.fr (Linux) … … 53 57 ; 54 58 ; * remove fplod/cratos dependencies use $TROPFLUX*; use SAXO_SRC; 55 ; add cm_ tropflux59 ; add cm_project 56 60 ; 57 61 ; - fplod 20110408T131625Z cratos.locean-ipsl.upmc.fr (Linux) … … 63 67 ; SAXO environment 64 68 saxo_dir_env=GETENV('SAXO_DIR') 65 ; tropflux environment66 @cm_tropflux 67 tropflux_env=GETENV('TROPFLUX')68 tropflux_id_env=GETENV('TROPFLUX_ID')69 tropflux_od_env=GETENV('TROPFLUX_OD')69 ; 70 ; project environment #1 71 project_env_temp=GETENV('PROJECT') 72 project_id_env_temp=GETENV('PROJECT_ID') 73 project_od_env_temp=GETENV('PROJECT_OD') 70 74 ; 71 75 ; path definition 72 ; 73 !path = expand_path('+' + tropflux_env + '/src') $ 76 !path = expand_path('+' + project_env_temp + '/src') $ 74 77 + path_sep(/search_path) + expand_path('+' + saxo_dir_env) $ 75 78 + path_sep(/search_path) + expand_path('+' + !dir) 79 ; 80 ; project environment #2 81 @cm_project 82 project_env=project_env_temp 83 project_id_env=project_id_env_temp 84 project_od_env=project_od_env_temp 76 85 ; 77 86 ; compatibility with the old version … … 90 99 ; define default directories 91 100 ; 92 homedir = isadirectory( tropflux_env + '/src/', title = 'Select the default HOME directory')93 iodir = isadirectory( tropflux_id_env, title = 'Select the default IO directory')94 psdir = isadirectory( tropflux_od_env, title = 'Select the default postscripts directory')95 imagedir = isadirectory( tropflux_od_env, title = 'Select the default images directory')96 animdir = isadirectory( tropflux_od_env, title = 'Select the default animations directory')101 homedir = isadirectory(project_env + '/src/', title = 'Select the default HOME directory') 102 iodir = isadirectory(project_id_env, title = 'Select the default IO directory') 103 psdir = isadirectory(project_od_env, title = 'Select the default postscripts directory') 104 imagedir = isadirectory(project_od_env, title = 'Select the default images directory') 105 animdir = isadirectory(project_od_env, title = 'Select the default animations directory') 97 106 ; 98 107 ; define printer parameters -
trunk/src/project_profile.sh
r47 r50 1 #! /bin/sh -x1 #! /bin/sh 2 2 #+ 3 3 # 4 # .. program:: tropflux_profile.sh5 # 6 # .. _ tropflux_profile.sh:4 # .. program:: project_profile.sh 5 # 6 # .. _project_profile.sh: 7 7 # 8 8 # ================================================== 9 # tropflux_profile.sh -- define TROPFLUXenvironment9 # project_profile.sh -- define PROJECT environment 10 10 # ================================================== 11 11 # … … 15 15 # Online usage:: 16 16 # 17 # $ . ./ tropflux_profile.sh -d directory -i indir -o outdir -t tempdir -s saxo_dir17 # $ . ./project_profile.sh -d directory -i indir -o outdir -t tempdir -s saxo_dir 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 -s saxo_dir21 # . project_profile.sh -d directory -i indir -o outdir -t tempdir -s saxo_dir 22 22 # 23 23 # DESCRIPTION … … 30 30 # .. option:: -s <saxo_dir> 31 31 # 32 # define TROPFLUXenvironment33 # 34 # ${ TROPFLUX} is the base directory of tools.35 # 36 # ${ TROPFLUX_LOG} is the directory where log files will be written.37 # 38 # ${ TROPFLUX_ID} is the directory where input files must be.39 # 40 # ${ TROPFLUX_OD} is the directory where output files will be written.32 # define PROJECT environment 33 # 34 # ${PROJECT} is the base directory of tools. 35 # 36 # ${PROJECT_LOG} is the directory where log files will be written. 37 # 38 # ${PROJECT_ID} is the directory where input files must be. 39 # 40 # ${PROJECT_OD} is the directory where output files will be written. 41 41 # 42 42 # ${SAXO_DIR} is the base directory of SAXO tools 43 43 # 44 # PATH is completed with ${TROPFLUX}. 44 # IDL_STARTUP is set to tell IDL where find tools. 45 # 46 # PATH is completed with ${PROJECT}. 45 47 # 46 48 # SEE ALSO 47 49 # ======== 48 50 # 49 # :ref:`tropflux_init.pro` 50 # 51 # :ref:`cm_tropflux.pro` 51 # for IDL/gdl and SAXO environment : 52 # 53 # :ref:`project_init.pro` 54 # :ref:`cm_project.pro` 52 55 # 53 56 # EXAMPLES … … 57 60 # 58 61 # $ cd /usr/home/fplod/incas/tropflux/tropflux_ws/ 59 # $ . ./src/ tropflux_profile.sh \62 # $ . ./src/project_profile.sh \ 60 63 # -d $(pwd) \ 61 64 # -i /usr/temp/${LOGNAME}/tropflux_d/ \ … … 67 70 # 68 71 # $ cd ${HOME}/incas/tropflux/tropflux_ws/ 69 # $ . ./src/ tropflux_profile.sh \72 # $ . ./src/project_profile.sh \ 70 73 # -d $(pwd) \ 71 74 # -i /usr/temp/${LOGNAME}/tropflux_d/ \ … … 77 80 # 78 81 # $ cd ${HOME}/tropflux/ 79 # $ . ./src/ tropflux_profile.sh \82 # $ . ./src/project_profile.sh \ 80 83 # -d $(pwd) \ 81 84 # -i /homedata/${LOGNAME}/tropflux_d/ \ … … 97 100 # EVOLUTIONS 98 101 # ========== 102 # 103 # - fplod 20110429T090524Z aedon.locean-ipsl.upmc.fr (Darwin) 104 # 105 # * set IDL_STARTUP 99 106 # 100 107 # - fplod 20110413T151541Z cratos.locean-ipsl.upmc.fr (Linux) … … 121 128 # 122 129 # as this script might be launch in .profile, command is forced. 123 command= tropflux_profile.sh130 command=project_profile.sh 124 131 # 125 132 usage=" Usage : ${command} -d directory -i indir -o outdir -t tempdir -s saxo_dir" … … 180 187 fi 181 188 # 182 TROPFLUX=${directory}183 export TROPFLUX189 PROJECT=${directory} 190 export PROJECT 184 191 unset drectory 185 192 # 186 # add TROPFLUXtools to PATH193 # add PROJECT tools to PATH 187 194 # if not already done 188 suppath=$(echo ${ TROPFLUX}/src | tr -s "/")195 suppath=$(echo ${PROJECT}/src | tr -s "/") 189 196 echo ${PATH} | grep -q "${suppath}:" 190 197 test_path=${?} … … 199 206 unset test_path 200 207 # 201 # add TROPFLUXmanuals to MANPATH208 # add PROJECT manuals to MANPATH 202 209 # if not already done 203 suppath=$(echo ${ TROPFLUX}/doc/man | tr -s "/")210 suppath=$(echo ${PROJECT}/doc/man | tr -s "/") 204 211 echo ${MANPATH} | grep -q "${suppath}:" 205 212 test_manpath=${?} … … 215 222 unset suppath 216 223 # 217 TROPFLUX_LOG=${tempdir}218 export TROPFLUX_LOG224 PROJECT_LOG=${tempdir} 225 export PROJECT_LOG 219 226 unset tempdir 220 if [ ! -d ${ TROPFLUX_LOG} ]221 then 222 mkdir -p ${ TROPFLUX_LOG}227 if [ ! -d ${PROJECT_LOG} ] 228 then 229 mkdir -p ${PROJECT_LOG} 223 230 status=${?} 224 231 if [ ${status} -ne 0 ] 225 232 then 226 echo "${command} : eee : can not create \${ TROPFLUX_LOG}"233 echo "${command} : eee : can not create \${PROJECT_LOG}" 227 234 # nb : no exit because this file should be launched by login process 228 235 else 229 echo "${command} : iii : creation of \${ TROPFLUX_LOG}"236 echo "${command} : iii : creation of \${PROJECT_LOG}" 230 237 fi 231 238 unset status 232 239 fi 233 # check for permission on TROPFLUX_LOG234 if [ ! -x ${ TROPFLUX_LOG} ]235 then 236 echo " eee : ${ TROPFLUX_LOG} not reachable"237 # nb : no exit because this file should be launched by login process 238 fi 239 # 240 # check for permission on TROPFLUX_LOG241 if [ ! -w ${ TROPFLUX_LOG} ]242 then 243 echo " eee : ${ TROPFLUX_LOG} not writable"240 # check for permission on PROJECT_LOG 241 if [ ! -x ${PROJECT_LOG} ] 242 then 243 echo " eee : ${PROJECT_LOG} not reachable" 244 # nb : no exit because this file should be launched by login process 245 fi 246 # 247 # check for permission on PROJECT_LOG 248 if [ ! -w ${PROJECT_LOG} ] 249 then 250 echo " eee : ${PROJECT_LOG} not writable" 244 251 # nb : no exit because this file shouldreachable be launched by login process 245 252 fi … … 249 256 # 250 257 # io directories 251 TROPFLUX_ID=${indir}252 export TROPFLUX_ID258 PROJECT_ID=${indir} 259 export PROJECT_ID 253 260 unset indir 254 if [ ! -d ${ TROPFLUX_ID} ]255 then 256 mkdir -p ${ TROPFLUX_ID}257 echo "${command} : iii : creation of \${ TROPFLUX_ID}"258 fi 259 # check for permission on TROPFLUX_ID260 if [ ! -x ${ TROPFLUX_ID} ]261 then 262 echo " eee : ${ TROPFLUX_ID} not reachable"263 # nb : no exit because this file should be launched by login process 264 fi 265 # 266 TROPFLUX_OD=${outdir}267 export TROPFLUX_OD261 if [ ! -d ${PROJECT_ID} ] 262 then 263 mkdir -p ${PROJECT_ID} 264 echo "${command} : iii : creation of \${PROJECT_ID}" 265 fi 266 # check for permission on PROJECT_ID 267 if [ ! -x ${PROJECT_ID} ] 268 then 269 echo " eee : ${PROJECT_ID} not reachable" 270 # nb : no exit because this file should be launched by login process 271 fi 272 # 273 PROJECT_OD=${outdir} 274 export PROJECT_OD 268 275 unset outdir 269 if [ ! -d ${ TROPFLUX_OD} ]270 then 271 mkdir -p ${ TROPFLUX_OD}272 echo "${command} : iii : creation of \${ TROPFLUX_OD}"273 fi 274 # check for permission on TROPFLUX_OD275 if [ ! -x ${ TROPFLUX_OD} ]276 then 277 echo " eee : ${ TROPFLUX_OD} not reachable"278 # nb : no exit because this file should be launched by login process 279 fi 280 if [ ! -w ${ TROPFLUX_OD} ]281 then 282 echo " eee : ${ TROPFLUX_OD} not writable"276 if [ ! -d ${PROJECT_OD} ] 277 then 278 mkdir -p ${PROJECT_OD} 279 echo "${command} : iii : creation of \${PROJECT_OD}" 280 fi 281 # check for permission on PROJECT_OD 282 if [ ! -x ${PROJECT_OD} ] 283 then 284 echo " eee : ${PROJECT_OD} not reachable" 285 # nb : no exit because this file should be launched by login process 286 fi 287 if [ ! -w ${PROJECT_OD} ] 288 then 289 echo " eee : ${PROJECT_OD} not writable" 283 290 # nb : no exit because this file should be launched by login process 284 291 fi … … 288 295 unset saxo_dir 289 296 # 297 # IDL startup 298 IDL_STARTUP=${PROJECT}/src/project_init.pro 299 export IDL_STARTUP 300 # 290 301 # end 291 302 unset command -
trunk/src/q2m_correction_ncdf.pro
r20 r50 22 22 ; color=blue, 23 23 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/q2m_correction_ncdf.pro", 24 ; label="${ TROPFLUX}/src/q2m_correction_ncdf.pro"];24 ; label="${PROJECT}/src/q2m_correction_ncdf.pro"]; 25 25 ; 26 26 ; {file_in} -> {q2m_correction_ncdf} -> {ncfile} … … 47 47 ; ==== 48 48 ; 49 ; hard coded directory - usage of ${ TROPFLUX_ID}49 ; hard coded directory - usage of ${PROJECT_ID} 50 50 ; 51 51 ; coding rules -
trunk/src/rh_to_spechum.pro
r12 r50 26 26 ; ==== 27 27 ; 28 ; hard coded directory - usage of ${ TROPFLUX_ID}28 ; hard coded directory - usage of ${PROJECT_ID} 29 29 ; 30 30 ; coding rules -
trunk/src/sst_correction_ncdf.pro
r31 r50 22 22 ; color=blue, 23 23 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/sst_correction_ncdf.pro", 24 ; label="${ TROPFLUX}/src/sst_correction_ncdf.pro"];24 ; label="${PROJECT}/src/sst_correction_ncdf.pro"]; 25 25 ; 26 26 ; {file_sst} -> {sst_correction_ncdf} -> {ncfile} … … 48 48 ; ==== 49 49 ; 50 ; hard coded directory - usage of ${ TROPFLUX_ID}50 ; hard coded directory - usage of ${PROJECT_ID} 51 51 ; 52 52 ; coding rules -
trunk/src/t2m_correction_ncdf.pro
r28 r50 10 10 ; applied. 11 11 ; 12 ; :file:`${ TROPFLUX_ID}/erai_t2m_19890101_20091231_oafluxgrid.nc` have been produced by :ref:`interp_erai_t2m_1989_2009.pro`.12 ; :file:`${PROJECT_ID}/erai_t2m_19890101_20091231_oafluxgrid.nc` have been produced by :ref:`interp_erai_t2m_1989_2009.pro`. 13 13 ; It contains air temperature at 2 m height from ERA-I interpolated on OAFLUX grid. 14 14 ; 15 15 ; Corrected air temperature at 2 m height is written in 16 ; :file:`${ TROPFLUX_OD}/TropFlux_t2m_19890101_20091231_v50.nc`.16 ; :file:`${PROJECT_OD}/TropFlux_t2m_19890101_20091231_v50.nc`. 17 17 ; 18 18 ; .. graphviz:: … … 23 23 ; ] 24 24 ; 25 ; file_t2m [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_t2m_19890101_20091231_oafluxgrid.nc"];26 ; 27 ; ncfile [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/TropFlux_t2m_19890101_20091231_v50.nc"];25 ; file_t2m [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_t2m_19890101_20091231_oafluxgrid.nc"]; 26 ; 27 ; ncfile [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/TropFlux_t2m_19890101_20091231_v50.nc"]; 28 28 ; 29 29 ; t2m_correction_ncdf [shape=box, … … 31 31 ; color=blue, 32 32 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/t2m_correction_ncdf.pro", 33 ; label="${ TROPFLUX}/src/t2m_correction_ncdf.pro"];33 ; label="${PROJECT}/src/t2m_correction_ncdf.pro"]; 34 34 ; 35 35 ; {file_t2m} -> {t2m_correction_ncdf} -> {ncfile} … … 40 40 ; ======== 41 41 ; 42 ; :ref:` tropflux_profile.sh`42 ; :ref:`project_profile.sh` 43 43 ; 44 44 ; :ref:`mooring_corrections` … … 125 125 ; 126 126 @common 127 @cm_project 128 ; 127 129 ; check for input directory 128 130 ; 129 ; test if ${TROPFLUX_ID} defined 130 tropflux_id_env=GETENV('TROPFLUX_ID') 131 CASE tropflux_id_env OF 131 ; test if ${PROJECT_ID} defined 132 CASE project_id_env OF 132 133 '' : BEGIN 133 msg = 'eee : ${ TROPFLUX_ID} is not defined'134 msg = 'eee : ${PROJECT_ID} is not defined' 134 135 ras = report(msg) 135 136 STOP 136 137 END 137 138 ELSE: BEGIN 138 msg = 'iii : ${ TROPFLUX_ID} is ' + tropflux_id_env139 msg = 'iii : ${PROJECT_ID} is ' + project_id_env 139 140 ras = report(msg) 140 141 END 141 142 ENDCASE 142 143 ; 143 iodirin = isadirectory( tropflux_id_env)144 ; 145 ; existence and protection of ${ TROPFLUX_ID}144 iodirin = isadirectory(project_id_env) 145 ; 146 ; existence and protection of ${PROJECT_ID} 146 147 IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 147 148 msg = 'eee : the directory' + iodirin + ' is not accessible.' … … 162 163 STOP 163 164 ENDIF 164 ; test if ${TROPFLUX_OD} defined 165 tropflux_od_env=GETENV('TROPFLUX_OD') 166 CASE tropflux_od_env OF 165 ; test if ${PROJECT_OD} defined 166 CASE project_od_env OF 167 167 '' : BEGIN 168 msg = 'eee : ${ TROPFLUX_OD} is not defined'168 msg = 'eee : ${PROJECT_OD} is not defined' 169 169 ras = report(msg) 170 170 STOP 171 171 END 172 172 ELSE: BEGIN 173 msg = 'iii : ${ TROPFLUX_OD} is ' + tropflux_od_env173 msg = 'iii : ${PROJECT_OD} is ' + project_od_env 174 174 ras = report(msg) 175 175 END … … 177 177 ; 178 178 ; check if output data will be possible 179 iodirout = isadirectory( tropflux_od_env)179 iodirout = isadirectory(project_od_env) 180 180 ; 181 181 ; existence and protection -
trunk/src/test/project_startup.m
r47 r50 1 % TROPFLUX_STARTUP initialisation of matlab/octave environment for TROPFLUXproject1 % PROJECT_STARTUP initialisation of matlab/octave environment for PROJECT project 2 2 3 3 %+ 4 4 % 5 % .. _ tropflux_startup.m:5 % .. _project_startup.m: 6 6 % 7 7 % ================== 8 % tropflux_startup.m8 % project_startup.m 9 9 % ================== 10 10 % 11 11 % ---------------------------------------------------------------- 12 % initialisation of matlab/octave environment for TROPFLUXproject12 % initialisation of matlab/octave environment for PROJECT project 13 13 % ---------------------------------------------------------------- 14 14 % … … 17 17 % 18 18 % Define : 19 % - path for matlab/octave commands used in TROPFLUXproject19 % - path for matlab/octave commands used in PROJECT project 20 20 % - IO directories in global variables 21 21 % 22 22 % This file can be either run classicaly when current directory 23 % is ${ TROPFLUX}::23 % is ${PROJECT}:: 24 24 % 25 % >> tropflux_startup25 % >> project_startup 26 26 % 27 27 % … … 35 35 % ======== 36 36 % 37 % :ref:` tropflux_profile.sh`37 % :ref:`project_profile.sh` 38 38 % 39 39 % TODO … … 55 55 octave_minimal_version_required = '3.0.2'; 56 56 % 57 %disp('iii : adding path to TROPFLUXmatlab tools')57 %disp('iii : adding path to PROJECT matlab tools') 58 58 % 59 % test if TROPFLUXenvironment set60 global TROPFLUX;61 TROPFLUX=getenv('TROPFLUX');62 %if ( isempty( TROPFLUX) )63 % error('eee : TROPFLUXenvironment not set');59 % test if PROJECT environment set 60 global PROJECT; 61 PROJECT=getenv('PROJECT'); 62 %if ( isempty(PROJECT) ) 63 % error('eee : PROJECT environment not set'); 64 64 %else 65 % disp(['iii : TROPFLUX =' TROPFLUX])65 % disp(['iii : PROJECT =' PROJECT]) 66 66 %end 67 67 % 68 68 % add path 69 addpath( TROPFLUX);69 addpath(PROJECT); 70 70 % 71 71 % IO directories 72 % test if TROPFLUX_ID environment set72 % test if PROJECT_ID environment set 73 73 74 global TROPFLUX_ID;75 TROPFLUX_ID=getenv('TROPFLUX_ID');76 %if ( isempty( TROPFLUX_ID) )77 % error('eee : TROPFLUX_ID environment not set');74 global PROJECT_ID; 75 PROJECT_ID=getenv('PROJECT_ID'); 76 %if ( isempty(PROJECT_ID) ) 77 % error('eee : PROJECT_ID environment not set'); 78 78 %end 79 79 % 80 % test if TROPFLUX_OD environment set81 global TROPFLUX_OD;82 TROPFLUX_OD=getenv('TROPFLUX_OD');83 %if ( isempty( TROPFLUX_OD) )84 % error('eee : TROPFLUX_OD environment not set');80 % test if PROJECT_OD environment set 81 global PROJECT_OD; 82 PROJECT_OD=getenv('PROJECT_OD'); 83 %if ( isempty(PROJECT_OD) ) 84 % error('eee : PROJECT_OD environment not set'); 85 85 %end 86 86 % -
trunk/src/test/read.jnl
r38 r50 12 12 ! =========== 13 13 ! 14 ! read TROPFLUX file ${ TROPFLUX_D}/TropFlux_19890101_20091231.nc14 ! read TROPFLUX file ${PROJECT_D}/TropFlux_19890101_20091231.nc 15 15 ! 16 16 ! plot the first time step of swr … … 102 102 !DEFINE VARIABLE filename = "TropFlux_" + yyyymmdd_b + "_" + yyyymmdd_e + ".nc" 103 103 DEFINE SYMBOL filename = TropFlux_($yyyymmdd_b)_($yyyymmdd_e).nc 104 ! ++ $ TROPFLUX_D defini ?104 ! ++ $PROJECT_D defini ? 105 105 !DEFINE SYMBOL tropflux_d = /usr/zeus/incas/fplod/tropflux_d/ 106 106 !DEFINE SYMBOL fullfilename = ($tropflux_d)($filename) 107 !DEFINE VARIABLE tropflux_d = {spawn:"echo $ TROPFLUX_ID"}108 DEFINE SYMBOL tropflux_d = {spawn:"echo $ TROPFLUX_ID"}107 !DEFINE VARIABLE tropflux_d = {spawn:"echo $PROJECT_ID"} 108 DEFINE SYMBOL tropflux_d = {spawn:"echo $PROJECT_ID"} 109 109 SHOW SYM tropflux_d 110 110 ! DEFINE SYMBOL fullfilename = "$tropflux_d($filename)" -
trunk/src/test/read.m
r31 r50 14 14 % =========== 15 15 % 16 % read TROPFLUX file ${ TROPFLUX_D}/TropFlux_19890101_20091231.nc16 % read TROPFLUX file ${PROJECT_D}/TropFlux_19890101_20091231.nc 17 17 % 18 18 % plot ++ … … 68 68 global application_version; 69 69 70 global TROPFLUX_ID;71 global TROPFLUX_OD;70 global PROJECT_ID; 71 global PROJECT_OD; 72 72 % 73 73 yyyymmdd_b=double(19890101); 74 74 yyyymmdd_e=double(20091231); 75 %++fullfilename=([ TROPFLUX_ID '/' 'TropFlux_' num2str(yyyymmdd_b,'%8.8d') '_' num2str(yyyymmdd_e,'%8.8d') '.nc']);75 %++fullfilename=([PROJECT_ID '/' 'TropFlux_' num2str(yyyymmdd_b,'%8.8d') '_' num2str(yyyymmdd_e,'%8.8d') '.nc']); 76 76 % ++ Pb memoire fullfilename=([ '/Users/fplod/Downloads' '/' 'TropFlux_' num2str(yyyymmdd_b,'%8.8d') '_' num2str(yyyymmdd_e,'%8.8d') '.nc' ]); 77 77 fullfilename=([ '/Users/fplod/Downloads' '/' 'TropFlux_' 'q2m' '_' num2str(yyyymmdd_b,'%8.8d') '_' num2str(yyyymmdd_e,'%8.8d') '.nc' ]); -
trunk/src/time_axe_modif_TropFlux.pro
r27 r50 20 20 ; color=blue, 21 21 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/time_axe_modif_TropFlux.pro", 22 ; label="${ TROPFLUX}/src/time_axe_modif_TropFlux.pro"];22 ; label="${PROJECT}/src/time_axe_modif_TropFlux.pro"]; 23 23 ; 24 24 ; {file_inout} -> {time_axe_modif_TropFlux} -> {file_inout} … … 42 42 ; ==== 43 43 ; 44 ; hard coded directory - usage of ${ TROPFLUX_ID}44 ; hard coded directory - usage of ${PROJECT_ID} 45 45 ; 46 46 ; coding rules -
trunk/src/tlogd.sh
r2 r50 7 7 # 8 8 # ===================================================================================================== 9 # tlogd.sh -- shows the most recent release of :file:`${ TROPFLUX_LOG}/{action}.log.{YYYYMMDDTHHMMSSZ}`9 # tlogd.sh -- shows the most recent release of :file:`${PROJECT_LOG}/{action}.log.{YYYYMMDDTHHMMSSZ}` 10 10 # ===================================================================================================== 11 11 # … … 21 21 # =========== 22 22 # 23 # ``tlogd.sh`` shows the most recent release of :file:`${ TROPFLUX_LOG}/{action}.log.{YYYYMMDDTHHMMSSZ}`23 # ``tlogd.sh`` shows the most recent release of :file:`${PROJECT_LOG}/{action}.log.{YYYYMMDDTHHMMSSZ}` 24 24 # 25 25 # … … 27 27 # ======== 28 28 # 29 # :ref:` tropflux_profile.sh`29 # :ref:`project_profile.sh` 30 30 # 31 31 # :ref:`dlogd.sh` … … 65 65 exit 1 66 66 fi 67 # check for ${ TROPFLUX_LOG} definition68 if [ "${ TROPFLUX_LOG}" = "" ]67 # check for ${PROJECT_LOG} definition 68 if [ "${PROJECT_LOG}" = "" ] 69 69 then 70 echo " eee : \${ TROPFLUX_LOG} not defined"70 echo " eee : \${PROJECT_LOG} not defined" 71 71 exit 1 72 72 fi 73 73 # 74 # check for ${ TROPFLUX_LOG} existence75 if [ ! -d ${ TROPFLUX_LOG} ]74 # check for ${PROJECT_LOG} existence 75 if [ ! -d ${PROJECT_LOG} ] 76 76 then 77 echo " eee : ${ TROPFLUX_LOG} not found"77 echo " eee : ${PROJECT_LOG} not found" 78 78 exit 1 79 79 fi 80 80 # 81 # check for permission access on TROPFLUX_LOG82 if [ ! -x ${ TROPFLUX_LOG} ]81 # check for permission access on PROJECT_LOG 82 if [ ! -x ${PROJECT_LOG} ] 83 83 then 84 echo " eee : ${ TROPFLUX_LOG} not reachable"84 echo " eee : ${PROJECT_LOG} not reachable" 85 85 exit 1 86 86 fi 87 87 # 88 log=$(find ${ TROPFLUX_LOG} -name "${1}.log.????????T??????Z" 2> /dev/null | sort | \88 log=$(find ${PROJECT_LOG} -name "${1}.log.????????T??????Z" 2> /dev/null | sort | \ 89 89 tail -n 1) 90 90 tmp=${?} … … 93 93 if [ "${log}" = "" ] 94 94 then 95 echo "${command} : eee : no release of ${ TROPFLUX_LOG}/${1}.log" >&295 echo "${command} : eee : no release of ${PROJECT_LOG}/${1}.log" >&2 96 96 exit 1 97 97 else -
trunk/src/ws_correction_ncdf.pro
r12 r50 19 19 ; color=blue, 20 20 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/ws_correction_ncdf.pro", 21 ; label="${ TROPFLUX}/src/ws_correction_ncdf.pro"];21 ; label="${PROJECT}/src/ws_correction_ncdf.pro"]; 22 22 ; 23 23 ; {file_in} -> {ws_correction_ncdf} -> {ncfile} … … 38 38 ; ==== 39 39 ; 40 ; hard coded directory - usage of ${ TROPFLUX_ID}40 ; hard coded directory - usage of ${PROJECT_ID} 41 41 ; 42 42 ; coding rules
Note: See TracChangeset
for help on using the changeset viewer.