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