Changeset 1110 for palm/trunk/SCRIPTS/nc2vdf.ncl

Timestamp:

Mar 7, 2013 11:42:45 AM (11 years ago)

Author:

maronga

Message:

updates in nc2vdf

File:

• palm/trunk/SCRIPTS/nc2vdf.ncl (modified) (17 diffs)

palm/trunk/SCRIPTS/nc2vdf.ncl

@@ -18 +18 @@
 ; Current revisions:
 ; -----------------
+; adapted for use on desktop machines
 ;
 ; Former revisions:
@@ -41 +42 @@
 ; order to run this script, NCL version 5.2.0 or higher is required.
 ; Default setting will be loaded from .nc2vdf.config.
-; Note that on HLRN, vapor is only available on hicegate2, bicegate2 and the UV
-; sytem.
+; The script does only work on hicegate2, bicegate2,
+; uv, on the imuk server. It can be adapted for use on any desktop machine.
 ;------------------------------------------------------------------------------!
 
@@ -76 +77 @@
     print("*** loading " + dimsizes(files) + ":")
     do i=0,dimsizes(files)-1
-       print("    " + i + ") " + files(i))  
+       print("    " + i + ") " + files(i))
     end do
 
@@ -87 +88 @@
     sys        = "unknown"
     query      = systemfunc("echo $HOSTNAME")
-    check_muk  = isStrSubset(query,"muk.uni-hannover.de") 
-    check_hice = isStrSubset(query,"hicegate2") 
+    check_muk  = isStrSubset(query,"muk.uni-hannover.de")
+    check_hice = isStrSubset(query,"hicegate2")
     check_bice = isStrSubset(query,"bicegate2")
     check_huv  = isStrSubset(query,"huv")
     check_buv  = isStrSubset(query,"buv")
-    check_WS   = isStrSubset(query,"kookaburra") ;*** insert name of your workstation here
+
 
 
@@ -108 +109 @@
              sys = "HLRN"
              else
-                if ( check_WS .eq. True) then
+                if ( check_workstation .eq. True) then
                 print("*** nc2vdf will execute on a workstation PC/Mac")
                 sys = "workstation"
-                path     = "/Applications/VAPOR.app/Contents/MacOS/" ;*** costomize path for WS
+                path = install_path
           end if
           end if
@@ -121 +122 @@
     end if
 
-    
+
 workpath = systemfunc("echo $PWD") + "/"
 
@@ -152 +153 @@
 
 if man then
-    ;**** Get names of variables wanted to appear in the VDF file, then get their dimensions with min/max x,y,z
+    ;**** Get names of variables appearing in the VDF file, then get their dimensions with min/max x,y,z
     print(" ")
     print("Choose the *.nc files containing 3D data by typing their indices (seperated by ','). Start with the first files of the timeseries.")
@@ -190 +191 @@
 
     varNames      = getfilevarnames(f)
-    
-    
+
+
     if man then
     print(" ")
@@ -205 +206 @@
     nvars = dimsizes(vars)
     end if; man
-    
+
     if (nofiles .eq. 1) then
     if man then
@@ -219 +220 @@
        varString(i,n) = varNames(vars(n))
        end if; man
-       
+
        if alt_varnames then
             varString(i,n) = varNames(vars(i,n))
        end if
-       
+
        if (vars3d .ne. "") then
        vars3d       = vars3d + ":" + varString(i,n)
@@ -234 +235 @@
        dimNames(i,n,:) = getfilevardims(f, varString(i,n))
 
-       
+
 
        time     = f->$dimNames(i,n,0)$
@@ -373 +374 @@
 end if
 
-        
+
 
 ;*******************************************************************************
@@ -437 +438 @@
 
     delete(f)
-          
+
     do i=0,nofiles-1
 
@@ -447 +448 @@
         print(" ")
         file_in(i)    = files_avail(toint(systemfunc("read file; echo $file")))
-        
+
     end do
 
@@ -489 +490 @@
        end do
     end if
-            
-            
-            
+
+
+
     t_end       = dimsizes(time)-1
 
 
-    
+
     end if
 
@@ -539 +540 @@
          dims2d     = getfilevardimsizes(f,varString2d(n))
          dimNames2d(n,:) = getfilevardims(f,varString2d(n))
-         
+
 
       end do
@@ -556 +557 @@
          end do
       end do
-      delete(varNames2d)      
+      delete(varNames2d)
    end if