Changeset 513 for palm/trunk/SCRIPTS/NCL/profiles.ncl

Timestamp:

Mar 16, 2010 1:37:48 PM (14 years ago)

Author:

heinze

Message:

Using the NCL scripts by means of the shell script palmplot

File:

• palm/trunk/SCRIPTS/NCL/profiles.ncl (modified) (4 diffs)

palm/trunk/SCRIPTS/NCL/profiles.ncl

@@ -48 +48 @@
    file_in_1 = new(no_files,logical)
    start_f   = new(no_files,integer)
-   end_f = new(no_files,integer)
+   end_f     = new(no_files,integer)
    
    if (file_1 .EQ. "File in") then
@@ -433 +433 @@
       end if
 
+      if(comma .gt. dim)
+          print(" ")
+          print("The variables 'var="+var+"'" )
+          print("do not exist on your input file;")
+          print("be sure to have one comma before and after each variable")
+          print(" ")
+          exit
+      end if
+
       indices = new((/comma/),integer)
       comma   = 0
@@ -1571 +1580 @@
                   do i=1,dimz-1
                      do j=0,np-1
-                        temp= f[:]->$vNam(varn)$
+                        temp = f[:]->$vNam(varn)$
                         temp_att = f_att->$vNam(varn)$ 
                         data_temp = temp(ti_in(j),i,start_y:end_y,start_x:end_x)
@@ -1580 +1589 @@
                   do i=0,dimz-1
                      do j=0,np-1
-                        temp= f[:]->$vNam(varn)$
+                        temp = f[:]->$vNam(varn)$
                         temp_att = f_att->$vNam(varn)$ 
                         data_temp = temp(ti_in(j),i,start_y:end_y,start_x:end_x)