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

Timestamp:

Mar 25, 2009 10:25:50 AM (15 years ago)

Author:

weinreis

Message:

NCL scripts profiles cross_sections ncl_preference and UserGuide? modified

File:

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

palm/trunk/SCRIPTS/NCL/profiles.ncl

@@ -73 +73 @@
    start_f(0) = start_f_1 
    end_f(0) = end_f_1    
-      
-   if (prof3d .EQ. -1)then
-      print(" ")
-      print("Set 'prof3d' to 0 or 1")
-      print(" ")
-      exit
-   else
-      if (prof3d .NE. 0 .AND. prof3d .NE. 1)then
-         print(" ")
-         print("'prof3d'= "+prof3d+" is invalid; set 'prof3d' to 0 or 1")
-         print(" ")
-         exit
-      end if
-   end if
  
    if (no_files .GT. 1) then
@@ -372 +358 @@
    
    vNam = getfilevarnames(f_att) 
-
+   
    if (nof .EQ. 0)then
       vNam0=vNam
@@ -407 +393 @@
       print(" ")
    end if
+   
+   prof3d = 0
+   do varn = dim-1,0,1
+      if ( isStrSubset( vNam(varn), "zu_3d") .OR. isStrSubset( vNam(varn), "zw_3d")) then
+         prof3d = 1
+         break
+      end if
+   end do
 
    ;-----------------------------------------------------below steps only for first file -> nof=0