source: palm/trunk/SCRIPTS/NCL/profiles.ncl @ 162

Last change on this file since 162 was 162, checked in by letzel, 16 years ago
  • NCL scripts in trunk/SCRIPTS/NCL updated
File size: 137.4 KB
Line 
1load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
2load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"
3load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"
4 
5begin
6
7   ; ***************************************************
8   ; read parameter_list
9   ; ***************************************************
10
11   if (isfilepresent("~/.ncl_preferences")) then
12      parameter = asciiread("~/.ncl_preferences",75,"string")
13      delete(parameter@_FillValue)
14   else
15      print(" ")
16      print("Please copy '.ncl_preferences' into your $home dircetory")
17      print(" ")
18      exit
19   end if
20 
21   ; ***************************************************
22   ; set up default parameter values and strings if not assigned in prompt or parameter list
23   ; ***************************************************
24 
25   if ( .not. isvar("file_in") ) then                   ; path+name of input file     
26      if (parameter(7) .EQ. "input file") then
27         print(" ")
28         print("Please provide input file 'file_in = ' either in prompt or parameter_list")
29         print(" ")
30         exit
31      else
32         file_in = parameter(7)
33      end if     
34   end if
35   if ( .not. isvar("format_out") ) then                ; format of output file
36      format_out = "x11"
37      if (parameter(9) .NE. "x11") then
38         format_out = parameter(9) 
39      end if
40   end if
41   if ( .not. isvar("file_out") ) then                  ; path+name of output file
42      file_out = "test"
43      if (parameter(11) .NE. "test_ts") then
44         file_out = parameter(11) 
45     end if     
46   end if
47   if ( .not. isvar("no_columns") ) then                ; number of plots in one row
48      no_columns = 1
49      if (parameter(17) .NE. "1") then
50         no_columns = stringtointeger(parameter(17)) 
51      end if
52   end if
53   if ( .not. isvar("no_lines") ) then                  ; number of plot-lines on one sheet
54      no_lines = 2
55      if (parameter(19) .NE. "2") then
56         no_lines = stringtointeger(parameter(19)) 
57      end if
58   end if
59   if ( .not. isvar("combine") ) then                   ; color of lines
60      combine = 0
61      if (parameter(23) .NE. "0") then
62         combine = stringtointeger(parameter(23))
63         if (stringtointeger(parameter(23)) .NE. 1) then
64            print(" ")
65            print("Please set 'combine' to 0 or 1")
66            print(" ")
67            exit
68         end if
69      end if
70   end if
71   if (combine .EQ. 1) then
72      if( .not. isvar("c_var") ) then
73         if (parameter(27) .EQ. "c_variables") then
74            print(" ")
75            print("Please select variables for overlaying ('c_var')")
76            print(" ")
77            exit
78         else
79            c_var=parameter(27)
80         end if
81      end if
82   end if
83   if ( .not. isvar("black") ) then                     ; color of lines
84      black = 0
85      if (parameter(31) .NE. "0") then
86         black = stringtointeger(parameter(31))
87         if (stringtointeger(parameter(31)) .NE. 1) then
88            print(" ")
89            print("Please set 'black' to 0 or 1")
90            print(" ")
91            exit
92         end if
93      end if
94   end if
95   if ( .not. isvar("dash") ) then                      ; pattern of lines
96      dash = 0
97      if (parameter(29) .NE. "0") then
98         dash = stringtointeger(parameter(29))
99         if (stringtointeger(parameter(29)) .NE. 1) then
100            print(" ")
101            print("Please set 'dash' to 0 or 1")
102            print(" ")
103            exit
104         end if 
105      end if
106   end if
107   if ( .not. isvar("over") ) then                      ; switches overlaying plots on
108      over = 0
109      if (stringtointeger(parameter(37)) .NE. 0) then
110         over = stringtointeger(parameter(37))
111         if (stringtointeger(parameter(37)) .NE. 1) then
112            print(" ")
113            print("Please set 'over' to 0 or 1")
114            print(" ")
115            exit
116         end if   
117      end if
118   end if
119 
120   ; ***************************************************
121   ; open input file
122   ; ***************************************************
123
124   f=addfile( file_in,"r")
125   
126   vNam = getfilevarnames(f)
127   print(" ")
128   print("Variable on netCDF file: " + vNam)
129   print(" ")
130   dim = dimsizes(vNam)
131   if (dim .EQ. 0) then
132      print(" ")
133      print("There are no data on file")
134      print(" ")
135   end if
136
137   do varn = dim-1,0,1
138      if ( isStrSubset( vNam(varn), "time") .OR. isStrSubset( vNam(varn), "NORM")) then
139         varn=varn-1
140         continue
141      end if
142      if (vNam(varn) .EQ. "u")
143         z_u = f->zu
144         break
145      else
146         if (vNam(varn) .EQ. "v")then
147            z_u = f->zv
148            break
149         else
150            if(vNam(varn) .EQ. "pt")then
151               z_u = f->zpt
152               break
153            else
154               if(vNam(varn) .EQ. "vpt")then
155                  z_u = f->zvpt
156                  break
157               else
158                  if(vNam(varn) .EQ. "lpt")then
159                     z_u = f->zlpt
160                     break
161                  else   
162                     if(vNam(varn) .EQ. "q")then
163                        z_u = f->zq
164                        break
165                     else
166                        if(vNam(varn) .EQ. "qv")then
167                           z_u = f->zqv
168                           break
169                        else
170                           if(vNam(varn) .EQ. "ql")then
171                              z_u = f->zql
172                              break
173                           else
174                              if(vNam(varn) .EQ. "rho")then
175                                 z_u = f->zrho
176                                 break
177                              else
178                                 if(vNam(varn) .EQ. "s")then
179                                    z_u = f->zs
180                                    break
181                                 else
182                                    if(vNam(varn) .EQ. "sa")then
183                                       z_u = f->zsa
184                                       break
185                                    else
186                                       if(vNam(varn) .EQ. "e")then
187                                          z_u = f->ze
188                                          break
189                                       else
190                                          if(vNam(varn) .EQ. "es")then
191                                             z_u = f->zes
192                                             break
193                                          else
194                                             if(vNam(varn) .EQ. "km")then
195                                                z_u = f->zkm
196                                                break
197                                             else
198                                                if(vNam(varn) .EQ. "kh")then
199                                                   z_u = f->zkh
200                                                   break
201                                                else
202                                                   if(vNam(varn) .EQ. "l")then
203                                                      z_u = f->zl
204                                                      break
205                                                   else
206                                                      if(vNam(varn) .EQ. "us2")then
207                                                         z_u = f->zus2
208                                                         break
209                                                      else
210                                                         if(vNam(varn) .EQ. "vs2")then
211                                                            z_u = f->zvs2
212                                                            break
213                                                         else
214                                                            if(vNam(varn) .EQ. "pts2")then
215                                                               z_u = f->zpts2
216                                                               break
217                                                            else
218                                                               if(vNam(varn) .EQ. "wsususodz")then
219                                                                  z_u = f->zwsususodz
220                                                                  break
221                                                               else
222                                                                  if(vNam(varn) .EQ. "wspsodz")then
223                                                                     z_u = f->zwspsodz
224                                                                     break
225                                                                  else
226                                                                     if(vNam(varn) .EQ. "wpeodz")then
227                                                                        z_u = f->zwpeodz
228                                                                        break                                                                       
229                                                                     end if
230                                                                  end if
231                                                               end if
232                                                            end if
233                                                         end if
234                                                      end if
235                                                   end if
236                                                end if
237                                             end if
238                                          end if
239                                       end if
240                                    end if
241                                 end if
242                              end if
243                           end if
244                        end if
245                     end if
246                  end if
247               end if
248            end if
249         end if
250      end if
251      varn=varn-1
252   end do
253
254   do varn=dim-1,0,1
255      if ( isStrSubset( vNam(varn), "time") .OR. isStrSubset( vNam(varn), "NORM")) then
256         varn=varn-1
257         continue
258      end if
259      if (vNam(varn) .EQ. "w")
260         z_w = f->zw
261         break
262      else
263         if (vNam(varn) .EQ. "wpup")then
264            z_w = f->zwpup
265            break
266         else
267            if(vNam(varn) .EQ. "wsus")then
268               z_w = f->zwsus
269               break
270            else
271               if(vNam(varn) .EQ. "wu")then
272                  z_w = f->zwu
273                  break
274               else
275                  if(vNam(varn) .EQ. "wpvp")then
276                     z_w = f->zwpvp
277                     break
278                  else   
279                     if(vNam(varn) .EQ. "wsvs")then
280                        z_w = f->zwsvs
281                        break
282                     else
283                        if(vNam(varn) .EQ. "wv")then
284                           z_w = f->zwv
285                           break
286                        else
287                           if(vNam(varn) .EQ. "wptpp")then
288                              z_w = f->zwptpp
289                              break
290                           else
291                              if(vNam(varn) .EQ. "wspts")then
292                                 z_w = f->zwspts
293                                 break
294                              else
295                                 if(vNam(varn) .EQ. "wpt")then
296                                    z_w = f->zwpt
297                                    break
298                                 else
299                                    if(vNam(varn) .EQ. "wsptsBC")then
300                                       z_w = f->zwsptsBC
301                                       break
302                                    else
303                                       if(vNam(varn) .EQ. "wptBC")then
304                                          z_w = f->zwptBC
305                                          break
306                                       else
307                                          if(vNam(varn) .EQ. "wpvptp")then
308                                             z_w = f->zwpvptp
309                                             break
310                                          else
311                                             if(vNam(varn) .EQ. "wsvpts")then
312                                                z_w = f->zwsvpts
313                                                break
314                                             else
315                                                if(vNam(varn) .EQ. "wvpt")then
316                                                   z_w = f->zwvpt
317                                                   break
318                                                else
319                                                   if(vNam(varn) .EQ. "wpqp")then
320                                                      z_w = f->zwpqp
321                                                      break
322                                                   else
323                                                      if(vNam(varn) .EQ. "wsqs")then
324                                                         z_w = f->zwsqs
325                                                         break
326                                                      else
327                                                         if(vNam(varn) .EQ. "wq")then
328                                                            z_w = f->zwq
329                                                            break
330                                                         else
331                                                            if(vNam(varn) .EQ. "wpqvp")then
332                                                               z_w = f->zwpqvp
333                                                               break
334                                                            else
335                                                               if(vNam(varn) .EQ. "wsqvs")then
336                                                                  z_w = f->zwsqvs
337                                                                  break
338                                                               else
339                                                                  if(vNam(varn) .EQ. "wqv")then
340                                                                     z_w = f->zwqv
341                                                                     break
342                                                                  else
343                                                                     if(vNam(varn) .EQ. "wpsp")then
344                                                                        z_w = f->zwpsp
345                                                                        break
346                                                                     else
347                                                                        if(vNam(varn) .EQ. "wsss")then
348                                                                           z_w = f->zwsss
349                                                                           break
350                                                                        else
351                                                                           if(vNam(varn) .EQ. "ws")then
352                                                                              z_w = f->zws
353                                                                              break
354                                                                           else
355                                                                              if(vNam(varn) .EQ. "wpsap")then
356                                                                                 z_w = f->zwpsap
357                                                                                 break
358                                                                              else
359                                                                                 if(vNam(varn) .EQ. "wssas")then
360                                                                                    z_w = f->zwssas
361                                                                                    break
362                                                                                 else
363                                                                                    if(vNam(varn) .EQ. "wsa")then
364                                                                                       z_w = f->zwsa
365                                                                                       break
366                                                                                    else
367                                                                                       if(vNam(varn) .EQ. "wses")then
368                                                                                          z_w = f->zwses
369                                                                                          break
370                                                                                       else
371                                                                                          if(vNam(varn) .EQ. "ws2")then
372                                                                                             z_w = f->zws2
373                                                                                             break
374                                                                                          else
375                                                                                             if(vNam(varn) .EQ. "ws3")then
376                                                                                                z_w = f->zws3
377                                                                                                break
378                                                                                             else
379                                                                                                if(vNam(varn) .EQ. "Sw")then
380                                                                                                   z_w = f->zSw
381                                                                                                   break
382                                                                                                else
383                                                                                                   if(vNam(varn) .EQ. "ws2pts")then
384                                                                                                      z_w = f->zws2pts
385                                                                                                      break
386                                                                                                   else
387                                                                                                      if(vNam(varn) .EQ. "wspts2")then
388                                                                                                         z_w = f->zwspts2
389                                                                                                         break                                           
390                                                                                                      end if
391                                                                                                   end if
392                                                                                                end if
393                                                                                             end if
394                                                                                          end if
395                                                                                       end if
396                                                                                    end if
397                                                                                 end if
398                                                                              end if
399                                                                           end if
400                                                                        end if   
401                                                                     end if
402                                                                  end if
403                                                               end if
404                                                            end if
405                                                         end if
406                                                      end if
407                                                   end if
408                                                end if
409                                             end if
410                                          end if
411                                       end if
412                                    end if
413                                 end if
414                              end if
415                           end if
416                        end if
417                     end if
418                  end if
419               end if
420            end if
421         end if
422      end if
423      varn=varn-1
424   end do
425   if ( .not. isvar("z_u") ) then
426      zu = 0
427   else
428      zu = 1
429   end if
430   if ( .not. isvar("z_w") ) then
431      zw = 0
432   else
433      zw = 1
434   end if
435
436   if (zu .EQ. 0 .AND. zw .EQ. 0) then
437      do varn=0,dim-1     
438         if ( isStrSubset( vNam(varn), "time") .OR. isStrSubset( vNam(varn), "NORM")) then
439            check = False
440         else
441            if (.not. isvar("var")) then
442               check = True
443               if (parameter(21) .NE. "variables") then
444                  var=parameter(21)
445                  check = isStrSubset( var,","+vNam(varn)+"," )
446               end if
447            else         
448               check = isStrSubset( var,","+vNam(varn)+"," )
449            end if
450         end if
451         if (check)
452            z = f->$vNam(varn+1)$
453            dimz = dimsizes(z)
454            break
455         end if   
456      end do
457   end if
458   if (isvar("z_u") ) then
459      dimz  = dimsizes(z_u)
460   else
461      if (isvar("z_w"))then
462         dimz  = dimsizes(z_w)
463      end if
464   end if
465   t_all = f->time
466   nt    = dimsizes(t_all)
467   delta_t=t_all(nt-1)/nt
468 
469   ; ****************************************************       
470   ; start of time step and different types of mistakes that could be done
471   ; ****************************************************
472
473   if ( .not. isvar("start_time_step") ) then           
474      start_time_step=t_all(1)/3600
475      if (parameter(13) .NE. "t(0)") then
476         if (stringtodouble(parameter(13)) .GT. t_all(nt-1)/3600)
477            print(" ")
478            print("'start_time_step' = "+ parameter(13) +"h is greater than last time step = " + t_all(nt-1)+"s = "+t_all(nt-1)/3600+"h")
479            print(" ")
480            print("Please select another 'start_time_step'")
481            print(" ")
482            exit
483         end if
484         if (stringtofloat(parameter(13)) .LE. t_all(0)/3600)
485            print(" ")
486            print("'start_time_step' = "+ parameter(13) +"h is equal or lower than first time step = " + t_all(0)+"s = "+t_all(0)/3600+"h")
487            print(" ")
488            print("Please start profiles at least with second time step = "+t_all(1)+"s = "+t_all(1)/3600+"h")
489            print(" ")
490            exit
491         end if
492         start_time_step=stringtodouble(parameter(13))
493      end if
494   else
495      if (start_time_step .GT. t_all(nt-1)/3600)
496         print(" ")
497         print("'start_time_step' = "+ start_time_step +"h is greater than last time step = " + t_all(nt-1)+"s = "+t_all(nt-1)/3600+"h")
498         print(" ")
499         print("Please select another 'start_time_step'")
500         print(" ")
501         exit
502      end if
503      if (start_time_step .LE. t_all(0)/3600)
504         print(" ")
505         print("'start_time_step' = "+ start_time_step +"h is equal or lower than first time step = " + t_all(0)+"s = "+t_all(0)/3600+"h")
506         print(" ")
507         print("Please start profiles at least with second time step = "+t_all(1)+"s = "+t_all(1)/3600+"h")
508         print(" ")
509         exit
510      end if
511   end if
512   start_time_step = start_time_step*3600
513   if (start_time_step .GT. t_all(0) .AND. start_time_step .LT. t_all(1)+delta_t/2)then
514      st=1
515   end if
516   do i=2,nt-1     
517      if (start_time_step .GE. t_all(i)-delta_t/2 .AND. start_time_step .LT. t_all(i)+delta_t/2)then
518         st=i
519         break
520      end if
521   end do
522 
523   ; ****************************************************
524   ; end of time step and different types of mistakes that could be done
525   ; ****************************************************
526
527   if ( .not. isvar("end_time_step") ) then             
528      end_time_step = t_all(nt-1)/3600
529      if (parameter(15) .NE. "t(end)") then
530         if (stringtodouble(parameter(15)) .GT. t_all(nt-1)/3600)
531            print(" ")
532            print("'end_time_step' = "+ parameter(15) +"h is greater than last time step = " + t_all(nt-1)+"s = "+t_all(nt-1)/3600+"h")
533            print(" ")
534            print("Please select another 'end_time_step'") 
535            print(" ")
536            exit
537         end if
538         if (stringtodouble(parameter(15)) .LT. start_time_step/3600)
539            print(" ")
540            print("'end_time_step' = "+ parameter(15) +"h is lower than 'start_time_step' = "+parameter(13)+"h")
541            print(" ")
542            print("Please select another 'start_time_step' or 'end_time_step'")
543            print(" ")
544            exit
545         end if
546         end_time_step = stringtodouble(parameter(15))
547      end if   
548   else
549      if (end_time_step .GT. t_all(nt-1)/3600)
550         print(" ")
551         print("'end_time_step' = "+ end_time_step +"h is greater than last time step = " + t_all(nt-1)+"s = "+t_all(nt-1)/3600+"h")
552         print(" ")
553         print("Please select another 'end_time_step'") 
554         print(" ")
555         exit
556      end if
557      if (end_time_step .LT. start_time_step/3600)
558         print(" ")
559         print("'end_time_step' = "+ end_time_step +"h is lower than 'start_time_step' = "+start_time_step+"h")
560         print(" ")
561         print("Please select another 'start_time_step' or 'end_time_step'")
562         print(" ")
563         exit
564      end if
565   end if
566   end_time_step = end_time_step*3600
567   if (end_time_step .GT. t_all(0) .AND. end_time_step .LT. t_all(1)+delta_t/2)then
568      et=1
569   end if
570   do i=2,nt-1     
571      if (end_time_step .GE. t_all(i)-delta_t/2 .AND. end_time_step .LT. t_all(i)+delta_t/2)then
572         et=i
573         break
574      end if
575   end do
576
577   delete(start_time_step)
578   start_time_step=round(st,3)
579   delete(end_time_step)
580   end_time_step=round(et,3)
581
582   ; ****************************************************
583   ; set up legend and colors
584   ; ****************************************************
585   
586   legend_label=new(nt,double)
587   do p=start_time_step,end_time_step
588      legend_label(p-start_time_step)=t_all(p)
589   end do
590   
591   np = end_time_step-start_time_step+1 
592   if ( black .eq. 0 ) then
593      res=True     
594      res@xyLineColors = ispan(2,237,235/np)
595   end if
596
597   ; ***************************************************
598   ; set up recourses
599   ; ***************************************************
600
601   res@gsnDraw                 = False
602   res@gsnFrame                = False
603   res@gsnPaperOrientation     = "portrait"
604   res@gsnPaperWidth           = 8.27
605   res@gsnPaperHeight          = 11.69
606   res@gsnPaperMargin          = 0.79
607   res@txFont                  = "helvetica"
608   res@tiMainFont              = "helvetica"
609   res@tiXAxisFont             = "helvetica"
610   res@tiYAxisFont             = "helvetica"
611   res@tmXBLabelFont           = "helvetica"
612   res@tmYLLabelFont           = "helvetica"
613   res@lgLabelFont             = "helvetica"
614   res@tmLabelAutoStride       = True
615   res@pmLegendDisplayMode     = "Always"
616   res@pmLegendSide            = "Top"
617   res@xyExplicitLegendLabels  = legend_label
618   res@pmLegendParallelPosF    = 1.15
619   res@pmLegendOrthogonalPosF  = -1.0
620   res@pmLegendWidthF          = 0.12
621   res@pmLegendHeightF         = 0.3
622   res@lgLabelFontHeightF     = .02
623   res@txFontHeightF      = 0.02
624   res@tiXAxisFontHeightF = 0.02
625   res@tiYAxisFontHeightF = 0.02
626   res@tiXAxisString      = " "   
627   res@tiYAxisString      = "Height [z]"
628   
629   if ( dash .eq. 0 ) then
630      res@xyMonoDashPattern       = True 
631   end if
632
633   resP                        = True
634   resP@txFont                 = "helvetica"
635   resP@txString               = f@title
636   resP@txFuncCode             = "~"
637   resP@txFontHeightF          = 0.014
638
639   ; ***************************************************
640   ; set up graphics for plot
641   ; ***************************************************
642
643   plot = new(dim,graphic)
644   plot_ = new(dim,graphic)
645
646   if (combine .EQ. 1) then
647      if ( .not. isvar("number_comb") ) then           
648         if (parameter(25) .EQ. "0") then
649            print(" ")
650            print("Please set 'number_comb' to 2 or 3 if you would like to overlay 2 or 3 variables in one plot")
651            print(" ")
652            exit
653         else
654            number_comb=stringtointeger(parameter(25))
655            plot_o = new(number_comb,graphic)   
656         end if
657      else
658         if(number_comb .EQ. 2 .OR. number_comb .EQ. 3) then
659            plot_o = new(number_comb,graphic)     
660         else
661            print(" ")
662            print("Please set 'number_comb' to 2 or 3 if you would like to overlay 2 or 3 variables in one plot")
663            print(" ")
664            exit
665         end if   
666      end if
667      label=new(number_comb,string)
668      color_o=new(number_comb,integer)
669      mini=new(number_comb,float)
670      maxi=new(number_comb,float)
671   end if
672
673   wks=gsn_open_wks(format_out,file_out)
674   gsn_define_colormap(wks,"rainbow+white")
675 
676   ; ***************************************************
677   ; indicate plot number
678   ; ***************************************************
679   
680   if (combine .EQ. 1) then
681      n = 1
682   else
683      n = 0
684   end if
685
686   ; ***************************************************
687   ; set up minimum and maximum height
688   ; ***************************************************
689
690   if (.not. isvar("min_z"))
691      min_z=0
692      if (stringtointeger(parameter(33)) .NE. 0) then
693         if (stringtointeger(parameter(33)) .GE. max(z_u) ) then
694            print(" ")
695            print("Minimum of height ('min_z'="+stringtointeger(parameter(33))+") is greater than available heights (="+max(z_u)+")")
696            print(" ")
697            exit
698         end if
699         if (stringtointeger(parameter(33)) .LT. 0 ) then
700            print(" ")
701            print("Begin minimum of height 'min_z' with 0")
702            print(" ")
703            exit
704         end if
705         min_z=stringtointeger(parameter(33))
706      end if
707   else
708      if (min_z .GE. max(z_u) ) then
709         print(" ")
710         print("Minimum of height ('min_z'="+min_z+") is greater than available heights (="+max(z_u)+")")
711         print(" ")
712         exit
713      end if
714      if (min_z .LT. 0 ) then
715         print(" ")
716         print("Begin minimum of height 'min_z' with 0")
717         print(" ")
718         exit
719      end if
720   end if
721
722   if (.not. isvar("max_z"))
723      max_z=max(z_u)
724      if ((parameter(35)) .NE. "max(z_u)") then
725         if (stringtofloat(parameter(35)) .GE. max(z_u) ) then
726            print(" ")
727            print("Maximum of height ('max_z'="+parameter(35)+") is greater than available heights (="+max(z_u)+")")
728            print(" ")
729            exit
730         end if
731         if (stringtointeger(parameter(35)) .LE. 0 ) then
732            print(" ")
733            print("Maximum of height 'max_z' should be at least 1")
734            print(" ")
735            exit
736         end if
737         max_z=stringtointeger(parameter(35))
738      end if
739   else
740      if (max_z .GE. max(z_pr) ) then
741         print(" ")
742         print("Maximum of height ('max_z'="+max_z+") is greater than available heights (="+max(z_u)+")")
743         print(" ")
744         exit
745      end if
746      if (max_z .LE. 0 ) then
747         print(" ")
748         print("Maximum of height 'max_z' should be at least 1")
749         print(" ")
750         exit
751      end if
752   end if
753
754   ; ***************************************************
755   ; read data and create plots
756   ; ***************************************************
757     
758   do ti = start_time_step, end_time_step
759      if( t_all(ti) .lt. 10^36) then
760         start_time_step = ti
761         break
762      end if
763   end do 
764 
765   data   = new((/dim,(end_time_step-start_time_step)+1,dimz/),float)
766   data_0 = new((/(end_time_step-start_time_step)+1,dimz/),float)
767   data_0 = 0.0
768   t      = new((/(end_time_step-start_time_step)+1,dimz/),float)
769   t      = 0.0
770   unit   = new(dim,string)
771
772   if (over .EQ. 1) then
773      plot_u         = gsn_csm_xy(wks,t,data_0(:,:),res)
774      miniu = 1.E27
775      maxiu =-1.E27
776      plot_v         = gsn_csm_xy(wks,t,data_0(:,:),res)
777      miniv = 1.E27
778      maxiv =-1.E27
779      plot_w         = gsn_csm_xy(wks,t,data_0(:,:),res)
780      miniw = 1.E27
781      maxiw =-1.E27
782      plot_pt        = gsn_csm_xy(wks,t,data_0(:,:),res)
783      minipt = 1.E27
784      maxipt =-1.E27
785      plot_vpt       = gsn_csm_xy(wks,t,data_0(:,:),res)
786      minivpt = 1.E27
787      maxivpt =-1.E27
788      plot_lpt       = gsn_csm_xy(wks,t,data_0(:,:),res)
789      minilpt = 1.E27
790      maxilpt =-1.E27
791      plot_q         = gsn_csm_xy(wks,t,data_0(:,:),res)
792      miniq = 1.E27
793      maxiq =-1.E27
794      plot_qv        = gsn_csm_xy(wks,t,data_0(:,:),res)
795      miniqv = 1.E27
796      maxiqv =-1.E27
797      plot_ql        = gsn_csm_xy(wks,t,data_0(:,:),res)
798      miniql = 1.E27
799      maxiql =-1.E27
800      plot_rho       = gsn_csm_xy(wks,t,data_0(:,:),res)
801      plot_s         = gsn_csm_xy(wks,t,data_0(:,:),res)
802      plot_sa        = gsn_csm_xy(wks,t,data_0(:,:),res)
803      plot_e         = gsn_csm_xy(wks,t,data_0(:,:),res)
804      minie = 1.E27
805      maxie =-1.E27
806      plot_es        = gsn_csm_xy(wks,t,data_0(:,:),res)
807      minie = 1.E27
808      maxie =-1.E27
809      plot_km        = gsn_csm_xy(wks,t,data_0(:,:),res)
810      minie = 1.E27
811      maxie =-1.E27
812      plot_kh        = gsn_csm_xy(wks,t,data_0(:,:),res)
813      minie = 1.E27
814      maxie =-1.E27
815      plot_l         = gsn_csm_xy(wks,t,data_0(:,:),res)     
816      plot_wpup      = gsn_csm_xy(wks,t,data_0(:,:),res)
817      miniwpup = 1.E27
818      maxiwpup =-1.E27
819      plot_wsus      = gsn_csm_xy(wks,t,data_0(:,:),res)
820      miniwsus = 1.E27
821      maxiwsus =-1.E27
822      plot_wu        = gsn_csm_xy(wks,t,data_0(:,:),res)
823      miniwu = 1.E27
824      maxiwu =-1.E27
825      plot_wpvp      = gsn_csm_xy(wks,t,data_0(:,:),res)
826      miniwpvp = 1.E27
827      maxiwpvp =-1.E27
828      plot_wsvs      = gsn_csm_xy(wks,t,data_0(:,:),res)
829      miniwsvs = 1.E27
830      maxiwsvs =-1.E27
831      plot_wv        = gsn_csm_xy(wks,t,data_0(:,:),res)
832      miniwv = 1.E27
833      maxiwv =-1.E27
834      plot_wpptp     = gsn_csm_xy(wks,t,data_0(:,:),res)
835      miniwpptp = 1.E27
836      maxiwpptp =-1.E27
837      plot_wspts     = gsn_csm_xy(wks,t,data_0(:,:),res)
838      miniwspts = 1.E27
839      maxiwspts =-1.E27
840      plot_wpt       = gsn_csm_xy(wks,t,data_0(:,:),res)
841      miniwpt = 1.E27
842      maxiwpt =-1.E27
843      plot_wsptsBC   = gsn_csm_xy(wks,t,data_0(:,:),res)
844      miniwsptsBC = 1.E27
845      maxiwsptsBC =-1.E27
846      plot_wptBC     = gsn_csm_xy(wks,t,data_0(:,:),res)
847      miniwptBC = 1.E27
848      maxiwptBC =-1.E27
849      plot_wpvptp    = gsn_csm_xy(wks,t,data_0(:,:),res)
850      miniwpvptp = 1.E27
851      maxiwpvptp =-1.E27
852      plot_wsvpts    = gsn_csm_xy(wks,t,data_0(:,:),res)
853      miniwsvpts = 1.E27
854      maxiewsvpts=-1.E27
855      plot_wvpt      = gsn_csm_xy(wks,t,data_0(:,:),res)
856      miniwvpt = 1.E27
857      maxiwvpt =-1.E27
858      plot_wpqp      = gsn_csm_xy(wks,t,data_0(:,:),res)
859      miniwpqp = 1.E27
860      maxiwpqp =-1.E27
861      plot_wsqs      = gsn_csm_xy(wks,t,data_0(:,:),res)
862      miniwsqs = 1.E27
863      maxiwsqs =-1.E27
864      plot_wq        = gsn_csm_xy(wks,t,data_0(:,:),res)
865      miniwq = 1.E27
866      maxiwq =-1.E27
867      plot_wpqvp     = gsn_csm_xy(wks,t,data_0(:,:),res)
868      miniwpqvp = 1.E27
869      maxiwpqvp =-1.E27
870      plot_wsqvs     = gsn_csm_xy(wks,t,data_0(:,:),res)
871      miniwsqvs = 1.E27
872      maxiwsqvs =-1.E27
873      plot_wqv       = gsn_csm_xy(wks,t,data_0(:,:),res)
874      miniwqv = 1.E27
875      maxiwqv =-1.E27
876      plot_wpsp      = gsn_csm_xy(wks,t,data_0(:,:),res)
877      miniwpsp = 1.E27
878      maxiwpsp =-1.E27
879      plot_wsss      = gsn_csm_xy(wks,t,data_0(:,:),res)
880      miniwsss = 1.E27
881      maxiwsss =-1.E27
882      plot_ws        = gsn_csm_xy(wks,t,data_0(:,:),res)
883      miniws = 1.E27
884      maxiws =-1.E27
885      plot_wpsap     = gsn_csm_xy(wks,t,data_0(:,:),res)
886      miniwpsap = 1.E27
887      maxiwpsap =-1.E27
888      plot_wssas     = gsn_csm_xy(wks,t,data_0(:,:),res)
889      miniwssas = 1.E27
890      maxiwssas =-1.E27
891      plot_wsa       = gsn_csm_xy(wks,t,data_0(:,:),res)
892      miniwsa = 1.E27
893      maxiwsa =-1.E27
894      plot_wses      = gsn_csm_xy(wks,t,data_0(:,:),res)
895      plot_us2       = gsn_csm_xy(wks,t,data_0(:,:),res)
896      minius2 = 1.E27
897      maxius2 =-1.E27
898      plot_vs2       = gsn_csm_xy(wks,t,data_0(:,:),res)
899      minivs2 = 1.E27
900      maxivs2 =-1.E27
901      plot_ws2       = gsn_csm_xy(wks,t,data_0(:,:),res)
902      miniws2 = 1.E27
903      maxiws2 =-1.E27
904      plot_pts2      = gsn_csm_xy(wks,t,data_0(:,:),res)
905      plot_ws3       = gsn_csm_xy(wks,t,data_0(:,:),res)
906      plot_Sw        = gsn_csm_xy(wks,t,data_0(:,:),res)
907      plot_ws2pts    = gsn_csm_xy(wks,t,data_0(:,:),res)
908      plot_wspts2    = gsn_csm_xy(wks,t,data_0(:,:),res)
909      plot_wsususodz = gsn_csm_xy(wks,t,data_0(:,:),res)
910      miniwsususodz = 1.E27
911      maxiwsususodz =-1.E27
912      plot_wspsodz   = gsn_csm_xy(wks,t,data_0(:,:),res)
913      miniwspsodz = 1.E27
914      maxiwspsodz =-1.E27
915      plot_wpeodz    = gsn_csm_xy(wks,t,data_0(:,:),res)
916      miniwpeodz = 1.E27
917      maxiwpeodz =-1.E27
918   end if
919 
920   n_o=0
921   count_var=0
922   do varn = 0,dim-1
923       
924      temp = f->$vNam(varn)$
925     
926      if ( isStrSubset( vNam(varn), "time") .OR. isStrSubset( vNam(varn), "NORM")) then
927         check = False
928      else
929         if (.not. isvar("var")) then
930            check = True
931            if (parameter(21) .NE. "variables") then
932               var=parameter(21)
933               check = isStrSubset( var,","+vNam(varn)+"," )
934            end if
935         else         
936            check = isStrSubset( var,","+vNam(varn)+"," )
937         end if
938      end if
939
940      if (combine .EQ. 1) then         
941         com=isStrSubset(c_var,","+vNam(varn)+"," )     
942         if (com)                       
943            data(varn,:,:) = temp(start_time_step:end_time_step,0:dimz-1)
944            unit(varn) = temp@units
945            if (n_o .GT. number_comb-1) then
946               print(" ")
947               print("Please set 'number_comb' to the right number of overlaying variables ('c_var')")
948               print(" ")
949               exit
950            end if
951            mini(n_o)=min(data(varn,:,:))
952            maxi(n_o)=max(data(varn,:,:))
953            n_o=n_o+1
954         end if
955      end if
956
957      if(check) then
958         count_var=count_var+1
959     
960         z = f->$vNam(varn+1)$
961 
962         unit(varn) = temp@units
963         data(varn,:,:) = temp(start_time_step:end_time_step,0:dimz-1)
964 
965         if (over .EQ. 0) then 
966            res@gsnLeftString      = vNam(varn)
967            res@gsnRightString     = unit(varn)
968            res@trYMinF            = min_z
969            res@trYMaxF            = max_z
970            if (.not. isvar("xs")) then
971               if (parameter(63) .NE. "x0") then
972                  res@trXMinF = stringtofloat(parameter(63))
973               else
974                  res@trXMinF            = min(data(varn,:,:))
975               end if
976            else
977               res@trXMinF            = xs
978            end if
979            if (.not. isvar("xe")) then
980               if (parameter(65) .NE. "xdim") then
981                  res@trXMaxF = stringtofloat(parameter(65))
982               else
983                  res@trXMaxF            = max(data(varn,:,:))
984               end if
985            else
986               res@trXMaxF            = xe 
987            end if                     
988            plot(n) = gsn_csm_xy(wks,data(varn,:,:),z,res) 
989         end if       
990         
991            if (vNam(varn) .EQ. "u") then
992               miniu=min(data(varn,:,:))
993               maxiu=max(data(varn,:,:))
994               if (over .EQ. 1) then
995                  res@xyDashPattern  = 0
996                  plot_u = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
997               else
998                  res@gsnLeftString      = vNam(varn)
999                  res@gsnRightString     = unit(varn)
1000                  if (.not. isvar("xs")) then
1001                     if (parameter(63) .NE. "x0") then
1002                        res@trXMinF = stringtofloat(parameter(63))
1003                     else
1004                        res@trXMinF            = miniu
1005                     end if
1006                  else
1007                     res@trXMinF            = xs
1008                  end if
1009                  if (.not. isvar("xe")) then
1010                     if (parameter(65) .NE. "xdim") then
1011                        res@trXMaxF = stringtofloat(parameter(65))
1012                     else
1013                        res@trXMaxF            = maxiu
1014                     end if
1015                  else
1016                     res@trXMaxF            = xe 
1017                  end if               
1018                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_u,res) 
1019               end if
1020            end if
1021            if (vNam(varn) .EQ. "v") then
1022               miniv=min(data(varn,:,:))
1023               maxiv=max(data(varn,:,:))
1024               if (over .EQ. 1) then
1025                  res@xyDashPattern  = 1
1026                  plot_v = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1027               else
1028                  res@gsnLeftString      = vNam(varn)
1029                  res@gsnRightString     = unit(varn)
1030                  if (.not. isvar("xs")) then
1031                     if (parameter(63) .NE. "x0") then
1032                        res@trXMinF = stringtofloat(parameter(63))
1033                     else
1034                        res@trXMinF            = miniv
1035                     end if
1036                  else
1037                     res@trXMinF            = xs
1038                  end if
1039                  if (.not. isvar("xe")) then
1040                     if (parameter(65) .NE. "xdim") then
1041                        res@trXMaxF = stringtofloat(parameter(65))
1042                     else
1043                        res@trXMaxF            = maxiv
1044                     end if
1045                  else
1046                     res@trXMaxF            = xe 
1047                  end if               
1048                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1049               end if 
1050            end if
1051            if (vNam(varn) .EQ. "w") then
1052               miniw=min(data(varn,:,:))
1053               maxiw=max(data(varn,:,:))
1054               if (over .EQ. 1) then
1055                  res@xyDashPattern  = 2
1056                  plot_w = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1057               else
1058                  res@gsnLeftString      = vNam(varn)
1059                  res@gsnRightString     = unit(varn)
1060                  if (.not. isvar("xs")) then
1061                     if (parameter(63) .NE. "x0") then
1062                        res@trXMinF = stringtofloat(parameter(63))
1063                     else
1064                        res@trXMinF            = miniw
1065                     end if
1066                  else
1067                     res@trXMinF            = xs
1068                  end if
1069                  if (.not. isvar("xe")) then
1070                     if (parameter(65) .NE. "xdim") then
1071                        res@trXMaxF = stringtofloat(parameter(65))
1072                     else
1073                        res@trXMaxF            = maxiw
1074                     end if
1075                  else
1076                     res@trXMaxF            = xe 
1077                  end if           
1078                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1079               end if   
1080            end if
1081
1082            if (vNam(varn) .EQ. "pt") then
1083               minipt=min(data(varn,:,:))
1084               maxipt=max(data(varn,:,:))
1085               if (over .EQ. 1) then
1086                  res@xyDashPattern  = 0
1087                  plot_pt = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1088               else
1089                  res@gsnLeftString      = vNam(varn)
1090                  res@gsnRightString     = unit(varn)
1091                  if (.not. isvar("xs")) then
1092                     if (parameter(63) .NE. "x0") then
1093                        res@trXMinF = stringtofloat(parameter(63))
1094                     else
1095                        res@trXMinF            = minipt
1096                     end if
1097                  else
1098                     res@trXMinF            = xs
1099                  end if
1100                  if (.not. isvar("xe")) then
1101                     if (parameter(65) .NE. "xdim") then
1102                        res@trXMaxF = stringtofloat(parameter(65))
1103                     else
1104                        res@trXMaxF            = maxipt
1105                     end if
1106                  else
1107                     res@trXMaxF            = xe 
1108                  end if
1109                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1110               end if 
1111            end if
1112            if (vNam(varn) .EQ. "vpt") then
1113               minivpt=min(data(varn,:,:))
1114               maxivpt=max(data(varn,:,:))
1115               if (over .EQ. 1) then
1116                  res@xyDashPattern  = 1
1117                  plot_vpt = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1118               else
1119                  res@gsnLeftString      = vNam(varn)
1120                  res@gsnRightString     = unit(varn)
1121                  if (.not. isvar("xs")) then
1122                     if (parameter(63) .NE. "x0") then
1123                        res@trXMinF = stringtofloat(parameter(63))
1124                     else
1125                        res@trXMinF            = minivpt
1126                     end if
1127                  else
1128                     res@trXMinF            = xs
1129                  end if
1130                  if (.not. isvar("xe")) then
1131                     if (parameter(65) .NE. "xdim") then
1132                        res@trXMaxF = stringtofloat(parameter(65))
1133                     else
1134                        res@trXMaxF            = maxivpt
1135                     end if
1136                  else
1137                     res@trXMaxF            = xe 
1138                  end if
1139                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1140               end if
1141            end if
1142            if (vNam(varn) .EQ. "lpt") then
1143               minilpt=min(data(varn,:,:))
1144               maxilpt=max(data(varn,:,:))
1145               if (over .EQ. 1) then
1146                  res@xyDashPattern  = 2
1147                  plot_lpt = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1148               else
1149                  res@gsnLeftString      = vNam(varn)
1150                  res@gsnRightString     = unit(varn)
1151                  if (.not. isvar("xs")) then
1152                     if (parameter(63) .NE. "x0") then
1153                        res@trXMinF = stringtofloat(parameter(63))
1154                     else
1155                        res@trXMinF            = minilpt
1156                     end if
1157                  else
1158                     res@trXMinF            = xs
1159                  end if
1160                  if (.not. isvar("xe")) then
1161                     if (parameter(65) .NE. "xdim") then
1162                        res@trXMaxF = stringtofloat(parameter(65))
1163                     else
1164                        res@trXMaxF            = maxilpt
1165                     end if
1166                  else
1167                     res@trXMaxF            = xe 
1168                  end if
1169                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1170               end if
1171            end if
1172
1173            if (vNam(varn) .EQ. "q") then
1174               miniq=min(data(varn,:,:))
1175               maxiq=max(data(varn,:,:))
1176               if (over .EQ. 1) then
1177                  res@xyDashPattern  = 0
1178                  plot_q = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1179               else
1180                  res@gsnLeftString      = vNam(varn)
1181                  res@gsnRightString     = unit(varn)
1182                  if (.not. isvar("xs")) then
1183                     if (parameter(63) .NE. "x0") then
1184                        res@trXMinF = stringtofloat(parameter(63))
1185                     else
1186                        res@trXMinF            = minilq
1187                     end if
1188                  else
1189                     res@trXMinF            = xs
1190                  end if
1191                  if (.not. isvar("xe")) then
1192                     if (parameter(65) .NE. "xdim") then
1193                        res@trXMaxF = stringtofloat(parameter(65))
1194                     else
1195                        res@trXMaxF            = maxilq
1196                     end if
1197                  else
1198                     res@trXMaxF            = xe 
1199                  end if
1200                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1201               end if
1202            end if
1203            if (vNam(varn) .EQ. "qv") then
1204               miniqv=min(data(varn,:,:))
1205               maxiqv=max(data(varn,:,:))
1206               if (over .EQ. 1) then
1207                  res@xyDashPattern  = 1
1208                  plot_qv = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1209               else
1210                  res@gsnLeftString      = vNam(varn)
1211                  res@gsnRightString     = unit(varn)
1212                  if (.not. isvar("xs")) then
1213                     if (parameter(63) .NE. "x0") then
1214                        res@trXMinF = stringtofloat(parameter(63))
1215                     else
1216                        res@trXMinF            = minilqv
1217                     end if
1218                  else
1219                     res@trXMinF            = xs
1220                  end if
1221                  if (.not. isvar("xe")) then
1222                     if (parameter(65) .NE. "xdim") then
1223                        res@trXMaxF = stringtofloat(parameter(65))
1224                     else
1225                        res@trXMaxF            = maxilqv
1226                     end if
1227                  else
1228                     res@trXMaxF            = xe 
1229                  end if
1230                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1231               end if
1232            end if
1233            if (vNam(varn) .EQ. "ql") then
1234               miniql=min(data(varn,:,:))
1235               maxiql=max(data(varn,:,:))
1236               if (over .EQ. 1) then
1237                  res@xyDashPattern  = 2
1238                  plot_ql = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1239               else
1240                  res@gsnLeftString      = vNam(varn)
1241                  res@gsnRightString     = unit(varn)
1242                  if (.not. isvar("xs")) then
1243                     if (parameter(63) .NE. "x0") then
1244                        res@trXMinF = stringtofloat(parameter(63))
1245                     else
1246                        res@trXMinF            = miniql
1247                     end if
1248                  else
1249                     res@trXMinF            = xs
1250                  end if
1251                  if (.not. isvar("xe")) then
1252                     if (parameter(65) .NE. "xdim") then
1253                        res@trXMaxF = stringtofloat(parameter(65))
1254                     else
1255                        res@trXMaxF            = maxiql
1256                     end if
1257                  else
1258                     res@trXMaxF            = xe 
1259                  end if
1260                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1261               end if
1262            end if
1263
1264            if (vNam(varn) .EQ. "e") then
1265               minie=min(data(varn,:,:))
1266               maxie=max(data(varn,:,:))
1267               if (over .EQ. 1) then
1268                  res@xyDashPattern  = 0
1269                  plot_e = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1270               else
1271                  res@gsnLeftString      = vNam(varn)
1272                  res@gsnRightString     = unit(varn)
1273                  if (.not. isvar("xs")) then
1274                     if (parameter(63) .NE. "x0") then
1275                        res@trXMinF = stringtofloat(parameter(63))
1276                     else
1277                        res@trXMinF            = minie
1278                     end if
1279                  else
1280                     res@trXMinF            = xs
1281                  end if
1282                  if (.not. isvar("xe")) then
1283                     if (parameter(65) .NE. "xdim") then
1284                        res@trXMaxF = stringtofloat(parameter(65))
1285                     else
1286                        res@trXMaxF            = maxie
1287                     end if
1288                  else
1289                     res@trXMaxF            = xe 
1290                  end if
1291                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1292               end if
1293            end if
1294            if (vNam(varn) .EQ. "es") then
1295               minies=min(data(varn,:,:))
1296               maxies=max(data(varn,:,:))
1297               if (over .EQ. 1) then
1298                  res@xyDashPattern  = 1
1299                  plot_es = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1300               else
1301                  res@gsnLeftString      = vNam(varn)
1302                  res@gsnRightString     = unit(varn)
1303                  if (.not. isvar("xs")) then
1304                     if (parameter(63) .NE. "x0") then
1305                        res@trXMinF = stringtofloat(parameter(63))
1306                     else
1307                        res@trXMinF            = minies
1308                     end if
1309                  else
1310                     res@trXMinF            = xs
1311                  end if
1312                  if (.not. isvar("xe")) then
1313                     if (parameter(65) .NE. "xdim") then
1314                        res@trXMaxF = stringtofloat(parameter(65))
1315                     else
1316                        res@trXMaxF            = maxies
1317                     end if
1318                  else
1319                     res@trXMaxF            = xe 
1320                  end if
1321                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1322               end if
1323            end if
1324
1325            if (vNam(varn) .EQ. "km") then
1326               minikm=min(data(varn,:,:))
1327               maxikm=max(data(varn,:,:))
1328               if (over .EQ. 1) then
1329                  res@xyDashPattern  = 0
1330                  plot_km = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1331               else
1332                  res@gsnLeftString      = vNam(varn)
1333                  res@gsnRightString     = unit(varn)
1334                  if (.not. isvar("xs")) then
1335                     if (parameter(63) .NE. "x0") then
1336                        res@trXMinF = stringtofloat(parameter(63))
1337                     else
1338                        res@trXMinF            = minikm
1339                     end if
1340                  else
1341                     res@trXMinF            = xs
1342                  end if
1343                  if (.not. isvar("xe")) then
1344                     if (parameter(65) .NE. "xdim") then
1345                        res@trXMaxF = stringtofloat(parameter(65))
1346                     else
1347                        res@trXMaxF            = maxikm
1348                     end if
1349                  else
1350                     res@trXMaxF            = xe 
1351                  end if
1352                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1353               end if
1354            end if
1355            if (vNam(varn) .EQ. "kh") then
1356               minikh=min(data(varn,:,:))
1357               maxikh=max(data(varn,:,:))
1358               if (over .EQ. 1) then
1359                  res@xyDashPattern  = 1
1360                  plot_kh = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1361               else
1362                  res@gsnLeftString      = vNam(varn)
1363                  res@gsnRightString     = unit(varn)
1364                  if (.not. isvar("xs")) then
1365                     if (parameter(63) .NE. "x0") then
1366                        res@trXMinF = stringtofloat(parameter(63))
1367                     else
1368                        res@trXMinF            = minikh
1369                     end if
1370                  else
1371                     res@trXMinF            = xs
1372                  end if
1373                  if (.not. isvar("xe")) then
1374                     if (parameter(65) .NE. "xdim") then
1375                        res@trXMaxF = stringtofloat(parameter(65))
1376                     else
1377                        res@trXMaxF            = maxikh
1378                     end if
1379                  else
1380                     res@trXMaxF            = xe 
1381                  end if
1382                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
1383               end if
1384            end if
1385
1386            if (vNam(varn) .EQ. "wpup") then
1387               miniwpup=min(data(varn,:,:))
1388               maxiwpup=max(data(varn,:,:))
1389               if (over .EQ. 1) then
1390                  res@xyDashPattern  = 0
1391                  plot_wpup = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1392               else
1393                  res@gsnLeftString      = vNam(varn)
1394                  res@gsnRightString     = unit(varn)
1395                  if (.not. isvar("xs")) then
1396                     if (parameter(63) .NE. "x0") then
1397                        res@trXMinF = stringtofloat(parameter(63))
1398                     else
1399                        res@trXMinF            = miniwpup
1400                     end if
1401                  else
1402                     res@trXMinF            = xs
1403                  end if
1404                  if (.not. isvar("xe")) then
1405                     if (parameter(65) .NE. "xdim") then
1406                        res@trXMaxF = stringtofloat(parameter(65))
1407                     else
1408                        res@trXMaxF            = maxiwpup
1409                     end if
1410                  else
1411                     res@trXMaxF            = xe 
1412                  end if
1413                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1414               end if
1415            end if
1416            if (vNam(varn) .EQ. "wsus") then
1417               miniwsus=min(data(varn,:,:))
1418               maxiwsus=max(data(varn,:,:))
1419               if (over .EQ. 1) then
1420                  res@xyDashPattern  = 1
1421                  plot_wsus = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1422               else
1423                  res@gsnLeftString      = vNam(varn)
1424                  res@gsnRightString     = unit(varn)
1425                  if (.not. isvar("xs")) then
1426                     if (parameter(63) .NE. "x0") then
1427                        res@trXMinF = stringtofloat(parameter(63))
1428                     else
1429                        res@trXMinF            = miniwsus
1430                     end if
1431                  else
1432                     res@trXMinF            = xs
1433                  end if
1434                  if (.not. isvar("xe")) then
1435                     if (parameter(65) .NE. "xdim") then
1436                        res@trXMaxF = stringtofloat(parameter(65))
1437                     else
1438                        res@trXMaxF            = maxiwsus
1439                     end if
1440                  else
1441                     res@trXMaxF            = xe 
1442                  end if
1443                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1444               end if
1445            end if
1446            if (vNam(varn) .EQ. "wu") then
1447               miniwu=min(data(varn,:,:))
1448               maxiwu=max(data(varn,:,:))
1449               if (over .EQ. 1) then
1450                  res@xyDashPattern  = 2
1451                  plot_wu = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1452               else
1453                  res@gsnLeftString      = vNam(varn)
1454                  res@gsnRightString     = unit(varn)
1455                  if (.not. isvar("xs")) then
1456                     if (parameter(63) .NE. "x0") then
1457                        res@trXMinF = stringtofloat(parameter(63))
1458                     else
1459                        res@trXMinF            = miniwu
1460                     end if
1461                  else
1462                     res@trXMinF            = xs
1463                  end if
1464                  if (.not. isvar("xe")) then
1465                     if (parameter(65) .NE. "xdim") then
1466                        res@trXMaxF = stringtofloat(parameter(65))
1467                     else
1468                        res@trXMaxF            = maxiwu
1469                     end if
1470                  else
1471                     res@trXMaxF            = xe 
1472                  end if
1473                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1474               end if
1475            end if
1476
1477            if (vNam(varn) .EQ. "wpvp") then
1478               miniwpvp=min(data(varn,:,:))
1479               maxiwpvp=max(data(varn,:,:))
1480               if (over .EQ. 1) then
1481                  res@xyDashPattern  = 0
1482                  plot_wpvp = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1483               else
1484                  res@gsnLeftString      = vNam(varn)
1485                  res@gsnRightString     = unit(varn)
1486                  if (.not. isvar("xs")) then
1487                     if (parameter(63) .NE. "x0") then
1488                        res@trXMinF = stringtofloat(parameter(63))
1489                     else
1490                        res@trXMinF            = miniwpvp
1491                     end if
1492                  else
1493                     res@trXMinF            = xs
1494                  end if
1495                  if (.not. isvar("xe")) then
1496                     if (parameter(65) .NE. "xdim") then
1497                        res@trXMaxF = stringtofloat(parameter(65))
1498                     else
1499                        res@trXMaxF            = maxiwpvp
1500                     end if
1501                  else
1502                     res@trXMaxF            = xe 
1503                  end if
1504                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1505               end if
1506            end if
1507            if (vNam(varn) .EQ. "wsvs") then
1508               miniwsvs=min(data(varn,:,:))
1509               maxiwsvs=max(data(varn,:,:))
1510               if (over .EQ. 1) then
1511                  res@xyDashPattern  = 1
1512                  plot_wsvs = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1513               else
1514                  res@gsnLeftString      = vNam(varn)
1515                  res@gsnRightString     = unit(varn)
1516                  if (.not. isvar("xs")) then
1517                     if (parameter(63) .NE. "x0") then
1518                        res@trXMinF = stringtofloat(parameter(63))
1519                     else
1520                        res@trXMinF            = miniwsvs
1521                     end if
1522                  else
1523                     res@trXMinF            = xs
1524                  end if
1525                  if (.not. isvar("xe")) then
1526                     if (parameter(65) .NE. "xdim") then
1527                        res@trXMaxF = stringtofloat(parameter(65))
1528                     else
1529                        res@trXMaxF            = maxiwsvs
1530                     end if
1531                  else
1532                     res@trXMaxF            = xe 
1533                  end if
1534                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1535               end if
1536            end if
1537            if (vNam(varn) .EQ. "wv") then
1538               miniwv=min(data(varn,:,:))
1539               maxiwv=max(data(varn,:,:))
1540               if (over .EQ. 1) then
1541                  res@xyDashPattern  = 2
1542                  plot_wv = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1543               else
1544                  res@gsnLeftString      = vNam(varn)
1545                  res@gsnRightString     = unit(varn)
1546                  if (.not. isvar("xs")) then
1547                     if (parameter(63) .NE. "x0") then
1548                        res@trXMinF = stringtofloat(parameter(63))
1549                     else
1550                        res@trXMinF            = miniwv
1551                     end if
1552                  else
1553                     res@trXMinF            = xs
1554                  end if
1555                  if (.not. isvar("xe")) then
1556                     if (parameter(65) .NE. "xdim") then
1557                        res@trXMaxF = stringtofloat(parameter(65))
1558                     else
1559                        res@trXMaxF            = maxiwv
1560                     end if
1561                  else
1562                     res@trXMaxF            = xe 
1563                  end if
1564                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1565               end if
1566            end if
1567
1568            if (vNam(varn) .EQ. "wpptp") then
1569               miniwpptp=min(data(varn,:,:))
1570               maxiwpptp=max(data(varn,:,:))
1571               if (over .EQ. 1) then
1572                  res@xyDashPattern  = 0
1573                  plot_wpptp = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1574               else
1575                  res@gsnLeftString      = vNam(varn)
1576                  res@gsnRightString     = unit(varn)
1577                  if (.not. isvar("xs")) then
1578                     if (parameter(63) .NE. "x0") then
1579                        res@trXMinF = stringtofloat(parameter(63))
1580                     else
1581                        res@trXMinF            = miniwpptp
1582                     end if
1583                  else
1584                     res@trXMinF            = xs
1585                  end if
1586                  if (.not. isvar("xe")) then
1587                     if (parameter(65) .NE. "xdim") then
1588                        res@trXMaxF = stringtofloat(parameter(65))
1589                     else
1590                        res@trXMaxF            = maxiwpptp
1591                     end if
1592                  else
1593                     res@trXMaxF            = xe 
1594                  end if
1595                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1596               end if
1597            end if
1598            if (vNam(varn) .EQ. "wspts") then
1599               miniwspts=min(data(varn,:,:))
1600               maxiwspts=max(data(varn,:,:))
1601               if (over .EQ. 1) then
1602                  res@xyDashPattern  = 1
1603                  plot_wspts = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1604               else
1605                  res@gsnLeftString      = vNam(varn)
1606                  res@gsnRightString     = unit(varn)
1607                  if (.not. isvar("xs")) then
1608                     if (parameter(63) .NE. "x0") then
1609                        res@trXMinF = stringtofloat(parameter(63))
1610                     else
1611                        res@trXMinF            = miniwspts
1612                     end if
1613                  else
1614                     res@trXMinF            = xs
1615                  end if
1616                  if (.not. isvar("xe")) then
1617                     if (parameter(65) .NE. "xdim") then
1618                        res@trXMaxF = stringtofloat(parameter(65))
1619                     else
1620                        res@trXMaxF            = maxiwspts
1621                     end if
1622                  else
1623                     res@trXMaxF            = xe 
1624                  end if
1625                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1626               end if
1627            end if
1628            if (vNam(varn) .EQ. "wpt") then
1629               miniwpt=min(data(varn,:,:))
1630               maxiwpt=max(data(varn,:,:))
1631               if (over .EQ. 1) then
1632                  res@xyDashPattern  = 2
1633                  plot_wpt = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1634               else
1635                  res@gsnLeftString      = vNam(varn)
1636                  res@gsnRightString     = unit(varn)
1637                  if (.not. isvar("xs")) then
1638                     if (parameter(63) .NE. "x0") then
1639                        res@trXMinF = stringtofloat(parameter(63))
1640                     else
1641                        res@trXMinF            = miniwpt
1642                     end if
1643                  else
1644                     res@trXMinF            = xs
1645                  end if
1646                  if (.not. isvar("xe")) then
1647                     if (parameter(65) .NE. "xdim") then
1648                        res@trXMaxF = stringtofloat(parameter(65))
1649                     else
1650                        res@trXMaxF            = maxiwpt
1651                     end if
1652                  else
1653                     res@trXMaxF            = xe 
1654                  end if
1655                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1656               end if
1657            end if
1658
1659            if (vNam(varn) .EQ. "wsptsBC") then
1660               miniwsptsBC=min(data(varn,:,:))
1661               maxiwsptsBC=max(data(varn,:,:))
1662               if (over .EQ. 1) then
1663                  res@xyDashPattern  = 0
1664                  plot_wsptsBC = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1665               else
1666                  res@gsnLeftString      = vNam(varn)
1667                  res@gsnRightString     = unit(varn)
1668                  if (.not. isvar("xs")) then
1669                     if (parameter(63) .NE. "x0") then
1670                        res@trXMinF = stringtofloat(parameter(63))
1671                     else
1672                        res@trXMinF            = miniwsptsBC
1673                     end if
1674                  else
1675                     res@trXMinF            = xs
1676                  end if
1677                  if (.not. isvar("xe")) then
1678                     if (parameter(65) .NE. "xdim") then
1679                        res@trXMaxF = stringtofloat(parameter(65))
1680                     else
1681                        res@trXMaxF            = maxiwsptsBC
1682                     end if
1683                  else
1684                     res@trXMaxF            = xe 
1685                  end if
1686                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1687               end if
1688            end if             
1689            if (vNam(varn) .EQ. "wptBC") then
1690               miniwptBC=min(data(varn,:,:))
1691               maxiwptBC=max(data(varn,:,:))
1692               if (over .EQ. 1) then
1693                  res@xyDashPattern  = 1
1694                  plot_wptBC = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1695               else
1696                  res@gsnLeftString      = vNam(varn)
1697                  res@gsnRightString     = unit(varn)
1698                  if (.not. isvar("xs")) then
1699                     if (parameter(63) .NE. "x0") then
1700                        res@trXMinF = stringtofloat(parameter(63))
1701                     else
1702                        res@trXMinF            = miniwptBC
1703                     end if
1704                  else
1705                     res@trXMinF            = xs
1706                  end if
1707                  if (.not. isvar("xe")) then
1708                     if (parameter(65) .NE. "xdim") then
1709                        res@trXMaxF = stringtofloat(parameter(65))
1710                     else
1711                        res@trXMaxF            = maxiwptBC
1712                     end if
1713                  else
1714                     res@trXMaxF            = xe 
1715                  end if
1716                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1717               end if
1718            end if
1719
1720            if (vNam(varn) .EQ. "wpvptp") then
1721               miniwpvptp=min(data(varn,:,:))
1722               maxiwpvptp=max(data(varn,:,:))
1723               if (over .EQ. 1) then
1724                  res@xyDashPattern  = 0
1725                  plot_wpvptp = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1726               else
1727                  res@gsnLeftString      = vNam(varn)
1728                  res@gsnRightString     = unit(varn)
1729                  if (.not. isvar("xs")) then
1730                     if (parameter(63) .NE. "x0") then
1731                        res@trXMinF = stringtofloat(parameter(63))
1732                     else
1733                        res@trXMinF            = miniwpvptp
1734                     end if
1735                  else
1736                     res@trXMinF            = xs
1737                  end if
1738                  if (.not. isvar("xe")) then
1739                     if (parameter(65) .NE. "xdim") then
1740                        res@trXMaxF = stringtofloat(parameter(65))
1741                     else
1742                        res@trXMaxF            = maxiwpvptp
1743                     end if
1744                  else
1745                     res@trXMaxF            = xe 
1746                  end if
1747                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1748               end if
1749            end if
1750            if (vNam(varn) .EQ. "wsvpts") then
1751               miniwsvpts=min(data(varn,:,:))
1752               maxiwsvpts=max(data(varn,:,:))
1753               if (over .EQ. 1) then
1754                  res@xyDashPattern  = 1
1755                  plot_wsvpts = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1756               else
1757                  res@gsnLeftString      = vNam(varn)
1758                  res@gsnRightString     = unit(varn)
1759                  if (.not. isvar("xs")) then
1760                     if (parameter(63) .NE. "x0") then
1761                        res@trXMinF = stringtofloat(parameter(63))
1762                     else
1763                        res@trXMinF            = miniwsvpts
1764                     end if
1765                  else
1766                     res@trXMinF            = xs
1767                  end if
1768                  if (.not. isvar("xe")) then
1769                     if (parameter(65) .NE. "xdim") then
1770                        res@trXMaxF = stringtofloat(parameter(65))
1771                     else
1772                        res@trXMaxF            = maxiwsvpts
1773                     end if
1774                  else
1775                     res@trXMaxF            = xe 
1776                  end if
1777                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1778               end if
1779            end if
1780            if (vNam(varn) .EQ. "wvpt") then
1781               miniwvpt=min(data(varn,:,:))
1782               maxiwvpt=max(data(varn,:,:))
1783               if (over .EQ. 1) then
1784                  res@xyDashPattern  = 2
1785                  plot_wvpt = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1786               else
1787                  res@gsnLeftString      = vNam(varn)
1788                  res@gsnRightString     = unit(varn)
1789                  if (.not. isvar("xs")) then
1790                     if (parameter(63) .NE. "x0") then
1791                        res@trXMinF = stringtofloat(parameter(63))
1792                     else
1793                        res@trXMinF            = miniwvpt
1794                     end if
1795                  else
1796                     res@trXMinF            = xs
1797                  end if
1798                  if (.not. isvar("xe")) then
1799                     if (parameter(65) .NE. "xdim") then
1800                        res@trXMaxF = stringtofloat(parameter(65))
1801                     else
1802                        res@trXMaxF            = maxiwvpt
1803                     end if
1804                  else
1805                     res@trXMaxF            = xe 
1806                  end if
1807                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1808               end if
1809            end if
1810
1811            if (vNam(varn) .EQ. "wpqp") then
1812               miniwpqp=min(data(varn,:,:))
1813               maxiwpqp=max(data(varn,:,:))
1814               if (over .EQ. 1) then
1815                  res@xyDashPattern  = 0
1816                  plot_wpqp = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1817               else
1818                  res@gsnLeftString      = vNam(varn)
1819                  res@gsnRightString     = unit(varn)
1820                  if (.not. isvar("xs")) then
1821                     if (parameter(63) .NE. "x0") then
1822                        res@trXMinF = stringtofloat(parameter(63))
1823                     else
1824                        res@trXMinF            = miniwpqp
1825                     end if
1826                  else
1827                     res@trXMinF            = xs
1828                  end if
1829                  if (.not. isvar("xe")) then
1830                     if (parameter(65) .NE. "xdim") then
1831                        res@trXMaxF = stringtofloat(parameter(65))
1832                     else
1833                        res@trXMaxF            = maxiwpqp
1834                     end if
1835                  else
1836                     res@trXMaxF            = xe 
1837                  end if
1838                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1839               end if
1840            end if
1841            if (vNam(varn) .EQ. "wsqs") then
1842               miniwsqs=min(data(varn,:,:))
1843               maxiwsqs=max(data(varn,:,:))
1844               if (over .EQ. 1) then
1845                  res@xyDashPattern  = 1
1846                  plot_wsqs = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1847               else
1848                  res@gsnLeftString      = vNam(varn)
1849                  res@gsnRightString     = unit(varn)
1850                  if (.not. isvar("xs")) then
1851                     if (parameter(63) .NE. "x0") then
1852                        res@trXMinF = stringtofloat(parameter(63))
1853                     else
1854                        res@trXMinF            = miniwsqs
1855                     end if
1856                  else
1857                     res@trXMinF            = xs
1858                  end if
1859                  if (.not. isvar("xe")) then
1860                     if (parameter(65) .NE. "xdim") then
1861                        res@trXMaxF = stringtofloat(parameter(65))
1862                     else
1863                        res@trXMaxF            = maxiwsqs
1864                     end if
1865                  else
1866                     res@trXMaxF            = xe 
1867                  end if
1868                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1869               end if
1870            end if
1871            if (vNam(varn) .EQ. "wq") then
1872               miniwq=min(data(varn,:,:))
1873               maxiwq=max(data(varn,:,:))
1874               if (over .EQ. 1) then
1875                  res@xyDashPattern  = 2
1876                  plot_wq = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1877               else
1878                  res@gsnLeftString      = vNam(varn)
1879                  res@gsnRightString     = unit(varn)
1880                  if (.not. isvar("xs")) then
1881                     if (parameter(63) .NE. "x0") then
1882                        res@trXMinF = stringtofloat(parameter(63))
1883                     else
1884                        res@trXMinF            = miniwq
1885                     end if
1886                  else
1887                     res@trXMinF            = xs
1888                  end if
1889                  if (.not. isvar("xe")) then
1890                     if (parameter(65) .NE. "xdim") then
1891                        res@trXMaxF = stringtofloat(parameter(65))
1892                     else
1893                        res@trXMaxF            = maxiwq
1894                     end if
1895                  else
1896                     res@trXMaxF            = xe 
1897                  end if
1898                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1899               end if
1900            end if
1901
1902            if (vNam(varn) .EQ. "wpqvp") then
1903               miniwpqvp=min(data(varn,:,:))
1904               maxiwpqvp=max(data(varn,:,:))
1905               if (over .EQ. 1) then
1906                  res@xyDashPattern  = 0
1907                  plot_wpqvp = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1908               else
1909                  res@gsnLeftString      = vNam(varn)
1910                  res@gsnRightString     = unit(varn)
1911                  if (.not. isvar("xs")) then
1912                     if (parameter(63) .NE. "x0") then
1913                        res@trXMinF = stringtofloat(parameter(63))
1914                     else
1915                        res@trXMinF            = miniwpqvp
1916                     end if
1917                  else
1918                     res@trXMinF            = xs
1919                  end if
1920                  if (.not. isvar("xe")) then
1921                     if (parameter(65) .NE. "xdim") then
1922                        res@trXMaxF = stringtofloat(parameter(65))
1923                     else
1924                        res@trXMaxF            = maxiwpqvp
1925                     end if
1926                  else
1927                     res@trXMaxF            = xe 
1928                  end if
1929                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1930               end if
1931            end if
1932            if (vNam(varn) .EQ. "wsqvs") then
1933               miniwsqvs=min(data(varn,:,:))
1934               maxiwsqvs=max(data(varn,:,:))
1935               if (over .EQ. 1) then
1936                  res@xyDashPattern  = 1
1937                  plot_wsqvs = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1938               else
1939                  res@gsnLeftString      = vNam(varn)
1940                  res@gsnRightString     = unit(varn)
1941                  if (.not. isvar("xs")) then
1942                     if (parameter(63) .NE. "x0") then
1943                        res@trXMinF = stringtofloat(parameter(63))
1944                     else
1945                        res@trXMinF            = miniwsqvs
1946                     end if
1947                  else
1948                     res@trXMinF            = xs
1949                  end if
1950                  if (.not. isvar("xe")) then
1951                     if (parameter(65) .NE. "xdim") then
1952                        res@trXMaxF = stringtofloat(parameter(65))
1953                     else
1954                        res@trXMaxF            = maxiwsqvs
1955                     end if
1956                  else
1957                     res@trXMaxF            = xe 
1958                  end if
1959                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1960               end if
1961            end if
1962            if (vNam(varn) .EQ. "wqv") then
1963               miniwqv=min(data(varn,:,:))
1964               maxiwqv=max(data(varn,:,:))
1965               if (over .EQ. 1) then
1966                  res@xyDashPattern  = 2
1967                  plot_wqv = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1968               else
1969                  res@gsnLeftString      = vNam(varn)
1970                  res@gsnRightString     = unit(varn)
1971                  if (.not. isvar("xs")) then
1972                     if (parameter(63) .NE. "x0") then
1973                        res@trXMinF = stringtofloat(parameter(63))
1974                     else
1975                        res@trXMinF            = miniwqv
1976                     end if
1977                  else
1978                     res@trXMinF            = xs
1979                  end if
1980                  if (.not. isvar("xe")) then
1981                     if (parameter(65) .NE. "xdim") then
1982                        res@trXMaxF = stringtofloat(parameter(65))
1983                     else
1984                        res@trXMaxF            = maxiwqv
1985                     end if
1986                  else
1987                     res@trXMaxF            = xe 
1988                  end if
1989                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1990               end if
1991            end if
1992
1993            if (vNam(varn) .EQ. "wpsp") then
1994               miniwpsp=min(data(varn,:,:))
1995               maxiwpsp=max(data(varn,:,:))
1996               if (over .EQ. 1) then
1997                  res@xyDashPattern  = 0
1998                  plot_wpsp = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
1999               else
2000                  res@gsnLeftString      = vNam(varn)
2001                  res@gsnRightString     = unit(varn)
2002                  if (.not. isvar("xs")) then
2003                     if (parameter(63) .NE. "x0") then
2004                        res@trXMinF = stringtofloat(parameter(63))
2005                     else
2006                        res@trXMinF            = miniwpsp
2007                     end if
2008                  else
2009                     res@trXMinF            = xs
2010                  end if
2011                  if (.not. isvar("xe")) then
2012                     if (parameter(65) .NE. "xdim") then
2013                        res@trXMaxF = stringtofloat(parameter(65))
2014                     else
2015                        res@trXMaxF            = maxiwpsp
2016                     end if
2017                  else
2018                     res@trXMaxF            = xe 
2019                  end if
2020                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2021               end if
2022            end if
2023            if (vNam(varn) .EQ. "wsss") then
2024               miniwsss=min(data(varn,:,:))
2025               maxiwsss=max(data(varn,:,:))
2026               if (over .EQ. 1) then
2027                  res@xyDashPattern  = 1
2028                  plot_wsss = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2029               else
2030                  res@gsnLeftString      = vNam(varn)
2031                  res@gsnRightString     = unit(varn)
2032                  if (.not. isvar("xs")) then
2033                     if (parameter(63) .NE. "x0") then
2034                        res@trXMinF = stringtofloat(parameter(63))
2035                     else
2036                        res@trXMinF            = miniwsss
2037                     end if
2038                  else
2039                     res@trXMinF            = xs
2040                  end if
2041                  if (.not. isvar("xe")) then
2042                     if (parameter(65) .NE. "xdim") then
2043                        res@trXMaxF = stringtofloat(parameter(65))
2044                     else
2045                        res@trXMaxF            = maxiwsss
2046                     end if
2047                  else
2048                     res@trXMaxF            = xe 
2049                  end if
2050                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2051               end if
2052            end if
2053            if (vNam(varn) .EQ. "ws") then
2054               miniws=min(data(varn,:,:))
2055               maxiws=max(data(varn,:,:))
2056               if (over .EQ. 1) then
2057                  res@xyDashPattern  = 2
2058                  plot_ws = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2059               else
2060                  res@gsnLeftString      = vNam(varn)
2061                  res@gsnRightString     = unit(varn)
2062                  if (.not. isvar("xs")) then
2063                     if (parameter(63) .NE. "x0") then
2064                        res@trXMinF = stringtofloat(parameter(63))
2065                     else
2066                        res@trXMinF            = miniws
2067                     end if
2068                  else
2069                     res@trXMinF            = xs
2070                  end if
2071                  if (.not. isvar("xe")) then
2072                     if (parameter(65) .NE. "xdim") then
2073                        res@trXMaxF = stringtofloat(parameter(65))
2074                     else
2075                        res@trXMaxF            = maxiws
2076                     end if
2077                  else
2078                     res@trXMaxF            = xe 
2079                  end if
2080                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2081               end if
2082            end if
2083
2084            if (vNam(varn) .EQ. "wpsap") then
2085               miniwpsap=min(data(varn,:,:))
2086               maxiwpsap=max(data(varn,:,:))
2087               if (over .EQ. 1) then
2088                  res@xyDashPattern  = 0
2089                  plot_wpsap = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2090               else
2091                  res@gsnLeftString      = vNam(varn)
2092                  res@gsnRightString     = unit(varn)
2093                  if (.not. isvar("xs")) then
2094                     if (parameter(63) .NE. "x0") then
2095                        res@trXMinF = stringtofloat(parameter(63))
2096                     else
2097                        res@trXMinF            = miniwpsap
2098                     end if
2099                  else
2100                     res@trXMinF            = xs
2101                  end if
2102                  if (.not. isvar("xe")) then
2103                     if (parameter(65) .NE. "xdim") then
2104                        res@trXMaxF = stringtofloat(parameter(65))
2105                     else
2106                        res@trXMaxF            = maxiwpsap
2107                     end if
2108                  else
2109                     res@trXMaxF            = xe 
2110                  end if
2111                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2112               end if
2113            end if
2114            if (vNam(varn) .EQ. "wssas") then
2115               miniwssas=min(data(varn,:,:))
2116               maxiwssas=max(data(varn,:,:))
2117               if (over .EQ. 1) then
2118                  res@xyDashPattern  = 1
2119                  plot_wssas = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2120               else
2121                  res@gsnLeftString      = vNam(varn)
2122                  res@gsnRightString     = unit(varn)
2123                  if (.not. isvar("xs")) then
2124                     if (parameter(63) .NE. "x0") then
2125                        res@trXMinF = stringtofloat(parameter(63))
2126                     else
2127                        res@trXMinF            = miniwssas
2128                     end if
2129                  else
2130                     res@trXMinF            = xs
2131                  end if
2132                  if (.not. isvar("xe")) then
2133                     if (parameter(65) .NE. "xdim") then
2134                        res@trXMaxF = stringtofloat(parameter(65))
2135                     else
2136                        res@trXMaxF            = maxiwssas
2137                     end if
2138                  else
2139                     res@trXMaxF            = xe 
2140                  end if
2141                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2142               end if
2143            end if
2144            if (vNam(varn) .EQ. "wsa") then
2145               miniwsa=min(data(varn,:,:))
2146               maxiwsa=max(data(varn,:,:))
2147               if (over .EQ. 1) then
2148                  res@xyDashPattern  = 2
2149                  plot_wsa = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2150               else
2151                  res@gsnLeftString      = vNam(varn)
2152                  res@gsnRightString     = unit(varn)
2153                  if (.not. isvar("xs")) then
2154                     if (parameter(63) .NE. "x0") then
2155                        res@trXMinF = stringtofloat(parameter(63))
2156                     else
2157                        res@trXMinF            = miniwsa
2158                     end if
2159                  else
2160                     res@trXMinF            = xs
2161                  end if
2162                  if (.not. isvar("xe")) then
2163                     if (parameter(65) .NE. "xdim") then
2164                        res@trXMaxF = stringtofloat(parameter(65))
2165                     else
2166                        res@trXMaxF            = maxiwsa
2167                     end if
2168                  else
2169                     res@trXMaxF            = xe 
2170                  end if
2171                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2172               end if
2173            end if
2174
2175            if (vNam(varn) .EQ. "us2") then
2176               minius2=min(data(varn,:,:))
2177               maxius2=max(data(varn,:,:))
2178               if (over .EQ. 1) then
2179                  res@xyDashPattern  = 0
2180                  plot_us2 = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
2181               else
2182                  res@gsnLeftString      = vNam(varn)
2183                  res@gsnRightString     = unit(varn)
2184                  if (.not. isvar("xs")) then
2185                     if (parameter(63) .NE. "x0") then
2186                        res@trXMinF = stringtofloat(parameter(63))
2187                     else
2188                        res@trXMinF            = minius2
2189                     end if
2190                  else
2191                     res@trXMinF            = xs
2192                  end if
2193                  if (.not. isvar("xe")) then
2194                     if (parameter(65) .NE. "xdim") then
2195                        res@trXMaxF = stringtofloat(parameter(65))
2196                     else
2197                        res@trXMaxF            = maxius2
2198                     end if
2199                  else
2200                     res@trXMaxF            = xe 
2201                  end if
2202                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
2203               end if
2204            end if
2205            if (vNam(varn) .EQ. "vs2") then
2206               minivs2=min(data(varn,:,:))
2207               maxivs2=max(data(varn,:,:))
2208               if (over .EQ. 1) then
2209                  res@xyDashPattern  = 1
2210                  plot_vs2 = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
2211               else
2212                  res@gsnLeftString      = vNam(varn)
2213                  res@gsnRightString     = unit(varn)
2214                  if (.not. isvar("xs")) then
2215                     if (parameter(63) .NE. "x0") then
2216                        res@trXMinF = stringtofloat(parameter(63))
2217                     else
2218                        res@trXMinF            = minivs2
2219                     end if
2220                  else
2221                     res@trXMinF            = xs
2222                  end if
2223                  if (.not. isvar("xe")) then
2224                     if (parameter(65) .NE. "xdim") then
2225                        res@trXMaxF = stringtofloat(parameter(65))
2226                     else
2227                        res@trXMaxF            = maxivs2
2228                     end if
2229                  else
2230                     res@trXMaxF            = xe 
2231                  end if
2232                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
2233               end if
2234            end if
2235            if (vNam(varn) .EQ. "ws2") then
2236               miniws2=min(data(varn,:,:))
2237               maxiws2=max(data(varn,:,:))
2238               if (over .EQ. 1) then
2239                  res@xyDashPattern  = 2
2240                  plot_ws2 = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2241               else
2242                  res@gsnLeftString      = vNam(varn)
2243                  res@gsnRightString     = unit(varn)
2244                  if (.not. isvar("xs")) then
2245                     if (parameter(63) .NE. "x0") then
2246                        res@trXMinF = stringtofloat(parameter(63))
2247                     else
2248                        res@trXMinF            = miniws2
2249                     end if
2250                  else
2251                     res@trXMinF            = xs
2252                  end if
2253                  if (.not. isvar("xe")) then
2254                     if (parameter(65) .NE. "xdim") then
2255                        res@trXMaxF = stringtofloat(parameter(65))
2256                     else
2257                        res@trXMaxF            = maxiws2
2258                     end if
2259                  else
2260                     res@trXMaxF            = xe 
2261                  end if
2262                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2263               end if
2264            end if
2265
2266            if (vNam(varn) .EQ. "wsususodz") then
2267               miniwsususodz=min(data(varn,:,:))
2268               maxiwsususodz=max(data(varn,:,:))
2269               if (over .EQ. 1) then
2270                  res@xyDashPattern  = 0
2271                  plot_wsususodz = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
2272               else
2273                  res@gsnLeftString      = vNam(varn)
2274                  res@gsnRightString     = unit(varn)
2275                  if (.not. isvar("xs")) then
2276                     if (parameter(63) .NE. "x0") then
2277                        res@trXMinF = stringtofloat(parameter(63))
2278                     else
2279                        res@trXMinF            = miniwsususodz
2280                     end if
2281                  else
2282                     res@trXMinF            = xs
2283                  end if
2284                  if (.not. isvar("xe")) then
2285                     if (parameter(65) .NE. "xdim") then
2286                        res@trXMaxF = stringtofloat(parameter(65))
2287                     else
2288                        res@trXMaxF            = maxiwsususodz
2289                     end if
2290                  else
2291                     res@trXMaxF            = xe 
2292                  end if
2293                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
2294               end if 
2295            end if
2296            if (vNam(varn) .EQ. "wspsodz") then
2297               miniwspsodz=min(data(varn,:,:))
2298               maxiwspsodz=max(data(varn,:,:))
2299               if (over .EQ. 1) then
2300                  res@xyDashPattern  = 1
2301                  plot_wspsodz = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
2302               else
2303                  res@gsnLeftString      = vNam(varn)
2304                  res@gsnRightString     = unit(varn)
2305                  if (.not. isvar("xs")) then
2306                     if (parameter(63) .NE. "x0") then
2307                        res@trXMinF = stringtofloat(parameter(63))
2308                     else
2309                        res@trXMinF            = miniwspsodz
2310                     end if
2311                  else
2312                     res@trXMinF            = xs
2313                  end if
2314                  if (.not. isvar("xe")) then
2315                     if (parameter(65) .NE. "xdim") then
2316                        res@trXMaxF = stringtofloat(parameter(65))
2317                     else
2318                        res@trXMaxF            = maxiwspsodz
2319                     end if
2320                  else
2321                     res@trXMaxF            = xe 
2322                  end if
2323                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_u,res)
2324               end if
2325            end if
2326            if (vNam(varn) .EQ. "wpeodz") then
2327               miniwpeodz=min(data(varn,:,:))
2328               maxiwpeodz=max(data(varn,:,:))
2329               if (over .EQ. 1) then
2330                  res@xyDashPattern  = 2
2331                  plot_wpeodz = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2332               else
2333                  res@gsnLeftString      = vNam(varn)
2334                  res@gsnRightString     = unit(varn)
2335                  if (.not. isvar("xs")) then
2336                     if (parameter(63) .NE. "x0") then
2337                        res@trXMinF = stringtofloat(parameter(63))
2338                     else
2339                        res@trXMinF            = miniwpeodz
2340                     end if
2341                  else
2342                     res@trXMinF            = xs
2343                  end if
2344                  if (.not. isvar("xe")) then
2345                     if (parameter(65) .NE. "xdim") then
2346                        res@trXMaxF = stringtofloat(parameter(65))
2347                     else
2348                        res@trXMaxF            = maxiwpeodz
2349                     end if
2350                  else
2351                     res@trXMaxF            = xe 
2352                  end if
2353                  plot(n) = gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2354               end if
2355            end if
2356         if (over .EQ. 0) then
2357            n=n+1 
2358         end if     
2359         varn=varn+1
2360      end if     
2361      delete(temp)
2362   end do
2363
2364   if (count_var .EQ. 0) then
2365      print(" ")
2366      print("Please select a variable 'var=' or use the default value")
2367      print(" ")
2368      print("Your selection '"+var+"' does not exist on the input file")
2369      print(" ")
2370      exit
2371   end if
2372
2373   if (over .EQ. 1 ) then
2374
2375      overlay(plot_u,plot_v)
2376      overlay(plot_u,plot_w)
2377      u=0
2378      overlay(plot_pt,plot_vpt)
2379      overlay(plot_pt,plot_lpt)
2380      pt=0
2381      overlay(plot_q,plot_qv)
2382      overlay(plot_q,plot_ql)
2383      q=0
2384      overlay(plot_e,plot_es)
2385      e=0
2386      overlay(plot_km,plot_kh)
2387      km=0
2388      overlay(plot_wpup,plot_wsus)
2389      overlay(plot_wpup,plot_wu)
2390      wpup=0
2391      overlay(plot_wpvp,plot_wsvs)
2392      overlay(plot_wpvp,plot_wv)
2393      wpvp=0
2394      overlay(plot_wpptp,plot_wspts)
2395      overlay(plot_wpptp,plot_wpt)
2396      wpptp=0
2397      overlay(plot_wsptsBC,plot_wptBC)
2398      wsptsBC=0
2399      overlay(plot_wpvptp,plot_wsvpts)
2400      overlay(plot_wpvptp,plot_wvpt)
2401      wpvptp=0
2402      overlay(plot_wpqp,plot_wsqs)
2403      overlay(plot_wpqp,plot_wq)
2404      wpqp=0
2405      overlay(plot_wpqvp,plot_wsqvs)
2406      overlay(plot_wpqvp,plot_wqv)
2407      wpqvp=0
2408      overlay(plot_wpsp,plot_wsss)
2409      overlay(plot_wpsp,plot_ws)
2410      wpsp=0
2411      overlay(plot_wpsap,plot_wssas)
2412      overlay(plot_wpsap,plot_wsa)
2413      wpsap=0
2414      overlay(plot_us2,plot_vs2)
2415      overlay(plot_us2,plot_ws2)
2416      us2=0
2417      overlay(plot_wsususodz,plot_wspsodz)
2418      overlay(plot_wsususodz,plot_wpeodz)
2419      wsususodz=0
2420
2421   end if
2422
2423   if (over .EQ. 1) then
2424   
2425      do varn = 0,dim-1   
2426     
2427         if ( isStrSubset( vNam(varn), "time") .OR. isStrSubset( vNam(varn), "NORM")) then
2428            check = False
2429         else
2430            if (.not. isvar("var")) then
2431               check = True
2432               if (parameter(21) .NE. "variables") then
2433                  var=parameter(21)
2434                  check = isStrSubset( var,","+vNam(varn)+"," )
2435               end if
2436            else         
2437               check = isStrSubset( var,","+vNam(varn)+"," )
2438            end if
2439         end if 
2440
2441         if (check)
2442           
2443            z = f->$vNam(varn+1)$
2444           
2445            res@gsnLeftString      = vNam(varn)
2446            res@gsnRightString     = unit(varn)
2447            res@trYMinF            = min_z
2448            res@trYMaxF            = max_z 
2449            if (.not. isvar("xs")) then
2450               if (parameter(63) .NE. "x0") then
2451                  res@trXMinF = stringtofloat(parameter(63))
2452               else
2453                  res@trXMinF = min(data(varn,:,:))
2454               end if
2455            else
2456               res@trXMinF = xs
2457            end if
2458            if (.not. isvar("xe")) then
2459               if (parameter(65) .NE. "xdim") then
2460                  res@trXMaxF = stringtofloat(parameter(65))
2461               else
2462                  res@trXMaxF = max(data(varn,:,:))
2463            end if
2464            else
2465               res@trXMaxF = xe 
2466            end if
2467            plot(n) = gsn_csm_xy(wks,data(varn,:,:),z,res) 
2468           
2469            if (vNam(varn) .EQ. "u" .OR. vNam(varn) .EQ. "v" .OR. vNam(varn) .EQ. "w") then
2470               if (u .EQ. 0) then
2471                  res@gsnLeftString      = "u, v and w"
2472                  res@gsnRightString     = unit(varn)
2473                  if (.not. isvar("xs")) then
2474                     if (parameter(63) .NE. "x0") then
2475                        res@trXMinF = stringtofloat(parameter(63))
2476                     else
2477                        res@trXMinF = min((/miniu,miniv,miniw/))
2478                     end if
2479                  else
2480                     res@trXMinF = xs
2481                  end if
2482                  if (.not. isvar("xe")) then
2483                     if (parameter(65) .NE. "xdim") then
2484                        res@trXMaxF = stringtofloat(parameter(65))
2485                     else
2486                        res@trXMaxF = max((/maxiu,maxiv,maxiw/))
2487                     end if
2488                  else
2489                     res@trXMaxF = xe 
2490                  end if
2491                  if (vNam(varn) .EQ. "w") then
2492                     plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2493                  else
2494                     plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_u,res)
2495                  end if
2496
2497                  ; ***************************************************
2498                  ; legend for combined plot
2499                  ; ***************************************************
2500     
2501                  lgres                    = True
2502                  lgMonoDashIndex          = False
2503                  lgres@lgLabelFont        = "helvetica"   
2504                  lgres@lgLabelFontHeightF = .1           
2505                  lgres@vpWidthF           = 0.12           
2506                  lgres@vpHeightF          = 0.1         
2507                  lgres@lgDashIndexes      = (/0,1,2/)
2508                  lbid = gsn_create_legend(wks,3,(/"u","v","w"/),lgres)       
2509
2510                  amres = True
2511                  amres@amParallelPosF   = 0.65             
2512                  amres@amOrthogonalPosF = -0.2           
2513                  annoid1 = gsn_add_annotation(plot(n),lbid,amres)                 
2514                  overlay(plot(n),plot_u)
2515                  u=1
2516               else
2517                  varn=varn+1
2518                  continue
2519               end if       
2520            end if 
2521     
2522            if (vNam(varn) .EQ. "pt" .OR. vNam(varn) .EQ. "vpt" .OR. vNam(varn) .EQ. "lpt") then
2523               if (pt .EQ. 0) then
2524                  res@gsnLeftString      = "pt, vpt and lpt"
2525                  res@gsnRightString     = unit(varn)
2526                  if (.not. isvar("xs")) then
2527                     if (parameter(63) .NE. "x0") then
2528                        res@trXMinF = stringtofloat(parameter(63))
2529                     else
2530                        res@trXMinF = min((/minipt,minivpt,minilpt/))
2531                     end if
2532                  else
2533                     res@trXMinF = xs
2534                  end if
2535                  if (.not. isvar("xe")) then
2536                     if (parameter(65) .NE. "xdim") then
2537                        res@trXMaxF = stringtofloat(parameter(65))
2538                     else
2539                        res@trXMaxF = max((/maxipt,maxivpt,maxilpt/))
2540                     end if
2541                  else
2542                     res@trXMaxF = xe 
2543                  end if
2544
2545                  plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_u,res)
2546
2547                  ; ***************************************************
2548                  ; legend for combined plot
2549                  ; ***************************************************
2550     
2551                  lgres                    = True
2552                  lgMonoDashIndex          = False
2553                  lgres@lgLabelFont        = "helvetica"   
2554                  lgres@lgLabelFontHeightF = .1           
2555                  lgres@vpWidthF           = 0.12           
2556                  lgres@vpHeightF          = 0.1         
2557                  lgres@lgDashIndexes      = (/0,1,2/)
2558                  lbid = gsn_create_legend(wks,3,(/"pt","vpt","lpt"/),lgres)       
2559
2560                  amres = True
2561                  amres@amParallelPosF   = 0.65             
2562                  amres@amOrthogonalPosF = -0.2           
2563                  annoid1 = gsn_add_annotation(plot(n),lbid,amres)                 
2564                  overlay(plot(n),plot_pt)
2565                  pt=1
2566               else
2567                  varn=varn+1
2568                  continue       
2569               end if
2570            end if           
2571            if (vNam(varn) .EQ. "q" .OR. vNam(varn) .EQ. "qv" .OR. vNam(varn) .EQ. "ql") then
2572               if (q .EQ. 0) then
2573                  res@gsnLeftString      = "q, qv and ql"
2574                  res@gsnRightString     = unit(varn)
2575                  if (.not. isvar("xs")) then
2576                     if (parameter(63) .NE. "x0") then
2577                        res@trXMinF = stringtofloat(parameter(63))
2578                     else
2579                        res@trXMinF = min((/miniq,miniqv,miniql/))
2580                     end if
2581                  else
2582                     res@trXMinF = xs
2583                  end if
2584                  if (.not. isvar("xe")) then
2585                     if (parameter(65) .NE. "xdim") then
2586                        res@trXMaxF = stringtofloat(parameter(65))
2587                     else
2588                        res@trXMaxF = max((/maxiq,maxiqv,maxiql/))
2589                     end if
2590                  else
2591                     res@trXMaxF = xe 
2592                  end if
2593
2594                  plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_u,res)
2595
2596                  ; ***************************************************
2597                  ; legend for combined plot
2598                  ; ***************************************************
2599     
2600                  lgres                    = True
2601                  lgMonoDashIndex          = False
2602                  lgres@lgLabelFont        = "helvetica"   
2603                  lgres@lgLabelFontHeightF = .1           
2604                  lgres@vpWidthF           = 0.12           
2605                  lgres@vpHeightF          = 0.1         
2606                  lgres@lgDashIndexes      = (/0,1,2/)
2607                  lbid = gsn_create_legend(wks,3,(/"q","qv","ql"/),lgres)       
2608
2609                  amres = True
2610                  amres@amParallelPosF   = 0.65             
2611                  amres@amOrthogonalPosF = -0.2           
2612                  annoid1 = gsn_add_annotation(plot(n),lbid,amres)                 
2613                  overlay(plot(n),plot_q)
2614                  q=1
2615               else
2616                  varn=varn+1
2617                  continue   
2618               end if
2619            end if   
2620           
2621            if (vNam(varn) .EQ. "e" .OR. vNam(varn) .EQ. "es") then
2622               if (e .EQ. 0) then
2623                  res@gsnLeftString      = "e and es"
2624                  res@gsnRightString     = unit(varn)
2625                  if (.not. isvar("xs")) then
2626                     if (parameter(63) .NE. "x0") then
2627                        res@trXMinF = stringtofloat(parameter(63))
2628                     else
2629                        res@trXMinF = min((/minie,minies/))
2630                     end if
2631                  else
2632                     res@trXMinF = xs
2633                  end if
2634                  if (.not. isvar("xe")) then
2635                     if (parameter(65) .NE. "xdim") then
2636                        res@trXMaxF = stringtofloat(parameter(65))
2637                     else
2638                        res@trXMaxF = max((/maxie,maxies/))
2639                     end if
2640                  else
2641                     res@trXMaxF = xe 
2642                  end if
2643
2644                  plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_u,res)
2645
2646                  ; ***************************************************
2647                  ; legend for combined plot
2648                  ; ***************************************************
2649     
2650                  lgres                    = True
2651                  lgMonoDashIndex          = False
2652                  lgres@lgLabelFont        = "helvetica"   
2653                  lgres@lgLabelFontHeightF = .1           
2654                  lgres@vpWidthF           = 0.12           
2655                  lgres@vpHeightF          = 0.1         
2656                  lgres@lgDashIndexes      = (/0,1,2/)
2657                  lbid = gsn_create_legend(wks,3,(/"e","es"/),lgres)       
2658
2659                  amres = True
2660                  amres@amParallelPosF   = 0.65             
2661                  amres@amOrthogonalPosF = -0.2           
2662                  annoid1 = gsn_add_annotation(plot(n),lbid,amres)                 
2663                  overlay(plot(n),plot_e)
2664                  e=1
2665               else
2666                  varn=varn+1
2667                  continue   
2668               end if
2669            end if           
2670            if (vNam(varn) .EQ. "km" .OR. vNam(varn) .EQ. "kh") then
2671               if (km .EQ. 0) then
2672                  res@gsnLeftString      = "km and kh"
2673                  res@gsnRightString     = unit(varn)
2674                  if (.not. isvar("xs")) then
2675                     if (parameter(63) .NE. "x0") then
2676                        res@trXMinF = stringtofloat(parameter(63))
2677                     else
2678                        res@trXMinF = min((/minikm,minikh/))
2679                     end if
2680                  else
2681                     res@trXMinF = xs
2682                  end if
2683                  if (.not. isvar("xe")) then
2684                     if (parameter(65) .NE. "xdim") then
2685                        res@trXMaxF = stringtofloat(parameter(65))
2686                     else
2687                        res@trXMaxF = max((/maxikm,maxikh/))
2688                     end if
2689                  else
2690                     res@trXMaxF = xe 
2691                  end if
2692
2693                  plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_u,res)
2694
2695                  ; ***************************************************
2696                  ; legend for combined plot
2697                  ; ***************************************************
2698     
2699                  lgres                    = True
2700                  lgMonoDashIndex          = False
2701                  lgres@lgLabelFont        = "helvetica"   
2702                  lgres@lgLabelFontHeightF = .1           
2703                  lgres@vpWidthF           = 0.12           
2704                  lgres@vpHeightF          = 0.1         
2705                  lgres@lgDashIndexes      = (/0,1,2/)
2706                  lbid = gsn_create_legend(wks,3,(/"km","kh"/),lgres)       
2707
2708                  amres = True
2709                  amres@amParallelPosF   = 0.65             
2710                  amres@amOrthogonalPosF = -0.2           
2711                  annoid1 = gsn_add_annotation(plot(n),lbid,amres)                 
2712                  overlay(plot(n),plot_km)
2713                  km=1
2714               else
2715                  varn=varn+1
2716                  continue   
2717               end if
2718            end if           
2719           
2720            if (vNam(varn) .EQ. "wpup" .OR. vNam(varn) .EQ. "wsus" .OR. vNam(varn) .EQ. "wu") then
2721               if (wpup .EQ. 0) then
2722                  res@gsnLeftString      = "wpup, wsus and wu"
2723                  res@gsnRightString     = unit(varn)
2724                  if (.not. isvar("xs")) then
2725                     if (parameter(63) .NE. "x0") then
2726                        res@trXMinF = stringtofloat(parameter(63))
2727                     else
2728                        res@trXMinF = min((/miniwpup,miniwsus,miniwu/))
2729                     end if
2730                  else
2731                     res@trXMinF = xs
2732                  end if
2733                  if (.not. isvar("xe")) then
2734                     if (parameter(65) .NE. "xdim") then
2735                        res@trXMaxF = stringtofloat(parameter(65))
2736                     else
2737                        res@trXMaxF = max((/maxiwpup,maxiwsus,maxiwu/))
2738                     end if
2739                  else
2740                     res@trXMaxF = xe 
2741                  end if
2742
2743                  plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2744
2745                  ; ***************************************************
2746                  ; legend for combined plot
2747                  ; ***************************************************
2748     
2749                  lgres                    = True
2750                  lgMonoDashIndex          = False
2751                  lgres@lgLabelFont        = "helvetica"   
2752                  lgres@lgLabelFontHeightF = .1           
2753                  lgres@vpWidthF           = 0.12           
2754                  lgres@vpHeightF          = 0.1         
2755                  lgres@lgDashIndexes      = (/0,1,2/)
2756                  lbid = gsn_create_legend(wks,3,(/"wpup","wsus","wu"/),lgres)       
2757
2758                  amres = True
2759                  amres@amParallelPosF   = 0.65             
2760                  amres@amOrthogonalPosF = -0.2           
2761                  annoid1 = gsn_add_annotation(plot(n),lbid,amres)                 
2762                  overlay(plot(n),plot_wpup)
2763                  wpup=1
2764               else
2765                  varn=varn+1
2766                  continue   
2767               end if
2768            end if
2769            if (vNam(varn) .EQ. "wpvp" .OR. vNam(varn) .EQ. "wsvs" .OR.vNam(varn) .EQ. "wv") then
2770               if (wpvp .EQ. 0) then
2771                  res@gsnLeftString      = "wpvp, wsus and wv"
2772                  res@gsnRightString     = unit(varn)
2773                  if (.not. isvar("xs")) then
2774                     if (parameter(63) .NE. "x0") then
2775                        res@trXMinF = stringtofloat(parameter(63))
2776                     else
2777                        res@trXMinF = min((/miniwpvp,miniwsvs,miniwv/))
2778                     end if
2779                  else
2780                     res@trXMinF = xs
2781                  end if
2782                  if (.not. isvar("xe")) then
2783                     if (parameter(65) .NE. "xdim") then
2784                        res@trXMaxF = stringtofloat(parameter(65))
2785                     else
2786                        res@trXMaxF = max((/maxiwpvp,maxiwsvs,maxiwv/))
2787                     end if
2788                  else
2789                     res@trXMaxF = xe 
2790                  end if
2791
2792                  plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2793
2794                  ; ***************************************************
2795                  ; legend for combined plot
2796                  ; ***************************************************
2797     
2798                  lgres                    = True
2799                  lgMonoDashIndex          = False
2800                  lgres@lgLabelFont        = "helvetica"   
2801                  lgres@lgLabelFontHeightF = .1           
2802                  lgres@vpWidthF           = 0.12           
2803                  lgres@vpHeightF          = 0.1         
2804                  lgres@lgDashIndexes      = (/0,1,2/)
2805                  lbid = gsn_create_legend(wks,3,(/"wpvp","wsvs","wv"/),lgres)       
2806
2807                  amres = True
2808                  amres@amParallelPosF   = 0.65             
2809                  amres@amOrthogonalPosF = -0.2           
2810                  annoid1 = gsn_add_annotation(plot(n),lbid,amres)                 
2811                  overlay(plot(n),plot_wpvp)
2812                  wpup=0
2813               else
2814                  varn=varn+1
2815                  continue   
2816               end if
2817            end if
2818            if (vNam(varn) .EQ. "wpptp" .OR. vNam(varn) .EQ. "wspts" .OR. vNam(varn) .EQ. "wpt") then
2819               if (wpptp .EQ. 0) then
2820                  res@gsnLeftString      = "wpptp, wspts and wv"
2821                  res@gsnRightString     = unit(varn)
2822                  if (.not. isvar("xs")) then
2823                     if (parameter(63) .NE. "x0") then
2824                        res@trXMinF = stringtofloat(parameter(63))
2825                     else
2826                        res@trXMinF = min((/miniwpptp,miniwspts,miniwpt/))
2827                     end if
2828                  else
2829                     res@trXMinF = xs
2830                  end if
2831                  if (.not. isvar("xe")) then
2832                     if (parameter(65) .NE. "xdim") then
2833                        res@trXMaxF = stringtofloat(parameter(65))
2834                     else
2835                        res@trXMaxF = max((/maxiwpptp,maxiwspts,maxiwpt/))
2836                     end if
2837                  else
2838                     res@trXMaxF = xe 
2839                  end if
2840
2841                  plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2842
2843                  ; ***************************************************
2844                  ; legend for combined plot
2845                  ; ***************************************************
2846     
2847                  lgres                    = True
2848                  lgMonoDashIndex          = False
2849                  lgres@lgLabelFont        = "helvetica"   
2850                  lgres@lgLabelFontHeightF = .1           
2851                  lgres@vpWidthF           = 0.12           
2852                  lgres@vpHeightF          = 0.1         
2853                  lgres@lgDashIndexes      = (/0,1,2/)
2854                  lbid = gsn_create_legend(wks,3,(/"wpptp","wspts","wpt"/),lgres)       
2855
2856                  amres = True
2857                  amres@amParallelPosF   = 0.65             
2858                  amres@amOrthogonalPosF = -0.2           
2859                  annoid1 = gsn_add_annotation(plot(n),lbid,amres)                 
2860                  overlay(plot(n),plot_wpptp)
2861                  wpptp=1
2862               else
2863                  varn=varn+1
2864                  continue   
2865               end if
2866            end if
2867            if (vNam(varn) .EQ. "wsptsBC" .OR. vNam(varn) .EQ. "wptBC") then
2868               if (wsptsBC .EQ. 0) then
2869                  res@gsnLeftString      = "wsptsBC and wptBC"
2870                  res@gsnRightString     = unit(varn)
2871                  if (.not. isvar("xs")) then
2872                     if (parameter(63) .NE. "x0") then
2873                        res@trXMinF = stringtofloat(parameter(63))
2874                     else
2875                        res@trXMinF = min((/miniwsptsBC,miniwptBC/))
2876                     end if
2877                  else
2878                     res@trXMinF = xs
2879                  end if
2880                  if (.not. isvar("xe")) then
2881                     if (parameter(65) .NE. "xdim") then
2882                        res@trXMaxF = stringtofloat(parameter(65))
2883                     else
2884                        res@trXMaxF = max((/maxiwsptsBC,maxiwptBC/))
2885                     end if
2886                  else
2887                     res@trXMaxF = xe 
2888                  end if
2889
2890                  plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2891
2892                  ; ***************************************************
2893                  ; legend for combined plot
2894                  ; ***************************************************
2895     
2896                  lgres                    = True
2897                  lgMonoDashIndex          = False
2898                  lgres@lgLabelFont        = "helvetica"   
2899                  lgres@lgLabelFontHeightF = .1           
2900                  lgres@vpWidthF           = 0.12           
2901                  lgres@vpHeightF          = 0.1         
2902                  lgres@lgDashIndexes      = (/0,1,2/)
2903                  lbid = gsn_create_legend(wks,3,(/"wsptsBC","wptBC"/),lgres)       
2904
2905                  amres = True
2906                  amres@amParallelPosF   = 0.65             
2907                  amres@amOrthogonalPosF = -0.2           
2908                  annoid1 = gsn_add_annotation(plot(n),lbid,amres)                 
2909                  overlay(plot(n),plot_wsptsBC)
2910                  wsptsBC=1
2911               else
2912                  varn=varn+1
2913                  continue   
2914               end if 
2915            end if             
2916            if (vNam(varn) .EQ. "wpvptp" .OR. vNam(varn) .EQ. "wsvpts" .OR. vNam(varn) .EQ. "wvpt") then
2917               if (wpvptp .EQ. 0) then
2918                  res@gsnLeftString      = "wpvptp, wsvpts and wv"
2919                  res@gsnRightString     = unit(varn)
2920                  if (.not. isvar("xs")) then
2921                     if (parameter(63) .NE. "x0") then
2922                        res@trXMinF = stringtofloat(parameter(63))
2923                     else
2924                        res@trXMinF = min((/miniwpvptp,miniwsvpts,miniwvpt/))
2925                     end if
2926                  else
2927                     res@trXMinF = xs
2928                  end if
2929                  if (.not. isvar("xe")) then
2930                     if (parameter(65) .NE. "xdim") then
2931                        res@trXMaxF = stringtofloat(parameter(65))
2932                     else
2933                        res@trXMaxF = max((/maxiwpvptp,maxiwsvpts,maxiwvpt/))
2934                     end if
2935                  else
2936                     res@trXMaxF = xe 
2937                  end if
2938
2939                  plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2940
2941                  ; ***************************************************
2942                  ; legend for combined plot
2943                  ; ***************************************************
2944     
2945                  lgres                    = True
2946                  lgMonoDashIndex          = False
2947                  lgres@lgLabelFont        = "helvetica"   
2948                  lgres@lgLabelFontHeightF = .1           
2949                  lgres@vpWidthF           = 0.12           
2950                  lgres@vpHeightF          = 0.1         
2951                  lgres@lgDashIndexes      = (/0,1,2/)
2952                  lbid = gsn_create_legend(wks,3,(/"wpvptp","wsvpts","wvpt"/),lgres)       
2953
2954                  amres = True
2955                  amres@amParallelPosF   = 0.65             
2956                  amres@amOrthogonalPosF = -0.2           
2957                  annoid1 = gsn_add_annotation(plot(n),lbid,amres)                 
2958                  overlay(plot(n),plot_wpvptp)
2959                  wpvptp=1
2960               else
2961                  varn=varn+1
2962                  continue   
2963               end if
2964            end if
2965            if (vNam(varn) .EQ. "wpqp" .OR. vNam(varn) .EQ. "wsqs" .OR. vNam(varn) .EQ. "wq") then
2966               if (wpqp .EQ. 0) then
2967                  res@gsnLeftString      = "wpqp, wsqs and wq"
2968                  res@gsnRightString     = unit(varn)
2969                  if (.not. isvar("xs")) then
2970                     if (parameter(63) .NE. "x0") then
2971                        res@trXMinF = stringtofloat(parameter(63))
2972                     else
2973                        res@trXMinF = min((/miniwpqp,miniwsqs,miniwq/))
2974                     end if
2975                  else
2976                     res@trXMinF = xs
2977                  end if
2978                  if (.not. isvar("xe")) then
2979                     if (parameter(65) .NE. "xdim") then
2980                        res@trXMaxF = stringtofloat(parameter(65))
2981                     else
2982                        res@trXMaxF = max((/maxiwpqp,maxiwsqs,maxiwq/))
2983                     end if
2984                  else
2985                     res@trXMaxF = xe 
2986                  end if
2987
2988                  plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_w,res)
2989
2990                  ; ***************************************************
2991                  ; legend for combined plot
2992                  ; ***************************************************
2993     
2994                  lgres                    = True
2995                  lgMonoDashIndex          = False
2996                  lgres@lgLabelFont        = "helvetica"   
2997                  lgres@lgLabelFontHeightF = .1           
2998                  lgres@vpWidthF           = 0.12           
2999                  lgres@vpHeightF          = 0.1         
3000                  lgres@lgDashIndexes      = (/0,1,2/)
3001                  lbid = gsn_create_legend(wks,3,(/"wpqp","wsqs","wq"/),lgres)       
3002
3003                  amres = True
3004                  amres@amParallelPosF   = 0.65             
3005                  amres@amOrthogonalPosF = -0.2           
3006                  annoid1 = gsn_add_annotation(plot(n),lbid,amres)                 
3007                  overlay(plot(n),plot_wpqp)
3008                  wpqp=1
3009               else
3010                  varn=varn+1
3011                  continue   
3012               end if
3013            end if
3014            if (vNam(varn) .EQ. "wpqvp" .OR. vNam(varn) .EQ. "wsqvs" .OR. vNam(varn) .EQ. "wqv") then
3015               if (wpqvp .EQ. 0) then
3016                  res@gsnLeftString      = "wpqvp, wsqvs and wqv"
3017                  res@gsnRightString     = unit(varn)
3018                  if (.not. isvar("xs")) then
3019                     if (parameter(63) .NE. "x0") then
3020                        res@trXMinF = stringtofloat(parameter(63))
3021                     else
3022                        res@trXMinF = min((/miniwpqp,miniwsqvs,miniwqv/))
3023                     end if
3024                  else
3025                     res@trXMinF = xs
3026                  end if
3027                  if (.not. isvar("xe")) then
3028                     if (parameter(65) .NE. "xdim") then
3029                        res@trXMaxF = stringtofloat(parameter(65))
3030                     else
3031                        res@trXMaxF = max((/maxiwpqp,maxiwsqvs,maxiwqv/))
3032                     end if
3033                  else
3034                     res@trXMaxF = xe 
3035                  end if
3036
3037                  plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_w,res)
3038
3039                  ; ***************************************************
3040                  ; legend for combined plot
3041                  ; ***************************************************
3042     
3043                  lgres                    = True
3044                  lgMonoDashIndex          = False
3045                  lgres@lgLabelFont        = "helvetica"   
3046                  lgres@lgLabelFontHeightF = .1           
3047                  lgres@vpWidthF           = 0.12           
3048                  lgres@vpHeightF          = 0.1         
3049                  lgres@lgDashIndexes      = (/0,1,2/)
3050                  lbid = gsn_create_legend(wks,3,(/"wpqvp","wsqvs","wqv"/),lgres)       
3051
3052                  amres = True
3053                  amres@amParallelPosF   = 0.65             
3054                  amres@amOrthogonalPosF = -0.2           
3055                  annoid1 = gsn_add_annotation(plot(n),lbid,amres)                 
3056                  overlay(plot(n),plot_wpqvp)
3057                  wpqvp=1
3058               else
3059                  varn=varn+1
3060                  continue   
3061               end if
3062            end if
3063            if (vNam(varn) .EQ. "wpsp" .OR. vNam(varn) .EQ. "wsss" .OR. vNam(varn) .EQ. "ws") then
3064               if (wpsp .EQ. 0) then
3065                  res@gsnLeftString      = "wpsp, wsss and ws"
3066                  res@gsnRightString     = unit(varn)
3067                  if (.not. isvar("xs")) then
3068                     if (parameter(63) .NE. "x0") then
3069                        res@trXMinF = stringtofloat(parameter(63))
3070                     else
3071                        res@trXMinF = min((/miniwpsp,miniwsss,miniws/))
3072                     end if
3073                  else
3074                     res@trXMinF = xs
3075                  end if
3076                  if (.not. isvar("xe")) then
3077                     if (parameter(65) .NE. "xdim") then
3078                        res@trXMaxF = stringtofloat(parameter(65))
3079                     else
3080                        res@trXMaxF = max((/maxiwpsp,maxiwsss,maxiws/))
3081                     end if
3082                  else
3083                     res@trXMaxF = xe 
3084                  end if
3085
3086                  plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_w,res)
3087
3088                  ; ***************************************************
3089                  ; legend for combined plot
3090                  ; ***************************************************
3091     
3092                  lgres                    = True
3093                  lgMonoDashIndex          = False
3094                  lgres@lgLabelFont        = "helvetica"   
3095                  lgres@lgLabelFontHeightF = .1           
3096                  lgres@vpWidthF           = 0.12           
3097                  lgres@vpHeightF          = 0.1         
3098                  lgres@lgDashIndexes      = (/0,1,2/)
3099                  lbid = gsn_create_legend(wks,3,(/"wpsp","wsss","ws"/),lgres)       
3100
3101                  amres = True
3102                  amres@amParallelPosF   = 0.65             
3103                  amres@amOrthogonalPosF = -0.2           
3104                  annoid1 = gsn_add_annotation(plot(n),lbid,amres)                 
3105                  overlay(plot(n),plot_wpsp)
3106                  wpsp=1
3107               else
3108                  varn=varn+1
3109                  continue   
3110               end if
3111            end if
3112            if (vNam(varn) .EQ. "wpsap" .OR.vNam(varn) .EQ. "wssas" .OR. vNam(varn) .EQ. "wsa") then
3113               if (wpsap .EQ. 0) then
3114                  res@gsnLeftString      = "wpsap, wssas and wsa"
3115                  res@gsnRightString     = unit(varn)
3116                  if (.not. isvar("xs")) then
3117                     if (parameter(63) .NE. "x0") then
3118                        res@trXMinF = stringtofloat(parameter(63))
3119                     else
3120                        res@trXMinF = min((/miniwpsap,miniwssas,miniwsa/))
3121                     end if
3122                  else
3123                     res@trXMinF = xs
3124                  end if
3125                  if (.not. isvar("xe")) then
3126                     if (parameter(65) .NE. "xdim") then
3127                        res@trXMaxF = stringtofloat(parameter(65))
3128                     else
3129                        res@trXMaxF = max((/maxiwpsap,maxiwssas,maxiwsa/))
3130                     end if
3131                  else
3132                     res@trXMaxF = xe 
3133                  end if
3134
3135                  plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_w,res)
3136
3137                  ; ***************************************************
3138                  ; legend for combined plot
3139                  ; ***************************************************
3140     
3141                  lgres                    = True
3142                  lgMonoDashIndex          = False
3143                  lgres@lgLabelFont        = "helvetica"   
3144                  lgres@lgLabelFontHeightF = .1           
3145                  lgres@vpWidthF           = 0.12           
3146                  lgres@vpHeightF          = 0.1         
3147                  lgres@lgDashIndexes      = (/0,1,2/)
3148                  lbid = gsn_create_legend(wks,3,(/"wpsap","wssas","wsa"/),lgres)       
3149
3150                  amres = True
3151                  amres@amParallelPosF   = 0.65             
3152                  amres@amOrthogonalPosF = -0.2           
3153                  annoid1 = gsn_add_annotation(plot(n),lbid,amres)                 
3154                  overlay(plot(n),plot_wpsap)
3155                  wpsap=1
3156               else
3157                  varn=varn+1
3158                  continue   
3159               end if
3160            end if
3161         
3162            if (vNam(varn) .EQ. "us2" .OR. vNam(varn) .EQ. "vs2" .OR. vNam(varn) .EQ. "ws2") then
3163               if (us2 .EQ. 0) then
3164                  res@gsnLeftString      = "us2, vs2 and ws2"
3165                  res@gsnRightString     = unit(varn)
3166                  if (.not. isvar("xs")) then
3167                     if (parameter(63) .NE. "x0") then
3168                        res@trXMinF = stringtofloat(parameter(63))
3169                     else
3170                        res@trXMinF = min((/minius2,minivs2,miniws2/))
3171                     end if
3172                  else
3173                     res@trXMinF = xs
3174                  end if
3175                  if (.not. isvar("xe")) then
3176                     if (parameter(65) .NE. "xdim") then
3177                        res@trXMaxF = stringtofloat(parameter(65))
3178                     else
3179                        res@trXMaxF = max((/maxius2,maxivs2,maxiws2/))
3180                     end if
3181                  else
3182                     res@trXMaxF = xe 
3183                  end if
3184
3185                  plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_w,res)
3186
3187                  ; ***************************************************
3188                  ; legend for combined plot
3189                  ; ***************************************************
3190     
3191                  lgres                    = True
3192                  lgMonoDashIndex          = False
3193                  lgres@lgLabelFont        = "helvetica"   
3194                  lgres@lgLabelFontHeightF = .1           
3195                  lgres@vpWidthF           = 0.12           
3196                  lgres@vpHeightF          = 0.1         
3197                  lgres@lgDashIndexes      = (/0,1,2/)
3198                  lbid = gsn_create_legend(wks,3,(/"us2","vs2","ws2"/),lgres)       
3199
3200                  amres = True
3201                  amres@amParallelPosF   = 0.65             
3202                  amres@amOrthogonalPosF = -0.2           
3203                  annoid1 = gsn_add_annotation(plot(n),lbid,amres)                 
3204                  overlay(plot(n),plot_us2)
3205                  us2=1
3206               else
3207                  varn=varn+1
3208                  continue   
3209               end if
3210            end if
3211           
3212            if (vNam(varn) .EQ. "wsususodz" .OR. vNam(varn) .EQ. "wspsodz" .OR. vNam(varn) .EQ. "wpeodz" ) then
3213               if (wsususodz .EQ. 0) then
3214                  res@gsnLeftString      = "wsususodz, wspsodz and ws2"
3215                  res@gsnRightString     = unit(varn)
3216                  if (.not. isvar("xs")) then
3217                     if (parameter(63) .NE. "x0") then
3218                        res@trXMinF = stringtofloat(parameter(63))
3219                     else
3220                        res@trXMinF = min((/miniwsususodz,miniwspsodz,miniwpeodz/))
3221                     end if
3222                  else
3223                     res@trXMinF = xs
3224                  end if
3225                  if (.not. isvar("xe")) then
3226                     if (parameter(65) .NE. "xdim") then
3227                        res@trXMaxF = stringtofloat(parameter(65))
3228                     else
3229                        res@trXMaxF = max((/maxiwsususodz,maxiwspsodz,maxiwpeodz/))
3230                     end if
3231                  else
3232                     res@trXMaxF = xe 
3233                  end if
3234
3235                  plot(n) =  gsn_csm_xy(wks,data(varn,:,:),z_w,res)
3236
3237                  ; ***************************************************
3238                  ; legend for combined plot
3239                  ; ***************************************************
3240     
3241                  lgres                    = True
3242                  lgMonoDashIndex          = False
3243                  lgres@lgLabelFont        = "helvetica"   
3244                  lgres@lgLabelFontHeightF = .1           
3245                  lgres@vpWidthF           = 0.12           
3246                  lgres@vpHeightF          = 0.1         
3247                  lgres@lgDashIndexes      = (/0,1,2/)
3248                  lbid = gsn_create_legend(wks,3,(/"wsususodz","wspsodz","wpeodz"/),lgres)       
3249
3250                  amres = True
3251                  amres@amParallelPosF   = 0.65             
3252                  amres@amOrthogonalPosF = -0.2           
3253                  annoid1 = gsn_add_annotation(plot(n),lbid,amres)                 
3254                  overlay(plot(n),plot_wsususodz)
3255                  wsususodz=1
3256               else
3257                  varn=varn+1
3258                  continue   
3259               end if
3260            end if     
3261            n=n+1   
3262            varn=varn+1
3263         end if
3264      end do
3265   end if     
3266
3267   if (combine .EQ. 1) then
3268     
3269      check=True     
3270      n_o=0
3271      do varn = 0,dim-1
3272 
3273         if ( isStrSubset( vNam(varn), "NORM") .or. isStrSubset( vNam(varn), "time") )
3274            check = False
3275         else
3276            if (.not. isvar("var")) then
3277               check = True
3278               if (parameter(21) .NE. "variables") then
3279                  var=parameter(21)
3280                  check = isStrSubset( var,","+vNam(varn)+"," )
3281               end if
3282            else         
3283               check = isStrSubset( var,","+vNam(varn)+"," )
3284            end if
3285         end if
3286     
3287         if(check) then
3288
3289            z = f->$vNam(varn+1)$
3290            com=isStrSubset( c_var,","+vNam(varn)+"," )
3291     
3292            if (com)
3293                             
3294               if (n_o .EQ. 1) then
3295                  res@xyDashPattern  = 1
3296                                 
3297               else           
3298                  if (n_o .EQ. 2) then
3299                     res@xyDashPattern  = 2
3300                  else
3301                     res@xyDashPattern  = 0
3302                     res@gsnLeftString  = c_var
3303                     res@gsnRightString = unit(varn)
3304                     if (.not. isvar("xs")) then
3305                        if (parameter(63) .NE. "x0") then
3306                           res@trXMinF = stringtofloat(parameter(63))
3307                        else
3308                           res@trXMinF = min(mini)
3309                        end if
3310                     else
3311                        res@trXMinF = xs
3312                     end if
3313                     if (.not. isvar("xe")) then
3314                        if (parameter(65) .NE. "xdim") then
3315                           res@trXMaxF = stringtofloat(parameter(65))
3316                        else
3317                           res@trXMaxF = max(maxi)
3318                        end if
3319                     else
3320                        res@trXMaxF = xe 
3321                     end if
3322                  end if
3323               end if
3324               label(n_o)=vNam(varn)
3325               color_o(n_o)=237
3326               plot_o(n_o)=gsn_csm_xy(wks,data(varn,:,:),z,res)
3327               n_o=n_o+1
3328            end if         
3329            varn=varn+1   
3330         end if
3331      end do
3332   
3333      if(number_comb .EQ. 2)then
3334         overlay(plot_o(0),plot_o(1))
3335      end if
3336      if(number_comb .EQ. 3)then
3337         overlay(plot_o(0),plot_o(1))
3338         overlay(plot_o(0),plot_o(2))
3339      end if
3340
3341      ; ***************************************************
3342      ; legend for combined plot
3343      ; ***************************************************
3344     
3345      lgres                    = True
3346      lgMonoDashIndex          = False
3347      lgres@lgDashIndexes      = (/0,1,2/)
3348      lgres@lgLabelFont        = "helvetica"   
3349      lgres@lgLabelFontHeightF = .1           
3350      lgres@vpWidthF           = 0.12           
3351      lgres@vpHeightF          = 0.1           
3352 
3353      lbid = gsn_create_legend(wks,number_comb,label,lgres)       
3354
3355      amres = True
3356      amres@amParallelPosF   = 0.65                 
3357      amres@amOrthogonalPosF = -0.2           
3358      annoid1 = gsn_add_annotation(plot_o(0),lbid,amres)
3359   
3360      plot(0) = plot_o(0)
3361
3362   end if
3363
3364   ; ***************************************************
3365   ; merge plots onto one page
3366   ; ***************************************************
3367
3368   do m=0,n-1
3369      plot_(m)=plot(n-1-m)
3370   end do
3371
3372   if (format_out .EQ. "eps" .OR. format_out .EQ. "epsi") then
3373      gsn_panel(wks,plot_(0:n-1),(/n,1/),resP)
3374   else   
3375      do i = 0,n-1, no_lines*no_columns
3376         if( (i+no_lines*no_columns) .gt. (n-1)) then
3377            gsn_panel(wks,plot_(i:n-1),(/no_lines,no_columns/),resP)
3378         else
3379           gsn_panel(wks,plot_(i:i+no_lines*no_columns-1),(/no_lines,no_columns/),resP)
3380         end if
3381      end do
3382   end if
3383
3384   print(" ")
3385   print("Output to: " + file_out +"."+ format_out)
3386   print(" ")
3387
3388end
Note: See TracBrowser for help on using the repository browser.