Changeset 2297 for palm/trunk/SCRIPTS/NCL

Timestamp:

Jun 28, 2017 2:35:57 PM (7 years ago)

Author:

scharf

Message:

bugfixes

File:

• palm/trunk/SCRIPTS/NCL/profiles.ncl (modified) (1 diff)

palm/trunk/SCRIPTS/NCL/profiles.ncl

@@ -2233 +2233 @@
             end if 
             
-            if (nof .EQ. 0) then
-                z_(n,:)=z/norm_z
-                z    = z_(n,:)
-            else
+            ;if (nof .EQ. 0) then
+                ;z_(n,:)=z/norm_z
+                ;z    = z_(n,:)
+            ;else
                 z=z/norm_z
-            end if
+            ;end if
 
             delta_z = z(2) - z(1)