oops  ... see changes below. I should read what I
type before sending it.
>  
>  do nv=0,nvar-1
>     x  = addfiles_GetVar (fi, pathi, varName(nv))
>     rank = dimsizes(dimsizes(x))      ; # of dimensions
>     
      if (rank.eq.3 .or. rank.eq.4) then  
          if (rank.eq.3) then
              xClm = clmMonTLL(x)           ; contributed.ncl
          end if
          if (rank.eq.4) then
              xClm = clmMonTLLL(x)          ; contributed.ncl
          end if
      
>         ncdf->$varName(nv)$ = xClm    ; write to file
>         print ("Climatology: "+varName(nv)+" "+systemfunc("date"))
>     end if
>        
>     delete(x)
>  end do
_______________________________________________
ncl-talk mailing list
ncl-talk@ucar.edu
http://mailman.ucar.edu/mailman/listinfo/ncl-talk
This archive was generated by hypermail 2b29 : Fri Apr 26 2002 - 18:54:55 MDT