Changeset 4394 for branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_Drake.pro

Timestamp:

2014-02-03T14:38:45+01:00 (10 years ago)

Author:

flavoni

Message:

add time series of FRAM STRAIT, and update IDL plots, see ticket: #724

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_Drake.pro (modified) (2 diffs)

branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_Drake.pro

@@ -32 +32 @@
   u1 = rseries_ncdf(vU1, date1, date2, prefix, suffix, FIRSTONLY = 1 - allrec, /nostruct)
   drk1 = fltarr(jpt)
-   ;SF trans = strlowcase(getenv('VAR1_U')) EQ 'uocetr_eff'
-   trans = strlowcase(getenv('VAR1_U')) EQ 'vozoeftr'
+  ; old formulation: we tested variable name
+  trans = strlowcase(getenv('VAR1_U')) EQ 'uocetr_eff' OR strlowcase(getenv('VAR1_U')) EQ 'vozoeftr'
+  ;SF trans = strlowcase(getenv('VAR1_U')) EQ 'vozoeftr'
   FOR t = 0, jpt-1 DO BEGIN
     tmp = bsf(u1[*, *, *, t], TRANSPORT = trans, /nostruct)
@@ -49 +50 @@
     u2 = rseries_ncdf(vU2, date1_2, date2_2, prefix2, suffix2, FIRSTONLY = 1 - allrec, /nostruct)
     drk2 = fltarr(jpt)
-    ;SF trans = strlowcase(getenv('VAR2_U')) EQ 'uocetr_eff'
-    trans = strlowcase(getenv('VAR1_U')) EQ 'vozoeftr'
+    ; old formulation: we tested variable name
+    trans = strlowcase(getenv('VAR2_U')) EQ 'uocetr_eff' OR strlowcase(getenv('VAR2_U')) EQ 'vozoeftr'
+    ;SF trans = strlowcase(getenv('VAR1_U')) EQ 'vozoeftr'
     FOR t = 0, jpt-1 DO BEGIN
       tmp = bsf(u2[*, *, *, t], TRANSPORT = trans, /nostruct)