Table showing occurences of "ip"

Symbol	Description	Uses
ip	diagnostics pointer to storage array	1695

File	Line number	Procedure	Code
./pkg/exch2/w2_print_e2setup.F	101	W2_PRINT_E2SETUP	ip(1) = is
./pkg/exch2/w2_print_e2setup.F	104	W2_PRINT_E2SETUP	IF ( ip(2).EQ.0 .AND. exch2_isSedge(is).EQ.1
./pkg/exch2/w2_print_e2setup.F	107	W2_PRINT_E2SETUP	ip(2) = is
./pkg/exch2/w2_print_e2setup.F	110	W2_PRINT_E2SETUP	IF ( ip(3).EQ.0 .AND. exch2_isEedge(is).EQ.1
./pkg/exch2/w2_print_e2setup.F	113	W2_PRINT_E2SETUP	ip(3) = is
./pkg/exch2/w2_print_e2setup.F	116	W2_PRINT_E2SETUP	IF ( ip(4).EQ.0 .AND. exch2_isWedge(is).EQ.1
./pkg/exch2/w2_print_e2setup.F	119	W2_PRINT_E2SETUP	ip(4) = is
./pkg/exch2/w2_print_e2setup.F	129	W2_PRINT_E2SETUP	IF ( ip(i).NE.0 ) THEN
./pkg/exch2/w2_print_e2setup.F	130	W2_PRINT_E2SETUP	j = exch2_myFace(ip(i))
./pkg/exch2/w2_print_e2setup.F	131	W2_PRINT_E2SETUP	it = exch2_neighbourId (np(i),ip(i))
./pkg/exch2/w2_print_e2setup.F	132	W2_PRINT_E2SETUP	nt = exch2_opposingSend(np(i),ip(i))
./pkg/exch2/w2_print_e2setup.F	142	W2_PRINT_E2SETUP	& ' : pij=', (exch2_pij(k,np(i),ip(i)),k=1,4),
./pkg/exch2/w2_print_e2setup.F	143	W2_PRINT_E2SETUP	& ' ; oi,oj=',exch2_oi(np(i),ip(i)),exch2_oj(np(i),ip(i))
./pkg/exch2/w2_print_e2setup.F	41	W2_PRINT_E2SETUP	INTEGER ip(4), np(4)
./pkg/exch2/w2_print_e2setup.F	72	W2_PRINT_E2SETUP	IF ( ip(i).NE.0 ) THEN
./pkg/exch2/w2_print_e2setup.F	73	W2_PRINT_E2SETUP	j = exch2_myFace(ip(i))
./pkg/exch2/w2_print_e2setup.F	74	W2_PRINT_E2SETUP	it = exch2_neighbourId (np(i),ip(i))
./pkg/exch2/w2_print_e2setup.F	75	W2_PRINT_E2SETUP	nt = exch2_opposingSend(np(i),ip(i))
./pkg/exch2/w2_print_e2setup.F	85	W2_PRINT_E2SETUP	& ' : pij=', (exch2_pij(k,np(i),ip(i)),k=1,4),
./pkg/exch2/w2_print_e2setup.F	86	W2_PRINT_E2SETUP	& ' ; oi,oj=',exch2_oi(np(i),ip(i)),exch2_oj(np(i),ip(i))
./pkg/exch2/w2_print_e2setup.F	93	W2_PRINT_E2SETUP	ip(i) = 0
./pkg/exch2/w2_print_e2setup.F	98	W2_PRINT_E2SETUP	IF ( ip(1).EQ.0 .AND. exch2_isNedge(is).EQ.1
./pkg/fizhi/co2-tran3.h	100	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip= 6, 6)/
./pkg/fizhi/co2-tran3.h	106	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip= 6, 6)/
./pkg/fizhi/co2-tran3.h	10	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip= 1, 1)/
./pkg/fizhi/co2-tran3.h	112	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip= 7, 7)/
./pkg/fizhi/co2-tran3.h	118	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip= 7, 7)/
./pkg/fizhi/co2-tran3.h	124	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip= 7, 7)/
./pkg/fizhi/co2-tran3.h	130	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip= 8, 8)/
./pkg/fizhi/co2-tran3.h	136	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip= 8, 8)/
./pkg/fizhi/co2-tran3.h	142	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip= 8, 8)/
./pkg/fizhi/co2-tran3.h	148	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip= 9, 9)/
./pkg/fizhi/co2-tran3.h	154	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip= 9, 9)/
./pkg/fizhi/co2-tran3.h	160	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip= 9, 9)/
./pkg/fizhi/co2-tran3.h	166	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=10,10)/
./pkg/fizhi/co2-tran3.h	16	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip= 1, 1)/
./pkg/fizhi/co2-tran3.h	172	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=10,10)/
./pkg/fizhi/co2-tran3.h	178	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=10,10)/
./pkg/fizhi/co2-tran3.h	184	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=11,11)/
./pkg/fizhi/co2-tran3.h	190	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=11,11)/
./pkg/fizhi/co2-tran3.h	196	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=11,11)/
./pkg/fizhi/co2-tran3.h	202	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=12,12)/
./pkg/fizhi/co2-tran3.h	208	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=12,12)/
./pkg/fizhi/co2-tran3.h	214	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=12,12)/
./pkg/fizhi/co2-tran3.h	220	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=13,13)/
./pkg/fizhi/co2-tran3.h	226	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=13,13)/
./pkg/fizhi/co2-tran3.h	22	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip= 2, 2)/
./pkg/fizhi/co2-tran3.h	232	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=13,13)/
./pkg/fizhi/co2-tran3.h	238	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=14,14)/
./pkg/fizhi/co2-tran3.h	244	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=14,14)/
./pkg/fizhi/co2-tran3.h	250	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=14,14)/
./pkg/fizhi/co2-tran3.h	256	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=15,15)/
./pkg/fizhi/co2-tran3.h	262	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=15,15)/
./pkg/fizhi/co2-tran3.h	268	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=15,15)/
./pkg/fizhi/co2-tran3.h	274	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=16,16)/
./pkg/fizhi/co2-tran3.h	280	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=16,16)/
./pkg/fizhi/co2-tran3.h	286	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=16,16)/
./pkg/fizhi/co2-tran3.h	28	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip= 2, 2)/
./pkg/fizhi/co2-tran3.h	292	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=17,17)/
./pkg/fizhi/co2-tran3.h	298	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=17,17)/
./pkg/fizhi/co2-tran3.h	304	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=17,17)/
./pkg/fizhi/co2-tran3.h	310	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=18,18)/
./pkg/fizhi/co2-tran3.h	316	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=18,18)/
./pkg/fizhi/co2-tran3.h	322	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=18,18)/
./pkg/fizhi/co2-tran3.h	328	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=19,19)/
./pkg/fizhi/co2-tran3.h	334	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=19,19)/
./pkg/fizhi/co2-tran3.h	340	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=19,19)/
./pkg/fizhi/co2-tran3.h	346	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=20,20)/
./pkg/fizhi/co2-tran3.h	34	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip= 2, 2)/
./pkg/fizhi/co2-tran3.h	352	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=20,20)/
./pkg/fizhi/co2-tran3.h	358	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=20,20)/
./pkg/fizhi/co2-tran3.h	364	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=21,21)/
./pkg/fizhi/co2-tran3.h	370	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=21,21)/
./pkg/fizhi/co2-tran3.h	376	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=21,21)/
./pkg/fizhi/co2-tran3.h	382	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=22,22)/
./pkg/fizhi/co2-tran3.h	388	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=22,22)/
./pkg/fizhi/co2-tran3.h	394	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=22,22)/
./pkg/fizhi/co2-tran3.h	400	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=23,23)/
./pkg/fizhi/co2-tran3.h	406	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=23,23)/
./pkg/fizhi/co2-tran3.h	40	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip= 3, 3)/
./pkg/fizhi/co2-tran3.h	412	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=23,23)/
./pkg/fizhi/co2-tran3.h	418	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=24,24)/
./pkg/fizhi/co2-tran3.h	424	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=24,24)/
./pkg/fizhi/co2-tran3.h	430	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=24,24)/
./pkg/fizhi/co2-tran3.h	436	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=25,25)/
./pkg/fizhi/co2-tran3.h	442	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=25,25)/
./pkg/fizhi/co2-tran3.h	448	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=25,25)/
./pkg/fizhi/co2-tran3.h	454	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip=26,26)/
./pkg/fizhi/co2-tran3.h	460	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip=26,26)/
./pkg/fizhi/co2-tran3.h	466	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip=26,26)/
./pkg/fizhi/co2-tran3.h	46	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip= 3, 3)/
./pkg/fizhi/co2-tran3.h	4	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip= 1, 1)/
./pkg/fizhi/co2-tran3.h	52	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip= 3, 3)/
./pkg/fizhi/co2-tran3.h	58	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip= 4, 4)/
./pkg/fizhi/co2-tran3.h	64	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip= 4, 4)/
./pkg/fizhi/co2-tran3.h	70	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip= 4, 4)/
./pkg/fizhi/co2-tran3.h	76	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip= 5, 5)/
./pkg/fizhi/co2-tran3.h	82	NO PROCEDURE	data ((c2(ip,iw,1),iw=1,24),ip= 5, 5)/
./pkg/fizhi/co2-tran3.h	88	NO PROCEDURE	data ((c3(ip,iw,1),iw=1,24),ip= 5, 5)/
./pkg/fizhi/co2-tran3.h	94	NO PROCEDURE	data ((c1(ip,iw,1),iw=1,24),ip= 6, 6)/
./pkg/fizhi/fizhi_lwrad.F	2518	TABLUP	integer iw,ip,nn
./pkg/fizhi/fizhi_lwrad.F	2538	TABLUP	ip=int(pe+1.5)
./pkg/fizhi/fizhi_lwrad.F	2543	TABLUP	ip=min(ip,nx-1)
./pkg/fizhi/fizhi_lwrad.F	2544	TABLUP	ip=max(ip, 1)
./pkg/fizhi/fizhi_lwrad.F	2547	TABLUP	fp=pe-float(ip-1)
./pkg/fizhi/fizhi_lwrad.F	2551	TABLUP	pa = coef1(ip,iw-1,nn)(1.-fp)+coef1(ip+1,iw-1,nn)fp
./pkg/fizhi/fizhi_lwrad.F	2552	TABLUP	pb = coef1(ip,iw, nn)(1.-fp)+coef1(ip+1,iw, nn)fp
./pkg/fizhi/fizhi_lwrad.F	2553	TABLUP	pc = coef1(ip,iw+1,nn)(1.-fp)+coef1(ip+1,iw+1,nn)fp
./pkg/fizhi/fizhi_lwrad.F	2561	TABLUP	ba = coef2(ip,iw, nn)(1.-fp)+coef2(ip+1,iw, nn)fp
./pkg/fizhi/fizhi_lwrad.F	2562	TABLUP	bb = coef2(ip,iw+1,nn)(1.-fp)+coef2(ip+1,iw+1,nn)fp
./pkg/fizhi/fizhi_lwrad.F	2565	TABLUP	ca = coef3(ip,iw, nn)(1.-fp)+coef3(ip+1,iw, nn)fp
./pkg/fizhi/fizhi_lwrad.F	2566	TABLUP	cb = coef3(ip,iw+1,nn)(1.-fp)+coef3(ip+1,iw+1,nn)fp
./pkg/fizhi/fizhi_lwrad.F	563	IRRAD	integer i,j,k,ip,iw,it,ib,ik,iq,isb,k1,k2
./pkg/fizhi/fizhi_lwrad.F	804	IRRAD	do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F	805	IRRAD	h11(ip,iw,1)=1.0-h11(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	806	IRRAD	h21(ip,iw,1)=1.0-h21(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	807	IRRAD	h81(ip,iw,1)=1.0-h81(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	812	IRRAD	do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F	813	IRRAD	c1(ip,iw,1)=1.0-c1(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	824	IRRAD	do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F	825	IRRAD	c1 (ip,iw,it)= c1(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	826	IRRAD	c2 (ip,iw,it)= c2(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	827	IRRAD	c3 (ip,iw,it)= c3(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	831	IRRAD	do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F	832	IRRAD	h11(ip,iw,it)=h11(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	833	IRRAD	h12(ip,iw,it)=h12(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	834	IRRAD	h13(ip,iw,it)=h13(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	835	IRRAD	h21(ip,iw,it)=h21(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	836	IRRAD	h22(ip,iw,it)=h22(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	837	IRRAD	h23(ip,iw,it)=h23(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	838	IRRAD	h81(ip,iw,it)=h81(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	839	IRRAD	h82(ip,iw,it)=h82(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	840	IRRAD	h83(ip,iw,it)=h83(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	850	IRRAD	do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F	851	IRRAD	o1(ip,iw,1)=1.0-o1(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	857	IRRAD	do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F	858	IRRAD	o1 (ip,iw,it)= o1(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	859	IRRAD	o2 (ip,iw,it)= o2(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F	860	IRRAD	o3 (ip,iw,it)= o3(ip,iw,1)
./pkg/fizhi/h2o-tran3.h	1004	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h	100	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h	1012	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h	1020	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h	1028	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h	1036	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h	1044	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h	1052	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h	1060	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h	1068	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h	1076	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h	1084	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h	108	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h	1092	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h	1100	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h	1108	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h	1116	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h	1124	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h	1132	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h	1140	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h	1148	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h	1156	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h	1164	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h	116	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h	1172	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h	1180	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h	1188	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h	1196	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h	1204	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h	1212	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h	1220	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h	1228	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h	1236	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h	1244	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h	124	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h	1252	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h	1260	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h	1268	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h	1276	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h	1284	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h	1292	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h	12	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h	1300	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h	1308	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h	1316	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h	1324	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h	132	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h	1332	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h	1340	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h	1348	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h	1356	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h	1364	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h	1372	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h	1380	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h	1388	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h	1396	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h	1404	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h	140	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h	1412	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h	1420	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h	1428	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h	1436	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h	1444	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h	1452	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h	1460	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h	1468	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h	1476	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h	1484	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h	148	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h	1492	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h	1500	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h	1508	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h	1516	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h	1524	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h	1532	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h	1540	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h	1548	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h	1556	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h	1564	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h	156	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h	1572	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h	1580	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h	1588	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h	1596	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h	1604	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h	1612	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h	1620	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h	1628	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h	1636	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h	1644	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h	164	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h	1652	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h	1660	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h	1668	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h	1676	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h	1684	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h	1692	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h	1700	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h	1708	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h	1716	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h	1724	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h	172	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h	1732	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h	1740	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h	1748	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h	1756	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h	1764	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h	1772	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h	1780	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h	1788	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h	1796	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h	1804	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h	180	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h	1812	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h	1820	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h	1828	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h	1836	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h	1844	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h	1852	NO PROCEDURE	data ((h81(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h	1860	NO PROCEDURE	data ((h82(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h	1868	NO PROCEDURE	data ((h83(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h	188	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h	196	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h	204	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h	20	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h	212	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h	220	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h	228	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h	236	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h	244	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h	252	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h	260	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h	268	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h	276	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h	284	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h	28	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h	292	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h	300	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h	308	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h	316	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h	324	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h	332	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h	340	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h	348	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h	356	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h	364	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h	36	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h	372	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h	380	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h	388	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h	396	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h	404	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h	412	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h	420	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h	428	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h	436	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h	444	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h	44	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h	452	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h	460	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h	468	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h	476	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h	484	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h	492	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h	4	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h	500	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h	508	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h	516	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h	524	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h	52	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h	532	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h	540	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h	548	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h	556	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h	564	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h	572	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h	580	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h	588	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h	596	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h	604	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h	60	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h	612	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h	620	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h	628	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h	636	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h	644	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h	652	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h	660	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h	668	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h	676	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h	684	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h	68	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h	692	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h	700	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h	708	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h	716	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h	724	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h	732	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h	740	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h	748	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h	756	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h	764	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h	76	NO PROCEDURE	data ((h11(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h	772	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h	780	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h	788	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h	796	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h	804	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h	812	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h	820	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h	828	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h	836	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h	844	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h	84	NO PROCEDURE	data ((h12(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h	852	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h	860	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h	868	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h	876	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h	884	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h	892	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h	900	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h	908	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h	916	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h	924	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h	92	NO PROCEDURE	data ((h13(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h	932	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h	940	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h	948	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h	956	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h	964	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h	972	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h	980	NO PROCEDURE	data ((h23(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h	988	NO PROCEDURE	data ((h21(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h	996	NO PROCEDURE	data ((h22(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/o3-tran3.h	100	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip= 6, 6)/
./pkg/fizhi/o3-tran3.h	106	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip= 6, 6)/
./pkg/fizhi/o3-tran3.h	10	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip= 1, 1)/
./pkg/fizhi/o3-tran3.h	112	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip= 7, 7)/
./pkg/fizhi/o3-tran3.h	118	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip= 7, 7)/
./pkg/fizhi/o3-tran3.h	124	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip= 7, 7)/
./pkg/fizhi/o3-tran3.h	130	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip= 8, 8)/
./pkg/fizhi/o3-tran3.h	136	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip= 8, 8)/
./pkg/fizhi/o3-tran3.h	142	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip= 8, 8)/
./pkg/fizhi/o3-tran3.h	148	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip= 9, 9)/
./pkg/fizhi/o3-tran3.h	154	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip= 9, 9)/
./pkg/fizhi/o3-tran3.h	160	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip= 9, 9)/
./pkg/fizhi/o3-tran3.h	166	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=10,10)/
./pkg/fizhi/o3-tran3.h	16	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip= 1, 1)/
./pkg/fizhi/o3-tran3.h	172	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=10,10)/
./pkg/fizhi/o3-tran3.h	178	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=10,10)/
./pkg/fizhi/o3-tran3.h	184	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=11,11)/
./pkg/fizhi/o3-tran3.h	190	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=11,11)/
./pkg/fizhi/o3-tran3.h	196	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=11,11)/
./pkg/fizhi/o3-tran3.h	202	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=12,12)/
./pkg/fizhi/o3-tran3.h	208	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=12,12)/
./pkg/fizhi/o3-tran3.h	214	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=12,12)/
./pkg/fizhi/o3-tran3.h	220	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=13,13)/
./pkg/fizhi/o3-tran3.h	226	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=13,13)/
./pkg/fizhi/o3-tran3.h	22	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip= 2, 2)/
./pkg/fizhi/o3-tran3.h	232	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=13,13)/
./pkg/fizhi/o3-tran3.h	238	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=14,14)/
./pkg/fizhi/o3-tran3.h	244	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=14,14)/
./pkg/fizhi/o3-tran3.h	250	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=14,14)/
./pkg/fizhi/o3-tran3.h	256	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=15,15)/
./pkg/fizhi/o3-tran3.h	262	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=15,15)/
./pkg/fizhi/o3-tran3.h	268	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=15,15)/
./pkg/fizhi/o3-tran3.h	274	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=16,16)/
./pkg/fizhi/o3-tran3.h	280	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=16,16)/
./pkg/fizhi/o3-tran3.h	286	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=16,16)/
./pkg/fizhi/o3-tran3.h	28	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip= 2, 2)/
./pkg/fizhi/o3-tran3.h	292	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=17,17)/
./pkg/fizhi/o3-tran3.h	298	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=17,17)/
./pkg/fizhi/o3-tran3.h	304	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=17,17)/
./pkg/fizhi/o3-tran3.h	310	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=18,18)/
./pkg/fizhi/o3-tran3.h	316	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=18,18)/
./pkg/fizhi/o3-tran3.h	322	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=18,18)/
./pkg/fizhi/o3-tran3.h	328	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=19,19)/
./pkg/fizhi/o3-tran3.h	334	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=19,19)/
./pkg/fizhi/o3-tran3.h	340	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=19,19)/
./pkg/fizhi/o3-tran3.h	346	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=20,20)/
./pkg/fizhi/o3-tran3.h	34	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip= 2, 2)/
./pkg/fizhi/o3-tran3.h	352	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=20,20)/
./pkg/fizhi/o3-tran3.h	358	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=20,20)/
./pkg/fizhi/o3-tran3.h	364	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=21,21)/
./pkg/fizhi/o3-tran3.h	370	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=21,21)/
./pkg/fizhi/o3-tran3.h	376	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=21,21)/
./pkg/fizhi/o3-tran3.h	382	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=22,22)/
./pkg/fizhi/o3-tran3.h	388	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=22,22)/
./pkg/fizhi/o3-tran3.h	394	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=22,22)/
./pkg/fizhi/o3-tran3.h	400	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=23,23)/
./pkg/fizhi/o3-tran3.h	406	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=23,23)/
./pkg/fizhi/o3-tran3.h	40	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip= 3, 3)/
./pkg/fizhi/o3-tran3.h	412	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=23,23)/
./pkg/fizhi/o3-tran3.h	418	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=24,24)/
./pkg/fizhi/o3-tran3.h	424	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=24,24)/
./pkg/fizhi/o3-tran3.h	430	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=24,24)/
./pkg/fizhi/o3-tran3.h	436	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=25,25)/
./pkg/fizhi/o3-tran3.h	442	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=25,25)/
./pkg/fizhi/o3-tran3.h	448	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=25,25)/
./pkg/fizhi/o3-tran3.h	454	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip=26,26)/
./pkg/fizhi/o3-tran3.h	460	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip=26,26)/
./pkg/fizhi/o3-tran3.h	466	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip=26,26)/
./pkg/fizhi/o3-tran3.h	46	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip= 3, 3)/
./pkg/fizhi/o3-tran3.h	4	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip= 1, 1)/
./pkg/fizhi/o3-tran3.h	52	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip= 3, 3)/
./pkg/fizhi/o3-tran3.h	58	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip= 4, 4)/
./pkg/fizhi/o3-tran3.h	64	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip= 4, 4)/
./pkg/fizhi/o3-tran3.h	70	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip= 4, 4)/
./pkg/fizhi/o3-tran3.h	76	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip= 5, 5)/
./pkg/fizhi/o3-tran3.h	82	NO PROCEDURE	data ((o2(ip,iw,1),iw=1,21),ip= 5, 5)/
./pkg/fizhi/o3-tran3.h	88	NO PROCEDURE	data ((o3(ip,iw,1),iw=1,21),ip= 5, 5)/
./pkg/fizhi/o3-tran3.h	94	NO PROCEDURE	data ((o1(ip,iw,1),iw=1,21),ip= 6, 6)/
./pkg/flt/exch2_recv_get_vec.F	136	EXCH2_RECV_GET_VEC_RL	DO ip=1,max_npart_exch
./pkg/flt/exch2_recv_get_vec.F	137	EXCH2_RECV_GET_VEC_RL	IF (array(imax*(ip-1)+1,bi,bj,dir).NE.0.) THEN
./pkg/flt/exch2_recv_get_vec.F	138	EXCH2_RECV_GET_VEC_RL	itc=array(imax*(ip-1)+3,bi,bj,dir)+itb
./pkg/flt/exch2_recv_get_vec.F	139	EXCH2_RECV_GET_VEC_RL	jtc=array(imax*(ip-1)+4,bi,bj,dir)+jtb
./pkg/flt/exch2_recv_get_vec.F	144	EXCH2_RECV_GET_VEC_RL	& array(imax*(ip-1)+1,bi,bj,dir),
./pkg/flt/exch2_recv_get_vec.F	145	EXCH2_RECV_GET_VEC_RL	& array(imax*(ip-1)+2,bi,bj,dir),
./pkg/flt/exch2_recv_get_vec.F	146	EXCH2_RECV_GET_VEC_RL	& array(imax*(ip-1)+3,bi,bj,dir),
./pkg/flt/exch2_recv_get_vec.F	147	EXCH2_RECV_GET_VEC_RL	& array(imax*(ip-1)+4,bi,bj,dir),
./pkg/flt/exch2_recv_get_vec.F	153	EXCH2_RECV_GET_VEC_RL	DO ip=1,max_npart_exch
./pkg/flt/exch2_recv_get_vec.F	154	EXCH2_RECV_GET_VEC_RL	IF (array(imax*(ip-1)+1,bi,bj,dir).NE.0.) THEN
./pkg/flt/exch2_recv_get_vec.F	155	EXCH2_RECV_GET_VEC_RL	itc=array(imax*(ip-1)+3,bi,bj,dir)+itb
./pkg/flt/exch2_recv_get_vec.F	156	EXCH2_RECV_GET_VEC_RL	jtc=array(imax*(ip-1)+4,bi,bj,dir)+jtb
./pkg/flt/exch2_recv_get_vec.F	157	EXCH2_RECV_GET_VEC_RL	array(imax(ip-1)+3,bi,bj,dir) = pi(1)itc+pi(2)*jtc+oi-isb
./pkg/flt/exch2_recv_get_vec.F	158	EXCH2_RECV_GET_VEC_RL	array(imax(ip-1)+4,bi,bj,dir) = pj(1)itc+pj(2)*jtc+oj-jsb
./pkg/flt/exch2_recv_get_vec.F	77	EXCH2_RECV_GET_VEC_RL	INTEGER pi(2), pj(2), oi, oj, ip, itb, jtb, isb, jsb
./pkg/flt/flt_down.F	31	FLT_DOWN	INTEGER ip
./pkg/flt/flt_down.F	38	FLT_DOWN	DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_down.F	41	FLT_DOWN	& ( myTime.GE.tstart(ip,bi,bj))
./pkg/flt/flt_down.F	43	FLT_DOWN	& ( tend(ip,bi,bj).EQ.-1. .OR. myTime.LE. tend(ip,bi,bj))
./pkg/flt/flt_down.F	45	FLT_DOWN	& (kpart(ip,bi,bj) .LE. flt_surf)
./pkg/flt/flt_down.F	47	FLT_DOWN	& (iup(ip,bi,bj) .GT. 0.)
./pkg/flt/flt_down.F	58	FLT_DOWN	IF (mod(myTime,iup(ip,bi,bj)).EQ.itop(ip,bi,bj))
./pkg/flt/flt_down.F	59	FLT_DOWN	& kpart(ip,bi,bj) = kfloat(ip,bi,bj)
./pkg/flt/flt_exch2.F	100	FLT_EXCH2	DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_exch2.F	103	FLT_EXCH2	& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.)
./pkg/flt/flt_exch2.F	104	FLT_EXCH2	& .AND. ipart(ip,bi,bj).GE.ihi ) THEN
./pkg/flt/flt_exch2.F	106	FLT_EXCH2	tend(ip,bi,bj) = flt_stopped
./pkg/flt/flt_exch2.F	107	FLT_EXCH2	ELSEIF ( ipart(ip,bi,bj).GE.ihi ) THEN
./pkg/flt/flt_exch2.F	112	FLT_EXCH2	iNew = ipart(ip,bi,bj) - DFLOAT(sNx)
./pkg/flt/flt_exch2.F	113	FLT_EXCH2	fltbuf_send(ic+1,bi,bj,W2_EAST) = npart(ip,bi,bj)
./pkg/flt/flt_exch2.F	114	FLT_EXCH2	fltbuf_send(ic+2,bi,bj,W2_EAST) = tstart(ip,bi,bj)
./pkg/flt/flt_exch2.F	116	FLT_EXCH2	fltbuf_send(ic+3,bi,bj,W2_EAST) = ipart(ip,bi,bj)
./pkg/flt/flt_exch2.F	120	FLT_EXCH2	fltbuf_send(ic+4,bi,bj,W2_EAST) = jpart(ip,bi,bj)
./pkg/flt/flt_exch2.F	121	FLT_EXCH2	fltbuf_send(ic+5,bi,bj,W2_EAST) = kpart(ip,bi,bj)
./pkg/flt/flt_exch2.F	122	FLT_EXCH2	fltbuf_send(ic+6,bi,bj,W2_EAST) = kfloat(ip,bi,bj)
./pkg/flt/flt_exch2.F	123	FLT_EXCH2	fltbuf_send(ic+7,bi,bj,W2_EAST) = iup(ip,bi,bj)
./pkg/flt/flt_exch2.F	124	FLT_EXCH2	fltbuf_send(ic+8,bi,bj,W2_EAST) = itop(ip,bi,bj)
./pkg/flt/flt_exch2.F	125	FLT_EXCH2	fltbuf_send(ic+9,bi,bj,W2_EAST) = tend(ip,bi,bj)
./pkg/flt/flt_exch2.F	129	FLT_EXCH2	deleteList(jl) = ip
./pkg/flt/flt_exch2.F	130	FLT_EXCH2	npart(ip,bi,bj) = 0.
./pkg/flt/flt_exch2.F	136	FLT_EXCH2	& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.)
./pkg/flt/flt_exch2.F	137	FLT_EXCH2	& .AND. ipart(ip,bi,bj).LT.ilo ) THEN
./pkg/flt/flt_exch2.F	139	FLT_EXCH2	tend(ip,bi,bj) = flt_stopped
./pkg/flt/flt_exch2.F	140	FLT_EXCH2	ELSEIF ( ipart(ip,bi,bj).LT.ilo ) THEN
./pkg/flt/flt_exch2.F	145	FLT_EXCH2	iNew = ipart(ip,bi,bj) + DFLOAT(sNx)
./pkg/flt/flt_exch2.F	146	FLT_EXCH2	fltbuf_send(ic+1,bi,bj,W2_WEST) = npart(ip,bi,bj)
./pkg/flt/flt_exch2.F	147	FLT_EXCH2	fltbuf_send(ic+2,bi,bj,W2_WEST) = tstart(ip,bi,bj)
./pkg/flt/flt_exch2.F	149	FLT_EXCH2	fltbuf_send(ic+3,bi,bj,W2_WEST) = ipart(ip,bi,bj)
./pkg/flt/flt_exch2.F	153	FLT_EXCH2	fltbuf_send(ic+4,bi,bj,W2_WEST) = jpart(ip,bi,bj)
./pkg/flt/flt_exch2.F	154	FLT_EXCH2	fltbuf_send(ic+5,bi,bj,W2_WEST) = kpart(ip,bi,bj)
./pkg/flt/flt_exch2.F	155	FLT_EXCH2	fltbuf_send(ic+6,bi,bj,W2_WEST) = kfloat(ip,bi,bj)
./pkg/flt/flt_exch2.F	156	FLT_EXCH2	fltbuf_send(ic+7,bi,bj,W2_WEST) = iup(ip,bi,bj)
./pkg/flt/flt_exch2.F	157	FLT_EXCH2	fltbuf_send(ic+8,bi,bj,W2_WEST) = itop(ip,bi,bj)
./pkg/flt/flt_exch2.F	158	FLT_EXCH2	fltbuf_send(ic+9,bi,bj,W2_WEST) = tend(ip,bi,bj)
./pkg/flt/flt_exch2.F	162	FLT_EXCH2	deleteList(jl) = ip
./pkg/flt/flt_exch2.F	163	FLT_EXCH2	npart(ip,bi,bj) = 0.
./pkg/flt/flt_exch2.F	194	FLT_EXCH2	ip = deleteList(jl)
./pkg/flt/flt_exch2.F	196	FLT_EXCH2	npart (ip,bi,bj) = npart (jp,bi,bj)
./pkg/flt/flt_exch2.F	197	FLT_EXCH2	tstart(ip,bi,bj) = tstart(jp,bi,bj)
./pkg/flt/flt_exch2.F	198	FLT_EXCH2	ipart (ip,bi,bj) = ipart (jp,bi,bj)
./pkg/flt/flt_exch2.F	199	FLT_EXCH2	jpart (ip,bi,bj) = jpart (jp,bi,bj)
./pkg/flt/flt_exch2.F	200	FLT_EXCH2	kpart (ip,bi,bj) = kpart (jp,bi,bj)
./pkg/flt/flt_exch2.F	201	FLT_EXCH2	kfloat(ip,bi,bj) = kfloat(jp,bi,bj)
./pkg/flt/flt_exch2.F	202	FLT_EXCH2	iup (ip,bi,bj) = iup (jp,bi,bj)
./pkg/flt/flt_exch2.F	203	FLT_EXCH2	itop (ip,bi,bj) = itop (jp,bi,bj)
./pkg/flt/flt_exch2.F	204	FLT_EXCH2	tend (ip,bi,bj) = tend (jp,bi,bj)
./pkg/flt/flt_exch2.F	223	FLT_EXCH2	DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_exch2.F	225	FLT_EXCH2	IF ( npart(ip,bi,bj).NE.0 ) THEN
./pkg/flt/flt_exch2.F	228	FLT_EXCH2	& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.)
./pkg/flt/flt_exch2.F	229	FLT_EXCH2	& .AND. jpart(ip,bi,bj).GE.jhi ) THEN
./pkg/flt/flt_exch2.F	231	FLT_EXCH2	tend(ip,bi,bj) = flt_stopped
./pkg/flt/flt_exch2.F	232	FLT_EXCH2	ELSEIF ( jpart(ip,bi,bj).GE.jhi ) THEN
./pkg/flt/flt_exch2.F	237	FLT_EXCH2	jNew = jpart(ip,bi,bj) - DFLOAT(sNy)
./pkg/flt/flt_exch2.F	238	FLT_EXCH2	fltbuf_send(ic+1,bi,bj,W2_NORTH) = npart(ip,bi,bj)
./pkg/flt/flt_exch2.F	239	FLT_EXCH2	fltbuf_send(ic+2,bi,bj,W2_NORTH) = tstart(ip,bi,bj)
./pkg/flt/flt_exch2.F	240	FLT_EXCH2	fltbuf_send(ic+3,bi,bj,W2_NORTH) = ipart(ip,bi,bj)
./pkg/flt/flt_exch2.F	242	FLT_EXCH2	fltbuf_send(ic+4,bi,bj,W2_NORTH) = jpart(ip,bi,bj)
./pkg/flt/flt_exch2.F	246	FLT_EXCH2	fltbuf_send(ic+5,bi,bj,W2_NORTH) = kpart(ip,bi,bj)
./pkg/flt/flt_exch2.F	247	FLT_EXCH2	fltbuf_send(ic+6,bi,bj,W2_NORTH) = kfloat(ip,bi,bj)
./pkg/flt/flt_exch2.F	248	FLT_EXCH2	fltbuf_send(ic+7,bi,bj,W2_NORTH) = iup(ip,bi,bj)
./pkg/flt/flt_exch2.F	249	FLT_EXCH2	fltbuf_send(ic+8,bi,bj,W2_NORTH) = itop(ip,bi,bj)
./pkg/flt/flt_exch2.F	250	FLT_EXCH2	fltbuf_send(ic+9,bi,bj,W2_NORTH) = tend(ip,bi,bj)
./pkg/flt/flt_exch2.F	254	FLT_EXCH2	deleteList(jl) = ip
./pkg/flt/flt_exch2.F	255	FLT_EXCH2	npart(ip,bi,bj) = 0.
./pkg/flt/flt_exch2.F	266	FLT_EXCH2	& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.)
./pkg/flt/flt_exch2.F	267	FLT_EXCH2	& .AND. jpart(ip,bi,bj).LT.jlo ) THEN
./pkg/flt/flt_exch2.F	269	FLT_EXCH2	tend(ip,bi,bj) = flt_stopped
./pkg/flt/flt_exch2.F	270	FLT_EXCH2	ELSEIF ( jpart(ip,bi,bj).LT.jlo ) THEN
./pkg/flt/flt_exch2.F	275	FLT_EXCH2	jNew = jpart(ip,bi,bj) + DFLOAT(sNy)
./pkg/flt/flt_exch2.F	276	FLT_EXCH2	fltbuf_send(ic+1,bi,bj,W2_SOUTH) = npart(ip,bi,bj)
./pkg/flt/flt_exch2.F	277	FLT_EXCH2	fltbuf_send(ic+2,bi,bj,W2_SOUTH) = tstart(ip,bi,bj)
./pkg/flt/flt_exch2.F	278	FLT_EXCH2	fltbuf_send(ic+3,bi,bj,W2_SOUTH) = ipart(ip,bi,bj)
./pkg/flt/flt_exch2.F	280	FLT_EXCH2	fltbuf_send(ic+4,bi,bj,W2_SOUTH) = jpart(ip,bi,bj)
./pkg/flt/flt_exch2.F	284	FLT_EXCH2	fltbuf_send(ic+5,bi,bj,W2_SOUTH) = kpart(ip,bi,bj)
./pkg/flt/flt_exch2.F	285	FLT_EXCH2	fltbuf_send(ic+6,bi,bj,W2_SOUTH) = kfloat(ip,bi,bj)
./pkg/flt/flt_exch2.F	286	FLT_EXCH2	fltbuf_send(ic+7,bi,bj,W2_SOUTH) = iup(ip,bi,bj)
./pkg/flt/flt_exch2.F	287	FLT_EXCH2	fltbuf_send(ic+8,bi,bj,W2_SOUTH) = itop(ip,bi,bj)
./pkg/flt/flt_exch2.F	288	FLT_EXCH2	fltbuf_send(ic+9,bi,bj,W2_SOUTH) = tend(ip,bi,bj)
./pkg/flt/flt_exch2.F	292	FLT_EXCH2	deleteList(jl) = ip
./pkg/flt/flt_exch2.F	293	FLT_EXCH2	npart(ip,bi,bj) = 0.
./pkg/flt/flt_exch2.F	331	FLT_EXCH2	ip = deleteList(jl)
./pkg/flt/flt_exch2.F	333	FLT_EXCH2	npart (ip,bi,bj) = npart (jp,bi,bj)
./pkg/flt/flt_exch2.F	334	FLT_EXCH2	tstart(ip,bi,bj) = tstart(jp,bi,bj)
./pkg/flt/flt_exch2.F	335	FLT_EXCH2	ipart (ip,bi,bj) = ipart (jp,bi,bj)
./pkg/flt/flt_exch2.F	336	FLT_EXCH2	jpart (ip,bi,bj) = jpart (jp,bi,bj)
./pkg/flt/flt_exch2.F	337	FLT_EXCH2	kpart (ip,bi,bj) = kpart (jp,bi,bj)
./pkg/flt/flt_exch2.F	338	FLT_EXCH2	kfloat(ip,bi,bj) = kfloat(jp,bi,bj)
./pkg/flt/flt_exch2.F	339	FLT_EXCH2	iup (ip,bi,bj) = iup (jp,bi,bj)
./pkg/flt/flt_exch2.F	340	FLT_EXCH2	itop (ip,bi,bj) = itop (jp,bi,bj)
./pkg/flt/flt_exch2.F	341	FLT_EXCH2	tend (ip,bi,bj) = tend (jp,bi,bj)
./pkg/flt/flt_exch2.F	389	FLT_EXCH2	DO ip=1,max_npart_exch
./pkg/flt/flt_exch2.F	391	FLT_EXCH2	ic=(ip-1)*imax
./pkg/flt/flt_exch2.F	418	FLT_EXCH2	DO ip=1,max_npart_exch
./pkg/flt/flt_exch2.F	420	FLT_EXCH2	ic=(ip-1)*imax
./pkg/flt/flt_exch2.F	43	FLT_EXCH2	INTEGER ip, jp, jl, npNew
./pkg/flt/flt_exch2.F	447	FLT_EXCH2	DO ip=1,max_npart_exch
./pkg/flt/flt_exch2.F	449	FLT_EXCH2	ic=(ip-1)*imax
./pkg/flt/flt_exch2.F	476	FLT_EXCH2	DO ip=1,max_npart_exch
./pkg/flt/flt_exch2.F	478	FLT_EXCH2	ic=(ip-1)*imax
./pkg/flt/flt_exchg.F	100	FLT_EXCHG	& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.)
./pkg/flt/flt_exchg.F	101	FLT_EXCHG	& .AND. ipart(ip,bi,bj).GE.ihi ) THEN
./pkg/flt/flt_exchg.F	103	FLT_EXCHG	tend(ip,bi,bj) = flt_stopped
./pkg/flt/flt_exchg.F	104	FLT_EXCHG	ELSEIF ( ipart(ip,bi,bj).GE.ihi ) THEN
./pkg/flt/flt_exchg.F	106	FLT_EXCHG	IF ( ipart(ip,bi,bj).GE.ihi ) THEN
./pkg/flt/flt_exchg.F	112	FLT_EXCHG	iNew = ipart(ip,bi,bj) - DFLOAT(sNx)
./pkg/flt/flt_exchg.F	113	FLT_EXCHG	fltbuf_sendE(ic+1,bi,bj) = npart(ip,bi,bj)
./pkg/flt/flt_exchg.F	114	FLT_EXCHG	fltbuf_sendE(ic+2,bi,bj) = tstart(ip,bi,bj)
./pkg/flt/flt_exchg.F	116	FLT_EXCHG	fltbuf_sendE(ic+4,bi,bj) = jpart(ip,bi,bj)
./pkg/flt/flt_exchg.F	117	FLT_EXCHG	fltbuf_sendE(ic+5,bi,bj) = kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F	118	FLT_EXCHG	fltbuf_sendE(ic+6,bi,bj) = kfloat(ip,bi,bj)
./pkg/flt/flt_exchg.F	119	FLT_EXCHG	fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj)
./pkg/flt/flt_exchg.F	120	FLT_EXCHG	fltbuf_sendE(ic+8,bi,bj) = itop(ip,bi,bj)
./pkg/flt/flt_exchg.F	121	FLT_EXCHG	fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj)
./pkg/flt/flt_exchg.F	125	FLT_EXCHG	deleteList(jl) = ip
./pkg/flt/flt_exchg.F	126	FLT_EXCHG	npart(ip,bi,bj) = 0.
./pkg/flt/flt_exchg.F	133	FLT_EXCHG	& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.)
./pkg/flt/flt_exchg.F	134	FLT_EXCHG	& .AND. ipart(ip,bi,bj).LT.ilo ) THEN
./pkg/flt/flt_exchg.F	136	FLT_EXCHG	tend(ip,bi,bj) = flt_stopped
./pkg/flt/flt_exchg.F	137	FLT_EXCHG	ELSEIF ( ipart(ip,bi,bj).LT.ilo ) THEN
./pkg/flt/flt_exchg.F	139	FLT_EXCHG	IF ( ipart(ip,bi,bj).LT.ilo ) THEN
./pkg/flt/flt_exchg.F	145	FLT_EXCHG	iNew = ipart(ip,bi,bj) + DFLOAT(sNx)
./pkg/flt/flt_exchg.F	146	FLT_EXCHG	fltbuf_sendW(ic+1,bi,bj) = npart(ip,bi,bj)
./pkg/flt/flt_exchg.F	147	FLT_EXCHG	fltbuf_sendW(ic+2,bi,bj) = tstart(ip,bi,bj)
./pkg/flt/flt_exchg.F	149	FLT_EXCHG	fltbuf_sendW(ic+4,bi,bj) = jpart(ip,bi,bj)
./pkg/flt/flt_exchg.F	150	FLT_EXCHG	fltbuf_sendW(ic+5,bi,bj) = kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F	151	FLT_EXCHG	fltbuf_sendW(ic+6,bi,bj) = kfloat(ip,bi,bj)
./pkg/flt/flt_exchg.F	152	FLT_EXCHG	fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj)
./pkg/flt/flt_exchg.F	153	FLT_EXCHG	fltbuf_sendW(ic+8,bi,bj) = itop(ip,bi,bj)
./pkg/flt/flt_exchg.F	154	FLT_EXCHG	fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj)
./pkg/flt/flt_exchg.F	158	FLT_EXCHG	deleteList(jl) = ip
./pkg/flt/flt_exchg.F	159	FLT_EXCHG	npart(ip,bi,bj) = 0.
./pkg/flt/flt_exchg.F	190	FLT_EXCHG	ip = deleteList(jl)
./pkg/flt/flt_exchg.F	192	FLT_EXCHG	npart (ip,bi,bj) = npart (jp,bi,bj)
./pkg/flt/flt_exchg.F	193	FLT_EXCHG	tstart(ip,bi,bj) = tstart(jp,bi,bj)
./pkg/flt/flt_exchg.F	194	FLT_EXCHG	ipart (ip,bi,bj) = ipart (jp,bi,bj)
./pkg/flt/flt_exchg.F	195	FLT_EXCHG	jpart (ip,bi,bj) = jpart (jp,bi,bj)
./pkg/flt/flt_exchg.F	196	FLT_EXCHG	kpart (ip,bi,bj) = kpart (jp,bi,bj)
./pkg/flt/flt_exchg.F	197	FLT_EXCHG	kfloat(ip,bi,bj) = kfloat(jp,bi,bj)
./pkg/flt/flt_exchg.F	198	FLT_EXCHG	iup (ip,bi,bj) = iup (jp,bi,bj)
./pkg/flt/flt_exchg.F	199	FLT_EXCHG	itop (ip,bi,bj) = itop (jp,bi,bj)
./pkg/flt/flt_exchg.F	200	FLT_EXCHG	tend (ip,bi,bj) = tend (jp,bi,bj)
./pkg/flt/flt_exchg.F	234	FLT_EXCHG	DO ip=1,max_npart_exch
./pkg/flt/flt_exchg.F	236	FLT_EXCHG	ic=(ip-1)*imax
./pkg/flt/flt_exchg.F	263	FLT_EXCHG	DO ip=1,max_npart_exch
./pkg/flt/flt_exchg.F	265	FLT_EXCHG	ic=(ip-1)*imax
./pkg/flt/flt_exchg.F	329	FLT_EXCHG	DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_exchg.F	333	FLT_EXCHG	& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.)
./pkg/flt/flt_exchg.F	334	FLT_EXCHG	& .AND. jpart(ip,bi,bj).GE.jhi ) THEN
./pkg/flt/flt_exchg.F	336	FLT_EXCHG	tend(ip,bi,bj) = flt_stopped
./pkg/flt/flt_exchg.F	337	FLT_EXCHG	ELSEIF ( jpart(ip,bi,bj).GE.jhi ) THEN
./pkg/flt/flt_exchg.F	339	FLT_EXCHG	IF ( jpart(ip,bi,bj).GE.jhi ) THEN
./pkg/flt/flt_exchg.F	345	FLT_EXCHG	jNew = jpart(ip,bi,bj) - DFLOAT(sNy)
./pkg/flt/flt_exchg.F	346	FLT_EXCHG	fltbuf_sendE(ic+1,bi,bj) = npart(ip,bi,bj)
./pkg/flt/flt_exchg.F	347	FLT_EXCHG	fltbuf_sendE(ic+2,bi,bj) = tstart(ip,bi,bj)
./pkg/flt/flt_exchg.F	348	FLT_EXCHG	fltbuf_sendE(ic+3,bi,bj) = ipart(ip,bi,bj)
./pkg/flt/flt_exchg.F	350	FLT_EXCHG	fltbuf_sendE(ic+5,bi,bj) = kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F	351	FLT_EXCHG	fltbuf_sendE(ic+6,bi,bj) = kfloat(ip,bi,bj)
./pkg/flt/flt_exchg.F	352	FLT_EXCHG	fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj)
./pkg/flt/flt_exchg.F	353	FLT_EXCHG	fltbuf_sendE(ic+8,bi,bj) = itop(ip,bi,bj)
./pkg/flt/flt_exchg.F	354	FLT_EXCHG	fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj)
./pkg/flt/flt_exchg.F	358	FLT_EXCHG	deleteList(jl) = ip
./pkg/flt/flt_exchg.F	359	FLT_EXCHG	npart(ip,bi,bj) = 0.
./pkg/flt/flt_exchg.F	371	FLT_EXCHG	& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.)
./pkg/flt/flt_exchg.F	372	FLT_EXCHG	& .AND. jpart(ip,bi,bj).LT.jlo ) THEN
./pkg/flt/flt_exchg.F	374	FLT_EXCHG	tend(ip,bi,bj) = flt_stopped
./pkg/flt/flt_exchg.F	375	FLT_EXCHG	ELSEIF ( jpart(ip,bi,bj).LT.jlo ) THEN
./pkg/flt/flt_exchg.F	377	FLT_EXCHG	IF ( jpart(ip,bi,bj).LT.jlo ) THEN
./pkg/flt/flt_exchg.F	383	FLT_EXCHG	jNew = jpart(ip,bi,bj) + DFLOAT(sNy)
./pkg/flt/flt_exchg.F	384	FLT_EXCHG	fltbuf_sendW(ic+1,bi,bj) = npart(ip,bi,bj)
./pkg/flt/flt_exchg.F	385	FLT_EXCHG	fltbuf_sendW(ic+2,bi,bj) = tstart(ip,bi,bj)
./pkg/flt/flt_exchg.F	386	FLT_EXCHG	fltbuf_sendW(ic+3,bi,bj) = ipart(ip,bi,bj)
./pkg/flt/flt_exchg.F	388	FLT_EXCHG	fltbuf_sendW(ic+5,bi,bj) = kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F	389	FLT_EXCHG	fltbuf_sendW(ic+6,bi,bj) = kfloat(ip,bi,bj)
./pkg/flt/flt_exchg.F	390	FLT_EXCHG	fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj)
./pkg/flt/flt_exchg.F	391	FLT_EXCHG	fltbuf_sendW(ic+8,bi,bj) = itop(ip,bi,bj)
./pkg/flt/flt_exchg.F	392	FLT_EXCHG	fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj)
./pkg/flt/flt_exchg.F	396	FLT_EXCHG	deleteList(jl) = ip
./pkg/flt/flt_exchg.F	397	FLT_EXCHG	npart(ip,bi,bj) = 0.
./pkg/flt/flt_exchg.F	433	FLT_EXCHG	ip = deleteList(jl)
./pkg/flt/flt_exchg.F	435	FLT_EXCHG	npart (ip,bi,bj) = npart (jp,bi,bj)
./pkg/flt/flt_exchg.F	436	FLT_EXCHG	tstart(ip,bi,bj) = tstart(jp,bi,bj)
./pkg/flt/flt_exchg.F	437	FLT_EXCHG	ipart (ip,bi,bj) = ipart (jp,bi,bj)
./pkg/flt/flt_exchg.F	438	FLT_EXCHG	jpart (ip,bi,bj) = jpart (jp,bi,bj)
./pkg/flt/flt_exchg.F	439	FLT_EXCHG	kpart (ip,bi,bj) = kpart (jp,bi,bj)
./pkg/flt/flt_exchg.F	440	FLT_EXCHG	kfloat(ip,bi,bj) = kfloat(jp,bi,bj)
./pkg/flt/flt_exchg.F	441	FLT_EXCHG	iup (ip,bi,bj) = iup (jp,bi,bj)
./pkg/flt/flt_exchg.F	442	FLT_EXCHG	itop (ip,bi,bj) = itop (jp,bi,bj)
./pkg/flt/flt_exchg.F	443	FLT_EXCHG	tend (ip,bi,bj) = tend (jp,bi,bj)
./pkg/flt/flt_exchg.F	477	FLT_EXCHG	DO ip=1,max_npart_exch
./pkg/flt/flt_exchg.F	479	FLT_EXCHG	ic=(ip-1)*imax
./pkg/flt/flt_exchg.F	47	FLT_EXCHG	INTEGER ip, jp, jl, m, npNew
./pkg/flt/flt_exchg.F	506	FLT_EXCHG	DO ip=1,max_npart_exch
./pkg/flt/flt_exchg.F	508	FLT_EXCHG	ic=(ip-1)*imax
./pkg/flt/flt_exchg.F	96	FLT_EXCHG	DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_init_varia.F	141	FLT_INIT_VARIA	DO ip=1,npart_read
./pkg/flt/flt_init_varia.F	145	FLT_INIT_VARIA	& bi, bj, ip+1, myThid )
./pkg/flt/flt_init_varia.F	201	FLT_INIT_VARIA	ip=i+(j-1)*6
./pkg/flt/flt_init_varia.F	202	FLT_INIT_VARIA	npart(ip,bi,bj) = (iG-1)66+ip
./pkg/flt/flt_init_varia.F	203	FLT_INIT_VARIA	tstart(ip,bi,bj) = -1. _d 0
./pkg/flt/flt_init_varia.F	204	FLT_INIT_VARIA	ipart(ip,bi,bj) = 1+5*(i-1)
./pkg/flt/flt_init_varia.F	205	FLT_INIT_VARIA	jpart(ip,bi,bj) = 1+5*(j-1)
./pkg/flt/flt_init_varia.F	206	FLT_INIT_VARIA	kpart(ip,bi,bj) = 1. _d 0
./pkg/flt/flt_init_varia.F	207	FLT_INIT_VARIA	kfloat(ip,bi,bj) = 0. _d 0
./pkg/flt/flt_init_varia.F	208	FLT_INIT_VARIA	iup( ip,bi,bj) = 0. _d 0
./pkg/flt/flt_init_varia.F	209	FLT_INIT_VARIA	itop( ip,bi,bj) = 0. _d 0
./pkg/flt/flt_init_varia.F	210	FLT_INIT_VARIA	tend( ip,bi,bj) = -1. _d 0
./pkg/flt/flt_init_varia.F	227	FLT_INIT_VARIA	DO ip=1,npart_read
./pkg/flt/flt_init_varia.F	231	FLT_INIT_VARIA	& bi, bj, ip+1, myThid )
./pkg/flt/flt_init_varia.F	244	FLT_INIT_VARIA	npart(ip,bi,bj) = tmp(1)
./pkg/flt/flt_init_varia.F	245	FLT_INIT_VARIA	tstart(ip,bi,bj) = tmp(2)
./pkg/flt/flt_init_varia.F	246	FLT_INIT_VARIA	ipart(ip,bi,bj) = ix
./pkg/flt/flt_init_varia.F	247	FLT_INIT_VARIA	jpart(ip,bi,bj) = jy
./pkg/flt/flt_init_varia.F	248	FLT_INIT_VARIA	kpart(ip,bi,bj) = kz
./pkg/flt/flt_init_varia.F	249	FLT_INIT_VARIA	kfloat(ip,bi,bj) = tmp(6)
./pkg/flt/flt_init_varia.F	250	FLT_INIT_VARIA	iup( ip,bi,bj) = tmp(7)
./pkg/flt/flt_init_varia.F	251	FLT_INIT_VARIA	itop( ip,bi,bj) = tmp(8)
./pkg/flt/flt_init_varia.F	252	FLT_INIT_VARIA	tend( ip,bi,bj) = tmp(9)
./pkg/flt/flt_init_varia.F	48	FLT_INIT_VARIA	INTEGER ip, iL
./pkg/flt/flt_runga2.F	105	FLT_RUNGA2	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga2.F	112	FLT_RUNGA2	kz=kpart(ip,bi,bj)
./pkg/flt/flt_runga2.F	126	FLT_RUNGA2	IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN
./pkg/flt/flt_runga2.F	131	FLT_RUNGA2	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga2.F	148	FLT_RUNGA2	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga2.F	161	FLT_RUNGA2	IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN
./pkg/flt/flt_runga2.F	167	FLT_RUNGA2	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga2.F	178	FLT_RUNGA2	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga2.F	190	FLT_RUNGA2	ipart(ip,bi,bj) = ipart(ip,bi,bj)
./pkg/flt/flt_runga2.F	192	FLT_RUNGA2	jpart(ip,bi,bj) = jpart(ip,bi,bj)
./pkg/flt/flt_runga2.F	195	FLT_RUNGA2	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga2.F	196	FLT_RUNGA2	kpart(ip,bi,bj) = kpart(ip,bi,bj)
./pkg/flt/flt_runga2.F	202	FLT_RUNGA2	ic = MAX( 1-OLx, MIN( NINT(ipart(ip,bi,bj)), sNx+OLx ) )
./pkg/flt/flt_runga2.F	203	FLT_RUNGA2	jc = MAX( 1-OLy, MIN( NINT(jpart(ip,bi,bj)), sNy+OLy ) )
./pkg/flt/flt_runga2.F	207	FLT_RUNGA2	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga2.F	209	FLT_RUNGA2	IF (kpart(ip,bi,bj).LT.kzlo) kpart(ip,bi,bj)=kzlo
./pkg/flt/flt_runga2.F	210	FLT_RUNGA2	& +kzlo-kpart(ip,bi,bj)
./pkg/flt/flt_runga2.F	212	FLT_RUNGA2	IF (kpart(ip,bi,bj).GT.kzhi) kpart(ip,bi,bj)=kzhi
./pkg/flt/flt_runga2.F	226	FLT_RUNGA2	tend(ip,bi,bj) = myTime - flt_deltaT
./pkg/flt/flt_runga2.F	53	FLT_RUNGA2	INTEGER ip
./pkg/flt/flt_runga2.F	80	FLT_RUNGA2	DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_runga2.F	83	FLT_RUNGA2	IF ( tend(ip,bi,bj).NE.-1. .AND. myTime.GT.tend(ip,bi,bj)
./pkg/flt/flt_runga2.F	85	FLT_RUNGA2	kpart(ip,bi,bj) = 0.
./pkg/flt/flt_runga2.F	88	FLT_RUNGA2	IF ( (tstart(ip,bi,bj).EQ.-1..OR.myTime.GE.tstart(ip,bi,bj))
./pkg/flt/flt_runga2.F	89	FLT_RUNGA2	& .AND.( tend(ip,bi,bj).EQ.-1..OR.myTime.LE. tend(ip,bi,bj))
./pkg/flt/flt_runga2.F	90	FLT_RUNGA2	& .AND.( iup(ip,bi,bj).NE.-3.)
./pkg/flt/flt_runga2.F	93	FLT_RUNGA2	ix = ipart(ip,bi,bj)
./pkg/flt/flt_runga2.F	94	FLT_RUNGA2	jy = jpart(ip,bi,bj)
./pkg/flt/flt_runga2.F	97	FLT_RUNGA2	kc=NINT(kpart(ip,bi,bj))
./pkg/flt/flt_runga4.F	107	FLT_RUNGA4	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F	114	FLT_RUNGA4	kz=kpart(ip,bi,bj)
./pkg/flt/flt_runga4.F	128	FLT_RUNGA4	IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN
./pkg/flt/flt_runga4.F	133	FLT_RUNGA4	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F	150	FLT_RUNGA4	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F	168	FLT_RUNGA4	IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN
./pkg/flt/flt_runga4.F	174	FLT_RUNGA4	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F	185	FLT_RUNGA4	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F	200	FLT_RUNGA4	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F	218	FLT_RUNGA4	IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN
./pkg/flt/flt_runga4.F	224	FLT_RUNGA4	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F	235	FLT_RUNGA4	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F	250	FLT_RUNGA4	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F	268	FLT_RUNGA4	IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN
./pkg/flt/flt_runga4.F	274	FLT_RUNGA4	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F	285	FLT_RUNGA4	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F	297	FLT_RUNGA4	ipart(ip,bi,bj) = ipart(ip,bi,bj) + flt_deltaT/6
./pkg/flt/flt_runga4.F	299	FLT_RUNGA4	jpart(ip,bi,bj) = jpart(ip,bi,bj) + flt_deltaT/6
./pkg/flt/flt_runga4.F	302	FLT_RUNGA4	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F	303	FLT_RUNGA4	kpart(ip,bi,bj) = kpart(ip,bi,bj) + flt_deltaT/6
./pkg/flt/flt_runga4.F	309	FLT_RUNGA4	ic = MAX( 1-OLx, MIN( NINT(ipart(ip,bi,bj)), sNx+OLx ) )
./pkg/flt/flt_runga4.F	310	FLT_RUNGA4	jc = MAX( 1-OLy, MIN( NINT(jpart(ip,bi,bj)), sNy+OLy ) )
./pkg/flt/flt_runga4.F	314	FLT_RUNGA4	IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F	316	FLT_RUNGA4	IF (kpart(ip,bi,bj).LT.kzlo) kpart(ip,bi,bj)=kzlo
./pkg/flt/flt_runga4.F	317	FLT_RUNGA4	& +kzlo-kpart(ip,bi,bj)
./pkg/flt/flt_runga4.F	319	FLT_RUNGA4	IF (kpart(ip,bi,bj).GT.kzhi) kpart(ip,bi,bj)=kzhi
./pkg/flt/flt_runga4.F	333	FLT_RUNGA4	tend(ip,bi,bj) = myTime - flt_deltaT
./pkg/flt/flt_runga4.F	53	FLT_RUNGA4	INTEGER ip
./pkg/flt/flt_runga4.F	80	FLT_RUNGA4	DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_runga4.F	83	FLT_RUNGA4	IF ( tend(ip,bi,bj).NE.-1. .AND. myTime.GT.tend(ip,bi,bj)
./pkg/flt/flt_runga4.F	85	FLT_RUNGA4	kpart(ip,bi,bj) = 0.
./pkg/flt/flt_runga4.F	88	FLT_RUNGA4	IF ( (tstart(ip,bi,bj).EQ.-1..OR.myTime.GE.tstart(ip,bi,bj))
./pkg/flt/flt_runga4.F	89	FLT_RUNGA4	& .AND.( tend(ip,bi,bj).EQ.-1..OR.myTime.LE. tend(ip,bi,bj))
./pkg/flt/flt_runga4.F	90	FLT_RUNGA4	& .AND.( iup(ip,bi,bj).NE.-3.)
./pkg/flt/flt_runga4.F	93	FLT_RUNGA4	ix = ipart(ip,bi,bj)
./pkg/flt/flt_runga4.F	94	FLT_RUNGA4	jy = jpart(ip,bi,bj)
./pkg/flt/flt_runga4.F	97	FLT_RUNGA4	kc=NINT(kpart(ip,bi,bj))
./pkg/flt/flt_traj.F	102	FLT_TRAJ	DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_traj.F	104	FLT_TRAJ	ix = ipart(ip,bi,bj)
./pkg/flt/flt_traj.F	105	FLT_TRAJ	jy = jpart(ip,bi,bj)
./pkg/flt/flt_traj.F	108	FLT_TRAJ	zz = FLT_MAP_K2R( kpart(ip,bi,bj),bi,bj,myThid )
./pkg/flt/flt_traj.F	109	FLT_TRAJ	kp = NINT(kpart(ip,bi,bj))
./pkg/flt/flt_traj.F	110	FLT_TRAJ	tmp(1) = npart(ip,bi,bj)
./pkg/flt/flt_traj.F	117	FLT_TRAJ	tmp(8) = kpart(ip,bi,bj)
./pkg/flt/flt_traj.F	120	FLT_TRAJ	& ( myTime.GE.tstart(ip,bi,bj)) .AND.
./pkg/flt/flt_traj.F	121	FLT_TRAJ	& ( tend(ip,bi,bj).EQ.-1. .OR. myTime.LE.tend(ip,bi,bj))
./pkg/flt/flt_traj.F	129	FLT_TRAJ	& ' FLT_TRAJ: ', (flt_io_buff(ii,ip,bi,bj),ii=1,5)
./pkg/flt/flt_traj.F	156	FLT_TRAJ	flt_io_buff(ii,ip,bi,bj) = tmp(ii)
./pkg/flt/flt_traj.F	231	FLT_TRAJ	DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_traj.F	233	FLT_TRAJ	irecord = npart_read+ip+1
./pkg/flt/flt_traj.F	234	FLT_TRAJ	IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord
./pkg/flt/flt_traj.F	236	FLT_TRAJ	I flt_io_buff(1,ip,bi,bj), dummyRS,
./pkg/flt/flt_traj.F	48	FLT_TRAJ	INTEGER ip, kp, ii
./pkg/flt/flt_up.F	100	FLT_UP	IF ( MOD(myTime,iup(ip,bi,bj)).EQ.0.)
./pkg/flt/flt_up.F	101	FLT_UP	& kpart(ip,bi,bj) = flt_surf
./pkg/flt/flt_up.F	106	FLT_UP	IF ( tend(ip,bi,bj).NE.-1..AND.myTime.GT.tend(ip,bi,bj)
./pkg/flt/flt_up.F	108	FLT_UP	kpart(ip,bi,bj) = 0.
./pkg/flt/flt_up.F	113	FLT_UP	ix = ipart(ip,bi,bj)
./pkg/flt/flt_up.F	114	FLT_UP	jy = jpart(ip,bi,bj)
./pkg/flt/flt_up.F	117	FLT_UP	zz = FLT_MAP_K2R( kpart(ip,bi,bj),bi,bj,myThid )
./pkg/flt/flt_up.F	119	FLT_UP	tmp(1) = npart(ip,bi,bj)
./pkg/flt/flt_up.F	126	FLT_UP	tmp(8) = kpart(ip,bi,bj)
./pkg/flt/flt_up.F	130	FLT_UP	& ( myTime.GE.tstart(ip,bi,bj) ) .AND.
./pkg/flt/flt_up.F	131	FLT_UP	& ( tend(ip,bi,bj).EQ.-1..OR.myTime.LE.tend(ip,bi,bj) )
./pkg/flt/flt_up.F	152	FLT_UP	flt_io_buff(ii,ip,bi,bj) = tmp(ii)
./pkg/flt/flt_up.F	229	FLT_UP	DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_up.F	231	FLT_UP	irecord = npart_read+ip+1
./pkg/flt/flt_up.F	232	FLT_UP	IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord
./pkg/flt/flt_up.F	234	FLT_UP	& flt_io_buff(1,ip,bi,bj), dummyRS,
./pkg/flt/flt_up.F	46	FLT_UP	INTEGER ip, k, ii
./pkg/flt/flt_up.F	90	FLT_UP	DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_up.F	93	FLT_UP	IF ( myTime.GE.tstart(ip,bi,bj) .AND.
./pkg/flt/flt_up.F	94	FLT_UP	& (tend(ip,bi,bj).EQ.-1..OR.myTime.LE.tend(ip,bi,bj))
./pkg/flt/flt_up.F	96	FLT_UP	& kpart(ip,bi,bj).EQ.kfloat(ip,bi,bj) .AND.
./pkg/flt/flt_up.F	97	FLT_UP	& iup(ip,bi,bj).GT.0.
./pkg/flt/flt_write_pickup.F	46	FLT_WRITE_PICKUP	INTEGER ip
./pkg/flt/flt_write_pickup.F	79	FLT_WRITE_PICKUP	DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_write_pickup.F	81	FLT_WRITE_PICKUP	tmp(1) = npart(ip,bi,bj)
./pkg/flt/flt_write_pickup.F	82	FLT_WRITE_PICKUP	tmp(2) = tstart(ip,bi,bj)
./pkg/flt/flt_write_pickup.F	83	FLT_WRITE_PICKUP	tmp(3) = ipart(ip,bi,bj)
./pkg/flt/flt_write_pickup.F	84	FLT_WRITE_PICKUP	tmp(4) = jpart(ip,bi,bj)
./pkg/flt/flt_write_pickup.F	85	FLT_WRITE_PICKUP	tmp(5) = kpart(ip,bi,bj)
./pkg/flt/flt_write_pickup.F	86	FLT_WRITE_PICKUP	tmp(6) = kfloat(ip,bi,bj)
./pkg/flt/flt_write_pickup.F	87	FLT_WRITE_PICKUP	tmp(7) = iup(ip,bi,bj)
./pkg/flt/flt_write_pickup.F	88	FLT_WRITE_PICKUP	tmp(8) = itop(ip,bi,bj)
./pkg/flt/flt_write_pickup.F	89	FLT_WRITE_PICKUP	tmp(9) = tend(ip,bi,bj)
./pkg/flt/flt_write_pickup.F	92	FLT_WRITE_PICKUP	irecord = ip+1
./pkg/flt/flt_write_pickup.F	93	FLT_WRITE_PICKUP	IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord
./pkg/mdsio/mdsio_check4file.F	100	MDS_CHECK4FILE	& filePfx(1:ip), '.', iG, '.', jG, fileSfx(1:is)
./pkg/mdsio/mdsio_check4file.F	108	MDS_CHECK4FILE	& filePfx(1:ip), '.001.001', fileSfx(1:is)
./pkg/mdsio/mdsio_check4file.F	111	MDS_CHECK4FILE	& filePfx(1:ip), '.001.001', fileSfx(1:is)
./pkg/mdsio/mdsio_check4file.F	117	MDS_CHECK4FILE	ip = MAX(ILNBLNK(filePfx),1)
./pkg/mdsio/mdsio_check4file.F	128	MDS_CHECK4FILE	& filePfx(1:ip), ' , ', fileSfx(1:is), ' , ', fileName(1:i)
./pkg/mdsio/mdsio_check4file.F	55	MDS_CHECK4FILE	INTEGER lp, ip, is, iL, i, ioUnit
./pkg/mdsio/mdsio_check4file.F	64	MDS_CHECK4FILE	ip = ILNBLNK(filePfx)
./pkg/mdsio/mdsio_check4file.F	66	MDS_CHECK4FILE	IF ( ip.EQ.0 ) is = 0
./pkg/mdsio/mdsio_check4file.F	68	MDS_CHECK4FILE	IF ( i .LT. lp+ip+is+8 ) THEN
./pkg/mdsio/mdsio_check4file.F	71	MDS_CHECK4FILE	& ' too small <', lp+ip+is+8
./pkg/mdsio/mdsio_check4file.F	81	MDS_CHECK4FILE	IF ( .NOT.fileExist .AND. ip.GE.1 ) THEN
./pkg/mdsio/mdsio_check4file.F	83	MDS_CHECK4FILE	WRITE(fileName,'(A)') filePfx(1:ip)
./pkg/mdsio/mdsio_check4file.F	88	MDS_CHECK4FILE	WRITE(fileName,'(2A)') filePfx(1:ip), fileSfx(1:is)
./pkg/mdsio/mdsio_check4file.F	97	MDS_CHECK4FILE	& filePfx(1:ip), '.', iG, '.', jG, fileSfx(1:is)
./pkg/mdsio/mdsio_gl.F	1012	MDSREADFIELD_2D_GL	do ip=1,nPx
./pkg/mdsio/mdsio_gl.F	1018	MDSREADFIELD_2D_GL	iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl.F	1056	MDSREADFIELD_2D_GL	iG=bi+(ip-1)*nsx
./pkg/mdsio/mdsio_gl.F	1106	MDSREADFIELD_2D_GL	arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj)
./pkg/mdsio/mdsio_gl.F	1173	MDSREADFIELD_2D_GL	DO ip=1,nPx
./pkg/mdsio/mdsio_gl.F	1179	MDSREADFIELD_2D_GL	II=((ip-1)nSx+(bi-1))sNx+I
./pkg/mdsio/mdsio_gl.F	1180	MDSREADFIELD_2D_GL	arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ)
./pkg/mdsio/mdsio_gl.F	1280	MDSWRITEFIELD_2D_GL	integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl.F	1378	MDSWRITEFIELD_2D_GL	do ip=1,nPx
./pkg/mdsio/mdsio_gl.F	1384	MDSWRITEFIELD_2D_GL	II=((ip-1)nSx+(bi-1))sNx+I
./pkg/mdsio/mdsio_gl.F	1385	MDSWRITEFIELD_2D_GL	global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F	1459	MDSWRITEFIELD_2D_GL	do ip=1,nPx
./pkg/mdsio/mdsio_gl.F	1464	MDSWRITEFIELD_2D_GL	iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl.F	1483	MDSWRITEFIELD_2D_GL	arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F	1544	MDSWRITEFIELD_2D_GL	iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl.F	1549	MDSWRITEFIELD_2D_GL	dimList(2,1)=((ip-1)nSx+(bi-1))sNx+1
./pkg/mdsio/mdsio_gl.F	1550	MDSWRITEFIELD_2D_GL	dimList(3,1)=((ip-1)nSx+bi)sNx
./pkg/mdsio/mdsio_gl.F	225	MDSREADFIELD_3D_GL	do ip=1,nPx
./pkg/mdsio/mdsio_gl.F	231	MDSREADFIELD_3D_GL	iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl.F	269	MDSREADFIELD_3D_GL	iG=bi+(ip-1)*nsx
./pkg/mdsio/mdsio_gl.F	319	MDSREADFIELD_3D_GL	arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj)
./pkg/mdsio/mdsio_gl.F	386	MDSREADFIELD_3D_GL	DO ip=1,nPx
./pkg/mdsio/mdsio_gl.F	392	MDSREADFIELD_3D_GL	II=((ip-1)nSx+(bi-1))sNx+I
./pkg/mdsio/mdsio_gl.F	393	MDSREADFIELD_3D_GL	arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ)
./pkg/mdsio/mdsio_gl.F	492	MDSWRITEFIELD_3D_GL	integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl.F	589	MDSWRITEFIELD_3D_GL	do ip=1,nPx
./pkg/mdsio/mdsio_gl.F	595	MDSWRITEFIELD_3D_GL	II=((ip-1)nSx+(bi-1))sNx+I
./pkg/mdsio/mdsio_gl.F	596	MDSWRITEFIELD_3D_GL	global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F	670	MDSWRITEFIELD_3D_GL	do ip=1,nPx
./pkg/mdsio/mdsio_gl.F	675	MDSWRITEFIELD_3D_GL	iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl.F	694	MDSWRITEFIELD_3D_GL	arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F	73	MDSREADFIELD_3D_GL	integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl.F	755	MDSWRITEFIELD_3D_GL	iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl.F	760	MDSWRITEFIELD_3D_GL	dimList(2,1)=((ip-1)nSx+(bi-1))sNx+1
./pkg/mdsio/mdsio_gl.F	761	MDSWRITEFIELD_3D_GL	dimList(3,1)=((ip-1)nSx+bi)sNx
./pkg/mdsio/mdsio_gl.F	860	MDSREADFIELD_2D_GL	integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F	139	MDSREADFIELD_XZ_GL	do ip=1,nPx
./pkg/mdsio/mdsio_gl_slice.F	145	MDSREADFIELD_XZ_GL	iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl_slice.F	222	MDSREADFIELD_XZ_GL	arr_gl(ii,bi,ip,bj,jp,k)=arr(ii,k,bi,bj)
./pkg/mdsio/mdsio_gl_slice.F	313	MDSREADFIELD_YZ_GL	integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F	379	MDSREADFIELD_YZ_GL	do ip=1,nPx
./pkg/mdsio/mdsio_gl_slice.F	385	MDSREADFIELD_YZ_GL	iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl_slice.F	462	MDSREADFIELD_YZ_GL	arr_gl(bi,ip,jj,bj,jp,k)=arr(jj,k,bi,bj)
./pkg/mdsio/mdsio_gl_slice.F	567	MDSWRITEFIELD_XZ_GL	integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F	616	MDSWRITEFIELD_XZ_GL	do ip=1,nPx
./pkg/mdsio/mdsio_gl_slice.F	621	MDSWRITEFIELD_XZ_GL	iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl_slice.F	639	MDSWRITEFIELD_XZ_GL	arr(ii,k,bi,bj)=arr_gl(ii,bi,ip,bj,jp,k)
./pkg/mdsio/mdsio_gl_slice.F	698	MDSWRITEFIELD_XZ_GL	iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl_slice.F	703	MDSWRITEFIELD_XZ_GL	dimList(2,1)=((ip-1)nSx+(bi-1))sNx+1
./pkg/mdsio/mdsio_gl_slice.F	704	MDSWRITEFIELD_XZ_GL	dimList(3,1)=((ip-1)nSx+bi)sNx
./pkg/mdsio/mdsio_gl_slice.F	72	MDSREADFIELD_XZ_GL	integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F	808	MDSWRITEFIELD_YZ_GL	integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F	857	MDSWRITEFIELD_YZ_GL	do ip=1,nPx
./pkg/mdsio/mdsio_gl_slice.F	862	MDSWRITEFIELD_YZ_GL	iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl_slice.F	880	MDSWRITEFIELD_YZ_GL	arr(jj,k,bi,bj)=arr_gl(bi,ip,jj,bj,jp,k)
./pkg/mdsio/mdsio_gl_slice.F	939	MDSWRITEFIELD_YZ_GL	iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl_slice.F	944	MDSWRITEFIELD_YZ_GL	dimList(2,1)=(ip-1)*nSx+bi
./pkg/mdsio/mdsio_gl_slice.F	945	MDSWRITEFIELD_YZ_GL	dimList(3,1)=ip*nSx+bi
./pkg/ptracers/ptracers_ad_dump.F	60	PTRACERS_AD_DUMP	INTEGER ip
./pkg/ptracers/ptracers_ad_dump.F	84	PTRACERS_AD_DUMP	DO ip = 1, PTRACERS_numInUse
./pkg/ptracers/ptracers_ad_dump.F	86	PTRACERS_AD_DUMP	& 'ADJptracer', PTRACERS_ioLabel(ip), '.'
./pkg/ptracers/ptracers_ad_dump.F	90	PTRACERS_AD_DUMP	& adptracer(1-OLx,1-OLy,1,1,1,ip), 1, myThid )
./pkg/ptracers/ptracers_monitor.F	111	PTRACERS_MONITOR	DO ip = 1, PTRACERS_numInUse
./pkg/ptracers/ptracers_monitor.F	112	PTRACERS_MONITOR	WRITE(suff,'(A7,A2)') 'ptracer',PTRACERS_ioLabel(ip)
./pkg/ptracers/ptracers_monitor.F	115	PTRACERS_MONITOR	& Nr, pTracer(1-OLx,1-OLy,1,1,1,ip), suff,
./pkg/ptracers/ptracers_monitor.F	51	PTRACERS_MONITOR	INTEGER ip
./pkg/ptracers/ptracers_monitor_ad.F	109	ADPTRACERS_MONITOR	DO ip = 1, PTRACERS_numInUse
./pkg/ptracers/ptracers_monitor_ad.F	110	ADPTRACERS_MONITOR	WRITE(suff,'(A9,A2)') 'adptracer',PTRACERS_ioLabel(ip)
./pkg/ptracers/ptracers_monitor_ad.F	112	ADPTRACERS_MONITOR	& Nr, adptracer(1-OLx,1-OLy,1,1,1,ip), suff,
./pkg/ptracers/ptracers_monitor_ad.F	59	ADPTRACERS_MONITOR	INTEGER ip
./verification/flt_example/extra/cvprofiles.F	242	NO PROCEDURE	do ip=1,npart
./verification/flt_example/extra/cvprofiles.F	243	NO PROCEDURE	pnum(ip) = FLOAT(ip)
./verification/flt_example/extra/cvprofiles.F	271	NO PROCEDURE	ip = INT(tmp(1))
./verification/flt_example/extra/cvprofiles.F	272	NO PROCEDURE	if (ip .gt. npart) then
./verification/flt_example/extra/cvprofiles.F	273	NO PROCEDURE	print*,'ip out of order: ',ip,npart
./verification/flt_example/extra/cvprofiles.F	280	NO PROCEDURE	xpart(ip,np) = SNGL(tmp(3))
./verification/flt_example/extra/cvprofiles.F	281	NO PROCEDURE	ypart(ip,np) = SNGL(tmp(4))
./verification/flt_example/extra/cvprofiles.F	283	NO PROCEDURE	xpart(ip,np) = SNGL(tmp(3))/1000.
./verification/flt_example/extra/cvprofiles.F	284	NO PROCEDURE	ypart(ip,np) = SNGL(tmp(4))/1000.
./verification/flt_example/extra/cvprofiles.F	286	NO PROCEDURE	kpart(ip,np) = SNGL(tmp(5))
./verification/flt_example/extra/cvprofiles.F	287	NO PROCEDURE	zeta(ip,np) = SNGL(tmp(6))
./verification/flt_example/extra/cvprofiles.F	289	NO PROCEDURE	if (.not. preflag) uvel(ip,k,np) = SNGL(tmp(6+k))
./verification/flt_example/extra/cvprofiles.F	290	NO PROCEDURE	if (.not. preflag) vvel(ip,k,np) = SNGL(tmp(6+1*Nr+k))
./verification/flt_example/extra/cvprofiles.F	291	NO PROCEDURE	temp(ip,k,np) = SNGL(tmp(6+2*Nr+k))
./verification/flt_example/extra/cvprofiles.F	292	NO PROCEDURE	if (.not. preflag) salt(ip,k,np) = SNGL(tmp(6+3*Nr+k))
./verification/flt_example/extra/cvprofiles.F	293	NO PROCEDURE	if (temp(ip,k,np) .eq. 0.) then
./verification/flt_example/extra/cvprofiles.F	294	NO PROCEDURE	if (.not. preflag) uvel(ip,k,np) = spval
./verification/flt_example/extra/cvprofiles.F	295	NO PROCEDURE	if (.not. preflag) vvel(ip,k,np) = spval
./verification/flt_example/extra/cvprofiles.F	296	NO PROCEDURE	temp(ip,k,np) = spval
./verification/flt_example/extra/cvprofiles.F	297	NO PROCEDURE	if (.not. preflag) salt(ip,k,np) = spval
./verification/flt_example/extra/cvprofiles.F	556	NO PROCEDURE	ip = INT(tmp(1))
./verification/flt_example/extra/cvprofiles.F	559	NO PROCEDURE	temp(ip,k,np) = SNGL(tmp(6+3*Nr+k))
./verification/flt_example/extra/cvprofiles.F	561	NO PROCEDURE	temp(ip,k,np) = spval
./verification/flt_example/extra/cvprofiles.F	586	NO PROCEDURE	ip = INT(tmp(1))
./verification/flt_example/extra/cvprofiles.F	589	NO PROCEDURE	temp(ip,k,np) = SNGL(tmp(6+k))
./verification/flt_example/extra/cvprofiles.F	591	NO PROCEDURE	temp(ip,k,np) = spval
./verification/flt_example/extra/cvprofiles.F	616	NO PROCEDURE	ip = INT(tmp(1))
./verification/flt_example/extra/cvprofiles.F	619	NO PROCEDURE	temp(ip,k,np) = SNGL(tmp(6+1*Nr+k))
./verification/flt_example/extra/cvprofiles.F	621	NO PROCEDURE	temp(ip,k,np) = spval
./verification/flt_example/extra/write_float.F	100	NO PROCEDURE	write(6,200) 'ip = ',ip,' kpart,kfloat,iup,itop,tstart,tend: ',
./verification/flt_example/extra/write_float.F	107	NO PROCEDURE	ip=ip+1
./verification/flt_example/extra/write_float.F	108	NO PROCEDURE	npart = REAL(ip)
./verification/flt_example/extra/write_float.F	117	NO PROCEDURE	if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F	122	NO PROCEDURE	write(6,200) 'ip = ',ip,' kpart,kfloat,iup,itop,tstart,tend: ',
./verification/flt_example/extra/write_float.F	134	NO PROCEDURE	ip=ip+1
./verification/flt_example/extra/write_float.F	135	NO PROCEDURE	npart = REAL(ip)
./verification/flt_example/extra/write_float.F	144	NO PROCEDURE	if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F	149	NO PROCEDURE	write(6,200) 'ip = ',ip,' kpart,kfloat,iup,itop,tstart,tend: ',
./verification/flt_example/extra/write_float.F	160	NO PROCEDURE	ip=ip+1
./verification/flt_example/extra/write_float.F	161	NO PROCEDURE	npart = REAL(ip)
./verification/flt_example/extra/write_float.F	170	NO PROCEDURE	if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F	175	NO PROCEDURE	write(6,200) 'ip = ',ip,' kpart,kfloat,iup,itop,tstart,tend: ',
./verification/flt_example/extra/write_float.F	182	NO PROCEDURE	ip=ip+1
./verification/flt_example/extra/write_float.F	183	NO PROCEDURE	npart = REAL(ip)
./verification/flt_example/extra/write_float.F	192	NO PROCEDURE	if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F	195	NO PROCEDURE	write(6,200) 'ip = ',ip,' kpart,kfloat,iup,itop,tstart,tend: ',
./verification/flt_example/extra/write_float.F	201	NO PROCEDURE	print*, 'total number of floats: npart = ',ip
./verification/flt_example/extra/write_float.F	205	NO PROCEDURE	npart = DBLE(ip)
./verification/flt_example/extra/write_float.F	210	NO PROCEDURE	kfloat = DBLE(ip)
./verification/flt_example/extra/write_float.F	76	NO PROCEDURE	ip=0
./verification/flt_example/extra/write_float.F	85	NO PROCEDURE	ip=ip+1
./verification/flt_example/extra/write_float.F	86	NO PROCEDURE	npart = REAL(ip)
./verification/flt_example/extra/write_float.F	95	NO PROCEDURE	if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./model/src/solve_uv_tridiago.F	150	SOLVE_UV_TRIDIAGO	ip = i+1
./model/src/solve_uv_tridiago.F	153	SOLVE_UV_TRIDIAGO	& - gamU(i,j,bi,bj)*yy_U(ip,j,bi,bj)
./model/src/solve_uv_tridiago.F	155	SOLVE_UV_TRIDIAGO	& - gamU(i,j,bi,bj)*alpU(ip,j,bi,bj)
./model/src/solve_uv_tridiago.F	156	SOLVE_UV_TRIDIAGO	gamU(i,j,bi,bj) = -gamU(i,j,bi,bj)*gamU(ip,j,bi,bj)
./model/src/solve_uv_tridiago.F	79	SOLVE_UV_TRIDIAGO	INTEGER ii, im, ip
./pkg/ctrl/ctrl_set_globfld_xy.F	46	CTRL_SET_GLOBFLD_XY	integer ip,jp
./pkg/ctrl/ctrl_set_globfld_xyz.F	41	CTRL_SET_GLOBFLD_XYZ	integer ip,jp
./pkg/ctrl/ctrl_set_globfld_xz.F	46	CTRL_SET_GLOBFLD_XZ	integer ip,jp
./pkg/ctrl/ctrl_set_globfld_yz.F	46	CTRL_SET_GLOBFLD_YZ	integer ip,jp
./pkg/ctrl/ctrl_set_pack_xy.F	101	CTRL_SET_PACK_XY	do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xy.F	104	CTRL_SET_PACK_XY	globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F	105	CTRL_SET_PACK_XY	globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F	106	CTRL_SET_PACK_XY	globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F	107	CTRL_SET_PACK_XY	globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F	159	CTRL_SET_PACK_XY	do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xy.F	162	CTRL_SET_PACK_XY	weightfld2d(i,bi,ip,j,bj,jp) = 1. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F	192	CTRL_SET_PACK_XY	do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xy.F	195	CTRL_SET_PACK_XY	if (globmsk(i,bi,ip,j,bj,jp,1) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xy.F	198	CTRL_SET_PACK_XY	globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xy.F	199	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	205	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_xy.F	206	CTRL_SET_PACK_XY	& sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F	210	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_xy.F	211	CTRL_SET_PACK_XY	& sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F	217	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	221	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	228	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	232	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	237	CTRL_SET_PACK_XY	globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F	286	CTRL_SET_PACK_XY	do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xy.F	289	CTRL_SET_PACK_XY	if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xy.F	292	CTRL_SET_PACK_XY	globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xy.F	293	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	299	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_xy.F	300	CTRL_SET_PACK_XY	& sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F	304	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_xy.F	305	CTRL_SET_PACK_XY	& sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F	311	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	315	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	322	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	326	CTRL_SET_PACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F	331	CTRL_SET_PACK_XY	globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F	375	CTRL_SET_PACK_XY	integer ip,jp
./pkg/ctrl/ctrl_set_pack_xy.F	48	CTRL_SET_PACK_XY	integer ip,jp
./pkg/ctrl/ctrl_set_pack_xyz.F	111	CTRL_SET_PACK_XYZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xyz.F	114	CTRL_SET_PACK_XYZ	globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F	115	CTRL_SET_PACK_XYZ	globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F	116	CTRL_SET_PACK_XYZ	globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F	117	CTRL_SET_PACK_XYZ	globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F	170	CTRL_SET_PACK_XYZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xyz.F	173	CTRL_SET_PACK_XYZ	weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F	209	CTRL_SET_PACK_XYZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xyz.F	212	CTRL_SET_PACK_XYZ	if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xyz.F	215	CTRL_SET_PACK_XYZ	globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xyz.F	216	CTRL_SET_PACK_XYZ	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F	222	CTRL_SET_PACK_XYZ	& * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F	224	CTRL_SET_PACK_XYZ	& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_pack_xyz.F	230	CTRL_SET_PACK_XYZ	& * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F	232	CTRL_SET_PACK_XYZ	& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_pack_xyz.F	238	CTRL_SET_PACK_XYZ	globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xyz.F	241	CTRL_SET_PACK_XYZ	cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F	244	CTRL_SET_PACK_XYZ	cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F	288	CTRL_SET_PACK_XYZ	integer ip,jp
./pkg/ctrl/ctrl_set_pack_xyz.F	52	CTRL_SET_PACK_XYZ	integer ip,jp
./pkg/ctrl/ctrl_set_pack_xz.F	101	CTRL_SET_PACK_XZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xz.F	104	CTRL_SET_PACK_XZ	globfldxz (i,bi,ip,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F	105	CTRL_SET_PACK_XZ	globfldtmp2(i,bi,ip,bj,jp) = 0.
./pkg/ctrl/ctrl_set_pack_xz.F	106	CTRL_SET_PACK_XZ	globfldtmp3(i,bi,ip,bj,jp) = 0.
./pkg/ctrl/ctrl_set_pack_xz.F	108	CTRL_SET_PACK_XZ	globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F	121	CTRL_SET_PACK_XZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xz.F	124	CTRL_SET_PACK_XZ	globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F	199	CTRL_SET_PACK_XZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xz.F	204	CTRL_SET_PACK_XZ	if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xz.F	207	CTRL_SET_PACK_XZ	globfldtmp3(i,bi,ip,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xz.F	208	CTRL_SET_PACK_XZ	& globfld3d(i,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_xz.F	213	CTRL_SET_PACK_XZ	& globfld3d(i,bi,ip,jj,bj,jp,kk) *
./pkg/ctrl/ctrl_set_pack_xz.F	215	CTRL_SET_PACK_XZ	& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F	221	CTRL_SET_PACK_XZ	& globfld3d(i,bi,ip,jj,bj,jp,kk) /
./pkg/ctrl/ctrl_set_pack_xz.F	223	CTRL_SET_PACK_XZ	& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F	229	CTRL_SET_PACK_XZ	globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xz.F	232	CTRL_SET_PACK_XZ	cbuff(cbuffindex) = globfld3d(i,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_xz.F	274	CTRL_SET_PACK_XZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xz.F	277	CTRL_SET_PACK_XZ	if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xz.F	280	CTRL_SET_PACK_XZ	globfldtmp3(i,bi,ip,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xz.F	281	CTRL_SET_PACK_XZ	& globfldxz(i,bi,ip,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xz.F	286	CTRL_SET_PACK_XZ	& globfldxz(i,bi,ip,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_xz.F	288	CTRL_SET_PACK_XZ	& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F	294	CTRL_SET_PACK_XZ	& globfldxz(i,bi,ip,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_xz.F	296	CTRL_SET_PACK_XZ	& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F	302	CTRL_SET_PACK_XZ	globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xz.F	305	CTRL_SET_PACK_XZ	cbuff(cbuffindex) = globfldxz(i,bi,ip,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xz.F	55	CTRL_SET_PACK_XZ	integer ip,jp
./pkg/ctrl/ctrl_set_pack_yz.F	102	CTRL_SET_PACK_YZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_yz.F	104	CTRL_SET_PACK_YZ	globfldyz (bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F	105	CTRL_SET_PACK_YZ	globfldtmp2(bi,ip,j,bj,jp) = 0.
./pkg/ctrl/ctrl_set_pack_yz.F	106	CTRL_SET_PACK_YZ	globfldtmp3(bi,ip,j,bj,jp) = 0.
./pkg/ctrl/ctrl_set_pack_yz.F	108	CTRL_SET_PACK_YZ	globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F	121	CTRL_SET_PACK_YZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_yz.F	124	CTRL_SET_PACK_YZ	globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F	202	CTRL_SET_PACK_YZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_yz.F	208	CTRL_SET_PACK_YZ	if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_yz.F	211	CTRL_SET_PACK_YZ	globfldtmp3(bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_yz.F	212	CTRL_SET_PACK_YZ	& globfld3d(ii,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_yz.F	217	CTRL_SET_PACK_YZ	& globfld3d(ii,bi,ip,jj,bj,jp,kk) *
./pkg/ctrl/ctrl_set_pack_yz.F	219	CTRL_SET_PACK_YZ	& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F	225	CTRL_SET_PACK_YZ	& globfld3d(ii,bi,ip,jj,bj,jp,kk) /
./pkg/ctrl/ctrl_set_pack_yz.F	227	CTRL_SET_PACK_YZ	& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F	233	CTRL_SET_PACK_YZ	globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_yz.F	236	CTRL_SET_PACK_YZ	cbuff(cbuffindex) = globfld3d(ii,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_yz.F	278	CTRL_SET_PACK_YZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_yz.F	281	CTRL_SET_PACK_YZ	if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_yz.F	284	CTRL_SET_PACK_YZ	globfldtmp3(bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_yz.F	285	CTRL_SET_PACK_YZ	& globfldyz(bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_yz.F	290	CTRL_SET_PACK_YZ	& globfldyz(bi,ip,j,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_yz.F	292	CTRL_SET_PACK_YZ	& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F	298	CTRL_SET_PACK_YZ	& globfldyz(bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_yz.F	300	CTRL_SET_PACK_YZ	& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F	306	CTRL_SET_PACK_YZ	globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_yz.F	309	CTRL_SET_PACK_YZ	cbuff(cbuffindex) = globfldyz(bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_yz.F	55	CTRL_SET_PACK_YZ	integer ip,jp
./pkg/ctrl/ctrl_set_unpack_xy.F	102	CTRL_SET_UNPACK_XY	do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xy.F	105	CTRL_SET_UNPACK_XY	globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F	106	CTRL_SET_UNPACK_XY	globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F	107	CTRL_SET_UNPACK_XY	globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F	108	CTRL_SET_UNPACK_XY	globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F	160	CTRL_SET_UNPACK_XY	do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xy.F	163	CTRL_SET_UNPACK_XY	weightfld2d(i,bi,ip,j,bj,jp) = 1. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F	216	CTRL_SET_UNPACK_XY	do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xy.F	219	CTRL_SET_UNPACK_XY	if ( globmsk(i,bi,ip,j,bj,jp,1) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xy.F	221	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F	223	CTRL_SET_UNPACK_XY	globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F	227	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	230	CTRL_SET_UNPACK_XY	globfldtmp2(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F	236	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	237	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	239	CTRL_SET_UNPACK_XY	& / sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F	243	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	244	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	246	CTRL_SET_UNPACK_XY	& * sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F	252	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	253	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	256	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	257	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	262	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F	265	CTRL_SET_UNPACK_XY	globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F	266	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	326	CTRL_SET_UNPACK_XY	do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xy.F	329	CTRL_SET_UNPACK_XY	if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xy.F	331	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F	333	CTRL_SET_UNPACK_XY	globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F	337	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	340	CTRL_SET_UNPACK_XY	globfldtmp2(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F	346	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	347	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	349	CTRL_SET_UNPACK_XY	& / sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F	353	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	354	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	356	CTRL_SET_UNPACK_XY	& * sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F	362	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	363	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	366	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F	367	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	372	CTRL_SET_UNPACK_XY	globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F	375	CTRL_SET_UNPACK_XY	globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F	376	CTRL_SET_UNPACK_XY	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F	409	CTRL_SET_UNPACK_XY	integer ip,jp
./pkg/ctrl/ctrl_set_unpack_xy.F	49	CTRL_SET_UNPACK_XY	integer ip,jp
./pkg/ctrl/ctrl_set_unpack_xyz.F	113	CTRL_SET_UNPACK_XYZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xyz.F	116	CTRL_SET_UNPACK_XYZ	globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F	117	CTRL_SET_UNPACK_XYZ	globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F	118	CTRL_SET_UNPACK_XYZ	globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F	119	CTRL_SET_UNPACK_XYZ	globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F	179	CTRL_SET_UNPACK_XYZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xyz.F	182	CTRL_SET_UNPACK_XYZ	weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F	240	CTRL_SET_UNPACK_XYZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xyz.F	243	CTRL_SET_UNPACK_XYZ	if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xyz.F	245	CTRL_SET_UNPACK_XYZ	globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F	247	CTRL_SET_UNPACK_XYZ	globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F	251	CTRL_SET_UNPACK_XYZ	globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xyz.F	254	CTRL_SET_UNPACK_XYZ	globfldtmp2(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xyz.F	261	CTRL_SET_UNPACK_XYZ	globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F	262	CTRL_SET_UNPACK_XYZ	& * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F	264	CTRL_SET_UNPACK_XYZ	& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_unpack_xyz.F	269	CTRL_SET_UNPACK_XYZ	globfld3d(i,bi,ip,j,bj,jp,k) = 1/delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F	270	CTRL_SET_UNPACK_XYZ	& * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F	272	CTRL_SET_UNPACK_XYZ	& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_unpack_xyz.F	280	CTRL_SET_UNPACK_XYZ	globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F	283	CTRL_SET_UNPACK_XYZ	globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xyz.F	284	CTRL_SET_UNPACK_XYZ	& globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F	317	CTRL_SET_UNPACK_XYZ	integer ip,jp
./pkg/ctrl/ctrl_set_unpack_xyz.F	52	CTRL_SET_UNPACK_XYZ	integer ip,jp
./pkg/ctrl/ctrl_set_unpack_xz.F	106	CTRL_SET_UNPACK_XZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xz.F	109	CTRL_SET_UNPACK_XZ	globfldxz (i,bi,ip,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F	110	CTRL_SET_UNPACK_XZ	globfldtmp2(i,bi,ip,bj,jp) = 0.
./pkg/ctrl/ctrl_set_unpack_xz.F	111	CTRL_SET_UNPACK_XZ	globfldtmp3(i,bi,ip,bj,jp) = 0.
./pkg/ctrl/ctrl_set_unpack_xz.F	113	CTRL_SET_UNPACK_XZ	globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F	126	CTRL_SET_UNPACK_XZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xz.F	129	CTRL_SET_UNPACK_XZ	globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F	228	CTRL_SET_UNPACK_XZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xz.F	231	CTRL_SET_UNPACK_XZ	if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xz.F	233	CTRL_SET_UNPACK_XZ	globfld3d(i,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_xz.F	236	CTRL_SET_UNPACK_XZ	globfldtmp2(i,bi,ip,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xz.F	240	CTRL_SET_UNPACK_XZ	globfld3d(i,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_xz.F	241	CTRL_SET_UNPACK_XZ	& globfld3d(i,bi,ip,jj,bj,jp,kk)/
./pkg/ctrl/ctrl_set_unpack_xz.F	243	CTRL_SET_UNPACK_XZ	& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_xz.F	249	CTRL_SET_UNPACK_XZ	globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F	252	CTRL_SET_UNPACK_XZ	globfldtmp3(i,bi,ip,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xz.F	253	CTRL_SET_UNPACK_XZ	& globfld3d(i,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_unpack_xz.F	313	CTRL_SET_UNPACK_XZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xz.F	316	CTRL_SET_UNPACK_XZ	if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xz.F	318	CTRL_SET_UNPACK_XZ	globfldxz(i,bi,ip,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xz.F	320	CTRL_SET_UNPACK_XZ	globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xz.F	323	CTRL_SET_UNPACK_XZ	globfldxz(i,bi,ip,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xz.F	324	CTRL_SET_UNPACK_XZ	& globfldxz(i,bi,ip,bj,jp,k)/
./pkg/ctrl/ctrl_set_unpack_xz.F	326	CTRL_SET_UNPACK_XZ	& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_xz.F	332	CTRL_SET_UNPACK_XZ	globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F	335	CTRL_SET_UNPACK_XZ	globfldtmp3(i,bi,ip,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xz.F	336	CTRL_SET_UNPACK_XZ	& globfldxz(i,bi,ip,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xz.F	56	CTRL_SET_UNPACK_XZ	integer ip,jp
./pkg/ctrl/ctrl_set_unpack_yz.F	107	CTRL_SET_UNPACK_YZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_yz.F	109	CTRL_SET_UNPACK_YZ	globfldyz (bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F	110	CTRL_SET_UNPACK_YZ	globfldtmp2(bi,ip,j,bj,jp) = 0.
./pkg/ctrl/ctrl_set_unpack_yz.F	111	CTRL_SET_UNPACK_YZ	globfldtmp3(bi,ip,j,bj,jp) = 0.
./pkg/ctrl/ctrl_set_unpack_yz.F	113	CTRL_SET_UNPACK_YZ	globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F	126	CTRL_SET_UNPACK_YZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_yz.F	129	CTRL_SET_UNPACK_YZ	globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F	226	CTRL_SET_UNPACK_YZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_yz.F	231	CTRL_SET_UNPACK_YZ	if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_yz.F	233	CTRL_SET_UNPACK_YZ	globfld3d(ii,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_yz.F	236	CTRL_SET_UNPACK_YZ	globfldtmp2(bi,ip,jj,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_yz.F	240	CTRL_SET_UNPACK_YZ	globfld3d(ii,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_yz.F	241	CTRL_SET_UNPACK_YZ	& globfld3d(ii,bi,ip,jj,bj,jp,kk)/
./pkg/ctrl/ctrl_set_unpack_yz.F	243	CTRL_SET_UNPACK_YZ	& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F	249	CTRL_SET_UNPACK_YZ	globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F	252	CTRL_SET_UNPACK_YZ	globfldtmp3(bi,ip,jj,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_yz.F	253	CTRL_SET_UNPACK_YZ	& globfld3d(ii,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_unpack_yz.F	313	CTRL_SET_UNPACK_YZ	do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_yz.F	315	CTRL_SET_UNPACK_YZ	if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_yz.F	317	CTRL_SET_UNPACK_YZ	globfldyz(bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_yz.F	319	CTRL_SET_UNPACK_YZ	globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_yz.F	322	CTRL_SET_UNPACK_YZ	globfldyz(bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_yz.F	323	CTRL_SET_UNPACK_YZ	& globfldyz(bi,ip,j,bj,jp,k)/
./pkg/ctrl/ctrl_set_unpack_yz.F	325	CTRL_SET_UNPACK_YZ	& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F	331	CTRL_SET_UNPACK_YZ	globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F	334	CTRL_SET_UNPACK_YZ	globfldtmp3(bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_yz.F	335	CTRL_SET_UNPACK_YZ	& globfldyz(bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_yz.F	56	CTRL_SET_UNPACK_YZ	integer ip,jp
./pkg/diagnostics/diagnostics_calc_phivel.F	12	DIAGNOSTICS_CALC_PHIVEL	I listId, md, ndId, ip, im, lm,
./pkg/diagnostics/diagnostics_calc_phivel.F	43	DIAGNOSTICS_CALC_PHIVEL	INTEGER listId, md, ndId, ip, im, lm
./pkg/diagnostics/diagnostics_interp_vert.F	12	DIAGNOSTICS_INTERP_VERT	I listId, md, ndId, ip, im, lm,
./pkg/diagnostics/diagnostics_interp_vert.F	50	DIAGNOSTICS_INTERP_VERT	INTEGER listId, md, ndId, ip, im, lm
./pkg/diagnostics/diagnostics_is_on.F	36	NO PROCEDURE	INTEGER ip,iSp
./pkg/diagnostics/diagnostics_is_on.F	47	NO PROCEDURE	ip = ABS(idiag(m,n))
./pkg/diagnostics/diagnostics_is_on.F	48	NO PROCEDURE	IF ( ndiag(ip,bi,bj).GE.0 ) DIAGNOSTICS_IS_ON = .TRUE.
./pkg/diagnostics/diagnostics_out.F	196	DIAGNOSTICS_OUT	ip = ABS(idiag(md,listId)) + kdiag(ndId)*(lm-1)
./pkg/diagnostics/diagnostics_out.F	212	DIAGNOSTICS_OUT	ELSEIF ( ndiag(ip,1,1).EQ.0 ) THEN
./pkg/diagnostics/diagnostics_out.F	229	DIAGNOSTICS_OUT	& ndiag(ip,1,1), ' )'
./pkg/diagnostics/diagnostics_out.F	233	DIAGNOSTICS_OUT	& ndiag(ip,1,1), ' )'
./pkg/diagnostics/diagnostics_out.F	265	DIAGNOSTICS_OUT	& cdiag(nn), ' (#', nn, ') Cnt=', ndiag(ip,1,1)
./pkg/diagnostics/diagnostics_out.F	268	DIAGNOSTICS_OUT	& cdiag(nn), ' (#', nn, ') Cnt=', ndiag(ip,1,1),
./pkg/diagnostics/diagnostics_out.F	275	DIAGNOSTICS_OUT	& ' Counter:',ndiag(ip,1,1),' Parms: ',gdiag(ndId)
./pkg/diagnostics/diagnostics_out.F	305	DIAGNOSTICS_OUT	I ndId, mate, ip, im, bi, bj, myThid )
./pkg/diagnostics/diagnostics_out.F	329	DIAGNOSTICS_OUT	I ndId, mate, ip, im, bi, bj, myThid )
./pkg/diagnostics/diagnostics_out.F	352	DIAGNOSTICS_OUT	I listId, md, ndId, ip, im, lm,
./pkg/diagnostics/diagnostics_out.F	365	DIAGNOSTICS_OUT	I listId, md, ndId, ip, im, lm,
./pkg/diagnostics/diagnostics_out.F	375	DIAGNOSTICS_OUT	I listId, md, ndId, ip, im, lm,
./pkg/diagnostics/diagnostics_out.F	67	DIAGNOSTICS_OUT	INTEGER md, ndId, nn, ip, im
./pkg/diagnostics/diagnostics_sum_levels.F	12	DIAGNOSTICS_SUM_LEVELS	I listId, md, ndId, ip, im, lm,
./pkg/diagnostics/diagnostics_sum_levels.F	46	DIAGNOSTICS_SUM_LEVELS	INTEGER listId, md, ndId, ip, im, lm
./pkg/diagnostics/diagnostics_switch_onoff.F	111	DIAGNOSTICS_SWITCH_ONOFF	ip = idiag(m,n)
./pkg/diagnostics/diagnostics_switch_onoff.F	112	DIAGNOSTICS_SWITCH_ONOFF	IF (ip.GT.0) ndiag(ip,bi,bj) = 0
./pkg/diagnostics/diagnostics_switch_onoff.F	119	DIAGNOSTICS_SWITCH_ONOFF	ip = idiag(m,n)
./pkg/diagnostics/diagnostics_switch_onoff.F	120	DIAGNOSTICS_SWITCH_ONOFF	IF (ip.GT.0) ndiag(ip,bi,bj) = -1
./pkg/diagnostics/diagnostics_switch_onoff.F	47	DIAGNOSTICS_SWITCH_ONOFF	INTEGER bi, bj, ip, iSp
./pkg/diagnostics/diagnostics_utils.F	104	DIAGNOSTICS_GET_DIAG	I ndId, mate, ip, im, bi, bj, myThid )
./pkg/diagnostics/diagnostics_utils.F	128	DIAGNOSTICS_GET_DIAG	INTEGER ndId, mate, ip, im
./pkg/diagnostics/diagnostics_utils.F	156	DIAGNOSTICS_GET_DIAG	ipnt = ip + kd - 1
./pkg/diagnostics/diagnostics_utils.F	157	DIAGNOSTICS_GET_DIAG	factor = FLOAT(ndiag(ip,bi,bj))
./pkg/diagnostics/diagnostics_utils.F	158	DIAGNOSTICS_GET_DIAG	IF (ndiag(ip,bi,bj).NE.0) factor = 1. _d 0 / factor
./pkg/diagnostics/diagnostics_utils.F	181	DIAGNOSTICS_GET_DIAG	ipnt = ip + kd - 1
./pkg/diagnostics/diagnostics_utils.F	209	DIAGNOSTICS_GET_POINTERS	O ndId, ip,
./pkg/diagnostics/diagnostics_utils.F	244	DIAGNOSTICS_GET_POINTERS	INTEGER ndId, ip
./pkg/diagnostics/diagnostics_utils.F	251	DIAGNOSTICS_GET_POINTERS	ip = 0
./pkg/diagnostics/diagnostics_utils.F	260	DIAGNOSTICS_GET_POINTERS	IF ( ip.EQ.0 .AND. diagName.EQ.flds(m,n)
./pkg/diagnostics/diagnostics_utils.F	262	DIAGNOSTICS_GET_POINTERS	ip = ABS(idiag(m,n))
./pkg/diagnostics/diagnostics_utils.F	273	DIAGNOSTICS_GET_POINTERS	IF ( ip.EQ.0
./pkg/diagnostics/diagnostics_utils.F	281	DIAGNOSTICS_GET_POINTERS	IF ( ip.EQ.0 .AND. diagName.EQ.flds(m,n)
./pkg/diagnostics/diagnostics_utils.F	283	DIAGNOSTICS_GET_POINTERS	ip = ABS(idiag(m,n))
./pkg/diagnostics/diagnostics_utils.F	287	DIAGNOSTICS_GET_POINTERS	ELSEIF ( ip.EQ.0 ) THEN
./pkg/diagnostics/diagnostics_utils.F	289	DIAGNOSTICS_GET_POINTERS	IF ( ip.EQ.0 .AND. diagName.EQ.flds(m,n)