Changeset 624 for palm/trunk/SCRIPTS

Timestamp:

Dec 10, 2010 11:46:30 AM (13 years ago)

Author:

heinze

Message:

Calculation of q*2 added

File:

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

palm/trunk/SCRIPTS/NCL/profiles.ncl

@@ -697 +697 @@
                                                                         .OR. vNam(varn) .EQ. "w"+dq+"e:dz" .OR. isStrSubset(vNam(varn), "w"+dq+"e:dz_"))then
                                                                         z_u = f_att->$vNam(varn+1)$
-                                                                        break                                                                        
+                                                                        break   
+                                                                     else
+                                                                        if(vNam(varn) .EQ. "qs2" .OR. isStrSubset(vNam(varn), "qs2_")\
+                                                                           .OR. vNam(varn) .EQ. "q*2" .OR. isStrSubset(vNam(varn), "q*2_"))then
+                                                                           z_u = f_att->$vNam(varn+1)$
+                                                                           break  
+                                                                       end if               
                                                                      end if
                                                                   end if