Changeset 50 for trunk/src/interp_erai_sst_1989_2009.pro

Timestamp:

04/29/11 11:09:12 (13 years ago)

Author:

pinsard

Message:

replace TROPFLUX by PROJECT

File:

• trunk/src/interp_erai_sst_1989_2009.pro (modified) (5 diffs)

trunk/src/interp_erai_sst_1989_2009.pro

@@ -15 +15 @@
 ;           file_in [shape=ellipse,fontname=Courier,label="/Volumes/PRAVEEN/ERAI_global/20c3m_erai_sstk_TROP_1989_2009.nc"];
 ;
-;           mask [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/mask_oaflux_30N30S.nc"];
+;           mask [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/mask_oaflux_30N30S.nc"];
 ;
 ;           ncfile [shape=ellipse,fontname=Courier,label="/Volumes/PRAVEEN/TropFlux/input_uncor/erai_sst_19890101_20091231_oafluxgrid.nc"];
@@ -23 +23 @@
 ;           color=blue,
 ;           URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/interp_erai_sst_1989_2009.pro",
-;           label="${TROPFLUX}/src/interp_erai_sst_1989_2009.pro"];
+;           label="${PROJECT}/src/interp_erai_sst_1989_2009.pro"];
 ;
 ;           {file_in mask} -> {interp_erai_sst_1989_2009} -> {ncfile}
@@ -31 +31 @@
 ; ========
 ;
-; :ref:`tropflux_profile.sh`
+; :ref:`project_profile.sh`
 ;
 ; :func:`report <saxo:report>`
@@ -52 +52 @@
 ; ====
 ;
-; hard coded directory - usage of ${TROPFLUX_ID}
+; hard coded directory - usage of ${PROJECT_ID}
 ;
 ; coding rules
@@ -85 +85 @@
 pro interp_erai_sst_1989_2009
 @common
+@cm_project
 ;
 ; check for input directory
 ;
-; test if ${TROPFLUX_ID} defined
-tropflux_id_env=GETENV('TROPFLUX_ID')
-CASE tropflux_id_env OF
+; test if ${PROJECT_ID} defined
+CASE project_id_env OF
     ''  :  BEGIN
-     msg = 'eee : ${TROPFLUX_ID} is not defined'
+     msg = 'eee : ${PROJECT_ID} is not defined'
      ras = report(msg)
      STOP
            END
  ELSE: BEGIN
-     msg = 'iii : ${TROPFLUX_ID} is ' + tropflux_id_env
+     msg = 'iii : ${PROJECT_ID} is ' + project_id_env
      ras = report(msg)
        END
 ENDCASE
 ;
-iodirin = isadirectory(tropflux_id_env)
+iodirin = isadirectory(project_id_env)
 ;
-; existence and protection of ${TROPFLUX_ID}
+; existence and protection of ${PROJECT_ID}
 IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN
    msg = 'eee : the directory' + iodirin  + ' is not accessible.'