/home/tgcm/bin/Diffsrc executing from /home/foster/usr/dinos at Thu Jul  7 09:54:09 MDT 2005

Using tgcmroot from TGCMROOT env var: /home/tgcm
Source code directory = /home/foster/tgcmvis/tgcmproc/tgcmproc_f90

========================================================================
Diff of /home/foster/tgcmvis/tgcmproc/tgcmproc_f90/mkutvert.F and /home/foster/usr/dinos/mkutvert.F
33,34c33,36
<       real :: tlabchsz(3) = (/.02,.02,.02/),
<      +        blabchsz(3) = (/.018,.018,.018/)
---
> !     real :: tlabchsz(3) = (/.02,.02,.02/),
> !    +        blabchsz(3) = (/.018,.018,.018/)
>       real :: tlabchsz(3) = (/.03,.03,.03/),
>      +        blabchsz(3) = (/.020,.020,.020/)
596c598,600
<               if (isltax <= 0) boff=.20
---
> !             if (isltax <= 0) boff=.20
>               if (isltax <= 0) boff=.14
> 
808,809c812,815
<         write(utv%blabs(1),"('MIN,MAX=',2(1pe12.4),' INTERVAL=',
<      +    1pe12.4)") zmin,zmax,ciu
---
> !       write(utv%blabs(1),"('MIN,MAX=',2(1pe12.4),' INTERVAL=',
> !    +    1pe12.4)") zmin,zmax,ciu
>         write(utv%blabs(1),"('MIN,MAX=',f6.1,', ',f6.1,' INTERVAL=',
>      +    f6.1)") zmin,zmax,ciu
811,812c817,824
<         write(utv%blabs(1),"('MIN,MAX=',2(1pe12.4),' INTERVAL=',
<      +    1pe12.4,' (X',1pe8.2,')')") zmin,zmax,ciu,scfac
---
> !       write(utv%blabs(1),"('MIN,MAX=',2(1pe12.4),' INTERVAL=',
> !    +    1pe12.4,' (X',1pe8.2,')')") zmin,zmax,ciu,scfac
> !       write(utv%blabs(1),"('MIN,MAX=',f6.1,', ',f6.1,' INTERVAL=',
> !    +    f6.1,' (X',1pe8.1,')')") zmin,zmax,ciu,scfac
> !       write(utv%blabs(1),"('MIN,MAX=',g8.1,', ',g8.1,' INTERVAL=',
> !    +    g8.1,' (X',1pe8.1,')')") zmin,zmax,ciu,scfac
>         write(utv%blabs(1),"('MIN,MAX=',f8.1,', ',f8.1,' INTERVAL=',
>      +    f8.1,' (X',1pe8.1,')')") zmin,zmax,ciu,scfac
========================================================================
Diff of /home/foster/tgcmvis/tgcmproc/tgcmproc_f90/plt.F and /home/foster/usr/dinos/plt.F
17c17,18
<      +  iwhite=1,		! color index to white (1)
---
> !    +  iwhite=1,		! color index to white (1)
>      +  iwhite=2,		! color index to white (1)
66c67,68
<       call cpsetr('LLS',.015)   ! line label size (default = .01)
---
> !     call cpsetr('LLS',.015)   ! line label size (default = .01)
>       call cpsetr('LLS',.017)   ! line label size (default = .01)
109d110
< !
126c127,129
<         call cpseti('LLB',2)	! line label box (2=fill only)
---
>         call cpseti('LLB',1) ! line label box (1=draw perim after label)
> !       call cpseti('LLB',2) ! line label box (2=fill with LBC before label)
> !       call cpseti('LLB',3) ! line label box (3=both 1 and 2
206c209,210
<           call cpseti('CLC -- contour line color',iblack)
---
> !         call cpseti('CLC -- contour line color',iblack)
>           call cpseti('CLC -- contour line color',iwhite) ! so ps is black
208a213
> 
209a215,225
> 
> !           call cpseti('LLB -- line label box',1) ! (1=draw perim after label)
> !           call cpseti('LLB -- line label box',2) ! (2=fill with LBC before label)
>             call cpseti('LLB -- line label box',3) ! (3=both 1 and 2)
>             call cpseti('PC6 -- min dist between labels',.40) ! (default is .30)
> 
> ! Black on white:
> !           call cpseti('LLC -- line label color',iblack)
> !           call cpseti('LBC -- label box color index',iwhite) ! if LLB > 1
> 
> ! White on black:
210a227,228
> !           call cpseti('LBC -- label box color index',iblack) ! if LLB > 1
> 
214c232
<           call cpseti('LLC -- line label color',iblack)
---
>  !        call cpseti('LLC -- line label color',iblack)
578a597
>           call gscr(igks_cgm,iwhite,1.,1.,1.)
580c599,602
<         if (igks_ps.gt.0) call gscr(igks_ps,iblack,0.,0.,0.)
---
>         if (igks_ps.gt.0) then
>           call gscr(igks_ps,iblack,0.,0.,0.)
>           call gscr(igks_ps,iwhite,1.,1.,1.)
>         endif
845a868,870
> 
> !     write(6,"('wrlab: ypos=',f8.2,' lab=',/,a)") ypos,trim(lab)
> 
========================================================================
Diff of /home/foster/tgcmvis/tgcmproc/tgcmproc_f90/wrlab6.F and /home/foster/usr/dinos/wrlab6.F
36,38c36,37
<         if (len_trim(tlabs(i)) > 0 .and.
<      +      iwr_label(i) > 0)
<      +    call wrlab(trim(tlabs(i)),xmid,vp(4)+toff+
---
>         if (len_trim(tlabs(i)) > 0.and.iwr_label(i) > 0) then
>           call wrlab(trim(tlabs(i)),xmid,vp(4)+toff+
39a39
>         endif
45,48c45,53
<         if (len_trim(blabs(i)) > 0 .and.
<      +      iwr_label(i+3) > 0)
<      +    call wrlab(trim(blabs(i)),xmid,vp(3)-boff-
<      +      (i-1)*space_between,blabsz(i), vp, ihq)
---
>         if (len_trim(blabs(i)) > 0 .and.iwr_label(i+3) > 0) then
> 
> !         write(6,"('wrlab6 call wrlab: i=',i3,' boff=',f8.2,
> !    |      ' vp(3)=',f8.2,' blabs(i)=',/,a)") i,boff,vp(3),
> !    |      trim(blabs(i))
> 
>           call wrlab(trim(blabs(i)),xmid,vp(3)-boff-
>      |      (i-1)*space_between,blabsz(i), vp, ihq)
>         endif