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

Timestamp:

Apr 2, 2008 1:22:13 PM (16 years ago)

Author:

letzel

Message:

• NCL scripts in trunk/SCRIPTS/NCL updated for vector plots

File:

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

palm/trunk/SCRIPTS/NCL/profiles.ncl

@@ -10 +10 @@
 
    if (isfilepresent("~/.ncl_preferences")) then
-      parameter = asciiread("~/.ncl_preferences",63,"string")
+      parameter = asciiread("~/.ncl_preferences",73,"string")
       delete(parameter@_FillValue)
    else
@@ -160 +160 @@
    if ( .not. isvar("end_time_step") ) then             
       end_time_step = nt-1
-      if (parameter(15) .NE. "nt-1") then
+      if (parameter(15) .NE. "nt") then
          if (parameter(15) .LE. "0")
             print(" ") 
@@ -420 +420 @@
       e=-1
    end if  
-    
+
    do varn = 0, dim-1   
      
@@ -470 +470 @@
 
          temp = f->$vNam(varn)$      
-         data = temp(start_time_step:end_time_step,:)      
+         data = temp(start_time_step:end_time_step,:)   
+         testx= data*100  
          print("         plot of " + vNam(varn))
          data!1 = "z"
@@ -487 +488 @@
         
          plot(n) = gsn_csm_xy(wks,data,z_pr,res)  
-      
+   
          delete(temp)
          delete(data)