SUBROUTINE END_GRAPHICS  Author  : Marc, 3l50
 Date    : April 2003
 Modified:

 -----------------------------------------------------------------
 What it does
 ============

 -----------------------------------------------------------------
 Structure of Routine
 ====================

 -----------------------------------------------------------------
 Program calls
 ====================

Called by Calls

IGCM3 (summ)
disset(23)
winini1
xdevic
xdspac(1.0)
xpspac(0.0,1.9/1.5,0.0,1.0)
xspace(2,3,0.0,xlim,ylim)
xpscal(1.0,1.0)
zjinit
zstret(2.*rar,rar)
zstmol(rar)
zstamp(2.*rar)
zstlnt(30.,30.,80.)
xpages(-1,0)
ini_coast
zcstrd(10,inseg,idt1,cstpnt,idt2)
xnwpic
frame_graphics(1)
contour_graphics(ltg,mg+1,jgg,-0.1,1,1,
xnwpic
frame_graphics(1)
contour_graphics(lug,mg+1,jgg,-0.1,0,1,
xnwpic
frame_graphics(11)
contour_graphics(lztg,jgg,nl,-0.1,1,11,
xnwpic
frame_graphics(11)
contour_graphics(lzug,jgg,nl,-0.1,0,11,
(ipage.eq.1)
xnwpic
frame_graphics(1)
contour_graphics(ltg,mg+1,jgg,-0.1,1,1,
xnwpic
frame_graphics(1)
contour_graphics(lug,mg+1,jgg,-0.1,0,1,
(ipage.eq.1)
drawbox(iptyp,0.45,0)
xlcol(3,4,4,-8)
zcstpl(inseg,idt1,cstpnt,idt2)
xclear
zststl(0)
xmap(-0.95,0.95,-1.05,0.45)
zpenup(-2.*rar,-1.0*rar)
zpendn(
zpendn(
zpendn(-2.*rar,
zpendn(-2.*rar,-1.0*rar)
zststl(0)
xmap(-1.5,1.5,-0.4,1.2)
xlcol(8,4,4,0)
zpenup(-1.0,0.2*(l-1))
zpendn(
zpenup(-1.0+(j-1)/3.0,0.0)
zpendn(-1.0+(j-1)/3.0,1.0)
xlcol(1,4,4,0)
zpenup(-1.0,0.0)
zpendn(-1.0,1.0)
zpendn(
zpendn(
zpendn(-1.0,0.0)
xmap(-0.95,0.95,-0.85,0.65)
zststl(iabs(iptyp))
zstcen(10.0,90.0)
zsthta(30.0)
zstcen(10.0,-90.0)
zsthta(-30.0)
zsthta(-15.0)
zstcen(0.,0.)
xlcol(8,4,4,0)
zxyref
xlcol(1,4,4,0)
zoutln
maxmin(zg,ix,iy,fmin,fmax)
setcv(FMIN,FMAX,CINC,CNT,NCNT,ITYPE,FINC)
xlcol(2,4,4,0)
xlcol(4,4,4,0)
xlcol(6,4,4,0)
ZGCNTR
xchmag(0.017)
xcharl(xoff,yoff-0.06,text1(1:ilen))
xcharl(xoff,yoff-0.12,text2(1:ilen))
xclear
xgrend

 -----------------------------------------------------------------
Return to IGCM home page