!_TAG_FILE_FORMAT	2	/extended format; --format=1 will not append ;" to lines/
!_TAG_FILE_SORTED	1	/0=unsorted, 1=sorted, 2=foldcase/
!_TAG_PROGRAM_AUTHOR	Darren Hiebert	/dhiebert@users.sourceforge.net/
!_TAG_PROGRAM_NAME	Exuberant Ctags	//
!_TAG_PROGRAM_URL	http://ctags.sourceforge.net	/official site/
!_TAG_PROGRAM_VERSION	5.8	//
10	comm.F90	/^    10   rbuf(iw,j,k)=rbw(jt+j)$/;"	l	subroutine:comborecv	file:
10	comm.F90	/^    10   sbw(jt+j)=sbuf(iw,j,k)$/;"	l	subroutine:combosend	file:
100	interp.F90	/^100 continue$/;"	l	subroutine:inmets	file:
100	io.F90	/^    100  fld(i,j,k)=fld(i,j,k)+ct*fd(i,j,k)$/;"	l	subroutine:timeavg	file:
100	io.F90	/^    100  fld(i,j,k)=fld(i,j,k)+ct*fd(i,j,k)$/;"	l	subroutine:timeavgd	file:
100	io.F90	/^    100  l=l+1$/;"	l	subroutine:write2nc	file:
100	io.F90	/^    100  l=l+1$/;"	l	subroutine:write_init2nc	file:
100	io.F90	/^    100  sb(i,j,k)=s1(i,j,k)$/;"	l	subroutine:rescbred	file:
100	io.F90	/^    100  vb(i,j,k)=v1(i,j,k)$/;"	l	subroutine:initbred	file:
100	io.F90	/^    100  wcavg(i,j,k)=wcavg(i,j,k)+wopt*w(i,j,k)$/;"	l	subroutine:write_hist	file:
100	presolver.F90	/^ 100  act(i2,j+1)=act(i2,j+1)-at(i2,j)*at(i2,j)*cc(i2,j)$/;"	l	subroutine:luinc	file:
100	presolver.F90	/^ 100  act(i2,j+1)=act(i2,j+1)-at(i2,j)*at(i2,j)*cc(i2,j)*cc(i2,j)$/;"	l	subroutine:cholinc	file:
100	presolver.F90	/^ 100  call mpi_barrier(mpi_comm_world,ierr)$/;"	l	subroutine:pre	file:
100	presolver.F90	/^ 100  call mpi_barrier(mpi_comm_world,ierr)$/;"	l	subroutine:pre2	file:
100	presolver.F90	/^ 100  cr(i,1)=(ar(i,1)-alpha*cb(i,1)*ar(i-1,1))*cc(i,1)$/;"	l	subroutine:sipinc	file:
1000	io.F90	/^    1000 xlon(i)=xdeg(i+1)$/;"	l	subroutine:write_topo	file:
1001	io.F90	/^    1001 z_c(k)=z(2*k)$/;"	l	subroutine:write_topo	file:
1002	io.F90	/^    1002 z_f(k)=z(1+2*(k-1))$/;"	l	subroutine:write_topo	file:
101	io.F90	/^    101  hvavg(i,j,k)=hvavg(i,j,k)+wopt*hv(i-1,j-1,k-1)$/;"	l	subroutine:write_hist	file:
101	io.F90	/^    101  l=l+1$/;"	l	subroutine:write_init2nc	file:
103	interp.F90	/^    103  format(i8,' total wet points,',i6,' deeper than ',f5.0,' m, deepest= ',f6.0,' m')$/;"	l	subroutine:inmets	file:
11	io.F90	/^    11   l=l+1$/;"	l	subroutine:dvec2mtx	file:
11	io.F90	/^    11   l=l+1$/;"	l	subroutine:mtx2dec_c	file:
11	io.F90	/^    11   l=l+1$/;"	l	subroutine:mtx2dvec	file:
11	io.F90	/^    11   l=l+1$/;"	l	subroutine:mtx2ivec	file:
11	io.F90	/^    11   l=l+1$/;"	l	subroutine:mtx2rvec	file:
11	io.F90	/^    11   l=l+1$/;"	l	subroutine:mtx2rvec2	file:
11	io.F90	/^    11   l=l+1$/;"	l	subroutine:mtx2vec_c	file:
11	io.F90	/^    11   l=l+1$/;"	l	subroutine:mtx2vec_f	file:
11	io.F90	/^    11   l=l+1$/;"	l	subroutine:read_initnc	file:
11	io.F90	/^    11   l=l+1$/;"	l	subroutine:readnc	file:
11	io.F90	/^    11   l=l+1$/;"	l	subroutine:rvec2mtx	file:
11	io.F90	/^    11   l=l+1$/;"	l	subroutine:rvec2mtx2	file:
111	interp.F90	/^ 111  format(i3)$/;"	l	subroutine:indata	file:
111	presolver.F90	/^ 111  format ('processing block #',i3,' out of ',i3,' total evp solver')$/;"	l	subroutine:pre	file:
111	presolver.F90	/^ 111  format ('processing block #',i3,' out of ',i3,' total evp solver')$/;"	l	subroutine:pre2	file:
12	io.F90	/^    12   l=l+1$/;"	l	subroutine:mtx2rvec_m	file:
12	io.F90	/^    12   l=l+1$/;"	l	subroutine:read_initnc	file:
12	presolver.F90	/^ 12   f(j-1)=omega2*sin(pi_180*ydeg(j))$/;"	l	subroutine:solvergen	file:
124	interp.F90	/^ 124  read(39,'(10f8.4)') (swoa(ii,j,k),ii=(i-1)*10+1,i*10)$/;"	l	subroutine:indata	file:
127	interp.F90	/^ 127  continue$/;"	l	subroutine:indata	file:
128	interp.F90	/^ 128  if (twoa(i,j,k) .le. -10.) twoa(i,j,k)=tlevs(i,j,k)$/;"	l	subroutine:indata	file:
130	io.F90	/^    130  tmp=tmp+temp$/;"	l	subroutine:rescbred	file:
142	interp.F90	/^ 142  rho_data(i,j,1)=r(twoa(i,j,1),swoa(i,j,1),zlev)$/;"	l	subroutine:indata	file:
145	interp.F90	/^ 145  rho_data(i,j,k)=r(twoa(i,j,k),swoa(i,j,k),zlev)$/;"	l	subroutine:indata	file:
148	interp.F90	/^ 148  continue$/;"	l	subroutine:indata	file:
15	presolver.F90	/^ 15   continue$/;"	l	subroutine:solvergen	file:
150	interp.F90	/^ 150  write(41) ((twoa(i,j,k),i=1,360),j=1,180),((swoa(i,j,k),i=1,360),j=1,180)$/;"	l	subroutine:indata	file:
150	io.F90	/^    150  tmp=tmp+temp$/;"	l	subroutine:initbred	file:
150	presolver.F90	/^ 150  act(i,j+1)=act(i,j+1)-at(i,j)*at(i,j)*cc(i,j)$/;"	l	subroutine:luinc	file:
150	presolver.F90	/^ 150  act(i,j+1)=act(i,j+1)-at(i,j)*at(i,j)*cc(i,j)*cc(i,j)$/;"	l	subroutine:cholinc	file:
153	presolver.F90	/^ 153  n=n+1$/;"	l	subroutine:solvergen	file:
154	presolver.F90	/^ 154  nsum=nsum+ing(i,j-1)-nn$/;"	l	subroutine:solvergen	file:
155	presolver.F90	/^ 155  nsum=nsum+ing(i,j-1)-nn$/;"	l	subroutine:solvergen	file:
156	presolver.F90	/^ 156  format(i8,'changes during iteration',i4)$/;"	l	subroutine:solvergen	file:
157	presolver.F90	/^ 157  ing(1,j)=ing(i1t,j)$/;"	l	subroutine:solvergen	file:
158	presolver.F90	/^ 158  if (in(i,j,1).ne.2) kb(i,j)=0$/;"	l	subroutine:solvergen	file:
159	presolver.F90	/^ 159  in(i,j,k)=0$/;"	l	subroutine:solvergen	file:
16	met.F90	/^    16   format(' j ','cell center latitude'\/(i3,f11.4))$/;"	l	subroutine:metgen	file:
16	presolver.F90	/^ 16   continue$/;"	l	subroutine:solvergen	file:
160	io.F90	/^    160  s1(i,j,k)=s1(i,j,k)+in(i,j,k)*sb(i,j,k)*tp$/;"	l	subroutine:rescbred	file:
160	presolver.F90	/^ 160  do 161 k=1,it$/;"	l	subroutine:solvergen	file:
161	presolver.F90	/^ 161  in(i,j,k)=1$/;"	l	subroutine:solvergen	file:
162	presolver.F90	/^ 162  continue$/;"	l	subroutine:solvergen	file:
17	presolver.F90	/^ 17   if (kmn.ne.k) imn=i$/;"	l	subroutine:solvergen	file:
18	presolver.F90	/^ 18   continue$/;"	l	subroutine:solvergen	file:
199	presolver.F90	/^ 199  rewind 70$/;"	l	subroutine:bounds	file:
20	comm.F90	/^	20   rbuf(i,js,k)=rbs(it+i)$/;"	l	subroutine:comborecv	file:
20	comm.F90	/^	20   sbs(it+i)=sbuf(i,js,k)$/;"	l	subroutine:combosend	file:
20	met.F90	/^	20   format(\/'model latitude grid lines'\/(10f8.4))$/;"	l	subroutine:metgen	file:
20	presolver.F90	/^ 20   format('iteration #',i3)$/;"	l	subroutine:bounds	file:
200	io.F90	/^    200  sb(i,j,k)=s2(i,j,k)$/;"	l	subroutine:rescbred	file:
200	io.F90	/^    200  vb(i,j,k)=v2(i,j,k)$/;"	l	subroutine:initbred	file:
200	presolver.F90	/^ 200  act(i+1,j)=act(i+1,j)-ar(i,j)*ar(i,j)*cc(i,j)$/;"	l	subroutine:luinc	file:
200	presolver.F90	/^ 200  act(i+1,j)=act(i+1,j)-ar(i,j)*ar(i,j)*cc(i,j)*cc(i,j)$/;"	l	subroutine:cholinc	file:
200	presolver.F90	/^ 200  cr(i,j)=(ar(i,j)-alpha*cb(i,j)*cr(i-1,j))*cc(i,j)$/;"	l	subroutine:sipinc	file:
21	met.F90	/^	21   format('coriolis parameter'\/(1p,10e9.2))$/;"	l	subroutine:metgen	file:
21	presolver.F90	/^ 21   rmets(i,j)=min(rmets(i,j),tmp)  $/;"	l	subroutine:solvergen	file:
210	presolver.F90	/^ 210  hh(i,j)=0.d0$/;"	l	subroutine:pre	file:
210	presolver.F90	/^ 210  hh(i,j)=0.d0$/;"	l	subroutine:pre2	file:
218	presolver.F90	/^ 218  hh(n,jl)=rinv1(ii,n,nbg-1)*ctemp$/;"	l	subroutine:pre	file:
218	presolver.F90	/^ 218  hh(n,jl)=rinv1(ii,n,nbg-1)*ctemp$/;"	l	subroutine:pre2	file:
22	presolver.F90	/^ 22   rmets(i,j)=min(rmets(i,j),tmp)$/;"	l	subroutine:solvergen	file:
220	presolver.F90	/^ 220  continue$/;"	l	subroutine:pre	file:
220	presolver.F90	/^ 220  continue$/;"	l	subroutine:pre2	file:
225	presolver.F90	/^ 225  hh(i+1,j+2)=-(axt(i,j)*hh(i,j+1)+ayt(i,j)*hh(i+1,j)+bbt(i,j)*hh(i+1,j+1)+cxt(i,j)*hh(i+2,j+1))\/cyt(i,j)$/;"	l	subroutine:pre	file:
225	presolver.F90	/^ 225  hh(i+1,j+2)=-(axt(i,j)*hh(i,j+1)+ayt(i,j)*hh(i+1,j)+bbt(i,j)*hh(i+1,j+1)+cxt(i,j)*hh(i+2,j+1))\/cyt(i,j)$/;"	l	subroutine:pre2	file:
226	presolver.F90	/^ 226  call mpi_sendrecv(hh(i1,j+2),1,mpi_real8,m_e,1,hh(1,j+2),1,mpi_real8,m_w,1,mpi_comm_world,istat,ierr)$/;"	l	subroutine:pre	file:
226	presolver.F90	/^ 226  call mpi_sendrecv(hh(i1,j+2),1,mpi_real8,m_e,1,hh(1,j+2),1,mpi_real8,m_w,1,mpi_comm_world,istat,ierr)$/;"	l	subroutine:pre2	file:
23	presolver.F90	/^ 23   continue   $/;"	l	subroutine:solvergen	file:
230	interp.F90	/^ 230  s_data(ii,jj,k)=(ylat-j)*dn+(jp-ylat)*ds$/;"	l	subroutine:indata	file:
230	io.F90	/^    230  tmp=tmp+temp$/;"	l	subroutine:rescbred	file:
230	presolver.F90	/^ 230  rinv(ii,i+1,nbg)=axt(i,j)*hh(i,j+1)+ayt(i,j)*hh(i+1,j)+bbt(i,j)*hh(i+1,j+1)+cxt(i,j)*hh(i+2,j+1)$/;"	l	subroutine:pre	file:
230	presolver.F90	/^ 230  rinv(ii,i+1,nbg)=axt(i,j)*hh(i,j+1)+ayt(i,j)*hh(i+1,j)+bbt(i,j)*hh(i+1,j+1)+cxt(i,j)*hh(i+2,j+1)$/;"	l	subroutine:pre2	file:
238	presolver.F90	/^ 238  format('month',i3,' in bounds')$/;"	l	subroutine:bounds	file:
240	interp.F90	/^ 240  tmin=min(tmin,t_data(i,j,1))$/;"	l	subroutine:indata	file:
240	presolver.F90	/^ 240  rinv(ii,n,nbg0)=hh(n,j)$/;"	l	subroutine:pre	file:
240	presolver.F90	/^ 240  rinv(ii,n,nbg0)=hh(n,j)$/;"	l	subroutine:pre2	file:
240	presolver.F90	/^ 240  ssurf(i-1,j-1,nm)=s1(i,j,1)$/;"	l	subroutine:bounds	file:
2400	presolver.F90	/^ 2400 t1(i,j,k)=min(max(t1(i,j,k),tmax),tmin)$/;"	l	subroutine:bounds	file:
25	presolver.F90	/^ 25   if (rmets(i,j).lt.tmp1) rmets(i,j)=0.$/;"	l	subroutine:solvergen	file:
250	io.F90	/^    250  tmp=tmp+temp$/;"	l	subroutine:initbred	file:
250	presolver.F90	/^ 250  continue$/;"	l	subroutine:bounds	file:
250	presolver.F90	/^ 250  continue$/;"	l	subroutine:pre	file:
250	presolver.F90	/^ 250  continue$/;"	l	subroutine:pre2	file:
250	presolver.F90	/^ 250  ie(n)=min(1+n0*n,j1)$/;"	l	subroutine:initfs	file:
251	presolver.F90	/^ 251  format('nm,k,smin,smax,savg=',2i3,1x,3f5.1)$/;"	l	subroutine:bounds	file:
252	presolver.F90	/^ 252  format('ie(nb1),j1=',2i5,' not properly defined. Fix above do 250 loop and restart.')$/;"	l	subroutine:initfs	file:
260	io.F90	/^    260  s2(i,j,k)=s2(i,j,k)+in(i,j,k)*sb(i,j,k)*tp$/;"	l	subroutine:rescbred	file:
260	presolver.F90	/^ 260  ie(nb0)=j1$/;"	l	subroutine:initfs	file:
260	presolver.F90	/^ 260  sxycli(k,nm)=avg2\/areaxy$/;"	l	subroutine:bounds	file:
261	presolver.F90	/^ 261  format(i2\/(21f5.1))$/;"	l	subroutine:bounds	file:
270	presolver.F90	/^ 270  sssp(i-1,j,k-1,nm)=s1(i,j+1,k) $/;"	l	subroutine:bounds	file:
280	presolver.F90	/^ 280  at(i,j)=dzyt$/;"	l	subroutine:initfs	file:
280	presolver.F90	/^ 280  snsp(i-1,j,k-1,nm)=s1(i,j0-j,k)$/;"	l	subroutine:bounds	file:
282	presolver.F90	/^ 282  at(i,j)=at(i,j)+dzyt*iv(i+1,j+1,k)$/;"	l	subroutine:initfs	file:
285	presolver.F90	/^ 285  ab(i,1)=0.$/;"	l	subroutine:initfs	file:
286	presolver.F90	/^ 286  at(i,j2)=0.$/;"	l	subroutine:initfs	file:
287	presolver.F90	/^ 287  ac(i,j)=(-al(i,j)-ar(i,j)-ab(i,j)-at(i,j))+gamma_tmp$/;"	l	subroutine:initfs	file:
29	presolver.F90	/^ 29   format('fixed bad point i,j,k,s1bad,s1fix=',3i5,2f5.1)$/;"	l	subroutine:bounds	file:
30	comm.F90	/^	30   rbuf(i,jn,k)=rbn(it+i)$/;"	l	subroutine:comborecv	file:
30	comm.F90	/^	30   sbn(it+i)=sbuf(i,jn,k)$/;"	l	subroutine:combosend	file:
30	presolver.F90	/^ 30   continue$/;"	l	subroutine:bounds	file:
300	io.F90	/^    300  sb(i,j,k)=slf(i,j,k)$/;"	l	subroutine:rescbred	file:
300	io.F90	/^    300  vb(i,j,k)=vlf(i,j,k)$/;"	l	subroutine:initbred	file:
300	presolver.F90	/^ 300  rinv1(i,j,nbg)=rinv1(i,j,nbg)-rtp(it+i,k)*rtemp(k,j)$/;"	l	subroutine:pre	file:
300	presolver.F90	/^ 300  rinv1(i,j,nbg)=rinv1(i,j,nbg)-rtp(it+i,k)*rtemp(k,j)$/;"	l	subroutine:pre2	file:
31	presolver.F90	/^ 31   continue$/;"	l	subroutine:bounds	file:
32	presolver.F90	/^ 32   continue$/;"	l	subroutine:bounds	file:
320	interp.F90	/^ 320  continue$/;"	l	subroutine:indata	file:
322	interp.F90	/^ 322  c1=(z2-zc)\/(z2-z1)$/;"	l	subroutine:indata	file:
322	met.F90	/^    322  format(\/'global ydegg'\/(10f8.4))$/;"	l	subroutine:metgen	file:
323	interp.F90	/^ 323  format('for diecast model level',i3,', lower input level=',i3)$/;"	l	subroutine:indata	file:
325	interp.F90	/^ 325  s1_data(i,j,k)=c1*s_data(i,j,n-1)+c2*s_data(i,j,n)$/;"	l	subroutine:indata	file:
33	presolver.F90	/^ 33   continue      $/;"	l	subroutine:bounds	file:
33	presolver.F90	/^ 33   rmets(i,j)=min(tlz,100.*rmets(i,j))$/;"	l	subroutine:solvergen	file:
330	io.F90	/^    330  tmp=tmp+temp$/;"	l	subroutine:rescbred	file:
34	presolver.F90	/^ 34   kb(i,j)=kb(i,j)+min(1,l)$/;"	l	subroutine:solvergen	file:
350	io.F90	/^    350  tmp=tmp+temp$/;"	l	subroutine:initbred	file:
360	io.F90	/^    360  slf(i,j,k)=slf(i,j,k)+in(i,j,k)*sb(i,j,k)*tp$/;"	l	subroutine:rescbred	file:
390	interp.F90	/^ 390  write(70) s1_data,t1_data$/;"	l	subroutine:indata	file:
400	interp.F90	/^ 400  format(2i4\/4(3x,f10.7),a10)$/;"	l	subroutine:indata	file:
405	io.F90	/^    405  format('save at day',i4,', year',i3)$/;"	l	subroutine:restart	file:
415	interp.F90	/^ 415  format(5e15.7)$/;"	l	subroutine:indata	file:
416	interp.F90	/^ 416  format('read wind stress')$/;"	l	subroutine:indata	file:
420	interp.F90	/^ 420  continue$/;"	l	subroutine:indata	file:
497	presolver.F90	/^ 497  rtemp(it,jt)=rp(nt+i)$/;"	l	subroutine:pre	file:
497	presolver.F90	/^ 497  rtemp(it,jt)=rp(nt+i)$/;"	l	subroutine:pre2	file:
498	presolver.F90	/^ 498  rtp(j,i)=0.d0$/;"	l	subroutine:pre	file:
498	presolver.F90	/^ 498  rtp(j,i)=0.d0$/;"	l	subroutine:pre2	file:
499	presolver.F90	/^ 499  rtp(i,i)=1.d0$/;"	l	subroutine:pre	file:
499	presolver.F90	/^ 499  rtp(i,i)=1.d0$/;"	l	subroutine:pre2	file:
50	io.F90	/^    50   if (((it+i.ge.540).and.(it+i).le.720).and.((jt+j.ge.524).and.(jt+j).le.572))ibred(i,j)=1$/;"	l	subroutine:initbred	file:
50	presolver.F90	/^ 50   act(i,j)=ac(i,j)$/;"	l	subroutine:cholinc	file:
50	presolver.F90	/^ 50   act(i,j)=ac(i,j)$/;"	l	subroutine:luinc	file:
50	presolver.F90	/^ 50   act(i,j)=ac(i,j)$/;"	l	subroutine:sipinc	file:
50	presolver.F90	/^ 50   do 51 k=1,it$/;"	l	subroutine:solvergen	file:
50	presolver.F90	/^ 50   do 55 k=1,k1$/;"	l	subroutine:bounds	file:
500	presolver.F90	/^ 500  rtemp(j,i)=rtp(i,j)$/;"	l	subroutine:pre	file:
500	presolver.F90	/^ 500  rtemp(j,i)=rtp(i,j)$/;"	l	subroutine:pre2	file:
501	presolver.F90	/^ 501  rinv(i,1,nbg)=rtp(jt+i,i2t)$/;"	l	subroutine:pre	file:
501	presolver.F90	/^ 501  rinv(i,1,nbg)=rtp(jt+i,ig2)$/;"	l	subroutine:pre2	file:
502	presolver.F90	/^ 502  rinv(i,i0,nbg)=rtp(jt+i,1)$/;"	l	subroutine:pre	file:
502	presolver.F90	/^ 502  rinv(i,i0,nbg)=rtp(jt+i,1)$/;"	l	subroutine:pre2	file:
503	presolver.F90	/^ 503  rinv(i,j,nbg)=rtp(jt+i,it+j-1)$/;"	l	subroutine:pre	file:
503	presolver.F90	/^ 503  rinv(i,j,nbg)=rtp(jt+i,it+j-1)$/;"	l	subroutine:pre2	file:
504	presolver.F90	/^ 504  rtemp(it,j)=rp(nt+i)$/;"	l	subroutine:pre	file:
504	presolver.F90	/^ 504  rtemp(it,j)=rp(nt+i)$/;"	l	subroutine:pre2	file:
51	presolver.F90	/^ 51   in(i,j,k)=1$/;"	l	subroutine:solvergen	file:
52	presolver.F90	/^ 52   continue$/;"	l	subroutine:solvergen	file:
53	presolver.F90	/^ 53   intmp(i-1,j-1)=in(i,j,1)$/;"	l	subroutine:solvergen	file:
55	presolver.F90	/^ 55   d1(i,j,k)=p01\/(p02+0.7028423*p01)$/;"	l	subroutine:bounds	file:
56	presolver.F90	/^ 56   continue$/;"	l	subroutine:bounds	file:
57	presolver.F90	/^ 57   ing(it+1,jt+1)=inbuf(nt+i)$/;"	l	subroutine:solvergen	file:
57	presolver.F90	/^ 57   write(*,58) n,k$/;"	l	subroutine:bounds	file:
58	presolver.F90	/^ 58   format(i6,' unstable points at level',i3)$/;"	l	subroutine:bounds	file:
6	interp.F90	/^    6    format('stop due to resolution mismatch. set j0,k0 to values from metgen.f.')$/;"	l	subroutine:inmets	file:
6	interp.F90	/^ 6    format('stop due to resolution mismatch. set j0,k0 to values from metgen.f.')$/;"	l	subroutine:indata	file:
6	presolver.F90	/^6   format('stop due to resolution mismatch. set i0,k0 to values from metgen.f.')$/;"	l	subroutine:solvergen	file:
600	presolver.F90	/^ 600  ssurf(i,j,n+2)=ssurf(i,j,n)+tem*(ssurf(i,j,nm)-ssurf(i,j,n))$/;"	l	subroutine:bounds	file:
64	presolver.F90	/^ 64   iu(i,j,k)=in(i,j,k)*in(i+1,j,k)$/;"	l	subroutine:solvergen	file:
648	presolver.F90	/^ 648  sxycli(k,n+2)=sxycli(k,n)+tem*(sxycli(k,nm)-sxycli(k,n))$/;"	l	subroutine:bounds	file:
65	presolver.F90	/^ 65   iv(i,j,k)=in(i,j,k)*in(i,j+1,k)$/;"	l	subroutine:solvergen	file:
650	presolver.F90	/^ 650  snsp(i,j,k,n+2)=snsp(i,j,k,n)+tem*(snsp(i,j,k,nm)-snsp(i,j,k,n))$/;"	l	subroutine:bounds	file:
66	presolver.F90	/^ 66   iw(i,j,k+1)=in(i,j,k)*in(i,j,k+1)$/;"	l	subroutine:solvergen	file:
69	presolver.F90	/^ 69   n=0$/;"	l	subroutine:solvergen	file:
70	presolver.F90	/^ 70   continue$/;"	l	subroutine:solvergen	file:
7000	presolver.F90	/^ 7000 continue$/;"	l	subroutine:bounds	file:
71	presolver.F90	/^ 71   format('mask out',i4,' points having no lateral ventillation')$/;"	l	subroutine:solvergen	file:
72	presolver.F90	/^ 72   continue$/;"	l	subroutine:solvergen	file:
80	interp.F90	/^80  dsw=depth(i,jp)$/;"	l	subroutine:inmets	file:
9	interp.F90	/^    9    read(10) tlz,z,odz,odzw,dxmnut,xdeg,y,yv,yvdeg,ydeg,cs,csv,ocs,ocsv,dx,dxv,odx,odxv,dy,dyv,ody,odyv$/;"	l	subroutine:inmets	file:
9	interp.F90	/^ 9    read(10) tlz,z,odz,odzw,dxmnut,xdeg,y,yv,yvdeg,ydeg,cs,csv,ocs,ocsv,dx,dxv,odx,odxv,dy,dyv,ody,odyv$/;"	l	subroutine:indata	file:
9	presolver.F90	/^9   continue   $/;"	l	subroutine:solvergen	file:
90	presolver.F90	/^ 90   hbk(k)=.002+.02*tmpts$/;"	l	subroutine:initfs	file:
91	presolver.F90	/^ 91   format(' K    Z    VBK    HBK'\/(i2,i5,2f7.3))$/;"	l	subroutine:initfs	file:
97	presolver.F90	/^ 97   cy(i,0)=ct(i)$/;"	l	subroutine:pre	file:
97	presolver.F90	/^ 97   cy(i,0)=ct(i)$/;"	l	subroutine:pre2	file:
98	presolver.F90	/^ 98   ct(i)=cy(i,j2)$/;"	l	subroutine:pre	file:
98	presolver.F90	/^ 98   ct(i)=cy(i,j2)$/;"	l	subroutine:pre2	file:
99	met.F90	/^	99   format('j,yvdeg(j)=',i3,f9.4)$/;"	l	subroutine:metgen	file:
99	presolver.F90	/^ 99   cyt(i,j)=cy(i,j)$/;"	l	subroutine:pre	file:
99	presolver.F90	/^ 99   cyt(i,j)=cy(i,j)$/;"	l	subroutine:pre2	file:
999	io.F90	/^    999 ylat(j)=ydeg(j+1)$/;"	l	subroutine:write_topo	file:
a	var.F90	/^    real/;"	v	module:var
bathy	presolver.F90	15;"	c	module:presolver
bathyglo	var.F90	29;"	c	module:var
bcs	presolver.F90	16;"	c	module:presolver
bglo	var.F90	19;"	c	module:var
bicg	var.F90	61;"	c	module:var
blank	var.F90	100;"	c	module:var
bounds	presolver.F90	/^subroutine bounds$/;"	s	module:presolver
boyanc	presolver.F90	14;"	c	module:presolver
bred	var.F90	67;"	c	module:var
case	var.F90	/^    character case*/;"	v	module:var
cgp	var.F90	/^    real*8 cgr,cgrh,cgp,/;"	v	module:var
cgph	var.F90	/^    real*8 cgr,cgrh,cgp,cgv,cgs,cgt,cgph,/;"	v	module:var
cgr	var.F90	/^    real*8 cgr,/;"	v	module:var
cgrh	var.F90	/^    real*8 cgr,cgrh,/;"	v	module:var
cgridglo	var.F90	33;"	c	module:var
cgs	var.F90	/^    real*8 cgr,cgrh,cgp,cgv,cgs,/;"	v	module:var
cgsh	var.F90	/^    real*8 cgr,cgrh,cgp,cgv,cgs,cgt,cgph,cgsh$/;"	v	module:var
cgt	var.F90	/^    real*8 cgr,cgrh,cgp,cgv,cgs,cgt,/;"	v	module:var
cgv	var.F90	/^    real*8 cgr,cgrh,cgp,cgv,/;"	v	module:var
cholinc	presolver.F90	/^subroutine cholinc(/;"	s	module:presolver
climatglo	var.F90	90;"	c	module:var
comborecv	comm.F90	/^subroutine comborecv(/;"	s	module:comm
combosend	comm.F90	/^subroutine combosend(/;"	s	module:comm
comm	comm.F90	/^module comm$/;"	m
const	const.F90	/^module const$/;"	m
contro	presolver.F90	12;"	c	module:presolver
controglo	var.F90	38;"	c	module:var
d1	presolver.F90	/^    real*8 hh,d1$/;"	v	module:presolver
dscrib	var.F90	/^    character case*5,dscrib*/;"	v	module:var
dsum	var.F90	/^    real*8 dtmp,dsum$/;"	v	module:var
dtmp	var.F90	/^    real*8 dtmp,/;"	v	module:var
dum0	var.F90	/^    real*8 rinv,rinv1,dum0,/;"	v	module:var
dum1	var.F90	/^    real*8 rinv,rinv1,dum0,dum1,/;"	v	module:var
dum2	var.F90	/^    real*8 rinv,rinv1,dum0,dum1,dum2,/;"	v	module:var
dumg	var.F90	/^    real*8 rinv,rinv1,dum0,dum1,dum2,dumg,/;"	v	module:var
dvec2mtx	io.F90	/^subroutine dvec2mtx(/;"	s	module:io
filename	var.F90	/^    character grd*7,filename*/;"	v	module:var
filterglo	var.F90	74;"	c	module:var
finalize	main.F90	/^subroutine finalize(/;"	s
finalize_comm	comm.F90	/^subroutine finalize_comm$/;"	s	module:comm
finalize_io	io.F90	/^subroutine finalize_io$/;"	s	module:io
flxglo	var.F90	102;"	c	module:var
fullopt	var.F90	72;"	c	module:var
gamma0	interp.F90	/^function gamma0(/;"	f	module:interp
grd	var.F90	/^    character grd*/;"	v	module:var
grdglo	var.F90	70;"	c	module:var
h	var.F90	/^    real*8 rinv,rinv1,dum0,dum1,dum2,dumg,x,h,/;"	v	module:var
hh	presolver.F90	/^    real*8 hh,/;"	v	module:presolver
histavg	io.F90	30;"	c	subroutine:write_hist
i0	const.F90	/^    integer, parameter::    i0=/;"	v	module:const
i01	const.F90	/^    integer, parameter::   i01=/;"	v	module:const
i0t	const.F90	/^    integer, parameter::    i0t=/;"	v	module:const
i1	const.F90	/^    integer, parameter::    i1=/;"	v	module:const
i1t	const.F90	/^    integer, parameter::    i1t=/;"	v	module:const
i2	const.F90	/^    integer, parameter::    i2=/;"	v	module:const
i2t	const.F90	/^    integer, parameter::    i2t=/;"	v	module:const
ibir	const.F90	/^    integer, parameter::   ibir=/;"	v	module:const
ibred	var.F90	/^    integer*2 ibred$/;"	v	module:var
ig0	const.F90	/^    integer, parameter::   ig0=/;"	v	module:const
ig1	const.F90	/^    integer, parameter::   ig1=/;"	v	module:const
ig2	const.F90	/^    integer, parameter::   ig2=/;"	v	module:const
ijhi	var.F90	/^    integer ijlo(2),ijhi(/;"	v	module:var
ijlo	var.F90	/^    integer ijlo(/;"	v	module:var
in	var.F90	/^    int/;"	v	module:var
indata	interp.F90	/^subroutine indata$/;"	s	module:interp
infx	var.F90	/^    integer*2 infx,/;"	v	module:var
infy	var.F90	/^    integer*2 infx,infy$/;"	v	module:var
ini_clim	const.F90	/^    integer, parameter::    ini_clim=/;"	v	module:const
init	main.F90	/^subroutine init$/;"	s
init_comm	comm.F90	/^subroutine init_comm$/;"	s	module:comm
init_io	io.F90	/^subroutine init_io$/;"	s	module:io
initbred	io.F90	/^subroutine initbred$/;"	s	module:io
initfs	presolver.F90	/^subroutine initfs$/;"	s	module:presolver
inmets	interp.F90	/^subroutine inmets$/;"	s	module:interp
interp	interp.F90	/^module interp /;"	m
io	io.F90	/^module io$/;"	m
it0	var.F90	/^    integer n360,nyr,itf,itff,it0,/;"	v	module:var
itf	var.F90	/^    integer n360,nyr,itf,/;"	v	module:var
itfday	var.F90	/^    integer n360,nyr,itf,itff,it0,itfday,/;"	v	module:var
itff	var.F90	/^    integer n360,nyr,itf,itff,/;"	v	module:var
iu	var.F90	/^    integer*2 kb,iu0/;"	v	module:var
iu0	var.F90	/^    integer*2 kb,iu0,/;"	v	module:var
iv	var.F90	/^    integer*2 kb,iu0,iv0/;"	v	module:var
iv0	var.F90	/^    integer*2 kb,iu0,iv0,/;"	v	module:var
iw	var.F90	/^    integer*2 kb,iu0,iv0,in,iu,iv,iw$/;"	v	module:var
j0	const.F90	/^    integer, parameter::    j0=/;"	v	module:const
j01	const.F90	/^    integer, parameter::   j01=/;"	v	module:const
j0t	const.F90	/^    integer, parameter::    j0t=/;"	v	module:const
j1	const.F90	/^    integer, parameter::    j1=/;"	v	module:const
j1t	const.F90	/^    integer, parameter::    j1t=/;"	v	module:const
j2	const.F90	/^    integer, parameter::    j2=/;"	v	module:const
j2t	const.F90	/^    integer, parameter::    j2t=/;"	v	module:const
jg0	const.F90	/^    integer, parameter::   jg0=/;"	v	module:const
jg1	const.F90	/^    integer, parameter::   jg1=/;"	v	module:const
jg2	const.F90	/^    integer, parameter::   jg2=/;"	v	module:const
k0	const.F90	/^    integer, parameter::    k0=/;"	v	module:const
k1	const.F90	/^    integer, parameter::    k1=/;"	v	module:const
k2	const.F90	/^    integer, parameter::    k2=/;"	v	module:const
kb	var.F90	/^    integer*2 kb,/;"	v	module:var
klimatglo	var.F90	36;"	c	module:var
lbred	var.F90	/^    integer ::   lbred=/;"	v	module:var
lpi	presolver.F90	13;"	c	module:presolver
luinc	presolver.F90	/^subroutine luinc(/;"	s	module:presolver
met	met.F90	/^module met /;"	m
metgen	met.F90	/^subroutine metgen$/;"	s	module:met
metricglo	var.F90	44;"	c	module:var
mpi_exch_2d_r4	comm.F90	/^subroutine mpi_exch_2d_r4(/;"	s	module:comm
mpi_exch_2d_r8	comm.F90	/^subroutine mpi_exch_2d_r8(/;"	s	module:comm
mpi_exch_3d_r4	comm.F90	/^subroutine mpi_exch_3d_r4(/;"	s	module:comm
mpi_grid2d_gen	comm.F90	/^subroutine mpi_grid2d_gen$/;"	s	module:comm
mpi_grid_gen	comm.F90	/^subroutine mpi_grid_gen$/;"	s	module:comm
mpi_peri_all	comm.F90	/^subroutine mpi_peri_all(/;"	s	module:comm
mpi_peri_scr	comm.F90	/^subroutine mpi_peri_scr(/;"	s	module:comm
mpi_peri_ts	comm.F90	/^subroutine mpi_peri_ts(/;"	s	module:comm
mpi_peri_uv	comm.F90	/^subroutine mpi_peri_uv(/;"	s	module:comm
mpi_vtype	comm.F90	9;"	c	module:comm
mpicomm	comm.F90	6;"	c	module:comm
mtx2dec_c	io.F90	/^subroutine mtx2dec_c(/;"	s	module:io
mtx2dvec	io.F90	/^subroutine mtx2dvec(/;"	s	module:io
mtx2ivec	io.F90	/^subroutine mtx2ivec(/;"	s	module:io
mtx2rvec	io.F90	/^subroutine mtx2rvec(/;"	s	module:io
mtx2rvec2	io.F90	/^subroutine mtx2rvec2(/;"	s	module:io
mtx2rvec_m	io.F90	/^subroutine mtx2rvec_m(/;"	s	module:io
mtx2vec_c	io.F90	/^subroutine mtx2vec_c(/;"	s	module:io
mtx2vec_f	io.F90	/^subroutine mtx2vec_f(/;"	s	module:io
n0	const.F90	/^    integer, parameter::    n0=/;"	v	module:const
n360	var.F90	/^    integer n360,/;"	v	module:var
nb0	const.F90	/^    integer, parameter::    nb0=/;"	v	module:const
nb1	const.F90	/^    integer, parameter::    nb1=/;"	v	module:const
nbg0	const.F90	/^    integer, parameter::   nbg0=/;"	v	module:const
nbg1	const.F90	/^    integer, parameter::   nbg1=/;"	v	module:const
nc_1	io.F90	/^    integer(kind=mpi_offset_kind) nn,ns_kji,nc_kji,ns_tji,nc_tji,ns_ji,nc_ji,ns_1,nc_1,/;"	v	module:io
nc_ji	io.F90	/^    integer(kind=mpi_offset_kind) nn,ns_kji,nc_kji,ns_tji,nc_tji,ns_ji,nc_ji,/;"	v	module:io
nc_ji2	io.F90	/^    integer(kind=mpi_offset_kind) ns_kji2,nc_kji2,ns_tji2,nc_tji2,ns_ji2,nc_ji2,/;"	v	module:io
nc_kji	io.F90	/^    integer(kind=mpi_offset_kind) nn,ns_kji,nc_kji,/;"	v	module:io
nc_kji2	io.F90	/^    integer(kind=mpi_offset_kind) ns_kji2,nc_kji2,/;"	v	module:io
nc_tji	io.F90	/^    integer(kind=mpi_offset_kind) nn,ns_kji,nc_kji,ns_tji,nc_tji,/;"	v	module:io
nc_tji2	io.F90	/^    integer(kind=mpi_offset_kind) ns_kji2,nc_kji2,ns_tji2,nc_tji2,/;"	v	module:io
ncopt	const.F90	/^    integer, parameter::    ncopt=/;"	v	module:const
nf_kji	io.F90	/^    integer(kind=mpi_offset_kind) nn,ns_kji,nc_kji,ns_tji,nc_tji,ns_ji,nc_ji,ns_1,nc_1,nf_kji$/;"	v	module:io
nf_kji2	io.F90	/^    integer(kind=mpi_offset_kind) ns_kji2,nc_kji2,ns_tji2,nc_tji2,ns_ji2,nc_ji2,nf_kji2$/;"	v	module:io
ng0	const.F90	/^    integer, parameter::    ng0=/;"	v	module:const
ngx0	const.F90	/^    integer, parameter::    ngx0=/;"	v	module:const
ngx1	const.F90	/^    integer, parameter::    ngx1=/;"	v	module:const
ngy0	const.F90	/^    integer, parameter::    ngy0=/;"	v	module:const
ngy1	const.F90	/^    integer, parameter::    ngy1=/;"	v	module:const
nn	io.F90	/^    integer(kind=mpi_offset_kind) nn,/;"	v	module:io
nocn	var.F90	/^    integer n360,nyr,itf,itff,it0,itfday,nocn$/;"	v	module:var
nopt	var.F90	/^    integer nopt$/;"	v	module:var
ns_1	io.F90	/^    integer(kind=mpi_offset_kind) nn,ns_kji,nc_kji,ns_tji,nc_tji,ns_ji,nc_ji,ns_1,/;"	v	module:io
ns_ji	io.F90	/^    integer(kind=mpi_offset_kind) nn,ns_kji,nc_kji,ns_tji,nc_tji,ns_ji,/;"	v	module:io
ns_ji2	io.F90	/^    integer(kind=mpi_offset_kind) ns_kji2,nc_kji2,ns_tji2,nc_tji2,ns_ji2,/;"	v	module:io
ns_kji	io.F90	/^    integer(kind=mpi_offset_kind) nn,ns_kji,/;"	v	module:io
ns_kji2	io.F90	/^    integer(kind=mpi_offset_kind) ns_kji2,/;"	v	module:io
ns_tji	io.F90	/^    integer(kind=mpi_offset_kind) nn,ns_kji,nc_kji,ns_tji,/;"	v	module:io
ns_tji2	io.F90	/^    integer(kind=mpi_offset_kind) ns_kji2,nc_kji2,ns_tji2,/;"	v	module:io
nudging	var.F90	83;"	c	module:var
nyr	var.F90	/^    integer n360,nyr,/;"	v	module:var
o12	const.F90	/^    real,    parameter::   o12=/;"	v	module:const
o24	const.F90	/^    real,    parameter::   o24=/;"	v	module:const
pnetcdf	comm.F90	65;"	c	subroutine:mpi_grid_gen
pnetcdf	io.F90	8;"	c	module:io
pnetcdf2	comm.F90	69;"	c	subroutine:mpi_grid_gen
pnetcdf2	io.F90	10;"	c	module:io
pnetcdferrck	io.F90	/^subroutine pnetcdferrck(/;"	s	module:io
pre	presolver.F90	/^subroutine pre(/;"	s	module:presolver
pre2	presolver.F90	/^subroutine pre2(/;"	s	module:presolver
preprocess	main.F90	/^program preprocess$/;"	p
presolver	presolver.F90	/^module presolver /;"	m
r	interp.F90	/^function r(/;"	f	module:interp
read_initnc	io.F90	/^subroutine read_initnc(/;"	s	module:io
read_rerun	io.F90	/^subroutine read_rerun$/;"	s	module:io
readnc	io.F90	/^subroutine readnc(/;"	s	module:io
rescbred	io.F90	/^subroutine rescbred$/;"	s	module:io
restart	io.F90	/^subroutine restart$/;"	s	module:io
rho	var.F90	/^    real*8 rinv,rinv1,dum0,dum1,dum2,dumg,x,h,rho$/;"	v	module:var
rinv	var.F90	/^    real*8 rinv,/;"	v	module:var
rinv1	var.F90	/^    real*8 rinv,rinv1,/;"	v	module:var
run	main.F90	/^subroutine run$/;"	s
rvec2mtx	io.F90	/^subroutine rvec2mtx(/;"	s	module:io
rvec2mtx2	io.F90	/^subroutine rvec2mtx2(/;"	s	module:io
scaglo	var.F90	49;"	c	module:var
scratchglo	var.F90	52;"	c	module:var
sevp	var.F90	57;"	c	module:var
sipinc	presolver.F90	/^subroutine sipinc(/;"	s	module:presolver
solvergen	presolver.F90	/^subroutine solvergen$/;"	s	module:presolver
sys1	var.F90	/^    character sys1*/;"	v	module:var
sys2	var.F90	/^    character sys1*30,sys2*/;"	v	module:var
tauglo	var.F90	98;"	c	module:var
tavgglo	var.F90	34;"	c	module:var
theta	interp.F90	/^function theta(/;"	f	module:interp
timeavg	io.F90	/^subroutine timeavg(/;"	s	module:io
timeavgd	io.F90	/^subroutine timeavgd(/;"	s	module:io
timer	var.F90	/^    real*8 timer$/;"	v	module:var
timer	var.F90	81;"	c	module:var
title	var.F90	94;"	c	module:var
var	var.F90	/^module var /;"	m
westdeg	var.F90	/^    real*8 westdeg$/;"	v	module:var
windmxglo	var.F90	96;"	c	module:var
windsglo	io.F90	162;"	c	subroutine:write_topo
windsglo	var.F90	95;"	c	module:var
write2nc	io.F90	/^subroutine write2nc(/;"	s	module:io
write_hist	io.F90	/^subroutine write_hist$/;"	s	module:io
write_init2nc	io.F90	/^subroutine write_init2nc(/;"	s	module:io
write_rerun	io.F90	/^subroutine write_rerun$/;"	s	module:io
write_topo	io.F90	/^subroutine write_topo$/;"	s	module:io
x	var.F90	/^    real*8 rinv,rinv1,dum0,dum1,dum2,dumg,x,/;"	v	module:var
xymeansglo	var.F90	97;"	c	module:var
zfsglo	var.F90	65;"	c	module:var
