Changeset 50


Ignore:
Timestamp:
04/29/11 11:09:12 (13 years ago)
Author:
pinsard
Message:

replace TROPFLUX by PROJECT

Location:
trunk
Files:
81 edited
4 moved

Legend:

Unmodified
Added
Removed
  • trunk/adm/guides/data_content.rst

    r48 r50  
    8686^^^^^^^^^^^^^ 
    8787 
    88 :file:`${TROPFLUX_ID}/mask_oaflux_30N30S.nc` 
     88:file:`${PROJECT_ID}/mask_oaflux_30N30S.nc` 
    8989 
    9090size < 100 Ko 
  • trunk/adm/makefile

    r48 r50  
    2424# EVOLUTIONS 
    2525# ========== 
     26# 
     27# - fplod 20110421T160731Z aedon.locean-ipsl.upmc.fr (Darwin) 
     28# 
     29#   * correction for pdf_user 
    2630# 
    2731# - fplod 20110411T160342Z aedon.locean-ipsl.upmc.fr (Darwin) 
     
    146150 
    147151LIST_SRCMATLAB = \ 
    148 $(DIRSRC)/test/$(PRODUCT)_startup.m \ 
     152$(DIRSRC)/test/project_startup.m \ 
    149153$(DIRSRC)/test/read.m 
    150154 
     
    384388 
    385389pdf_user : 
    386         cd $(DIRADM)/website/ 
    387         make pdf 
     390        cd $(DIRADM)/website/; make latexpdf  
    388391 
    389392pdf_dev : \ 
  • trunk/adm/website/data_out.rst

    r38 r50  
    1414.. 
    1515.. - 
     16 
     17.. _data_out: 
    1618 
    1719TropFlux products 
  • trunk/src/TropFlux_19890101_20091231.pro

    r20 r50  
    2121;           rankdir="LR", 
    2222;           ] 
    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"]; 
    2424;           file_sst [shape=ellipse,fontname=Courier,label="/Volumes/Iomega_HDD/TropFlux/input_cor/full_cor/TropFlux_sst_19890101_20091231_v20.nc"]; 
    2525;           file_wind [shape=ellipse,fontname=Courier,label="/Volumes/Iomega_HDD/TropFlux/input_cor/full_cor/TropFlux_ws_19890101_20091231_v20.nc"]; 
     
    3636;           color=blue, 
    3737;           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"]; 
    3939; 
    4040;           {mask file_sst file_wind file_wg file_sw file_lw file_air file_q} -> {TropFlux_19890101_20091231} -> {ncfile} 
     
    4545; ======== 
    4646; 
    47 ; :ref:`tropflux_profile.sh` 
     47; :ref:`project_profile.sh` 
    4848; 
    4949; :func:`report <saxo:report>` 
     
    6969; ==== 
    7070; 
    71 ; hard coded directory - usage of ${TROPFLUX_ID} 
     71; hard coded directory - usage of ${PROJECT_ID} 
    7272; 
    7373; coding rules 
     
    102102pro TropFlux_19890101_20091231 
    103103@common 
     104@cm_project 
    104105; 
    105106; check for input directory 
    106107; 
    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 
     109CASE project_id_env OF 
    110110    ''  :  BEGIN 
    111      msg = 'eee : ${TROPFLUX_ID} is not defined' 
     111     msg = 'eee : ${PROJECT_ID} is not defined' 
    112112     ras = report(msg) 
    113113     STOP 
    114114           END 
    115115 ELSE: BEGIN 
    116      msg = 'iii : ${TROPFLUX_ID} is ' + tropflux_id_env 
     116     msg = 'iii : ${PROJECT_ID} is ' + project_id_env 
    117117     ras = report(msg) 
    118118       END 
    119119ENDCASE 
    120120; 
    121 iodirin = isadirectory(tropflux_id_env) 
    122 ; 
    123 ; existence and protection of ${TROPFLUX_ID} 
     121iodirin = isadirectory(project_id_env) 
     122; 
     123; existence and protection of ${PROJECT_ID} 
    124124IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 
    125125   msg = 'eee : the directory' + iodirin  + ' is not accessible.' 
  • trunk/src/TropFlux_NRT_ncdf.pro

    r20 r50  
    2121;           color=blue, 
    2222;           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" ]; 
    2424;           {file1 file2 file3} -> {TropFlux_NRT_ncdf_v50} -> {ncfile} 
    2525;          } 
     
    4444; ==== 
    4545; 
    46 ; hard coded directory - usage of ${TROPFLUX_ID} 
     46; hard coded directory - usage of ${PROJECT_ID} 
    4747; 
    4848; coding rules 
  • trunk/src/TropFlux_swr_BLND_19890101_20091231.pro

    r20 r50  
    2323;           color=blue, 
    2424;           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"]; 
    2626;           {file_dt file_nrt file_gustiness} -> {TropFlux_swr_BLND_19890101_20091231} ->{ ncfile} 
    2727; 
     
    4747; ==== 
    4848; 
    49 ; hard coded directory - usage of ${TROPFLUX_ID} 
     49; hard coded directory - usage of ${PROJECT_ID} 
    5050; 
    5151; coding rules 
  • trunk/src/TropFlux_swr_DT_19890101_20071231.pro

    r20 r50  
    2323;           color=blue, 
    2424;           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"]; 
    2626; 
    2727;           {file_swr}-> {TropFlux_swr_DT_19890101_20071231} -> {ncfile} 
     
    4949; ==== 
    5050; 
    51 ; hard coded directory - usage of ${TROPFLUX_ID} 
     51; hard coded directory - usage of ${PROJECT_ID} 
    5252; 
    5353; coding rules 
  • trunk/src/TropFlux_swr_NRT_19890101_20091231.pro

    r20 r50  
    2121;           color=blue, 
    2222;           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"]; 
    2424;           {file_sw file_olr}-> {TropFlux_swr_NRT_19890101_200912311} -> {ncfile} 
    2525;       } 
     
    4343; ==== 
    4444; 
    45 ; hard coded directory - usage of ${TROPFLUX_ID} 
     45; hard coded directory - usage of ${PROJECT_ID} 
    4646; 
    4747; coding rules 
  • trunk/src/cm_project.pro

    r47 r50  
    11;+ 
    22; 
    3 ; .. _cm_tropflux.pro: 
     3; .. _cm_project.pro: 
    44; 
    5 ; =============== 
    6 ; cm_tropflux.pro 
    7 ; =============== 
     5; ============== 
     6; cm_project.pro 
     7; ============== 
    88; 
    99; DESCRIPTION 
    1010; =========== 
    1111; 
    12 ; define commons for TROPFLUX  
     12; define commons for PROJECT  
    1313; 
    1414; SEE ALSO 
    1515; ======== 
    1616; 
    17 ; :ref:`tropflux_init.pro` 
     17; :ref:`project_init.pro` 
    1818; 
    1919; EVOLUTIONS 
     
    2727; 
    2828;- 
    29 COMMON tropflux, tropflux_env, tropflux_id_env, tropflux_od_env 
     29COMMON project, project_env, project_id_env, project_od_env 
  • trunk/src/compute_erai_daily_region_2d.sh

    r34 r50  
    3232# 
    3333# 
    34 # Put in ${TROPFLUX_ID} ERA-Intermin reference files 
    35 # 
    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}` 
    3737# 
    3838#     .. graphviz:: 
     
    5050#           filein_v10 [shape=ellipse,fontname=Courier,label="/bdd/ERAI/NETCDF/GLOBAL_075/4xdaily/AN_SF/yyyy/v10.yyyymm.ashei.GLOBAL_075.nc"]; 
    5151# 
    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"]; 
    5959# 
    6060#           compute_erai_daily_region_2d [shape=box, 
     
    6262#           color=blue, 
    6363#           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"]; 
    6565# 
    6666#           {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} 
     
    8484#  $ tlogd.sh compute_erai_daily_region_2d 
    8585# 
    86 # and of course on files in ${TROPFLUX_ID}. 
     86# and of course on files in ${PROJECT_ID}. 
    8787# 
    8888# 
     
    9595# for variables names 
    9696# 
    97 # :ref:`tropflux_profile.sh` 
     97# :ref:`project_profile.sh` 
    9898# 
    9999# :func:`ncpdq <nco:ncpdq>` 
     
    295295esac 
    296296 
    297 # check for ${TROPFLUX_LOG} definition 
    298 if [ "${TROPFLUX_LOG}" = "" ] 
    299 then 
    300    echo "${command} : eee : \${TROPFLUX_LOG} not defined" 
    301    exit 1 
    302 fi 
    303 # 
    304 # check for ${TROPFLUX_LOG} existence 
    305 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_LOG 
    312 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_LOG 
    319 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 
     298if [ "${PROJECT_LOG}" = "" ] 
     299then 
     300   echo "${command} : eee : \${PROJECT_LOG} not defined" 
     301   exit 1 
     302fi 
     303# 
     304# check for ${PROJECT_LOG} existence 
     305if [ ! -d ${PROJECT_LOG} ] 
     306then 
     307   echo "${command} : eee : ${PROJECT_LOG} not found" 
     308   exit 1 
     309fi 
     310# 
     311# check for permission access on PROJECT_LOG 
     312if [ ! -x ${PROJECT_LOG} ] 
     313then 
     314   echo "${command} : eee : ${PROJECT_LOG} not reachable" 
     315   exit 1 
     316fi 
     317# 
     318# check for write permission on PROJECT_LOG 
     319if [ ! -w ${PROJECT_LOG} ] 
     320then 
     321   echo "${command} : eee : ${PROJECT_LOG} not writable" 
     322   exit 1 
     323fi 
     324# 
     325dirtemp=${PROJECT_LOG}/$(basename ${0} .sh).${log_date}.temp/ 
    326326mkdir -p ${dirtemp} 
    327327# 
    328 log=${TROPFLUX_LOG}/$(basename ${0} .sh).log.${log_date} 
     328log=${PROJECT_LOG}/$(basename ${0} .sh).log.${log_date} 
    329329echo "[Context]" 1>> ${log} 
    330330echo "command=$(basename ${0})" 1>>${log} 
     
    457457         ncdump -v time ${dirtemp}/temp_int_${var}_${yyyy}??.nc 1>> ${log} 2>&1 
    458458      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>&1 
     459      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 
    460460      rm ${dirtemp}/temp_int_${var}_${yyyy}* 2> /dev/null 
    461461      yyyy=$(( ${yyyy} + 1 )) 
     
    497497         ncdump -v time ${dirtemp}/temp_int_${yyyy}??.nc >> ${log} 2>&1 
    498498      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>&1 
     499      ncrcat -O ${dirtemp}/temp_int_${yyyy}??.nc ${PROJECT_ID}/erai_${reg}_1d_${yyyy}${cmonthmin}01_${yyyy}${cmonthmax}31_${var}_gridOrig.nc >> ${log} 2>&1 
    500500      rm ${dirtemp}/temp_int_${yyyy}* 2> /dev/null 
    501501      yyyy=$(( ${yyyy} + 1 )) 
  • trunk/src/cor30a.pro

    r12 r50  
    7272; ==== 
    7373; 
    74 ; hard coded directory - usage of ${TROPFLUX_ID} 
     74; hard coded directory - usage of ${PROJECT_ID} 
    7575; 
    7676; coding rules 
  • trunk/src/cronin_gustiness_ncdf.pro

    r20 r50  
    1919;           color=blue, 
    2020;           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"]; 
    2222;           {file_sst} -> {cronin_gustiness_ncdf} -> {ncfile} 
    2323;        } 
     
    4040; ==== 
    4141; 
    42 ; hard coded directory - usage of ${TROPFLUX_ID} 
     42; hard coded directory - usage of ${PROJECT_ID} 
    4343; 
    4444; coding rules 
  • trunk/src/d2m_to_q2m_erai.pro

    r20 r50  
    2323;           color=blue, 
    2424;           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"]; 
    2626;           {file_d2m file_t2m file_msl} -> {d2m_to_q2m_erai} -> {file_q2m} 
    2727;        } 
     
    4646; ==== 
    4747; 
    48 ; hard coded directory - usage of ${TROPFLUX_ID} 
     48; hard coded directory - usage of ${PROJECT_ID} 
    4949; 
    5050; coding rules 
  • trunk/src/dew_temp_airt_rel_humidity_jv.pro

    r12 r50  
    2727; ==== 
    2828; 
    29 ; hard coded directory - usage of ${TROPFLUX_ID} 
     29; hard coded directory - usage of ${PROJECT_ID} 
    3030; 
    3131; coding rules 
  • trunk/src/dlogd.sh

    r2 r50  
    77# 
    88# ======================================================================================================================== 
    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}` 
    1010# ======================================================================================================================== 
    1111# 
     
    2121# =========== 
    2222# 
    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}`. 
    2424# 
    2525# SEE ALSO 
    2626# ======== 
    2727# 
    28 # :ref:`tropflux_profile.sh` 
     28# :ref:`project_profile.sh` 
    2929# 
    3030# :ref:`elogd.sh` 
     
    6565fi 
    6666# 
    67 # check for ${TROPFLUX_LOG} definition 
    68 if [ "${TROPFLUX_LOG}" = "" ] 
     67# check for ${PROJECT_LOG} definition 
     68if [ "${PROJECT_LOG}" = "" ] 
    6969then 
    70    echo " eee : \${TROPFLUX_LOG} not defined" 
     70   echo " eee : \${PROJECT_LOG} not defined" 
    7171   exit 1 
    7272fi 
    7373# 
    74 # check for ${TROPFLUX_LOG} existence 
    75 if [ ! -d ${TROPFLUX_LOG} ] 
     74# check for ${PROJECT_LOG} existence 
     75if [ ! -d ${PROJECT_LOG} ] 
    7676then 
    77    echo " eee : ${TROPFLUX_LOG} not found" 
     77   echo " eee : ${PROJECT_LOG} not found" 
    7878   exit 1 
    7979fi 
    8080# 
    81 # check for permission access on TROPFLUX_LOG 
    82 if [ ! -x ${TROPFLUX_LOG} ] 
     81# check for permission access on PROJECT_LOG 
     82if [ ! -x ${PROJECT_LOG} ] 
    8383then 
    84    echo " eee : ${TROPFLUX_LOG} not reachable" 
     84   echo " eee : ${PROJECT_LOG} not reachable" 
    8585   exit 1 
    8686fi 
    87 # check for write permission on TROPFLUX_LOG 
    88 if [ ! -w ${TROPFLUX_LOG} ] 
     87# check for write permission on PROJECT_LOG 
     88if [ ! -w ${PROJECT_LOG} ] 
    8989then 
    90    echo " eee : ${TROPFLUX_LOG} not writable" 
     90   echo " eee : ${PROJECT_LOG} not writable" 
    9191   exit 1 
    9292fi 
    9393# 
    94 log=$(find ${TROPFLUX_LOG} -name "${1}.log.????????T??????Z" | sort | \ 
     94log=$(find ${PROJECT_LOG} -name "${1}.log.????????T??????Z" | sort | \ 
    9595tail -n 1) 
    9696tmp=${?} 
     
    9999   if [ "${log}" = "" ] 
    100100   then 
    101       echo "${command} : eee : no release of ${TROPFLUX_LOG}/${1}.log" >&2 
     101      echo "${command} : eee : no release of ${PROJECT_LOG}/${1}.log" >&2 
    102102      exit 1 
    103103   else 
  • trunk/src/elogd.sh

    r2 r50  
    77# 
    88# ========================================================================================= 
    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}` 
    1010# ========================================================================================= 
    1111# 
     
    2121# =========== 
    2222# 
    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}`. 
    2424# 
    2525# .. +todo+ avec sphinx :envvar:`${EDITOR}` 
     
    3434# ======== 
    3535# 
    36 # :ref:`tropflux_profile.sh` 
     36# :ref:`project_profile.sh` 
    3737# 
    3838# :ref:`dlogd.sh` 
     
    7878fi 
    7979# 
    80 # check for ${TROPFLUX_LOG} definition 
    81 if [ "${TROPFLUX_LOG}" = "" ] 
     80# check for ${PROJECT_LOG} definition 
     81if [ "${PROJECT_LOG}" = "" ] 
    8282then 
    83    echo " eee : \${TROPFLUX_LOG} not defined" 
     83   echo " eee : \${PROJECT_LOG} not defined" 
    8484   exit 1 
    8585fi 
    8686# 
    87 # check for ${TROPFLUX_LOG} existence 
    88 if [ ! -d ${TROPFLUX_LOG} ] 
     87# check for ${PROJECT_LOG} existence 
     88if [ ! -d ${PROJECT_LOG} ] 
    8989then 
    90    echo " eee : ${TROPFLUX_LOG} not found" 
     90   echo " eee : ${PROJECT_LOG} not found" 
    9191   exit 1 
    9292fi 
    9393# 
    94 # check for permission access on TROPFLUX_LOG 
    95 if [ ! -x ${TROPFLUX_LOG} ] 
     94# check for permission access on PROJECT_LOG 
     95if [ ! -x ${PROJECT_LOG} ] 
    9696then 
    97    echo " eee : ${TROPFLUX_LOG} not reachable" 
     97   echo " eee : ${PROJECT_LOG} not reachable" 
    9898   exit 1 
    9999fi 
    100100# 
    101 log=$(find ${TROPFLUX_LOG} -name "${1}.log.????????T??????Z" | sort | \ 
     101log=$(find ${PROJECT_LOG} -name "${1}.log.????????T??????Z" | sort | \ 
    102102tail -n 1) 
    103103tmp=${?} 
     
    106106   if [ "${log}" = "" ] 
    107107   then 
    108       echo "${command} : eee : no release of ${TROPFLUX_LOG}/${1}.log" >&2 
     108      echo "${command} : eee : no release of ${PROJECT_LOG}/${1}.log" >&2 
    109109      exit 1 
    110110   else 
  • trunk/src/get_oaflux.sh

    r48 r50  
    2020# =========== 
    2121# 
    22 # Put in ${TROPFLUX_ID} OAFLUX reference file 
     22# Put in ${PROJECT_ID} OAFLUX reference file 
    2323# 
    2424# Once this tool executed :ref:`oaflux_mask_30N30S.pro` can be launched. 
    2525# 
    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}` 
    2727# 
    2828# 
     
    3636#           oaflux_ref [shape=diamond,fontname=Courier,label="ftp://ftp.whoi.edu/pub/science/oaflux/data_v3/monthly/turbulence/lh_oaflux_2004.nc.gz"]; 
    3737# 
    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"]; 
    3939# 
    4040#           get_oaflux [shape=box, 
     
    4242#           color=blue, 
    4343#           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"]; 
    4545#           get_oaflux [shape=box, 
    4646#           fontname=Courier, 
    4747#           color=blue, 
    4848#           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"]; 
    5050# 
    5151#           {oaflux_ref} -> {get_oaflux} -> {file_oaflux} 
     
    6666#  $ tlogd.sh get_oaflux 
    6767# 
    68 # and of course on files in ${TROPFLUX_ID}. 
     68# and of course on files in ${PROJECT_ID}. 
    6969# 
    7070# TODO 
     
    7676# :ref:`guide data OAFLUX <data_in_oaflux>` 
    7777# 
    78 # :ref:`tropflux_profile.sh` 
     78# :ref:`project_profile.sh` 
    7979# 
    8080# :ref:`oaflux_mask_30N30S.pro` 
     
    141141unset tool 
    142142# 
    143 # check for ${TROPFLUX_LOG} definition 
    144 if [ "${TROPFLUX_LOG}" = "" ] 
    145 then 
    146    echo "${command} : eee : \${TROPFLUX_LOG} not defined" 
    147    exit 1 
    148 fi 
    149 # 
    150 # check for ${TROPFLUX_LOG} existence 
    151 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_LOG 
    158 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_LOG 
    165 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 
     144if [ "${PROJECT_LOG}" = "" ] 
     145then 
     146   echo "${command} : eee : \${PROJECT_LOG} not defined" 
     147   exit 1 
     148fi 
     149# 
     150# check for ${PROJECT_LOG} existence 
     151if [ ! -d ${PROJECT_LOG} ] 
     152then 
     153   echo "${command} : eee : ${PROJECT_LOG} not found" 
     154   exit 1 
     155fi 
     156# 
     157# check for permission access on PROJECT_LOG 
     158if [ ! -x ${PROJECT_LOG} ] 
     159then 
     160   echo "${command} : eee : ${PROJECT_LOG} not reachable" 
     161   exit 1 
     162fi 
     163# 
     164# check for write permission on PROJECT_LOG 
     165if [ ! -w ${PROJECT_LOG} ] 
     166then 
     167   echo "${command} : eee : ${PROJECT_LOG} not writable" 
     168   exit 1 
     169fi 
     170# 
     171log=${PROJECT_LOG}/$(basename ${0} .sh).log.${log_date} 
    172172echo "[Context]" 1>> ${log} 
    173173echo "command=$(basename ${0})" 1>>${log} 
     
    180180fileref_gz=${fileref}.gz 
    181181locref=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} 
     182if  [ -f ${PROJECT_ID}/${fileref} ] 
     183then 
     184   echo "${command} : iii : ${PROJECT_ID}/${fileref} exist" 1>> ${log} 
    185185   echo "${command} : iii : nothing done" 1>> ${log} 
    186186else 
    187    wget --tries=1 --no-verbose -P ${TROPFLUX_ID} ${locref}/${fileref_gz} 1>> ${log} 2>&1 
     187   wget --tries=1 --no-verbose -P ${PROJECT_ID} ${locref}/${fileref_gz} 1>> ${log} 2>&1 
    188188   wget_status=${?} 
    189189   if [ ${wget_status} -ne 0 ] 
     
    197197   # 
    198198   # decompress 
    199    gunzip ${TROPFLUX_ID}${fileref_gz} 
     199   gunzip ${PROJECT_ID}${fileref_gz} 
    200200   gunzip_status=${?} 
    201201   if [ ${gunzip_status} -ne 0 ] 
  • trunk/src/get_olr.sh

    r4 r50  
    3434# trace 
    3535# 
    36 # hard coded directory - usage of ${TROPFLUX_ID} 
     36# hard coded directory - usage of ${PROJECT_ID} 
    3737# 
    3838# coding rules 
  • trunk/src/get_olrnint.sh

    r4 r50  
    3535# trace 
    3636# 
    37 # hard coded directory - usage of ${TROPFLUX_ID} 
     37# hard coded directory - usage of ${PROJECT_ID} 
    3838# 
    3939# coding rules 
  • trunk/src/get_pirata_netcdf.sh

    r48 r50  
    4444#   wind 
    4545# 
    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}` 
    4747# 
    4848#     .. graphviz:: 
     
    5555#           pirata_ref [shape=diamond,fontname=Courier,label="ftp://ftp.pmel.noaa.gov/cdf/sites/daily/*_*_dy.cdf"]; 
    5656# 
    57 #           file_pirata  [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/*_*_dy.cdf"]; 
     57#           file_pirata  [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/*_*_dy.cdf"]; 
    5858# 
    5959#           get_pirata_netcdf [shape=box, 
     
    6161#           color=blue, 
    6262#           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"]; 
    6464# 
    6565#           {pirata_ref} -> {get_pirata_netcdf} -> {file_pirata} 
     
    7878#  $ tlogd.sh get_pirata_netcdf 
    7979# 
    80 # and of course on files in ${TROPFLUX_ID}. 
     80# and of course on files in ${PROJECT_ID}. 
    8181# 
    8282# SEE ALSO 
     
    8585# :ref:`guide data PIRATA <data_in_pirata>` 
    8686# 
    87 # :ref:`tropflux_profile.sh` 
     87# :ref:`project_profile.sh` 
    8888# 
    8989# TODO 
     
    151151unset tool 
    152152# 
    153 # check for ${TROPFLUX_LOG} definition 
    154 if [ "${TROPFLUX_LOG}" = "" ] 
    155 then 
    156    echo "${command} : eee : \${TROPFLUX_LOG} not defined" 
    157    exit 1 
    158 fi 
    159 # 
    160 # check for ${TROPFLUX_LOG} existence 
    161 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_LOG 
    168 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_LOG 
    175 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 
     154if [ "${PROJECT_LOG}" = "" ] 
     155then 
     156   echo "${command} : eee : \${PROJECT_LOG} not defined" 
     157   exit 1 
     158fi 
     159# 
     160# check for ${PROJECT_LOG} existence 
     161if [ ! -d ${PROJECT_LOG} ] 
     162then 
     163   echo "${command} : eee : ${PROJECT_LOG} not found" 
     164   exit 1 
     165fi 
     166# 
     167# check for permission access on PROJECT_LOG 
     168if [ ! -x ${PROJECT_LOG} ] 
     169then 
     170   echo "${command} : eee : ${PROJECT_LOG} not reachable" 
     171   exit 1 
     172fi 
     173# 
     174# check for write permission on PROJECT_LOG 
     175if [ ! -w ${PROJECT_LOG} ] 
     176then 
     177   echo "${command} : eee : ${PROJECT_LOG} not writable" 
     178   exit 1 
     179fi 
     180# 
     181log=${PROJECT_LOG}/$(basename ${0} .sh).log.${log_date} 
    182182echo "[Context]" 1>> ${log} 
    183183echo "command=$(basename ${0})" 1>>${log} 
     
    212212unset locref 
    213213# 
    214 # if file is not already in ${TROPFLUX_ID}, get it 
     214# if file is not already in ${PROJECT_ID}, get it 
    215215for url in ${list_url} 
    216216do 
    217   file=${TROPFLUX_ID}/$(basename ${url}) 
     217  file=${PROJECT_ID}/$(basename ${url}) 
    218218  if [ ! -f ${file} ] 
    219219  then 
    220      wget --tries=1 --no-verbose -P ${TROPFLUX_ID} \ 
     220     wget --tries=1 --no-verbose -P ${PROJECT_ID} \ 
    221221        --user=taopmelftp \ 
    222222        --password=G10b@LCh@Ng3 \ 
  • trunk/src/get_rama_netcdf.sh

    r48 r50  
    4343#   wind 
    4444# 
    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}` 
    4646# 
    4747#     .. graphviz:: 
     
    5454#           rama_ref [shape=diamond,fontname=Courier,label="ftp://ftp.pmel.noaa.gov/cdf/sites/daily/*_*_dy.cdf"]; 
    5555# 
    56 #           file_rama  [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/*_*_dy.cdf"]; 
     56#           file_rama  [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/*_*_dy.cdf"]; 
    5757# 
    5858#           get_rama_netcdf [shape=box, 
     
    6060#           color=blue, 
    6161#           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"]; 
    6363# 
    6464#           {rama_ref} -> {get_rama_netcdf} -> {file_rama} 
     
    7777#  $ tlogd.sh get_rama_netcdf 
    7878# 
    79 # and of course on files in ${TROPFLUX_ID}. 
     79# and of course on files in ${PROJECT_ID}. 
    8080# 
    8181# SEE ALSO 
     
    8484# :ref:`guide data RAMA <data_in_rama>` 
    8585# 
    86 # :ref:`tropflux_profile.sh` 
     86# :ref:`project_profile.sh` 
    8787# 
    8888# TODO 
     
    159159unset tool 
    160160# 
    161 # check for ${TROPFLUX_LOG} definition 
    162 if [ "${TROPFLUX_LOG}" = "" ] 
    163 then 
    164    echo "${command} : eee : \${TROPFLUX_LOG} not defined" 
    165    exit 1 
    166 fi 
    167 # 
    168 # check for ${TROPFLUX_LOG} existence 
    169 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_LOG 
    176 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_LOG 
    183 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 
     162if [ "${PROJECT_LOG}" = "" ] 
     163then 
     164   echo "${command} : eee : \${PROJECT_LOG} not defined" 
     165   exit 1 
     166fi 
     167# 
     168# check for ${PROJECT_LOG} existence 
     169if [ ! -d ${PROJECT_LOG} ] 
     170then 
     171   echo "${command} : eee : ${PROJECT_LOG} not found" 
     172   exit 1 
     173fi 
     174# 
     175# check for permission access on PROJECT_LOG 
     176if [ ! -x ${PROJECT_LOG} ] 
     177then 
     178   echo "${command} : eee : ${PROJECT_LOG} not reachable" 
     179   exit 1 
     180fi 
     181# 
     182# check for write permission on PROJECT_LOG 
     183if [ ! -w ${PROJECT_LOG} ] 
     184then 
     185   echo "${command} : eee : ${PROJECT_LOG} not writable" 
     186   exit 1 
     187fi 
     188# 
     189log=${PROJECT_LOG}/$(basename ${0} .sh).log.${log_date} 
    190190echo "[Context]" 1>> ${log} 
    191191echo "command=$(basename ${0})" 1>>${log} 
     
    227227unset locref 
    228228# 
    229 # if file is not already in ${TROPFLUX_ID}, get it 
     229# if file is not already in ${PROJECT_ID}, get it 
    230230for url in ${list_url} 
    231231do 
    232   file=${TROPFLUX_ID}/$(basename ${url}) 
     232  file=${PROJECT_ID}/$(basename ${url}) 
    233233  if [ ! -f ${file} ] 
    234234  then 
    235      wget --tries=1 --no-verbose -P ${TROPFLUX_ID} \ 
     235     wget --tries=1 --no-verbose -P ${PROJECT_ID} \ 
    236236        --user=taopmelftp \ 
    237237        --password=G10b@LCh@Ng3 \ 
  • trunk/src/get_tao_netcdf.sh

    r48 r50  
    4343#   wind 
    4444# 
    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}` 
    4646# 
    4747#     .. graphviz:: 
     
    5454#           tao_ref [shape=diamond,fontname=Courier,label="ftp://ftp.pmel.noaa.gov/cdf/sites/daily/*_*_dy.cdf"]; 
    5555# 
    56 #           file_tao  [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/*_*_dy.cdf"]; 
     56#           file_tao  [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/*_*_dy.cdf"]; 
    5757# 
    5858#           get_tao_netcdf [shape=box, 
     
    6060#           color=blue, 
    6161#           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"]; 
    6363# 
    6464#           {tao_ref} -> {get_tao_netcdf} -> {file_tao} 
     
    7777#  $ tlogd.sh get_tao_netcdf 
    7878# 
    79 # and of course on files in ${TROPFLUX_ID}. 
     79# and of course on files in ${PROJECT_ID}. 
    8080# 
    8181# SEE ALSO 
     
    8484# :ref:`guide data TAO <data_in_tao>` 
    8585# 
    86 # :ref:`tropflux_profile.sh` 
     86# :ref:`project_profile.sh` 
    8787# 
    8888# TODO 
     
    150150unset tool 
    151151# 
    152 # check for ${TROPFLUX_LOG} definition 
    153 if [ "${TROPFLUX_LOG}" = "" ] 
    154 then 
    155    echo "${command} : eee : \${TROPFLUX_LOG} not defined" 
    156    exit 1 
    157 fi 
    158 # 
    159 # check for ${TROPFLUX_LOG} existence 
    160 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_LOG 
    167 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_LOG 
    174 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 
     153if [ "${PROJECT_LOG}" = "" ] 
     154then 
     155   echo "${command} : eee : \${PROJECT_LOG} not defined" 
     156   exit 1 
     157fi 
     158# 
     159# check for ${PROJECT_LOG} existence 
     160if [ ! -d ${PROJECT_LOG} ] 
     161then 
     162   echo "${command} : eee : ${PROJECT_LOG} not found" 
     163   exit 1 
     164fi 
     165# 
     166# check for permission access on PROJECT_LOG 
     167if [ ! -x ${PROJECT_LOG} ] 
     168then 
     169   echo "${command} : eee : ${PROJECT_LOG} not reachable" 
     170   exit 1 
     171fi 
     172# 
     173# check for write permission on PROJECT_LOG 
     174if [ ! -w ${PROJECT_LOG} ] 
     175then 
     176   echo "${command} : eee : ${PROJECT_LOG} not writable" 
     177   exit 1 
     178fi 
     179# 
     180log=${PROJECT_LOG}/$(basename ${0} .sh).log.${log_date} 
    181181echo "[Context]" 1>> ${log} 
    182182echo "command=$(basename ${0})" 1>>${log} 
     
    218218unset locref 
    219219# 
    220 # if file is not already in ${TROPFLUX_ID}, get it 
     220# if file is not already in ${PROJECT_ID}, get it 
    221221for url in ${list_url} 
    222222do 
    223   file=${TROPFLUX_ID}/$(basename ${url}) 
     223  file=${PROJECT_ID}/$(basename ${url}) 
    224224  if [ ! -f ${file} ] 
    225225  then 
    226      wget --tries=1 --no-verbose -P ${TROPFLUX_ID} \ 
     226     wget --tries=1 --no-verbose -P ${PROJECT_ID} \ 
    227227        --user=taopmelftp \ 
    228228        --password=G10b@LCh@Ng3 \ 
  • trunk/src/interp_erai_dewt_1989_2009.pro

    r20 r50  
    1515;           ] 
    1616;           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"]; 
    1818; 
    1919;           file_out [shape=ellipse,fontname=Courier,label="/Volumes/PRAVEEN/TropFlux/input_uncor/erai_d2m_19890101_20091231_oafluxgrid.nc"]; 
     
    2222;           color=blue, 
    2323;           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"]; 
    2525; 
    2626;           {file_in mask} -> {interp_erai_dewt_1989_2009} -> {file_out} 
     
    3131; ======== 
    3232; 
    33 ; :ref:`tropflux_profile.sh` 
     33; :ref:`project_profile.sh` 
    3434; 
    3535; :func:`report <saxo:report>` 
     
    5252; ==== 
    5353; 
    54 ; hard coded directory - usage of ${TROPFLUX_ID} 
     54; hard coded directory - usage of ${PROJECT_ID} 
    5555; 
    5656; coding rules 
     
    8484pro interp_erai_dewt_1989_2009 
    8585@common 
     86@cm_project 
    8687; 
    8788; check for input directory  
    8889; 
    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 
     91CASE project_id_env OF 
    9292    ''  :  BEGIN 
    93      msg = 'eee : ${TROPFLUX_ID} is not defined' 
     93     msg = 'eee : ${PROJECT_ID} is not defined' 
    9494     ras = report(msg) 
    9595     STOP 
    9696           END 
    9797 ELSE: BEGIN 
    98      msg = 'iii : ${TROPFLUX_ID} is ' + tropflux_id_env 
     98     msg = 'iii : ${PROJECT_ID} is ' + project_id_env 
    9999     ras = report(msg) 
    100100       END 
    101101ENDCASE 
    102102; 
    103 iodirin = isadirectory(tropflux_id_env) 
     103iodirin = isadirectory(project_id_env) 
    104104; 
    105 ; existence and protection of ${TROPFLUX_ID} 
     105; existence and protection of ${PROJECT_ID} 
    106106IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 
    107107   msg = 'eee : the directory' + iodirin  + ' is not accessible.' 
  • trunk/src/interp_erai_lwr_1989_2009.pro

    r20 r50  
    1313;           rankdir="LR", 
    1414;           ] 
    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"]; 
    1616; 
    1717;           file_in [shape=ellipse,fontname=Courier,label="/Volumes/PRAVEEN/ERAI_global/20c3m_erai_str_TROP_1989_2009.nc"]; 
     
    2323;           color=blue, 
    2424;           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"]; 
    2626; 
    2727;           {mask file_in} -> {interp_erai_lwr_1989_2009} -> {ncfile} 
     
    3232; ======== 
    3333; 
    34 ; :ref:`tropflux_profile.sh` 
     34; :ref:`project_profile.sh` 
    3535; 
    3636; :func:`report <saxo:report>` 
     
    5353; ==== 
    5454; 
    55 ; hard coded directory - usage of ${TROPFLUX_ID} 
     55; hard coded directory - usage of ${PROJECT_ID} 
    5656; 
    5757; coding rules 
     
    8888; check for input directory 
    8989; 
    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 
     91CASE project_id_env OF 
    9392    ''  :  BEGIN 
    94      msg = 'eee : ${TROPFLUX_ID} is not defined' 
     93     msg = 'eee : ${PROJECT_ID} is not defined' 
    9594     ras = report(msg) 
    9695     STOP 
    9796           END 
    9897 ELSE: BEGIN 
    99      msg = 'iii : ${TROPFLUX_ID} is ' + tropflux_id_env 
     98     msg = 'iii : ${PROJECT_ID} is ' + project_id_env 
    10099     ras = report(msg) 
    101100       END 
    102101ENDCASE 
    103102; 
    104 iodirin = isadirectory(tropflux_id_env) 
     103iodirin = isadirectory(project_id_env) 
    105104; 
    106 ; existence and protection of ${TROPFLUX_ID} 
     105; existence and protection of ${PROJECT_ID} 
    107106IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 
    108107   msg = 'eee : the directory' + iodirin  + ' is not accessible.' 
  • trunk/src/interp_erai_sst_1989_2009.pro

    r20 r50  
    1515;           file_in [shape=ellipse,fontname=Courier,label="/Volumes/PRAVEEN/ERAI_global/20c3m_erai_sstk_TROP_1989_2009.nc"]; 
    1616; 
    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"]; 
    1818; 
    1919;           ncfile [shape=ellipse,fontname=Courier,label="/Volumes/PRAVEEN/TropFlux/input_uncor/erai_sst_19890101_20091231_oafluxgrid.nc"]; 
     
    2323;           color=blue, 
    2424;           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"]; 
    2626; 
    2727;           {file_in mask} -> {interp_erai_sst_1989_2009} -> {ncfile} 
     
    3131; ======== 
    3232; 
    33 ; :ref:`tropflux_profile.sh` 
     33; :ref:`project_profile.sh` 
    3434; 
    3535; :func:`report <saxo:report>` 
     
    5252; ==== 
    5353; 
    54 ; hard coded directory - usage of ${TROPFLUX_ID} 
     54; hard coded directory - usage of ${PROJECT_ID} 
    5555; 
    5656; coding rules 
     
    8585pro interp_erai_sst_1989_2009 
    8686@common 
     87@cm_project 
    8788; 
    8889; check for input directory 
    8990; 
    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 
     92CASE project_id_env OF 
    9393    ''  :  BEGIN 
    94      msg = 'eee : ${TROPFLUX_ID} is not defined' 
     94     msg = 'eee : ${PROJECT_ID} is not defined' 
    9595     ras = report(msg) 
    9696     STOP 
    9797           END 
    9898 ELSE: BEGIN 
    99      msg = 'iii : ${TROPFLUX_ID} is ' + tropflux_id_env 
     99     msg = 'iii : ${PROJECT_ID} is ' + project_id_env 
    100100     ras = report(msg) 
    101101       END 
    102102ENDCASE 
    103103; 
    104 iodirin = isadirectory(tropflux_id_env) 
     104iodirin = isadirectory(project_id_env) 
    105105; 
    106 ; existence and protection of ${TROPFLUX_ID} 
     106; existence and protection of ${PROJECT_ID} 
    107107IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 
    108108   msg = 'eee : the directory' + iodirin  + ' is not accessible.' 
  • trunk/src/interp_erai_t2m_1989_2009.pro

    r40 r50  
    99; Interpolation of t2 from ERA-I grid to OAFLUX grid 
    1010; 
    11 ; :file:`${TROPFLUX_ID}/20c3m_erai_t2_TROP_1989_2009.nc` containing t2 from ERA-I have been produced 
     11; :file:`${PROJECT_ID}/20c3m_erai_t2_TROP_1989_2009.nc` containing t2 from ERA-I have been produced 
    1212; by :ref:`compute_erai_daily_region_2d.sh`. 
    1313; 
    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`. 
    1515; 
    1616; 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`. 
    2020; 
    2121; 
     
    2626;           rankdir="TB", 
    2727;           ] 
    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"]; 
    3232; 
    3333;           interp_erai_t2m_1989_2009 [shape=box, 
     
    3535;           color=blue, 
    3636;           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"]; 
    3838; 
    3939;           {file_in mask} -> {interp_erai_t2m_1989_2009} -> {ncfile} 
     
    4747; :ref:`interpolate_data` 
    4848; 
    49 ; :ref:`tropflux_profile.sh` 
     49; :ref:`project_profile.sh` 
    5050; 
    5151; :ref:`compute_erai_daily_region_2d.sh` 
     
    7171; :: 
    7272; 
    73 ;  IDL> @tropflux_init 
    7473;  IDL> .compile file_interp 
    7574;  IDL> interp_erai_t2m_1989_2009 
     
    166165@cm_4mesh 
    167166@cm_4data 
    168 @cm_tropflux 
     167@cm_project 
    169168; 
    170169; check for input directory 
    171170; 
    172 ; test if ${TROPFLUX_ID} defined 
    173 CASE tropflux_id_env OF 
     171; test if ${PROJECT_ID} defined 
     172CASE project_id_env OF 
    174173    ''  :  BEGIN 
    175      msg = 'eee : ${TROPFLUX_ID} is not defined' 
     174     msg = 'eee : ${PROJECT_ID} is not defined' 
    176175     ras = report(msg) 
    177176     STOP 
    178177           END 
    179178 ELSE: BEGIN 
    180      msg = 'iii : ${TROPFLUX_ID} is ' + tropflux_id_env 
     179     msg = 'iii : ${PROJECT_ID} is ' + project_id_env 
    181180     ras = report(msg) 
    182181       END 
    183182ENDCASE 
    184183; 
    185 iodirin = isadirectory(tropflux_id_env) 
    186 ; 
    187 ; existence and protection of ${TROPFLUX_ID} 
     184iodirin = isadirectory(project_id_env) 
     185; 
     186; existence and protection of ${PROJECT_ID} 
    188187IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 
    189188   msg = 'eee : the directory' + iodirin  + ' is not accessible.' 
     
    214213ENDIF 
    215214; 
    216 ; test if ${TROPFLUX_OD} defined 
    217 CASE tropflux_od_env OF 
     215; test if ${PROJECT_OD} defined 
     216CASE project_od_env OF 
    218217  '' : BEGIN 
    219          msg = 'eee : ${TROPFLUX_OD} is not defined' 
     218         msg = 'eee : ${PROJECT_OD} is not defined' 
    220219         ras = report(msg) 
    221220       STOP 
    222221       END 
    223222  ELSE: BEGIN 
    224           msg = 'iii : ${TROPFLUX_OD} is ' + tropflux_od_env 
     223          msg = 'iii : ${PROJECT_OD} is ' + project_od_env 
    225224          ras = report(msg) 
    226225        END 
     
    228227; 
    229228; check if output data will be possible 
    230 iodirout = isadirectory(tropflux_od_env) 
     229iodirout = isadirectory(project_od_env) 
    231230; 
    232231; existence and protection 
  • trunk/src/interp_erai_ws_1989_2009.pro

    r20 r50  
    1616;           file_v10 [shape=ellipse,fontname=Courier,label="/Volumes/PRAVEEN/ERAI_global/20c3m_erai_v10_TROP_1989_2009.nc"]; 
    1717; 
    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"]; 
    1919; 
    2020;           ncfile [shape=ellipse,fontname=Courier,label="/Volumes/PRAVEEN/TropFlux/input_uncor/erai_ws_19890101_20091231_oafluxgrid.nc"]; 
     
    2424;           color=blue, 
    2525;           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"]; 
    2727; 
    2828;           {file_u10 file_v10 mask} -> {interp_erai_ws_1989_2009} -> {ncfile} 
     
    3333; ======== 
    3434; 
    35 ; :ref:`tropflux_profile.sh` 
     35; :ref:`project_profile.sh` 
    3636; 
    3737; :func:`report <saxo:report>` 
     
    5555; ==== 
    5656; 
    57 ; hard coded directory - usage of ${TROPFLUX_ID} 
     57; hard coded directory - usage of ${PROJECT_ID} 
    5858; 
    5959; coding rules 
     
    8787pro interp_erai_ws_1989_2009 
    8888@common 
     89@cm_project 
    8990; 
    9091; check for input directory 
    9192; 
    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 
     94CASE project_id_env OF 
    9595    ''  :  BEGIN 
    96      msg = 'eee : ${TROPFLUX_ID} is not defined' 
     96     msg = 'eee : ${PROJECT_ID} is not defined' 
    9797     ras = report(msg) 
    9898     STOP 
    9999           END 
    100100 ELSE: BEGIN 
    101      msg = 'iii : ${TROPFLUX_ID} is ' + tropflux_id_env 
     101     msg = 'iii : ${PROJECT_ID} is ' + project_id_env 
    102102     ras = report(msg) 
    103103       END 
    104104ENDCASE 
    105105; 
    106 iodirin = isadirectory(tropflux_id_env) 
    107 ; 
    108 ; existence and protection of ${TROPFLUX_ID} 
     106iodirin = isadirectory(project_id_env) 
     107; 
     108; existence and protection of ${PROJECT_ID} 
    109109IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 
    110110   msg = 'eee : the directory' + iodirin  + ' is not accessible.' 
  • trunk/src/interp_olr_30n30s_1989_2009.pro

    r20 r50  
    1515;           file_in [shape=ellipse,fontname=Courier,label="/Users/pkb/data/heat_budget/NOAA_OLR/new/olr.day.mean_new.nc"]; 
    1616; 
    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"]; 
    1818; 
    1919;           ncfile [shape=ellipse,fontname=Courier,label="/Users/pkb/data/heat_budget/NOAA_OLR/newolr_oafluxgrid_30n30s_19890101_20091231.nc"]; 
     
    2323;           color=blue, 
    2424;           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"]; 
    2626; 
    2727;           {file_in mask} -> {interp_olr_30n30s_1989_2009} -> {ncfile} 
     
    3232; ======== 
    3333; 
    34 ; :ref:`tropflux_profile.sh` 
     34; :ref:`project_profile.sh` 
    3535; 
    3636; :func:`report <saxo:report>` 
     
    5353; ==== 
    5454; 
    55 ; hard coded directory - usage of ${TROPFLUX_ID} 
     55; hard coded directory - usage of ${PROJECT_ID} 
    5656; 
    5757; coding rules 
     
    8888; check for input directory 
    8989; 
    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 
     91CASE project_id_env OF 
    9392    ''  :  BEGIN 
    94      msg = 'eee : ${TROPFLUX_ID} is not defined' 
     93     msg = 'eee : ${PROJECT_ID} is not defined' 
    9594     ras = report(msg) 
    9695     STOP 
    9796           END 
    9897 ELSE: BEGIN 
    99      msg = 'iii : ${TROPFLUX_ID} is ' + tropflux_id_env 
     98     msg = 'iii : ${PROJECT_ID} is ' + project_id_env 
    10099     ras = report(msg) 
    101100       END 
    102101ENDCASE 
    103102; 
    104 iodirin = isadirectory(tropflux_id_env) 
     103iodirin = isadirectory(project_id_env) 
    105104; 
    106 ; existence and protection of ${TROPFLUX_ID} 
     105; existence and protection of ${PROJECT_ID} 
    107106IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 
    108107   msg = 'eee : the directory' + iodirin  + ' is not accessible.' 
  • trunk/src/lwr_correction_ncdf.pro

    r20 r50  
    2121;           color=blue, 
    2222;           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"]; 
    2424; 
    2525;           {file_in} -> {lwr_correction_ncdf} -> {ncfile} 
     
    4848; ==== 
    4949; 
    50 ; hard coded directory - usage of ${TROPFLUX_ID} 
     50; hard coded directory - usage of ${PROJECT_ID} 
    5151; 
    5252; coding rules 
  • trunk/src/oaflux_mask_30n30s.pro

    r40 r50  
    2222;       rankdir="LR", 
    2323;       ] 
    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"]; 
    2626; 
    2727;       oaflux_mask_30n30s [shape=box, 
     
    2929;       color=blue, 
    3030;       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"]; 
    3232; 
    3333;       {file_oaflux} -> {oaflux_mask_30n30s} -> {mask} 
     
    4242; :ref:`guide data OAFLUX <data_in_oaflux>` 
    4343; 
    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` 
    4747; 
    4848; :ref:`get_oaflux.sh` 
     
    6868; :: 
    6969; 
    70 ;  IDL> @tropflux_init 
    7170;  IDL> oaflux_mask_30n30s 
    7271; 
     
    9998; - fplod 20110411T140133Z aedon.locean-ipsl.upmc.fr (Darwin) 
    10099; 
    101 ;   * usage of tropflux_init and cm_tropflux 
     100;   * usage of tropflux_init and cm_project 
    102101;   * replace 30N30S by 30n30s 
    103102;  
    104103; - fplod 20101217T081915Z aedon.locean-ipsl.upmc.fr (Darwin) 
    105104; 
    106 ;   * remove hard coded directory - usage of ${TROPFLUX_ID} and ${TROPFLUX_OD} 
     105;   * remove hard coded directory - usage of ${PROJECT_ID} and ${PROJECT_OD} 
    107106;   * add IO test 
    108107; 
     
    123122@cm_4mesh 
    124123@cm_4data 
    125 @cm_tropflux 
     124@cm_project 
    126125 
    127126; check for input file 
     
    132131; 
    133132; check if this file exists 
    134 fullfilename_in = isafile(tropflux_id_env + filename_in, NEW=0, /MUST_EXIST) 
     133fullfilename_in = isafile(project_id_env + filename_in, NEW=0, /MUST_EXIST) 
    135134IF fullfilename_in[0] EQ '' THEN BEGIN 
    136135   msg = 'eee : the file ' + fullfilename_in + ' was not found.' 
     
    140139; 
    141140; 
    142 fullfilename_out=tropflux_od_env+'mask_oaflux_30N30S.nc' 
     141fullfilename_out=project_od_env+'mask_oaflux_30N30S.nc' 
    143142; in order to avoid unexpected overwritten 
    144143IF (FILE_TEST(fullfilename_out) EQ 1) THEN BEGIN 
  • trunk/src/paper01/fig1/fig1_no_obs_map.pro

    r47 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    2626; 
    2727;       fig1_no_obs_map  [shape=box, 
     
    3939; :ref:`guide data OAFLUX <data_in_oaflux>` 
    4040; 
    41 ; :ref:`tropflux_profile.sh` 
    42 ; :ref:`tropflux_init.pro` 
     41; :ref:`project_profile.sh` 
     42; :ref:`project_init.pro` 
    4343; 
    4444; :func:`x_site_location` 
     
    5252; :: 
    5353; 
    54 ;  IDL> @tropflux_init 
     54;  IDL> @project_init 
    5555;  IDL> fig1_no_obs_map 
    5656; 
     
    9494pro fig1_no_obs_map 
    9595; 
    96 @cm_tropflux 
     96@cm_project 
    9797@cm_general 
    9898; 
     
    109109lct=65 
    110110 
    111 file=tropflux_id_env + 'mask_oaflux_30N30S.nc' 
     111file=project_id_env + 'mask_oaflux_30N30S.nc' 
    112112initncdf, file 
    113113domdef, 30,390,-30,30 
    114114msk=ncdf_lec(file,var='msk') 
    115115 
    116 fi=tropflux_id_env + 'lhf_no_obs.txt' 
     116fi=project_id_env + 'lhf_no_obs.txt' 
    117117res=read_ascii(fi,data_start=1) 
    118118ff=res.field1 
     
    149149endfor 
    150150 
    151 fi=tropflux_id_env + 'sw_no_obs.txt' 
     151fi=project_id_env + 'sw_no_obs.txt' 
    152152res=read_ascii(fi,data_start=1) 
    153153ff=res.field1 
     
    183183endfor 
    184184 
    185 fi=tropflux_id_env + 'lw_no_obs.txt' 
     185fi=project_id_env + 'lw_no_obs.txt' 
    186186res=read_ascii(fi,data_start=1) 
    187187ff=res.field1 
     
    230230closeps 
    231231 
    232 fig=tropflux_od_env + 'fig1_no_obs_map.ps' 
     232fig=project_od_env + 'fig1_no_obs_map.ps' 
    233233spawn, 'mv '+psdir+'idl.ps '+fig 
    234234spawn, 'gv '+fig 
  • trunk/src/paper01/fig10/fig10_swr_correction.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    1818; 
    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"]; 
    2020; 
    2121;       fig10_swr_correction [shape=box, 
     
    3131; ======== 
    3232; 
    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` 
    3636; 
    3737; :ref:`significance_test_99.pro` 
     
    4242; :: 
    4343; 
    44 ;  IDL> @tropflux_init 
     44;  IDL> @project_init 
    4545;  IDL> fig10_swr_correction 
    4646; 
     
    8282pro fig10_swr_correction 
    8383@cm_general 
    84 @cm_tropflux 
     84@cm_project 
    8585reinitplt, /z,/invert 
    8686key_portrait = 1 
     
    8989close,/all 
    9090 
    91 fi=tropflux_id_env+'swr_isccp_correction.txt' 
     91fi=project_id_env+'swr_isccp_correction.txt' 
    9292res=read_ascii(fi,data_start=0) 
    9393ff=res.field1 
     
    109109significance_test_99,mean,bias 
    110110 
    111 fi=tropflux_id_env+'swr_isccp_correction.txt' 
     111fi=project_id_env+'swr_isccp_correction.txt' 
    112112res=read_ascii(fi,data_start=0) 
    113113ff=res.field1 
     
    130130closeps 
    131131 
    132 fig=tropflux_od_env+'fig10_swr_correction.ps' 
     132fig=project_od_env+'fig10_swr_correction.ps' 
    133133spawn, 'mv '+psdir+'idl.ps '+fig 
    134134spawn, 'gv '+fig 
  • trunk/src/paper01/fig11/swr_isccp_tropflux_correlation_fig10.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    1818; 
    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"]; 
    2020; 
    2121;       swr_isccp_tropflux_correlation_fig10 [shape=box, 
     
    3131; ======== 
    3232; 
    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` 
    3636; 
    3737; EXAMPLES 
     
    4040; :: 
    4141; 
    42 ;  IDL> @tropflux_init 
    4342;  IDL> swr_isccp_tropflux_correlation_fig10 
    4443; 
     
    6160; $Id$ 
    6261; 
     62; - fplod 20110422T103945Z aedon.locean-ipsl.upmc.fr (Darwin) 
     63; 
     64;   * typo 
     65; 
    6366; - fplod 20110420T110411Z aedon.locean-ipsl.upmc.fr (Darwin) 
    6467; 
     
    7376pro swr_isccp_tropflux_correlation_fig10 
    7477@cm_general 
    75 @cm_tropflux 
     78@cm_project 
    7679reinitplt, /z,/invert 
    7780key_portrait = 1 
     
    8285restore, "/Users/pkb/work/MY_SAXO/correlation_isccp_olr.idl" 
    8386 
    84 file=tropflux_id_env+'TropFlux_sst_19890101_20091231.nc" 
     87file=project_id_env+'TropFlux_sst_19890101_20091231.nc' 
    8588initncdf, file 
    8689sst=read_ncdf("sst", 20000101, 20091231, file=file,/nostr) 
     
    9699 
    97100closeps 
    98 fig=tropflux_od_env+'correlation_rmsd_olra_swra_smooth.ps' 
     101fig=project_od_env+'correlation_rmsd_olra_swra_smooth.ps' 
    99102spawn, 'mv '+psdir+'idl.ps '+fig 
    100103spawn, 'gv '+fig 
  • trunk/src/paper01/fig11/swr_isccp_tropflux_new_v1.pro

    r46 r50  
    1616;       rankdir="LR", 
    1717;       ] 
    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"]; 
    2222; 
    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"]; 
    2424; 
    2525;       swr_isccp_tropflux_new_v1 [shape=box, 
     
    3535; ======== 
    3636; 
    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` 
    4040; 
    4141; EXAMPLES 
     
    4444; :: 
    4545; 
    46 ;  IDL> @tropflux_init 
    4746;  IDL> swr_isccp_tropflux_new_v1 
    4847; 
     
    5049; ==== 
    5150; 
    52 ; make it work on cratos : mising data 
     51; make it work on cratos : missing data swr_oafluxgrid_1985_2007.nc, etc. 
    5352; 
    5453; coding rules 
     
    7776pro swr_isccp_tropflux_new_v1 
    7877@cm_general 
    79 @cm_tropflux 
     78@cm_project 
    8079reinitplt, /z,/invert 
    8180key_portrait = 1 
     
    8483st=19890101 & en=20071231 
    8584 
    86 file=tropflux_id_env+'swr_oafluxgrid_1985_2007.nc' 
     85file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    8786initncdf, file 
    8887sw_isccp=read_ncdf("swr", st, en, file=file,/nostr) 
    8988 
    90 file=tropflux_id_env+'sw_reconstred_1989_2009.nc' 
     89file=project_id_env+'sw_reconstred_1989_2009.nc' 
    9190initncdf, file 
    9291sw_trop=read_ncdf("sw", st, en+1, file=file,/nostr) 
    9392 
    94 file=tropflux_id_env+'olr_oafluxgrid_30n30s.nc' 
     93file=project_id_env+'olr_oafluxgrid_30n30s.nc' 
    9594initncdf, file 
    9695olr=read_ncdf("olr", st, en, file=file,/nostr) 
     
    175174     subt='',title='a) Correlation (OLRA, SWRA)',xminor=1,yminor=1 
    176175 
    177 file=tropflux_id_env+'TropFlux_sst_19890101_20091231_v20.nc" 
     176file=project_id_env+'TropFlux_sst_19890101_20091231_v20.nc" 
    178177initncdf, file 
    179178sst=read_ncdf("sst", 19890101, 20091231, file=file,/nostr) 
     
    192191 
    193192closeps 
    194 fig=tropflux_od_env+'correlation_rmsd_olra_swra_smooth.ps' 
     193fig=project_od_env+'correlation_rmsd_olra_swra_smooth.ps' 
    195194spawn, 'mv '+psdir+'idl.ps '+fig 
    196195spawn, 'gv '+fig 
  • trunk/src/paper01/fig12/swr_statistics_map_2000_2009_v50.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    2424; 
    2525;       swr_statistics_map_2000_2009_v50 [shape=box, 
     
    3535; ======== 
    3636; 
    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` 
    4040; 
    4141; EXAMPLES 
     
    4444; :: 
    4545; 
    46 ;  IDL> @tropflux_init 
    4746;  IDL> swr_statistics_map_2000_2009_v50 
    4847; 
     
    7877pro swr_statistics_map_2000_2009_v50 
    7978@cm_general 
    80 @cm_tropflux 
     79@cm_project 
    8180reinitplt, /z,/invert 
    8281key_portrait = 1 
     
    8988rmsd_mi=10  & rmsd_ma=30 & rmsd_int=1.25 
    9089cor_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' 
     90fi_swr_erai=project_id_env+'swr_2000_2009_erai_v50.txt' 
     91fi_swr_trop=project_id_env+'swr_2000_2009_trop_v50.txt' 
     92fi_swr_oaflx=project_id_env+'swr_2000_2009_oaflx_v50.txt' 
     93fi_swr_olr=project_id_env+'swr_2000_2009_olr_v50.txt' 
    9594 
    9695res=read_ascii(fi_swr_erai,data_start=1) 
     
    137136 
    138137;ind=where(std_olr ge std_ma) & std_olr(ind)=std_ma-0.01 
    139 file=tropflux_id_env+'longwave_IO_mask.nc' 
     138file=project_id_env+'longwave_IO_mask.nc' 
    140139initncdf, file 
    141140domdef, 30,390,-30,30 
     
    560559endfor 
    561560closeps 
    562 fig=tropflux_od_env+'swr_statistics_map_2000_2009_v50.ps' 
     561fig=project_od_env+'swr_statistics_map_2000_2009_v50.ps' 
    563562spawn, 'mv '+psdir+'idl.ps '+fig 
    564563spawn, 'gv '+fig 
  • trunk/src/paper01/fig13/net_flux_validation_scatter_2000_2007.pro

    r46 r50  
    88; DESCRIPTION 
    99; =========== 
     10; 
     11; This program will create the following text files with statistics  
     12; of respective variables 
    1013; 
    1114; .. graphviz:: 
     
    1518;       rankdir="LR", 
    1619;       ] 
    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"]; 
    3336; 
    3437;       net_flux_validation_scatter_2000_2007 [shape=box, 
     
    4447; ======== 
    4548; 
    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` 
    4952; 
    5053; :func:`x_site_location` 
     
    5861; :: 
    5962; 
    60 ;  IDL> @tropflux_init 
    6163;  IDL> date1=19890101L 
    6264;  IDL> date2=20091231L 
     
    6668; ==== 
    6769; 
    68 ; make it work on cratos : missing data 
     70; make it work on cratos : missing data TropFlux_swr_19890101_20071231_DT_v50.nc, etc. 
    6971; 
    7072; coding rules 
     
    9496pro net_flux_validation_scatter_2000_2007, date1, date2 
    9597@cm_general 
    96 @cm_tropflux 
     98@cm_project 
    9799reinitplt, /z,/invert 
    98100key_portrait = 1 
     
    118120ocean='net_flux' 
    119121nsmooth=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' 
     122file_trop=project_id_env+'TropFlux_19890101_20091231.nc' 
    122123initncdf, file_trop 
    123124shf_trop=read_ncdf("shf", date1, date2, file=file_trop,/nostr) 
     
    125126lwr_trop=read_ncdf("lwr", date1, date2, file=file_trop,/nostr) 
    126127 
    127 file_trop=tropflux_id_env+'TropFlux_swr_19890101_20071231_DT_v50.nc' 
     128file_trop=project_id_env+'TropFlux_swr_19890101_20071231_DT_v50.nc' 
    128129initncdf, file_trop 
    129130swr_dt=read_ncdf("swr", date1, date2, file=file_trop,/nostr) 
     
    131132help, trop 
    132133 
    133 file_trop=tropflux_id_env+'TropFlux_swr_19890101_20091231_NRT_v50.nc' 
     134file_trop=project_id_env+'TropFlux_swr_19890101_20091231_NRT_v50.nc' 
    134135initncdf, file_trop 
    135136swr_nrt=read_ncdf("sw", date1-1, date2, file=file_trop,/nostr) 
     
    137138help, tropd 
    138139 
    139 file_ncep=tropflux_id_env+'NCEP2_flux_19890101_20090729.nc' 
     140file_ncep=project_id_env+'NCEP2_flux_19890101_20090729.nc' 
    140141initncdf, file_ncep 
    141142shf=read_ncdf("shf", date1, date2, file=file_ncep,/nostr) 
     
    148149help, ncep 
    149150 
    150 file_erai=tropflux_id_env+'erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc' 
     151file_erai=project_id_env+'erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc' 
    151152initncdf, file_erai 
    152153shf=read_ncdf("shf", date1, date2, file=file_erai,/nostr) 
     
    157158help, erai 
    158159 
    159 file_oaf=tropflux_id_env+'shf_oafluxgrid_1985_2008.nc' 
     160file_oaf=project_id_env+'shf_oafluxgrid_1985_2008.nc' 
    160161initncdf, file_oaf 
    161162shf=read_ncdf("shf", date1, date2, file=file_oaf,/nostr) 
    162 file_oaf=tropflux_id_env+'lhf_oafluxgrid_1985_2008.nc' 
     163file_oaf=project_id_env+'lhf_oafluxgrid_1985_2008.nc' 
    163164initncdf, file_oaf 
    164165lhf=read_ncdf("lhf", date1, date2, file=file_oaf,/nostr) 
    165 file_oaf=tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc' 
     166file_oaf=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    166167initncdf, file_oaf 
    167168lwr=read_ncdf("lwr", date1, date2, file=file_oaf,/nostr) 
    168 file_oaf=tropflux_id_env+'swr_oafluxgrid_1985_2007.nc' 
     169file_oaf=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    169170initncdf, file_oaf 
    170171swr=read_ncdf("swr", date1, date2, file=file_oaf,/nostr) & swr_trop=swr 
     
    172173help, oafl 
    173174 
    174 file=tropflux_id_env+'fluxe_ncep1_19890101_20091231.nc' 
     175file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 
    175176initncdf, file 
    176177lwr=read_ncdf("lwr", date1, date2, file=file,/nostr) 
     
    184185close,/all 
    185186 
    186 fi_net_NRT_erai=tropflux_id_env+'net_2000_2007_erai_v50.txt' 
     187fi_net_NRT_erai=project_id_env+'net_2000_2007_erai_v50.txt' 
    187188openw,1,fi_net_NRT_erai 
    188 fi_net_NRT_trop=tropflux_id_env+'net_2000_2007_trop_v50.txt' 
     189fi_net_NRT_trop=project_id_env+'net_2000_2007_trop_v50.txt' 
    189190openw,2,fi_net_NRT_trop 
    190 fi_net_NRT_oaflx=tropflux_id_env+'net_2000_2007_oaflx_v50.txt' 
     191fi_net_NRT_oaflx=project_id_env+'net_2000_2007_oaflx_v50.txt' 
    191192openw,3,fi_net_NRT_oaflx 
    192 fi_net_NRT_ncep=tropflux_id_env+'net_2000_2007_ncep_v50.txt' 
     193fi_net_NRT_ncep=project_id_env+'net_2000_2007_ncep_v50.txt' 
    193194openw,4,fi_net_NRT_ncep 
    194 fi_net_NRT_ncep1=tropflux_id_env+'net_2000_2007_ncep1_v50.txt' 
     195fi_net_NRT_ncep1=project_id_env+'net_2000_2007_ncep1_v50.txt' 
    195196openw,5,fi_net_NRT_ncep1 
    196 fi_net_NRT_tropd=tropflux_id_env+'net_2000_2007_tropd_v50.txt' 
     197fi_net_NRT_tropd=project_id_env+'net_2000_2007_tropd_v50.txt' 
    197198openw,6,fi_net_NRT_tropd 
    198199 
     
    275276close,/all 
    276277 
    277 fi_net_NRT_erai=tropflux_id_env+'net_2000_2007_erai_v50.txt' 
     278fi_net_NRT_erai=project_id_env+'net_2000_2007_erai_v50.txt' 
    278279res=read_ascii(fi_net_NRT_erai,data_start=1) 
    279280ff=res.field1 
     
    307308 
    308309 
    309 fi_net_NRT_trop=tropflux_id_env+'net_2000_2007_trop_v50.txt' 
     310fi_net_NRT_trop=project_id_env+'net_2000_2007_trop_v50.txt' 
    310311res=read_ascii(fi_net_NRT_trop,data_start=1) 
    311312ff=res.field1 
     
    339340 
    340341 
    341 fi_net_NRT_oaflx=tropflux_id_env+'net_2000_2007_oaflx_v50.txt' 
     342fi_net_NRT_oaflx=project_id_env+'net_2000_2007_oaflx_v50.txt' 
    342343res=read_ascii(fi_net_NRT_oaflx,data_start=1) 
    343344ff=res.field1 
     
    372373 
    373374 
    374 fi_net_NRT_ncep=tropflux_id_env+'net_2000_2007_ncep_v50.txt' 
     375fi_net_NRT_ncep=project_id_env+'net_2000_2007_ncep_v50.txt' 
    375376res=read_ascii(fi_net_NRT_ncep,data_start=1) 
    376377ff=res.field1 
     
    404405 
    405406 
    406 fi_net_NRT_ncep1=tropflux_id_env+'net_2000_2007_ncep1_v50.txt' 
     407fi_net_NRT_ncep1=project_id_env+'net_2000_2007_ncep1_v50.txt' 
    407408res=read_ascii(fi_net_NRT_ncep1,data_start=1) 
    408409ff=res.field1 
     
    436437 
    437438 
    438 fi_net_NRT_tropd=tropflux_id_env+'net_2000_2007_tropd_v50.txt' 
     439fi_net_NRT_tropd=project_id_env+'net_2000_2007_tropd_v50.txt' 
    439440res=read_ascii(fi_net_NRT_tropd,data_start=1) 
    440441ff=res.field1 
     
    469470closeps 
    470471 
    471 fig=tropflux_od_env+'net_flux_validation_scatter_2000_2007.ps' 
     472fig=project_od_env+'net_flux_validation_scatter_2000_2007.ps' 
    472473spawn, 'mv '+psdir+'idl.ps '+fig 
    473474spawn, 'gv '+fig 
  • trunk/src/paper01/fig14/as_validation_net_1994_95_v10.pro

    r47 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    3535; 
    3636;       as_validation_net_1994_95_v10 [shape=box, 
     
    3939;       URL="http://forge.ipsl.jussieu.fr/tropflux/broswrer/trunk/src/paper01/fig14/as_validation_net_1994_95_v10.pro", 
    4040;       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} 
    4342;    } 
    4443; 
     
    4645; ======== 
    4746; 
    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` 
    5150; 
    5251; :ref:`statistics.pro` 
     
    5756; :: 
    5857; 
    59 ;  IDL> @tropflux_init 
    6058;  IDL> as_validation_net_1994_95_v10 
    6159; 
     
    6462; ==== 
    6563; 
    66 ; make it work on cratos : missing data 
     64; make it work on cratos : missing data erai_swr_19910101_20091231_oafluxgrid.nc, etc 
    6765; 
    6866; coding rules 
     
    9189pro as_validation_net_1994_95_v10 
    9290@cm_general 
    93 @cm_tropflux 
     91@cm_project 
    9492reinitplt, /z,/invert 
    9593key_portrait = 1 
     
    10199date1=19941016 & date2=19951019 
    102100 
    103 fi=tropflux_id_env+"met_data_as_expt_1994.txt" 
     101fi=project_id_env+"met_data_as_expt_1994.txt" 
    104102res=read_ascii(fi,data_start=1) 
    105103ff=res.field1 
     
    110108net94=swr94+lwr94+lhf94+shf94 
    111109 
    112 fi=tropflux_id_env+"met_data_as_expt_1995.txt" 
     110fi=project_id_env+"met_data_as_expt_1995.txt" 
    113111res=read_ascii(fi,data_start=1) 
    114112ff=res.field1 
     
    128126help, net 
    129127;; reading other data sets 
    130 file=tropflux_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
     128file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    131129initncdf, file 
    132130swr=read_ncdf('swr',date1,date2,file=file,/nostr, box=asbox) & swr=reform(swr) 
    133 file=tropflux_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
     131file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    134132initncdf, file 
    135133lwr=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' 
     134file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    137135initncdf, file 
    138136shf=-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' 
     137file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    140138initncdf, file 
    141139lhf=-1*read_ncdf('lhf',date1,date2,file=file,/nostr, box=asbox) & lhf=reform(lhf) 
     
    148146swr=0. & lwr=0. & shf=0. & lhf=0. 
    149147 
    150 file=tropflux_id_env+"TropFlux_19890101_20091231.nc" 
     148file=project_id_env+"TropFlux_19890101_20091231.nc" 
    151149initncdf, file 
    152150swr=read_ncdf('swr',date1,date2,file=file,/nostr, box=asbox) & swr=reform(swr) 
     
    157155help, trop 
    158156 
    159 file=tropflux_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
     157file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    160158initncdf, file 
    161159olr1=read_ncdf("sw", date1-1, date2, file=file,/nostr, box=asbox) ;; & olr1=grossemoyenne(olr1, "xy",/nan, box=asbox) & 
     
    169167help, trop, olr 
    170168 
    171 file=tropflux_id_env+'swr_oafluxgrid_1985_2007.nc' 
     169file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    172170initncdf, file 
    173171swr=read_ncdf("swr", date1, date2, file=file,/nostr, box=asbox) & swr=reform(swr) 
    174172 
    175 file=tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc' 
     173file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    176174initncdf, file 
    177175lwr=read_ncdf("lwr", date1, date2, file=file,/nostr, box=asbox) & lwr=-1*reform(lwr) 
    178176 
    179 file=tropflux_id_env+'lhf_oafluxgrid_1985_2009.nc' 
     177file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    180178initncdf, file 
    181179lhf=read_ncdf("lhf", date1, date2, file=file,/nostr, box=asbox) & lhf=-1*reform(lhf) 
    182180 
    183 file=tropflux_id_env+'shf_oafluxgrid_1985_2009.nc' 
     181file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    184182initncdf, file 
    185183shf=read_ncdf("shf", date1, date2, file=file,/nostr, box=asbox) & shf=-1*reform(shf) 
     
    191189swr=0. & lwr=0. & shf=0. & lhf=0. 
    192190 
    193 fi=tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
     191fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    194192initncdf, fi 
    195193swr=read_ncdf("swr", date1, date2, file=fi,/nostr, box=asbox) & swr=reform(swr) 
    196194 
    197 fi=tropflux_id_env+"NCEP2_flux_19890101_20090729.nc" 
     195fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 
    198196initncdf, fi 
    199197lwr=read_ncdf("lwr", date1, date2, file=fi,/nostr, box=asbox) & lwr=grossemoyenne(lwr, "xy",/nan, box=asbox) & lwr=reform(lwr) 
     
    201199lwr=-1*lwr 
    202200 
    203 fi=tropflux_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
     201fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    204202initncdf, fi 
    205203lhf=read_ncdf("lhf", date1, date2, file=fi,/nostr, box=asbox) & lhf=-1*reform(lhf) 
    206204 
    207 fi=tropflux_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
     205fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    208206initncdf, fi 
    209207shf=read_ncdf("shf", date1, date2, file=fi,/nostr, box=asbox) & shf=-1*reform(shf) 
     
    216214swr=0. & lwr=0. & shf=0. & lhf=0. 
    217215 
    218 file=tropflux_id_env+"ncep1_flux_19890101_20091231.nc" 
     216file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    219217initncdf, file 
    220218swr=read_ncdf("swr", date1, date2, file=file,/nostr, box=asbox) & swr=reform(swr) 
     
    293291 
    294292closeps 
    295 fig=tropflux_od_env+'as_validation_net_1994_95_v10.ps' 
     293fig=project_od_env+'as_validation_net_1994_95_v10.ps' 
    296294spawn, 'mv '+psdir+'idl.ps '+fig 
    297295spawn, 'gv '+fig 
  • trunk/src/paper01/fig14/coare_validation_net_1992_93_all_v10.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    3636; 
    3737;       coare_validation_net_1992_93_all_v10 [shape=box, 
     
    4747; ======== 
    4848; 
    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` 
    5252; 
    5353; :ref:`statistics.pro` 
     
    5858; :: 
    5959; 
    60 ;  IDL> @tropflux_init 
    6160;  IDL> coare_validation_net_1992_93_all_v10 
    6261; 
     
    9190pro coare_validation_net_1992_93_all_v10 
    9291@cm_general 
    93 @cm_tropflux 
     92@cm_project 
    9493reinitplt, /z,/invert 
    9594key_portrait = 1 
     
    103102;; first leg 
    104103;; start data - 11/11/92 and end date 03/12/92 
    105 fi=tropflux_id_env+"met_data_coare_expt_1992_p1.txt" 
     104fi=project_id_env+"met_data_coare_expt_1992_p1.txt" 
    106105res=read_ascii(fi,data_start=1) 
    107106ff=res.field1 
     
    118117;; second leg 
    119118 
    120 fi=tropflux_id_env+"met_data_coare_expt_1992_p2.txt" 
     119fi=project_id_env+"met_data_coare_expt_1992_p2.txt" 
    121120res=read_ascii(fi,data_start=1) 
    122121ff=res.field1 
     
    133132;; third leg 
    134133 
    135 fi=tropflux_id_env+"met_data_coare_expt_1993_p1.txt" 
     134fi=project_id_env+"met_data_coare_expt_1993_p1.txt" 
    136135res=read_ascii(fi,data_start=1) 
    137136ff=res.field1 
     
    148147;; fourth leg 
    149148 
    150 fi=tropflux_id_env+"met_data_coare_expt_1993_p2.txt" 
     149fi=project_id_env+"met_data_coare_expt_1993_p2.txt" 
    151150res=read_ascii(fi,data_start=1) 
    152151ff=res.field1 
     
    171170st4=19930128 & en4=19930216 
    172171 
    173 file=tropflux_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
     172file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    174173initncdf, file 
    175174swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 
     
    178177swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy", box=box,/nan) & swr4=reform(swr4) 
    179178 
    180 file=tropflux_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
     179file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    181180initncdf, file 
    182181lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 
     
    185184lwr4=read_ncdf('lwr',st4-1,en4,file=file,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy", box=box,/nan) & lwr4=reform(lwr4) 
    186185 
    187 file=tropflux_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
     186file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    188187initncdf, file 
    189188lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 
     
    192191lhf4=-1*read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy", box=box,/nan) & lhf4=reform(lhf4) 
    193192 
    194 file=tropflux_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
     193file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    195194initncdf, file 
    196195shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 
     
    208207net1=0 & net2=0 & net3=0 & net4=0 
    209208 
    210 file=tropflux_id_env+"TropFlux_19890101_20091231.nc" 
     209file=project_id_env+"TropFlux_19890101_20091231.nc" 
    211210initncdf, file 
    212211swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 
     
    233232net3=swr3+lwr3+lhf3+shf3 & net4=swr4+lwr4+lhf4+shf4 
    234233 
    235 file=tropflux_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
     234file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    236235initncdf, file 
    237236olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) 
     
    251250net1=0 & net2=0 & net3=0 & net4=0 & neto_1=0 & neto_2=0 & neto_3=0 & neto_4=0 
    252251 
    253 file=tropflux_id_env+'swr_oafluxgrid_1985_2007.nc' 
     252file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    254253initncdf, file 
    255254swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 
     
    258257swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy",/nan, box=box) & swr4=reform(swr4) 
    259258 
    260 file=tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc' 
     259file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    261260initncdf, file 
    262261lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 
     
    265264lwr4=-1*read_ncdf("lwr", st4, en4, file=file,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) & lwr4=reform(lwr4) 
    266265 
    267 file=tropflux_id_env+'lhf_oafluxgrid_1985_2009.nc' 
     266file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    268267initncdf, file 
    269268lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 
     
    272271lhf4=-1*read_ncdf("lhf", st4, en4, file=file,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) & lhf4=reform(lhf4) 
    273272 
    274 file=tropflux_id_env+'shf_oafluxgrid_1985_2009.nc' 
     273file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    275274initncdf, file 
    276275shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 
     
    289288net1=0 & net2=0 & net3=0 & net4=0 
    290289 
    291 fi=tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
     290fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    292291initncdf, fi 
    293292swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 
     
    296295swr4=read_ncdf("swr", st4, en4, file=fi,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy",/nan, box=box) & swr4=reform(swr4) 
    297296 
    298 fi=tropflux_id_env+"NCEP2_flux_19890101_20090729.nc" 
     297fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 
    299298initncdf, fi 
    300299lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 
     
    303302lwr4=-1*read_ncdf("lwr", st4, en4, file=fi,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) & lwr4=reform(lwr4) 
    304303 
    305 fi=tropflux_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
     304fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    306305initncdf, fi 
    307306lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 
     
    310309lhf4=-1*read_ncdf("lhf", st4, en4, file=fi,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) & lhf4=reform(lhf4) 
    311310 
    312 fi=tropflux_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
     311fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    313312initncdf, fi 
    314313shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 
     
    327326net1=0 & net2=0 & net3=0 & net4=0 
    328327 
    329 file=tropflux_id_env+"ncep1_flux_19890101_20091231.nc" 
     328file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    330329initncdf, file 
    331330swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 
     
    427426 
    428427closeps 
    429 fig=tropflux_od_env+"coare_validation_net_1992_93_all_v11.ps" 
     428fig=project_od_env+"coare_validation_net_1992_93_all_v11.ps" 
    430429spawn, 'mv '+psdir+'idl.ps '+fig 
    431430spawn, 'gv '+fig 
  • trunk/src/paper01/fig14/stratus_validation_net_2001_2002_all_v10.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    3636; 
    3737;       stratus_validation_net_2001_2002_all_v10 [shape=box, 
     
    4747; ======== 
    4848; 
    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` 
    5252; 
    5353; :ref:`statistics.pro` 
     
    5858; :: 
    5959; 
    60 ;  IDL> @tropflux_init 
    6160;  IDL> stratus_validation_net_2001_2002_all_v10 
    6261; 
     
    9392pro stratus_validation_net_2001_2002_all_v10 
    9493@cm_general 
    95 @cm_tropflux 
     94@cm_project 
    9695reinitplt, /z,/invert 
    9796key_portrait = 1 
     
    107106;; first leg 
    108107 
    109 fi=tropflux_id_env+"met_data_stratus_2001_2002.txt" 
     108fi=project_id_env+"met_data_stratus_2001_2002.txt" 
    110109res=read_ascii(fi,data_start=1) 
    111110ff=res.field1 
     
    122121st1=20011019 & en1=20021022 
    123122 
    124 file=tropflux_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
     123file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    125124initncdf, file 
    126125swr=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' 
     126file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    128127initncdf, file 
    129128lwr=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' 
     129file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    131130initncdf, file 
    132131shf=-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' 
     132file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    134133initncdf, file 
    135134lhf=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf=reform(lhf) 
     
    140139swr=0 & lwr=0 & lhf=0 & shf=0 
    141140 
    142 file=tropflux_id_env+"TropFlux_19890101_20091231.nc" 
     141file=project_id_env+"TropFlux_19890101_20091231.nc" 
    143142initncdf, file 
    144143swr=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr=grossemoyenne(swr, "xy",/nan, box=box) & swr=reform(swr) 
     
    147146lhf=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf=grossemoyenne(lhf, "xy",/nan, box=box) & lhf=reform(lhf) 
    148147 
    149 file=tropflux_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
     148file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    150149initncdf, file 
    151150olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) 
     
    156155swr=0 & lwr=0 & lhf=0 & shf=0 & olr1=0 
    157156 
    158 file=tropflux_id_env+'swr_oafluxgrid_1985_2007.nc' 
     157file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    159158initncdf, file 
    160159swr=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr=grossemoyenne(swr, "xy",/nan, box=box) & swr=reform(swr) 
    161160 
    162 file=tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc' 
     161file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    163162initncdf, file 
    164163lwr=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr=-1*reform(lwr) 
    165164 
    166 file=tropflux_id_env+'lhf_oafluxgrid_1985_2009.nc' 
     165file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    167166initncdf, file 
    168167lhf=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf=-1*reform(lhf) 
    169168 
    170 file=tropflux_id_env+'shf_oafluxgrid_1985_2009.nc' 
     169file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    171170initncdf, file 
    172171shf=read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf=-1*reform(shf) 
     
    176175swr=0 & lwr=0 & lhf=0 & shf=0 
    177176 
    178 fi=tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
     177fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    179178initncdf, fi 
    180179swr=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr=grossemoyenne(swr, "xy",/nan, box=box) & swr=reform(swr) 
    181180 
    182 fi=tropflux_id_env+"NCEP2_flux_19890101_20090729.nc" 
     181fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 
    183182initncdf, fi 
    184183lwr=read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr=grossemoyenne(lwr, "xy",/nan, box=box) & lwr=reform(lwr) 
    185184lwr=-1*lwr 
    186185 
    187 fi=tropflux_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
     186fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    188187initncdf, fi 
    189188lhf=read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf=-1*reform(lhf) 
    190189 
    191 fi=tropflux_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
     190fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    192191initncdf, fi 
    193192shf=read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf=-1*reform(shf) 
     
    198197swr=0 & lwr=0 & lhf=0 & shf=0 
    199198 
    200 file=tropflux_id_env+"ncep1_flux_19890101_20091231.nc" 
     199file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    201200initncdf, file 
    202201swr=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr=grossemoyenne(swr, "xy",/nan, box=box) & swr=reform(swr) 
     
    274273 
    275274closeps 
    276 fig=tropflux_od_env+"stratus_validation_net_2001_2002_all_v11.ps" 
     275fig=project_od_env+"stratus_validation_net_2001_2002_all_v11.ps" 
    277276spawn, 'mv '+psdir+'idl.ps '+fig 
    278277spawn, 'gv '+fig 
  • trunk/src/paper01/fig14/subdctn_cs_validation_net_1991_93_all_v10.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    3636; 
    3737;       subdctn_cs_validation_net_1991_93_all_v10 [shape=box, 
     
    4747; ======== 
    4848; 
    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` 
    5252; 
    5353; :ref:`statistics.pro` 
     
    5858; :: 
    5959; 
    60 ;  IDL> @tropflux_init 
    6160;  IDL> subdctn_cs_validation_net_1991_93_all_v10 
    6261; 
     
    9190pro subdctn_cs_validation_net_1991_93_all_v10 
    9291@cm_general 
    93 @cm_tropflux 
     92@cm_project 
    9493reinitplt, /z,/invert 
    9594key_portrait = 1 
     
    104103;; first leg 
    105104 
    106 fi=tropflux_id_env+"met_data_subduct_cs_91.txt" 
     105fi=project_id_env+"met_data_subduct_cs_91.txt" 
    107106res=read_ascii(fi,data_start=1) 
    108107ff=res.field1 
     
    117116;; second leg 
    118117 
    119 fi=tropflux_id_env+"met_data_subduct_cs_92.txt" 
     118fi=project_id_env+"met_data_subduct_cs_92.txt" 
    120119res=read_ascii(fi,data_start=1) 
    121120ff=res.field1 
     
    128127;; second leg 
    129128 
    130 fi=tropflux_id_env+"met_data_subduct_cs_93.txt" 
     129fi=project_id_env+"met_data_subduct_cs_93.txt" 
    131130res=read_ascii(fi,data_start=1) 
    132131ff=res.field1 
     
    144143st1=19910623 & en1=19930616 
    145144 
    146 file=tropflux_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
     145file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    147146initncdf, file 
    148147swr1=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' 
     148file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    150149initncdf, file 
    151150lhf1=-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' 
     151file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    153152initncdf, file 
    154153shf1=-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' 
     154file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    156155initncdf, file 
    157156lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 
     
    161160help, era 
    162161 
    163 file=tropflux_id_env+"TropFlux_19890101_20091231.nc" 
     162file=project_id_env+"TropFlux_19890101_20091231.nc" 
    164163initncdf, file 
    165164lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 
     
    169168trop=swr1+lwr1+lhf1+shf1 
    170169 
    171 file=tropflux_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
     170file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    172171initncdf, file 
    173172olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) 
     
    177176swr1=0 & lwr1=0 & shf1=0 & lhf1=0 & olr1=0 
    178177 
    179 file=tropflux_id_env+'swr_oafluxgrid_1985_2007.nc' 
     178file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    180179initncdf, file 
    181180swr1=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' 
     181file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    183182initncdf, file 
    184183lwr1=-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' 
     184file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    186185initncdf, file 
    187186lhf1=-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' 
     187file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    189188initncdf, file 
    190189shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 
     
    194193swr1=0 & lwr1=0 & shf1=0 & lhf1=0 & olr1=0 
    195194 
    196 fi=tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
     195fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    197196initncdf, fi 
    198197swr1=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" 
     198fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 
    200199initncdf, fi 
    201200lwr1=-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' 
     201fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    203202initncdf, fi 
    204203lhf1=-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' 
     204fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    206205initncdf, fi 
    207206shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 
     
    211210swr1=0 & lwr1=0 & shf1=0 & lhf1=0 & olr1=0 
    212211 
    213 file=tropflux_id_env+"ncep1_flux_19890101_20091231.nc" 
     212file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    214213initncdf, file 
    215214 
     
    287286 
    288287closeps 
    289 fig=tropflux_od_env+"subdctn_cs_validation_net_1991_93_all_v10.ps" 
     288fig=project_od_env+"subdctn_cs_validation_net_1991_93_all_v10.ps" 
    290289spawn, 'mv '+psdir+'idl.ps '+fig 
    291290spawn, 'gv '+fig 
  • trunk/src/paper01/fig14/subdctn_ses_validation_net_1991_93_all_v10.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    3636; 
    3737;       subdctn_ses_validation_net_1991_93_all_v10 [shape=box, 
     
    4747; ======== 
    4848; 
    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` 
    5252; 
    5353; :ref:`statistics.pro` 
     
    5858; :: 
    5959; 
    60 ;  IDL> @tropflux_init 
    6160;  IDL> subdctn_ses_validation_net_1991_93_all_v10 
    6261; 
     
    9190pro subdctn_ses_validation_net_1991_93_all_v10 
    9291@cm_general 
    93 @cm_tropflux 
     92@cm_project 
    9493reinitplt, /z,/invert 
    9594key_portrait = 1 
     
    106105;; second leg 
    107106 
    108 fi=tropflux_id_env+"met_data_subduct_ses_92.txt" 
     107fi=project_id_env+"met_data_subduct_ses_92.txt" 
    109108res=read_ascii(fi,data_start=1) 
    110109ff=res.field1 
     
    118117;; second leg 
    119118 
    120 fi=tropflux_id_env+"met_data_subduct_ses_93.txt" 
     119fi=project_id_env+"met_data_subduct_ses_93.txt" 
    121120res=read_ascii(fi,data_start=1) 
    122121ff=res.field1 
     
    136135st2=19920921 & en2=19930618 
    137136 
    138 file=tropflux_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
     137file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    139138initncdf, file 
    140139swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 
    141140swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy", box=box,/nan) & swr2=reform(swr2) 
    142141 
    143 file=tropflux_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
     142file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    144143initncdf, file 
    145144lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 
    146145lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) & lhf2=reform(lhf2) 
    147146 
    148 file=tropflux_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
     147file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    149148initncdf, file 
    150149shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 
    151150shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy", box=box,/nan) & shf2=reform(shf2) 
    152151 
    153 file=tropflux_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
     152file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    154153initncdf, file 
    155154lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 
     
    164163net1=0. & net2=0. 
    165164 
    166 file=tropflux_id_env+"TropFlux_19890101_20091231.nc" 
     165file=project_id_env+"TropFlux_19890101_20091231.nc" 
    167166initncdf, file 
    168167lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 
     
    175174swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy", box=box,/nan) & swr2=reform(swr2) 
    176175 
    177 file=tropflux_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
     176file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    178177initncdf, file 
    179178olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) 
     
    185184help, trop, olr 
    186185 
    187 file=tropflux_id_env+'swr_oafluxgrid_1985_2007.nc' 
     186file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    188187initncdf, file 
    189188swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 
    190189swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy",/nan, box=box) & swr2=reform(swr2) 
    191190 
    192 file=tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc' 
     191file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    193192initncdf, file 
    194193lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 
    195194lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) & lwr2=reform(lwr2) 
    196195 
    197 file=tropflux_id_env+'lhf_oafluxgrid_1985_2009.nc' 
     196file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    198197initncdf, file 
    199198lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 
    200199lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) & lhf2=reform(lhf2) 
    201200 
    202 file=tropflux_id_env+'shf_oafluxgrid_1985_2009.nc' 
     201file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    203202initncdf, file 
    204203shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 
     
    209208help, oaf 
    210209 
    211 fi=tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
     210fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    212211initncdf, fi 
    213212swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 
    214213swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy",/nan, box=box) & swr2=reform(swr2) 
    215214 
    216 fi=tropflux_id_env+"NCEP2_flux_19890101_20090729.nc" 
     215fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 
    217216initncdf, fi 
    218217lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 
    219218lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) & lwr2=reform(lwr2) 
    220219 
    221 fi=tropflux_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
     220fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    222221initncdf, fi 
    223222lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 
    224223lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) & lhf2=reform(lhf2) 
    225224 
    226 fi=tropflux_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
     225fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    227226initncdf, fi 
    228227shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 
     
    233232help, nce2 
    234233 
    235 file=tropflux_id_env+"ncep1_flux_19890101_20091231.nc" 
     234file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    236235initncdf, file 
    237236lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 
     
    314313 
    315314closeps 
    316 fig=tropflux_od_env+"subdctn_ses_validation_net_1991_93_all_v10.ps" 
     315fig=project_od_env+"subdctn_ses_validation_net_1991_93_all_v10.ps" 
    317316spawn, 'mv '+psdir+'idl.ps '+fig 
    318317spawn, 'gv '+fig 
  • trunk/src/paper01/fig14/subdctn_sws_validation_net_1991_93_all_v10.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    3636; 
    3737;       subdctn_sws_validation_net_1991_93_all_v10 [shape=box, 
     
    4747; ======== 
    4848; 
    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` 
    5252; 
    5353; :ref:`statistics.pro` 
     
    5858; :: 
    5959; 
    60 ;  IDL> @tropflux_init 
    6160;  IDL> subdctn_sws_validation_net_1991_93_all_v10 
    6261; 
     
    9190pro subdctn_sws_validation_net_1991_93_all_v10 
    9291@cm_general 
    93 @cm_tropflux 
     92@cm_project 
    9493reinitplt, /z,/invert 
    9594key_portrait = 1 
     
    104103;; first leg 
    105104 
    106 fi=tropflux_id_env+"met_data_subduct_sws_91_v1.txt" 
     105fi=project_id_env+"met_data_subduct_sws_91_v1.txt" 
    107106res=read_ascii(fi,data_start=1) 
    108107ff=res.field1 
     
    117116;; second leg 
    118117 
    119 fi=tropflux_id_env+"met_data_subduct_sws_92_v1.txt" 
     118fi=project_id_env+"met_data_subduct_sws_92_v1.txt" 
    120119res=read_ascii(fi,data_start=1) 
    121120ff=res.field1 
     
    129128;; second leg 
    130129 
    131 fi=tropflux_id_env+"met_data_subduct_sws_93_v1.txt" 
     130fi=project_id_env+"met_data_subduct_sws_93_v1.txt" 
    132131res=read_ascii(fi,data_start=1) 
    133132ff=res.field1 
     
    147146st4=19930101 & en4=19930521 
    148147 
    149 file=tropflux_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
     148file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    150149initncdf, file 
    151150swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 
     
    154153swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy", box=box,/nan) & swr4=reform(swr4) 
    155154 
    156 file=tropflux_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
     155file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    157156initncdf, file 
    158157lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 
     
    161160lhf4=-1*read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy", box=box,/nan) & lhf4=reform(lhf4) 
    162161 
    163 file=tropflux_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
     162file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    164163initncdf, file 
    165164shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 
     
    168167shf4=-1*read_ncdf('shf',st4,en4,file=file,/nostr, box=box) & shf4=grossemoyenne(shf4, "xy", box=box,/nan) & shf4=reform(shf4) 
    169168 
    170 file=tropflux_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
     169file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    171170initncdf, file 
    172171lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 
     
    184183help, era 
    185184 
    186 file=tropflux_id_env+"TropFlux_19890101_20091231.nc" 
     185file=project_id_env+"TropFlux_19890101_20091231.nc" 
    187186initncdf, file 
    188187lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 
     
    206205swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy", box=box,/nan) & swr4=reform(swr4) 
    207206 
    208 file=tropflux_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
     207file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    209208initncdf, file 
    210209olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) 
     
    227226help, trop, olr 
    228227 
    229 file=tropflux_id_env+'swr_oafluxgrid_1985_2007.nc' 
     228file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    230229initncdf, file 
    231230swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 
     
    234233swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy",/nan, box=box) & swr4=reform(swr4) 
    235234 
    236 file=tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc' 
     235file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    237236initncdf, file 
    238237lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 
     
    241240lwr4=-1*read_ncdf("lwr", st4, en4, file=file,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) & lwr4=reform(lwr4) 
    242241 
    243 file=tropflux_id_env+'lhf_oafluxgrid_1985_2009.nc' 
     242file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    244243initncdf, file 
    245244lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 
     
    248247lhf4=-1*read_ncdf("lhf", st4, en4, file=file,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) & lhf4=reform(lhf4) 
    249248 
    250 file=tropflux_id_env+'shf_oafluxgrid_1985_2009.nc' 
     249file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    251250initncdf, file 
    252251shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 
     
    267266help, oaf 
    268267 
    269 fi=tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
     268fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    270269initncdf, fi 
    271270swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 
     
    274273swr4=read_ncdf("swr", st4, en4, file=fi,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy",/nan, box=box) & swr4=reform(swr4) 
    275274 
    276 fi=tropflux_id_env+'"NCEP2_flux_19890101_20090729.nc" 
     275fi=project_id_env+'"NCEP2_flux_19890101_20090729.nc" 
    277276initncdf, fi 
    278277lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 
     
    281280lwr4=-1*read_ncdf("lwr", st4, en4, file=fi,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) & lwr4=reform(lwr4) 
    282281 
    283 fi=tropflux_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
     282fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    284283initncdf, fi 
    285284lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 
     
    288287lhf4=-1*read_ncdf("lhf", st4, en4, file=fi,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) & lhf4=reform(lhf4) 
    289288 
    290 fi=tropflux_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
     289fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    291290initncdf, fi 
    292291shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 
     
    306305net1=0. & net2=0. & net3=0. & net4=0 
    307306 
    308 file=tropflux_id_env+"ncep1_flux_19890101_20091231.nc" 
     307file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    309308initncdf, file 
    310309 
     
    403402 
    404403closeps 
    405 fig=tropflux_od_env+"subdctn_sws_validation_net_1991_93_all_v10.ps" 
     404fig=project_od_env+"subdctn_sws_validation_net_1991_93_all_v10.ps" 
    406405spawn, 'mv '+psdir+'idl.ps '+fig 
    407406spawn, 'gv '+fig 
  • trunk/src/paper01/fig14/whots_validation_net_2004_2007_all_v10.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    3636; 
    3737;       whots_validation_net_2004_2007_all_v10 [shape=box, 
     
    4747; ======== 
    4848; 
    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` 
    5252; 
    5353; :ref:`statistics.pro` 
     
    5858; :: 
    5959; 
    60 ;  IDL> @tropflux_init 
    6160;  IDL> whots_validation_net_2004_2007_all_v10 
    6261; 
     
    9190pro whots_validation_net_2004_2007_all_v10 
    9291@cm_general 
    93 @cm_tropflux 
     92@cm_project 
    9493reinitplt, /z,/invert 
    9594key_portrait = 1 
     
    105104;; first leg 
    106105 
    107 fi=tropflux_id_env+"met_data_WHOTS_2004_2005.txt" 
     106fi=project_id_env+"met_data_WHOTS_2004_2005.txt" 
    108107res=read_ascii(fi,data_start=1) 
    109108ff=res.field1 
     
    114113net_04=[lhf_04+shf_04+swr_04+lwr_04] 
    115114 
    116 fi=tropflux_id_env+"met_data_WHOTS_2005_2006.txt" 
     115fi=project_id_env+"met_data_WHOTS_2005_2006.txt" 
    117116res=read_ascii(fi,data_start=1) 
    118117ff=res.field1 
     
    123122net_05=[lhf_05+shf_05+swr_05+lwr_05] 
    124123 
    125 fi=tropflux_id_env+"met_data_WHOTS_2006_2007.txt" 
     124fi=project_id_env+"met_data_WHOTS_2006_2007.txt" 
    126125res=read_ascii(fi,data_start=1) 
    127126ff=res.field1 
     
    144143;st5=20080605 & en5=20090715 
    145144 
    146 file=tropflux_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
     145file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    147146initncdf, file 
    148147lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 
     
    150149lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) & lhf3=reform(lhf3) 
    151150 
    152 file=tropflux_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
     151file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    153152initncdf, file 
    154153shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 
     
    156155shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy", box=box,/nan) & shf3=reform(shf3) 
    157156 
    158 file=tropflux_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
     157file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    159158initncdf, file 
    160159lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 
     
    162161lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) & lwr3=reform(lwr3) 
    163162 
    164 file=tropflux_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
     163file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    165164initncdf, file 
    166165swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 
     
    177176help, era 
    178177 
    179 file=tropflux_id_env+"TropFlux_19890101_20091231.nc" 
     178file=project_id_env+"TropFlux_19890101_20091231.nc" 
    180179initncdf, file 
    181180 
     
    196195swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy", box=box,/nan) & swr3=reform(swr3) 
    197196 
    198 file=tropflux_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
     197file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    199198initncdf, file 
    200199olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) 
     
    216215help, trop, olr 
    217216 
    218 file=tropflux_id_env+'swr_oafluxgrid_1985_2007.nc' 
     217file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    219218initncdf, file 
    220219swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 
     
    222221swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy",/nan, box=box) & swr3=reform(swr3) 
    223222 
    224 file=tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc' 
     223file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    225224initncdf, file 
    226225lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 
     
    228227lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) & lwr3=reform(lwr3) 
    229228 
    230 file=tropflux_id_env+'lhf_oafluxgrid_1985_2009.nc' 
     229file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    231230initncdf, file 
    232231lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 
     
    234233lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) & lhf3=reform(lhf3) 
    235234 
    236 file=tropflux_id_env+'shf_oafluxgrid_1985_2009.nc' 
     235file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    237236initncdf, file 
    238237shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 
     
    250249help, oaf 
    251250 
    252 fi=tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
     251fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    253252initncdf, fi 
    254253swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 
     
    256255swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy",/nan, box=box) & swr3=reform(swr3) 
    257256 
    258 fi=tropflux_id_env+'NCEP2_flux_19890101_20090729.nc" 
     257fi=project_id_env+'NCEP2_flux_19890101_20090729.nc" 
    259258initncdf, fi 
    260259lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 
     
    262261lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) & lwr3=reform(lwr3) 
    263262 
    264 fi=tropflux_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
     263fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    265264initncdf, fi 
    266265lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 
     
    268267lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) & lhf3=reform(lhf3) 
    269268 
    270 fi=tropflux_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
     269fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    271270initncdf, fi 
    272271shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 
     
    285284net1=0. & net2=0. & net3=0. 
    286285 
    287 file=tropflux_id_env+"ncep1_flux_19890101_20091231.nc" 
     286file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    288287initncdf, file 
    289288 
     
    381380 
    382381closeps 
    383 fig=tropflux_od_env+"WHOTS_validation_net_2004_2007_all_v10.ps" 
     382fig=project_od_env+"WHOTS_validation_net_2004_2007_all_v10.ps" 
    384383spawn, 'mv '+psdir+'idl.ps '+fig 
    385384spawn, 'gv '+fig 
  • trunk/src/paper01/fig15/fig15_timeseries_mjo.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    2828; 
    2929;       fig15_timeseries_mjo [shape=box, 
     
    3939; ======== 
    4040; 
    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` 
    4444; 
    4545; EXAMPLES 
     
    4848; :: 
    4949; 
    50 ;  IDL> @tropflux_init 
    5150;  IDL> fig15_timeseries_mjo 
    5251; 
     
    8281pro fig15_timeseries_mjo 
    8382@cm_general 
    84 @cm_tropflux 
     83@cm_project 
    8584reinitplt, /z,/invert 
    8685key_portrait = 1 
     
    9190box=[50,80,-12,-5] 
    9291 
    93 file_trop=tropflux_id_env+'TropFlux_19890101_20091231.nc' 
     92file_trop=project_id_env+'TropFlux_19890101_20091231.nc' 
    9493initncdf, file_trop 
    9594shf_trop=read_ncdf("shf", date1, date2, box=box, file=file_trop,/nostr) 
     
    101100trop=grossemoyenne(trop, "xy",/nan) 
    102101 
    103 file_ncep=tropflux_id_env+'NCEP2_flux_19890101_20090729.nc' 
     102file_ncep=project_id_env+'NCEP2_flux_19890101_20090729.nc' 
    104103initncdf, file_ncep 
    105104shf=read_ncdf("shf", date1, date2, box=box, file=file_ncep,/nostr) 
     
    112111help, nce2 
    113112 
    114 file_erai=tropflux_id_env+'erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc' 
     113file_erai=project_id_env+'erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc' 
    115114initncdf, file_erai 
    116115shf=read_ncdf("shf", date1, date2, box=box, file=file_erai,/nostr) 
     
    122121help, era 
    123122 
    124 file=tropflux_id_env+'fluxe_ncep1_19890101_20091231.nc' 
     123file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 
    125124initncdf, file 
    126125lwr=read_ncdf("lwr", date1, date2, box=box, file=file,/nostr) 
     
    133132help, nce 
    134133 
    135 file_oaf=tropflux_id_env+'shf_oafluxgrid_1985_2008.nc' 
     134file_oaf=project_id_env+'shf_oafluxgrid_1985_2008.nc' 
    136135initncdf, file_oaf 
    137136shf=read_ncdf("shf", date1, date2, box=box, file=file_oaf,/nostr) 
    138 file_oaf=tropflux_id_env+'lhf_oafluxgrid_1985_2008.nc' 
     137file_oaf=project_id_env+'lhf_oafluxgrid_1985_2008.nc' 
    139138initncdf, file_oaf 
    140139lhf=read_ncdf("lhf", date1, date2, box=box, file=file_oaf,/nostr) 
    141 file_oaf=tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc' 
     140file_oaf=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    142141initncdf, file_oaf 
    143142lwr=read_ncdf("lwr", date1, date2, box=box, file=file_oaf,/nostr) 
    144 file_oaf=tropflux_id_env+'swr_oafluxgrid_1985_2007.nc' 
     143file_oaf=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    145144initncdf, file_oaf 
    146145swr=read_ncdf("swr", date1, date2, box=box, file=file_oaf,/nostr) & swr_trop=swr 
     
    149148oafl=grossemoyenne(oafl, "xy",/nan) 
    150149 
    151 file=tropflux_id_env+"olr_oafluxgrid_30n30s_19890101_20091231.nc" 
     150file=project_id_env+"olr_oafluxgrid_30n30s_19890101_20091231.nc" 
    152151initncdf, file 
    153152olr=read_ncdf("olr", date1-1, date2, box=box, file=file,/nostr) 
     
    208207 
    209208closeps 
    210 fig=tropflux_od_env+'fig15_timeseries_mjo.ps' 
     209fig=project_od_env+'fig15_timeseries_mjo.ps' 
    211210spawn, 'mv '+psdir+'idl.ps '+fig 
    212211spawn, 'gv '+fig 
  • trunk/src/paper01/fig16/fig16_timeseries_nino3.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    2020; 
    2121;       fig16_timeseries_nino3 [shape=box, 
     
    3131; ======== 
    3232; 
    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` 
    3636; 
    3737; :func:`x_site_location` 
     
    4343; :: 
    4444; 
    45 ;  IDL> @tropflux_init 
    4645;  IDL> fig16_timeseries_nino3 
    4746; 
     
    7776pro fig16_timeseries_nino3 
    7877@cm_general 
    79 @cm_tropflux 
     78@cm_project 
    8079reinitplt, /z,/invert 
    8180key_portrait = 1 
     
    8584box=[240,330,-5,5] 
    8685 
    87 file_trop=tropflux_id_env+'TropFlux_sst_19890101_20091231.nc' 
     86file_trop=project_id_env+'TropFlux_sst_19890101_20091231.nc' 
    8887initncdf, file_trop 
    8988sst=read_ncdf("sst", date1, date2, box=box, file=file_trop,/nostr) 
     
    200199 
    201200closeps 
    202 fig=tropflux_od_env+'fig16_timeseries_nino3.ps' 
     201fig=project_od_env+'fig16_timeseries_nino3.ps' 
    203202spawn, 'mv '+psdir+'idl.ps '+fig 
    204203spawn, 'gv '+fig 
  • trunk/src/paper01/fig2/fig2_timeline_diagram.pro

    r47 r50  
    1616;       ] 
    1717; 
    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"]; 
    2121;       fig2_timeline_diagram [shape=box, 
    2222;       fontname=Courier, 
     
    2525;       label="${TROPFLUX}/src/paper01/fig2/fig2_timeline_diagram.pro"]; 
    2626; 
    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"]; 
    2828; 
    2929;       {qlat lwnet swnet} -> {fig2_timeline_diagram} -> {figure} 
     
    3333; ======== 
    3434; 
    35 ; :ref:`tropflux_profile.sh` 
    36 ; :ref:`tropflux_init.pro` 
     35; :ref:`project_profile.sh` 
     36; :ref:`project_init.pro` 
    3737; 
    3838; :ref:`read_lh.pro` 
     
    4848; :: 
    4949; 
    50 ;  IDL> @tropflux_init 
    5150;  IDL> fig2_timeline_diagram 
    5251; 
     
    8887pro fig2_timeline_diagram 
    8988 
    90 @cm_tropflux 
     89@cm_project 
    9190@cm_general 
    9291 
     
    210209pltt, no_obs_lh, "t",/ov1d 
    211210closeps 
    212 fig=tropflux_od_env + 'fig2_timeline_diagram.ps' 
     211fig=project_od_env + 'fig2_timeline_diagram.ps' 
    213212spawn, 'mv '+psdir+'idl.ps '+fig 
    214213spawn, 'gv '+fig 
  • trunk/src/paper01/fig2/read_lh.pro

    r44 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    17 ;       qlat [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/qlat*_dy.cdf"]; 
     17;       qlat [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/qlat*_dy.cdf"]; 
    1818; 
    1919;       lh [shape=tab,fontname=Courier,label="lh"] 
     
    3131; ======== 
    3232; 
    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` 
    3636; 
    3737; :func:`time_lec` 
     
    4444; :: 
    4545; 
    46 ;  IDL> @tropflux_init 
    4746;  IDL> csite='8s67e' 
    4847;  IDL> date1=19890101L 
     
    7473pro read_lh, csite, date1, date2, nsmooth, lh 
    7574; 
    76 @cm_tropflux 
     75@cm_project 
    7776 
    7877;; DEFINE THE OUTPUT TIME AXIS 
     
    9190 
    9291;;LHF 
    93 fi=tropflux_id_env+'qlat'+csite+'_dy.cdf' 
     92fi=project_id_env+'qlat'+csite+'_dy.cdf' 
    9493f=file_test(fi) 
    9594lh=fltarr(jpt)+!values.f_nan 
  • trunk/src/paper01/fig2/read_lw.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    17 ;       lwnet [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/lwnet*_dy.cdf"]; 
     17;       lwnet [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lwnet*_dy.cdf"]; 
    1818;       lw [shape=tab,fontname=Courier,label="lw"] 
    1919; 
     
    3131; ======== 
    3232; 
    33 ; :ref:`tropflux_profile.sh` 
     33; :ref:`project_profile.sh` 
     34; :ref:`project_init.pro` 
    3435; 
    3536; :func:`time_lec` 
     
    4243; :: 
    4344; 
    44 ;  IDL> @tropflux_init 
    4545;  IDL> csite='8s67e' 
    4646;  IDL> date1=19890101L 
     
    7575pro read_lw, csite, date1, date2, box, lw 
    7676; 
    77 @cm_tropflux 
     77@cm_project 
    7878 
    7979;; DEFINE THE OUTPUT TIME AXIS 
     
    9191 
    9292;; LWR 
    93 fi=tropflux_id_env+'lwnet'+csite+'_dy.cdf' 
     93fi=project_id_env+'lwnet'+csite+'_dy.cdf' 
    9494f=file_test(fi) 
    9595lw=fltarr(jpt)+!values.f_nan 
  • trunk/src/paper01/fig2/read_sw.pro

    r47 r50  
    1616;       rankdir="LR", 
    1717;       ] 
    18 ;       swnet [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/swnet*_dy.cdf"]; 
     18;       swnet [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swnet*_dy.cdf"]; 
    1919; 
    2020;       sw [shape=tab,fontname=Courier,label="sw"] 
     
    3232; ======== 
    3333; 
    34 ; :ref:`tropflux_profile.sh` 
     34; :ref:`project_profile.sh` 
    3535; 
    3636; :func:`time_lec` 
     
    4343; :: 
    4444; 
    45 ;  IDL> @tropflux_init 
    4645;  IDL> csite='8s67e' 
    4746;  IDL> date1=19890101L 
     
    7877pro read_sw, csite, date1, date2, box, sw 
    7978; 
    80 @cm_tropflux 
     79@cm_project 
    8180; 
    8281;; DEFINE THE OUTPUT TIME AXIS 
     
    9493 
    9594;; SWR 
    96 fi=tropflux_id_env+'swnet'+csite+'_dy.cdf' 
     95fi=project_id_env+'swnet'+csite+'_dy.cdf' 
    9796f=file_test(fi) 
    9897sw=fltarr(jpt)+!values.f_nan    ;; swr 
  • trunk/src/paper01/fig3/air_validation_scatter_2000_2009_v50.pro

    r46 r50  
    1717;       ] 
    1818; 
    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"]; 
    3636; 
    3737;       air_validation_scatter_2000_2009_v50 [shape=box, 
     
    4848; ======== 
    4949; 
    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` 
    5353; 
    5454; :func:`x_site_location` 
     
    6363; :: 
    6464; 
    65 ;  IDL> @tropflux_init 
    6665;  IDL> date1=20001001L 
    6766;  IDL> date2=20091231L 
     
    102101pro air_validation_scatter_2000_2009_v50, date1, date2 
    103102 
    104 @cm_tropflux 
     103@cm_project 
    105104 
    106105reinitplt, /z,/invert 
     
    129128close,/all 
    130129 
    131 fi_air_erai=tropflux_id_env+'air_2000_2009_erai_v50.txt' 
     130fi_air_erai=project_id_env+'air_2000_2009_erai_v50.txt' 
    132131openw,1,fi_air_erai 
    133 fi_air_trop=tropflux_id_env+'air_2000_2009_trop_v50.txt' 
     132fi_air_trop=project_id_env+'air_2000_2009_trop_v50.txt' 
    134133openw,2,fi_air_trop 
    135 fi_air_oaflx=tropflux_id_env+'air_2000_2009_oaflx_v50.txt' 
     134fi_air_oaflx=project_id_env+'air_2000_2009_oaflx_v50.txt' 
    136135openw,3,fi_air_oaflx 
    137 fi_air_ncep2=tropflux_id_env+'air_2000_2009_ncep2_v50.txt' 
     136fi_air_ncep2=project_id_env+'air_2000_2009_ncep2_v50.txt' 
    138137openw,4,fi_air_ncep2 
    139 fi_air_ncep1=tropflux_id_env+'air_2000_2009_ncep1_v50.txt' 
     138fi_air_ncep1=project_id_env+'air_2000_2009_ncep1_v50.txt' 
    140139openw,5,fi_air_ncep1 
    141140 
     
    149148;; first reading the whole ERAI uncorrected and corrected data 
    150149 
    151 file=tropflux_id_env+'erai_t2m_19890101_20091231_oafluxgrid.nc' 
     150file=project_id_env+'erai_t2m_19890101_20091231_oafluxgrid.nc' 
    152151initncdf, file 
    153152unc=read_ncdf('t2m',date1,date2,file=file,/nostr) & unc=unc-273.15 
    154153help, unc 
    155154 
    156 file=tropflux_id_env+'TropFlux_t2m_19890101_20091231_v50.nc' 
     155file=project_id_env+'TropFlux_t2m_19890101_20091231_v50.nc' 
    157156initncdf, file 
    158157cor=read_ncdf('t2m',date1,date2,file=file,/nostr) & cor=cor-273.15 
    159158help, cor 
    160159 
    161 file=tropflux_id_env+'OAFlux_basic_variables_1985_2009.nc' 
     160file=project_id_env+'OAFlux_basic_variables_1985_2009.nc' 
    162161initncdf, file 
    163162oaf=read_ncdf("air", date1, date2, file=file,/nostr) 
    164163help, oaf 
    165164 
    166 fi=tropflux_id_env+'air_2m_ncep2_oafluxgrid_19890101_20091231.nc' 
     165fi=project_id_env+'air_2m_ncep2_oafluxgrid_19890101_20091231.nc' 
    167166initncdf, fi 
    168167nce=read_ncdf("air", date1-1, date2, file=fi,/nostr) 
     
    170169help, nce 
    171170 
    172 file=tropflux_id_env+'t2m_ncep1_19890101_20091231.nc' 
     171file=project_id_env+'t2m_ncep1_19890101_20091231.nc' 
    173172initncdf, file 
    174173nce1=read_ncdf("t2m", date1, date2, file=file,/nostr) 
     
    245244close,/all 
    246245 
    247 fi_air_erai=tropflux_id_env+'air_2000_2009_erai_v50.txt' 
     246fi_air_erai=project_id_env+'air_2000_2009_erai_v50.txt' 
    248247res=read_ascii(fi_air_erai,data_start=1) 
    249248ff=res.field1 
     
    271270oplot, mean_tao, yfit, color=250, thick=2 
    272271 
    273 fi_air_trop=tropflux_id_env+'air_2000_2009_trop_v50.txt' 
     272fi_air_trop=project_id_env+'air_2000_2009_trop_v50.txt' 
    274273res=read_ascii(fi_air_trop,data_start=1) 
    275274ff=res.field1 
     
    298297oplot, mean_tao, yfit, color=250, thick=2 
    299298 
    300 fi_air_oaflx=tropflux_id_env+'air_2000_2009_oaflx_v50.txt' 
     299fi_air_oaflx=project_id_env+'air_2000_2009_oaflx_v50.txt' 
    301300res=read_ascii(fi_air_oaflx,data_start=1) 
    302301ff=res.field1 
     
    327326 
    328327 
    329 fi_air_ncep=tropflux_id_env+'air_2000_2009_ncep_v50.txt' 
     328fi_air_ncep=project_id_env+'air_2000_2009_ncep_v50.txt' 
    330329res=read_ascii(fi_air_ncep,data_start=1) 
    331330ff=res.field1 
     
    354353oplot, mean_tao, yfit, color=250, thick=2 
    355354 
    356 fi_air_ncep1=tropflux_id_env+'air_2000_2009_ncep1_v50.txt' 
     355fi_air_ncep1=project_id_env+'air_2000_2009_ncep1_v50.txt' 
    357356res=read_ascii(fi_air_ncep1,data_start=1) 
    358357ff=res.field1 
     
    383382closeps 
    384383 
    385 fig=tropflux_od_env+'air_validation_scatter_2000_2009_v50.ps' 
     384fig=project_od_env+'air_validation_scatter_2000_2009_v50.ps' 
    386385spawn, 'mv '+psdir+'idl.ps '+fig 
    387386spawn, 'gv '+fig 
  • trunk/src/paper01/fig3/q2m_validation_scatter_2000_2009_v50.pro

    r47 r50  
    1717;       ] 
    1818; 
    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"]; 
    3333; 
    3434;       q2m_validation_scatter_2000_2009_v50 [shape=box, 
     
    3838;       label="${TROPFLUX}/src/paper01/fig3/q2m_validation_scatter_2000_2009_v50.pro"]; 
    3939; 
    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"]; 
    4141; 
    4242;       {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} 
     
    4747; ======== 
    4848; 
    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` 
    5252; 
    5353; :func:`x_site_location` 
     
    6262; :: 
    6363; 
    64 ;  IDL> @tropflux_init 
    6564;  IDL> date1=20001001L 
    6665;  IDL> date2=20091231L 
     
    104103pro q2m_validation_scatter_2000_2009_v50, date1, date2 
    105104 
    106 @cm_tropflux 
     105@cm_project 
    107106 
    108107reinitplt, /z,/invert 
     
    131130close,/all 
    132131 
    133 fi_q2m_erai=tropflux_id_env+'q2m_2000_2009_erai_v50.txt' 
     132fi_q2m_erai=project_id_env+'q2m_2000_2009_erai_v50.txt' 
    134133openw,1,fi_q2m_erai 
    135 fi_q2m_trop=tropflux_id_env+'q2m_2000_2009_trop_v50.txt' 
     134fi_q2m_trop=project_id_env+'q2m_2000_2009_trop_v50.txt' 
    136135openw,2,fi_q2m_trop 
    137 fi_q2m_oaflx=tropflux_id_env+'q2m_2000_2009_oaflx_v50.txt' 
     136fi_q2m_oaflx=project_id_env+'q2m_2000_2009_oaflx_v50.txt' 
    138137openw,3,fi_q2m_oaflx 
    139 fi_q2m_ncep=tropflux_id_env+'q2m_2000_2009_ncep_v50.txt' 
     138fi_q2m_ncep=project_id_env+'q2m_2000_2009_ncep_v50.txt' 
    140139openw,4,fi_q2m_ncep 
    141 fi_q2m_ncep1=tropflux_id_env+'q2m_2000_2009_ncep1_v50.txt' 
     140fi_q2m_ncep1=project_id_env+'q2m_2000_2009_ncep1_v50.txt' 
    142141openw,5,fi_q2m_ncep1 
    143142 
     
    151150;; first reading the whole ERAI uncorrected and corrected data 
    152151 
    153 file=tropflux_id_env+'erai_q2m_19890101_20091231_oafluxgrid.nc' 
     152file=project_id_env+'erai_q2m_19890101_20091231_oafluxgrid.nc' 
    154153initncdf, file 
    155154unc=read_ncdf('q2m',date1,date2,file=file,/nostr) 
    156155help, unc 
    157156 
    158 file=tropflux_id_env+'TropFlux_q2m_19890101_20091231_v20.nc' 
     157file=project_id_env+'TropFlux_q2m_19890101_20091231_v20.nc' 
    159158initncdf, file 
    160159cor=read_ncdf('q2m',date1,date2,file=file,/nostr) 
    161160help, cor 
    162161 
    163 file=tropflux_id_env+'OAFlux_basic_variables_1985_2009.nc' 
     162file=project_id_env+'OAFlux_basic_variables_1985_2009.nc' 
    164163initncdf, file 
    165164oaf=read_ncdf("sphum", date1, date2, file=file,/nostr) 
    166165help, oaf 
    167166 
    168 fi=tropflux_id_env+'sphum_ncep2_oafluxgrid_19890101_20091231.nc' 
     167fi=project_id_env+'sphum_ncep2_oafluxgrid_19890101_20091231.nc' 
    169168initncdf, fi 
    170169nce=read_ncdf("shum", date1-1, date2, file=fi,/nostr) 
     
    172171help, nce 
    173172 
    174 file=tropflux_id_env+'q2m_ncep1_19890101_20091231.nc' 
     173file=project_id_env+'q2m_ncep1_19890101_20091231.nc' 
    175174initncdf, file 
    176175nce1=read_ncdf("q2m", date1, date2, file=file,/nostr) 
     
    246245close,/all 
    247246 
    248 fi_q2m_erai=tropflux_id_env+'q2m_2000_2009_erai_v50.txt' 
     247fi_q2m_erai=project_id_env+'q2m_2000_2009_erai_v50.txt' 
    249248res=read_ascii(fi_q2m_erai,data_start=1) 
    250249ff=res.field1 
     
    272271oplot, mean_tao, yfit, color=250, thick=2 
    273272 
    274 fi_q2m_trop=tropflux_id_env+'q2m_2000_2009_trop_v50.txt' 
     273fi_q2m_trop=project_id_env+'q2m_2000_2009_trop_v50.txt' 
    275274res=read_ascii(fi_q2m_trop,data_start=1) 
    276275ff=res.field1 
     
    299298oplot, mean_tao, yfit, color=250, thick=2 
    300299 
    301 fi_q2m_oaflx=tropflux_id_env+'q2m_2000_2009_oaflx_v50.txt' 
     300fi_q2m_oaflx=project_id_env+'q2m_2000_2009_oaflx_v50.txt' 
    302301res=read_ascii(fi_q2m_oaflx,data_start=1) 
    303302ff=res.field1 
     
    327326 
    328327 
    329 fi_q2m_ncep=tropflux_id_env+'q2m_2000_2009_ncep_v50.txt' 
     328fi_q2m_ncep=project_id_env+'q2m_2000_2009_ncep_v50.txt' 
    330329res=read_ascii(fi_q2m_ncep,data_start=1) 
    331330ff=res.field1 
     
    354353oplot, mean_tao, yfit, color=250, thick=2 
    355354 
    356 fi_q2m_ncep1=tropflux_id_env+'q2m_2000_2009_ncep1_v50.txt' 
     355fi_q2m_ncep1=project_id_env+'q2m_2000_2009_ncep1_v50.txt' 
    357356res=read_ascii(fi_q2m_ncep1,data_start=1) 
    358357ff=res.field1 
     
    383382closeps 
    384383 
    385 fig=tropflux_od_env+'q2m_validation_scatter_2000_2009_v50.ps' 
     384fig=project_od_env+'q2m_validation_scatter_2000_2009_v50.ps' 
    386385spawn, 'mv '+psdir+'idl.ps '+fig 
    387386spawn, 'gv '+fig 
  • trunk/src/paper01/fig3/read_variables_v2.pro

    r46 r50  
    1616;       rankdir="LR", 
    1717;       ] 
    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"]; 
    2222; 
    2323;       at [shape=tab,fontname=Courier,label="at"] 
     
    4242; ======== 
    4343; 
    44 ; :ref:`tropflux_profile.sh` 
     44; :ref:`project_profile.sh` 
    4545; 
    4646; :ref:`air_validation_scatter_2000_2009_v50.pro` 
     
    6060; :: 
    6161; 
    62 ;  IDL> @tropflux_init 
    6362;  IDL> csite=++ 
    6463;  IDL> ++ 
     
    8988pro read_variables_v2, csite, date1, date2, nsmooth, $ 
    9089                     at, sw, rh, sst, wu, wv, ws, lh 
    91 @cm_tropflux 
     90@cm_project 
    9291; 
    9392;; DEFINE THE OUTPUT TIME AXIS 
     
    104103; 
    105104;;SHORTWAVE 
    106 fi=tropflux_id_env+'rad'+csite+'_dy.cdf' 
     105fi=project_id_env+'rad'+csite+'_dy.cdf' 
    107106f=file_test(fi) 
    108107sw=fltarr(jpt)+!values.f_nan 
     
    126125 
    127126;;LHF 
    128 fi=tropflux_id_env+'qlat'+csite+'_dy.cdf' 
     127fi=project_id_env+'qlat'+csite+'_dy.cdf' 
    129128f=file_test(fi) 
    130129lh=fltarr(jpt)+!values.f_nan 
     
    145144 
    146145;;POSITION 
    147 fi=tropflux_id_env+'pos'+csite+'_dy.cdf' 
     146fi=project_id_env+'pos'+csite+'_dy.cdf' 
    148147f=file_test(fi) 
    149148lat=fltarr(jpt)+!values.f_nan 
     
    165164 
    166165;;MET PARAMETERS 
    167 fi=tropflux_id_env+'met'+csite+'_dy.cdf' 
     166fi=project_id_env+'met'+csite+'_dy.cdf' 
    168167f=file_test(fi) 
    169168wu=fltarr(jpt)+!values.f_nan 
  • trunk/src/paper01/fig3/sst_validation_scatter_2000_2009_v50.pro

    r47 r50  
    1616;       ] 
    1717; 
    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"]; 
    3232; 
    3333;       sst_validation_scatter_2000_2009_v50 [shape=box, 
     
    4343; ======== 
    4444; 
    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` 
    4848; 
    4949; :func:`x_site_location` 
     
    5858; :: 
    5959; 
    60 ;  IDL> @tropflux_init 
    6160;  IDL> date1=19890101L 
    6261;  IDL> date2=20091231L 
     
    9695pro sst_validation_scatter_2000_2009_v50, date1, date2 
    9796@cm_general 
    98 @cm_tropflux 
     97@cm_project 
    9998reinitplt, /z,/invert 
    10099key_portrait = 1 
     
    122121close,/all 
    123122 
    124 fi_sst_erai=tropflux_id_env+'sst_2000_2009_erai_v50.txt' 
     123fi_sst_erai=project_id_env+'sst_2000_2009_erai_v50.txt' 
    125124openw,1,fi_sst_erai 
    126 fi_sst_trop=tropflux_id_env+'sst_2000_2009_trop_v50.txt' 
     125fi_sst_trop=project_id_env+'sst_2000_2009_trop_v50.txt' 
    127126openw,2,fi_sst_trop 
    128 fi_sst_oaflx=tropflux_id_env+'sst_2000_2009_oaflx_v50.txt' 
     127fi_sst_oaflx=project_id_env+'sst_2000_2009_oaflx_v50.txt' 
    129128openw,3,fi_sst_oaflx 
    130 fi_sst_ncep=tropflux_id_env+'sst_2000_2009_ncep_v50.txt' 
     129fi_sst_ncep=project_id_env+'sst_2000_2009_ncep_v50.txt' 
    131130openw,4,fi_sst_ncep 
    132 fi_sst_tmi=tropflux_id_env+'sst_2000_2009_tmi_v50.txt' 
     131fi_sst_tmi=project_id_env+'sst_2000_2009_tmi_v50.txt' 
    133132openw,5,fi_sst_tmi 
    134 fi_sst_ncep1=tropflux_id_env+'sst_2000_2009_ncep1_v50.txt' 
     133fi_sst_ncep1=project_id_env+'sst_2000_2009_ncep1_v50.txt' 
    135134openw,6,fi_sst_ncep1 
    136135 
     
    146145;; first reading the whole ERAI uncorrected and corrected data 
    147146 
    148 file=tropflux_id_env+'erai_sst_19890101_20091231_oafluxgrid.nc' 
     147file=project_id_env+'erai_sst_19890101_20091231_oafluxgrid.nc' 
    149148initncdf, file 
    150149unc=read_ncdf('sst',date1,date2,file=file,/nostr) & unc=unc-273.15 
    151150help, unc 
    152151 
    153 file=tropflux_id_env+'TropFlux_sst_19890101_20091231_v20.nc' 
     152file=project_id_env+'TropFlux_sst_19890101_20091231_v20.nc' 
    154153initncdf, file 
    155154cor=read_ncdf('sst',date1,date2,file=file,/nostr) & cor=cor-273.15 
    156155help, cor 
    157156 
    158 file=tropflux_id_env+'OAFlux_basic_variables_1985_2009.nc' 
     157file=project_id_env+'OAFlux_basic_variables_1985_2009.nc' 
    159158initncdf, file 
    160159oaf=read_ncdf("sst", date1, date2, file=file,/nostr) 
    161160help, oaf 
    162161 
    163 fi=tropflux_id_env+'sst_ncep2_oafluxgrid_19890101_20091231.nc' 
     162fi=project_id_env+'sst_ncep2_oafluxgrid_19890101_20091231.nc' 
    164163initncdf, fi 
    165164nce=read_ncdf("sst", date1-1, date2, file=fi,/nostr) 
     
    167166help, nce 
    168167 
    169 fi=tropflux_id_env+'tmi_OI_oafluxgrid_30N30S.nc' 
     168fi=project_id_env+'tmi_OI_oafluxgrid_30N30S.nc' 
    170169initncdf, fi 
    171170sst_tmi=read_ncdf("sst", date1, date2, file=fi,/nostr) 
    172171help, sst_tmi 
    173172 
    174 file=tropflux_id_env+'sst_ncep1_19890101_20091231.nc' 
     173file=project_id_env+'sst_ncep1_19890101_20091231.nc' 
    175174initncdf, file 
    176175nce1=read_ncdf("sst", date1, date2, file=file,/nostr) 
     
    250249close,/all 
    251250 
    252 fi_sst_erai=tropflux_id_env+'sst_2000_2009_v50_erai.txt' 
     251fi_sst_erai=project_id_env+'sst_2000_2009_v50_erai.txt' 
    253252res=read_ascii(fi_sst_erai,data_start=1) 
    254253ff=res.field1 
     
    276275oplot, mean_tao, yfit, color=250, thick=2 
    277276 
    278 fi_sst_trop=tropflux_id_env+'sst_2000_2009_v50_trop.txt' 
     277fi_sst_trop=project_id_env+'sst_2000_2009_v50_trop.txt' 
    279278res=read_ascii(fi_sst_trop,data_start=1) 
    280279ff=res.field1 
     
    303302oplot, mean_tao, yfit, color=250, thick=2 
    304303 
    305 fi_sst_oaflx=tropflux_id_env+'sst_2000_2009_v50_oaflx.txt' 
     304fi_sst_oaflx=project_id_env+'sst_2000_2009_v50_oaflx.txt' 
    306305res=read_ascii(fi_sst_oaflx,data_start=1) 
    307306ff=res.field1 
     
    332331 
    333332 
    334 fi_sst_ncep=tropflux_id_env+'sst_2000_2009_v50_ncep.txt' 
     333fi_sst_ncep=project_id_env+'sst_2000_2009_v50_ncep.txt' 
    335334res=read_ascii(fi_sst_ncep,data_start=1) 
    336335ff=res.field1 
     
    360359 
    361360 
    362 fi_sst_tmi=tropflux_id_env+'sst_2000_2009_v50_tmi.txt' 
     361fi_sst_tmi=project_id_env+'sst_2000_2009_v50_tmi.txt' 
    363362res=read_ascii(fi_sst_tmi,data_start=1) 
    364363ff=res.field1 
     
    387386oplot, mean_tao, yfit, color=250, thick=2 
    388387 
    389 fi_sst_ncep1=tropflux_id_env+'sst_2000_2009_v50_ncep1.txt' 
     388fi_sst_ncep1=project_id_env+'sst_2000_2009_v50_ncep1.txt' 
    390389res=read_ascii(fi_sst_ncep1,data_start=1) 
    391390ff=res.field1 
     
    416415closeps 
    417416 
    418 fig=tropflux_od_env+'sst_validation_scatter_2000_2009_v50.ps' 
     417fig=project_od_env+'sst_validation_scatter_2000_2009_v50.ps' 
    419418spawn, 'mv '+psdir+'idl.ps '+fig 
    420419spawn, 'gv '+fig 
  • trunk/src/paper01/fig3/statistics_3var_v1.pro

    r46 r50  
    1212; ======== 
    1313; 
    14 ; :ref:`tropflux_profile.sh` 
     14; :ref:`project_profile.sh` 
    1515; 
    1616; :ref:`net_flux_validation_scatter_2000_2007.pro` 
     
    3333; :: 
    3434; 
    35 ;  IDL> @tropflux_init 
    3635;  IDL> tao=++ 
    3736;  IDL> ++ 
     
    5150    cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    5251 
    53 @cm_tropflux 
     52@cm_project 
    5453x=tao & y=var1 & z=var2 
    5554 
  • trunk/src/paper01/fig3/ws_validation_scatter_2000_2009_v50.pro

    r47 r50  
    1616;       ] 
    1717; 
    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"]; 
    3131; 
    3232;       ws_validation_scatter_2000_2009_v50 [shape=box, 
     
    4242; ======== 
    4343; 
    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` 
    4747; 
    4848; :func:`x_site_location` 
     
    5757; :: 
    5858; 
    59 ;  IDL> @tropflux_init 
    6059;  IDL> date1=19890101L 
    6160;  IDL> date2=20091231L 
     
    9695pro ws_validation_scatter_2000_2009_v50, date1, date2 
    9796@cm_general 
    98 @cm_tropflux 
     97@cm_project 
    9998reinitplt, /z,/invert 
    10099key_portrait = 1 
     
    123122close,/all 
    124123 
    125 fi_ws_erai=tropflux_id_env+'ws_2000_2009_erai_v50.txt' 
     124fi_ws_erai=project_id_env+'ws_2000_2009_erai_v50.txt' 
    126125openw,1,fi_ws_erai 
    127 fi_ws_trop=tropflux_id_env+'ws_2000_2009_trop_v50.txt' 
     126fi_ws_trop=project_id_env+'ws_2000_2009_trop_v50.txt' 
    128127openw,2,fi_ws_trop 
    129 fi_ws_oaflx=tropflux_id_env+'ws_2000_2009_oaflx_v50.txt' 
     128fi_ws_oaflx=project_id_env+'ws_2000_2009_oaflx_v50.txt' 
    130129openw,3,fi_ws_oaflx 
    131 fi_ws_ncep=tropflux_id_env+'ws_2000_2009_ncep_v50.txt' 
     130fi_ws_ncep=project_id_env+'ws_2000_2009_ncep_v50.txt' 
    132131openw,4,fi_ws_ncep 
    133 fi_ws_tmi=tropflux_id_env+'ws_2000_2009_tmi_v50.txt' 
     132fi_ws_tmi=project_id_env+'ws_2000_2009_tmi_v50.txt' 
    134133openw,5,fi_ws_tmi 
    135 fi_ws_ncep1=tropflux_id_env+'ws_2000_2009_ncep1_v50.txt' 
     134fi_ws_ncep1=project_id_env+'ws_2000_2009_ncep1_v50.txt' 
    136135openw,6,fi_ws_ncep1 
    137136 
     
    146145;; first reading the whole ERAI uncorrected and corrected data 
    147146 
    148 file=tropflux_id_env+'erai_ws_19890101_20091231_oafluxgrid.nc' 
     147file=project_id_env+'erai_ws_19890101_20091231_oafluxgrid.nc' 
    149148initncdf, file 
    150149u=read_ncdf('u10',date1,date2,file=file,/nostr) 
     
    153152help, unc 
    154153 
    155 file=tropflux_id_env+'TropFlux_ws_19890101_20091231_v20.nc' 
     154file=project_id_env+'TropFlux_ws_19890101_20091231_v20.nc' 
    156155initncdf, file 
    157156cor=read_ncdf('ws',date1,date2,file=file,/nostr) 
    158157help, cor 
    159158 
    160 file=tropflux_id_env+'OAFlux_basic_variables_1985_2009.nc' 
     159file=project_id_env+'OAFlux_basic_variables_1985_2009.nc' 
    161160initncdf, file 
    162161oaf=read_ncdf("wind", date1, date2, file=file,/nostr) 
    163162help, oaf 
    164163 
    165 fi=tropflux_id_env+'uwind_ncep2_oafluxgrid_19890101_20091231.nc' 
     164fi=project_id_env+'uwind_ncep2_oafluxgrid_19890101_20091231.nc' 
    166165initncdf, fi 
    167166u=read_ncdf("u", date1-1, date2, file=fi,/nostr) 
    168 fi=tropflux_id_env+'vwind_ncep2_oafluxgrid_19890101_20091231.nc' 
     167fi=project_id_env+'vwind_ncep2_oafluxgrid_19890101_20091231.nc' 
    169168initncdf, fi 
    170169v=read_ncdf("v", date1-1, date2, file=fi,/nostr) 
     
    172171help, nce 
    173172 
    174 fi=tropflux_id_env+'zonal_wind_speed_oafluxgrid_30N30S.nc' 
     173fi=project_id_env+'zonal_wind_speed_oafluxgrid_30N30S.nc' 
    175174initncdf, fi 
    176175u=read_ncdf("u", date1, date2, file=fi,/nostr) 
    177 fi=tropflux_id_env+'meridional_wind_speed_oafluxgrid_30N30S.nc' 
     176fi=project_id_env+'meridional_wind_speed_oafluxgrid_30N30S.nc' 
    178177initncdf, fi 
    179178v=read_ncdf("v", date1, date2, file=fi,/nostr) 
     
    181180help, ws_tmi 
    182181 
    183 file=tropflux_id_env+'wind_ncep1_19890101_20091231.nc' 
     182file=project_id_env+'wind_ncep1_19890101_20091231.nc' 
    184183initncdf, file 
    185184u=read_ncdf("u", date1, date2, file=file,/nostr) 
     
    254253endfor 
    255254close,/all 
    256 fi_ws_erai=tropflux_id_env+'ws_2000_2009_erai_v50.txt' 
     255fi_ws_erai=project_id_env+'ws_2000_2009_erai_v50.txt' 
    257256res=read_ascii(fi_ws_erai,data_start=1) 
    258257ff=res.field1 
     
    280279oplot, mean_tao, yfit, color=250, thick=2 
    281280 
    282 fi_ws_trop=tropflux_id_env+'ws_2000_2009_trop_v50.txt' 
     281fi_ws_trop=project_id_env+'ws_2000_2009_trop_v50.txt' 
    283282res=read_ascii(fi_ws_trop,data_start=1) 
    284283ff=res.field1 
     
    307306oplot, mean_tao, yfit, color=250, thick=2 
    308307 
    309 fi_ws_oaflx=tropflux_id_env+'ws_2000_2009_oaflx_v50.txt' 
     308fi_ws_oaflx=project_id_env+'ws_2000_2009_oaflx_v50.txt' 
    310309res=read_ascii(fi_ws_oaflx,data_start=1) 
    311310ff=res.field1 
     
    336335 
    337336 
    338 fi_ws_ncep=tropflux_id_env+'ws_2000_2009_ncep_v50.txt' 
     337fi_ws_ncep=project_id_env+'ws_2000_2009_ncep_v50.txt' 
    339338res=read_ascii(fi_ws_ncep,data_start=1) 
    340339ff=res.field1 
     
    363362oplot, mean_tao, yfit, color=250, thick=2 
    364363 
    365 fi_ws_tmi=tropflux_id_env+'ws_2000_2009_tmi_v50.txt' 
     364fi_ws_tmi=project_id_env+'ws_2000_2009_tmi_v50.txt' 
    366365res=read_ascii(fi_ws_tmi,data_start=1) 
    367366ff=res.field1 
     
    391390 
    392391 
    393 fi_ws_ncep1=tropflux_id_env+'ws_2000_2009_ncep1_v50.txt' 
     392fi_ws_ncep1=project_id_env+'ws_2000_2009_ncep1_v50.txt' 
    394393res=read_ascii(fi_ws_ncep1,data_start=1) 
    395394ff=res.field1 
     
    420419closeps 
    421420 
    422 fig=tropflux_od_env+'ws_validation_scatter_2000_2009_v50.ps' 
     421fig=project_od_env+'ws_validation_scatter_2000_2009_v50.ps' 
    423422spawn, 'mv '+psdir+'idl.ps '+fig 
    424423spawn, 'gv '+fig 
  • trunk/src/paper01/fig4/fig4_met_var_correction_scatter.pro

    r47 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    2323; 
    2424;       fig4_met_var_correction_scatter [shape=box, 
     
    3434; ======== 
    3535; 
    36 ; :ref:`tropflux_profile.sh` 
    37 ; :ref:`tropflux_init.pro` 
     36; :ref:`project_profile.sh` 
     37; :ref:`project_init.pro` 
    3838; 
    3939; :ref:`significance_test_99.pro` 
     
    4444; :: 
    4545; 
    46 ;  IDL> @tropflux_init 
    4746;  IDL> fig4_met_var_correction_scatter 
    4847; 
     
    8483pro fig4_met_var_correction_scatter 
    8584@cm_general 
    86 @cm_tropflux 
     85@cm_project 
    8786reinitplt, /z,/invert 
    8887key_portrait = 1 
    8988 
    9089openps, FILENAME = 'idl.ps' 
    91 fi=tropflux_id_env+'sst_correction_final.txt' 
     90fi=project_id_env+'sst_correction_final.txt' 
    9291res=read_ascii(fi,data_start=0) 
    9392ff=res.field1 
     
    116115significance_test_99,mean,bias 
    117116 
    118 fi=tropflux_id_env+'t2m_correction_final.txt' 
     117fi=project_id_env+'t2m_correction_final.txt' 
    119118res=read_ascii(fi,data_start=0) 
    120119ff=res.field1 
     
    144143significance_test_99,mean,bias 
    145144 
    146 fi=tropflux_id_env+'q2m_correction_final.txt' 
     145fi=project_id_env+'q2m_correction_final.txt' 
    147146res=read_ascii(fi,data_start=0) 
    148147ff=res.field1 
     
    170169;; significant test 
    171170significance_test_99,mean,bias 
    172 fi=tropflux_id_env+'ws_correction_final.txt' 
     171fi=project_id_env+'ws_correction_final.txt' 
    173172res=read_ascii(fi,data_start=0) 
    174173ff=res.field1 
     
    200199closeps 
    201200 
    202 fig=tropflux_od_env+'fig4_met_var_correction_scatter.ps' 
     201fig=project_od_env+'fig4_met_var_correction_scatter.ps' 
    203202spawn, 'mv '+psdir+'idl.ps '+fig 
    204203spawn, 'gv '+fig 
  • trunk/src/paper01/fig4/significance_test_99.pro

    r46 r50  
    1212; ======== 
    1313; 
    14 ; :ref:`tropflux_profile.sh` 
     14; :ref:`project_profile.sh` 
    1515; 
    1616; :ref:`fig10_swr_correction.pro` 
     
    2222; :: 
    2323; 
    24 ;  IDL> @tropflux_init 
     24;  IDL> @project_init 
    2525;  IDL> x=++ 
    2626;  IDL> y=++ 
  • trunk/src/paper01/fig5/fig5_gustiness_scatter.pro

    r47 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    1919; 
    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"]; 
    2121; 
    2222;       fig5_gustiness_scatter [shape=box, 
     
    3232; ======== 
    3333; 
    34 ; :ref:`tropflux_profile.sh` 
    35 ; :ref:`tropflux_init.pro` 
     34; :ref:`project_profile.sh` 
     35; :ref:`project_init.pro` 
    3636; 
    3737; EXAMPLES 
     
    4040; :: 
    4141; 
    42 ;  IDL> @tropflux_init 
    4342;  IDL> fig5_gustiness_scatter 
    4443; 
     
    8079pro fig5_gustiness_scatter 
    8180@cm_general 
    82 @cm_tropflux 
     81@cm_project 
    8382reinitplt, /z,/invert 
    8483key_portrait = 1 
    8584 
    8685openps, FILENAME = 'idl.ps' 
    87 fi_ws=tropflux_id_env+'wind_gustiness_bias.txt' 
     86fi_ws=project_id_env+'wind_gustiness_bias.txt' 
    8887res=read_ascii(fi_ws,data_start=1) 
    8988ff=res.field01 
     
    9392print, correlate(erai_wind,gust) 
    9493 
    95 fi_sst=tropflux_id_env+'raw_sst_2000_2008_gustiness.txt' 
     94fi_sst=project_id_env+'raw_sst_2000_2008_gustiness.txt' 
    9695res=read_ascii(fi_sst,data_start=1) 
    9796ff=res.field1 
     
    122121print, a,b 
    123122closeps 
    124 fig=tropflux_od_env+'fig5_gustiness_scatter.ps' 
     123fig=project_od_env+'fig5_gustiness_scatter.ps' 
    125124spawn, 'mv '+psdir+'idl.ps '+fig 
    126125spawn, 'gv '+fig 
  • trunk/src/paper01/fig6/icoads_q2m_stats_paper.pro

    r47 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    2525; 
    2626;       icoads_q2m_stats_paper [shape=box, 
     
    3636; ======== 
    3737; 
    38 ; :ref:`tropflux_profile.sh` 
    39 ; :ref:`tropflux_init.pro` 
     38; :ref:`project_profile.sh` 
     39; :ref:`project_init.pro` 
    4040; 
    4141; :ref:`statistics.pro` 
     
    4646; :: 
    4747; 
    48 ;  IDL> @tropflux_init 
    4948;  IDL> icoads_q2m_stats_paper 
    5049; 
     
    7978pro icoads_q2m_stats_paper 
    8079@cm_general 
    81 @cm_tropflux 
     80@cm_project 
    8281reinitplt, /z,/invert 
    8382key_portrait = 1 
     
    9089domdef, box 
    9190 
    92 file=tropflux_id_env+'sphum_monthly_1960_2010_oafluxgrid.nc' 
     91file=project_id_env+'sphum_monthly_1960_2010_oafluxgrid.nc' 
    9392initncdf, file 
    9493icoads=read_ncdf("sphum", st, en , file=file,/nostr, box=box) 
    9594help, icoads 
    9695 
    97 file=tropflux_id_env+'q2m_TropFlux_global_monthly_1989_2009.nc' 
     96file=project_id_env+'q2m_TropFlux_global_monthly_1989_2009.nc' 
    9897initncdf, file 
    9998trop=read_ncdf("q2m", st, en , file=file,/nostr, box=box) 
    10099help, trop 
    101100 
    102 file=tropflux_id_env+"q2m_OAFlux_global_monthly_1989_2009.nc" 
     101file=project_id_env+"q2m_OAFlux_global_monthly_1989_2009.nc" 
    103102initncdf, file 
    104103oaf=read_ncdf("q2m", st, en , file=file,/nostr, box=box) 
    105104help, oaf 
    106105 
    107 file=tropflux_id_env+"q2m_ERAI_global_monthly_1989_2009.nc" 
     106file=project_id_env+"q2m_ERAI_global_monthly_1989_2009.nc" 
    108107initncdf, file 
    109108erai=read_ncdf("q2m", st, en , file=file,/nostr, box=box) 
    110109help, erai 
    111110 
    112 file=tropflux_id_env+"q2m_NCEP2_global_monthly_1989_2009.nc" 
     111file=project_id_env+"q2m_NCEP2_global_monthly_1989_2009.nc" 
    113112initncdf, file 
    114113ncep2=1000*read_ncdf("q2m", st, en , file=file,/nostr, box=box) 
    115114help, ncep2 
    116115 
    117 file=tropflux_id_env+"q2m_NCEP1_global_monthly_1989_2009.nc" 
     116file=project_id_env+"q2m_NCEP1_global_monthly_1989_2009.nc" 
    118117initncdf, file 
    119118ncep1=1000*read_ncdf("q2m", st, en , file=file,/nostr, box=box) 
     
    254253 
    255254closeps 
    256 fig=tropflux_od_env+"icoads_q2m_stats_paper.ps" 
     255fig=project_od_env+"icoads_q2m_stats_paper.ps" 
    257256spawn, 'mv '+psdir+'idl.ps '+fig 
    258257spawn, 'gv '+fig 
  • trunk/src/paper01/fig6/icoads_sst_stats_paper.pro

    r47 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    2626; 
    2727;       icoads_sst_stats_paper [shape=box, 
     
    3737; ======== 
    3838; 
    39 ; :ref:`tropflux_profile.sh` 
    40 ; :ref:`tropflux_init.pro` 
     39; :ref:`project_profile.sh` 
     40; :ref:`project_init.pro` 
    4141; 
    4242; :ref:`statistics.pro` 
     
    4747; :: 
    4848; 
    49 ;  IDL> @tropflux_init 
    5049;  IDL> icoads_sst_stats_paper 
    5150; 
     
    7978;- 
    8079pro icoads_sst_stats_paper 
    81 @cm_tropflux 
     80@cm_project 
    8281reinitplt, /z,/invert 
    8382key_portrait = 1 
     
    9089domdef, box 
    9190 
    92 file=tropflux_id_env+'sst_monthly_1960_2010_oafluxgrid.nc' 
     91file=project_id_env+'sst_monthly_1960_2010_oafluxgrid.nc' 
    9392initncdf, file 
    9493icoads=read_ncdf("sst", st-1, en , file=file,/nostr, box=box) 
    9594help, icoads 
    9695 
    97 file=tropflux_id_env+'sst_TropFlux_global_monthly_1989_2009.nc' 
     96file=project_id_env+'sst_TropFlux_global_monthly_1989_2009.nc' 
    9897initncdf, file 
    9998trop=read_ncdf("sst", st, en , file=file,/nostr, box=box)-273.15 
    10099help, trop 
    101100 
    102 file=tropflux_id_env+"sst_OAFlux_global_monthly_1989_2009.nc" 
     101file=project_id_env+"sst_OAFlux_global_monthly_1989_2009.nc" 
    103102initncdf, file 
    104103oaf=read_ncdf("sst", st, en , file=file,/nostr, box=box) 
    105104help, oaf 
    106105 
    107 file=tropflux_id_env+"sst_ERAI_global_monthly_1989_2009.nc" 
     106file=project_id_env+"sst_ERAI_global_monthly_1989_2009.nc" 
    108107initncdf, file 
    109108erai=read_ncdf("sst", st, en , file=file,/nostr, box=box)-273.15 
    110109help, erai 
    111110 
    112 file=tropflux_id_env+"sst_NCEP2_global_monthly_1989_2009.nc" 
     111file=project_id_env+"sst_NCEP2_global_monthly_1989_2009.nc" 
    113112initncdf, file 
    114113ncep2=read_ncdf("sst", st, en , file=file,/nostr, box=box)-273.15 
    115114help, ncep2 
    116115 
    117 file=tropflux_id_env+'nocv2_sst_19890101_20091231_oafluxgrid.nc' 
     116file=project_id_env+'nocv2_sst_19890101_20091231_oafluxgrid.nc' 
    118117initncdf, file 
    119118noc=read_ncdf("sst", st, en , file=file,/nostr, box=box) 
    120119help, noc 
    121120 
    122 file=tropflux_id_env+"sst_NCEP1_global_monthly_1989_2009.nc" 
     121file=project_id_env+"sst_NCEP1_global_monthly_1989_2009.nc" 
    123122initncdf, file 
    124123ncep1=read_ncdf("sst", st, en , file=file,/nostr, box=box)-273.15 
     
    281280 
    282281closeps 
    283 fig=tropflux_od_env+"icoads_sst_stats_paper.ps" 
     282fig=project_od_env+"icoads_sst_stats_paper.ps" 
    284283spawn, 'mv '+psdir+'idl.ps '+fig 
    285284spawn, 'gv '+fig 
  • trunk/src/paper01/fig6/icoads_t2m_stats_paper.pro

    r47 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    2525; 
    2626;       icoads_t2m_stats_paper [shape=box, 
     
    3636; ======== 
    3737; 
    38 ; :ref:`tropflux_profile.sh` 
    39 ; :ref:`tropflux_init.pro` 
     38; :ref:`project_profile.sh` 
     39; :ref:`project_init.pro` 
    4040; 
    4141; :ref:`statistics.pro` 
     
    4646; :: 
    4747; 
    48 ;  IDL> @tropflux_init 
    4948;  IDL> icoads_t2m_stats_paper 
    5049; 
     
    8079pro icoads_t2m_stats_paper 
    8180@cm_general 
    82 @cm_tropflux 
     81@cm_project 
    8382reinitplt, /z,/invert 
    8483key_portrait = 1 
     
    9190domdef, box 
    9291 
    93 file=tropflux_id_env+'airt_monthly_1960_2010_oafluxgrid.nc' 
     92file=project_id_env+'airt_monthly_1960_2010_oafluxgrid.nc' 
    9493initncdf, file 
    9594icoads=read_ncdf("airt", st-1, en , file=file,/nostr, box=box) 
    9695help, icoads 
    9796 
    98 file=tropflux_id_env+'t2m_TropFlux_global_monthly_1989_2009.nc' 
     97file=project_id_env+'t2m_TropFlux_global_monthly_1989_2009.nc' 
    9998initncdf, file 
    10099trop=read_ncdf("t2m", st, en , file=file,/nostr, box=box)-273.15 
    101100help, trop 
    102101 
    103 file=tropflux_id_env+"t2m_OAFlux_global_monthly_1989_2009.nc" 
     102file=project_id_env+"t2m_OAFlux_global_monthly_1989_2009.nc" 
    104103initncdf, file 
    105104oaf=read_ncdf("t2m", st, en , file=file,/nostr, box=box) 
    106105help, oaf 
    107106 
    108 file=tropflux_id_env+"t2m_ERAI_global_monthly_1989_2009.nc" 
     107file=project_id_env+"t2m_ERAI_global_monthly_1989_2009.nc" 
    109108initncdf, file 
    110109erai=read_ncdf("t2m", st, en , file=file,/nostr, box=box)-273.15 
    111110help, erai 
    112111 
    113 file=tropflux_id_env+"t2m_NCEP2_global_monthly_1989_2009.nc" 
     112file=project_id_env+"t2m_NCEP2_global_monthly_1989_2009.nc" 
    114113initncdf, file 
    115114ncep2=read_ncdf("t2m", st, en , file=file,/nostr, box=box)-273.15 
    116115help, ncep2 
    117116 
    118 file=tropflux_id_env+"t2m_NCEP1_global_monthly_1989_2009.nc" 
     117file=project_id_env+"t2m_NCEP1_global_monthly_1989_2009.nc" 
    119118initncdf, file 
    120119ncep1=read_ncdf("t2m", st, en , file=file,/nostr, box=box)-273.15 
     
    263262 
    264263closeps 
    265 fig=tropflux_od_env+"icoads_t2m_stats_paper.ps" 
     264fig=project_od_env+"icoads_t2m_stats_paper.ps" 
    266265spawn, 'mv '+psdir+'idl.ps '+fig 
    267266spawn, 'gv '+fig 
  • trunk/src/paper01/fig6/icoads_ws_stats_paper.pro

    r47 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    2626; 
    2727;       icoads_ws_stats_paper [shape=box, 
     
    3737; ======== 
    3838; 
    39 ; :ref:`tropflux_profile.sh` 
    40 ; :ref:`tropflux_init.pro` 
     39; :ref:`project_profile.sh` 
     40; :ref:`project_init.pro` 
    4141; 
    4242; :ref:`statistics.pro` 
     
    4747; :: 
    4848; 
    49 ;  IDL> @tropflux_init 
    5049;  IDL> icoads_ws_stats_paper 
    5150; 
     
    8180pro icoads_ws_stats_paper 
    8281@cm_general 
    83 @cm_tropflux 
     82@cm_project 
    8483reinitplt, /z,/invert 
    8584key_portrait = 1 
     
    9291domdef, box 
    9392 
    94 file=tropflux_id_env+'ws_monthly_1960_2010_oafluxgrid.nc" 
     93file=project_id_env+'ws_monthly_1960_2010_oafluxgrid.nc" 
    9594initncdf, file 
    9695icoads=read_ncdf("ws", st-1, en , file=file,/nostr, box=box) 
    9796help, icoads 
    9897 
    99 file=tropflux_id_env+"ws_TropFlux_global_monthly_1989_2009.nc" 
     98file=project_id_env+"ws_TropFlux_global_monthly_1989_2009.nc" 
    10099initncdf, file 
    101100trop=read_ncdf("ws", st, en , file=file,/nostr, box=box) 
    102101help, trop 
    103102 
    104 file=tropflux_id_env+"ws_OAFlux_global_monthly_1989_2009.nc" 
     103file=project_id_env+"ws_OAFlux_global_monthly_1989_2009.nc" 
    105104initncdf, file 
    106105oaf=read_ncdf("ws", st, en , file=file,/nostr, box=box) 
    107106help, oaf 
    108107 
    109 file=tropflux_id_env+"ws_ERAI_global_monthly_1989_2009.nc" 
     108file=project_id_env+"ws_ERAI_global_monthly_1989_2009.nc" 
    110109initncdf, file 
    111110erai=read_ncdf("ws", st, en , file=file,/nostr, box=box) 
    112111help, erai 
    113112 
    114 file=tropflux_id_env+"ws_NCEP2_global_monthly_1989_2009.nc" 
     113file=project_id_env+"ws_NCEP2_global_monthly_1989_2009.nc" 
    115114initncdf, file 
    116115ncep2=read_ncdf("wsm", st, en , file=file,/nostr, box=box) 
    117116help, ncep2 
    118117 
    119 file=tropflux_id_env+"ws_NCEP1_global_monthly_1989_2009.nc" 
     118file=project_id_env+"ws_NCEP1_global_monthly_1989_2009.nc" 
    120119initncdf, file 
    121120ncep1=read_ncdf("ws", st, en , file=file,/nostr, box=box) 
    122121help, ncep1 
    123122 
    124 file=tropflux_id_env+'nocv2_ws_19890101_20091231_oafluxgrid.nc' 
     123file=project_id_env+'nocv2_ws_19890101_20091231_oafluxgrid.nc' 
    125124initncdf, file 
    126125noc=read_ncdf("ws", st, en , file=file,/nostr, box=box) 
     
    280279 
    281280closeps 
    282 fig=tropflux_od_env+"icoads_ws_stats_paper.ps" 
     281fig=project_od_env+"icoads_ws_stats_paper.ps" 
    283282spawn, 'mv '+psdir+'idl.ps '+fig 
    284283spawn, 'gv '+fig 
  • trunk/src/paper01/fig6/statistics.pro

    r46 r50  
    1212; ======== 
    1313; 
    14 ; :ref:`tropflux_profile.sh` 
     14; :ref:`project_profile.sh` 
    1515; 
    1616; :ref:`as_validation_net_1994_95_v10.pro` 
     
    3131; :: 
    3232; 
    33 ;  IDL> @tropflux_init 
    3433;  IDL> moor=++ 
    3534;  IDL> ++ 
     
    5857pro statistics, moor, erai, $ 
    5958   cor, bias, std, rmsd 
    60 @cm_tropflux 
     59@cm_project 
    6160;; mean1= mean of mooring variable      std1=std of mooring variable 
    6261;; mean2= mean of erai variable         std2=std of erai variable 
  • trunk/src/paper01/fig7/air_validation_scatter_2000_2009_basin.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    2525; 
    2626;       air_validation_scatter_2000_2009_basin [shape=box, 
     
    3636; ======== 
    3737; 
    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` 
    4141; 
    4242; :func:`x_site_location` 
     
    5151; :: 
    5252; 
    53 ;  IDL> @tropflux_init 
    5453;  IDL> date1=19890101L 
    5554;  IDL> date2=20091231L 
     
    9089pro air_validation_scatter_2000_2009_basin, date1, date2 
    9190@cm_general 
    92 @cm_tropflux 
     91@cm_project 
    9392reinitplt, /z,/invert 
    9493key_portrait = 1 
     
    150149close,/all 
    151150 
    152 fi_air_erai=tropflux_id_env+'air_2000_2009_erai_'+ocean+'.txt' 
     151fi_air_erai=project_id_env+'air_2000_2009_erai_'+ocean+'.txt' 
    153152openw,1,fi_air_erai 
    154 fi_air_trop=tropflux_id_env+'air_2000_2009_trop_'+ocean+'.txt' 
     153fi_air_trop=project_id_env+'air_2000_2009_trop_'+ocean+'.txt' 
    155154openw,2,fi_air_trop 
    156 fi_air_oaflx=tropflux_id_env+'air_2000_2009_oaflx_'+ocean+'.txt' 
     155fi_air_oaflx=project_id_env+'air_2000_2009_oaflx_'+ocean+'.txt' 
    157156openw,3,fi_air_oaflx 
    158 fi_air_ncep2=tropflux_id_env+'air_2000_2009_ncep2_'+ocean+'.txt' 
     157fi_air_ncep2=project_id_env+'air_2000_2009_ncep2_'+ocean+'.txt' 
    159158openw,4,fi_air_ncep2 
    160 fi_air_ncep1=tropflux_id_env+'air_2000_2009_ncep1_'+ocean+'.txt' 
     159fi_air_ncep1=project_id_env+'air_2000_2009_ncep1_'+ocean+'.txt' 
    161160openw,5,fi_air_ncep1 
    162161 
     
    170169;; first reading the whole ERAI uncorrected and corrected data 
    171170 
    172 file=tropflux_id_env+'erai_t2m_19890101_20091231_oafluxgrid.nc' 
     171file=project_id_env+'erai_t2m_19890101_20091231_oafluxgrid.nc' 
    173172initncdf, file 
    174173unc=read_ncdf('t2m',date1,date2,file=file,/nostr) & unc=unc-273.15 
     
    248247close,/all 
    249248 
    250 fi_air_erai=tropflux_id_env+'air_2000_2009_erai_'+ocean+'.txt' 
     249fi_air_erai=project_id_env+'air_2000_2009_erai_'+ocean+'.txt' 
    251250res=read_ascii(fi_air_erai,data_start=1) 
    252251ff=res.field1 
     
    274273oplot, mean_tao, yfit, color=250, thick=2 
    275274 
    276 fi_air_trop=tropflux_id_env+'air_2000_2009_trop_'+ocean+'.txt' 
     275fi_air_trop=project_id_env+'air_2000_2009_trop_'+ocean+'.txt' 
    277276res=read_ascii(fi_air_trop,data_start=1) 
    278277ff=res.field1 
     
    301300oplot, mean_tao, yfit, color=250, thick=2 
    302301 
    303 fi_air_oaflx=tropflux_id_env+'air_2000_2009_oaflx_'+ocean+'.txt' 
     302fi_air_oaflx=project_id_env+'air_2000_2009_oaflx_'+ocean+'.txt' 
    304303res=read_ascii(fi_air_oaflx,data_start=1) 
    305304ff=res.field1 
     
    330329 
    331330 
    332 fi_air_ncep=tropflux_id_env+'air_2000_2009_ncep2_'+ocean+'.txt' 
     331fi_air_ncep=project_id_env+'air_2000_2009_ncep2_'+ocean+'.txt' 
    333332res=read_ascii(fi_air_ncep,data_start=1) 
    334333ff=res.field1 
     
    357356oplot, mean_tao, yfit, color=250, thick=2 
    358357 
    359 fi_air_ncep1=tropflux_id_env+'air_2000_2009_ncep1_'+ocean+'.txt' 
     358fi_air_ncep1=project_id_env+'air_2000_2009_ncep1_'+ocean+'.txt' 
    360359res=read_ascii(fi_air_ncep1,data_start=1) 
    361360ff=res.field1 
     
    386385closeps 
    387386 
    388 fig=tropflux_od_env+'air_validation_scatter_2000_2009_'+ocean+'.ps' 
     387fig=project_od_env+'air_validation_scatter_2000_2009_'+ocean+'.ps' 
    389388spawn, 'mv '+psdir+'idl.ps '+fig 
    390389spawn, 'gv '+fig 
  • trunk/src/paper01/fig7/q2m_validation_scatter_2000_2009_basin.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    2525; 
    2626;       q2m_validation_scatter_2000_2009_basin [shape=box, 
     
    3636; ======== 
    3737; 
    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` 
    4141; 
    4242; :func:`x_site_location` 
     
    5151; :: 
    5252; 
    53 ;  IDL> @tropflux_init 
    5453;  IDL> date1=19890101L 
    5554;  IDL> date2=20091231L 
     
    9089pro q2m_validation_scatter_2000_2009_basin, date1, date2 
    9190@cm_general 
    92 @cm_tropflux 
     91@cm_project 
    9392reinitplt, /z,/invert 
    9493key_portrait = 1 
     
    148147close,/all 
    149148 
    150 fi_q2m_erai=tropflux_id_env+'q2m_2000_2009_erai_'+ocean+'.txt' 
     149fi_q2m_erai=project_id_env+'q2m_2000_2009_erai_'+ocean+'.txt' 
    151150openw,1,fi_q2m_erai 
    152 fi_q2m_trop=tropflux_id_env+'q2m_2000_2009_trop_'+ocean+'.txt' 
     151fi_q2m_trop=project_id_env+'q2m_2000_2009_trop_'+ocean+'.txt' 
    153152openw,2,fi_q2m_trop 
    154 fi_q2m_oaflx=tropflux_id_env+'q2m_2000_2009_oaflx_'+ocean+'.txt' 
     153fi_q2m_oaflx=project_id_env+'q2m_2000_2009_oaflx_'+ocean+'.txt' 
    155154openw,3,fi_q2m_oaflx 
    156 fi_q2m_ncep=tropflux_id_env+'q2m_2000_2009_ncep_'+ocean+'.txt' 
     155fi_q2m_ncep=project_id_env+'q2m_2000_2009_ncep_'+ocean+'.txt' 
    157156openw,4,fi_q2m_ncep 
    158 fi_q2m_ncep1=tropflux_id_env+'q2m_2000_2009_ncep1_'+ocean+'.txt' 
     157fi_q2m_ncep1=project_id_env+'q2m_2000_2009_ncep1_'+ocean+'.txt' 
    159158openw,5,fi_q2m_ncep1 
    160159 
     
    168167;; first reading the whole ERAI uncorrected and corrected data 
    169168 
    170 file=tropflux_id_env+'erai_q2m_19890101_20091231_oafluxgrid.nc' 
     169file=project_id_env+'erai_q2m_19890101_20091231_oafluxgrid.nc' 
    171170initncdf, file 
    172171unc=read_ncdf('q2m',date1,date2,file=file,/nostr) 
     
    245244close,/all 
    246245 
    247 fi_q2m_erai=tropflux_id_env+'q2m_2000_2009_erai_'+ocean+'.txt' 
     246fi_q2m_erai=project_id_env+'q2m_2000_2009_erai_'+ocean+'.txt' 
    248247res=read_ascii(fi_q2m_erai,data_start=1) 
    249248ff=res.field1 
     
    271270oplot, mean_tao, yfit, color=250, thick=2 
    272271 
    273 fi_q2m_trop=tropflux_id_env+'q2m_2000_2009_trop_'+ocean+'.txt' 
     272fi_q2m_trop=project_id_env+'q2m_2000_2009_trop_'+ocean+'.txt' 
    274273res=read_ascii(fi_q2m_trop,data_start=1) 
    275274ff=res.field1 
     
    298297oplot, mean_tao, yfit, color=250, thick=2 
    299298 
    300 fi_q2m_oaflx=tropflux_id_env+'q2m_2000_2009_oaflx_'+ocean+'.txt' 
     299fi_q2m_oaflx=project_id_env+'q2m_2000_2009_oaflx_'+ocean+'.txt' 
    301300res=read_ascii(fi_q2m_oaflx,data_start=1) 
    302301ff=res.field1 
     
    326325 
    327326 
    328 fi_q2m_ncep=tropflux_id_env+'q2m_2000_2009_ncep_'+ocean+'.txt' 
     327fi_q2m_ncep=project_id_env+'q2m_2000_2009_ncep_'+ocean+'.txt' 
    329328res=read_ascii(fi_q2m_ncep,data_start=1) 
    330329ff=res.field1 
     
    353352oplot, mean_tao, yfit, color=250, thick=2 
    354353 
    355 fi_q2m_ncep1=tropflux_id_env+'q2m_2000_2009_ncep1_'+ocean+'.txt' 
     354fi_q2m_ncep1=project_id_env+'q2m_2000_2009_ncep1_'+ocean+'.txt' 
    356355res=read_ascii(fi_q2m_ncep1,data_start=1) 
    357356ff=res.field1 
     
    382381closeps 
    383382 
    384 fig=tropflux_od_env+'q2m_validation_scatter_2000_2009_'+ocean+'.ps' 
     383fig=project_od_env+'q2m_validation_scatter_2000_2009_'+ocean+'.ps' 
    385384spawn, 'mv '+psdir+'idl.ps '+fig 
    386385spawn, 'gv '+fig 
  • trunk/src/paper01/fig7/sst_validation_scatter_2000_2009_basin.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    2525; 
    2626;       sst_validation_scatter_2000_2009_basin [shape=box, 
     
    3636; ======== 
    3737; 
    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` 
    4141; 
    4242; :func:`x_site_location` 
     
    5151; :: 
    5252; 
    53 ;  IDL> @tropflux_init 
    5453;  IDL> date1=19890101L 
    5554;  IDL> date2=20091231L 
     
    8988pro sst_validation_scatter_2000_2009_basin, date1, date2 
    9089@cm_general 
    91 @cm_tropflux 
     90@cm_project 
    9291reinitplt, /z,/invert 
    9392key_portrait = 1 
     
    126125close,/all 
    127126 
    128 fi_sst_erai=tropflux_id_env+'sst_2000_2009_erai_'+ocean+'.txt' 
     127fi_sst_erai=project_id_env+'sst_2000_2009_erai_'+ocean+'.txt' 
    129128openw,1,fi_sst_erai 
    130 fi_sst_trop=tropflux_id_env+'sst_2000_2009_trop_'+ocean+'.txt' 
     129fi_sst_trop=project_id_env+'sst_2000_2009_trop_'+ocean+'.txt' 
    131130openw,2,fi_sst_trop 
    132 fi_sst_oaflx=tropflux_id_env+'sst_2000_2009_oaflx_'+ocean+'.txt' 
     131fi_sst_oaflx=project_id_env+'sst_2000_2009_oaflx_'+ocean+'.txt' 
    133132openw,3,fi_sst_oaflx 
    134 fi_sst_ncep=tropflux_id_env+'sst_2000_2009_ncep_'+ocean+'.txt' 
     133fi_sst_ncep=project_id_env+'sst_2000_2009_ncep_'+ocean+'.txt' 
    135134openw,4,fi_sst_ncep 
    136 fi_sst_tmi=tropflux_id_env+'sst_2000_2009_tmi_'+ocean+'.txt' 
     135fi_sst_tmi=project_id_env+'sst_2000_2009_tmi_'+ocean+'.txt' 
    137136openw,5,fi_sst_tmi 
    138 fi_sst_ncep1=tropflux_id_env+'sst_2000_2009_ncep1_'+ocean+'.txt' 
     137fi_sst_ncep1=project_id_env+'sst_2000_2009_ncep1_'+ocean+'.txt' 
    139138openw,6,fi_sst_ncep1 
    140139 
     
    228227close,/all 
    229228 
    230 fi_sst_erai=tropflux_id_env+'sst_2000_2009_erai_'+ocean+'.txt' 
     229fi_sst_erai=project_id_env+'sst_2000_2009_erai_'+ocean+'.txt' 
    231230res=read_ascii(fi_sst_erai,data_start=1) 
    232231ff=res.field1 
     
    254253oplot, mean_tao, yfit, color=250, thick=2 
    255254 
    256 fi_sst_trop=tropflux_id_env+'sst_2000_2009_trop_'+ocean+'.txt' 
     255fi_sst_trop=project_id_env+'sst_2000_2009_trop_'+ocean+'.txt' 
    257256res=read_ascii(fi_sst_trop,data_start=1) 
    258257ff=res.field1 
     
    281280oplot, mean_tao, yfit, color=250, thick=2 
    282281 
    283 fi_sst_oaflx=tropflux_id_env+'sst_2000_2009_oaflx_'+ocean+'.txt' 
     282fi_sst_oaflx=project_id_env+'sst_2000_2009_oaflx_'+ocean+'.txt' 
    284283res=read_ascii(fi_sst_oaflx,data_start=1) 
    285284ff=res.field1 
     
    310309 
    311310 
    312 fi_sst_ncep=tropflux_id_env+'sst_2000_2009_ncep_'+ocean+'.txt' 
     311fi_sst_ncep=project_id_env+'sst_2000_2009_ncep_'+ocean+'.txt' 
    313312res=read_ascii(fi_sst_ncep,data_start=1) 
    314313ff=res.field1 
     
    338337 
    339338 
    340 fi_sst_tmi=tropflux_id_env+'sst_2000_2009_tmi_'+ocean+'.txt' 
     339fi_sst_tmi=project_id_env+'sst_2000_2009_tmi_'+ocean+'.txt' 
    341340res=read_ascii(fi_sst_tmi,data_start=1) 
    342341ff=res.field1 
     
    365364oplot, mean_tao, yfit, color=250, thick=2 
    366365 
    367 fi_sst_ncep1=tropflux_id_env+'sst_2000_2009_ncep1_'+ocean+'.txt' 
     366fi_sst_ncep1=project_id_env+'sst_2000_2009_ncep1_'+ocean+'.txt' 
    368367res=read_ascii(fi_sst_ncep1,data_start=1) 
    369368ff=res.field1 
     
    394393closeps 
    395394 
    396 fig=tropflux_od_env+'sst_validation_scatter_2000_2009_'+ocean+'.ps' 
     395fig=project_od_env+'sst_validation_scatter_2000_2009_'+ocean+'.ps' 
    397396spawn, 'mv '+psdir+'idl.ps '+fig 
    398397spawn, 'gv '+fig 
  • trunk/src/paper01/fig7/ws_validation_scatter_2000_2009_basin.pro

    r46 r50  
    1616;       rankdir="LR", 
    1717;       ] 
    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"]; 
    2626; 
    2727;       ws_validation_scatter_2000_2009_basin [shape=box, 
     
    3737; ======== 
    3838; 
    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` 
    4242; 
    4343; :func:`x_site_location` 
     
    5252; :: 
    5353; 
    54 ;  IDL> @tropflux_init 
    5554;  IDL> date1=19890101L 
    5655;  IDL> date2=20091231L 
     
    8483pro ws_validation_scatter_2000_2009_basin,date1,date2 
    8584@cm_general 
    86 @cm_tropflux 
     85@cm_project 
    8786reinitplt, /z,/invert 
    8887key_portrait = 1 
     
    143142close,/all 
    144143 
    145 fi_ws_erai=tropflux_id_env+'ws_2000_2009_erai_'+ocean+'.txt' 
     144fi_ws_erai=project_id_env+'ws_2000_2009_erai_'+ocean+'.txt' 
    146145openw,1,fi_ws_erai 
    147 fi_ws_trop=tropflux_id_env+'ws_2000_2009_trop_'+ocean+'.txt' 
     146fi_ws_trop=project_id_env+'ws_2000_2009_trop_'+ocean+'.txt' 
    148147openw,2,fi_ws_trop 
    149 fi_ws_oaflx=tropflux_id_env+'ws_2000_2009_oaflx_'+ocean+'.txt' 
     148fi_ws_oaflx=project_id_env+'ws_2000_2009_oaflx_'+ocean+'.txt' 
    150149openw,3,fi_ws_oaflx 
    151 fi_ws_ncep=tropflux_id_env+'ws_2000_2009_ncep_'+ocean+'.txt' 
     150fi_ws_ncep=project_id_env+'ws_2000_2009_ncep_'+ocean+'.txt' 
    152151openw,4,fi_ws_ncep 
    153 fi_ws_tmi=tropflux_id_env+'ws_2000_2009_tmi_'+ocean+'.txt' 
     152fi_ws_tmi=project_id_env+'ws_2000_2009_tmi_'+ocean+'.txt' 
    154153openw,5,fi_ws_tmi 
    155 fi_ws_ncep1=tropflux_id_env+'ws_2000_2009_ncep1_'+ocean+'.txt' 
     154fi_ws_ncep1=project_id_env+'ws_2000_2009_ncep1_'+ocean+'.txt' 
    156155openw,6,fi_ws_ncep1 
    157156 
     
    167166;; date1=20000101 & date2=20090931 
    168167 
    169 file=tropflux_id_env+'erai_ws_19890101_20091231_oafluxgrid.nc' 
     168file=project_id_env+'erai_ws_19890101_20091231_oafluxgrid.nc' 
    170169initncdf, file 
    171170u=read_ncdf('u10',date1,date2,file=file,/nostr) 
     
    244243endfor 
    245244close,/all 
    246 fi_ws_erai=tropflux_id_env+'ws_2000_2009_erai_'+ocean+'.txt' 
     245fi_ws_erai=project_id_env+'ws_2000_2009_erai_'+ocean+'.txt' 
    247246res=read_ascii(fi_ws_erai,data_start=1) 
    248247ff=res.field1 
     
    270269oplot, mean_tao, yfit, color=250, thick=2 
    271270 
    272 fi_ws_trop=tropflux_id_env+'ws_2000_2009_trop_'+ocean+'.txt' 
     271fi_ws_trop=project_id_env+'ws_2000_2009_trop_'+ocean+'.txt' 
    273272res=read_ascii(fi_ws_trop,data_start=1) 
    274273ff=res.field1 
     
    297296oplot, mean_tao, yfit, color=250, thick=2 
    298297 
    299 fi_ws_oaflx=tropflux_id_env+'ws_2000_2009_oaflx_'+ocean+'.txt' 
     298fi_ws_oaflx=project_id_env+'ws_2000_2009_oaflx_'+ocean+'.txt' 
    300299res=read_ascii(fi_ws_oaflx,data_start=1) 
    301300ff=res.field1 
     
    326325 
    327326 
    328 fi_ws_ncep=tropflux_id_env+'ws_2000_2009_ncep_'+ocean+'.txt' 
     327fi_ws_ncep=project_id_env+'ws_2000_2009_ncep_'+ocean+'.txt' 
    329328res=read_ascii(fi_ws_ncep,data_start=1) 
    330329ff=res.field1 
     
    353352oplot, mean_tao, yfit, color=250, thick=2 
    354353 
    355 fi_ws_tmi=tropflux_id_env+'ws_2000_2009_tmi_'+ocean+'.txt' 
     354fi_ws_tmi=project_id_env+'ws_2000_2009_tmi_'+ocean+'.txt' 
    356355res=read_ascii(fi_ws_tmi,data_start=1) 
    357356ff=res.field1 
     
    381380 
    382381 
    383 fi_ws_ncep1=tropflux_id_env+'ws_2000_2009_ncep1_'+ocean+'.txt' 
     382fi_ws_ncep1=project_id_env+'ws_2000_2009_ncep1_'+ocean+'.txt' 
    384383res=read_ascii(fi_ws_ncep1,data_start=1) 
    385384ff=res.field1 
     
    410409closeps 
    411410 
    412 fig=tropflux_od_env+'ws_validation_scatter_2000_2009_'+ocean+'.ps' 
     411fig=project_od_env+'ws_validation_scatter_2000_2009_'+ocean+'.ps' 
    413412spawn, 'mv '+psdir+'idl.ps '+fig 
    414413spawn, 'gv '+fig 
  • trunk/src/paper01/fig8/lhf_validation_scatter_2000_2009.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    2929; 
    3030;       lhf_validation_scatter_2000_2009 [shape=box, 
     
    4040; ======== 
    4141; 
    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` 
    4545; 
    4646; :func:`x_site_location` 
     
    5555; :: 
    5656; 
    57 ;  IDL> @tropflux_init 
    5857;  IDL> date1=19890101L 
    5958;  IDL> date2=20091231L 
     
    9392pro lhf_validation_scatter_2000_2009,date1,date2 
    9493@cm_general 
    95 @cm_tropflux 
     94@cm_project 
    9695reinitplt, /z,/invert 
    9796key_portrait = 1 
     
    119118close,/all 
    120119 
    121 fi_lhf_erai=tropflux_id_env+'lhf_2000_2009_erai_v52.txt' 
     120fi_lhf_erai=project_id_env+'lhf_2000_2009_erai_v52.txt' 
    122121openw,1,fi_lhf_erai 
    123 fi_lhf_trop=tropflux_id_env+'lhf_2000_2009_trop_v52.txt' 
     122fi_lhf_trop=project_id_env+'lhf_2000_2009_trop_v52.txt' 
    124123openw,2,fi_lhf_trop 
    125 fi_lhf_oaflx=tropflux_id_env+'lhf_2000_2009_oaflx_v52.txt' 
     124fi_lhf_oaflx=project_id_env+'lhf_2000_2009_oaflx_v52.txt' 
    126125openw,3,fi_lhf_oaflx 
    127 fi_lhf_ncep=tropflux_id_env+'lhf_2000_2009_ncep_v52.txt' 
     126fi_lhf_ncep=project_id_env+'lhf_2000_2009_ncep_v52.txt' 
    128127openw,4,fi_lhf_ncep 
    129 fi_lhf_ncep1=tropflux_id_env+'lhf_2000_2009_ncep1_v52.txt' 
     128fi_lhf_ncep1=project_id_env+'lhf_2000_2009_ncep1_v52.txt' 
    130129openw,5,fi_lhf_ncep1 
    131130 
     
    138137;; first reading the whole ERAI uncorrected and corrected data 
    139138 
    140 file=tropflux_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
     139file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    141140initncdf, file 
    142141unc=read_ncdf('lhf',date1,date2,file=file,/nostr) 
    143142help, unc 
    144143 
    145 file=tropflux_id_env+"TropFlux_19890101_20091231.nc" 
     144file=project_id_env+"TropFlux_19890101_20091231.nc" 
    146145initncdf, file 
    147146cor=read_ncdf('lhf',date1,date2,file=file,/nostr) 
     
    149148help, cor 
    150149 
    151 file=tropflux_id_env+'lhf_oafluxgrid_1985_2009.nc' 
     150file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    152151initncdf, file 
    153152oaf=read_ncdf("lhf", date1, date2, file=file,/nostr) 
    154153help, oaf 
    155154 
    156 fi=tropflux_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
     155fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    157156initncdf, fi 
    158157nce=read_ncdf("lhf", date1, date2, file=fi,/nostr) 
    159158help, nce 
    160159 
    161 file=tropflux_id_env+'fluxe_ncep1_19890101_20091231.nc' 
     160file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 
    162161initncdf, file 
    163162nce1=-1*read_ncdf("lhf", date1, date2, file=file,/nostr) 
     
    228227close,/all 
    229228 
    230 fi_lhf_erai=tropflux_id_env+'lhf_2000_2009_erai_v52.txt' 
     229fi_lhf_erai=project_id_env+'lhf_2000_2009_erai_v52.txt' 
    231230res=read_ascii(fi_lhf_erai,data_start=1) 
    232231ff=res.field1 
     
    259258oplot, [20,200], [20,200] 
    260259 
    261 fi_lhf_trop=tropflux_id_env+'lhf_2000_2009_trop_v52.txt' 
     260fi_lhf_trop=project_id_env+'lhf_2000_2009_trop_v52.txt' 
    262261res=read_ascii(fi_lhf_trop,data_start=1) 
    263262ff=res.field1 
     
    291290 
    292291 
    293 fi_lhf_oaflx=tropflux_id_env+'lhf_2000_2009_oaflx_v52.txt' 
     292fi_lhf_oaflx=project_id_env+'lhf_2000_2009_oaflx_v52.txt' 
    294293res=read_ascii(fi_lhf_oaflx,data_start=1) 
    295294ff=res.field1 
     
    322321oplot, [20,200], [20,200] 
    323322 
    324 fi_lhf_ncep=tropflux_id_env+'lhf_2000_2009_ncep_v52.txt' 
     323fi_lhf_ncep=project_id_env+'lhf_2000_2009_ncep_v52.txt' 
    325324res=read_ascii(fi_lhf_ncep,data_start=1) 
    326325ff=res.field1 
     
    353352oplot, [20,200], [20,200] 
    354353 
    355 fi_lhf_ncep1=tropflux_id_env+'lhf_2000_2009_ncep1_v52.txt' 
     354fi_lhf_ncep1=project_id_env+'lhf_2000_2009_ncep1_v52.txt' 
    356355res=read_ascii(fi_lhf_ncep1,data_start=1) 
    357356ff=res.field1 
     
    386385closeps 
    387386 
    388 fig=tropflux_od_env+'lhf_validation_scatter_2000_2009.ps' 
     387fig=project_od_env+'lhf_validation_scatter_2000_2009.ps' 
    389388spawn, 'mv '+psdir+'idl.ps '+fig 
    390389spawn, 'gv '+fig 
  • trunk/src/paper01/fig8/shf_validation_scatter_2000_2009.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    2929; 
    3030;       shf_validation_scatter_2000_2009 [shape=box, 
     
    4040; ======== 
    4141; 
    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` 
    4545; 
    4646; :func:`x_site_location` 
     
    5555; :: 
    5656; 
    57 ;  IDL> @tropflux_init 
    5857;  IDL> date1=19890101L 
    5958;  IDL> date2=20091231L 
     
    9392pro shf_validation_scatter_2000_2009, date1, date2 
    9493@cm_general 
    95 @cm_tropflux 
     94@cm_project 
    9695reinitplt, /z,/invert 
    9796key_portrait = 1 
     
    120119close,/all 
    121120 
    122 fi_shf_erai=tropflux_id_env+'shf_2000_2009_erai_v52.txt' 
     121fi_shf_erai=project_id_env+'shf_2000_2009_erai_v52.txt' 
    123122openw,1,fi_shf_erai 
    124 fi_shf_trop=tropflux_id_env+'shf_2000_2009_trop_v52.txt' 
     123fi_shf_trop=project_id_env+'shf_2000_2009_trop_v52.txt' 
    125124openw,2,fi_shf_trop 
    126 fi_shf_oaflx=tropflux_id_env+'shf_2000_2009_oaflx_v52.txt' 
     125fi_shf_oaflx=project_id_env+'shf_2000_2009_oaflx_v52.txt' 
    127126openw,3,fi_shf_oaflx 
    128 fi_shf_ncep=tropflux_id_env+'shf_2000_2009_ncep_v52.txt' 
     127fi_shf_ncep=project_id_env+'shf_2000_2009_ncep_v52.txt' 
    129128openw,4,fi_shf_ncep 
    130129 
    131 fi_shf_ncep1=tropflux_id_env+'shf_2000_2009_ncep1_v52.txt' 
     130fi_shf_ncep1=project_id_env+'shf_2000_2009_ncep1_v52.txt' 
    132131openw,5,fi_shf_ncep1 
    133132 
     
    141140;; first reading the whole ERAI uncorrected and corrected data 
    142141 
    143 file=tropflux_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
     142file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    144143initncdf, file 
    145144unc=read_ncdf('shf',date1,date2,file=file,/nostr) 
    146145help, unc 
    147146 
    148 file=tropflux_id_env+'TropFlux_19890101_20091231_v51.nc' 
     147file=project_id_env+'TropFlux_19890101_20091231_v51.nc' 
    149148initncdf, file 
    150149cor=read_ncdf('shf',date1,date2,file=file,/nostr) 
     
    152151help, cor 
    153152 
    154 file=tropflux_id_env+'shf_oafluxgrid_1985_2009.nc' 
     153file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    155154initncdf, file 
    156155oaf=read_ncdf("shf", date1, date2, file=file,/nostr) 
    157156help, oaf 
    158157 
    159 fi=tropflux_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
     158fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    160159initncdf, fi 
    161160nce=read_ncdf("shf", date1, date2, file=fi,/nostr) 
    162161help, nce 
    163162 
    164 file=tropflux_id_env+'fluxe_ncep1_19890101_20091231.nc' 
     163file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 
    165164initncdf, file 
    166165nce1=-1*read_ncdf("shf", date1, date2, file=file,/nostr) 
     
    228227close,/all 
    229228 
    230 fi_shf_erai=tropflux_id_env+'shf_2000_2009_erai_v52.txt' 
     229fi_shf_erai=project_id_env+'shf_2000_2009_erai_v52.txt' 
    231230res=read_ascii(fi_shf_erai,data_start=1) 
    232231ff=res.field1 
     
    260259 
    261260 
    262 fi_shf_trop=tropflux_id_env+'shf_2000_2009_trop_v52.txt' 
     261fi_shf_trop=project_id_env+'shf_2000_2009_trop_v52.txt' 
    263262res=read_ascii(fi_shf_trop,data_start=1) 
    264263ff=res.field1 
     
    292291 
    293292 
    294 fi_shf_oaflx=tropflux_id_env+'shf_2000_2009_oaflx_v52.txt' 
     293fi_shf_oaflx=project_id_env+'shf_2000_2009_oaflx_v52.txt' 
    295294res=read_ascii(fi_shf_oaflx,data_start=1) 
    296295ff=res.field1 
     
    323322oplot, [-5,25], [-5,25] 
    324323 
    325 fi_shf_ncep=tropflux_id_env+'shf_2000_2009_ncep_v52.txt' 
     324fi_shf_ncep=project_id_env+'shf_2000_2009_ncep_v52.txt' 
    326325res=read_ascii(fi_shf_ncep,data_start=1) 
    327326ff=res.field1 
     
    354353oplot, [-5,25], [-5,25] 
    355354 
    356 fi_shf_ncep1=tropflux_id_env+'shf_2000_2009_ncep1_v52.txt' 
     355fi_shf_ncep1=project_id_env+'shf_2000_2009_ncep1_v52.txt' 
    357356res=read_ascii(fi_shf_ncep1,data_start=1) 
    358357ff=res.field1 
     
    387386closeps 
    388387 
    389 fig=tropflux_od_env+'shf_validation_scatter_2000_2009.ps' 
     388fig=project_od_env+'shf_validation_scatter_2000_2009.ps' 
    390389spawn, 'mv '+psdir+'idl.ps '+fig 
    391390spawn, 'gv '+fig 
  • trunk/src/paper01/fig9/lwr_validation_scatter_2000_2007.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    3131; 
    3232;       lwr_validation_scatter_2000_2007 [shape=box, 
     
    4242; ======== 
    4343; 
    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` 
    4848; 
    4949; :func:`x_site_location` 
     
    5858; :: 
    5959; 
    60 ;  IDL> @tropflux_init 
    6160;  IDL> date1=19890101L 
    6261;  IDL> date2=20091231L 
     
    9695pro lwr_validation_scatter_2000_2007, date1, date2 
    9796@cm_general 
    98 @cm_tropflux 
     97@cm_project 
    9998reinitplt, /z,/invert 
    10099key_portrait = 1 
     
    126125close,/all 
    127126 
    128 fi_lwr_erai=tropflux_id_env+'lwr_2000_2007_erai.txt' 
     127fi_lwr_erai=project_id_env+'lwr_2000_2007_erai.txt' 
    129128openw,1,fi_lwr_erai 
    130 fi_lwr_trop=tropflux_id_env+'lwr_2000_2007_trop.txt' 
     129fi_lwr_trop=project_id_env+'lwr_2000_2007_trop.txt' 
    131130openw,2,fi_lwr_trop 
    132 fi_lwr_oaflx=tropflux_id_env+'lwr_2000_2007_oaflx.txt' 
     131fi_lwr_oaflx=project_id_env+'lwr_2000_2007_oaflx.txt' 
    133132openw,3,fi_lwr_oaflx 
    134 fi_lwr_ncep=tropflux_id_env+'lwr_2000_2007_ncep.txt' 
     133fi_lwr_ncep=project_id_env+'lwr_2000_2007_ncep.txt' 
    135134openw,4,fi_lwr_ncep 
    136 fi_lwr_ncep1=tropflux_id_env+'lwr_2000_2007_ncep1.txt' 
     135fi_lwr_ncep1=project_id_env+'lwr_2000_2007_ncep1.txt' 
    137136openw,5,fi_lwr_ncep1 
    138 fi_lwr_clark=tropflux_id_env+'lwr_2000_2007_clark.txt' 
     137fi_lwr_clark=project_id_env+'lwr_2000_2007_clark.txt' 
    139138openw,6,fi_lwr_clark 
    140139 
     
    148147;; first reading the whole ERAI uncorrected and corrected data 
    149148 
    150 file=tropflux_id_env+'erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc' 
     149file=project_id_env+'erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc' 
    151150initncdf, file 
    152151unc=read_ncdf('lwr',date1,date2,file=file,/nostr) 
    153152help, unc 
    154153 
    155 file=tropflux_id_env+'TropFlux_lwr_19890101_20091231.nc" 
     154file=project_id_env+'TropFlux_lwr_19890101_20091231.nc" 
    156155initncda, file 
    157156cor=read_ncdf('lwr',date1,date2,file=file,/nostr) & cor=-1*cor 
    158157help, cor 
    159158 
    160 file=tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc' 
     159file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    161160initncdf, file 
    162161oaf=read_ncdf("lwr", date1, date2, file=file,/nostr) 
    163162help, oaf 
    164163 
    165 fi=tropflux_id_env+'NCEP2_flux_19890101_20090729.nc' 
     164fi=project_id_env+'NCEP2_flux_19890101_20090729.nc' 
    166165initncdf, fi 
    167166nce=read_ncdf("lwr", date1, date2, file=fi,/nostr) ;;  & nce=-1*nce 
    168167help, nce 
    169168 
    170 file=tropflux_id_env+'fluxe_ncep1_19890101_20091231.nc' 
     169file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 
    171170initncdf, file 
    172171nce1=-1*read_ncdf("lwr", date1, date2, file=file,/nostr) 
    173172help, nce1 
    174173 
    175 file=tropflux_id_env+'TropFlux_19890101_20091231.nc' 
     174file=project_id_env+'TropFlux_19890101_20091231.nc' 
    176175initncdf, file 
    177176clark=-1*read_ncdf("lwr", date1, date2, file=file,/nostr) 
     
    245244close,/all 
    246245 
    247 fi_lwr_erai=tropflux_id_env+'lwr_2000_2007_erai.txt' 
     246fi_lwr_erai=project_id_env+'lwr_2000_2007_erai.txt' 
    248247res=read_ascii(fi_lwr_erai,data_start=1) 
    249248ff=res.field1 
     
    278277significance_test, mean_tao, mean_erai 
    279278 
    280 fi_lwr_trop=tropflux_id_env+'lwr_2000_2007_trop.txt' 
     279fi_lwr_trop=project_id_env+'lwr_2000_2007_trop.txt' 
    281280res=read_ascii(fi_lwr_trop,data_start=1) 
    282281ff=res.field1 
     
    311310significance_test, mean_tao, mean_trop 
    312311 
    313 fi_lwr_oaflx=tropflux_id_env+'lwr_2000_2007_oaflx.txt' 
     312fi_lwr_oaflx=project_id_env+'lwr_2000_2007_oaflx.txt' 
    314313res=read_ascii(fi_lwr_oaflx,data_start=1) 
    315314ff=res.field1 
     
    344343significance_test, mean_tao, mean_oaf 
    345344 
    346 fi_lwr_ncep=tropflux_id_env+'lwr_2000_2007_ncep.txt' 
     345fi_lwr_ncep=project_id_env+'lwr_2000_2007_ncep.txt' 
    347346res=read_ascii(fi_lwr_ncep,data_start=1) 
    348347ff=res.field1 
     
    377376significance_test, mean_tao, mean_nce 
    378377 
    379 fi_lwr_ncep1=tropflux_id_env+'lwr_2000_2007_ncep1.txt' 
     378fi_lwr_ncep1=project_id_env+'lwr_2000_2007_ncep1.txt' 
    380379res=read_ascii(fi_lwr_ncep1,data_start=1) 
    381380ff=res.field1 
     
    410409significance_test, mean_tao, mean_nce 
    411410 
    412 fi_lwr_clark=tropflux_id_env+'lwr_2000_2007_clark.txt' 
     411fi_lwr_clark=project_id_env+'lwr_2000_2007_clark.txt' 
    413412res=read_ascii(fi_lwr_clark,data_start=1) 
    414413ff=res.field1 
     
    445444closeps 
    446445 
    447 fig=tropflux_od_env+'lwr_validation_scatter_2000_2007.ps' 
     446fig=project_od_env+'lwr_validation_scatter_2000_2007.ps' 
    448447spawn, 'mv '+psdir+'idl.ps '+fig 
    449448spawn, 'gv '+fig 
  • trunk/src/paper01/fig9/swr_validation_scatter_2000_2007.pro

    r46 r50  
    1515;       rankdir="LR", 
    1616;       ] 
    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"]; 
    3131; 
    3232;       swr_validation_scatter_2000_2007 [shape=box, 
     
    4242; ======== 
    4343; 
    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` 
    4747; 
    4848; :func:`x_site_location` 
     
    5757; :: 
    5858; 
    59 ;  IDL> @tropflux_init 
    6059;  IDL> date1=19890101L 
    6160;  IDL> date2=20091231L 
     
    9594pro swr_validation_scatter_2000_2007, date1, date2 
    9695@cm_genral 
    97 @cm_tropflux 
     96@cm_project 
    9897reinitplt, /z,/invert 
    9998key_portrait = 1 
     
    124123close,/all 
    125124 
    126 fi_swr_erai=tropflux_id_env+'swr_2000_2007_erai_v50.txt' 
     125fi_swr_erai=project_id_env+'swr_2000_2007_erai_v50.txt' 
    127126openw,1,fi_swr_erai 
    128 fi_swr_trop=tropflux_id_env+'swr_2000_2007_trop_v50.txt' 
     127fi_swr_trop=project_id_env+'swr_2000_2007_trop_v50.txt' 
    129128openw,2,fi_swr_trop 
    130 fi_swr_oaflx=tropflux_id_env+'swr_2000_2007_oaflx_v50.txt' 
     129fi_swr_oaflx=project_id_env+'swr_2000_2007_oaflx_v50.txt' 
    131130openw,3,fi_swr_oaflx 
    132 fi_swr_ncep=tropflux_id_env+'swr_2000_2007_ncep_v50.txt' 
     131fi_swr_ncep=project_id_env+'swr_2000_2007_ncep_v50.txt' 
    133132openw,4,fi_swr_ncep 
    134 fi_swr_ncep1=tropflux_id_env+'swr_2000_2007_ncep1_v50.txt' 
     133fi_swr_ncep1=project_id_env+'swr_2000_2007_ncep1_v50.txt' 
    135134openw,5,fi_swr_ncep1 
    136 fi_swr_olr=tropflux_id_env+'swr_2000_2007_olr_v50.txt' 
     135fi_swr_olr=project_id_env+'swr_2000_2007_olr_v50.txt' 
    137136openw,6,fi_swr_olr 
    138137 
     
    147146;; first reading the whole ERAI uncorrected and corrected data 
    148147 
    149 file=tropflux_id_env+'erai_fluxes_20000101_20090801_TROP_oafluxgrid.nc' 
     148file=project_id_env+'erai_fluxes_20000101_20090801_TROP_oafluxgrid.nc' 
    150149initncdf, file 
    151150unc=read_ncdf('swr',date1,date2,file=file,/nostr) & unc=-1*unc 
    152151help, unc 
    153152 
    154 file=tropflux_id_env+'TropFlux_swr_19890101_20071231_DT_v51.nc' 
     153file=project_id_env+'TropFlux_swr_19890101_20071231_DT_v51.nc' 
    155154initncdf, file 
    156155cor=read_ncdf('swr',date1,date2,file=file,/nostr) 
    157156help, cor 
    158157 
    159 file=tropflux_id_env+'swr_oafluxgrid_1985_2007.nc' 
     158file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    160159initncdf, file 
    161160oaf=read_ncdf("swr", date1, date2, file=file,/nostr) 
    162161help, oaf 
    163162 
    164 fi=tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
     163fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    165164initncdf, fi 
    166165nce=read_ncdf("swr", date1, date2, file=fi,/nostr) & nce=0.94*nce 
    167166help, nce 
    168167 
    169 file=tropflux_id_env+'fluxe_ncep1_19890101_20091231.nc' 
     168file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 
    170169initncdf, file 
    171170nce1=read_ncdf("swr", date1, date2, file=file,/nostr) 
    172171help, nce1 
    173172 
    174 file=tropflux_id_env+'TropFlux_swr_19890101_20091231_NRT_v50.nc' 
     173file=project_id_env+'TropFlux_swr_19890101_20091231_NRT_v50.nc' 
    175174initncdf, file 
    176175sw_olr=read_ncdf("sw", date1-1, date2, file=file,/nostr) 
     
    244243close,/all 
    245244 
    246 fi_swr_erai=tropflux_id_env+'swr_2000_2007_erai_v50.txt' 
     245fi_swr_erai=project_id_env+'swr_2000_2007_erai_v50.txt' 
    247246res=read_ascii(fi_swr_erai,data_start=1) 
    248247ff=res.field1 
     
    276275 
    277276 
    278 fi_swr_trop=tropflux_id_env+'swr_2000_2007_trop_v50.txt' 
     277fi_swr_trop=project_id_env+'swr_2000_2007_trop_v50.txt' 
    279278res=read_ascii(fi_swr_trop,data_start=1) 
    280279ff=res.field1 
     
    308307 
    309308 
    310 fi_swr_oaflx=tropflux_id_env+'swr_2000_2007_oaflx_v50.txt' 
     309fi_swr_oaflx=project_id_env+'swr_2000_2007_oaflx_v50.txt' 
    311310res=read_ascii(fi_swr_oaflx,data_start=1) 
    312311ff=res.field1 
     
    340339 
    341340 
    342 fi_swr_ncep=tropflux_id_env+'swr_2000_2007_ncep_v50.txt' 
     341fi_swr_ncep=project_id_env+'swr_2000_2007_ncep_v50.txt' 
    343342res=read_ascii(fi_swr_ncep,data_start=1) 
    344343ff=res.field1 
     
    372371 
    373372 
    374 fi_swr_ncep1=tropflux_id_env+'swr_2000_2007_ncep1_v50.txt' 
     373fi_swr_ncep1=project_id_env+'swr_2000_2007_ncep1_v50.txt' 
    375374res=read_ascii(fi_swr_ncep1,data_start=1) 
    376375ff=res.field1 
     
    404403 
    405404 
    406 fi_swr_olr=tropflux_id_env+'swr_2000_2007_olr_v50.txt' 
     405fi_swr_olr=project_id_env+'swr_2000_2007_olr_v50.txt' 
    407406res=read_ascii(fi_swr_olr,data_start=1) 
    408407ff=res.field1 
     
    438437closeps 
    439438 
    440 fig=tropflux_od_env+'swr_validation_scatter_2000_2007.ps' 
     439fig=project_od_env+'swr_validation_scatter_2000_2007.ps' 
    441440spawn, 'mv '+psdir+'idl.ps '+fig 
    442441spawn, 'gv '+fig 
  • trunk/src/plogd.sh

    r2 r50  
    77# 
    88# ===================================================================================================== 
    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}` 
    1010# ===================================================================================================== 
    1111# 
     
    2121# =========== 
    2222# 
    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}`. 
    2424# 
    2525# Print is done on the default printer. 
     
    2828# ======== 
    2929# 
    30 # :ref:`tropflux_profile.sh` 
     30# :ref:`project_profile.sh` 
    3131# 
    3232# :ref:`dlogd.sh` 
     
    7878unset status 
    7979# 
    80 log=$(find ${TROPFLUX_LOG} -name "${1}.log.????????T??????Z" | sort | \ 
     80log=$(find ${PROJECT_LOG} -name "${1}.log.????????T??????Z" | sort | \ 
    8181tail -n 1) 
    8282tmp=${?} 
     
    8585   if [ "${log}" = "" ] 
    8686   then 
    87       echo "${command} : eee : no release of ${TROPFLUX_LOG}/${1}.log" >&2 
     87      echo "${command} : eee : no release of ${PROJECT_LOG}/${1}.log" >&2 
    8888      exit 1 
    8989   else 
  • trunk/src/plot_tropflux.pro

    r49 r50  
    11;+ 
    2 ; 
    32; ======================================= 
    43; plot_tropflux.pro -- Plot TropFlux data 
     
    76; .. function:: plot_tropflux(tropflux_varname) 
    87; 
    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; 
    1313; 
    1414; .. graphviz:: 
     
    1818;       rankdir="LR", 
    1919;       ] 
    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"]; 
    2626; 
    2727;       plot_tropflux [shape=box, 
     
    2929;       color=blue, 
    3030;       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} 
    3434; 
    3535;      } 
     
    3838; ======== 
    3939; 
    40 ; To plot ++ of q2m from :file:`${TROPFLUX}/TropFlux_q2m_19890101_20091231.nc`:: 
    41 ; 
    42 ;    IDL> @tropflux_init 
     40; To plot ++ of q2m from :file:`${PROJECT}/TropFlux_q2m_19890101_20091231.nc`:: 
     41; 
     42;    IDL> @project_init 
    4343;    IDL> tropflux_varname='q2m' 
    4444;    IDL> status = plot_tropflux(tropflux_varname) 
     
    4646; **status** is 0 if everything is ok, -1 otherwise 
    4747; 
    48 ; :file:`${TROPFLUX_OD}/plot_tropflux_q2m_year.png` and 
    49 ; :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_init 
     48; :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 
    5454;    IDL> tropflux_varname='t2m' 
    5555;    IDL> status = plot_tropflux(tropflux_varname) 
    5656; 
    57 ; Same idea for sst from :file:`${TROPFLUX}/TropFlux_sst_19890101_20091231.nc`:: 
    58 ; 
    59 ;    IDL> @tropflux_init 
     57; Same idea for sst from :file:`${PROJECT}/TropFlux_sst_19890101_20091231.nc`:: 
     58; 
     59;    IDL> @project_init 
    6060;    IDL> tropflux_varname='sst' 
    6161;    IDL> status = plot_tropflux(tropflux_varname) 
    6262; 
    63 ; Same idea for ws from :file:`${TROPFLUX}/TropFlux_ws_19890101_20091231.nc`:: 
    64 ; 
    65 ;    IDL> @tropflux_init 
     63; Same idea for ws from :file:`${PROJECT}/TropFlux_ws_19890101_20091231.nc`:: 
     64; 
     65;    IDL> @project_init 
    6666;    IDL> tropflux_varname='ws' 
    6767;    IDL> status = plot_tropflux(tropflux_varname) 
    6868;  
    69 ; Same idea for swr from :file:`${TROPFLUX}/TropFlux_19890101_20091231.nc`:: 
    70 ; 
    71 ;    IDL> @tropflux_init 
     69; Same idea for swr from :file:`${PROJECT}/TropFlux_19890101_20091231.nc`:: 
     70; 
     71;    IDL> @project_init 
    7272;    IDL> tropflux_varname='swr' 
    7373;    IDL> status = plot_tropflux(tropflux_varname) 
    7474; 
    75 ; Same idea for lwr from :file:`${TROPFLUX}/TropFlux_19890101_20091231.nc`:: 
    76 ; 
    77 ;    IDL> @tropflux_init 
     75; Same idea for lwr from :file:`${PROJECT}/TropFlux_19890101_20091231.nc`:: 
     76; 
     77;    IDL> @project_init 
    7878;    IDL> tropflux_varname='lwr' 
    7979;    IDL> status = plot_tropflux(tropflux_varname) 
    8080; 
    81 ; Same idea for lhf from :file:`${TROPFLUX}/TropFlux_19890101_20091231.nc`:: 
    82 ; 
    83 ;    IDL> @tropflux_init 
     81; Same idea for lhf from :file:`${PROJECT}/TropFlux_19890101_20091231.nc`:: 
     82; 
     83;    IDL> @project_init 
    8484;    IDL> tropflux_varname='lhf' 
    8585;    IDL> status = plot_tropflux(tropflux_varname) 
    8686; 
    87 ; Same idea for shf from :file:`${TROPFLUX}/TropFlux_19890101_20091231.nc`:: 
    88 ; 
    89 ;    IDL> @tropflux_init 
     87; Same idea for shf from :file:`${PROJECT}/TropFlux_19890101_20091231.nc`:: 
     88; 
     89;    IDL> @project_init 
    9090;    IDL> tropflux_varname='shf' 
    9191;    IDL> status = plot_tropflux(tropflux_varname) 
     
    9696; :ref:`data_out` 
    9797; 
    98 ; :ref:`tropflux_profile.sh` 
    99 ; :ref:`tropflux_init.pro` 
     98; :ref:`project_profile.sh` 
     99; :ref:`project_init.pro` 
    100100; 
    101101; :func:`report <saxo:report>` 
     
    169169@cm_4mesh 
    170170@cm_4data 
     171@cm_project 
    171172; 
    172173status=-1 
     
    210211; check for input file 
    211212; 
    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 
     214CASE project_id_env OF 
    215215    ''  :  BEGIN 
    216      msg = 'eee : ${TROPFLUX_ID} is not defined' 
     216     msg = 'eee : ${PROJECT_ID} is not defined' 
    217217     ras = report(msg) 
    218218     STOP 
    219219           END 
    220220ELSE: BEGIN 
    221      msg = 'iii : ${TROPFLUX_ID} is ' + tropflux_id_env 
     221     msg = 'iii : ${PROJECT_ID} is ' + project_id_env 
    222222     ras = report(msg) 
    223223       END 
    224224ENDCASE 
    225225; 
    226 iodirin = isadirectory(tropflux_id_env) 
    227 ; 
    228 ; existence and protection of ${TROPFLUX_ID} 
     226iodirin = isadirectory(project_id_env) 
     227; 
     228; existence and protection of ${PROJECT_ID} 
    229229IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 
    230230   msg = 'eee : the directory' + iodirin  + ' is not accessible.' 
     
    243243print, fullfilename_in[0] 
    244244; 
    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 
     246CASE project_od_env OF 
    248247  '' : BEGIN 
    249    msg = 'eee : ${TROPFLUX_OD} is not defined' 
     248   msg = 'eee : ${PROJECT_OD} is not defined' 
    250249   ras = report(msg) 
    251250   STOP 
    252251       END 
    253252ELSE: BEGIN 
    254    msg = 'iii : ${TROPFLUX_OD} is ' + tropflux_od_env 
     253   msg = 'iii : ${PROJECT_OD} is ' + project_od_env 
    255254   ras = report(msg) 
    256255        END 
     
    258257; 
    259258; check if output data will be possible 
    260 iodirout = isadirectory(tropflux_od_env) 
     259iodirout = isadirectory(project_od_env) 
    261260; 
    262261; existence and protection 
  • trunk/src/project_init.pro

    r47 r50  
    11;+ 
    22; 
    3 ; .. _tropflux_init.pro: 
     3; .. _project_init.pro: 
    44; 
    55; ========================================== 
    6 ; tropflux_init.pro -- init SAXO environment 
     6; project_init.pro -- init SAXO environment 
    77; ========================================== 
    88; 
     
    1414; It ++:: 
    1515; 
    16 ;   $ idl -startupfile tropflux_init.pro 
     16;   $ idl -startupfile project_init.pro 
    1717; 
    1818; or:: 
    19 ;   $ idl -IDL_STARTUP tropflux_init.pro 
     19;   $ idl -IDL_STARTUP project_init.pro 
    2020; 
    2121; or:: 
    2222; 
    2323;  $ IDL 
    24 ;  IDL> @tropflux_init 
     24;  IDL> @project_init 
    2525; 
    2626; 
     
    2828; ======== 
    2929; 
    30 ; :ref:`tropflux_profile.sh` 
     30; :ref:`project_profile.sh` 
    3131; 
    3232; TODO 
     
    3535; learn to write IF .. ELSE in a @file 
    3636; 
    37 ; check idl -IDL_STARTUP tropflux_init.pro not ok now on cratos 
     37; check idl -IDL_STARTUP project_init.pro not ok now on cratos 
    3838; 
    3939; EVOLUTIONS 
     
    4141; 
    4242; $URL$ 
     43; 
     44; - fplod 20110429T081938Z aedon.locean-ipsl.upmc.fr (Darwin) 
     45; 
     46;   * rename to project_init.pro (more generic) 
    4347; 
    4448; - fplod 20110413T151541Z cratos.locean-ipsl.upmc.fr (Linux) 
     
    5357; 
    5458;   * remove fplod/cratos dependencies use $TROPFLUX*; use SAXO_SRC; 
    55 ;     add cm_tropflux 
     59;     add cm_project 
    5660; 
    5761; - fplod 20110408T131625Z cratos.locean-ipsl.upmc.fr (Linux) 
     
    6367; SAXO environment 
    6468saxo_dir_env=GETENV('SAXO_DIR') 
    65 ; tropflux environment 
    66 @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 
     71project_env_temp=GETENV('PROJECT') 
     72project_id_env_temp=GETENV('PROJECT_ID') 
     73project_od_env_temp=GETENV('PROJECT_OD') 
    7074; 
    7175; path definition 
    72 ; 
    73 !path = expand_path('+' + tropflux_env + '/src') $ 
     76!path = expand_path('+' + project_env_temp + '/src') $ 
    7477      + path_sep(/search_path) + expand_path('+' + saxo_dir_env) $ 
    7578      + path_sep(/search_path) + expand_path('+' + !dir) 
     79; 
     80; project environment #2 
     81@cm_project 
     82project_env=project_env_temp 
     83project_id_env=project_id_env_temp 
     84project_od_env=project_od_env_temp 
    7685; 
    7786; compatibility with the old version 
     
    9099; define default directories 
    91100; 
    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') 
     101homedir = isadirectory(project_env + '/src/', title = 'Select the default HOME directory') 
     102iodir = isadirectory(project_id_env, title = 'Select the default IO directory') 
     103psdir = isadirectory(project_od_env, title = 'Select the default postscripts directory') 
     104imagedir = isadirectory(project_od_env, title = 'Select the default images directory') 
     105animdir = isadirectory(project_od_env, title = 'Select the default animations directory') 
    97106; 
    98107; define printer parameters 
  • trunk/src/project_profile.sh

    r47 r50  
    1 #! /bin/sh -x 
     1#! /bin/sh 
    22#+ 
    33# 
    4 # .. program:: tropflux_profile.sh 
    5 # 
    6 # .. _tropflux_profile.sh: 
     4# .. program:: project_profile.sh 
     5# 
     6# .. _project_profile.sh: 
    77# 
    88# ================================================== 
    9 # tropflux_profile.sh -- define TROPFLUX environment 
     9# project_profile.sh -- define PROJECT environment 
    1010# ================================================== 
    1111# 
     
    1515# Online usage:: 
    1616# 
    17 #  $ . ./tropflux_profile.sh -d directory -i indir -o outdir -t tempdir -s saxo_dir 
     17#  $ . ./project_profile.sh -d directory -i indir -o outdir -t tempdir -s saxo_dir 
    1818# 
    1919# In ${HOME}/.profile, add the following line:: 
    2020# 
    21 #  . tropflux_profile.sh -d directory  -i indir -o outdir -t tempdir -s saxo_dir 
     21#  . project_profile.sh -d directory  -i indir -o outdir -t tempdir -s saxo_dir 
    2222# 
    2323# DESCRIPTION 
     
    3030# .. option:: -s  <saxo_dir> 
    3131# 
    32 # define TROPFLUX environment 
    33 # 
    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. 
    4141# 
    4242# ${SAXO_DIR} is the base directory of SAXO tools 
    4343# 
    44 # PATH is completed with ${TROPFLUX}. 
     44# IDL_STARTUP is set to tell IDL where find tools. 
     45# 
     46# PATH is completed with ${PROJECT}. 
    4547# 
    4648# SEE ALSO 
    4749# ======== 
    4850# 
    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` 
    5255# 
    5356# EXAMPLES 
     
    5760# 
    5861#  $ cd /usr/home/fplod/incas/tropflux/tropflux_ws/ 
    59 #  $ . ./src/tropflux_profile.sh \ 
     62#  $ . ./src/project_profile.sh \ 
    6063#    -d $(pwd) \ 
    6164#    -i /usr/temp/${LOGNAME}/tropflux_d/ \ 
     
    6770# 
    6871#  $ cd ${HOME}/incas/tropflux/tropflux_ws/ 
    69 #  $ . ./src/tropflux_profile.sh \ 
     72#  $ . ./src/project_profile.sh \ 
    7073#    -d $(pwd) \ 
    7174#    -i /usr/temp/${LOGNAME}/tropflux_d/ \ 
     
    7780# 
    7881#  $ cd ${HOME}/tropflux/ 
    79 #  $ . ./src/tropflux_profile.sh \ 
     82#  $ . ./src/project_profile.sh \ 
    8083#   -d $(pwd) \ 
    8184#   -i /homedata/${LOGNAME}/tropflux_d/ \ 
     
    97100# EVOLUTIONS 
    98101# ========== 
     102# 
     103# - fplod 20110429T090524Z aedon.locean-ipsl.upmc.fr (Darwin) 
     104# 
     105#   * set IDL_STARTUP 
    99106# 
    100107# - fplod 20110413T151541Z cratos.locean-ipsl.upmc.fr (Linux) 
     
    121128# 
    122129# as this script might be launch in .profile, command is forced. 
    123 command=tropflux_profile.sh 
     130command=project_profile.sh 
    124131# 
    125132usage=" Usage : ${command} -d directory -i indir -o outdir -t tempdir -s saxo_dir" 
     
    180187fi 
    181188# 
    182 TROPFLUX=${directory} 
    183 export TROPFLUX 
     189PROJECT=${directory} 
     190export PROJECT 
    184191unset drectory 
    185192# 
    186 # add TROPFLUX tools to PATH 
     193# add PROJECT tools to PATH 
    187194# if not already done 
    188 suppath=$(echo ${TROPFLUX}/src | tr -s "/") 
     195suppath=$(echo ${PROJECT}/src | tr -s "/") 
    189196echo ${PATH} | grep -q "${suppath}:" 
    190197test_path=${?} 
     
    199206unset test_path 
    200207# 
    201 # add TROPFLUX manuals to MANPATH 
     208# add PROJECT manuals to MANPATH 
    202209# if not already done 
    203 suppath=$(echo ${TROPFLUX}/doc/man | tr -s "/") 
     210suppath=$(echo ${PROJECT}/doc/man | tr -s "/") 
    204211echo ${MANPATH} | grep -q "${suppath}:" 
    205212test_manpath=${?} 
     
    215222unset suppath 
    216223# 
    217 TROPFLUX_LOG=${tempdir} 
    218 export TROPFLUX_LOG 
     224PROJECT_LOG=${tempdir} 
     225export PROJECT_LOG 
    219226unset tempdir 
    220 if [ ! -d ${TROPFLUX_LOG} ] 
    221 then 
    222    mkdir -p ${TROPFLUX_LOG} 
     227if [ ! -d ${PROJECT_LOG} ] 
     228then 
     229   mkdir -p ${PROJECT_LOG} 
    223230   status=${?} 
    224231   if [ ${status} -ne 0 ] 
    225232   then 
    226       echo "${command} : eee : can not create \${TROPFLUX_LOG}" 
     233      echo "${command} : eee : can not create \${PROJECT_LOG}" 
    227234      # nb : no exit because this file should be launched by login process 
    228235   else 
    229       echo "${command} : iii : creation of \${TROPFLUX_LOG}" 
     236      echo "${command} : iii : creation of \${PROJECT_LOG}" 
    230237   fi 
    231238   unset status 
    232239fi 
    233 # check for permission on TROPFLUX_LOG 
    234 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_LOG 
    241 if [ ! -w ${TROPFLUX_LOG} ] 
    242 then 
    243    echo " eee : ${TROPFLUX_LOG} not writable" 
     240# check for permission on PROJECT_LOG 
     241if [ ! -x ${PROJECT_LOG} ] 
     242then 
     243   echo " eee : ${PROJECT_LOG} not reachable" 
     244   # nb : no exit because this file should be launched by login process 
     245fi 
     246# 
     247# check for permission on PROJECT_LOG 
     248if [ ! -w ${PROJECT_LOG} ] 
     249then 
     250   echo " eee : ${PROJECT_LOG} not writable" 
    244251   # nb : no exit because this file shouldreachable be launched by login process 
    245252fi 
     
    249256# 
    250257# io directories 
    251 TROPFLUX_ID=${indir} 
    252 export TROPFLUX_ID 
     258PROJECT_ID=${indir} 
     259export PROJECT_ID 
    253260unset 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_ID 
    260 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_OD 
     261if [ ! -d ${PROJECT_ID} ] 
     262then 
     263   mkdir -p ${PROJECT_ID} 
     264   echo "${command} : iii : creation of \${PROJECT_ID}" 
     265fi 
     266# check for permission on PROJECT_ID 
     267if [ ! -x ${PROJECT_ID} ] 
     268then 
     269   echo " eee : ${PROJECT_ID} not reachable" 
     270   # nb : no exit because this file should be launched by login process 
     271fi 
     272# 
     273PROJECT_OD=${outdir} 
     274export PROJECT_OD 
    268275unset 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_OD 
    275 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" 
     276if [ ! -d ${PROJECT_OD} ] 
     277then 
     278    mkdir -p ${PROJECT_OD} 
     279    echo "${command} : iii : creation of \${PROJECT_OD}" 
     280fi 
     281# check for permission on PROJECT_OD 
     282if [ ! -x ${PROJECT_OD} ] 
     283then 
     284   echo " eee : ${PROJECT_OD} not reachable" 
     285   # nb : no exit because this file should be launched by login process 
     286fi 
     287if [ ! -w ${PROJECT_OD} ] 
     288then 
     289   echo " eee : ${PROJECT_OD} not writable" 
    283290   # nb : no exit because this file should be launched by login process 
    284291fi 
     
    288295unset saxo_dir 
    289296# 
     297# IDL startup 
     298IDL_STARTUP=${PROJECT}/src/project_init.pro 
     299export IDL_STARTUP 
     300# 
    290301# end 
    291302unset command 
  • trunk/src/q2m_correction_ncdf.pro

    r20 r50  
    2222;           color=blue, 
    2323;           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"]; 
    2525; 
    2626;           {file_in} -> {q2m_correction_ncdf} -> {ncfile} 
     
    4747; ==== 
    4848; 
    49 ; hard coded directory - usage of ${TROPFLUX_ID} 
     49; hard coded directory - usage of ${PROJECT_ID} 
    5050; 
    5151; coding rules 
  • trunk/src/rh_to_spechum.pro

    r12 r50  
    2626; ==== 
    2727; 
    28 ; hard coded directory - usage of ${TROPFLUX_ID} 
     28; hard coded directory - usage of ${PROJECT_ID} 
    2929; 
    3030; coding rules 
  • trunk/src/sst_correction_ncdf.pro

    r31 r50  
    2222;           color=blue, 
    2323;           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"]; 
    2525; 
    2626;           {file_sst} -> {sst_correction_ncdf} -> {ncfile} 
     
    4848; ==== 
    4949; 
    50 ; hard coded directory - usage of ${TROPFLUX_ID} 
     50; hard coded directory - usage of ${PROJECT_ID} 
    5151; 
    5252; coding rules 
  • trunk/src/t2m_correction_ncdf.pro

    r28 r50  
    1010; applied. 
    1111; 
    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`. 
    1313; It contains air temperature at 2 m height from ERA-I interpolated on OAFLUX grid. 
    1414; 
    1515; 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`. 
    1717; 
    1818;     .. graphviz:: 
     
    2323;           ] 
    2424; 
    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"]; 
    2828; 
    2929;           t2m_correction_ncdf [shape=box, 
     
    3131;           color=blue, 
    3232;           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"]; 
    3434; 
    3535;           {file_t2m} -> {t2m_correction_ncdf} -> {ncfile} 
     
    4040; ======== 
    4141; 
    42 ; :ref:`tropflux_profile.sh` 
     42; :ref:`project_profile.sh` 
    4343; 
    4444; :ref:`mooring_corrections` 
     
    125125; 
    126126@common 
     127@cm_project 
     128; 
    127129; check for input directory 
    128130; 
    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 
     132CASE project_id_env OF 
    132133    ''  :  BEGIN 
    133      msg = 'eee : ${TROPFLUX_ID} is not defined' 
     134     msg = 'eee : ${PROJECT_ID} is not defined' 
    134135     ras = report(msg) 
    135136     STOP 
    136137           END 
    137138 ELSE: BEGIN 
    138      msg = 'iii : ${TROPFLUX_ID} is ' + tropflux_id_env 
     139     msg = 'iii : ${PROJECT_ID} is ' + project_id_env 
    139140     ras = report(msg) 
    140141       END 
    141142ENDCASE 
    142143; 
    143 iodirin = isadirectory(tropflux_id_env) 
    144 ; 
    145 ; existence and protection of ${TROPFLUX_ID} 
     144iodirin = isadirectory(project_id_env) 
     145; 
     146; existence and protection of ${PROJECT_ID} 
    146147IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN 
    147148   msg = 'eee : the directory' + iodirin  + ' is not accessible.' 
     
    162163   STOP 
    163164ENDIF 
    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 
     166CASE project_od_env OF 
    167167  '' : BEGIN 
    168          msg = 'eee : ${TROPFLUX_OD} is not defined' 
     168         msg = 'eee : ${PROJECT_OD} is not defined' 
    169169         ras = report(msg) 
    170170       STOP 
    171171       END 
    172172  ELSE: BEGIN 
    173           msg = 'iii : ${TROPFLUX_OD} is ' + tropflux_od_env 
     173          msg = 'iii : ${PROJECT_OD} is ' + project_od_env 
    174174          ras = report(msg) 
    175175        END 
     
    177177; 
    178178; check if output data will be possible 
    179 iodirout = isadirectory(tropflux_od_env) 
     179iodirout = isadirectory(project_od_env) 
    180180; 
    181181; existence and protection 
  • trunk/src/test/project_startup.m

    r47 r50  
    1 % TROPFLUX_STARTUP initialisation of matlab/octave environment for TROPFLUX project 
     1% PROJECT_STARTUP initialisation of matlab/octave environment for PROJECT project 
    22 
    33%+ 
    44% 
    5 % .. _tropflux_startup.m: 
     5% .. _project_startup.m: 
    66% 
    77% ================== 
    8 % tropflux_startup.m 
     8% project_startup.m 
    99% ================== 
    1010% 
    1111% ---------------------------------------------------------------- 
    12 % initialisation of matlab/octave environment for TROPFLUX project 
     12% initialisation of matlab/octave environment for PROJECT project 
    1313% ---------------------------------------------------------------- 
    1414% 
     
    1717% 
    1818% Define : 
    19 %  - path for matlab/octave commands used in TROPFLUX project 
     19%  - path for matlab/octave commands used in PROJECT project 
    2020%  - IO directories in global variables 
    2121% 
    2222% This file can be either run classicaly when current directory 
    23 % is ${TROPFLUX}:: 
     23% is ${PROJECT}:: 
    2424% 
    25 %  >> tropflux_startup 
     25%  >> project_startup 
    2626% 
    2727% 
     
    3535% ======== 
    3636% 
    37 % :ref:`tropflux_profile.sh` 
     37% :ref:`project_profile.sh` 
    3838% 
    3939% TODO 
     
    5555octave_minimal_version_required = '3.0.2'; 
    5656% 
    57 %disp('iii : adding path to TROPFLUX matlab tools') 
     57%disp('iii : adding path to PROJECT matlab tools') 
    5858% 
    59 % test if TROPFLUX environment set 
    60 global TROPFLUX; 
    61 TROPFLUX=getenv('TROPFLUX'); 
    62 %if ( isempty(TROPFLUX) ) 
    63 % error('eee : TROPFLUX environment not set'); 
     59% test if PROJECT environment set 
     60global PROJECT; 
     61PROJECT=getenv('PROJECT'); 
     62%if ( isempty(PROJECT) ) 
     63% error('eee : PROJECT environment not set'); 
    6464%else 
    65 % disp(['iii : TROPFLUX =' TROPFLUX]) 
     65% disp(['iii : PROJECT =' PROJECT]) 
    6666%end 
    6767% 
    6868% add path 
    69 addpath(TROPFLUX); 
     69addpath(PROJECT); 
    7070% 
    7171% IO directories 
    72 % test if TROPFLUX_ID environment set 
     72% test if PROJECT_ID environment set 
    7373 
    74 global TROPFLUX_ID; 
    75 TROPFLUX_ID=getenv('TROPFLUX_ID'); 
    76 %if ( isempty(TROPFLUX_ID) ) 
    77 % error('eee : TROPFLUX_ID environment not set'); 
     74global PROJECT_ID; 
     75PROJECT_ID=getenv('PROJECT_ID'); 
     76%if ( isempty(PROJECT_ID) ) 
     77% error('eee : PROJECT_ID environment not set'); 
    7878%end 
    7979% 
    80 % test if TROPFLUX_OD environment set 
    81 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 
     81global PROJECT_OD; 
     82PROJECT_OD=getenv('PROJECT_OD'); 
     83%if ( isempty(PROJECT_OD) ) 
     84% error('eee : PROJECT_OD environment not set'); 
    8585%end 
    8686% 
  • trunk/src/test/read.jnl

    r38 r50  
    1212! =========== 
    1313! 
    14 ! read TROPFLUX file ${TROPFLUX_D}/TropFlux_19890101_20091231.nc 
     14! read TROPFLUX file ${PROJECT_D}/TropFlux_19890101_20091231.nc 
    1515! 
    1616! plot the first time step of swr 
     
    102102!DEFINE VARIABLE filename = "TropFlux_" + yyyymmdd_b + "_" + yyyymmdd_e + ".nc" 
    103103DEFINE SYMBOL filename = TropFlux_($yyyymmdd_b)_($yyyymmdd_e).nc 
    104 ! ++ $TROPFLUX_D defini ? 
     104! ++ $PROJECT_D defini ? 
    105105!DEFINE SYMBOL tropflux_d = /usr/zeus/incas/fplod/tropflux_d/ 
    106106!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"} 
     108DEFINE SYMBOL tropflux_d = {spawn:"echo $PROJECT_ID"} 
    109109SHOW SYM tropflux_d 
    110110! DEFINE SYMBOL fullfilename = "$tropflux_d($filename)" 
  • trunk/src/test/read.m

    r31 r50  
    1414% =========== 
    1515%  
    16 % read TROPFLUX file ${TROPFLUX_D}/TropFlux_19890101_20091231.nc 
     16% read TROPFLUX file ${PROJECT_D}/TropFlux_19890101_20091231.nc 
    1717% 
    1818% plot ++ 
     
    6868global application_version; 
    6969 
    70 global TROPFLUX_ID; 
    71 global TROPFLUX_OD; 
     70global PROJECT_ID; 
     71global PROJECT_OD; 
    7272% 
    7373yyyymmdd_b=double(19890101); 
    7474yyyymmdd_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']); 
    7676% ++ Pb memoire fullfilename=([ '/Users/fplod/Downloads'  '/'  'TropFlux_' num2str(yyyymmdd_b,'%8.8d') '_' num2str(yyyymmdd_e,'%8.8d') '.nc' ]); 
    7777fullfilename=([ '/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  
    2020;           color=blue, 
    2121;           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"]; 
    2323; 
    2424;           {file_inout} -> {time_axe_modif_TropFlux} -> {file_inout} 
     
    4242; ==== 
    4343; 
    44 ; hard coded directory - usage of ${TROPFLUX_ID} 
     44; hard coded directory - usage of ${PROJECT_ID} 
    4545; 
    4646; coding rules 
  • trunk/src/tlogd.sh

    r2 r50  
    77# 
    88# ===================================================================================================== 
    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}` 
    1010# ===================================================================================================== 
    1111# 
     
    2121# =========== 
    2222# 
    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}` 
    2424# 
    2525# 
     
    2727# ======== 
    2828# 
    29 # :ref:`tropflux_profile.sh` 
     29# :ref:`project_profile.sh` 
    3030# 
    3131# :ref:`dlogd.sh` 
     
    6565   exit 1 
    6666fi 
    67 # check for ${TROPFLUX_LOG} definition 
    68 if [ "${TROPFLUX_LOG}" = "" ] 
     67# check for ${PROJECT_LOG} definition 
     68if [ "${PROJECT_LOG}" = "" ] 
    6969then 
    70    echo " eee : \${TROPFLUX_LOG} not defined" 
     70   echo " eee : \${PROJECT_LOG} not defined" 
    7171   exit 1 
    7272fi 
    7373# 
    74 # check for ${TROPFLUX_LOG} existence 
    75 if [ ! -d ${TROPFLUX_LOG} ] 
     74# check for ${PROJECT_LOG} existence 
     75if [ ! -d ${PROJECT_LOG} ] 
    7676then 
    77    echo " eee : ${TROPFLUX_LOG} not found" 
     77   echo " eee : ${PROJECT_LOG} not found" 
    7878   exit 1 
    7979fi 
    8080# 
    81 # check for permission access on TROPFLUX_LOG 
    82 if [ ! -x ${TROPFLUX_LOG} ] 
     81# check for permission access on PROJECT_LOG 
     82if [ ! -x ${PROJECT_LOG} ] 
    8383then 
    84    echo " eee : ${TROPFLUX_LOG} not reachable" 
     84   echo " eee : ${PROJECT_LOG} not reachable" 
    8585   exit 1 
    8686fi 
    8787# 
    88 log=$(find ${TROPFLUX_LOG} -name "${1}.log.????????T??????Z" 2> /dev/null | sort | \ 
     88log=$(find ${PROJECT_LOG} -name "${1}.log.????????T??????Z" 2> /dev/null | sort | \ 
    8989tail -n 1) 
    9090tmp=${?} 
     
    9393   if [ "${log}" = "" ] 
    9494   then 
    95       echo "${command} : eee : no release of ${TROPFLUX_LOG}/${1}.log" >&2 
     95      echo "${command} : eee : no release of ${PROJECT_LOG}/${1}.log" >&2 
    9696      exit 1 
    9797   else 
  • trunk/src/ws_correction_ncdf.pro

    r12 r50  
    1919;           color=blue, 
    2020;           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"]; 
    2222; 
    2323;           {file_in} -> {ws_correction_ncdf} -> {ncfile} 
     
    3838; ==== 
    3939; 
    40 ; hard coded directory - usage of ${TROPFLUX_ID} 
     40; hard coded directory - usage of ${PROJECT_ID} 
    4141; 
    4242; coding rules 
Note: See TracChangeset for help on using the changeset viewer.