Table showing occurences of "bi"

Symbol	Description	Uses
bi	tile indices	38385

File	Line number	Procedure	Code
./pkg/ecco/ecco_cost_init_varia.F	100	ECCO_COST_INIT_VARIA	objf_tauum(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	101	ECCO_COST_INIT_VARIA	objf_tauv(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	102	ECCO_COST_INIT_VARIA	objf_tauvm(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	103	ECCO_COST_INIT_VARIA	objf_temp(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	104	ECCO_COST_INIT_VARIA	objf_salt(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	105	ECCO_COST_INIT_VARIA	objf_temp0(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	106	ECCO_COST_INIT_VARIA	objf_salt0(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	107	ECCO_COST_INIT_VARIA	objf_temp0smoo(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	108	ECCO_COST_INIT_VARIA	objf_salt0smoo(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	109	ECCO_COST_INIT_VARIA	objf_etan0(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	110	ECCO_COST_INIT_VARIA	objf_uvel0(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	111	ECCO_COST_INIT_VARIA	objf_vvel0(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	112	ECCO_COST_INIT_VARIA	objf_tmi(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	113	ECCO_COST_INIT_VARIA	objf_sst(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	114	ECCO_COST_INIT_VARIA	objf_sss(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	115	ECCO_COST_INIT_VARIA	objf_bp(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	116	ECCO_COST_INIT_VARIA	objf_h(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	117	ECCO_COST_INIT_VARIA	objf_tp(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	118	ECCO_COST_INIT_VARIA	objf_ers(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	119	ECCO_COST_INIT_VARIA	objf_gfo(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	120	ECCO_COST_INIT_VARIA	objf_ctdt(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	121	ECCO_COST_INIT_VARIA	objf_ctds(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	122	ECCO_COST_INIT_VARIA	objf_ctdtclim(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	123	ECCO_COST_INIT_VARIA	objf_ctdsclim(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	124	ECCO_COST_INIT_VARIA	objf_xbt(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	125	ECCO_COST_INIT_VARIA	objf_argot(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	126	ECCO_COST_INIT_VARIA	objf_argos(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	127	ECCO_COST_INIT_VARIA	objf_drift(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	128	ECCO_COST_INIT_VARIA	objf_wdrift(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	129	ECCO_COST_INIT_VARIA	objf_sdrift(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	130	ECCO_COST_INIT_VARIA	objf_tdrift(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	131	ECCO_COST_INIT_VARIA	objf_scatx(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	132	ECCO_COST_INIT_VARIA	objf_scaty(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	133	ECCO_COST_INIT_VARIA	objf_scatxm(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	134	ECCO_COST_INIT_VARIA	objf_scatym(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	135	ECCO_COST_INIT_VARIA	objf_atemp(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	136	ECCO_COST_INIT_VARIA	objf_aqh(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	137	ECCO_COST_INIT_VARIA	objf_precip(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	138	ECCO_COST_INIT_VARIA	objf_swflux(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	139	ECCO_COST_INIT_VARIA	objf_swdown(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	140	ECCO_COST_INIT_VARIA	objf_lwflux(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	141	ECCO_COST_INIT_VARIA	objf_lwdown(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	142	ECCO_COST_INIT_VARIA	objf_uwind(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	143	ECCO_COST_INIT_VARIA	objf_vwind(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	145	ECCO_COST_INIT_VARIA	objf_atl(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	147	ECCO_COST_INIT_VARIA	objf_curmtr(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	148	ECCO_COST_INIT_VARIA	objf_diffkr(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	149	ECCO_COST_INIT_VARIA	objf_kapgm(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	150	ECCO_COST_INIT_VARIA	objf_kapredi(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	151	ECCO_COST_INIT_VARIA	objf_theta_ini_fin(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	152	ECCO_COST_INIT_VARIA	objf_salt_ini_fin(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	153	ECCO_COST_INIT_VARIA	objf_eddytau(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	154	ECCO_COST_INIT_VARIA	objf_bottomdrag(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	156	ECCO_COST_INIT_VARIA	objf_usercost(k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	159	ECCO_COST_INIT_VARIA	objf_sshv4cost(k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	161	ECCO_COST_INIT_VARIA	num_hflux(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	162	ECCO_COST_INIT_VARIA	num_hfluxm(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	163	ECCO_COST_INIT_VARIA	num_hfluxmm(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	164	ECCO_COST_INIT_VARIA	num_sflux(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	165	ECCO_COST_INIT_VARIA	num_sfluxm(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	166	ECCO_COST_INIT_VARIA	num_sfluxmm(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	167	ECCO_COST_INIT_VARIA	num_tauu(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	168	ECCO_COST_INIT_VARIA	num_tauum(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	169	ECCO_COST_INIT_VARIA	num_tauv(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	170	ECCO_COST_INIT_VARIA	num_tauvm(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	171	ECCO_COST_INIT_VARIA	num_temp(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	172	ECCO_COST_INIT_VARIA	num_salt(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	173	ECCO_COST_INIT_VARIA	num_temp0(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	174	ECCO_COST_INIT_VARIA	num_salt0(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	175	ECCO_COST_INIT_VARIA	num_etan0(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	176	ECCO_COST_INIT_VARIA	num_uvel0(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	177	ECCO_COST_INIT_VARIA	num_vvel0(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	178	ECCO_COST_INIT_VARIA	num_tmi(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	179	ECCO_COST_INIT_VARIA	num_sst(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	180	ECCO_COST_INIT_VARIA	num_sss(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	181	ECCO_COST_INIT_VARIA	num_bp(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	182	ECCO_COST_INIT_VARIA	num_h(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	183	ECCO_COST_INIT_VARIA	num_tp(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	184	ECCO_COST_INIT_VARIA	num_ers(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	185	ECCO_COST_INIT_VARIA	num_gfo(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	186	ECCO_COST_INIT_VARIA	num_ctdt(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	187	ECCO_COST_INIT_VARIA	num_ctds(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	188	ECCO_COST_INIT_VARIA	num_ctdtclim(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	189	ECCO_COST_INIT_VARIA	num_ctdsclim(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	190	ECCO_COST_INIT_VARIA	num_xbt(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	191	ECCO_COST_INIT_VARIA	num_argot(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	192	ECCO_COST_INIT_VARIA	num_argos(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	193	ECCO_COST_INIT_VARIA	num_drift(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	194	ECCO_COST_INIT_VARIA	num_wdrift(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	195	ECCO_COST_INIT_VARIA	num_sdrift(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	196	ECCO_COST_INIT_VARIA	num_tdrift(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	197	ECCO_COST_INIT_VARIA	num_scatx(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	198	ECCO_COST_INIT_VARIA	num_scaty(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	199	ECCO_COST_INIT_VARIA	num_scatxm(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	200	ECCO_COST_INIT_VARIA	num_scatym(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	201	ECCO_COST_INIT_VARIA	num_atemp(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	202	ECCO_COST_INIT_VARIA	num_aqh(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	203	ECCO_COST_INIT_VARIA	num_precip(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	204	ECCO_COST_INIT_VARIA	num_swflux(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	205	ECCO_COST_INIT_VARIA	num_swdown(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	206	ECCO_COST_INIT_VARIA	num_lwflux(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	207	ECCO_COST_INIT_VARIA	num_lwdown(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	208	ECCO_COST_INIT_VARIA	num_uwind(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	209	ECCO_COST_INIT_VARIA	num_vwind(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	210	ECCO_COST_INIT_VARIA	num_curmtr(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	211	ECCO_COST_INIT_VARIA	num_diffkr(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	212	ECCO_COST_INIT_VARIA	num_kapgm(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	213	ECCO_COST_INIT_VARIA	num_kapredi(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	214	ECCO_COST_INIT_VARIA	num_eddytau(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	215	ECCO_COST_INIT_VARIA	num_bottomdrag(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	217	ECCO_COST_INIT_VARIA	num_usercost(k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	220	ECCO_COST_INIT_VARIA	num_sshv4cost(k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	222	ECCO_COST_INIT_VARIA	num_theta_ini_fin(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	223	ECCO_COST_INIT_VARIA	num_salt_ini_fin(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	228	ECCO_COST_INIT_VARIA	objf_gencost(bi,bj,k) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	229	ECCO_COST_INIT_VARIA	num_gencost(bi,bj,k) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	234	ECCO_COST_INIT_VARIA	objf_obcsn(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	235	ECCO_COST_INIT_VARIA	objf_obcss(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	236	ECCO_COST_INIT_VARIA	objf_obcsw(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	237	ECCO_COST_INIT_VARIA	objf_obcse(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	238	ECCO_COST_INIT_VARIA	objf_ageos(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	239	ECCO_COST_INIT_VARIA	num_obcsn(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	240	ECCO_COST_INIT_VARIA	num_obcss(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	241	ECCO_COST_INIT_VARIA	num_obcsw(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	242	ECCO_COST_INIT_VARIA	num_obcse(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	243	ECCO_COST_INIT_VARIA	num_ageos(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	249	ECCO_COST_INIT_VARIA	cosphi(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	260	ECCO_COST_INIT_VARIA	do bi = itlo,ithi
./pkg/ecco/ecco_cost_init_varia.F	264	ECCO_COST_INIT_VARIA	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F	265	ECCO_COST_INIT_VARIA	mdtmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	267	ECCO_COST_INIT_VARIA	mdtmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	269	ECCO_COST_INIT_VARIA	mdt(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	272	ECCO_COST_INIT_VARIA	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F	273	ECCO_COST_INIT_VARIA	tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	275	ECCO_COST_INIT_VARIA	tpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	277	ECCO_COST_INIT_VARIA	tpobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	280	ECCO_COST_INIT_VARIA	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F	281	ECCO_COST_INIT_VARIA	ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	283	ECCO_COST_INIT_VARIA	ersmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	285	ECCO_COST_INIT_VARIA	ersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	288	ECCO_COST_INIT_VARIA	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F	289	ECCO_COST_INIT_VARIA	gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	291	ECCO_COST_INIT_VARIA	gfomask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	293	ECCO_COST_INIT_VARIA	gfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	296	ECCO_COST_INIT_VARIA	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F	297	ECCO_COST_INIT_VARIA	tmimask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	299	ECCO_COST_INIT_VARIA	tmimask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	303	ECCO_COST_INIT_VARIA	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F	304	ECCO_COST_INIT_VARIA	sstmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	306	ECCO_COST_INIT_VARIA	sstmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	310	ECCO_COST_INIT_VARIA	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F	311	ECCO_COST_INIT_VARIA	sssmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	313	ECCO_COST_INIT_VARIA	sssmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	317	ECCO_COST_INIT_VARIA	if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F	318	ECCO_COST_INIT_VARIA	bpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	320	ECCO_COST_INIT_VARIA	bpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F	322	ECCO_COST_INIT_VARIA	bpdat(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	331	ECCO_COST_INIT_VARIA	do bi = itlo,ithi
./pkg/ecco/ecco_cost_init_varia.F	335	ECCO_COST_INIT_VARIA	tbar_gen(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	336	ECCO_COST_INIT_VARIA	sbar_gen(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	53	ECCO_COST_INIT_VARIA	integer bi,bj
./pkg/ecco/ecco_cost_init_varia.F	93	ECCO_COST_INIT_VARIA	do bi = itlo,ithi
./pkg/ecco/ecco_cost_init_varia.F	95	ECCO_COST_INIT_VARIA	objf_hflux(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	96	ECCO_COST_INIT_VARIA	objf_hfluxm(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	97	ECCO_COST_INIT_VARIA	objf_sflux(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	98	ECCO_COST_INIT_VARIA	objf_sfluxm(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F	99	ECCO_COST_INIT_VARIA	objf_tauu(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1002	ECCO_COST_WEIGHTS	if (wuwind(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1003	ECCO_COST_WEIGHTS	wuwind(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1005	ECCO_COST_WEIGHTS	wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1006	ECCO_COST_WEIGHTS	wuwind(i,j,bi,bj) = max(wuwind(i,j,bi,bj),wwind0)
./pkg/ecco/ecco_cost_weights.F	1007	ECCO_COST_WEIGHTS	wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskc(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1029	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1033	ECCO_COST_WEIGHTS	if (wtauv(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1034	ECCO_COST_WEIGHTS	wtauv(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1036	ECCO_COST_WEIGHTS	wtauv(i,j,bi,bj) = max(wtauv(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F	1038	ECCO_COST_WEIGHTS	wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*masks(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1041	ECCO_COST_WEIGHTS	wtauv2(i,j,bi,bj) = wtau0maskS(i,j,k,bi,bj)frame(i,j)
./pkg/ecco/ecco_cost_weights.F	1044	ECCO_COST_WEIGHTS	wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*maskc(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1046	ECCO_COST_WEIGHTS	wtauv2(i,j,bi,bj) = wtau0maskc(i,j,k,bi,bj)frame(i,j)
./pkg/ecco/ecco_cost_weights.F	1067	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1071	ECCO_COST_WEIGHTS	if (wvwind(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1072	ECCO_COST_WEIGHTS	wvwind(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1074	ECCO_COST_WEIGHTS	wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1075	ECCO_COST_WEIGHTS	wvwind(i,j,bi,bj) = max(wvwind(i,j,bi,bj),wwind0)
./pkg/ecco/ecco_cost_weights.F	1076	ECCO_COST_WEIGHTS	wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)*maskc(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1099	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1103	ECCO_COST_WEIGHTS	if (whflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1104	ECCO_COST_WEIGHTS	whflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1107	ECCO_COST_WEIGHTS	whflux(i,j,bi,bj) = whflux(i,j,bi,bj)/3.
./pkg/ecco/ecco_cost_weights.F	1108	ECCO_COST_WEIGHTS	whflux(i,j,bi,bj) = max(whflux(i,j,bi,bj),whflux0)
./pkg/ecco/ecco_cost_weights.F	1110	ECCO_COST_WEIGHTS	whfluxm(i,j,bi,bj) = max(whfluxm(i,j,bi,bj),whflux0m)
./pkg/ecco/ecco_cost_weights.F	1113	ECCO_COST_WEIGHTS	whflux2(i,j,bi,bj) = whflux0*frame(i,j)
./pkg/ecco/ecco_cost_weights.F	1134	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1138	ECCO_COST_WEIGHTS	if (watemp(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1139	ECCO_COST_WEIGHTS	watemp(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1142	ECCO_COST_WEIGHTS	watemp(i,j,bi,bj) = watemp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1143	ECCO_COST_WEIGHTS	watemp(i,j,bi,bj) = max(watemp(i,j,bi,bj),watemp0)
./pkg/ecco/ecco_cost_weights.F	1167	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1171	ECCO_COST_WEIGHTS	if (wsflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1172	ECCO_COST_WEIGHTS	wsflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1175	ECCO_COST_WEIGHTS	wsflux(i,j,bi,bj) = wsflux(i,j,bi,bj) / 3.
./pkg/ecco/ecco_cost_weights.F	1176	ECCO_COST_WEIGHTS	wsflux(i,j,bi,bj) = max(wsflux(i,j,bi,bj),wsflux0)
./pkg/ecco/ecco_cost_weights.F	1178	ECCO_COST_WEIGHTS	wsfluxm(i,j,bi,bj) = max(wsfluxm(i,j,bi,bj),wsflux0m)
./pkg/ecco/ecco_cost_weights.F	1181	ECCO_COST_WEIGHTS	wsflux2(i,j,bi,bj) = wsflux0*frame(i,j)
./pkg/ecco/ecco_cost_weights.F	1202	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1206	ECCO_COST_WEIGHTS	if (waqh(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1207	ECCO_COST_WEIGHTS	waqh(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1210	ECCO_COST_WEIGHTS	waqh(i,j,bi,bj) = waqh(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1211	ECCO_COST_WEIGHTS	waqh(i,j,bi,bj) = max(waqh(i,j,bi,bj),waqh0)
./pkg/ecco/ecco_cost_weights.F	1234	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1238	ECCO_COST_WEIGHTS	if (wprecip(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1239	ECCO_COST_WEIGHTS	wprecip(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1242	ECCO_COST_WEIGHTS	wprecip(i,j,bi,bj) = wprecip(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1243	ECCO_COST_WEIGHTS	wprecip(i,j,bi,bj) = max(wprecip(i,j,bi,bj),wprecip0)
./pkg/ecco/ecco_cost_weights.F	1266	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	126	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1270	ECCO_COST_WEIGHTS	if (wswflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1271	ECCO_COST_WEIGHTS	wswflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1274	ECCO_COST_WEIGHTS	wswflux(i,j,bi,bj) = wswflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1275	ECCO_COST_WEIGHTS	wswflux(i,j,bi,bj) = max(wswflux(i,j,bi,bj),wswflux0)
./pkg/ecco/ecco_cost_weights.F	1298	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	129	ECCO_COST_WEIGHTS	whflux (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1302	ECCO_COST_WEIGHTS	if (wswdown(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1303	ECCO_COST_WEIGHTS	wswdown(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1306	ECCO_COST_WEIGHTS	wswdown(i,j,bi,bj) = wswdown(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1307	ECCO_COST_WEIGHTS	wswdown(i,j,bi,bj) = max(wswdown(i,j,bi,bj),wswdown0)
./pkg/ecco/ecco_cost_weights.F	130	ECCO_COST_WEIGHTS	whfluxm (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	131	ECCO_COST_WEIGHTS	wsflux (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	132	ECCO_COST_WEIGHTS	wsfluxm (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1330	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1334	ECCO_COST_WEIGHTS	if (wlwflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1335	ECCO_COST_WEIGHTS	wlwflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1338	ECCO_COST_WEIGHTS	wlwflux(i,j,bi,bj) = wlwflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1339	ECCO_COST_WEIGHTS	wlwflux(i,j,bi,bj) = max(wlwflux(i,j,bi,bj),wlwflux0)
./pkg/ecco/ecco_cost_weights.F	133	ECCO_COST_WEIGHTS	wtauu (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	134	ECCO_COST_WEIGHTS	wtauum (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	135	ECCO_COST_WEIGHTS	wtauv (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1362	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1366	ECCO_COST_WEIGHTS	if (wlwdown(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1367	ECCO_COST_WEIGHTS	wlwdown(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	136	ECCO_COST_WEIGHTS	wtauvm (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1370	ECCO_COST_WEIGHTS	wlwdown(i,j,bi,bj) = wlwdown(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1371	ECCO_COST_WEIGHTS	wlwdown(i,j,bi,bj) = max(wlwdown(i,j,bi,bj),wlwdown0)
./pkg/ecco/ecco_cost_weights.F	137	ECCO_COST_WEIGHTS	watemp (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	138	ECCO_COST_WEIGHTS	waqh (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1394	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1398	ECCO_COST_WEIGHTS	if (wsnowprecip(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1399	ECCO_COST_WEIGHTS	wsnowprecip(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	139	ECCO_COST_WEIGHTS	wprecip (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1402	ECCO_COST_WEIGHTS	wsnowprecip(i,j,bi,bj) = wsnowprecip(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1403	ECCO_COST_WEIGHTS	wsnowprecip(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1404	ECCO_COST_WEIGHTS	& max(wsnowprecip(i,j,bi,bj),wsnowprecip0)
./pkg/ecco/ecco_cost_weights.F	140	ECCO_COST_WEIGHTS	wswflux (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	141	ECCO_COST_WEIGHTS	wswdown (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1427	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	142	ECCO_COST_WEIGHTS	wsnowprecip (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1431	ECCO_COST_WEIGHTS	if (wevap(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1432	ECCO_COST_WEIGHTS	wevap(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1435	ECCO_COST_WEIGHTS	wevap(i,j,bi,bj) = wevap(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1436	ECCO_COST_WEIGHTS	wevap(i,j,bi,bj) = max(wevap(i,j,bi,bj),wevap0)
./pkg/ecco/ecco_cost_weights.F	143	ECCO_COST_WEIGHTS	wlwflux (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	144	ECCO_COST_WEIGHTS	wlwdown (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1459	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	145	ECCO_COST_WEIGHTS	wevap (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1463	ECCO_COST_WEIGHTS	if (wapressure(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1464	ECCO_COST_WEIGHTS	wapressure(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1467	ECCO_COST_WEIGHTS	wapressure(i,j,bi,bj) = wapressure(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1468	ECCO_COST_WEIGHTS	wapressure(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1469	ECCO_COST_WEIGHTS	& max(wapressure(i,j,bi,bj),wapressure0)
./pkg/ecco/ecco_cost_weights.F	146	ECCO_COST_WEIGHTS	wapressure(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	147	ECCO_COST_WEIGHTS	wrunoff (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	148	ECCO_COST_WEIGHTS	wuwind (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1492	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1496	ECCO_COST_WEIGHTS	if (wrunoff(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1497	ECCO_COST_WEIGHTS	wrunoff(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	149	ECCO_COST_WEIGHTS	wvwind (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1500	ECCO_COST_WEIGHTS	wrunoff(i,j,bi,bj) = wrunoff(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1501	ECCO_COST_WEIGHTS	wrunoff(i,j,bi,bj) = max(wrunoff(i,j,bi,bj),wrunoff0)
./pkg/ecco/ecco_cost_weights.F	150	ECCO_COST_WEIGHTS	wsst (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1516	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	151	ECCO_COST_WEIGHTS	wsss (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1520	ECCO_COST_WEIGHTS	if (wbottomdrag(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1521	ECCO_COST_WEIGHTS	wbottomdrag(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	152	ECCO_COST_WEIGHTS	wtp (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1538	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	153	ECCO_COST_WEIGHTS	wers (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1543	ECCO_COST_WEIGHTS	if (wdiffkr2(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1544	ECCO_COST_WEIGHTS	wdiffkr2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	154	ECCO_COST_WEIGHTS	wgfo (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	155	ECCO_COST_WEIGHTS	wetan (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1562	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1567	ECCO_COST_WEIGHTS	if (wkapgm2(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1568	ECCO_COST_WEIGHTS	wkapgm2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	157	ECCO_COST_WEIGHTS	wsshv4 (i,j,num_var,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1586	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1591	ECCO_COST_WEIGHTS	if (wkapredi2(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1592	ECCO_COST_WEIGHTS	wkapredi2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	159	ECCO_COST_WEIGHTS	wp (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	160	ECCO_COST_WEIGHTS	wudrift (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1610	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1615	ECCO_COST_WEIGHTS	if (wedtaux2(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	1616	ECCO_COST_WEIGHTS	wedtaux2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1618	ECCO_COST_WEIGHTS	wedtauy2(i,j,k,bi,bj)=wedtaux2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	161	ECCO_COST_WEIGHTS	wvdrift (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1633	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1637	ECCO_COST_WEIGHTS	if ( wetan(i,j,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F	1638	ECCO_COST_WEIGHTS	wetan(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	163	ECCO_COST_WEIGHTS	whflux2 (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1640	ECCO_COST_WEIGHTS	wetan(i,j,bi,bj)=frame(i,j)*maskC(i,j,1,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	1641	ECCO_COST_WEIGHTS	$ ( wetan(i,j,bi,bj)*wetan(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	164	ECCO_COST_WEIGHTS	wsflux2 (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	165	ECCO_COST_WEIGHTS	wtauu2 (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	166	ECCO_COST_WEIGHTS	wtauv2 (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1673	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1678	ECCO_COST_WEIGHTS	if ( wuvel3d(i,j,k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F	1679	ECCO_COST_WEIGHTS	wuvel3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1681	ECCO_COST_WEIGHTS	wuvel3d(i,j,k,bi,bj)=frame(i,j)*maskW(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	1682	ECCO_COST_WEIGHTS	$ ( wuvel3d(i,j,k,bi,bj)*wuvel3d(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	1684	ECCO_COST_WEIGHTS	if ( wvvel3d(i,j,k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F	1685	ECCO_COST_WEIGHTS	wvvel3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1687	ECCO_COST_WEIGHTS	wvvel3d(i,j,k,bi,bj)=frame(i,j)*maskS(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	1688	ECCO_COST_WEIGHTS	$ ( wvvel3d(i,j,k,bi,bj)*wvvel3d(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	168	ECCO_COST_WEIGHTS	wbottomdrag (i,j,bi,bj) = wbottomdrag0
./pkg/ecco/ecco_cost_weights.F	1707	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1710	ECCO_COST_WEIGHTS	if (wtp(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1711	ECCO_COST_WEIGHTS	wtp (i,j,bi,bj) = 1./wtp(i,j,bi,bj)/wtp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1713	ECCO_COST_WEIGHTS	if (wers(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1714	ECCO_COST_WEIGHTS	wers(i,j,bi,bj) = 1./wers(i,j,bi,bj)/wers(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1716	ECCO_COST_WEIGHTS	if (wgfo(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1717	ECCO_COST_WEIGHTS	wgfo(i,j,bi,bj) = 1./wgfo(i,j,bi,bj)/wgfo(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1719	ECCO_COST_WEIGHTS	if (wp(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1720	ECCO_COST_WEIGHTS	wp(i,j,bi,bj) = 1./wp(i,j,bi,bj)/wp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1722	ECCO_COST_WEIGHTS	if (wtauu(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1723	ECCO_COST_WEIGHTS	wtauu(i,j,bi,bj) = 1./wtauu(i,j,bi,bj)/wtauu(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1725	ECCO_COST_WEIGHTS	wtauu(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1727	ECCO_COST_WEIGHTS	if (wtauum(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1728	ECCO_COST_WEIGHTS	wtauum(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1729	ECCO_COST_WEIGHTS	& 1./wtauum(i,j,bi,bj)/wtauum(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1731	ECCO_COST_WEIGHTS	wtauum(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1733	ECCO_COST_WEIGHTS	if (wscatx(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1734	ECCO_COST_WEIGHTS	wscatx(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1735	ECCO_COST_WEIGHTS	& 1./wscatx(i,j,bi,bj)/wscatx(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1737	ECCO_COST_WEIGHTS	wscatx(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1739	ECCO_COST_WEIGHTS	if (wtauv(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1740	ECCO_COST_WEIGHTS	wtauv(i,j,bi,bj) = 1./wtauv(i,j,bi,bj)/wtauv(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1742	ECCO_COST_WEIGHTS	wtauv(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1744	ECCO_COST_WEIGHTS	if (wtauvm(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1745	ECCO_COST_WEIGHTS	wtauvm(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1746	ECCO_COST_WEIGHTS	& 1./wtauvm(i,j,bi,bj)/wtauvm(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1748	ECCO_COST_WEIGHTS	wtauvm(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	174	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1750	ECCO_COST_WEIGHTS	if (wscaty(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1751	ECCO_COST_WEIGHTS	wscaty(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1752	ECCO_COST_WEIGHTS	& 1./wscaty(i,j,bi,bj)/wscaty(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1754	ECCO_COST_WEIGHTS	wscaty(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1756	ECCO_COST_WEIGHTS	if (whflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1757	ECCO_COST_WEIGHTS	whflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1758	ECCO_COST_WEIGHTS	& 1./whflux(i,j,bi,bj)/whflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1760	ECCO_COST_WEIGHTS	whflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1762	ECCO_COST_WEIGHTS	if (whfluxm(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1763	ECCO_COST_WEIGHTS	whfluxm(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1764	ECCO_COST_WEIGHTS	& 1./whfluxm(i,j,bi,bj)/whfluxm(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1766	ECCO_COST_WEIGHTS	whfluxm(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1768	ECCO_COST_WEIGHTS	if (wsflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1769	ECCO_COST_WEIGHTS	wsflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	176	ECCO_COST_WEIGHTS	wtheta (k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1770	ECCO_COST_WEIGHTS	& 1./wsflux(i,j,bi,bj)/wsflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1772	ECCO_COST_WEIGHTS	wsflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1774	ECCO_COST_WEIGHTS	if (wsfluxm(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1775	ECCO_COST_WEIGHTS	wsfluxm(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1776	ECCO_COST_WEIGHTS	& 1./wsfluxm(i,j,bi,bj)/wsfluxm(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1778	ECCO_COST_WEIGHTS	wsfluxm(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	177	ECCO_COST_WEIGHTS	wsalt (k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1780	ECCO_COST_WEIGHTS	if (wuwind(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1781	ECCO_COST_WEIGHTS	wuwind(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1782	ECCO_COST_WEIGHTS	& 1./wuwind(i,j,bi,bj)/wuwind(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1784	ECCO_COST_WEIGHTS	wuwind(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1786	ECCO_COST_WEIGHTS	if (wvwind(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1787	ECCO_COST_WEIGHTS	wvwind(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1788	ECCO_COST_WEIGHTS	& 1./wvwind(i,j,bi,bj)/wvwind(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	178	ECCO_COST_WEIGHTS	wuvel (k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1790	ECCO_COST_WEIGHTS	wvwind(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1792	ECCO_COST_WEIGHTS	if (watemp(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1793	ECCO_COST_WEIGHTS	watemp(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1794	ECCO_COST_WEIGHTS	& 1./watemp(i,j,bi,bj)/watemp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1796	ECCO_COST_WEIGHTS	watemp(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1798	ECCO_COST_WEIGHTS	if (waqh(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1799	ECCO_COST_WEIGHTS	waqh(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	179	ECCO_COST_WEIGHTS	wvvel (k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1800	ECCO_COST_WEIGHTS	& 1./waqh(i,j,bi,bj)/waqh(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1802	ECCO_COST_WEIGHTS	waqh(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1804	ECCO_COST_WEIGHTS	if (wprecip(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1805	ECCO_COST_WEIGHTS	wprecip(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1806	ECCO_COST_WEIGHTS	& 1./wprecip(i,j,bi,bj)/wprecip(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1808	ECCO_COST_WEIGHTS	wprecip(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	180	ECCO_COST_WEIGHTS	wctdt (k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1810	ECCO_COST_WEIGHTS	if (wswflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1811	ECCO_COST_WEIGHTS	wswflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1812	ECCO_COST_WEIGHTS	& 1./wswflux(i,j,bi,bj)/wswflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1814	ECCO_COST_WEIGHTS	wswflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1816	ECCO_COST_WEIGHTS	if (wswdown(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1817	ECCO_COST_WEIGHTS	wswdown(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1818	ECCO_COST_WEIGHTS	& 1./wswdown(i,j,bi,bj)/wswdown(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	181	ECCO_COST_WEIGHTS	wctds (k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1820	ECCO_COST_WEIGHTS	wswdown(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1822	ECCO_COST_WEIGHTS	if (wlwflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1823	ECCO_COST_WEIGHTS	wlwflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1824	ECCO_COST_WEIGHTS	& 1./wlwflux(i,j,bi,bj)/wlwflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1826	ECCO_COST_WEIGHTS	wlwflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1828	ECCO_COST_WEIGHTS	if (wlwdown(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1829	ECCO_COST_WEIGHTS	wlwdown(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	182	ECCO_COST_WEIGHTS	wdiffkr(k,bi,bj) = wdiffkr0
./pkg/ecco/ecco_cost_weights.F	1830	ECCO_COST_WEIGHTS	& 1./wlwdown(i,j,bi,bj)/wlwdown(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1832	ECCO_COST_WEIGHTS	wlwdown(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1834	ECCO_COST_WEIGHTS	if (wevap(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1835	ECCO_COST_WEIGHTS	wevap(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1836	ECCO_COST_WEIGHTS	& 1./wevap(i,j,bi,bj)/wevap(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1838	ECCO_COST_WEIGHTS	wevap(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	183	ECCO_COST_WEIGHTS	wkapgm (k,bi,bj) = wkapgm0
./pkg/ecco/ecco_cost_weights.F	1840	ECCO_COST_WEIGHTS	if (wsnowprecip(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1841	ECCO_COST_WEIGHTS	wsnowprecip(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1842	ECCO_COST_WEIGHTS	& 1./wsnowprecip(i,j,bi,bj)/wsnowprecip(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1844	ECCO_COST_WEIGHTS	wsnowprecip(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1846	ECCO_COST_WEIGHTS	if (wapressure(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1847	ECCO_COST_WEIGHTS	wapressure(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1848	ECCO_COST_WEIGHTS	& 1./wapressure(i,j,bi,bj)/wapressure(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	184	ECCO_COST_WEIGHTS	wkapredi (k,bi,bj) = wkapredi0
./pkg/ecco/ecco_cost_weights.F	1850	ECCO_COST_WEIGHTS	wapressure(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1852	ECCO_COST_WEIGHTS	if (wrunoff(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1853	ECCO_COST_WEIGHTS	wrunoff(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1854	ECCO_COST_WEIGHTS	& 1./wrunoff(i,j,bi,bj)/wrunoff(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1856	ECCO_COST_WEIGHTS	wrunoff(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1858	ECCO_COST_WEIGHTS	if (wbottomdrag(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1859	ECCO_COST_WEIGHTS	wbottomdrag(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	185	ECCO_COST_WEIGHTS	wedtaux(k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F	1860	ECCO_COST_WEIGHTS	& 1./wbottomdrag(i,j,bi,bj)/wbottomdrag(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1862	ECCO_COST_WEIGHTS	wbottomdrag(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	186	ECCO_COST_WEIGHTS	wedtauy(k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F	1872	ECCO_COST_WEIGHTS	if (whflux2(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1873	ECCO_COST_WEIGHTS	whflux2(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1874	ECCO_COST_WEIGHTS	& 1./whflux2(i,j,bi,bj)/whflux2(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1876	ECCO_COST_WEIGHTS	whflux2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1878	ECCO_COST_WEIGHTS	if (wsflux2(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1879	ECCO_COST_WEIGHTS	wsflux2(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1880	ECCO_COST_WEIGHTS	& 1./wsflux2(i,j,bi,bj)/wsflux2(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1882	ECCO_COST_WEIGHTS	wsflux2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1884	ECCO_COST_WEIGHTS	if (wtauu2(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1885	ECCO_COST_WEIGHTS	wtauu2(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1886	ECCO_COST_WEIGHTS	& 1./wtauu2(i,j,bi,bj)/wtauu2(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1888	ECCO_COST_WEIGHTS	wtauu2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1890	ECCO_COST_WEIGHTS	if (wtauv2(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1891	ECCO_COST_WEIGHTS	wtauv2(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	1892	ECCO_COST_WEIGHTS	& 1./wtauv2(i,j,bi,bj)/wtauv2(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1894	ECCO_COST_WEIGHTS	wtauv2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	189	ECCO_COST_WEIGHTS	wtheta2 (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	190	ECCO_COST_WEIGHTS	wsalt2 (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	191	ECCO_COST_WEIGHTS	wdiffkr2(i,j,k,bi,bj) = wdiffkr0
./pkg/ecco/ecco_cost_weights.F	192	ECCO_COST_WEIGHTS	wkapgm2 (i,j,k,bi,bj) = wkapgm0
./pkg/ecco/ecco_cost_weights.F	193	ECCO_COST_WEIGHTS	wkapredi2 (i,j,k,bi,bj) = wkapredi0
./pkg/ecco/ecco_cost_weights.F	1945	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	1947	ECCO_COST_WEIGHTS	if (wdiffkr(k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1948	ECCO_COST_WEIGHTS	wdiffkr(k,bi,bj) = 1./wdiffkr(k,bi,bj)/wdiffkr(k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	194	ECCO_COST_WEIGHTS	wedtaux2(i,j,k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F	1950	ECCO_COST_WEIGHTS	wdiffkr(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1952	ECCO_COST_WEIGHTS	if (wkapgm(k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1953	ECCO_COST_WEIGHTS	wkapgm(k,bi,bj) = 1./wkapgm(k,bi,bj)/wkapgm(k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1955	ECCO_COST_WEIGHTS	wkapgm(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1957	ECCO_COST_WEIGHTS	if (wkapredi(k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1958	ECCO_COST_WEIGHTS	wkapredi(k,bi,bj) = 1./wkapredi(k,bi,bj)/wkapredi(k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	195	ECCO_COST_WEIGHTS	wedtauy2(i,j,k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F	1960	ECCO_COST_WEIGHTS	wkapredi(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1962	ECCO_COST_WEIGHTS	if (wedtaux(k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1963	ECCO_COST_WEIGHTS	wedtaux(k,bi,bj) = 1./wedtaux(k,bi,bj)/wedtaux(k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1965	ECCO_COST_WEIGHTS	wedtaux(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1967	ECCO_COST_WEIGHTS	if (wedtauy(k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1968	ECCO_COST_WEIGHTS	wedtauy(k,bi,bj) = 1./wedtauy(k,bi,bj)/wedtauy(k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	196	ECCO_COST_WEIGHTS	wthetaLev (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1970	ECCO_COST_WEIGHTS	wedtauy(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1974	ECCO_COST_WEIGHTS	if (wdiffkr2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1975	ECCO_COST_WEIGHTS	wdiffkr2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F	1976	ECCO_COST_WEIGHTS	& wdiffkr2(i,j,k,bi,bj)/wdiffkr2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1978	ECCO_COST_WEIGHTS	wdiffkr2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	197	ECCO_COST_WEIGHTS	wsaltLev (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	1980	ECCO_COST_WEIGHTS	wdiffkrFld(i,j,k,bi,bj) = wdiffkr2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1982	ECCO_COST_WEIGHTS	if (wkapgm2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1983	ECCO_COST_WEIGHTS	wkapgm2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F	1984	ECCO_COST_WEIGHTS	& wkapgm2(i,j,k,bi,bj)/wkapgm2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1986	ECCO_COST_WEIGHTS	wkapgm2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1988	ECCO_COST_WEIGHTS	wkapgmFld(i,j,k,bi,bj) = wkapgm2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	198	ECCO_COST_WEIGHTS	wdiffkrFld(i,j,k,bi,bj) = wdiffkr0
./pkg/ecco/ecco_cost_weights.F	1990	ECCO_COST_WEIGHTS	if (wkapredi2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1991	ECCO_COST_WEIGHTS	wkapredi2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F	1992	ECCO_COST_WEIGHTS	& wkapredi2(i,j,k,bi,bj)/wkapredi2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1994	ECCO_COST_WEIGHTS	wkapredi2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	1996	ECCO_COST_WEIGHTS	wkaprediFld(i,j,k,bi,bj) = wkapredi2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	1998	ECCO_COST_WEIGHTS	if (wedtaux2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	1999	ECCO_COST_WEIGHTS	wedtaux2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F	199	ECCO_COST_WEIGHTS	wkapgmFld (i,j,k,bi,bj) = wkapgm0
./pkg/ecco/ecco_cost_weights.F	2000	ECCO_COST_WEIGHTS	& wedtaux2(i,j,k,bi,bj)/wedtaux2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	2002	ECCO_COST_WEIGHTS	wedtaux2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	2004	ECCO_COST_WEIGHTS	wedtauxFld(i,j,k,bi,bj) = wedtaux2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	2006	ECCO_COST_WEIGHTS	if (wedtauy2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	2007	ECCO_COST_WEIGHTS	wedtauy2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F	2008	ECCO_COST_WEIGHTS	& wedtauy2(i,j,k,bi,bj)/wedtauy2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	200	ECCO_COST_WEIGHTS	wkaprediFld (i,j,k,bi,bj) = wkapredi0
./pkg/ecco/ecco_cost_weights.F	2010	ECCO_COST_WEIGHTS	wedtauy2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	2012	ECCO_COST_WEIGHTS	wedtauyFld(i,j,k,bi,bj) = wedtauy2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	201	ECCO_COST_WEIGHTS	wedtauxFld(i,j,k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F	202	ECCO_COST_WEIGHTS	wedtauyFld(i,j,k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F	205	ECCO_COST_WEIGHTS	wuvel3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	206	ECCO_COST_WEIGHTS	wvvel3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	267	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	272	ECCO_COST_WEIGHTS	cosphi(i,j,bi,bj) = frame(i,j)
./pkg/ecco/ecco_cost_weights.F	318	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	328	ECCO_COST_WEIGHTS	wtheta(k,bi,bj) = wti(k)
./pkg/ecco/ecco_cost_weights.F	329	ECCO_COST_WEIGHTS	wsalt (k,bi,bj) = wsi(k)
./pkg/ecco/ecco_cost_weights.F	330	ECCO_COST_WEIGHTS	wcurrent(k,bi,bj) = wvi(k)
./pkg/ecco/ecco_cost_weights.F	332	ECCO_COST_WEIGHTS	if (wtheta(k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	333	ECCO_COST_WEIGHTS	wtheta(k,bi,bj) = ratio/wtheta(k,bi,bj)/wtheta(k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	335	ECCO_COST_WEIGHTS	wtheta(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	337	ECCO_COST_WEIGHTS	if (wsalt(k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F	338	ECCO_COST_WEIGHTS	wsalt(k,bi,bj) = ratio/wsalt(k,bi,bj)/wsalt(k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	340	ECCO_COST_WEIGHTS	wsalt(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F	384	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	389	ECCO_COST_WEIGHTS	if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F	390	ECCO_COST_WEIGHTS	wsaltLev(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	392	ECCO_COST_WEIGHTS	wsaltLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	393	ECCO_COST_WEIGHTS	$ ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	402	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	406	ECCO_COST_WEIGHTS	wsaltLev(i,j,k,bi,bj)=
./pkg/ecco/ecco_cost_weights.F	407	ECCO_COST_WEIGHTS	$ wsalt(k,bi,bj)frame(i,j)maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	427	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	432	ECCO_COST_WEIGHTS	if ( wthetaLev(i,j,k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F	433	ECCO_COST_WEIGHTS	wthetaLev(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	435	ECCO_COST_WEIGHTS	wthetaLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	436	ECCO_COST_WEIGHTS	$ ( wthetaLev(i,j,k,bi,bj)*wthetaLev(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	445	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	449	ECCO_COST_WEIGHTS	wthetaLev(i,j,k,bi,bj)=
./pkg/ecco/ecco_cost_weights.F	450	ECCO_COST_WEIGHTS	$ wtheta(k,bi,bj)frame(i,j)maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	473	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	478	ECCO_COST_WEIGHTS	if (wsalt(k,bi,bj).eq.0. .or.
./pkg/ecco/ecco_cost_weights.F	479	ECCO_COST_WEIGHTS	$ wsalt2(i,j,k,bi,bj).eq.0.) then
./pkg/ecco/ecco_cost_weights.F	480	ECCO_COST_WEIGHTS	wsalt2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	482	ECCO_COST_WEIGHTS	wsalt2(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	483	ECCO_COST_WEIGHTS	$ ( wsalt2(i,j,k,bi,bj)*wsalt2(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	492	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	496	ECCO_COST_WEIGHTS	wsalt2(i,j,k,bi,bj)=
./pkg/ecco/ecco_cost_weights.F	497	ECCO_COST_WEIGHTS	$ wsalt(k,bi,bj)frame(i,j)maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	520	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	525	ECCO_COST_WEIGHTS	if (wtheta(k,bi,bj).eq.0. .or.
./pkg/ecco/ecco_cost_weights.F	526	ECCO_COST_WEIGHTS	$ wtheta2(i,j,k,bi,bj).eq.0.) then
./pkg/ecco/ecco_cost_weights.F	527	ECCO_COST_WEIGHTS	wtheta2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	529	ECCO_COST_WEIGHTS	wtheta2(i,j,k,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	530	ECCO_COST_WEIGHTS	$ ( wtheta2(i,j,k,bi,bj)*wtheta2(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	539	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	543	ECCO_COST_WEIGHTS	if (wtheta(k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F	544	ECCO_COST_WEIGHTS	wtheta2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	546	ECCO_COST_WEIGHTS	wtheta2(i,j,k,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	547	ECCO_COST_WEIGHTS	$ wtheta(k,bi,bj)frame(i,j)maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	571	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	580	ECCO_COST_WEIGHTS	if (wsst(i,j,bi,bj).ne.0)
./pkg/ecco/ecco_cost_weights.F	581	ECCO_COST_WEIGHTS	& wsst(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	582	ECCO_COST_WEIGHTS	& ( wsst(i,j,bi,bj)*wsst(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	586	ECCO_COST_WEIGHTS	wsst(i,j,bi,bj) = wtheta2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	588	ECCO_COST_WEIGHTS	wsst(i,j,bi,bj) = wthetaLev(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	58	ECCO_COST_WEIGHTS	integer bi,bj
./pkg/ecco/ecco_cost_weights.F	590	ECCO_COST_WEIGHTS	wsst(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	591	ECCO_COST_WEIGHTS	& wtheta(k,bi,bj)frame(i,j)maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	600	ECCO_COST_WEIGHTS	if (wsss(i,j,bi,bj).ne.0)
./pkg/ecco/ecco_cost_weights.F	601	ECCO_COST_WEIGHTS	& wsss(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	602	ECCO_COST_WEIGHTS	& ( wsss(i,j,bi,bj)*wsss(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	607	ECCO_COST_WEIGHTS	wsss(i,j,bi,bj) = wsalt2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	609	ECCO_COST_WEIGHTS	wsss(i,j,bi,bj) = wsaltLev(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	611	ECCO_COST_WEIGHTS	wsss(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F	612	ECCO_COST_WEIGHTS	& wsalt(k,bi,bj)frame(i,j)maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	643	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	646	ECCO_COST_WEIGHTS	wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F	648	ECCO_COST_WEIGHTS	if ( xC(i,j,bi,bj) .GT. 120. .AND.
./pkg/ecco/ecco_cost_weights.F	649	ECCO_COST_WEIGHTS	& xC(i,j,bi,bj) .LT. 130. .AND.
./pkg/ecco/ecco_cost_weights.F	650	ECCO_COST_WEIGHTS	& yC(i,j,bi,bj) .GT. -10. .AND.
./pkg/ecco/ecco_cost_weights.F	651	ECCO_COST_WEIGHTS	& yC(i,j,bi,bj) .LT. 10. ) then
./pkg/ecco/ecco_cost_weights.F	652	ECCO_COST_WEIGHTS	wp(i,j,bi,bj) = wp(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F	662	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	665	ECCO_COST_WEIGHTS	wp(i,j,bi,bj) = frame(i,j)
./pkg/ecco/ecco_cost_weights.F	682	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	688	ECCO_COST_WEIGHTS	if (maskC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_weights.F	689	ECCO_COST_WEIGHTS	wtp (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	690	ECCO_COST_WEIGHTS	wers(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	691	ECCO_COST_WEIGHTS	wgfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	693	ECCO_COST_WEIGHTS	wtp (i,j,bi,bj) = ( wtp(i,j,bi,bj) * 0.01 * 0.5 )
./pkg/ecco/ecco_cost_weights.F	695	ECCO_COST_WEIGHTS	wers(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 )
./pkg/ecco/ecco_cost_weights.F	697	ECCO_COST_WEIGHTS	wgfo(i,j,bi,bj) = wers(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	721	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	725	ECCO_COST_WEIGHTS	if (maskC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_weights.F	727	ECCO_COST_WEIGHTS	& wtp (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	729	ECCO_COST_WEIGHTS	& wers(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	731	ECCO_COST_WEIGHTS	& wgfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	735	ECCO_COST_WEIGHTS	wtp (i,j,bi,bj) = wtp (i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F	741	ECCO_COST_WEIGHTS	wers(i,j,bi,bj) = wers(i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F	742	ECCO_COST_WEIGHTS	if ( wers(i,j,bi,bj) .EQ. 0. )
./pkg/ecco/ecco_cost_weights.F	743	ECCO_COST_WEIGHTS	& wers(i,j,bi,bj) = 0.1 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F	746	ECCO_COST_WEIGHTS	wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F	747	ECCO_COST_WEIGHTS	if ( wgfo(i,j,bi,bj) .EQ. 0. )
./pkg/ecco/ecco_cost_weights.F	748	ECCO_COST_WEIGHTS	& wgfo(i,j,bi,bj) = 0.1 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F	758	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	762	ECCO_COST_WEIGHTS	if ( xC(i,j,bi,bj) .GT. 120. .AND.
./pkg/ecco/ecco_cost_weights.F	763	ECCO_COST_WEIGHTS	& xC(i,j,bi,bj) .LT. 130. .AND.
./pkg/ecco/ecco_cost_weights.F	764	ECCO_COST_WEIGHTS	& yC(i,j,bi,bj) .GT. -10. .AND.
./pkg/ecco/ecco_cost_weights.F	765	ECCO_COST_WEIGHTS	& yC(i,j,bi,bj) .LT. 10. ) then
./pkg/ecco/ecco_cost_weights.F	766	ECCO_COST_WEIGHTS	wtp(i,j,bi,bj) = wtp(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F	767	ECCO_COST_WEIGHTS	wers(i,j,bi,bj) = wers(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F	768	ECCO_COST_WEIGHTS	wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F	788	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	791	ECCO_COST_WEIGHTS	wsshv4tmp(i,j,bi,bj)=wsshv4tmp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	799	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	802	ECCO_COST_WEIGHTS	wsshv4tmp(i,j,bi,bj)=0. _d 0
./pkg/ecco/ecco_cost_weights.F	810	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	813	ECCO_COST_WEIGHTS	if (wsshv4tmp(i,j,bi,bj).ne.0) then
./pkg/ecco/ecco_cost_weights.F	814	ECCO_COST_WEIGHTS	wsshv4tmp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	815	ECCO_COST_WEIGHTS	& ( wsshv4tmp(i,j,bi,bj)* wsshv4tmp(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	816	ECCO_COST_WEIGHTS	wsshv4(i,j,num_var,bi,bj)=wsshv4tmp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	838	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	841	ECCO_COST_WEIGHTS	if (wbp(i,j,bi,bj).ne.0)
./pkg/ecco/ecco_cost_weights.F	842	ECCO_COST_WEIGHTS	& wbp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	843	ECCO_COST_WEIGHTS	& ( wbp(i,j,bi,bj)* wbp(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	859	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	862	ECCO_COST_WEIGHTS	if (wies(i,j,bi,bj).ne.0)
./pkg/ecco/ecco_cost_weights.F	863	ECCO_COST_WEIGHTS	& wies(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F	864	ECCO_COST_WEIGHTS	& ( wies(i,j,bi,bj)* wies(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F	888	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	893	ECCO_COST_WEIGHTS	if (wscatx(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	894	ECCO_COST_WEIGHTS	wscatx(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	896	ECCO_COST_WEIGHTS	wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	897	ECCO_COST_WEIGHTS	wscatx(i,j,bi,bj) = max(wscatx(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F	898	ECCO_COST_WEIGHTS	wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)*maskw(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	900	ECCO_COST_WEIGHTS	if (wscaty(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	901	ECCO_COST_WEIGHTS	wscaty(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	903	ECCO_COST_WEIGHTS	wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F	904	ECCO_COST_WEIGHTS	wscaty(i,j,bi,bj) = max(wscaty(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F	905	ECCO_COST_WEIGHTS	wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)*masks(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	925	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	930	ECCO_COST_WEIGHTS	if (wtauum(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	931	ECCO_COST_WEIGHTS	wtauum(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	933	ECCO_COST_WEIGHTS	wtauum(i,j,bi,bj) = max(wtauum(i,j,bi,bj),wtau0m)
./pkg/ecco/ecco_cost_weights.F	936	ECCO_COST_WEIGHTS	if (wtauvm(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	937	ECCO_COST_WEIGHTS	wtauvm(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	939	ECCO_COST_WEIGHTS	wtauvm(i,j,bi,bj) = max(wtauvm(i,j,bi,bj),wtau0m)
./pkg/ecco/ecco_cost_weights.F	959	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_cost_weights.F	964	ECCO_COST_WEIGHTS	if (wtauu(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F	965	ECCO_COST_WEIGHTS	wtauu(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F	967	ECCO_COST_WEIGHTS	wtauu(i,j,bi,bj) = max(wtauu(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F	969	ECCO_COST_WEIGHTS	wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskw(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	972	ECCO_COST_WEIGHTS	wtauu2(i,j,bi,bj) = wtau0maskW(i,j,k,bi,bj)frame(i,j)
./pkg/ecco/ecco_cost_weights.F	975	ECCO_COST_WEIGHTS	wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskc(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F	977	ECCO_COST_WEIGHTS	wtauu2(i,j,bi,bj) = wtau0maskc(i,j,k,bi,bj)frame(i,j)
./pkg/ecco/ecco_cost_weights.F	997	ECCO_COST_WEIGHTS	do bi = itlo,ithi
./pkg/ecco/ecco_phys.F	100	ECCO_PHYS	& hFacC(i,j,k,bi,bj)drF(k)rA(i,j,bi,bj)
./pkg/ecco/ecco_phys.F	129	ECCO_PHYS	DO bi=myBxLo(myThid),myBxHi(myThid)
./pkg/ecco/ecco_phys.F	132	ECCO_PHYS	m_eta(i,j,bi,bj)=
./pkg/ecco/ecco_phys.F	133	ECCO_PHYS	& etan(i,j,bi,bj)
./pkg/ecco/ecco_phys.F	135	ECCO_PHYS	& +sIceLoad(i,j,bi,bj)*sIceLoadFac
./pkg/ecco/ecco_phys.F	146	ECCO_PHYS	DO bi=myBxLo(myThid),myBxHi(myThid)
./pkg/ecco/ecco_phys.F	150	ECCO_PHYS	m_UE(i,j,k,bi,bj)=0. _d 0
./pkg/ecco/ecco_phys.F	151	ECCO_PHYS	m_VN(i,j,k,bi,bj)=0. _d 0
./pkg/ecco/ecco_phys.F	175	ECCO_PHYS	DO bi=myBxLo(myThid),myBxHi(myThid)
./pkg/ecco/ecco_phys.F	194	ECCO_PHYS	& uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj)
./pkg/ecco/ecco_phys.F	195	ECCO_PHYS	& dyG(i,j,bi,bj)drF(k)*msktrVolW(i,j,bi,bj)
./pkg/ecco/ecco_phys.F	196	ECCO_PHYS	& *maskInW(i,j,bi,bj)
./pkg/ecco/ecco_phys.F	198	ECCO_PHYS	& vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj)
./pkg/ecco/ecco_phys.F	199	ECCO_PHYS	& dxG(i,j,bi,bj)drF(k)*msktrVolS(i,j,bi,bj)
./pkg/ecco/ecco_phys.F	200	ECCO_PHYS	& *maskInS(i,j,bi,bj)
./pkg/ecco/ecco_phys.F	203	ECCO_PHYS	& (theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj))halfRL
./pkg/ecco/ecco_phys.F	206	ECCO_PHYS	& (theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj))halfRL
./pkg/ecco/ecco_phys.F	210	ECCO_PHYS	& (salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj))halfRL
./pkg/ecco/ecco_phys.F	213	ECCO_PHYS	& (salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj))halfRL
./pkg/ecco/ecco_phys.F	216	ECCO_PHYS	trVol(i,j,k,bi,bj)=trVolW(i,j,k)+trVolS(i,j,k)
./pkg/ecco/ecco_phys.F	217	ECCO_PHYS	trHeat(i,j,k,bi,bj)=trHeatW(i,j,k)+trHeatS(i,j,k)
./pkg/ecco/ecco_phys.F	218	ECCO_PHYS	trSalt(i,j,k,bi,bj)=trSaltW(i,j,k)+trSaltS(i,j,k)
./pkg/ecco/ecco_phys.F	236	ECCO_PHYS	do bi=myBxLo(myThid),myBxHi(myThid)
./pkg/ecco/ecco_phys.F	237	ECCO_PHYS	areavolTile(bi,bj)=0. _d 0
./pkg/ecco/ecco_phys.F	243	ECCO_PHYS	do bi=myBxLo(myThid),myBxHi(myThid)
./pkg/ecco/ecco_phys.F	248	ECCO_PHYS	tmpvol=hFacC(i,j,k,bi,bj)drF(k)rA(i,j,bi,bj)
./pkg/ecco/ecco_phys.F	252	ECCO_PHYS	tmpmsk=gencost_mskCsurf(i,j,bi,bj,kgen)*
./pkg/ecco/ecco_phys.F	257	ECCO_PHYS	tmpmsk=gencost_mskC(i,j,k,bi,bj,kgen3d)
./pkg/ecco/ecco_phys.F	264	ECCO_PHYS	tmpfld=theta(i,j,k,bi,bj)
./pkg/ecco/ecco_phys.F	268	ECCO_PHYS	tmpfld=salt(i,j,k,bi,bj)
./pkg/ecco/ecco_phys.F	273	ECCO_PHYS	tmpfld=pTracer(i,j,k,bi,bj,itr)
./pkg/ecco/ecco_phys.F	278	ECCO_PHYS	gencost_storefld(i,j,bi,bj,kgen) =
./pkg/ecco/ecco_phys.F	279	ECCO_PHYS	& gencost_storefld(i,j,bi,bj,kgen)
./pkg/ecco/ecco_phys.F	281	ECCO_PHYS	areavolTile(bi,bj)=areavolTile(bi,bj)
./pkg/ecco/ecco_phys.F	282	ECCO_PHYS	& +tmpmsk2*eccoVol_0(i,j,k,bi,bj)
./pkg/ecco/ecco_phys.F	286	ECCO_PHYS	tmpmsk=maskC(i,j,1,bi,bj)*gencost_mskCsurf(i,j,bi,bj,kgen)
./pkg/ecco/ecco_phys.F	290	ECCO_PHYS	tmpfld=m_eta(i,j,bi,bj)
./pkg/ecco/ecco_phys.F	294	ECCO_PHYS	gencost_storefld(i,j,bi,bj,kgen) =
./pkg/ecco/ecco_phys.F	295	ECCO_PHYS	& gencost_storefld(i,j,bi,bj,kgen)
./pkg/ecco/ecco_phys.F	296	ECCO_PHYS	& +tmpmsktmpfldrA(i,j,bi,bj)
./pkg/ecco/ecco_phys.F	297	ECCO_PHYS	areavolTile(bi,bj)=areavolTile(bi,bj)
./pkg/ecco/ecco_phys.F	298	ECCO_PHYS	& +tmpmsk2*rA(i,j,bi,bj)
./pkg/ecco/ecco_phys.F	305	ECCO_PHYS	tmpmskW=gencost_mskWsurf(i,j,bi,bj,kgen)
./pkg/ecco/ecco_phys.F	307	ECCO_PHYS	tmpmskS=gencost_mskSsurf(i,j,bi,bj,kgen)
./pkg/ecco/ecco_phys.F	312	ECCO_PHYS	tmpmskW=gencost_mskW(i,j,k,bi,bj,kgen3d)
./pkg/ecco/ecco_phys.F	313	ECCO_PHYS	tmpmskS=gencost_mskS(i,j,k,bi,bj,kgen3d)
./pkg/ecco/ecco_phys.F	316	ECCO_PHYS	tmpmskW=tmpmskWhFacW(i,j,k,bi,bj)dyG(i,j,bi,bj)*drF(k)
./pkg/ecco/ecco_phys.F	317	ECCO_PHYS	tmpmskS=tmpmskShFacS(i,j,k,bi,bj)dxG(i,j,bi,bj)*drF(k)
./pkg/ecco/ecco_phys.F	320	ECCO_PHYS	gencost_storefld(i,j,bi,bj,kgen) =
./pkg/ecco/ecco_phys.F	321	ECCO_PHYS	& gencost_storefld(i,j,bi,bj,kgen)
./pkg/ecco/ecco_phys.F	322	ECCO_PHYS	& +uVel(i,j,k,bi,bj)*tmpmskW
./pkg/ecco/ecco_phys.F	323	ECCO_PHYS	& +vVel(i,j,k,bi,bj)*tmpmskS
./pkg/ecco/ecco_phys.F	40	ECCO_PHYS	integer bi,bj
./pkg/ecco/ecco_phys.F	75	ECCO_PHYS	DO bi=myBxLo(myThid),myBxHi(myThid)
./pkg/ecco/ecco_phys.F	79	ECCO_PHYS	I theta(1-OLx,1-OLy,k,bi,bj),
./pkg/ecco/ecco_phys.F	80	ECCO_PHYS	I salt (1-OLx,1-OLy,k,bi,bj),
./pkg/ecco/ecco_phys.F	81	ECCO_PHYS	O RHOInSituLoc(1-OLx,1-OLy,k,bi,bj),
./pkg/ecco/ecco_phys.F	82	ECCO_PHYS	I k, bi, bj, myThid )
./pkg/ecco/ecco_phys.F	88	ECCO_PHYS	DO bi=myBxLo(myThid),myBxHi(myThid)
./pkg/ecco/ecco_phys.F	89	ECCO_PHYS	RHOsumTile(bi,bj)=0. _d 0
./pkg/ecco/ecco_phys.F	90	ECCO_PHYS	VOLsumTile(bi,bj)=0. _d 0
./pkg/ecco/ecco_phys.F	96	ECCO_PHYS	RHOsumTile(bi,bj)=RHOsumTile(bi,bj)+
./pkg/ecco/ecco_phys.F	97	ECCO_PHYS	& (rhoConst+RHOInSituLoc(i,j,k,bi,bj))*
./pkg/ecco/ecco_phys.F	98	ECCO_PHYS	& hFacC(i,j,k,bi,bj)drF(k)rA(i,j,bi,bj)
./pkg/ecco/ecco_phys.F	99	ECCO_PHYS	VOLsumTile(bi,bj)=VOLsumTile(bi,bj)+
./pkg/ecco/ecco_toolbox.F	1015	ECCO_MULT	do bi = itlo,ithi
./pkg/ecco/ecco_toolbox.F	1019	ECCO_MULT	fld(i,j,k,bi,bj) = fld(i,j,k,bi,bj)*multloc
./pkg/ecco/ecco_toolbox.F	1058	ECCO_MULTFIELD	integer bi,bj
./pkg/ecco/ecco_toolbox.F	1077	ECCO_MULTFIELD	do bi = itlo,ithi
./pkg/ecco/ecco_toolbox.F	1081	ECCO_MULTFIELD	fld2(i,j,k,bi,bj) = fld(i,j,k,bi,bj)*
./pkg/ecco/ecco_toolbox.F	1082	ECCO_MULTFIELD	& fld2(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	1212	ECCO_READWEI	integer bi,bj
./pkg/ecco/ecco_toolbox.F	1234	ECCO_READWEI	DO bi=myBxLo(myThid),myBxHi(myThid)
./pkg/ecco/ecco_toolbox.F	1239	ECCO_READWEI	if (localweight(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_toolbox.F	1240	ECCO_READWEI	localweight(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_toolbox.F	1243	ECCO_READWEI	if (localweight(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_toolbox.F	1244	ECCO_READWEI	localweight(i,j,k,bi,bj) =
./pkg/ecco/ecco_toolbox.F	1245	ECCO_READWEI	& 1./localweight(i,j,k,bi,bj)/
./pkg/ecco/ecco_toolbox.F	1246	ECCO_READWEI	& localweight(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	133	ECCO_DIFFMSK	integer bi,bj
./pkg/ecco/ecco_toolbox.F	154	ECCO_DIFFMSK	do bi = itlo,ithi
./pkg/ecco/ecco_toolbox.F	159	ECCO_DIFFMSK	difmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)*
./pkg/ecco/ecco_toolbox.F	160	ECCO_DIFFMSK	& localmask(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	162	ECCO_DIFFMSK	difmask(i,j,k,bi,bj) = localmask(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	164	ECCO_DIFFMSK	if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/ecco/ecco_toolbox.F	165	ECCO_DIFFMSK	& localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/ecco/ecco_toolbox.F	166	ECCO_DIFFMSK	& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/ecco/ecco_toolbox.F	167	ECCO_DIFFMSK	difmask(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_toolbox.F	169	ECCO_DIFFMSK	localdif(i,j,k,bi,bj) = difmask(i,j,k,bi,bj)*
./pkg/ecco/ecco_toolbox.F	170	ECCO_DIFFMSK	& (localbar(i,j,k,bi,bj)-localobs(i,j,k,bi,bj))
./pkg/ecco/ecco_toolbox.F	229	ECCO_DIFFANOMMSK	integer bi,bj
./pkg/ecco/ecco_toolbox.F	250	ECCO_DIFFANOMMSK	do bi = itlo,ithi
./pkg/ecco/ecco_toolbox.F	255	ECCO_DIFFANOMMSK	difmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)*
./pkg/ecco/ecco_toolbox.F	256	ECCO_DIFFANOMMSK	& localmask(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	258	ECCO_DIFFANOMMSK	difmask(i,j,k,bi,bj) = localmask(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	260	ECCO_DIFFANOMMSK	if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/ecco/ecco_toolbox.F	261	ECCO_DIFFANOMMSK	& localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/ecco/ecco_toolbox.F	262	ECCO_DIFFANOMMSK	& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/ecco/ecco_toolbox.F	263	ECCO_DIFFANOMMSK	difmask(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_toolbox.F	265	ECCO_DIFFANOMMSK	localdif(i,j,k,bi,bj) = difmask(i,j,k,bi,bj)*
./pkg/ecco/ecco_toolbox.F	266	ECCO_DIFFANOMMSK	& ( (localbar(i,j,k,bi,bj)-localbarmean(i,j,k,bi,bj))
./pkg/ecco/ecco_toolbox.F	267	ECCO_DIFFANOMMSK	& -(localobs(i,j,k,bi,bj)-localobsmean(i,j,k,bi,bj)) )
./pkg/ecco/ecco_toolbox.F	322	ECCO_OBSMSK	integer bi,bj
./pkg/ecco/ecco_toolbox.F	343	ECCO_OBSMSK	do bi = itlo,ithi
./pkg/ecco/ecco_toolbox.F	348	ECCO_OBSMSK	obsmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)*
./pkg/ecco/ecco_toolbox.F	349	ECCO_OBSMSK	& localmask(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	351	ECCO_OBSMSK	obsmask(i,j,k,bi,bj) = localmask(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	353	ECCO_OBSMSK	if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/ecco/ecco_toolbox.F	354	ECCO_OBSMSK	& localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/ecco/ecco_toolbox.F	355	ECCO_OBSMSK	& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/ecco/ecco_toolbox.F	356	ECCO_OBSMSK	obsmask(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_toolbox.F	358	ECCO_OBSMSK	localout(i,j,k,bi,bj) = obsmask(i,j,k,bi,bj)*
./pkg/ecco/ecco_toolbox.F	359	ECCO_OBSMSK	& localbar(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	407	ECCO_CP	integer bi,bj
./pkg/ecco/ecco_toolbox.F	428	ECCO_CP	do bi = itlo,ithi
./pkg/ecco/ecco_toolbox.F	432	ECCO_CP	fldOut(i,j,k,bi,bj) = fldIn(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	480	ECCO_CPRSRL	integer bi,bj
./pkg/ecco/ecco_toolbox.F	501	ECCO_CPRSRL	do bi = itlo,ithi
./pkg/ecco/ecco_toolbox.F	505	ECCO_CPRSRL	fldOut(i,j,k,bi,bj) = fldIn(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	52	ECCO_ZERO	integer bi,bj
./pkg/ecco/ecco_toolbox.F	560	ECCO_ADDCOST	integer bi,bj
./pkg/ecco/ecco_toolbox.F	586	ECCO_ADDCOST	do bi = itlo,ithi
./pkg/ecco/ecco_toolbox.F	591	ECCO_ADDCOST	localwww = localweight(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	592	ECCO_ADDCOST	& * difmask(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	593	ECCO_ADDCOST	junk = localdif(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	600	ECCO_ADDCOST	& num_local(bi,bj) = num_local(bi,bj) + 1. _d 0
./pkg/ecco/ecco_toolbox.F	604	ECCO_ADDCOST	objf_local(bi,bj) = objf_local(bi,bj) + localcost
./pkg/ecco/ecco_toolbox.F	649	ECCO_ADD	integer bi,bj
./pkg/ecco/ecco_toolbox.F	670	ECCO_ADD	do bi = itlo,ithi
./pkg/ecco/ecco_toolbox.F	674	ECCO_ADD	fldOut(i,j,k,bi,bj) = fldOut(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	675	ECCO_ADD	& + fldIn(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	723	ECCO_SUBTRACT	integer bi,bj
./pkg/ecco/ecco_toolbox.F	73	ECCO_ZERO	do bi = itlo,ithi
./pkg/ecco/ecco_toolbox.F	742	ECCO_SUBTRACT	do bi = itlo,ithi
./pkg/ecco/ecco_toolbox.F	746	ECCO_SUBTRACT	fldOut(i,j,k,bi,bj) = fldOut(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	747	ECCO_SUBTRACT	& - fldIn(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	77	ECCO_ZERO	fld(i,j,k,bi,bj) = zeroloc
./pkg/ecco/ecco_toolbox.F	798	ECCO_ADDMASK	integer bi,bj
./pkg/ecco/ecco_toolbox.F	819	ECCO_ADDMASK	do bi = itlo,ithi
./pkg/ecco/ecco_toolbox.F	823	ECCO_ADDMASK	if(fldInmask(i,j,k,bi,bj) .NE. 0. _d 0) then
./pkg/ecco/ecco_toolbox.F	824	ECCO_ADDMASK	fldOut(i,j,k,bi,bj) = fldOut(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	825	ECCO_ADDMASK	& + fldIn(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	826	ECCO_ADDMASK	fldOutnum(i,j,k,bi,bj) = fldOutnum(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	867	ECCO_DIV	integer bi,bj
./pkg/ecco/ecco_toolbox.F	886	ECCO_DIV	do bi = itlo,ithi
./pkg/ecco/ecco_toolbox.F	890	ECCO_DIV	fld(i,j,k,bi,bj) = fld(i,j,k,bi,bj)/numerloc
./pkg/ecco/ecco_toolbox.F	929	ECCO_DIVFIELD	integer bi,bj
./pkg/ecco/ecco_toolbox.F	948	ECCO_DIVFIELD	do bi = itlo,ithi
./pkg/ecco/ecco_toolbox.F	952	ECCO_DIVFIELD	if(flddenom(i,j,k,bi,bj) .NE. 0. _d 0) then
./pkg/ecco/ecco_toolbox.F	953	ECCO_DIVFIELD	fld(i,j,k,bi,bj) = fld(i,j,k,bi,bj)/
./pkg/ecco/ecco_toolbox.F	954	ECCO_DIVFIELD	& flddenom(i,j,k,bi,bj)
./pkg/ecco/ecco_toolbox.F	956	ECCO_DIVFIELD	fld(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_toolbox.F	996	ECCO_MULT	integer bi,bj
./pkg/exch2/exch2_check_depths.F	112	EXCH2_CHECK_DEPTHS	& 'tile #', tId, ' (bi,bj=', bi, ',', bj, ' ):'
./pkg/exch2/exch2_check_depths.F	48	EXCH2_CHECK_DEPTHS	INTEGER bi, bj, tId
./pkg/exch2/exch2_check_depths.F	60	EXCH2_CHECK_DEPTHS	DO bi = myBxLo(myThid), myBxHi(myThid)
./pkg/exch2/exch2_check_depths.F	65	EXCH2_CHECK_DEPTHS	tmpFld(0,j) = rHigh( 1 ,j,bi,bj) - rLow( 1 ,j,bi,bj)
./pkg/exch2/exch2_check_depths.F	66	EXCH2_CHECK_DEPTHS	tmpFld(i,j) = rHigh(sNx,j,bi,bj) - rLow(sNx,j,bi,bj)
./pkg/exch2/exch2_check_depths.F	70	EXCH2_CHECK_DEPTHS	tmpFld(i,0) = rHigh(i, 1 ,bi,bj) - rLow(i, 1 ,bi,bj)
./pkg/exch2/exch2_check_depths.F	71	EXCH2_CHECK_DEPTHS	tmpFld(i,j) = rHigh(i,sNy,bi,bj) - rLow(i,sNy,bi,bj)
./pkg/exch2/exch2_check_depths.F	75	EXCH2_CHECK_DEPTHS	tId = W2_myTileList(bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F	138	W2_CUMULSUM_Z_TILE_RL	DO bi=1,nSx
./pkg/exch2/w2_cumulsum_z_tile.F	139	W2_CUMULSUM_Z_TILE_RL	tN = W2_procTileList(bi,bj,np)
./pkg/exch2/w2_cumulsum_z_tile.F	140	W2_CUMULSUM_Z_TILE_RL	globalBuf(1,tN) = loc2Buf(1,bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F	141	W2_CUMULSUM_Z_TILE_RL	globalBuf(2,tN) = loc2Buf(2,bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F	157	W2_CUMULSUM_Z_TILE_RL	DO bi=1,nSx
./pkg/exch2/w2_cumulsum_z_tile.F	158	W2_CUMULSUM_Z_TILE_RL	tN = W2_myTileList(bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F	159	W2_CUMULSUM_Z_TILE_RL	globalBuf(1,tN) = shareBufCS2_R8(1,bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F	160	W2_CUMULSUM_Z_TILE_RL	globalBuf(2,tN) = shareBufCS2_R8(2,bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F	192	W2_CUMULSUM_Z_TILE_RL	DO bi=1,nbTx-1
./pkg/exch2/w2_cumulsum_z_tile.F	193	W2_CUMULSUM_Z_TILE_RL	tN = facet_owns(1,j) + bi-1
./pkg/exch2/w2_cumulsum_z_tile.F	198	W2_CUMULSUM_Z_TILE_RL	DO bi=1,nbTx
./pkg/exch2/w2_cumulsum_z_tile.F	199	W2_CUMULSUM_Z_TILE_RL	tN = tS + bi
./pkg/exch2/w2_cumulsum_z_tile.F	205	W2_CUMULSUM_Z_TILE_RL	DO bi=1,nbTx
./pkg/exch2/w2_cumulsum_z_tile.F	206	W2_CUMULSUM_Z_TILE_RL	tN = facet_owns(1,j) + bi-1
./pkg/exch2/w2_cumulsum_z_tile.F	243	W2_CUMULSUM_Z_TILE_RL	DO bi=1,nSx
./pkg/exch2/w2_cumulsum_z_tile.F	244	W2_CUMULSUM_Z_TILE_RL	tN = W2_myTileList(bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F	245	W2_CUMULSUM_Z_TILE_RL	shareBufCS1_R8(bi,bj) = globalBuf(3,tN)
./pkg/exch2/w2_cumulsum_z_tile.F	256	W2_CUMULSUM_Z_TILE_RL	DO bi=1,nSx
./pkg/exch2/w2_cumulsum_z_tile.F	257	W2_CUMULSUM_Z_TILE_RL	tN = W2_procTileList(bi,bj,np)
./pkg/exch2/w2_cumulsum_z_tile.F	258	W2_CUMULSUM_Z_TILE_RL	loc1Buf(bi,bj) = globalBuf(3,tN)
./pkg/exch2/w2_cumulsum_z_tile.F	277	W2_CUMULSUM_Z_TILE_RL	DO bi = myBxLo(myThid), myBxHi(myThid)
./pkg/exch2/w2_cumulsum_z_tile.F	278	W2_CUMULSUM_Z_TILE_RL	psiZ(bi,bj) = shareBufCS1_R8(bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F	62	W2_CUMULSUM_Z_TILE_RL	INTEGER bi,bj
./pkg/exch2/w2_cumulsum_z_tile.F	91	W2_CUMULSUM_Z_TILE_RL	DO bi = myBxLo(myThid), myBxHi(myThid)
./pkg/exch2/w2_cumulsum_z_tile.F	92	W2_CUMULSUM_Z_TILE_RL	shareBufCS2_R8(1,bi,bj) = dPsiX(bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F	93	W2_CUMULSUM_Z_TILE_RL	shareBufCS2_R8(2,bi,bj) = dPsiY(bi,bj)
./pkg/exch2/w2_map_procs.F	110	W2_MAP_PROCS	DO bi=1,nSx
./pkg/exch2/w2_map_procs.F	111	W2_MAP_PROCS	myTileId = W2_myTileList(bi,bj)
./pkg/exch2/w2_map_procs.F	140	W2_MAP_PROCS	DO bi=1,nSx
./pkg/exch2/w2_map_procs.F	141	W2_MAP_PROCS	myTileId = W2_myTileList(bi,bj)
./pkg/exch2/w2_map_procs.F	143	W2_MAP_PROCS	& ' TILE: ', myTileId,' (bi,bj=', bi, bj, ' )',
./pkg/exch2/w2_map_procs.F	167	W2_MAP_PROCS	W2_myCommFlag(J,bi,bj) = commFlag
./pkg/exch2/w2_map_procs.F	46	W2_MAP_PROCS	INTEGER np, ii, jj, bi, bj
./pkg/exch2/w2_map_procs.F	56	W2_MAP_PROCS	DO bi=1,nSx
./pkg/exch2/w2_map_procs.F	57	W2_MAP_PROCS	W2_myTileList(bi,bj) = 0
./pkg/exch2/w2_map_procs.F	59	W2_MAP_PROCS	W2_procTileList(bi,bj,np) = 0
./pkg/exch2/w2_map_procs.F	62	W2_MAP_PROCS	W2_myCommFlag(J,bi,bj) = ' '
./pkg/exch2/w2_map_procs.F	92	W2_MAP_PROCS	bi = 1 + MOD(ii,nSx)
./pkg/exch2/w2_map_procs.F	95	W2_MAP_PROCS	W2_tileIndex(I)= bi + (bj-1)*nSx
./pkg/exch2/w2_map_procs.F	96	W2_MAP_PROCS	W2_procTileList(bi,bj,np) = I
./pkg/exch2/w2_map_procs.F	97	W2_MAP_PROCS	IF ( np.EQ.thisProc ) W2_myTileList(bi,bj) = I
./pkg/exch2/w2_print_comm_sequence.F	122	W2_PRINT_COMM_SEQUENCE	DO bi=1,nSx
./pkg/exch2/w2_print_comm_sequence.F	123	W2_PRINT_COMM_SEQUENCE	myTileId=W2_myTileList(bi,bj)
./pkg/exch2/w2_print_comm_sequence.F	54	W2_PRINT_COMM_SEQUENCE	INTEGER bi, bj, N
./pkg/exch2/w2_print_comm_sequence.F	66	W2_PRINT_COMM_SEQUENCE	DO bi=1,nSx
./pkg/exch2/w2_print_comm_sequence.F	67	W2_PRINT_COMM_SEQUENCE	myTileId=W2_myTileList(bi,bj)
./pkg/exch2/w2_set_map_cumsum.F	286	W2_SET_MAP_CUMSUM	DO bi=1,nbTx-1
./pkg/exch2/w2_set_map_cumsum.F	287	W2_SET_MAP_CUMSUM	tS = facet_owns(1,j) - 1 + bi
./pkg/exch2/w2_set_map_cumsum.F	301	W2_SET_MAP_CUMSUM	DO bi=1,nbTx
./pkg/exch2/w2_set_map_cumsum.F	302	W2_SET_MAP_CUMSUM	tS = facet_owns(1,j) - 1 + bi
./pkg/exch2/w2_set_map_cumsum.F	44	W2_SET_MAP_CUMSUM	INTEGER tS, bi, bj, l, is, ie
./model/inc/HFACC_MACROS.h	36	NO PROCEDURE	# define _hFacC(i,j,k,bi,bj) hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj)
./model/inc/HFACS_MACROS.h	36	NO PROCEDURE	# define _hFacS(i,j,k,bi,bj) hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj)
./pkg/exf/exf_bulkformulae.F	179	EXF_BULKFORMULAE	INTEGER i,j,bi,bj
./pkg/exf/exf_bulkformulae.F	259	EXF_BULKFORMULAE	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_bulkformulae.F	266	EXF_BULKFORMULAE	act1 = bi - myBxLo(myThid)
./pkg/exf/exf_bulkformulae.F	288	EXF_BULKFORMULAE	IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F	290	EXF_BULKFORMULAE	Tsf = theta(i,j,ksrf,bi,bj) + cen2kel
./pkg/exf/exf_bulkformulae.F	293	EXF_BULKFORMULAE	& *( theta(i,j,ksrf,bi,bj)-theta(i,j,ksrfp1,bi,bj) )
./pkg/exf/exf_bulkformulae.F	294	EXF_BULKFORMULAE	& * maskC(i,j,ksrfp1,bi,bj)
./pkg/exf/exf_bulkformulae.F	300	EXF_BULKFORMULAE	atmrho_loc(i,j) = apressure(i,j,bi,bj) /
./pkg/exf/exf_bulkformulae.F	301	EXF_BULKFORMULAE	& (287.04 _d 0*atemp(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	302	EXF_BULKFORMULAE	& (1. _d 0 + humid_facaqh(i,j,bi,bj)))
./pkg/exf/exf_bulkformulae.F	307	EXF_BULKFORMULAE	deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf
./pkg/exf/exf_bulkformulae.F	308	EXF_BULKFORMULAE	delq(i,j) = aqh(i,j,bi,bj) - ssq
./pkg/exf/exf_bulkformulae.F	321	EXF_BULKFORMULAE	wsm = sh(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	328	EXF_BULKFORMULAE	windStress = wStress(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	359	EXF_BULKFORMULAE	IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F	378	EXF_BULKFORMULAE	t0 = atemp(i,j,bi,bj)*
./pkg/exf/exf_bulkformulae.F	379	EXF_BULKFORMULAE	& (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/exf/exf_bulkformulae.F	381	EXF_BULKFORMULAE	& qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj))
./pkg/exf/exf_bulkformulae.F	428	EXF_BULKFORMULAE	usn = wspeed(i,j,bi,bj)/(exf_one + rdn(i,j)*dzTmp )
./pkg/exf/exf_bulkformulae.F	435	EXF_BULKFORMULAE	usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/exf/exf_bulkformulae.F	448	EXF_BULKFORMULAE	ustar(i,j) = rd(i,j)*sh(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	451	EXF_BULKFORMULAE	tau(i,j) = atmrho_loc(i,j)rd(i,j)wspeed(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	453	EXF_BULKFORMULAE	tau(i,j) = atmrhord(i,j)wspeed(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	476	EXF_BULKFORMULAE	IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F	492	EXF_BULKFORMULAE	hs(i,j,bi,bj) = atmcptau(i,j)tstar(i,j)
./pkg/exf/exf_bulkformulae.F	493	EXF_BULKFORMULAE	hl(i,j,bi,bj) = flambtau(i,j)qstar(i,j)
./pkg/exf/exf_bulkformulae.F	497	EXF_BULKFORMULAE	evap(i,j,bi,bj) = -recip_rhoConstFreshtau(i,j)qstar(i,j)
./pkg/exf/exf_bulkformulae.F	508	EXF_BULKFORMULAE	ustress(i,j,bi,bj) = tmpbulk*uwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	509	EXF_BULKFORMULAE	vstress(i,j,bi,bj) = tmpbulk*vwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F	514	EXF_BULKFORMULAE	IF ( useAtmWind ) ustress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	515	EXF_BULKFORMULAE	IF ( useAtmWind ) vstress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	516	EXF_BULKFORMULAE	hflux (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	517	EXF_BULKFORMULAE	evap (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	518	EXF_BULKFORMULAE	hs (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F	519	EXF_BULKFORMULAE	hl (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_check_range.F	100	EXF_CHECK_RANGE	IF ( ABS(vwind(i,j,bi,bj)) .GT. 100. .AND.
./pkg/exf/exf_check_range.F	101	EXF_CHECK_RANGE	& maskS(i,j,1,bi,bj) .NE. 0. ) THEN
./pkg/exf/exf_check_range.F	104	EXF_CHECK_RANGE	& bi, bj, i, j, myIter, vwind(i,j,bi,bj)
./pkg/exf/exf_check_range.F	110	EXF_CHECK_RANGE	IF ( ( wspeed(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F	111	EXF_CHECK_RANGE	& wspeed(i,j,bi,bj) .GT. 100. ) .AND.
./pkg/exf/exf_check_range.F	112	EXF_CHECK_RANGE	& maskS(i,j,1,bi,bj) .NE. 0. ) THEN
./pkg/exf/exf_check_range.F	115	EXF_CHECK_RANGE	& bi, bj, i, j, myIter, wspeed(i,j,bi,bj)
./pkg/exf/exf_check_range.F	121	EXF_CHECK_RANGE	IF ( (atemp(i,j,bi,bj) .LT. 183 .OR.
./pkg/exf/exf_check_range.F	122	EXF_CHECK_RANGE	& atemp(i,j,bi,bj) .GT. 343 ) .AND.
./pkg/exf/exf_check_range.F	123	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) THEN
./pkg/exf/exf_check_range.F	127	EXF_CHECK_RANGE	& bi, bj, i, j, myIter, atemp(i,j,bi,bj)
./pkg/exf/exf_check_range.F	132	EXF_CHECK_RANGE	IF ( (aqh(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F	133	EXF_CHECK_RANGE	& aqh(i,j,bi,bj) .GT. 0.1 ) .AND.
./pkg/exf/exf_check_range.F	134	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) THEN
./pkg/exf/exf_check_range.F	137	EXF_CHECK_RANGE	& bi, bj, i, j, myIter, aqh(i,j,bi,bj)
./pkg/exf/exf_check_range.F	142	EXF_CHECK_RANGE	IF ( (precip(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F	143	EXF_CHECK_RANGE	& precip(i,j,bi,bj) .GT. 2.E-6 ) .AND.
./pkg/exf/exf_check_range.F	144	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) THEN
./pkg/exf/exf_check_range.F	147	EXF_CHECK_RANGE	& bi, bj, i, j, myIter, precip(i,j,bi,bj)
./pkg/exf/exf_check_range.F	152	EXF_CHECK_RANGE	IF ( (snowprecip(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F	153	EXF_CHECK_RANGE	& snowprecip(i,j,bi,bj) .GT. 2.E-6 ) .AND.
./pkg/exf/exf_check_range.F	154	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) THEN
./pkg/exf/exf_check_range.F	158	EXF_CHECK_RANGE	& bi, bj, i, j, myIter, snowprecip(i,j,bi,bj)
./pkg/exf/exf_check_range.F	165	EXF_CHECK_RANGE	IF ( (swflux(i,j,bi,bj) .GT. 1. .OR.
./pkg/exf/exf_check_range.F	166	EXF_CHECK_RANGE	& swflux(i,j,bi,bj) .LT. -1000. ) .AND.
./pkg/exf/exf_check_range.F	167	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) THEN
./pkg/exf/exf_check_range.F	170	EXF_CHECK_RANGE	& bi, bj, i, j, myIter, swflux(i,j,bi,bj)
./pkg/exf/exf_check_range.F	177	EXF_CHECK_RANGE	IF ( (runoff(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F	178	EXF_CHECK_RANGE	& runoff(i,j,bi,bj) .GT. 1.E-6 ) .AND.
./pkg/exf/exf_check_range.F	179	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) THEN
./pkg/exf/exf_check_range.F	182	EXF_CHECK_RANGE	& bi, bj, i, j, myIter, runoff(i,j,bi,bj)
./pkg/exf/exf_check_range.F	195	EXF_CHECK_RANGE	IF ( (runoftemp(i,j,bi,bj) .LT. -2. .OR.
./pkg/exf/exf_check_range.F	196	EXF_CHECK_RANGE	& runoff(i,j,bi,bj) .GT. 36 ) .AND.
./pkg/exf/exf_check_range.F	197	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) THEN
./pkg/exf/exf_check_range.F	200	EXF_CHECK_RANGE	& bi, bj, i, j, myIter, runoff(i,j,bi,bj)
./pkg/exf/exf_check_range.F	29	EXF_CHECK_RANGE	INTEGER i, j, bi, bj
./pkg/exf/exf_check_range.F	43	EXF_CHECK_RANGE	DO bi = 1, nSx
./pkg/exf/exf_check_range.F	53	EXF_CHECK_RANGE	IF ( ( hflux(i,j,bi,bj) .GT. 1600. .OR.
./pkg/exf/exf_check_range.F	54	EXF_CHECK_RANGE	& hflux(i,j,bi,bj) .LT. -500. ) .AND.
./pkg/exf/exf_check_range.F	55	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) THEN
./pkg/exf/exf_check_range.F	58	EXF_CHECK_RANGE	& bi, bj, i, j, myIter, hflux(i,j,bi,bj)
./pkg/exf/exf_check_range.F	63	EXF_CHECK_RANGE	IF ( ABS(sflux(i,j,bi,bj)) .GT. 1.E-6 .AND.
./pkg/exf/exf_check_range.F	64	EXF_CHECK_RANGE	& maskC(i,j,1,bi,bj) .NE. 0. ) THEN
./pkg/exf/exf_check_range.F	67	EXF_CHECK_RANGE	& bi, bj, i, j, myIter, sflux(i,j,bi,bj)
./pkg/exf/exf_check_range.F	72	EXF_CHECK_RANGE	IF ( ABS(ustress(i,j,bi,bj)) .GT. 2.7 .AND.
./pkg/exf/exf_check_range.F	73	EXF_CHECK_RANGE	& maskW(i,j,1,bi,bj) .NE. 0. ) THEN
./pkg/exf/exf_check_range.F	76	EXF_CHECK_RANGE	& bi, bj, i, j, myIter, ustress(i,j,bi,bj)
./pkg/exf/exf_check_range.F	81	EXF_CHECK_RANGE	IF ( ABS(vstress(i,j,bi,bj)) .GT. 2.3 .AND.
./pkg/exf/exf_check_range.F	82	EXF_CHECK_RANGE	& maskS(i,j,1,bi,bj) .NE. 0. ) THEN
./pkg/exf/exf_check_range.F	85	EXF_CHECK_RANGE	& bi, bj, i, j, myIter, vstress(i,j,bi,bj)
./pkg/exf/exf_check_range.F	91	EXF_CHECK_RANGE	IF ( ABS(uwind(i,j,bi,bj)) .GT. 100. .AND.
./pkg/exf/exf_check_range.F	92	EXF_CHECK_RANGE	& maskW(i,j,1,bi,bj) .NE. 0. ) THEN
./pkg/exf/exf_check_range.F	95	EXF_CHECK_RANGE	& bi, bj, i, j, myIter, uwind(i,j,bi,bj)
./model/inc/HFACW_MACROS.h	36	NO PROCEDURE	# define _hFacW(i,j,k,bi,bj) hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj)
./pkg/exf/exf_filter_rl.F	35	EXF_FILTER_RL	INTEGER bi,bj
./pkg/exf/exf_filter_rl.F	47	EXF_FILTER_RL	DO bi = myBxLo(myThid), myBxHi(myThid)
./pkg/exf/exf_filter_rl.F	64	EXF_FILTER_RL	IF ( maskC(i,j,ks,bi,bj) .EQ. 0. ) THEN
./pkg/exf/exf_filter_rl.F	65	EXF_FILTER_RL	arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rl.F	72	EXF_FILTER_RL	IF ( maskW(i,j,ks,bi,bj) .EQ. 0. ) THEN
./pkg/exf/exf_filter_rl.F	73	EXF_FILTER_RL	arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rl.F	80	EXF_FILTER_RL	IF ( maskS(i,j,ks,bi,bj) .EQ. 0. ) THEN
./pkg/exf/exf_filter_rl.F	81	EXF_FILTER_RL	arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getclim.F	170	EXF_GETCLIM	DO bi=myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_getclim.F	176	EXF_GETCLIM	& theta(i,j,1,bi,bj) = climsst(i,j,bi,bj)
./pkg/exf/exf_getclim.F	181	EXF_GETCLIM	& salt(i,j,1,bi,bj) = climsss(i,j,bi,bj)
./pkg/exf/exf_getclim.F	186	EXF_GETCLIM	& uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj)
./pkg/exf/exf_getclim.F	189	EXF_GETCLIM	& vvel(i,j,1,bi,bj) = climvstr(i,j,bi,bj)
./pkg/exf/exf_getclim.F	192	EXF_GETCLIM	IF ( maskC(i,j,1,bi,bj) .NE. 0. .AND.
./pkg/exf/exf_getclim.F	193	EXF_GETCLIM	& theta(i,j,1,bi,bj) .EQ. 0. ) THEN
./pkg/exf/exf_getclim.F	194	EXF_GETCLIM	print *, 'ph-warn-exf-clim ', i, j, theta(i,j,1,bi,bj)
./pkg/exf/exf_getclim.F	69	EXF_GETCLIM	INTEGER bi, bj, i, j
./pkg/exf/exf_getclim.F	88	EXF_GETCLIM	DO bi = myBxLo(myThid),mybxhi(myThid)
./pkg/exf/exf_getclim.F	91	EXF_GETCLIM	IF (climsst(i,j,bi,bj) .LT. climtempfreeze) THEN
./pkg/exf/exf_getclim.F	92	EXF_GETCLIM	climsst(i,j,bi,bj) = climtempfreeze
./pkg/exf/exf_getffields.F	101	EXF_GETFFIELDS	ustress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F	102	EXF_GETFFIELDS	vstress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F	147	EXF_GETFFIELDS	DO bi = myBxLo(myThid),mybxhi(myThid)
./pkg/exf/exf_getffields.F	150	EXF_GETFFIELDS	uwind(i,j,bi,bj) = uwind(i,j,bi,bj) - 0.5 _d 0
./pkg/exf/exf_getffields.F	151	EXF_GETFFIELDS	& * (uVel(i,j,1,bi,bj)+uVel(i+1,j,1,bi,bj))
./pkg/exf/exf_getffields.F	152	EXF_GETFFIELDS	vwind(i,j,bi,bj) = vwind(i,j,bi,bj) - 0.5 _d 0
./pkg/exf/exf_getffields.F	153	EXF_GETFFIELDS	& * (vVel(i,j,1,bi,bj)+vVel(i,j+1,1,bi,bj))
./pkg/exf/exf_getffields.F	162	EXF_GETFFIELDS	DO bi = myBxLo(myThid),mybxhi(myThid)
./pkg/exf/exf_getffields.F	165	EXF_GETFFIELDS	uwind(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F	166	EXF_GETFFIELDS	vwind(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F	214	EXF_GETFFIELDS	DO bi = myBxLo(myThid),mybxhi(myThid)
./pkg/exf/exf_getffields.F	217	EXF_GETFFIELDS	atemp(i,j,bi,bj) = atemp(i,j,bi,bj) + exf_offset_atemp
./pkg/exf/exf_getffields.F	324	EXF_GETFFIELDS	DO bi = myBxLo(myThid),mybxhi(myThid)
./pkg/exf/exf_getffields.F	327	EXF_GETFFIELDS	precip(i,j,bi,bj) =
./pkg/exf/exf_getffields.F	328	EXF_GETFFIELDS	& MAX( precip(i,j,bi,bj), snowPrecip(i,j,bi,bj) )
./pkg/exf/exf_getffields.F	479	EXF_GETFFIELDS	DO bi = myBxLo(myThid),mybxhi(myThid)
./pkg/exf/exf_getffields.F	482	EXF_GETFFIELDS	tmpUE(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F	483	EXF_GETFFIELDS	tmpVN(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F	484	EXF_GETFFIELDS	tmpUX(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F	485	EXF_GETFFIELDS	tmpVY(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F	59	EXF_GETFFIELDS	INTEGER i, j, bi, bj
./pkg/exf/exf_getffields.F	623	EXF_GETFFIELDS	DO bi = myBxLo(myThid),mybxhi(myThid)
./pkg/exf/exf_getffields.F	626	EXF_GETFFIELDS	uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+tmpUX(i,j,bi,bj)
./pkg/exf/exf_getffields.F	627	EXF_GETFFIELDS	vwind(i,j,bi,bj)=vwind(i,j,bi,bj)+tmpVY(i,j,bi,bj)
./pkg/exf/exf_getffields.F	639	EXF_GETFFIELDS	DO bi = myBxLo(myThid),mybxhi(myThid)
./pkg/exf/exf_getffields.F	643	EXF_GETFFIELDS	atemp(i,j,bi,bj) =atemp(i,j,bi,bj) +xx_atemp_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F	646	EXF_GETFFIELDS	aqh(i,j,bi,bj) =aqh(i,j,bi,bj) +xx_aqh_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F	649	EXF_GETFFIELDS	precip(i,j,bi,bj)=precip(i,j,bi,bj)+xx_precip_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F	652	EXF_GETFFIELDS	swdown(i,j,bi,bj)=swdown(i,j,bi,bj)+xx_swdown_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F	655	EXF_GETFFIELDS	uwind(i,j,bi,bj) =uwind(i,j,bi,bj) +xx_uwind_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F	658	EXF_GETFFIELDS	vwind(i,j,bi,bj) =vwind(i,j,bi,bj) +xx_vwind_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F	683	EXF_GETFFIELDS	DO bi = myBxLo(myThid),mybxhi(myThid)
./pkg/exf/exf_getffields.F	689	EXF_GETFFIELDS	& atemp(i,j,bi,bj)=atemp(i,j,bi,bj)+
./pkg/exf/exf_getffields.F	690	EXF_GETFFIELDS	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getffields.F	692	EXF_GETFFIELDS	& aqh(i,j,bi,bj)=aqh(i,j,bi,bj)+
./pkg/exf/exf_getffields.F	693	EXF_GETFFIELDS	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getffields.F	695	EXF_GETFFIELDS	& precip(i,j,bi,bj)=precip(i,j,bi,bj)+
./pkg/exf/exf_getffields.F	696	EXF_GETFFIELDS	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getffields.F	698	EXF_GETFFIELDS	& lwflux(i,j,bi,bj)=lwflux(i,j,bi,bj)+
./pkg/exf/exf_getffields.F	699	EXF_GETFFIELDS	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getffields.F	703	EXF_GETFFIELDS	& swflux(i,j,bi,bj)=swflux(i,j,bi,bj)+
./pkg/exf/exf_getffields.F	704	EXF_GETFFIELDS	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getffields.F	708	EXF_GETFFIELDS	& swdown(i,j,bi,bj)=swdown(i,j,bi,bj)+
./pkg/exf/exf_getffields.F	709	EXF_GETFFIELDS	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getffields.F	711	EXF_GETFFIELDS	& lwdown(i,j,bi,bj)=lwdown(i,j,bi,bj)+
./pkg/exf/exf_getffields.F	712	EXF_GETFFIELDS	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getffields.F	716	EXF_GETFFIELDS	& runoff(i,j,bi,bj)=runoff(i,j,bi,bj)+
./pkg/exf/exf_getffields.F	717	EXF_GETFFIELDS	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getffields.F	721	EXF_GETFFIELDS	& evap(i,j,bi,bj)=evap(i,j,bi,bj)+
./pkg/exf/exf_getffields.F	722	EXF_GETFFIELDS	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getffields.F	726	EXF_GETFFIELDS	& apressure(i,j,bi,bj)=apressure(i,j,bi,bj)+
./pkg/exf/exf_getffields.F	727	EXF_GETFFIELDS	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getffields.F	731	EXF_GETFFIELDS	& areamask(i,j,bi,bj)=areamask(i,j,bi,bj)+
./pkg/exf/exf_getffields.F	732	EXF_GETFFIELDS	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getffields.F	736	EXF_GETFFIELDS	& uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+
./pkg/exf/exf_getffields.F	737	EXF_GETFFIELDS	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getffields.F	739	EXF_GETFFIELDS	& vwind(i,j,bi,bj)=vwind(i,j,bi,bj)+
./pkg/exf/exf_getffields.F	740	EXF_GETFFIELDS	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getffields.F	743	EXF_GETFFIELDS	& tmpUE(i,j,bi,bj)=tmpUE(i,j,bi,bj)+
./pkg/exf/exf_getffields.F	744	EXF_GETFFIELDS	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getffields.F	746	EXF_GETFFIELDS	& tmpVN(i,j,bi,bj)=tmpVN(i,j,bi,bj)+
./pkg/exf/exf_getffields.F	747	EXF_GETFFIELDS	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getffields.F	759	EXF_GETFFIELDS	DO bi = myBxLo(myThid),mybxhi(myThid)
./pkg/exf/exf_getffields.F	762	EXF_GETFFIELDS	uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+tmpUX(i,j,bi,bj)
./pkg/exf/exf_getffields.F	763	EXF_GETFFIELDS	vwind(i,j,bi,bj)=vwind(i,j,bi,bj)+tmpVY(i,j,bi,bj)
./pkg/exf/exf_getffields.F	98	EXF_GETFFIELDS	DO bi = myBxLo(myThid),mybxhi(myThid)
./pkg/exf/exf_getforcing.F	144	EXF_GETFORCING	INTEGER bi,bj
./pkg/exf/exf_getforcing.F	204	EXF_GETFORCING	DO bi = myBxLo(myThid), myBxHi(myThid)
./pkg/exf/exf_getforcing.F	211	EXF_GETFORCING	hflux(i,j,bi,bj) =
./pkg/exf/exf_getforcing.F	212	EXF_GETFORCING	& - hs(i,j,bi,bj)
./pkg/exf/exf_getforcing.F	213	EXF_GETFORCING	& - hl(i,j,bi,bj)
./pkg/exf/exf_getforcing.F	214	EXF_GETFORCING	& + lwflux(i,j,bi,bj)
./pkg/exf/exf_getforcing.F	216	EXF_GETFORCING	& + swflux(i,j,bi,bj)
./pkg/exf/exf_getforcing.F	219	EXF_GETFORCING	sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj)
./pkg/exf/exf_getforcing.F	229	EXF_GETFORCING	sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj)
./pkg/exf/exf_getforcing.F	231	EXF_GETFORCING	hflux(i,j,bi,bj) = hflux(i,j,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/exf/exf_getforcing.F	232	EXF_GETFORCING	sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/exf/exf_getforcing.F	281	EXF_GETFORCING	DO bi = myBxLo(myThid), myBxHi(myThid)
./pkg/exf/exf_getforcing.F	284	EXF_GETFORCING	hflux(i,j,bi,bj) = hflux(i,j,bi,bj) + swflux(i,j,bi,bj)
./pkg/exf/exf_getsurfacefluxes.F	108	EXF_GETSURFACEFLUXES	DO bi = myBxLo(myThid),mybxhi(myThid)
./pkg/exf/exf_getsurfacefluxes.F	114	EXF_GETSURFACEFLUXES	& ustress(i,j,bi,bj)=ustress(i,j,bi,bj)+
./pkg/exf/exf_getsurfacefluxes.F	115	EXF_GETSURFACEFLUXES	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getsurfacefluxes.F	117	EXF_GETSURFACEFLUXES	& vstress(i,j,bi,bj)=vstress(i,j,bi,bj)+
./pkg/exf/exf_getsurfacefluxes.F	118	EXF_GETSURFACEFLUXES	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getsurfacefluxes.F	121	EXF_GETSURFACEFLUXES	& tmpUE(i,j,bi,bj)=tmpUE(i,j,bi,bj)
./pkg/exf/exf_getsurfacefluxes.F	122	EXF_GETSURFACEFLUXES	& +xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getsurfacefluxes.F	124	EXF_GETSURFACEFLUXES	& tmpVN(i,j,bi,bj)=tmpVN(i,j,bi,bj)
./pkg/exf/exf_getsurfacefluxes.F	125	EXF_GETSURFACEFLUXES	& +xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_getsurfacefluxes.F	213	EXF_GETSURFACEFLUXES	do bi = mybxlo(mythid),mybxhi(mythid)
./pkg/exf/exf_getsurfacefluxes.F	216	EXF_GETSURFACEFLUXES	ustress(i,j,bi,bj)=ustress(i,j,bi,bj)+tmpUX(i,j,bi,bj)
./pkg/exf/exf_getsurfacefluxes.F	217	EXF_GETSURFACEFLUXES	vstress(i,j,bi,bj)=vstress(i,j,bi,bj)+tmpVY(i,j,bi,bj)
./pkg/exf/exf_getsurfacefluxes.F	82	EXF_GETSURFACEFLUXES	integer i,j,bi,bj
./pkg/exf/exf_getsurfacefluxes.F	90	EXF_GETSURFACEFLUXES	do bi = mybxlo(mythid),mybxhi(mythid)
./pkg/exf/exf_getsurfacefluxes.F	93	EXF_GETSURFACEFLUXES	tmpUE(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F	94	EXF_GETSURFACEFLUXES	tmpVN(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F	95	EXF_GETSURFACEFLUXES	tmpUX(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F	96	EXF_GETSURFACEFLUXES	tmpVY(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_init_fld.F	139	EXF_INIT_FLD	DO bi = myBxLo(myThid),mybxhi(myThid)
./pkg/exf/exf_init_fld.F	142	EXF_INIT_FLD	fldArr(i,j,bi,bj) = fld_inScale*fldArr(i,j,bi,bj)
./pkg/exf/exf_init_fld.F	81	EXF_INIT_FLD	INTEGER bi, bj, i, j, count
./pkg/exf/exf_init_fld.F	90	EXF_INIT_FLD	DO bi = myBxLo(myThid), mybxhi(myThid)
./pkg/exf/exf_init_fld.F	93	EXF_INIT_FLD	fldArr(i,j,bi,bj) = fldConst
./pkg/exf/exf_init_fld.F	94	EXF_INIT_FLD	fld0(i,j,bi,bj) = fldConst
./pkg/exf/exf_init_fld.F	95	EXF_INIT_FLD	fld1(i,j,bi,bj) = fldConst
./pkg/exf/exf_init_varia.F	133	EXF_INIT_VARIA	DO bi = myBxLo(myThid), myBxHi(myThid)
./pkg/exf/exf_init_varia.F	136	EXF_INIT_VARIA	uwind(i,j,bi,bj) = 0.
./pkg/exf/exf_init_varia.F	137	EXF_INIT_VARIA	vwind(i,j,bi,bj) = 0.
./pkg/exf/exf_init_varia.F	41	EXF_INIT_VARIA	INTEGER i,j,bi,bj
./pkg/exf/exf_init_varia.F	456	EXF_INIT_VARIA	DO bi=myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_init_varia.F	462	EXF_INIT_VARIA	& theta(i,j,1,bi,bj) = climsst(i,j,bi,bj)
./pkg/exf/exf_init_varia.F	467	EXF_INIT_VARIA	& salt(i,j,1,bi,bj) = climsss(i,j,bi,bj)
./pkg/exf/exf_init_varia.F	46	EXF_INIT_VARIA	DO bi = myBxLo(myThid), myBxHi(myThid)
./pkg/exf/exf_init_varia.F	472	EXF_INIT_VARIA	& uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj)
./pkg/exf/exf_init_varia.F	475	EXF_INIT_VARIA	& vvel(i,j,1,bi,bj) = climvstr(i,j,bi,bj)
./pkg/exf/exf_init_varia.F	477	EXF_INIT_VARIA	IF ( maskC(i,j,1,bi,bj) .NE. 0. .AND.
./pkg/exf/exf_init_varia.F	478	EXF_INIT_VARIA	& theta(i,j,1,bi,bj) .EQ. 0. ) then
./pkg/exf/exf_init_varia.F	479	EXF_INIT_VARIA	print *, 'ph-warn-exf-init ', i, j, theta(i,j,1,bi,bj)
./pkg/exf/exf_init_varia.F	49	EXF_INIT_VARIA	wStress(i,j,bi,bj) = 0.
./pkg/exf/exf_init_varia.F	50	EXF_INIT_VARIA	cw(i,j,bi,bj) = 0.
./pkg/exf/exf_init_varia.F	51	EXF_INIT_VARIA	sw(i,j,bi,bj) = 0.
./pkg/exf/exf_init_varia.F	52	EXF_INIT_VARIA	sh(i,j,bi,bj) = 0.
./pkg/exf/exf_init_varia.F	54	EXF_INIT_VARIA	hs(i,j,bi,bj) = 0.
./pkg/exf/exf_init_varia.F	55	EXF_INIT_VARIA	hl(i,j,bi,bj) = 0.
./pkg/exf/exf_init_varia.F	92	EXF_INIT_VARIA	DO bi = myBxLo(myThid), myBxHi(myThid)
./pkg/exf/exf_init_varia.F	95	EXF_INIT_VARIA	uwind(i,j,bi,bj) = 0.
./pkg/exf/exf_init_varia.F	96	EXF_INIT_VARIA	vwind(i,j,bi,bj) = 0.
./pkg/exf/exf_interp.F	342	EXF_INTERP	DO bi=myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_interp.F	345	EXF_INTERP	xG(i,j,bi,bj) = xG_in(i,j,bi,bj)-lon_0
./pkg/exf/exf_interp.F	347	EXF_INTERP	xG(i,j,bi,bj) = lon_0+MOD(xG(i,j,bi,bj),threeSixtyRS)
./pkg/exf/exf_interp.F	355	EXF_INTERP	IF ( xG(i,j,bi,bj) .LT. x_in(0) .OR.
./pkg/exf/exf_interp.F	356	EXF_INTERP	& xG(i,j,bi,bj) .GE. x_in(nxIn+1) .OR.
./pkg/exf/exf_interp.F	357	EXF_INTERP	& yG(i,j,bi,bj) .LT. y_in(0) .OR.
./pkg/exf/exf_interp.F	358	EXF_INTERP	& yG(i,j,bi,bj) .GE. y_in(nyIn+1) ) THEN
./pkg/exf/exf_interp.F	367	EXF_INTERP	& i,j,bi,bj, ' , xG,yG=', xG(i,j,bi,bj), yG(i,j,bi,bj)
./pkg/exf/exf_interp.F	385	EXF_INTERP	DO bi = myBxLo(myThid), myBxHi(myThid)
./pkg/exf/exf_interp.F	404	EXF_INTERP	IF ( yG(i,j,bi,bj) .LT. y_in(k) ) THEN
./pkg/exf/exf_interp.F	428	EXF_INTERP	& 'EXF_INTERP: i,j,bi,bj=',i,j,bi,bj,' , yG=',yG(i,j,bi,bj)
./pkg/exf/exf_interp.F	445	EXF_INTERP	w_ind(i,j) = INT((xG(i,j,bi,bj)-x_in(-1))/lon_inc) - 1
./pkg/exf/exf_interp.F	457	EXF_INTERP	I bi, bj, myThid )
./pkg/exf/exf_interp.F	93	EXF_INTERP	INTEGER bi, bj
./pkg/exf/exf_interp_uv.F	105	EXF_INTERP_UV	INTEGER bi, bj
./pkg/exf/exf_interp_uv.F	368	EXF_INTERP_UV	DO bi=myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_interp_uv.F	371	EXF_INTERP_UV	xG(i,j,bi,bj) = xG_in(i,j,bi,bj)-lon_0
./pkg/exf/exf_interp_uv.F	373	EXF_INTERP_UV	xG(i,j,bi,bj) = lon_0+MOD(xG(i,j,bi,bj),threeSixtyRS)
./pkg/exf/exf_interp_uv.F	381	EXF_INTERP_UV	IF ( xG(i,j,bi,bj) .LT. x_in(0) .OR.
./pkg/exf/exf_interp_uv.F	382	EXF_INTERP_UV	& xG(i,j,bi,bj) .GE. x_in(nxIn+1) .OR.
./pkg/exf/exf_interp_uv.F	383	EXF_INTERP_UV	& yG(i,j,bi,bj) .LT. y_in(0) .OR.
./pkg/exf/exf_interp_uv.F	384	EXF_INTERP_UV	& yG(i,j,bi,bj) .GE. y_in(nyIn+1) ) THEN
./pkg/exf/exf_interp_uv.F	393	EXF_INTERP_UV	& i,j,bi,bj, ' , xG,yG=', xG(i,j,bi,bj), yG(i,j,bi,bj)
./pkg/exf/exf_interp_uv.F	411	EXF_INTERP_UV	DO bi = myBxLo(myThid), myBxHi(myThid)
./pkg/exf/exf_interp_uv.F	430	EXF_INTERP_UV	IF ( yG(i,j,bi,bj) .LT. y_in(k) ) THEN
./pkg/exf/exf_interp_uv.F	454	EXF_INTERP_UV	& 'EXF_INTERP_UV: i,j,bi,bj=',i,j,bi,bj,' , yG=',yG(i,j,bi,bj)
./pkg/exf/exf_interp_uv.F	471	EXF_INTERP_UV	w_ind(i,j) = INT((xG(i,j,bi,bj)-x_in(-1))/lon_inc) - 1
./pkg/exf/exf_interp_uv.F	483	EXF_INTERP_UV	I bi, bj, myThid )
./pkg/exf/exf_interp_uv.F	491	EXF_INTERP_UV	I bi, bj, myThid )
./pkg/exf/exf_interpolate.F	111	EXF_INTERPOLATE	INTEGER bi, bj, myThid
./pkg/exf/exf_interpolate.F	141	EXF_INTERPOLATE	arrayout(i,j,bi,bj) = 0.
./pkg/exf/exf_interpolate.F	149	EXF_INTERPOLATE	& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	151	EXF_INTERPOLATE	& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	152	EXF_INTERPOLATE	arrayout(i,j,bi,bj) = arrayout(i,j,bi,bj)
./pkg/exf/exf_interpolate.F	153	EXF_INTERPOLATE	& + ew_val(k)*LAGRAN(k,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interpolate.F	157	EXF_INTERPOLATE	& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	159	EXF_INTERPOLATE	& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	161	EXF_INTERPOLATE	& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	163	EXF_INTERPOLATE	& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	164	EXF_INTERPOLATE	arrayout(i,j,bi,bj)=
./pkg/exf/exf_interpolate.F	165	EXF_INTERPOLATE	& +ew_val1*LAGRAN(1,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interpolate.F	166	EXF_INTERPOLATE	& +ew_val2*LAGRAN(2,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interpolate.F	176	EXF_INTERPOLATE	arrayout(i,j,bi,bj) = 0.
./pkg/exf/exf_interpolate.F	184	EXF_INTERPOLATE	& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	186	EXF_INTERPOLATE	& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	188	EXF_INTERPOLATE	& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	190	EXF_INTERPOLATE	& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	191	EXF_INTERPOLATE	arrayout(i,j,bi,bj) = arrayout(i,j,bi,bj)
./pkg/exf/exf_interpolate.F	192	EXF_INTERPOLATE	& + ew_val(k)*LAGRAN(k,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interpolate.F	196	EXF_INTERPOLATE	& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	198	EXF_INTERPOLATE	& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	200	EXF_INTERPOLATE	& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	202	EXF_INTERPOLATE	& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	204	EXF_INTERPOLATE	& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	206	EXF_INTERPOLATE	& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	208	EXF_INTERPOLATE	& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	210	EXF_INTERPOLATE	& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	212	EXF_INTERPOLATE	& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	214	EXF_INTERPOLATE	& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	216	EXF_INTERPOLATE	& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	218	EXF_INTERPOLATE	& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	220	EXF_INTERPOLATE	& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	222	EXF_INTERPOLATE	& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	224	EXF_INTERPOLATE	& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	226	EXF_INTERPOLATE	& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F	227	EXF_INTERPOLATE	arrayout(i,j,bi,bj) =
./pkg/exf/exf_interpolate.F	228	EXF_INTERPOLATE	& ew_val1*LAGRAN(1,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interpolate.F	229	EXF_INTERPOLATE	& +ew_val2*LAGRAN(2,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interpolate.F	230	EXF_INTERPOLATE	& +ew_val3*LAGRAN(3,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interpolate.F	231	EXF_INTERPOLATE	& +ew_val4*LAGRAN(4,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interpolate.F	69	EXF_INTERPOLATE	I bi, bj, myThid )
./pkg/exf/exf_mapfields.F	111	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = exf_outscal_hflux*hflux(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	117	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) -
./pkg/exf/exf_mapfields.F	127	EXF_MAPFIELDS	EmPmR(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	134	EXF_MAPFIELDS	EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - rhoConstFresh*
./pkg/exf/exf_mapfields.F	157	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	158	EXF_MAPFIELDS	& + flamisnowPrecip(i,j,bi,bj)rhoConstFresh
./pkg/exf/exf_mapfields.F	160	EXF_MAPFIELDS	& *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn )
./pkg/exf/exf_mapfields.F	161	EXF_MAPFIELDS	& *( precip(i,j,bi,bj)- snowPrecip(i,j,bi,bj) )
./pkg/exf/exf_mapfields.F	171	EXF_MAPFIELDS	IF ( atemp(i,j,bi,bj).LT.cen2kel ) THEN
./pkg/exf/exf_mapfields.F	172	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	173	EXF_MAPFIELDS	& + flamiprecip(i,j,bi,bj)rhoConstFresh
./pkg/exf/exf_mapfields.F	176	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	178	EXF_MAPFIELDS	& *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn )
./pkg/exf/exf_mapfields.F	179	EXF_MAPFIELDS	& precip(i,j,bi,bj)rhoConstFresh
./pkg/exf/exf_mapfields.F	188	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	190	EXF_MAPFIELDS	& *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./pkg/exf/exf_mapfields.F	191	EXF_MAPFIELDS	& runoff(i,j,bi,bj)rhoConstFresh
./pkg/exf/exf_mapfields.F	198	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	200	EXF_MAPFIELDS	& *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./pkg/exf/exf_mapfields.F	201	EXF_MAPFIELDS	& evap(i,j,bi,bj)rhoConstFresh
./pkg/exf/exf_mapfields.F	202	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*maskC(i,j,ks,bi,bj)
./pkg/exf/exf_mapfields.F	213	EXF_MAPFIELDS	Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	215	EXF_MAPFIELDS	& *( theta(i,j,ks,bi,bj) - runoftemp(i,j,bi,bj) )
./pkg/exf/exf_mapfields.F	216	EXF_MAPFIELDS	& runoff(i,j,bi,bj)rhoConstFresh
./pkg/exf/exf_mapfields.F	228	EXF_MAPFIELDS	IF (ustress(i,j,bi,bj).GT.windstressmax) THEN
./pkg/exf/exf_mapfields.F	229	EXF_MAPFIELDS	ustress(i,j,bi,bj)=windstressmax
./pkg/exf/exf_mapfields.F	238	EXF_MAPFIELDS	IF (ustress(i,j,bi,bj).LT.-windstressmax) THEN
./pkg/exf/exf_mapfields.F	239	EXF_MAPFIELDS	ustress(i,j,bi,bj)=-windstressmax
./pkg/exf/exf_mapfields.F	246	EXF_MAPFIELDS	fu(i,j,bi,bj) = exf_outscal_ustress*ustress(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	253	EXF_MAPFIELDS	fu(i,j,bi,bj) = exf_outscal_ustress*
./pkg/exf/exf_mapfields.F	254	EXF_MAPFIELDS	& (ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))
./pkg/exf/exf_mapfields.F	255	EXF_MAPFIELDS	& exf_halfmaskW(i,j,ks,bi,bj)
./pkg/exf/exf_mapfields.F	266	EXF_MAPFIELDS	IF (vstress(i,j,bi,bj).GT.windstressmax) THEN
./pkg/exf/exf_mapfields.F	267	EXF_MAPFIELDS	vstress(i,j,bi,bj)=windstressmax
./pkg/exf/exf_mapfields.F	276	EXF_MAPFIELDS	IF (vstress(i,j,bi,bj).LT.-windstressmax) THEN
./pkg/exf/exf_mapfields.F	277	EXF_MAPFIELDS	vstress(i,j,bi,bj)=-windstressmax
./pkg/exf/exf_mapfields.F	284	EXF_MAPFIELDS	fv(i,j,bi,bj) = exf_outscal_vstress*vstress(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	291	EXF_MAPFIELDS	fv(i,j,bi,bj) = exf_outscal_vstress*
./pkg/exf/exf_mapfields.F	292	EXF_MAPFIELDS	& (vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))
./pkg/exf/exf_mapfields.F	293	EXF_MAPFIELDS	& exf_halfmaskS(i,j,ks,bi,bj)
./pkg/exf/exf_mapfields.F	302	EXF_MAPFIELDS	Qsw(i,j,bi,bj) = exf_outscal_swflux*swflux(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	310	EXF_MAPFIELDS	SST(i,j,bi,bj) = exf_outscal_sst*climsst(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	318	EXF_MAPFIELDS	SSS(i,j,bi,bj) = exf_outscal_sss*climsss(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	326	EXF_MAPFIELDS	pLoad(i,j,bi,bj)=exf_outscal_apressure*apressure(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	334	EXF_MAPFIELDS	phiTide2d(i,j,bi,bj)=exf_outscal_tidePot*tidePot(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	342	EXF_MAPFIELDS	saltFlux(I,J,bi,bj) = saltflx(I,J,bi,bj)
./pkg/exf/exf_mapfields.F	350	EXF_MAPFIELDS	exf_iceFraction(i,j,bi,bj) =
./pkg/exf/exf_mapfields.F	351	EXF_MAPFIELDS	& exf_outscal_areamask*areamask(i,j,bi,bj)
./pkg/exf/exf_mapfields.F	352	EXF_MAPFIELDS	exf_iceFraction(I,J,bi,bj) =
./pkg/exf/exf_mapfields.F	353	EXF_MAPFIELDS	& MIN( MAX(exf_iceFraction(I,J,bi,bj),zeroRS), oneRS )
./pkg/exf/exf_mapfields.F	81	EXF_MAPFIELDS	INTEGER bi,bj
./pkg/exf/exf_mapfields.F	93	EXF_MAPFIELDS	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_mapfields.F	96	EXF_MAPFIELDS	act1 = bi - myBxLo(myThid)
./pkg/exf/exf_radiation.F	100	EXF_RADIATION	& ((theta(i,j,ks,bi,bj)+cen2kel)**4)
./pkg/exf/exf_radiation.F	101	EXF_RADIATION	& - lwdown(i,j,bi,bj)
./pkg/exf/exf_radiation.F	146	EXF_RADIATION	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_radiation.F	149	EXF_RADIATION	zen_albedo (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_radiation.F	150	EXF_RADIATION	zen_fsol_diurnal (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_radiation.F	151	EXF_RADIATION	zen_fsol_daily (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_radiation.F	160	EXF_RADIATION	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_radiation.F	165	EXF_RADIATION	swflux(i,j,bi,bj) = - swdown(i,j,bi,bj)
./pkg/exf/exf_radiation.F	166	EXF_RADIATION	& * (1.0-zen_albedo(i,j,bi,bj))
./pkg/exf/exf_radiation.F	173	EXF_RADIATION	swflux(i,j,bi,bj) = - swdown(i,j,bi,bj)
./pkg/exf/exf_radiation.F	47	EXF_RADIATION	INTEGER bi,bj
./pkg/exf/exf_radiation.F	70	EXF_RADIATION	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_radiation.F	75	EXF_RADIATION	Tsf = theta(i,j,ks,bi,bj) + cen2kel
./pkg/exf/exf_radiation.F	77	EXF_RADIATION	& *( theta(i,j,ks,bi,bj)-theta(i,j,kl,bi,bj) )
./pkg/exf/exf_radiation.F	78	EXF_RADIATION	& * maskC(i,j,kl,bi,bj)
./pkg/exf/exf_radiation.F	81	EXF_RADIATION	lwflux(i,j,bi,bj) =
./pkg/exf/exf_radiation.F	83	EXF_RADIATION	& - lwdown(i,j,bi,bj)
./pkg/exf/exf_radiation.F	98	EXF_RADIATION	lwflux(i,j,bi,bj) =
./pkg/exf/exf_set_fld.F	105	EXF_SET_FLD	INTEGER bi, bj, i, j
./pkg/exf/exf_set_fld.F	283	EXF_SET_FLD	DO bi = myBxLo(myThid),mybxhi(myThid)
./pkg/exf/exf_set_fld.F	287	EXF_SET_FLD	fldArr(i,j,bi,bj) = fld_inScale * (
./pkg/exf/exf_set_fld.F	288	EXF_SET_FLD	& fac * fld0(i,j,bi,bj)
./pkg/exf/exf_set_fld.F	289	EXF_SET_FLD	& + (exf_one - fac)* fld1(i,j,bi,bj) )
./pkg/exf/exf_set_fld.F	290	EXF_SET_FLD	fldArr(i,j,bi,bj) = fldArr(i,j,bi,bj)
./pkg/exf/exf_set_obcs.F	104	EXF_SET_OBCS_XZ	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_set_obcs.F	107	EXF_SET_OBCS_XZ	obcs_fld_xz(i,k,bi,bj) =
./pkg/exf/exf_set_obcs.F	108	EXF_SET_OBCS_XZ	& fac * obcs_xz_0(i,k,bi,bj) +
./pkg/exf/exf_set_obcs.F	109	EXF_SET_OBCS_XZ	& (exf_one - fac) * obcs_xz_1(i,k,bi,bj)
./pkg/exf/exf_set_obcs.F	174	EXF_SET_OBCS_YZ	INTEGER bi, bj
./pkg/exf/exf_set_obcs.F	211	EXF_SET_OBCS_YZ	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_set_obcs.F	214	EXF_SET_OBCS_YZ	obcs_fld_yz(j,k,bi,bj) =
./pkg/exf/exf_set_obcs.F	215	EXF_SET_OBCS_YZ	& fac *obcs_yz_0(j,k,bi,bj) +
./pkg/exf/exf_set_obcs.F	216	EXF_SET_OBCS_YZ	& (exf_one - fac) *obcs_yz_1(j,k,bi,bj)
./pkg/exf/exf_set_obcs.F	281	EXF_SET_OBCS_X	INTEGER bi, bj, i
./pkg/exf/exf_set_obcs.F	315	EXF_SET_OBCS_X	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_set_obcs.F	317	EXF_SET_OBCS_X	obcs_fld_x(i,bi,bj) =
./pkg/exf/exf_set_obcs.F	318	EXF_SET_OBCS_X	& fac * obcs_x_0(i,bi,bj) +
./pkg/exf/exf_set_obcs.F	319	EXF_SET_OBCS_X	& (exf_one - fac) * obcs_x_1(i,bi,bj)
./pkg/exf/exf_set_obcs.F	382	EXF_SET_OBCS_Y	INTEGER bi, bj, j
./pkg/exf/exf_set_obcs.F	416	EXF_SET_OBCS_Y	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_set_obcs.F	418	EXF_SET_OBCS_Y	obcs_fld_y(j,bi,bj) =
./pkg/exf/exf_set_obcs.F	419	EXF_SET_OBCS_Y	& fac *obcs_y_0(j,bi,bj) +
./pkg/exf/exf_set_obcs.F	420	EXF_SET_OBCS_Y	& (exf_one - fac) *obcs_y_1(j,bi,bj)
./pkg/exf/exf_set_obcs.F	67	EXF_SET_OBCS_XZ	INTEGER bi, bj
./pkg/exf/exf_set_uv.F	108	EXF_SET_UV	INTEGER i, j, bi, bj
./pkg/exf/exf_set_uv.F	279	EXF_SET_UV	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_set_uv.F	282	EXF_SET_UV	tmp_u(i,j,bi,bj) = uVec_inScale*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	283	EXF_SET_UV	tmp_v(i,j,bi,bj) = vVec_inScale*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	289	EXF_SET_UV	x1=xG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	290	EXF_SET_UV	x2=xG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F	291	EXF_SET_UV	x3=xG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F	292	EXF_SET_UV	x4=xG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F	299	EXF_SET_UV	y1=yG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	300	EXF_SET_UV	y2=yG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F	301	EXF_SET_UV	y3=yG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F	302	EXF_SET_UV	y4=yG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F	305	EXF_SET_UV	& cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F	307	EXF_SET_UV	vVec1(i,j,bi,bj)=
./pkg/exf/exf_set_uv.F	308	EXF_SET_UV	& (tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F	309	EXF_SET_UV	& tmp_v(i,j,bi,bj)*dy)/
./pkg/exf/exf_set_uv.F	313	EXF_SET_UV	& cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F	315	EXF_SET_UV	uVec1(i,j,bi,bj)=
./pkg/exf/exf_set_uv.F	316	EXF_SET_UV	& (tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F	317	EXF_SET_UV	& tmp_v(i,j,bi,bj)*dy)/
./pkg/exf/exf_set_uv.F	320	EXF_SET_UV	uVec1(i,j,bi,bj) =
./pkg/exf/exf_set_uv.F	321	EXF_SET_UV	& angleCosC(i,j,bi,bj)*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	322	EXF_SET_UV	& +angleSinC(i,j,bi,bj)*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	323	EXF_SET_UV	vVec1(i,j,bi,bj) =
./pkg/exf/exf_set_uv.F	324	EXF_SET_UV	& -angleSinC(i,j,bi,bj)*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	325	EXF_SET_UV	& +angleCosC(i,j,bi,bj)*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	333	EXF_SET_UV	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_set_uv.F	336	EXF_SET_UV	uVec1(i,j,bi,bj) = uVec_inScale*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	337	EXF_SET_UV	vVec1(i,j,bi,bj) = vVec_inScale*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	440	EXF_SET_UV	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_set_uv.F	443	EXF_SET_UV	tmp_u(i,j,bi,bj) = uVec_inScale*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	444	EXF_SET_UV	tmp_v(i,j,bi,bj) = vVec_inScale*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	450	EXF_SET_UV	x1=xG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	451	EXF_SET_UV	x2=xG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F	452	EXF_SET_UV	x3=xG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F	453	EXF_SET_UV	x4=xG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F	460	EXF_SET_UV	y1=yG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	461	EXF_SET_UV	y2=yG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F	462	EXF_SET_UV	y3=yG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F	463	EXF_SET_UV	y4=yG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F	466	EXF_SET_UV	& cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F	468	EXF_SET_UV	vVec1(i,j,bi,bj)=
./pkg/exf/exf_set_uv.F	469	EXF_SET_UV	& (tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F	470	EXF_SET_UV	& tmp_v(i,j,bi,bj)*dy)/
./pkg/exf/exf_set_uv.F	474	EXF_SET_UV	& cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F	476	EXF_SET_UV	uVec1(i,j,bi,bj)=
./pkg/exf/exf_set_uv.F	477	EXF_SET_UV	& (tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F	478	EXF_SET_UV	& tmp_v(i,j,bi,bj)*dy)/
./pkg/exf/exf_set_uv.F	481	EXF_SET_UV	uVec1(i,j,bi,bj) =
./pkg/exf/exf_set_uv.F	482	EXF_SET_UV	& angleCosC(i,j,bi,bj)*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	483	EXF_SET_UV	& +angleSinC(i,j,bi,bj)*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	484	EXF_SET_UV	vVec1(i,j,bi,bj) =
./pkg/exf/exf_set_uv.F	485	EXF_SET_UV	& -angleSinC(i,j,bi,bj)*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	486	EXF_SET_UV	& +angleCosC(i,j,bi,bj)*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	494	EXF_SET_UV	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_set_uv.F	497	EXF_SET_UV	uVec1(i,j,bi,bj) = uVec_inScale*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	498	EXF_SET_UV	vVec1(i,j,bi,bj) = vVec_inScale*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	513	EXF_SET_UV	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_set_uv.F	516	EXF_SET_UV	uVec(i,j,bi,bj) = fac * uVec0(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	517	EXF_SET_UV	& + (exf_one - fac)* uVec1(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	518	EXF_SET_UV	vVec(i,j,bi,bj) = fac * vVec0(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	519	EXF_SET_UV	& + (exf_one - fac)* vVec1(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	557	EXF_SET_UV	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_set_uv.F	560	EXF_SET_UV	tmp_u(i,j,bi,bj) = uVec(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	561	EXF_SET_UV	tmp_v(i,j,bi,bj) = vVec(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	567	EXF_SET_UV	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_set_uv.F	570	EXF_SET_UV	uVec(i,j,bi,bj) =
./pkg/exf/exf_set_uv.F	571	EXF_SET_UV	& angleCosC(i,j,bi,bj)*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	572	EXF_SET_UV	& +angleSinC(i,j,bi,bj)*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	573	EXF_SET_UV	vVec(i,j,bi,bj) =
./pkg/exf/exf_set_uv.F	574	EXF_SET_UV	& -angleSinC(i,j,bi,bj)*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F	575	EXF_SET_UV	& +angleCosC(i,j,bi,bj)*tmp_v(i,j,bi,bj)
./pkg/exf/exf_swapffields.F	103	EXF_SWAPFFIELDS_3D	INTEGER bi, bj
./pkg/exf/exf_swapffields.F	109	EXF_SWAPFFIELDS_3D	DO bi=myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_swapffields.F	113	EXF_SWAPFFIELDS_3D	ffld0(i,j,k,bi,bj) = ffld1(i,j,k,bi,bj)
./pkg/exf/exf_swapffields.F	114	EXF_SWAPFFIELDS_3D	ffld1(i,j,k,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F	157	EXF_SWAPFFIELDS_XZ	INTEGER bi, bj
./pkg/exf/exf_swapffields.F	163	EXF_SWAPFFIELDS_XZ	DO bi=myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_swapffields.F	166	EXF_SWAPFFIELDS_XZ	ffld0(i,k,bi,bj) = ffld1(i,k,bi,bj)
./pkg/exf/exf_swapffields.F	167	EXF_SWAPFFIELDS_XZ	ffld1(i,k,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F	209	EXF_SWAPFFIELDS_YZ	INTEGER bi, bj
./pkg/exf/exf_swapffields.F	215	EXF_SWAPFFIELDS_YZ	DO bi=myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_swapffields.F	218	EXF_SWAPFFIELDS_YZ	ffld0(j,k,bi,bj) = ffld1(j,k,bi,bj)
./pkg/exf/exf_swapffields.F	219	EXF_SWAPFFIELDS_YZ	ffld1(j,k,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F	53	EXF_SWAPFFIELDS	INTEGER bi, bj
./pkg/exf/exf_swapffields.F	59	EXF_SWAPFFIELDS	DO bi=myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_swapffields.F	62	EXF_SWAPFFIELDS	ffld0(i,j,bi,bj) = ffld1(i,j,bi,bj)
./pkg/exf/exf_swapffields.F	63	EXF_SWAPFFIELDS	ffld1(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	100	EXF_WIND	sh(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	101	EXF_WIND	wStress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	116	EXF_WIND	wsSq = uwind(i,j,bi,bj)*uwind(i,j,bi,bj)
./pkg/exf/exf_wind.F	117	EXF_WIND	& + vwind(i,j,bi,bj)*vwind(i,j,bi,bj)
./pkg/exf/exf_wind.F	120	EXF_WIND	cw(i,j,bi,bj) = uwind(i,j,bi,bj)/wsLoc(i,j)
./pkg/exf/exf_wind.F	121	EXF_WIND	sw(i,j,bi,bj) = vwind(i,j,bi,bj)/wsLoc(i,j)
./pkg/exf/exf_wind.F	124	EXF_WIND	cw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	125	EXF_WIND	sw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	133	EXF_WIND	wspeed(i,j,bi,bj) = wsLoc(i,j)
./pkg/exf/exf_wind.F	146	EXF_WIND	usSq = ( ustress(i, j,bi,bj)*ustress(i ,j,bi,bj)
./pkg/exf/exf_wind.F	147	EXF_WIND	& +ustress(i+1,j,bi,bj)*ustress(i+1,j,bi,bj)
./pkg/exf/exf_wind.F	148	EXF_WIND	& +vstress(i,j, bi,bj)*vstress(i,j ,bi,bj)
./pkg/exf/exf_wind.F	149	EXF_WIND	& +vstress(i,j+1,bi,bj)*vstress(i,j+1,bi,bj)
./pkg/exf/exf_wind.F	152	EXF_WIND	usSq = ustress(i,j,bi,bj)*ustress(i,j,bi,bj)
./pkg/exf/exf_wind.F	153	EXF_WIND	& +vstress(i,j,bi,bj)*vstress(i,j,bi,bj)
./pkg/exf/exf_wind.F	156	EXF_WIND	wStress(i,j,bi,bj) = SQRT(usSq)
./pkg/exf/exf_wind.F	158	EXF_WIND	cw(i,j,bi,bj) = ustress(i,j,bi,bj)/wStress(i,j,bi,bj)
./pkg/exf/exf_wind.F	159	EXF_WIND	sw(i,j,bi,bj) = vstress(i,j,bi,bj)/wStress(i,j,bi,bj)
./pkg/exf/exf_wind.F	161	EXF_WIND	wStress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	162	EXF_WIND	cw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	163	EXF_WIND	sw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	179	EXF_WIND	ustar = wStress(i,j,bi,bj)*recip_sqrtRhoA
./pkg/exf/exf_wind.F	203	EXF_WIND	wspeed(i,j,bi,bj) = wsLoc(i,j)
./pkg/exf/exf_wind.F	220	EXF_WIND	uwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*cw(i,j,bi,bj)
./pkg/exf/exf_wind.F	221	EXF_WIND	vwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*sw(i,j,bi,bj)
./pkg/exf/exf_wind.F	234	EXF_WIND	& wspeed(i,j,bi,bj)=wspeed(i,j,bi,bj)+
./pkg/exf/exf_wind.F	235	EXF_WIND	& xx_gentim2d(i,j,bi,bj,iarr)
./pkg/exf/exf_wind.F	248	EXF_WIND	sh(i,j,bi,bj) = MAX(wspeed(i,j,bi,bj),uMin)
./pkg/exf/exf_wind.F	260	EXF_WIND	wsm = sh(i,j,bi,bj)
./pkg/exf/exf_wind.F	263	EXF_WIND	ustress(i,j,bi,bj) = atmrhotmpbulkwspeed(i,j,bi,bj)
./pkg/exf/exf_wind.F	264	EXF_WIND	& * uwind(i,j,bi,bj)
./pkg/exf/exf_wind.F	265	EXF_WIND	vstress(i,j,bi,bj) = atmrhotmpbulkwspeed(i,j,bi,bj)
./pkg/exf/exf_wind.F	266	EXF_WIND	& * vwind(i,j,bi,bj)
./pkg/exf/exf_wind.F	57	EXF_WIND	INTEGER bi,bj
./pkg/exf/exf_wind.F	79	EXF_WIND	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_wind.F	82	EXF_WIND	act1 = bi - myBxLo(myThid)
./pkg/exf/exf_wind.F	98	EXF_WIND	cw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F	99	EXF_WIND	sw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_zenithangle.F	115	EXF_ZENITHANGLE	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_zenithangle.F	121	EXF_ZENITHANGLE	zen_albedo (i,j,bi,bj) = exf_albedo
./pkg/exf/exf_zenithangle.F	140	EXF_ZENITHANGLE	IF ( zen_albedo_pointer(i,j,bi,bj).EQ. 181. _d 0 ) THEN
./pkg/exf/exf_zenithangle.F	146	EXF_ZENITHANGLE	iLat1= INT(zen_albedo_pointer(i,j,bi,bj))
./pkg/exf/exf_zenithangle.F	147	EXF_ZENITHANGLE	wLat1= 1. _d 0 + iLat1 - zen_albedo_pointer(i,j,bi,bj)
./pkg/exf/exf_zenithangle.F	158	EXF_ZENITHANGLE	zen_albedo (i,j,bi,bj) =
./pkg/exf/exf_zenithangle.F	192	EXF_ZENITHANGLE	SJ = SIN(yC(i,j,bi,bj) * deg2rad)
./pkg/exf/exf_zenithangle.F	193	EXF_ZENITHANGLE	CJ = COS(yC(i,j,bi,bj) * deg2rad)
./pkg/exf/exf_zenithangle.F	202	EXF_ZENITHANGLE	& COS( 2. _d 0 PI TDAY + xC(i,j,bi,bj) * deg2rad )
./pkg/exf/exf_zenithangle.F	258	EXF_ZENITHANGLE	zen_albedo (i,j,bi,bj) =
./pkg/exf/exf_zenithangle.F	278	EXF_ZENITHANGLE	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_zenithangle.F	301	EXF_ZENITHANGLE	SJ = SIN(yC(i,j,bi,bj) * deg2rad)
./pkg/exf/exf_zenithangle.F	302	EXF_ZENITHANGLE	CJ = COS(yC(i,j,bi,bj) * deg2rad)
./pkg/exf/exf_zenithangle.F	307	EXF_ZENITHANGLE	& COS( 2. _d 0 PITDAY + xC(i,j,bi,bj)*deg2rad )
./pkg/exf/exf_zenithangle.F	310	EXF_ZENITHANGLE	zen_fsol_diurnal(i,j,bi,bj) = FSOL
./pkg/exf/exf_zenithangle.F	313	EXF_ZENITHANGLE	H0 = -TAN( yC(i,j,bi,bj) deg2rad ) TAN( DECLI )
./pkg/exf/exf_zenithangle.F	319	EXF_ZENITHANGLE	zen_fsol_daily(i,j,bi,bj) = FSOL
./pkg/exf/exf_zenithangle.F	49	EXF_ZENITHANGLE	INTEGER i, j, bi, bj
./pkg/exf/exf_zenithangle_table.F	123	EXF_ZENITHANGLE_TABLE	DO bi = myBxLo(myThid),myBxHi(myThid)
./pkg/exf/exf_zenithangle_table.F	126	EXF_ZENITHANGLE_TABLE	LLLAT=yC(i,j,bi,bj)+91. _d 0
./pkg/exf/exf_zenithangle_table.F	131	EXF_ZENITHANGLE_TABLE	zen_albedo_pointer(i,j,bi,bj)=LLLAT
./pkg/exf/exf_zenithangle_table.F	35	EXF_ZENITHANGLE_TABLE	INTEGER bi,bj
./pkg/fizhi/AtoC.F	40	ATOC	integer i, j, L, bi, bj
./pkg/fizhi/AtoC.F	51	ATOC	do bi = myBxLo(myThid), myBxHi(myThid)
./pkg/fizhi/AtoC.F	56	ATOC	tmpfld1(i,j) = fieldin1(i,j,L,bi,bj)*mask(i,j,L,bi,bj)
./pkg/fizhi/AtoC.F	57	ATOC	tmpfld2(i,j) = fieldin2(i,j,L,bi,bj)*mask(i,j,L,bi,bj)
./pkg/fizhi/AtoC.F	64	ATOC	if( (mask(i-1,j,L,bi,bj).ne.0.) .or.
./pkg/fizhi/AtoC.F	65	ATOC	. (mask(i,j,L,bi,bj).ne.0.) ) then
./pkg/fizhi/AtoC.F	70	ATOC	fieldout1(i,j,L,bi,bj) =
./pkg/fizhi/AtoC.F	72	ATOC	. ( mask(i-1,j,L,bi,bj) + mask(i,j,L,bi,bj) )
./pkg/fizhi/AtoC.F	74	ATOC	fieldout1(i,j,L,bi,bj) = 0.
./pkg/fizhi/AtoC.F	76	ATOC	if( (mask(i,j-1,L,bi,bj).ne.0.) .or.
./pkg/fizhi/AtoC.F	77	ATOC	. (mask(i,j,L,bi,bj).ne.0.) ) then
./pkg/fizhi/AtoC.F	82	ATOC	fieldout2(i,j,L,bi,bj) =
./pkg/fizhi/AtoC.F	84	ATOC	. ( mask(i,j,L,bi,bj) + mask(i,j-1,L,bi,bj) )
./pkg/fizhi/AtoC.F	86	ATOC	fieldout2(i,j,L,bi,bj) = 0.
./pkg/fizhi/CtoA.F	42	CTOA	integer i, j, L, bi, bj
./pkg/fizhi/CtoA.F	53	CTOA	do bi = myBxLo(myThid), myBxHi(myThid)
./pkg/fizhi/CtoA.F	58	CTOA	tmpfld1(i,j) = fieldin1(i,j,L,bi,bj)*mask1(i,j,L,bi,bj)
./pkg/fizhi/CtoA.F	59	CTOA	tmpfld2(i,j) = fieldin2(i,j,L,bi,bj)*mask2(i,j,L,bi,bj)
./pkg/fizhi/CtoA.F	64	CTOA	if( (mask1(i,j,L,bi,bj).ne.0.) .or.
./pkg/fizhi/CtoA.F	65	CTOA	. (mask1(i+1,j,L,bi,bj).ne.0.) ) then
./pkg/fizhi/CtoA.F	70	CTOA	fieldout1(i,j,L,bi,bj) =
./pkg/fizhi/CtoA.F	72	CTOA	. ( mask1(i,j,L,bi,bj) + mask1(i+1,j,L,bi,bj) )
./pkg/fizhi/CtoA.F	74	CTOA	fieldout1(i,j,L,bi,bj) = 0.
./pkg/fizhi/CtoA.F	76	CTOA	if( (mask2(i,j,L,bi,bj).ne.0.) .or.
./pkg/fizhi/CtoA.F	77	CTOA	. (mask2(i,j+1,L,bi,bj).ne.0.) ) then
./pkg/fizhi/CtoA.F	82	CTOA	fieldout2(i,j,L,bi,bj) =
./pkg/fizhi/CtoA.F	84	CTOA	. ( mask2(i,j,L,bi,bj) + mask2(i,j+1,L,bi,bj) )
./pkg/fizhi/CtoA.F	86	CTOA	fieldout2(i,j,L,bi,bj) = 0.
./pkg/fizhi/do_fizhi.F	171	DO_FIZHI	xlats(i,j) = lats(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F	172	DO_FIZHI	xlons(i,j) = lons(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F	173	DO_FIZHI	surfZ(i,j) = Zsurf(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F	184	DO_FIZHI	radswt(i,j,bi,bj) = S0(1.0/ra2)cosz(i,j)
./pkg/fizhi/do_fizhi.F	194	DO_FIZHI	ple(i,j,Nrphys+1,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100.
./pkg/fizhi/do_fizhi.F	195	DO_FIZHI	pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa
./pkg/fizhi/do_fizhi.F	196	DO_FIZHI	p(i,j,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100.
./pkg/fizhi/do_fizhi.F	197	DO_FIZHI	sea_ice(i,j) = sice(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F	198	DO_FIZHI	raincon(i,j) = rainconin(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F	199	DO_FIZHI	rainlsp(i,j) = rainlspin(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F	200	DO_FIZHI	snowfall(i,j) = snowfallin(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F	206	DO_FIZHI	u(i,j,L) = uphy(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	207	DO_FIZHI	v(i,j,L) = vphy(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	208	DO_FIZHI	t(i,j,L) = thphy(i,j,L,bi,bj)/p0kappa
./pkg/fizhi/do_fizhi.F	209	DO_FIZHI	q(i,j,L,1) = sphy(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	210	DO_FIZHI	pl(i,j,L,bi,bj) = (pephy(i,j,L,bi,bj)+pephy(i,j,L+1,bi,bj))/200.
./pkg/fizhi/do_fizhi.F	211	DO_FIZHI	dpres(i,j,L,bi,bj)=(pephy(i,j,L+1,bi,bj)-pephy(i,j,L,bi,bj))/100.
./pkg/fizhi/do_fizhi.F	212	DO_FIZHI	ple(i,j,L,bi,bj) = pephy(i,j,L,bi,bj)/100.
./pkg/fizhi/do_fizhi.F	213	DO_FIZHI	if (ple(i,j,L,bi,bj).gt.0.) then
./pkg/fizhi/do_fizhi.F	214	DO_FIZHI	pkle(i,j,L,bi,bj) = ple(i,j,L,bi,bj) **kappa
./pkg/fizhi/do_fizhi.F	216	DO_FIZHI	pkle(i,j,L,bi,bj) = 0.
./pkg/fizhi/do_fizhi.F	218	DO_FIZHI	cldtot_lw(i,j,L) = cldtotlwin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	219	DO_FIZHI	cldlsp_lw(i,j,L) = cldlsplwin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	220	DO_FIZHI	cldras_lw(i,j,L) = cldraslwin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	221	DO_FIZHI	lwlz(i,j,L) = lwlzin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	222	DO_FIZHI	qliqavelw(i,j,L) = qliqavelwin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	223	DO_FIZHI	fccavelw(i,j,L) = fccavelwin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	224	DO_FIZHI	cldtot_sw(i,j,L) = cldtotswin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	225	DO_FIZHI	cldlsp_sw(i,j,L) = cldlspswin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	226	DO_FIZHI	cldras_sw(i,j,L) = cldrasswin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	227	DO_FIZHI	swlz(i,j,L) = swlzin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	228	DO_FIZHI	qliqavesw(i,j,L) = qliqaveswin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	229	DO_FIZHI	fccavesw(i,j,L) = fccaveswin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	234	DO_FIZHI	call PKAPPA (im2,jm2,Nrphys,ple(1,1,1,bi,bj),pkle(1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F	235	DO_FIZHI	& pkl(1,1,1,bi,bj))
./pkg/fizhi/do_fizhi.F	237	DO_FIZHI	call FIZHI_DRIVER(myid,im2,jm2,Nrphys,bi,bj,ptracer,ntracer,
./pkg/fizhi/do_fizhi.F	239	DO_FIZHI	& p(1,1,bi,bj),u,v,t,q,pl(1,1,1,bi,bj),ple(1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F	240	DO_FIZHI	& dpres(1,1,1,bi,bj),pkle(1,1,1,bi,bj),pkl(1,1,1,bi,bj),surfZ,
./pkg/fizhi/do_fizhi.F	241	DO_FIZHI	& fracland(1,1,bi,bj),landtype(1,1,bi,bj),radswt(1,1,bi,bj),
./pkg/fizhi/do_fizhi.F	242	DO_FIZHI	& phis_var(1,1,bi,bj),tgz(1,1,bi,bj),sea_ice,nchp,chlat(1,bi,bj),
./pkg/fizhi/do_fizhi.F	243	DO_FIZHI	& chlon(1,bi,bj),igrd(1,bi,bj),nchptot(bi,bj),nchpland(bi,bj),
./pkg/fizhi/do_fizhi.F	244	DO_FIZHI	& chfr(1,bi,bj),ityp(1,bi,bj),tcanopy(1,bi,bj),tdeep(1,bi,bj),
./pkg/fizhi/do_fizhi.F	245	DO_FIZHI	& ecanopy(1,bi,bj),swetshal(1,bi,bj),swetroot(1,bi,bj),
./pkg/fizhi/do_fizhi.F	246	DO_FIZHI	& swetdeep(1,bi,bj),capac(1,bi,bj),snodep(1,bi,bj),
./pkg/fizhi/do_fizhi.F	247	DO_FIZHI	& ctmt(1,bi,bj),xxmt(1,bi,bj),yymt(1,bi,bj),zetamt(1,bi,bj),
./pkg/fizhi/do_fizhi.F	248	DO_FIZHI	& xlmt(1,1,bi,bj),khmt(1,1,bi,bj),tke(1,1,bi,bj),
./pkg/fizhi/do_fizhi.F	249	DO_FIZHI	& albvisdr(1,1,bi,bj),albvisdf(1,1,bi,bj),albnirdr(1,1,bi,bj),
./pkg/fizhi/do_fizhi.F	250	DO_FIZHI	& albnirdf(1,1,bi,bj),emiss(1,1,1,bi,bj),alai(1,bi,bj),
./pkg/fizhi/do_fizhi.F	251	DO_FIZHI	& agrn(1,bi,bj),
./pkg/fizhi/do_fizhi.F	252	DO_FIZHI	& qstr(1,1,1,bi,bj),o3(1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F	254	DO_FIZHI	& lwdt(1,1,1,bi,bj),lwdtclr(1,1,1,bi,bj),swdt(1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F	255	DO_FIZHI	& swdtclr(1,1,1,bi,bj),turbu(1,1,1,bi,bj),turbv(1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F	256	DO_FIZHI	& turbt(1,1,1,bi,bj),turbq(1,1,1,1,bi,bj),moistu(1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F	257	DO_FIZHI	& moistv(1,1,1,bi,bj),moistt(1,1,1,bi,bj),moistq(1,1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F	258	DO_FIZHI	& radswg(1,1,bi,bj),swgclr(1,1,bi,bj),fdirpar(1,1,bi,bj),
./pkg/fizhi/do_fizhi.F	259	DO_FIZHI	& fdifpar(1,1,bi,bj),osr(1,1,bi,bj),osrclr(1,1,bi,bj),
./pkg/fizhi/do_fizhi.F	260	DO_FIZHI	& tg0(1,1,bi,bj),radlwg(1,1,bi,bj),lwgclr(1,1,bi,bj),
./pkg/fizhi/do_fizhi.F	261	DO_FIZHI	& st4(1,1,bi,bj),dst4(1,1,bi,bj),dlwdtg(1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F	262	DO_FIZHI	& rainlsp,raincon,snowfall,iras(bi,bj),
./pkg/fizhi/do_fizhi.F	263	DO_FIZHI	& nlwcld(bi,bj),cldtot_lw,cldras_lw,cldlsp_lw,nlwlz(bi,bj),lwlz,
./pkg/fizhi/do_fizhi.F	264	DO_FIZHI	& nswcld(bi,bj),cldtot_sw,cldras_sw,cldlsp_sw,nswlz(bi,bj),swlz,
./pkg/fizhi/do_fizhi.F	265	DO_FIZHI	& imstturbsw(bi,bj),imstturblw(bi,bj),qliqavesw,qliqavelw,
./pkg/fizhi/do_fizhi.F	266	DO_FIZHI	& fccavesw,fccavelw,qq(1,1,1,bi,bj))
./pkg/fizhi/do_fizhi.F	271	DO_FIZHI	cldtotlwin(i,j,L,bi,bj) = cldtot_lw(i,j,L)
./pkg/fizhi/do_fizhi.F	272	DO_FIZHI	cldlsplwin(i,j,L,bi,bj) = cldlsp_lw(i,j,L)
./pkg/fizhi/do_fizhi.F	273	DO_FIZHI	cldraslwin(i,j,L,bi,bj) = cldras_lw(i,j,L)
./pkg/fizhi/do_fizhi.F	274	DO_FIZHI	lwlzin(i,j,L,bi,bj) = lwlz(i,j,L)
./pkg/fizhi/do_fizhi.F	275	DO_FIZHI	qliqavelwin(i,j,L,bi,bj) = qliqavelw(i,j,L)
./pkg/fizhi/do_fizhi.F	276	DO_FIZHI	fccavelwin(i,j,L,bi,bj) = fccavelw(i,j,L)
./pkg/fizhi/do_fizhi.F	277	DO_FIZHI	cldtotswin(i,j,L,bi,bj) = cldtot_sw(i,j,L)
./pkg/fizhi/do_fizhi.F	278	DO_FIZHI	cldlspswin(i,j,L,bi,bj) = cldlsp_sw(i,j,L)
./pkg/fizhi/do_fizhi.F	279	DO_FIZHI	cldrasswin(i,j,L,bi,bj) = cldras_sw(i,j,L)
./pkg/fizhi/do_fizhi.F	280	DO_FIZHI	swlzin(i,j,L,bi,bj) = swlz(i,j,L)
./pkg/fizhi/do_fizhi.F	281	DO_FIZHI	qliqaveswin(i,j,L,bi,bj) = qliqavesw(i,j,L)
./pkg/fizhi/do_fizhi.F	282	DO_FIZHI	fccaveswin(i,j,L,bi,bj) = fccavesw(i,j,L)
./pkg/fizhi/do_fizhi.F	289	DO_FIZHI	rainconin(i,j,bi,bj) = raincon(i,j)
./pkg/fizhi/do_fizhi.F	290	DO_FIZHI	rainlspin(i,j,bi,bj) = rainlsp(i,j)
./pkg/fizhi/do_fizhi.F	291	DO_FIZHI	snowfallin(i,j,bi,bj) = snowfall(i,j)
./pkg/fizhi/do_fizhi.F	300	DO_FIZHI	duphy(i,j,L,bi,bj) = moistu(i,j,L,bi,bj) + turbu(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	301	DO_FIZHI	dvphy(i,j,L,bi,bj) = moistv(i,j,L,bi,bj) + turbv(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F	302	DO_FIZHI	dthphy(i,j,L,bi,bj) = ((moistt(i,j,L,bi,bj)+turbt(i,j,L,bi,bj)+
./pkg/fizhi/do_fizhi.F	303	DO_FIZHI	& lwdt(i,j,L,bi,bj) +
./pkg/fizhi/do_fizhi.F	304	DO_FIZHI	& dlwdtg(i,j,L,bi,bj) * (tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) +
./pkg/fizhi/do_fizhi.F	305	DO_FIZHI	& swdt(i,j,L,bi,bj)radswt(i,j,bi,bj) )p0kappa ) / p(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F	306	DO_FIZHI	dsphy(i,j,L,bi,bj) = (moistq(i,j,L,1,bi,bj)+turbq(i,j,L,1,bi,bj))
./pkg/fizhi/do_fizhi.F	307	DO_FIZHI	& /p(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F	316	DO_FIZHI	& im1,im2,jm1,jm2,Nrphys,nSx,nSy,bi,bj,ntracer)
./pkg/fizhi/do_fizhi.F	35	DO_FIZHI	INTEGER Nrphin,nSxIn,nSyIn,bi,bj,nchp
./pkg/fizhi/do_fizhi.F	5	DO_FIZHI	& idim1,idim2,jdim1,jdim2,Nrphin,nSxIn,nSyIn,im1,im2,jm1,jm2,bi,bj,
./pkg/fizhi/fizhi_driver.F	164	FIZHI_DRIVER	call SWRIO ( nymd,nhms,bi,bj,ndsw,myid,istrip,npcs,
./pkg/fizhi/fizhi_driver.F	187	FIZHI_DRIVER	call LWRIO ( nymd,nhms,bi,bj,myid,istrip,npcs,
./pkg/fizhi/fizhi_driver.F	202	FIZHI_DRIVER	call TURBIO (im,jm,lm,istrip,nymd,nhms,bi,bj,
./pkg/fizhi/fizhi_driver.F	221	FIZHI_DRIVER	& turbu,turbv,turbt,im,jm,lm,bi,bj,istrip,npcs,imglobal)
./pkg/fizhi/fizhi_driver.F	227	FIZHI_DRIVER	& bi,bj,rfu,rfv,rft)
./pkg/fizhi/fizhi_driver.F	247	FIZHI_DRIVER	& p,pl,ple,dpres,pkht,pkl,u,v,t,q,bi,bj,ntracer,ptracer,qq,
./pkg/fizhi/fizhi_driver.F	52	FIZHI_DRIVER	INTEGER myid,im,jm,lm,bi,bj,ptracer,ntracer
./pkg/fizhi/fizhi_driver.F	5	FIZHI_DRIVER	SUBROUTINE FIZHI_DRIVER (myid,im,jm,lm,bi,bj,ptracer,ntracer,
./pkg/fizhi/fizhi_fillnegs.F	27	QCHECK	integer Nsx,Nsy,bi,bj
./pkg/fizhi/fizhi_fillnegs.F	40	QCHECK	ddsig = dp(i,j,LM1,bi,bj)/dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_fillnegs.F	41	QCHECK	if( qz(i,j,LM1,bi,bj).lt.0.0 _d 0) then
./pkg/fizhi/fizhi_fillnegs.F	42	QCHECK	qz(i,j,L,bi,bj ) = qz(i,j,L,bi,bj) + qz(i,j,LM1,bi,bj)*ddsig
./pkg/fizhi/fizhi_fillnegs.F	43	QCHECK	qz(i,j,LM1,bi,bj) = 0.0 _d 0
./pkg/fizhi/fizhi_fillnegs.F	51	QCHECK	if(qz(i,j,Ldim,bi,bj).lt.0.0 _d 0)qz(i,j,Ldim,bi,bj) = 0.0 _d 0
./pkg/fizhi/fizhi_fillnegs.F	6	QCHECK	. jm1,jm2,bi,bj,dp,qz)
./pkg/fizhi/fizhi_gwdrag.F	211	GWDRAG	call DIAGNOSTICS_FILL(tmpdiag,'GWDU ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F	220	GWDRAG	call DIAGNOSTICS_FILL(tmpdiag,'GWDV ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F	229	GWDRAG	call DIAGNOSTICS_FILL(tmpdiag,'GWDT ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F	237	GWDRAG	call DIAGNOSTICS_FILL(dragx,'GWDUS ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F	243	GWDRAG	call DIAGNOSTICS_FILL(dragy,'GWDVS ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F	266	GWDRAG	call DIAGNOSTICS_FILL(tmpdiag,'GWDUT ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F	289	GWDRAG	call DIAGNOSTICS_FILL(tmpdiag,'GWDVT ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F	43	GWDRAG	integer myid,im,jm,Lm,bi,bj,istrip,npcs,imglobal
./pkg/fizhi/fizhi_gwdrag.F	5	GWDRAG	. dudt,dvdt,dtdt,im,jm,Lm,bi,bj,istrip,npcs,imglobal)
./pkg/fizhi/fizhi_init_fixed.F	110	FIZHI_INIT_FIXED	do bi = myBxLo(myThid), myBxHi(myThid)
./pkg/fizhi/fizhi_init_fixed.F	111	FIZHI_INIT_FIXED	call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp,
./pkg/fizhi/fizhi_init_fixed.F	112	FIZHI_INIT_FIXED	& surftype,tilefrac,fracland(1,1,bi,bj))
./pkg/fizhi/fizhi_init_fixed.F	115	FIZHI_INIT_FIXED	landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj)
./pkg/fizhi/fizhi_init_fixed.F	116	FIZHI_INIT_FIXED	if(fracland(i,j,bi,bj).ge.0.3.and.surftype(i,j,1,bi,bj).ge.100)
./pkg/fizhi/fizhi_init_fixed.F	117	FIZHI_INIT_FIXED	& landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj)
./pkg/fizhi/fizhi_init_fixed.F	118	FIZHI_INIT_FIXED	if(sice(i,j,bi,bj).ne.0.0)landtype(i,j,bi,bj) = 101
./pkg/fizhi/fizhi_init_fixed.F	154	FIZHI_INIT_FIXED	do bi = myBxLo(myThid), myBxHi(myThid)
./pkg/fizhi/fizhi_init_fixed.F	157	FIZHI_INIT_FIXED	if(fracland(i,j,bi,bj).gt.0.3) then
./pkg/fizhi/fizhi_init_fixed.F	158	FIZHI_INIT_FIXED	phis_var(i,j,bi,bj) = tempoverlap(i,j,bi,bj)
./pkg/fizhi/fizhi_init_fixed.F	160	FIZHI_INIT_FIXED	phis_var(i,j,bi,bj) = 0.
./pkg/fizhi/fizhi_init_fixed.F	44	FIZHI_INIT_FIXED	INTEGER i,j,L,bi,bj
./pkg/fizhi/fizhi_init_fixed.F	86	FIZHI_INIT_FIXED	do bi = myBxLo(myThid), myBxHi(myThid)
./pkg/fizhi/fizhi_init_fixed.F	89	FIZHI_INIT_FIXED	lons(i,j,bi,bj) = xC(i,j,bi,bj)
./pkg/fizhi/fizhi_init_fixed.F	90	FIZHI_INIT_FIXED	lats(i,j,bi,bj) = yC(i,j,bi,bj)
./pkg/fizhi/fizhi_init_vars.F	103	FIZHI_INIT_VARS	pedyn(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	109	FIZHI_INIT_VARS	Lbotij = kSurfC(i,j,bi,bj)
./pkg/fizhi/fizhi_init_vars.F	111	FIZHI_INIT_VARS	& pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./pkg/fizhi/fizhi_init_vars.F	116	FIZHI_INIT_VARS	Lbotij = kSurfC(i,j,bi,bj)
./pkg/fizhi/fizhi_init_vars.F	118	FIZHI_INIT_VARS	pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) -
./pkg/fizhi/fizhi_init_vars.F	119	FIZHI_INIT_VARS	& drF(L-1)*hfacC(i,j,L-1,bi,bj)
./pkg/fizhi/fizhi_init_vars.F	122	FIZHI_INIT_VARS	if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5)
./pkg/fizhi/fizhi_init_vars.F	123	FIZHI_INIT_VARS	& pedyn(i,j,Nr+1,bi,bj) = 1.e-5
./pkg/fizhi/fizhi_init_vars.F	129	FIZHI_INIT_VARS	pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./pkg/fizhi/fizhi_init_vars.F	131	FIZHI_INIT_VARS	pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys0(i,j,L-1,bi,bj)
./pkg/fizhi/fizhi_init_vars.F	134	FIZHI_INIT_VARS	if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5)
./pkg/fizhi/fizhi_init_vars.F	135	FIZHI_INIT_VARS	& pephy(i,j,Nrphys+1,bi,bj) = 1.e-5
./pkg/fizhi/fizhi_init_vars.F	145	FIZHI_INIT_VARS	windphy(i,j,L,bi,bj) = 0.025 *
./pkg/fizhi/fizhi_init_vars.F	146	FIZHI_INIT_VARS	& log((pephy(i,j,1,bi,bj)-pephy(i,j,L+1,bi,bj))*10.)
./pkg/fizhi/fizhi_init_vars.F	159	FIZHI_INIT_VARS	do bi = myBxLo(myThid), myBxHi(myThid)
./pkg/fizhi/fizhi_init_vars.F	163	FIZHI_INIT_VARS	& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy)
./pkg/fizhi/fizhi_init_vars.F	169	FIZHI_INIT_VARS	uphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_init_vars.F	174	FIZHI_INIT_VARS	& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy)
./pkg/fizhi/fizhi_init_vars.F	178	FIZHI_INIT_VARS	vphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_init_vars.F	183	FIZHI_INIT_VARS	& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,2,tempphy)
./pkg/fizhi/fizhi_init_vars.F	187	FIZHI_INIT_VARS	thphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_init_vars.F	192	FIZHI_INIT_VARS	& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,0,tempphy)
./pkg/fizhi/fizhi_init_vars.F	196	FIZHI_INIT_VARS	sphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_init_vars.F	205	FIZHI_INIT_VARS	duphy(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	206	FIZHI_INIT_VARS	dvphy(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	207	FIZHI_INIT_VARS	dthphy(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	208	FIZHI_INIT_VARS	dsphy(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	217	FIZHI_INIT_VARS	guphy(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	218	FIZHI_INIT_VARS	gvphy(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	219	FIZHI_INIT_VARS	gthphy(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	220	FIZHI_INIT_VARS	gsphy(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	229	FIZHI_INIT_VARS	ctmt(i,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	230	FIZHI_INIT_VARS	xxmt(i,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	231	FIZHI_INIT_VARS	yymt(i,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	232	FIZHI_INIT_VARS	zetamt(i,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	236	FIZHI_INIT_VARS	tke(i,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	237	FIZHI_INIT_VARS	xlmt(i,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	238	FIZHI_INIT_VARS	khmt(i,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	245	FIZHI_INIT_VARS	turbStart(bi,bj) = .TRUE.
./pkg/fizhi/fizhi_init_vars.F	253	FIZHI_INIT_VARS	imstturblw(bi,bj) = 0
./pkg/fizhi/fizhi_init_vars.F	254	FIZHI_INIT_VARS	imstturbsw(bi,bj) = 0
./pkg/fizhi/fizhi_init_vars.F	255	FIZHI_INIT_VARS	iras(bi,bj) = 0
./pkg/fizhi/fizhi_init_vars.F	256	FIZHI_INIT_VARS	nlwcld(bi,bj) = 0
./pkg/fizhi/fizhi_init_vars.F	257	FIZHI_INIT_VARS	nlwlz(bi,bj) = 0
./pkg/fizhi/fizhi_init_vars.F	258	FIZHI_INIT_VARS	nswcld(bi,bj) = 0
./pkg/fizhi/fizhi_init_vars.F	259	FIZHI_INIT_VARS	nswlz(bi,bj) = 0
./pkg/fizhi/fizhi_init_vars.F	263	FIZHI_INIT_VARS	swlz(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	264	FIZHI_INIT_VARS	lwlz(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	265	FIZHI_INIT_VARS	qliqavesw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	266	FIZHI_INIT_VARS	qliqavelw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	267	FIZHI_INIT_VARS	fccavesw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	268	FIZHI_INIT_VARS	fccavelw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	269	FIZHI_INIT_VARS	cldtot_sw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	270	FIZHI_INIT_VARS	cldras_sw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	271	FIZHI_INIT_VARS	cldlsp_sw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	272	FIZHI_INIT_VARS	cldtot_lw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	273	FIZHI_INIT_VARS	cldras_lw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	274	FIZHI_INIT_VARS	cldlsp_lw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	280	FIZHI_INIT_VARS	rainlsp(i,j,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	281	FIZHI_INIT_VARS	raincon(i,j,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	282	FIZHI_INIT_VARS	snowfall(i,j,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F	297	FIZHI_INIT_VARS	do bi = myBxLo(myThid), myBxHi(myThid)
./pkg/fizhi/fizhi_init_vars.F	298	FIZHI_INIT_VARS	turbStart(bi,bj) = .FALSE.
./pkg/fizhi/fizhi_init_vars.F	60	FIZHI_INIT_VARS	INTEGER i, j, L, bi, bj, Lbotij
./pkg/fizhi/fizhi_init_vars.F	97	FIZHI_INIT_VARS	do bi = myBxLo(myThid), myBxHi(myThid)
./pkg/fizhi/fizhi_init_veg.F	122	FIZHI_INIT_VEG	DO bi = myBxLo(myThid), myBxHi(myThid)
./pkg/fizhi/fizhi_init_veg.F	124	FIZHI_INIT_VEG	biglobal=bi+(myXGlobalLo-1)/im
./pkg/fizhi/fizhi_init_veg.F	135	FIZHI_INIT_VEG	surftype(i,j,k,bi,bj) = iveg_32(i,j,k,biglobal,bjglobal)
./pkg/fizhi/fizhi_init_veg.F	136	FIZHI_INIT_VEG	tilefrac(i,j,k,bi,bj) = veg_32(i,j,k,biglobal,bjglobal)
./pkg/fizhi/fizhi_init_veg.F	156	FIZHI_INIT_VEG	DO bi = myBxLo(myThid), myBxHi(myThid)
./pkg/fizhi/fizhi_init_veg.F	160	FIZHI_INIT_VEG	igrd(i,bi,bj) = 1
./pkg/fizhi/fizhi_init_veg.F	164	FIZHI_INIT_VEG	nchpland(bi,bj) = 0
./pkg/fizhi/fizhi_init_veg.F	168	FIZHI_INIT_VEG	if(surftype(i,j,k,bi,bj).lt.100 .and.
./pkg/fizhi/fizhi_init_veg.F	169	FIZHI_INIT_VEG	& tilefrac(i,j,k,bi,bj).gt.0.) then
./pkg/fizhi/fizhi_init_veg.F	170	FIZHI_INIT_VEG	nchpland(bi,bj) = nchpland(bi,bj) + 1
./pkg/fizhi/fizhi_init_veg.F	171	FIZHI_INIT_VEG	igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im
./pkg/fizhi/fizhi_init_veg.F	172	FIZHI_INIT_VEG	ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj)
./pkg/fizhi/fizhi_init_veg.F	173	FIZHI_INIT_VEG	chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj)
./pkg/fizhi/fizhi_init_veg.F	174	FIZHI_INIT_VEG	chlon(nchpland(bi,bj),bi,bj) = lons(i,j,bi,bj)
./pkg/fizhi/fizhi_init_veg.F	175	FIZHI_INIT_VEG	chlt (nchpland(bi,bj),bi,bj) = lats(i,j,bi,bj)
./pkg/fizhi/fizhi_init_veg.F	182	FIZHI_INIT_VEG	nchptot(bi,bj) = nchpland(bi,bj)
./pkg/fizhi/fizhi_init_veg.F	186	FIZHI_INIT_VEG	if(surftype(i,j,k,bi,bj).ge.100 .and.
./pkg/fizhi/fizhi_init_veg.F	187	FIZHI_INIT_VEG	& tilefrac(i,j,k,bi,bj).gt.0.) then
./pkg/fizhi/fizhi_init_veg.F	188	FIZHI_INIT_VEG	nchptot(bi,bj) = nchptot(bi,bj) + 1
./pkg/fizhi/fizhi_init_veg.F	189	FIZHI_INIT_VEG	igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im
./pkg/fizhi/fizhi_init_veg.F	190	FIZHI_INIT_VEG	ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj)
./pkg/fizhi/fizhi_init_veg.F	191	FIZHI_INIT_VEG	chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj)
./pkg/fizhi/fizhi_init_veg.F	192	FIZHI_INIT_VEG	chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj)
./pkg/fizhi/fizhi_init_veg.F	193	FIZHI_INIT_VEG	chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj)
./pkg/fizhi/fizhi_init_veg.F	199	FIZHI_INIT_VEG	WRITE(standardMessageUnit,'(2(A,I4),2(A,I10))') ' bi=', bi,
./pkg/fizhi/fizhi_init_veg.F	200	FIZHI_INIT_VEG	& ', bj=', bj, ', # of Land Tiles=', nchpland(bi,bj),
./pkg/fizhi/fizhi_init_veg.F	201	FIZHI_INIT_VEG	& ', Total # of Tiles=', nchptot(bi,bj)
./pkg/fizhi/fizhi_init_veg.F	67	FIZHI_INIT_VEG	INTEGER i,j,k,bi,bj
./pkg/fizhi/fizhi_init_vegsurftiles.F	102	FIZHI_INIT_VEGSURFTILES	call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj),
./pkg/fizhi/fizhi_init_vegsurftiles.F	103	FIZHI_INIT_VEGSURFTILES	. temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F	105	FIZHI_INIT_VEGSURFTILES	tcanopy(n,bi,bj) = temptile(n)
./pkg/fizhi/fizhi_init_vegsurftiles.F	111	FIZHI_INIT_VEGSURFTILES	if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001)
./pkg/fizhi/fizhi_init_vegsurftiles.F	115	FIZHI_INIT_VEGSURFTILES	call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj),
./pkg/fizhi/fizhi_init_vegsurftiles.F	116	FIZHI_INIT_VEGSURFTILES	. temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F	118	FIZHI_INIT_VEGSURFTILES	tdeep(n,bi,bj) = temptile(n)
./pkg/fizhi/fizhi_init_vegsurftiles.F	124	FIZHI_INIT_VEGSURFTILES	if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001)
./pkg/fizhi/fizhi_init_vegsurftiles.F	128	FIZHI_INIT_VEGSURFTILES	call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj),
./pkg/fizhi/fizhi_init_vegsurftiles.F	129	FIZHI_INIT_VEGSURFTILES	. temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F	131	FIZHI_INIT_VEGSURFTILES	ecanopy(n,bi,bj) = temptile(n)
./pkg/fizhi/fizhi_init_vegsurftiles.F	137	FIZHI_INIT_VEGSURFTILES	if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001)
./pkg/fizhi/fizhi_init_vegsurftiles.F	141	FIZHI_INIT_VEGSURFTILES	call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj),
./pkg/fizhi/fizhi_init_vegsurftiles.F	142	FIZHI_INIT_VEGSURFTILES	. temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F	144	FIZHI_INIT_VEGSURFTILES	swetshal(n,bi,bj) = temptile(n)
./pkg/fizhi/fizhi_init_vegsurftiles.F	150	FIZHI_INIT_VEGSURFTILES	if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001)
./pkg/fizhi/fizhi_init_vegsurftiles.F	154	FIZHI_INIT_VEGSURFTILES	call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj),
./pkg/fizhi/fizhi_init_vegsurftiles.F	155	FIZHI_INIT_VEGSURFTILES	. temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F	157	FIZHI_INIT_VEGSURFTILES	swetroot(n,bi,bj) = temptile(n)
./pkg/fizhi/fizhi_init_vegsurftiles.F	163	FIZHI_INIT_VEGSURFTILES	if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001)
./pkg/fizhi/fizhi_init_vegsurftiles.F	167	FIZHI_INIT_VEGSURFTILES	call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj),
./pkg/fizhi/fizhi_init_vegsurftiles.F	168	FIZHI_INIT_VEGSURFTILES	. temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F	170	FIZHI_INIT_VEGSURFTILES	swetdeep(n,bi,bj) = temptile(n)
./pkg/fizhi/fizhi_init_vegsurftiles.F	176	FIZHI_INIT_VEGSURFTILES	if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001)
./pkg/fizhi/fizhi_init_vegsurftiles.F	180	FIZHI_INIT_VEGSURFTILES	call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj),
./pkg/fizhi/fizhi_init_vegsurftiles.F	181	FIZHI_INIT_VEGSURFTILES	. temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F	183	FIZHI_INIT_VEGSURFTILES	snodep(n,bi,bj) = temptile(n)
./pkg/fizhi/fizhi_init_vegsurftiles.F	189	FIZHI_INIT_VEGSURFTILES	if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001)
./pkg/fizhi/fizhi_init_vegsurftiles.F	193	FIZHI_INIT_VEGSURFTILES	call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj),
./pkg/fizhi/fizhi_init_vegsurftiles.F	194	FIZHI_INIT_VEGSURFTILES	. temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F	196	FIZHI_INIT_VEGSURFTILES	capac(n,bi,bj) = temptile(n)
./pkg/fizhi/fizhi_init_vegsurftiles.F	49	FIZHI_INIT_VEGSURFTILES	integer bi,bj,fileprec
./pkg/fizhi/fizhi_init_vegsurftiles.F	84	FIZHI_INIT_VEGSURFTILES	DO bi = myBxLo(myThid), myBxHi(myThid)
./pkg/fizhi/fizhi_init_vegsurftiles.F	87	FIZHI_INIT_VEGSURFTILES	bislot = exch2_txglobalo(W2_myTileList(bi,bj))-1
./pkg/fizhi/fizhi_init_vegsurftiles.F	88	FIZHI_INIT_VEGSURFTILES	bjslot = exch2_tyglobalo(W2_myTileList(bi,bj))-1
./pkg/fizhi/fizhi_init_vegsurftiles.F	90	FIZHI_INIT_VEGSURFTILES	bislot = myXGlobalLo-1+(bi-1)*sNx
./pkg/fizhi/fizhi_init_vegsurftiles.F	94	FIZHI_INIT_VEGSURFTILES	call GET_LANDFRAC(sNx,sNy,Nsx,Nsy,bi,bj,maxtyp,
./pkg/fizhi/fizhi_init_vegsurftiles.F	95	FIZHI_INIT_VEGSURFTILES	. surftype,tilefrac,fracland(1,1,bi,bj))
./pkg/fizhi/fizhi_lwrad.F	19	LWRIO	integer nymd,nhms,istrip,npcs,bi,bj,myid
./pkg/fizhi/fizhi_lwrad.F	282	LWRIO	call DIAGNOSTICS_FILL(tgz,'TGRLW ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F	293	LWRIO	call DIAGNOSTICS_FILL(tmpdiag,'TLW ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F	302	LWRIO	call DIAGNOSTICS_FILL(tmpdiag,'SHRAD ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F	311	LWRIO	call DIAGNOSTICS_FILL(tmpdiag,'OZLW ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F	317	LWRIO	call DIAGNOSTICS_FILL(tempor1,'OLR ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F	321	LWRIO	call DIAGNOSTICS_FILL(tempor2,'OLRCLR ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F	5	LWRIO	subroutine LWRIO (nymd,nhms,bi,bj,myid,istrip,npcs,
./pkg/fizhi/fizhi_moist.F	1142	MOISTIO	call DIAGNOSTICS_FILL(tmpdiag,'CLDTMP ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F	1143	MOISTIO	call DIAGNOSTICS_FILL(tmpdiag2,'CTTCNT ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F	1159	MOISTIO	call DIAGNOSTICS_FILL(tmpdiag,'CLDPRS ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F	1160	MOISTIO	call DIAGNOSTICS_FILL(tmpdiag2,'CTPCNT ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F	203	MOISTIO	if(first .and. myid.eq.1 .and. bi.eq.1 ) then
./pkg/fizhi/fizhi_moist.F	21	MOISTIO	integer bi,bj,ntracerin,ptracer
./pkg/fizhi/fizhi_moist.F	7	MOISTIO	. pz,plz,plze,dpres,pkht,pkl,uz,vz,tz,qz,bi,bj,ntracerin,ptracer,
./pkg/fizhi/fizhi_moist.F	850	MOISTIO	call DIAGNOSTICS_FILL(psubcldg,'PSUBCLD ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F	851	MOISTIO	call DIAGNOSTICS_FILL(psubcldgc,'PSUBCLDC',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F	863	MOISTIO	call DIAGNOSTICS_FILL(tmpdiag,'CLDNP ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F	877	MOISTIO	call DIAGNOSTICS_FILL(tmpdiag,'MOISTT ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F	890	MOISTIO	call DIAGNOSTICS_FILL(tmpdiag,'MOISTQ ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F	903	MOISTIO	call DIAGNOSTICS_FILL(tmpdiag,'MOISTU ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F	916	MOISTIO	call DIAGNOSTICS_FILL(tmpdiag,'MOISTV ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F	930	MOISTIO	call DIAGNOSTICS_FILL(tmpdiag,'CLDMAS ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F	944	MOISTIO	call DIAGNOSTICS_FILL(tmpdiag,'DTRAIN ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F	958	MOISTIO	call DIAGNOSTICS_FILL(tmpdiag,'DTLS ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F	972	MOISTIO	call DIAGNOSTICS_FILL(tmpdiag,'DQLS ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F	985	MOISTIO	call DIAGNOSTICS_FILL(tmpdiag,'PREACC ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F	997	MOISTIO	call DIAGNOSTICS_FILL(tmpdiag,'PRECON ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_rayleigh.F	38	RAYLEIGH	integer myid,im,jm,lm,bi,bj
./pkg/fizhi/fizhi_rayleigh.F	6	RAYLEIGH	. bi,bj,rfu,rfv,rft)
./pkg/fizhi/fizhi_read_pickup.F	45	FIZHI_READ_PICKUP	integer j,bi,bj
./pkg/fizhi/fizhi_read_pickup.F	75	FIZHI_READ_PICKUP	do bi = 1,myBxLo(myThid), myBxHi(myThid)
./pkg/fizhi/fizhi_read_pickup.F	78	FIZHI_READ_PICKUP	raincon(i,j,bi,bj) = temp(i,j,1,bi,bj)
./pkg/fizhi/fizhi_read_pickup.F	79	FIZHI_READ_PICKUP	rainlsp(i,j,bi,bj) = temp(i,j,2,bi,bj)
./pkg/fizhi/fizhi_read_pickup.F	80	FIZHI_READ_PICKUP	snowfall(i,j,bi,bj) = temp(i,j,3,bi,bj)
./pkg/fizhi/fizhi_read_pickup.F	84	FIZHI_READ_PICKUP	iras(bi,bj) = NINT(temp(1,1,4,bi,bj))
./pkg/fizhi/fizhi_read_pickup.F	85	FIZHI_READ_PICKUP	nlwcld(bi,bj) = NINT(temp(2,1,4,bi,bj))
./pkg/fizhi/fizhi_read_pickup.F	86	FIZHI_READ_PICKUP	nlwlz(bi,bj) = NINT(temp(3,1,4,bi,bj))
./pkg/fizhi/fizhi_read_pickup.F	87	FIZHI_READ_PICKUP	nswcld(bi,bj) = NINT(temp(4,1,4,bi,bj))
./pkg/fizhi/fizhi_read_pickup.F	88	FIZHI_READ_PICKUP	nswlz(bi,bj) = NINT(temp(5,1,4,bi,bj))
./pkg/fizhi/fizhi_read_pickup.F	89	FIZHI_READ_PICKUP	imstturbsw(bi,bj) = NINT(temp(6,1,4,bi,bj))
./pkg/fizhi/fizhi_read_pickup.F	90	FIZHI_READ_PICKUP	imstturblw(bi,bj) = NINT(temp(7,1,4,bi,bj))
./pkg/fizhi/fizhi_readwrite_vegtiles.F	112	FIZHI_WRITE_VEGTILES	DO bi = myBxLo(myThid), myBxHi(myThid)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	115	FIZHI_WRITE_VEGTILES	tn = W2_myTileList(bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	119	FIZHI_WRITE_VEGTILES	iG = bi+(myXGlobalLo-1)/sNx
./pkg/fizhi/fizhi_readwrite_vegtiles.F	131	FIZHI_WRITE_VEGTILES	r8seg(n) = ctmt(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	139	FIZHI_WRITE_VEGTILES	r8seg(n) = xxmt(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	147	FIZHI_WRITE_VEGTILES	r8seg(n) = yymt(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	155	FIZHI_WRITE_VEGTILES	r8seg(n) = zetamt(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	165	FIZHI_WRITE_VEGTILES	r8seg(n) = xlmt(n,k,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	176	FIZHI_WRITE_VEGTILES	r8seg(n) = khmt(n,k,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	187	FIZHI_WRITE_VEGTILES	r8seg(n) = tke(n,k,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	198	FIZHI_WRITE_VEGTILES	r8seg(n) = tcanopy(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	207	FIZHI_WRITE_VEGTILES	r8seg(n) = tdeep(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	216	FIZHI_WRITE_VEGTILES	r8seg(n) = ecanopy(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	225	FIZHI_WRITE_VEGTILES	r8seg(n) = swetshal(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	234	FIZHI_WRITE_VEGTILES	r8seg(n) = swetroot(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	243	FIZHI_WRITE_VEGTILES	r8seg(n) = swetdeep(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	252	FIZHI_WRITE_VEGTILES	r8seg(n) = snodep(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	261	FIZHI_WRITE_VEGTILES	r8seg(n) = capac(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	323	FIZHI_READ_VEGTILES	integer bi,bj,irec,fileprec
./pkg/fizhi/fizhi_readwrite_vegtiles.F	367	FIZHI_READ_VEGTILES	DO bi = myBxLo(myThid), myBxHi(myThid)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	370	FIZHI_READ_VEGTILES	tn = W2_myTileList(bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	374	FIZHI_READ_VEGTILES	iG = bi+(myXGlobalLo-1)/sNx
./pkg/fizhi/fizhi_readwrite_vegtiles.F	392	FIZHI_READ_VEGTILES	ctmt(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	400	FIZHI_READ_VEGTILES	xxmt(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	408	FIZHI_READ_VEGTILES	yymt(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	416	FIZHI_READ_VEGTILES	zetamt(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	427	FIZHI_READ_VEGTILES	xlmt(n,k,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	438	FIZHI_READ_VEGTILES	khmt(n,k,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	449	FIZHI_READ_VEGTILES	tke(n,k,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	460	FIZHI_READ_VEGTILES	tcanopy(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	469	FIZHI_READ_VEGTILES	tdeep(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	478	FIZHI_READ_VEGTILES	ecanopy(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F	487	FIZHI_READ_VEGTILES	swetshal(n,bi,bj) =