Changeset 194 for palm/trunk/SCRIPTS/NCL/spectra.ncl

Timestamp:

Aug 28, 2008 12:15:13 PM (17 years ago)

Author:

letzel

Message:

• NCL scripts in trunk/SCRIPTS/NCL updated

File:

• palm/trunk/SCRIPTS/NCL/spectra.ncl (modified) (3 diffs)

palm/trunk/SCRIPTS/NCL/spectra.ncl

@@ -6 +6 @@
 ; load ncl_preferences.ncl
 ;***************************************************
+
+function which_script()
+local script 
+begin 
+   script="spectra"
+   return(script)
+end
    
 if (isfilepresent("~/ncl_preferences.ncl")) then
@@ -21 +28 @@
    
 begin
-      
-   if (cross_sections .NE. 0 .OR. profiles .NE. 0 .OR. timeseries .NE. 0 .OR. spectra .NE. 1)then
-      print(" ")
-      print("Please specify the used script in 'ncl_preferences.ncl' (Line 7-10)")
-      print(" ")
-      print("Set 'spectra' equal 1 and the other variables equal 0")
-      print(" ")
-      exit
-   end if 
 
    ;***************************************************
@@ -339 +337 @@
       end do
    end if
-   
-   step=round(235/(np-1),3)
-   if (black .eq. 0 ) then  
-      res@xyLineColors = ispan(2,237,step)
+
+   if (black .eq. 0 ) then 
+      if (np .EQ. 1)then
+         res@xyLineColors = 237
+      else   
+         step=round(235/(np-1),3) 
+         res@xyLineColors = ispan(2,237,step)
+      end if
    end if
    if ( dash .eq. 0 ) then